1 C00   22:37 JUN 20,'83                                                                          PAGE    1
A      1                     1.000  +1,7                                                                *H01
       2                     1.010  CATALOG  EQU      C'0105'                                           *H01
       3                     1.020  VERSION  EQU      C'H01'                                            *H01
       4                     1.030  TITLE    EQU      S:PT('T-SERIES CPU DIAGNOSTIC, INTERRUPT ',;      *H01
       5                     1.040                    '960-',CATALOG,'-',VERSION)                       *H01
       6                     1.050           PCC                                                        *H01
       7                     1.060           SPACE                                                      *H01
       8                   479.000  +479,487                                                            *H01
       9                   479.010           SPACE                                                      *H01
      10                  6121.000  +6121,6122                                                          *H01
      11                  6121.010           CW,R8    #MAXMEM                                           *H01
      12                  6121.020           BG       *LINK             STOP IF SCAN COMPLETED          *H01
      13                  6121.030           CI,R8    X'1FFFF'           BUT DO NOT SCAN                *H01
      14                  6121.040           BG       *LINK               MORE THAN 128K OF MEMORY      *H01
      15                  6121.050           SPACE                                                      *H01
      16                  9727.000  +9727,9727                                                          *H01
      17                  9727.010           P        54,1,,ABSVAL(BA(T%EXPL))                          *H01
      18                  9989.000  +12342,12347                                                        *H01
      19                  9989.010           GEN,8,3,21 1,1,BA(PROGTEXT)                                *H01
      20                  9989.020           DATA       0                                               *H01
      21                  9989.030           SPACE                                                      *H01
      22                  9989.040  PROGTEXT TEXTCS   TITLE                                             *H01
      23                  9990.000  +12350,12354                                                        *H01
      24                  9990.010           SPACE                                                      *H01
      25                  9999.999  +END                                                                *H01
1 C00   22:37 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   22:37 JUN 20,'83                        EQUATE STATEMENTS                                 PAGE    3
A       1*        TEXT               CATALOG  EQU      C'0105'                                           *H01
        2*        TEXT               VERSION  EQU      C'H01'                                            *H01
        3*                           TITLE    EQU      S:PT('T-SERIES CPU DIAGNOSTIC, INTERRUPT ',;      *H01
        4*        TEXT                                 '960-',CATALOG,'-',VERSION)                       *H01
        5*                                    PCC                                                        *H01

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

      488                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      489                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
      490                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      491                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      492                            *        IN THE MACHINE WORD.
      493                            *
      494                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      495                            *
      496                            * LABELOPT  #HTECON  LABELADDR       OPTIONAL COMMENTS
      497                            *
      498                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      499                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      500                            *                  EXECUTION LOCATION COUNTER;
      501                            *
      502                            *                  #HTECON IS THE PROCEDURE REFERENCE;
      503                            *
      504                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      505                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      506                            *                  'EBCDIC'.
      507                            *
      508         00000000           #HTECON  CNAME
      509                                     PROC
      510                            *
      511                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      512                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      513                            *
      514                                     ERROR,0,NUM(AF)~=1 ;
      515                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      516                            *
      517                            *
      518                            LF       BAL,X6     *#HTE%
      519                                     GEN,10,22  0,AF(1)
      520                            *
      521                                     PEND
      522                            *
      523                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      524                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      525                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      526                            *
      527                            *        RETURN IS TO THE PROCEDURE REFERENCE
      528                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      529                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      530                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      531                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      532                            *        OF THE LOAD MULTIPLE INSTRUCTION.  TO FETCH ONLY
      533                            *
1 C00   22:37 JUN 20,'83                        EQUATE STATEMENTS                                 PAGE   12
A     535                            *
      536                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      537                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#ETH',
      538                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      539                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      540                            *        IF THE CHARACTER STRING TO BE CONVERTED
      541                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      542                            *        THE REGISTERS USED MUST NOT
      543                            *        INCLUDE THE LINK REGISTER.
      544                            *
      545                            *
      546                            *                 #ETHCON,CHAR   LABEL,DISP,ERRETN
      547                            *
      548                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      549                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      550                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      551                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      552                            *                          ( MUST BE BETWEEN 0 AND 3 )
      553                            *                 ERRETN=  ADDRESS UPON WHICH 'GUIDE' WILL BRANCH
      554                            *                           INDIRECTLY IF ANY 'EBCDIC' CHARACTER IS
      555                            *                           NOT IN THE HEXADECIMAL CONVERSION TABLE.
      556                            *
      557                            *                           IF AF(3) IS NOT ENTERED, OR IS NOT AN
      558                            *                           ADDRESS, A RETURN TO THE PROGRAM ERROR
      559                            *                           REPORTER WILL BE GENERATED.
      560                            *
      561         00000000           #ETHCON  CNAME
      562                                     PROC
      563                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      564                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      565                            *
      566                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      567                            A        SET      0
      568                            *
      569                            *
      570                                     ERROR,0,A~=CF(2) ;
      571                             '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      572                            *
      573                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      574                            *
      575                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      576                            B        SET      0
      577                            *
      578                            *
      579                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      580                             '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      581                            *
      582                            *
      583                             ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      584                             (AF(1)=X3))     ;
      585                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      586                            *
      587                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      588                            *
      589                            D SET TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      590                             |(AF(3)=X3))&NUM(AF)>2
      591                            *
      592                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      593                             '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      594                            *
      595                            E        SET      C|D               'OR' THE RESULTS
      596                            *
      597                            LF       BAL,X6    *#ETH%           GO TO CONVERSION ROUTINE
      598                                     DO       TCOR(AF(1),S:INT)   DO IF REGISTER
      599                            *
      600                                     GEN,8,22,2  A,AF(1),B
      601                            *
      602                                     ELSE                       RELOCATABLE ADDRESS
      603                            *
      604                                     GEN,8,24     A,BA(AF(1))+B
      605                            *
      606                                     FIN
      607                            *
      608                            *
      609                                     DO       (NUM(AF)=3)&TCOR(S:UFV(AF(3)),S:RAD)&(E=0)
      610                            *
      611                                     GEN,32   AF(3)
      612                            *
      613                                     XPSD,0   *#ERR1PTR%        INSTRUCTION EXECUTED AS A RESULT
      614                            *                                   OF NOT FINDING A MATCH IN THE
      615                            *                                   HEXADECIMAL CONVERSION TABLE.
      616                            *
      617                                     FIN
      618                            *
      619                                     PEND
      620                            *
1 C00   22:37 JUN 20,'83                        EQUATE STATEMENTS                                 PAGE   13
A     623                            *
      624         00000002           #PRINT   CNAME    2,#PRINTER%
      625         00000001           #TYPE    CNAME    1,#TYPER%
      626                                     PROC
      627                            *
      628                            *
      629                                     LOCAL    A
      630                            *
      631                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      632                             '**CF(2) MUST BE POSITIVE INTEGER**'
      633                            *
      634                                     ERROR,0,NUM(CF)>3 ;
      635                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      636                            *
      637                                     ERROR,0,NUM(AF)>NAME(1) ;
      638                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      639                            *
      640                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      641                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      642                            *
      643                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      644                            *
      645                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      646                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      647                            *
      648                                     ERROR,0,A=0  ;
      649                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      650                            *
      651                                     ELSE
      652                            *
      653                            A        SET      0
      654                            *
      655                                     FIN
      656                            *
      657                            *
      658                            *
      659                            *
      660                            LF       BAL,LINK    SAVE%CLKS
      661                                     BAL,LINK    *NAME(2)
      662                            *
      663                            *
      664                            *  OUTPUT ONE LINE TO KSR - NO COMPRESSION
      665                            *
      666                                     DO       NUM(CF)=1&NAME(1)=1
      667                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      668                            *
      669                            *  OUTPUT ONE LINE TO LP - NO COMPRESSION
      670                            *    AF2= OUTPUT FORMAT CODE
      671                            *           (DEFAULT = C0)
      672                                     ELSE
      673                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      674                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      675                                     ELSE
      676                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      677                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      678                            *
      679                            *  OUTPUT MORE THAN ONE LINE - NO COMPRESSION
      680                            *    CF2= NUMBER OF LINES (TEXTC'S) TO OUTPUT
      681                            *           (DEFAULT = 1)
      682                            *
      683                                     ELSE
      684                                     DO       NUM(CF)=2&CF(2)>0
      685                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      686                                     ELSE
      687                                     DO       NUM(CF)=2&CF(2)=0
      688                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      689                                     ELSE
      690                            *
      691                            *  OUTPUT  MORE THAN ONE LINE OF TEXT - COMPRESSED
      692                            *
      693                                     DO       NUM(CF)>2&CF(2)>0
      694                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      695                                     ELSE
      696                            *
      697                            *  OUTPUT ONE LINE OF TEXT - COMPRESSED
      698                            *
      699                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      700                                     FIN
      701                                     FIN
      702                                     FIN
      703                                     FIN
      704                                     FIN
      705                                     FIN
      706                            *
      707                                     BAL,LINK    RESTORE%CLKS
      708                            *
      709                                     PEND
      710                            *
      711         000000C0           C0       EQU     X'C0'
      712         000000C1           C1       EQU     X'C1'
      713         000000C2           C2       EQU     X'C2'
      714         000000C3           C3       EQU     X'C3'
      715         000000C4           C4       EQU     X'C4'
      716         000000C5           C5       EQU     X'C5'
      717         000000C6           C6       EQU     X'C6'
      718         000000C7           C7       EQU     X'C7'
      719         000000D0           D0       EQU     X'D0'
      720         000000D1           D1       EQU     X'D1'
      721         000000D2           D2       EQU     X'D2'
      722         000000D3           D3       EQU     X'D3'
      723         000000D4           D4       EQU     X'D4'
      724         000000D5           D5       EQU     X'D5'
      725         000000D6           D6       EQU     X'D6'
      726         000000D7           D7       EQU     X'D7'
      727         000000D8           D8       EQU     X'D8'
      728         000000F1           F1       EQU     X'F1'
      729         000000F2           F2       EQU     X'F2'




      731                            *
      732         00000000           TEXTCS   CNAME
      733                                     PROC
      734                                     DISP     %
      735                                     LIST     0
      736                            LF       TEXTC    AF
      737                                     LIST     1
      738                                     PEND
      739                            *
      740                            *





      742         00000000           CHECK    CNAME
      743                                     PROC
      744                            LF       DATA     AF(1)
      745                                  ERROR,7,AF(1)<0 'PROGRAM BEYOND LIMIT'
      746                                     PEND
1 C00   22:37 JUN 20,'83                        EQUATE STATEMENTS                                 PAGE   14
A     748                            * THESE PROCEDURES LOAD HEX CHARACTERS FROM THE ADDRESS IN REGISTER X1
      749                            *        (BA,HA,OR WA), CONVERT THEM TO EBCDIC, AND LOAD THEM IN
      750                            *        THE OUTPUT BUFFER WITH THE LEAST SIGNIFICANT CHARACTER IN
      751                            *        THE POSITION SPECIFIED BY AF(2)
      752                            *        CF(2) IF PRESENT, LOADS X1
      753                            * LIMITS:         AF(1)             BYTE 1-2, HALFWORD 1-4, WORD 1-8
      754                            *                 AF(2)             1-71
      755                            *                 AF(3)             LOADBUF    OR STRIPZ
      756                            *                 CF(2)            ANY WA,HA, OR BA
      757                            *
      758         01 02318           LOADWORD CNAME    LOADW             LOAD WORD
      759         01 02312           LOADBYTE CNAME    LOADB             LOAD BYTE
      760         01 0230E           LOADHALF CNAME    LOADH             LOAD HALFWORD
      761                                     PROC
      762                            *
      763                            LF       RES      0
      764                                     DO       NUM(CF)=2
      765                                     LI,X1    CF(2)
      766                                     FIN
      767                                     BAL,LINK NAME
      768                                     GEN,4,7,21   AF(1),AF(2),AF(3)
      769                            *
      770                                     ERROR,0,NUM(AF(1))=0 'AF(1) MISSING'
      771                                     ERROR,0,NUM(AF(2))=0 'AF(2) MISSING'
      772                                     ERROR,0,NUM(AF(3))=0 'AF(3) MISSING'
      773                                     ERROR,0,AF(1)>AF(2)           'AF(1) > AF(2)'
      774                                     PEND
1 C00   22:37 JUN 20,'83                        EQUATE STATEMENTS                                 PAGE   15
A     776                            *
      777                            *THIS PROCEDURE LOADS 1-71 HEX CHARACTERS FROM EBCBUF
      778                            *        INTO OUTBUF WITH THE LEAST SIGNIFICANT CHARACTER
      779                            *        IN THE POSITION IN THE BUFFER AS SPECIFIED BY AF(2)
      780                            *
      781         00000000           BUFFER   CNAME
      782                                     PROC
      783                            *
      784                            LF       LI,RC    AF(1)             INSERT NO. OF CHARACTERS
      785                                     LI,RD    AF(2)             INSERT LOCATION IN BUFFER
      786                                     BAL,LINK AF(3)             STORE IN OUTBUF
      787                            *
      788                                     ERROR,0,NUM(AF(1))=0 'AF(1) MISSING'
      789                                     ERROR,0,NUM(AF(2))=0 'AF(2) MISSING'
      790                                     ERROR,0,NUM(AF(3))=0 'AF(3) MISSING'
      791                                     ERROR,0,AF(1)>AF(2)           'AF(1) > AF(2)'
      792                                     PEND
      793                            *
      794                            *
      795                            *
      796                            *    THE FOLLOWING PROCS ARE USED TO HANDLE COMPRESSED TEXTS
      797                            *
      798                            *
      799         00000000           T        CNAME
      800                            *
      801                            *   THIS PROC IS USED TO BUILD THE DICTIONARY OF MESSAGE FRAGMENTS
      802                            *        EACH FRAGMENT IS A TEXT STRING ON A BYTE BOUND
      803                            *
      804                                     PROC
      805                                     LOCAL    I
      806                            I        SET      S:NUMC(AF(1))
      807                            LF       SET      %
      808                                     GEN,8*I  AF(1)
      809                                     PEND
      810                            *
      811         00000000           DP       CNAME
      812                            *
      813                            *   THIS PROC IS USED TO BUILD A HALF WORD TABLE OF POINTERS TO THE
      814                            *     THE MESSAGE FRAGMENT DICTIONARY.   EACH HALFWORD CONSISTS OF TWO PARTS
      815                            *     THE MOST SIG. 4 BITS IS A COUNT OF THE # OF CHARACTERS IN THE
      816                            *     THE FRAGMENT (0=16).  THE LEAST SIG. 12 BITS IS THE BYTE
      817                            *     POSITION OF THE FIRST CHAR. OF THE FRAGMENT RELATIVE TO THE START
      818                            *     OF THE DICTIONARY.
      819                            *
      820                                     PROC
      821                                     LOCAL    I
      822                            I        SET      S:NUMC(AF(1))
      823                            LF       GEN,4,12 I,AF(2)-DT
      824                                     PEND
      825                            *
      826         00000000           MSGX     CNAME
      827                            *
      828                            *   THIS PROC BUILDS THE COMPRESSED MESSAGES.  EACH LABEL IN THE
      829                            *     ARGUEMENT FIELD REFERENCES A HALF WORD IN THE DISPLACEMENT
      830                            *     TABLE (DP PROC).   THE CODE GENERATED IS THE FRAGMENTS RELATIVE
      831                            *     POSITION IN THE TABLE.   IF MORE THAN 252 FRAGMENTS ARE DEFINED,
      832                            *     EXTENSION TABLES ARE BUILT.   INSTEAD OF ONE BYTE, EACH
      833                            *     FRAGMENT IN AN EXTENSION TABLE GENERATES TWO BYTES
      834                            *        (THE FIRST BYTE IS A FLAG DEFINING WHICH EXTENSION TABLE)
      835                            *
      836                                     PROC
      837                                     LOCAL    I,J
      838                            LF       GEN,8    AF(1)
      839                                     GEN,8    NUM(AF)
      840                            I        DO       NUM(AF)-1
      841                            J        SET      I+1
      842                                     DO       AF(J)-DAT<252
      843                                     GEN,8    AF(J)-DAT
      844                                     ELSE
      845                                     DO       AF(J)-DAT<508
      846                                     GEN,8,8  X'FF',AF(J)-DAT-252
      847                                     ELSE
      848                                     DO       AF(J)-DAT<764
      849                                     GEN,8,8  X'FE',AF(J)-DAT-508
      850                                     ELSE
      851                                     GEN,8    X'FC'
      852                                     FIN
      853                                     FIN
      854                                     FIN
      855                                     FIN
      856                                     PEND
      857                            *
      858         00000000           SEND     CNAME
      859                            *
      860                            *   THIS PROC IS USED TO BRING THE CONTENTS OF A SINGLE LINE OF
      861                            *     TEXT INTO THE USERS OUTPUT BUFFER (OUTBUF) IN A
      862                            *     DECOMPRESSED FORM SO THAT IT MAY BE ALTERED BEFORE PRINTOUT
      863                            *
      864                                     PROC
      865                            LF       BAL,X6   DECOM%U
      866                                      DATA     ABSVAL(BA(AF(1)))
      867                                     PEND
      868                            *
      869                            *********************************************
      870                                     SYSTEM   SIG9P
1 C00   22:37 JUN 20,'83                        EQUATE STATEMENTS                                 PAGE   16
A     872                            *********************************************
      873                            *
      874                            *
      875   01 00392                 #TABLE1A   ORG    X'392'            THIS TABLE IS USED BY THE USER
            01 00392
      876         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      877         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      878         01 00394           #LOADFLAG  EQU    %+2
      879         01 00396           #TOADDR    EQU    %+4
      880         01 00397           #PRTADDR   EQU    %+5
      881         01 00399           #OUTPTR    EQU    %+7
      882         01 0039A           #PAKDEX    EQU    %+8
      883         01 0039B           #INDEX     EQU    %+9
      884         01 0039C           #PARAM%H1 EQU     %+10
      885         01 0039D           #PARAM%H2 EQU     %+11
      886         01 0039E           #PARAM%H3 EQU     %+12
      887         01 0039F           #PARAM%H4 EQU     %+13
      888         01 003A0           #TESTINIT EQU     %+14
      889         01 003A1           #STATUS   EQU     %+15
      890                            *
      891         01 003A2           #PARAM1  EQU      %+16
      892         01 003A4           #PARAM2  EQU      %+18
      893         01 003A6           #PARAM3  EQU      %+20
      894         01 003A8           #PARAM4  EQU      %+22
      895         01 003AA           #MAXMEM   EQU     %+24
      896         01 003AB           #SAMPLE  EQU      %+25
      897         01 003AC           #BRKOUT  EQU      %+26
      898                            *
      899                            ************
      900                            *
      901                            *
      902   01 003C2                 #TABLE1B   ORG    X'3C2'            THIS TABLE IS USED BY USER
            01 003C2
      903         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      904         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      905         01 003C4           #BTE%      EQU    %+2
      906         01 003C5           #DISUSER%  EQU    %+3
      907         01 003C6           #ENUSER%   EQU    %+4
      908                            *
      909         01 003C8           #GUIDE%    EQU    %+6
      910         01 003C9           #FIDLE%    EQU    %+7
      911         01 003CA           #RUNADDR%  EQU    %+8
      912         01 003CB           #RETURN%   EQU    %+9
      913         01 003CC           #TYPER%    EQU    %+10
      914         01 003CD           #PRINTER%  EQU    %+11
      915         01 003CE           #ERRTEXT%  EQU    %+12
      916         01 003D0           #ERR1PTR%  EQU    %+14
      917         01 003D2           #VALTAB% EQU      %+16
      918         01 003D4           #P%MODE%  EQU     %+18
      919         01 003D5           #GUIDEBUF EQU     %+19
      920         01 003D7           #S%MODE% EQU      %+21
      921         01 003D8           #COCSTATE% EQU    %+22
      922                            *
      923                            *
      924                            *
      925                            ************
      926                            *
      927                            *
      928                            *                **********
1 C00   22:37 JUN 20,'83                        EQUATE STATEMENTS                                 PAGE   17
A     930                            *
      931                            *
      932                            **********************************************************************
      933                            *   READ DIRECT CODES
      934                            **********************************************************************
      935                            *  INTERRUPT CONTROLS
      936                            **********************
      937                            *
      938         00001200           WAIT:ACT EQU      X'1200'           WAITING OR ACTIVE    I(S)
      939         00001100           ARM:WAIT EQU      X'1100'           ARMED OR WAITING     I(P)
      940                            * ENBL   EQU      X'1400'           ENABLED              I(N)
      941                            *
      942                            *  INTERNAL CONTROLS
      943                            *********************
      944                            *MARGINS  EQU     X'45'             READ MARGIN SETTINGS
      945                            *
      946                            **********************************************************************
      947                            ***  WRITE DIRECT CODES                              I(S) I(P) I(N)
      948                            **********************************************************************
      949                            *  INTERRUPT CONTROLS
      950                            **********************
      951                            *
      952         00001000           ACTIVATE EQU      X'1000'          SELECTED LEVELS =  1    0    X
      953         00001100           DISARM   EQU      X'1100'          SELECTED LEVELS =  0    0    X
      954         00001200           ARME     EQU      X'1200'          SELECTED LEVELS =  0    1    1
      955         00001300           ARMD     EQU      X'1300'          SELECTED LEVELS =  0    1    0
      956         00001400           ENBL     EQU      X'1400'          SELECTED LEVELS =  X    X    1
      957         00001500           DISABLE  EQU      X'1500'          SELECTED LEVELS =  X    X    0
      958         00001600           ENBLDIS  EQU      X'1600'          SELECTED LEVELS =  X    X    1
      959                            *                             NOT SELECTED LEVELS  =  X    X    0
      960         00001700           TRIG     EQU      X'1700'          SELECTED LEVELS =  1    1    X
      961                            *                                   (IF PREVIOUSLY ARMED)
      962                            *  INTERNAL CONTROLS
      963                            *********************
      964         00000048           INHIBIT  EQU      X'48'             LOAD PSD WITH INT. INHIBITS
      965         00000045           MARGINS  EQU      X'45'             SET CLOCK MARGIN
      966                            *
      967                            **********************************************************************
      968                            *   REGISTER USAGE
      969                            **********************************************************************
      970                            *
      971         00000000           R0       EQU      0                 GENERAL REGISTER 0
      972         00000001           X1       EQU      1                 INDEX REGISTER # 1
      973         00000002           X2       EQU      2                                # 2
      974         00000003           X3       EQU      3                                # 3
      975         00000004           X4       EQU      4                                # 4
      976         00000005           X5       EQU      5                                # 5
      977         00000006           X6       EQU      6                                # 6
      978         00000007           X7       EQU      7                                # 7
      979         00000008           R8       EQU      8                 WORKING REGISTER (EVEN)
      980         00000009           R9       EQU      9                                  (ODD)
      981         0000000A           RA       EQU      10
      982         0000000B           RB       EQU      11
      983         0000000C           RC       EQU      12                LINK DATA REGISTER # 1
      984         0000000D           RD       EQU      13                                   # 2
      985         0000000E           RE       EQU      14                                   # 3
      986         0000000F           RF       EQU      15
      987         00000006           LINK     EQU      6                 SUBROUTINE LINKING REGISTER
      988         00000002           GRP      EQU      2                 REGISTER FOR INTERRUPT GROUP #
      989         00000003           LVL      EQU      3                 REGISTER FOR INTERRUPT LEVEL #
      990         0000000A           LOG      EQU      10                TEMPORARY ERROR LOG
      991                            *
      992                            *
      993                            *
      994                            *
      995                            **************:
      996                            *
      997                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      998                            *
      999   01 003E5                          ORG      X'3E5'
            01 003E5
     1000                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
     1001   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
     1002                            *
     1003   01 003E7                          ORG      X'3E7'
            01 003E7
     1004                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
     1005         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
     1006   01 003E7    00       A            DATA,1   ,,,-15
            01 003E7 1  00       A
            01 003E7 2  00       A
            01 003E7 3  F1       A
     1007                            *
     1008   01 003EC                          ORG      X'3EC'
            01 003EC
     1009         01 003EC           VALTYPE  EQU      %
     1010   01 003EC                          RES      3
     1011   01 003EF    0F00B1C0              GEN,8,24  15,BA(VALTABLE)
     1012                            *
     1013                            *
     1014                            ************
     1015                            *
     1016   01 003F0                          ORG      X'3F0'
            01 003F0
     1017         01 003F0           #DCA     EQU      %
     1018   01 003F0    00000000 A            DATA     0,0
            01 003F1    00000000 A
     1019   01 003F2    00000000 A   TESTNO   DATA     0                 CURRENT TEST NUMBER
     1020   01 003F3    00000000 A   PATTNO   DATA     0                 CURRENT SUBTEST NUMBER
     1021   01 003F4                          RES      4
     1022   01 003F8    00000002 A   COCGRP   DATA     2                 INTERRUPT GROUP NO. OF COC INTS.
     1023   01 003F9    FFFF3FFF A   COCMASK  DATA     X'FFFF3FFF'       COMPLEMENT OF COC LEVEL PATTERN
     1024                            *                                     (DEFAULT = LVL 0 & 1)
     1025                            *
     1026                            *
     1027                            *************
     1028                            *
     1029                            *
     1030   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
     1031   01 01000    00001010     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
     1032   01 01001    00002A05     #TABLE3@   DATA   TABLE3
     1033   01 01002    00002A67     #PLINEIN@  DATA   PLINEIN
     1034   01 01003    40000000 A   #DIAG@   DATA     X'40000000'
     1035   01 01004    00000000 A   #LOADER@ DATA     0
     1036   01 01005                          RES      2
     1037   01 01007    00001DE7     #DECOMP@ DATA     DECOM%G
     1038                            *
     1039                            *
     1040                            *
     1041                            *
     1042                            ************                 **********
     1043                            *                            PREFFERED AREA TO BE USED
     1044                            *                            FOR USER PROGRAM FORM TABLES.
     1045                            *                            NOT MANDATORY BUT DESIRABLE
     1046         00000004           H          COM,8,8,8,8   AF
     1047         00000004           E          COM,8,8,16    AF
     1048         00000004           L          COM,3,2,3,5,3,1,3,3,3,3,3  AF
     1049         00000004           P          COM,8,2,6,16  AF
     1050                            *
     1051                            *
     1052                            *
     1053                            *
     1054                            ************
     1055                            *
     1056                            *
     1057                            *
     1058                            *************************************
1 C00   22:37 JUN 20,'83    INITIALIZATION ROUTINE                                                PAGE   18
A    1060                            *************************************
     1061                            *
     1062   01 01010                          ORG      X'1010'
            01 01010
     1063                            *
     1064   01 01010    02200000 A   INITIAL  LCI      0                 SAVE REGISTERS
     1065   01 01011    2B002AEC              STM,0    SAVE#2
     1066   01 01012    22802A43              LI,R8    ACTIVELVL         INITIALIZE:
     1067   01 01013    22102ABD              LI,X1    LEVNINH+7                   VARIABLE CONSTANTS
     1068   01 01014    38100008 A            SW,X1    R8                             BETWEEN 'ACTIVELVL'
     1069   01 01015    22900000 A            LI,R9    0                              AND 'LEVIMPL'
     1070   01 01016    20100001 A            AI,X1    1                              *
     1071   01 01017    35922A42              STW,R9   ACTIVELVL-1,X1                 *
     1072   01 01018    64101017              BDR,X1   %-1                            *
     1073   01 01019    33F02A43              MTW,-1   ACTIVELVL
     1074                            *
     1075   01 0101A    35900393              STW,R9   #HDRFLG                      HEADER FLAG
     1076   01 0101B    331010A3              MTW,1    FIRST%TIME
     1077   01 0101C    6930103F              BNEZ     INITIAL#1
     1078                            *
     1079   01 0101D    32800055 A            LW,R8    X'55'
     1080   01 0101E    35802867              STW,R8   GUIDE55           SAVE GUIDE'S INSTR.
     1081   01 0101F    32800026 A            LW,R8    X'26'             FIND GUIDE'S RESET ADDRESS
     1082   01 01020    4B802C9A              AND,R8   X1FFFF                  AND SET UP RETURN FROM
     1083   01 01021    6680114D              AWM,R8   IHAND#7                 INTERRUPT/TRAP HANDLER
     1084   01 01022    6680114E              AWM,R8   IHAND#7+1
     1085   01 01023    4D200001 A            TIO,2    1
     1086   01 01024    52200020 A            LH,2     X'20'             CHECK IF T-85 OR T-83
     1087   01 01025    6830102B              BEZ      INITIAL#C         T-85, SKIP
     1088   01 01026    6A602809              #TYPE    TESTMT83          TYPE T-83
            01 01027    EA6003CC
            01 01028    0000D6F8 A
            01 01029    6A602832
     1089   01 0102A    6800102F              B        INITIAL#B
     1090   01 0102B    6A602809     INITIAL#C #TYPE   TESTMT85          TYPE T-85
            01 0102C    EA6003CC
            01 0102D    0000D70C A
            01 0102E    6A602832
     1091   01 0102F    22200040 A   INITIAL#B LI,X2   64                MEMORY MAP
     1092   01 01030    22300001 A            LI,X3    1                         *
     1093   01 01031    32A010A2              LW,RA    MAP%IMAGE                 *
     1094   01 01032    128010A0              LD,R8    MAP%DW                    *
     1095   01 01033    6F880000 A            MMC,R8   4                         *
     1096   01 01034    208FFFFF A            AI,R8    -1                        *
     1097   01 01035    75300009 A            STB,X3   R9                        *
     1098   01 01036    30A02CA5              AW,RA    X4040404                  *
     1099   01 01037    64201033              BDR,X2   %-4
     1100                            *
     1101   01 01038    22A00000 A            LI,RA    0                 ACCESS CONTROL REGISTERS
     1102   01 01039    22B00010 A            LI,RB    16
     1103   01 0103A    128010A0              LD,R8    MAP%DW                    *
     1104   01 0103B    6F840000 A            MMC,R8   2                         *
     1105   01 0103C    75300009 A            STB,X3   R9                        *
     1106   01 0103D    208FFFFF A            AI,R8    -1
     1107   01 0103E    64B0103B              BDR,RB   %-3
     1108                            *
     1109   01 0103F    6A6022B8     INITIAL#1 BAL,LINK INITHIST                    HISTORY TABLE
     1110   01 01040    2210000E A            LI,X1    14                             *
     1111   01 01041    22700001 A            LI,X7    1                              *
     1112   01 01042    22400052 A            LI,X4    X'52'                          *
     1113   01 01043    354E3D18              STW,X4   HISTORY,X7                     *
     1114   01 01044    30402CA3              AW,X4    X1000001                       *
     1115   01 01045    20700002 A            AI,X7    2                              *
     1116   01 01046    64101043              BDR,X1   %-3                            *
     1117   01 01047    30402CA9              AW,X4    X12000000                      *
     1118   01 01048    221000E0 A            LI,X1    224                            *
     1119   01 01049    354E3D18              STW,X4   HISTORY,X7                     *
     1120   01 0104A    30402CA3              AW,X4    X1000001                       *
     1121   01 0104B    20700002 A            AI,X7    2                              *
     1122   01 0104C    64101049              BDR,X1   %-3                            *
     1123                            *
     1124   01 0104D    32802619              LW,R8    PARAMT%HEX+4                 LOOP COUNT
     1125   01 0104E    35802A63              STW,R8   LOOPS                     *
     1126                            *
     1127   01 0104F    6A601CD2              BAL,LINK DISARMALL         DISARM INTS.
     1128   01 01050    6A601168              BAL,LINK JAMXPSDS          XPSDS TO INT. LOCN'S
     1129   01 01051    32602867              LW,LINK  GUIDE55
     1130   01 01052    35600055 A            STW,LINK X'55'             RESTORE GUIDE CLOCK 4 INSTR.
     1131   01 01053    22601000 A            LI,LINK  X'1000'
     1132   01 01054    6D601200 A            WD,LINK  ARME              ARM & ENABLE COUNTER 4
     1133                            *
     1134                            *
     1135                            *
     1136                            *  THE FOLLOWING CODE IS SKIPPED IF RECOVERY IS NOT TO 'LOAD CONDITIONS'
     1137                            *
     1138   01 01055    32900394              LW,R9    #LOADFLAG
     1139   01 01056    69301096              BNEZ     INITIAL#3
     1140                            *
     1141   01 01057    22900000 A            LI,R9    0
     1142   01 01058    6D900045 A            WD,R9    MARGINS           RETURN CLOCK MARGIN TO NORMAL
     1143                            *
     1144   01 01059    2210000C A            LI,X1    12
     1145   01 0105A    6A601DEB              SEND     PLINE#TRES                  PLINE#T
            01 0105B    0000C291 A
     1146   01 0105C    32823EF3              LW,R8    OUTBUF-1,X1
     1147   01 0105D    3582261F              STW,R8   PLINE#T-1,X1
     1148   01 0105E    6410105C              BDR,X1   %-2
     1149   01 0105F    22801100 A            LI,R8    X'1100'
     1150   01 01060    35802615              STW,R8   PARAMT%HEX
     1151   01 01061    22800001 A            LI,R8    1
     1152   01 01062    35802616              STW,R8   PARAMT%HEX+1
     1153   01 01063    22803101 A            LI,R8    X'3101'
     1154   01 01064    35802617              STW,R8   PARAMT%HEX+2
     1155   01 01065    22800FFF A            LI,R8    X'FFF'
     1156   01 01066    35802618              STW,R8   PARAMT%HEX+3
     1157   01 01067    22800000 A            LI,R8    0
     1158   01 01068    35802619              STW,R8   PARAMT%HEX+4
     1159                            *
     1160   01 01069    EA6003C3     INITIAL#2 #HTECON #TOADDR                     PLINE#J
            01 0106A    00000396
     1161   01 0106B    328C0001 A            LW,R8    1,LINK                         *
     1162   01 0106C    6A601DEB              SEND     PLINE#JRES
            01 0106D    0000C3B7 A
     1163   01 0106E    35803EF7              STW,R8   OUTBUF+3                       *
     1164   01 0106F    EA6003C3               #HTECON #PRTADDR                       *
            01 01070    00000397
     1165   01 01071    328C0001 A            LW,R8    1,LINK                         *
     1166   01 01072    35803EF5              STW,R8   OUTBUF+1                       *
     1167   01 01073    22100016 A             LI,X1   X'16'                          *
     1168   01 01074    72923EF4              LB,R9     OUTBUF,X1                      *
     1169   01 01075    759223F4              STB,R9   PLINE#J,X1                      *
     1170   01 01076    64101074              BDR,X1   %-2                             *
     1171   01 01077    EA6003C2              #ETHCON,3  PLINE#J+4,1
            01 01078    03008FE1
     1172   01 01079    356023FA              STW,LINK  SICOUNT
     1173   01 0107A    22903CF0 A            LI,R9    X'3CF0'                     PLINE#I
     1174   01 0107B    55902ABE              STH,R9   LEVIMPL                         *
     1175   01 0107C    6A602277              BAL,LINK IMP@EBC                         *
     1176   01 0107D    6A60262C              BAL,LINK PAT@EBC                      PLINE#K
     1177                            *
     1178   01 0107E    6A602719              BAL,LINK READIMP                      ACCESS TABLE
     1179   01 0107F    22100040 A            LI,X1    64                             *
     1180   01 01080    32902B30              LW,R9    BALSPUR                        *
     1181   01 01081    35923B17              STW,R9   ACCESS-1,X1                    *
     1182   01 01082    64101081              BDR,X1   %-1                            *
     1183   01 01083    22100010 A            LI,X1    16                             *
     1184   01 01084    32902B31              LW,R9    BALTRAP                        *
     1185   01 01085    35923B57              STW,R9   TRAPS-1,X1                     *
     1186   01 01086    64101085              BDR,X1   %-1                            *
     1187   01 01087    22100002 A            LI,X1    2                              *
     1188   01 01088    32902B30              LW,R9    BALSPUR                        *
     1189   01 01089    35923B67              STW,R9   PWRFAIL-1,X1                   *
     1190   01 0108A    64101089              BDR,X1   %-1                            *
     1191   01 0108B    221000C0 A            LI,X1    192                            *
     1192   01 0108C    32902B30              LW,R9    BALSPUR                        *
     1193   01 0108D    35923C58              STW,R9   VALID+238,X1                   *
     1194   01 0108E    6410108D              BDR,X1   %-1                            *
     1195                            *
     1196   01 0108F    6A60267F              BAL,LINK PRI@EBC                      PLINE#P
     1197                            *
     1198   01 01090    22802ABE              LI,R8    LEVIMPL           INITIALIZE VARIABLES
     1199   01 01091    22102ACC              LI,X1    SAVE                      *
     1200   01 01092    38100008 A            SW,X1    R8                        *
     1201   01 01093    22900000 A            LI,R9    0                         *
     1202   01 01094    35922ABD              STW,R9   LEVIMPL-1,X1              *
     1203   01 01095    64101094              BDR,X1   %-1                       *
     1204                            *
     1205                            *
     1206   01 01096    6A6022A9     INITIAL#3 BAL,LINK INITBUF
     1207   01 01097    2280FC18              LI,R8    BA(ILEGAL)                   ILLEGAL INT. TABLE
     1208   01 01098    35801167              STW,R8   ILEGALP
     1209                            *
     1210   01 01099    02200000 A            LCI      0
     1211   01 0109A    2A002AEC              LM,0     SAVE#2            RESTORE REGISTERS
     1212   01 0109B    702003A0              LC       #TESTINIT
     1213   01 0109C    EA600006 A            BAL,LINK   *LINK
     1214   01 0109D    0000109E              DATA     INITIAL#A
     1215                                     BOUND    8
     1216   01 0109E    0000254D     INITIAL#A  DATA   REPEAT,X'7000000'
            01 0109F    07000000 A
     1217                            *
     1218                            **********************************************
     1219                            *
     1220                            *  NOTE:   IF THE START OF TEST IS NOT CHANGED AFTER INITIALIZATION
     1221                            *        BY DIRECTIVE 'T' , THE TEST WILL START AT TEST 1100
     1222                            *
     1223   01 010A0    0000117F              DATA     TST1100
     1224   01 010A0                          ORG      %-1
            01 010A0
     1225                            *
     1226                            **********************************************
     1227                            *
     1228                            *
     1229                                     BOUND    8
     1230   01 010A0    0000000A A   MAP%DW   DATA     RA                MAP LOAD CONTROL DW
     1231   01 010A1    01000000 A            GEN,8,7,8,9  1,0,0,0               *
     1232                            *
     1233   01 010A2    00010203 A   MAP%IMAGE  DATA   X'10203'          INITIAL MAP IMAGE
     1234   01 010A3    FFFFFFFF A   FIRST%TIME DATA   -1                FIRST TIME FLAG
     1235                            *
     1236                            *
1 C00   22:37 JUN 20,'83                        INTERRUPT HANDLING ROUTINE                        PAGE   19
A    1238                            *
     1239                            **********************************************************************
     1240                            * INTERRUPT HANDLING ROUTINE - THIS SUBROUTINE IS ENTERED ONLY BY    *
     1241                            *    A BRANCH AND LINK FROM THE INTERRUPT ACCESS TABLE               *
     1242                            *    THE INTER. LOCATION IS THE 9 LEAST SIG. BITS OF THE LINK ADDR.  *
     1243                            *    THE ROUTINE  1.  CHECKS IF ACTIVE INTERRUPT MATCHES INTER. LOCN.*
     1244                            *                 2.  CHECKS IF INTERRUPT WAS REQUESTED              *
     1245                            *                 3.  LOGS UNEXPECTED COUNTER PULSES                 *
     1246                            *                 4.  CHECKS FOR PRIOR INTERRUPTS                    *
     1247                            *                 5.  RECORDS SEQUENCE OF INTERRUPTS                 *
     1248                            *                                                                    *
     1249                            *    NORMAL EXIT - CLEAR ACTIVE INTERRUPT                            *
     1250                            *    TEST 15 EXIT- RETURN TO TEST WITHOUT CLEARING THE INTERRUPT     *
     1251                            *                                                                    *
     1252                            *        REGISTER USEAGE:  X1 = BYTE DISPLACEMENT IN HIST. TABLE     *
     1253                            *                          X5 = QUAD WORD DISPL. IN PSDS TABLE       *
     1254                            *                                                                    *
     1255                            **********************************************************************
     1256                            *
     1257         01 010A4           NORM     EQU      %
     1258   01 010A4    02200000 A            LCI      0
     1259   01 010A5    2B002B0C              STM,0    SAVE#4
     1260   01 010A6    32800006 A            LW,R8    LINK              FIND INTERRUPT LOCATION
     1261   01 010A7    38802B2D              SW,R8    ACCESSP
     1262   01 010A8    35802A62              STW,R8   LOCATION              SAVE LOCATION
     1263   01 010A9    70200392             LC        #SENSE            CHECK FOR SHORT LOOP
     1264   01 010AA    698010C3             BCS,8     IHAND#1           IF YES EXIT
     1265   01 010AB    6A602676              BAL,LINK POINT%HIST        FIND HIST. TABLE ENTRY (BA IN X1)
     1266   01 010AC    22A00000 A            LI,LOG   0                 ZERO ERROR LOG
     1267   01 010AD    6A602699              BAL,LINK READACT           FIND HIGH ACTIVE INTERRUPT
     1268   01 010AE    32802A44              LW,R8    ACTIVELVL+1
     1269   01 010AF    20100007 A            AI,X1    7
     1270   01 010B0    71820000 A            CB,R8    0,X1              DOES ACTIVE INT MATCH LOCATION
     1271   01 010B1    683010B3              BCR,3    %+2               YES
     1272   01 010B2    20A00001 A            AI,LOG   1                 NO, LOG ERROR TYPE 01
     1273                            *
     1274                            *
     1275   01 010B3    32101E89     IHAND    LW,X1    HSTORYP
     1276   01 010B4    72820000 A            LB,R8    0,X1              IS INTERRUPT EXPECTED
     1277   01 010B5    693010B7              BNEZ     %+2               YES
     1278   01 010B6    20A00002 A            AI,LOG   2                 NO,LOG ERROR TYPE 11
     1279   01 010B7    20100002 A            AI,X1    2                 INDEX TO ACTUAL COUNT
     1280   01 010B8    72820000 A            LB,R8    0,X1              ANY PRIOR INTERRUPTS
     1281   01 010B9    683010BB              BEZ      %+2               NO
     1282   01 010BA    20A00004 A            AI,LOG   4                 YES,LOG ERROR TYPE E1
     1283   01 010BB    6A601DB9              BAL,LINK CHKPSD            CHECK THE STORED PSD
     1284   01 010BC    20A00000 A            AI,LOG   0                 HAVE ANY ERRORS OCCURRED
     1285   01 010BD    69301117              BCS,3    IHAND#3           IF YES, BRANCH
     1286   01 010BE    73120000 A            MTB,1    0,X1
     1287   01 010BF    33102A89              MTW,1    SEQCNT            NO, INCREMENT SEQUENCE COUNT
     1288   01 010C0    32802A89              LW,R8    SEQCNT            RECORD SEQUENCE COUNT
     1289   01 010C1    20100001 A            AI,X1    1
     1290   01 010C2    75820000 A            STB,R8   0,X1                  SAVE COUNT
     1291                            *
     1292                            *        EXIT FROM ROUTINE
     1293                            *                 TO TRAP ADDR. +1 IF TRAP TEST (ASSUME SPUR.
     1294                            *                   TRAP OR BAD ADDRESSING)
     1295                            *                 TO INTERRUPT ADDR. IF NOT TRAP TEST (ASSUME BAD
     1296                            *                   ADDRESSING OF AN INT. IF LOC'N IS 40-4F)
     1297                            *
     1298                            *                 AND INT. OCCURRED AT WRONG ADDRESS.
     1299                            *                 TO EXPECTED RETURN ADDRESS FOR TEST IF EXP. ADDR. OK
     1300                            *
     1301                            *
     1302   01 010C3    32502A62     IHAND#1  LW,X5    LOCATION          FIND INTERRUPT/TRAP LOCATION
     1303   01 010C4    25500002 A            SLS,X5   2                     GENERATE QUAD WORD INDEX
     1304   01 010C5    328A3318              LW,R8    PSDS,X5           FIND STORED DOUBLE WORD
     1305   01 010C6    329A3319              LW,R9    PSDS+1,X5                 *
     1306   01 010C7    15802A4E              STD,R8   CURPSD
     1307   01 010C8    32802A62              LW,R8    LOCATION
     1308   01 010C9    2180004C A            CI,R8    X'4C'
     1309   01 010CA    683010CD              BE       %+3               BRANCH IF PARITY ERROR
     1310   01 010CB    21800057 A            CI,R8    X'57'
     1311   01 010CC    693010CE              BNE      %+2               BRANCH IF NOT MFI
     1312                            *
     1313   01 010CD    6A601DDE              BAL,LINK CLEAR%MFI         TURN OFF MFI
     1314                            *
     1315   01 010CE    22801000 A            LI,R8    X'1000'           IS IT A TRAP TEST
     1316   01 010CF    4B8003F2              AND,R8   TESTNO                    *
     1317   01 010D0    693010D6              BNEZ     IHAND#1B          SKIP IF NO
     1318                            *
     1319   01 010D1    6A60114F              BAL,LINK CHK%RET           CHECK RETURN ADDRESS
     1320   01 010D2    02200000 A            LCI      0                 RESTORE REGISTERS
     1321   01 010D3    2A002B0C              LM,0     SAVE#4
     1322   01 010D4    33102A4E              MTW,1    CURPSD            RETURN TO TRAP INST. +1
     1323   01 010D5    0E102A4E              LPSD,1   CURPSD
     1324                            *
     1325                            *
     1326         01 010D6           IHAND#1B EQU      %
     1327   01 010D6    325003F2              LW,X5    TESTNO            CHECK FOR SPECIAL RETURN
     1328   01 010D7    21501605 A            CI,X5    X'1605'
     1329   01 010D8    683010EC              BE       IHAND#1E          BRANCH IF TEST 1605
     1330   01 010D9    25500078 A            SLS,X5   -8                        *
     1331   01 010DA    21500015 A            CI,X5    X'15'                     *
     1332   01 010DB    683010EE              BE       IHAND#1F          BRANCH IF TEST 15XX
     1333                            *
     1334   01 010DC    2291FFFF A            LI,R9    X'1FFFF'          FIND IF RETURN ADDR. IS VALID
     1335   01 010DD    4A802A4E              LS,R8    CURPSD                    *
     1336   01 010DE    4A902A90              LS,R9    INTEPSD                   *
     1337   01 010DF    31800009 A            CW,R8    R9                        *
     1338   01 010E0    693010E5              BNE      IHAND#1D          ERROR IF NO
     1339         01 010E1           IHAND#1C  EQU     %
     1340   01 010E1    6A60114F              BAL,LINK CHK%RET           CHECK RETURN ADDRESS
     1341   01 010E2    02200000 A            LCI      0
     1342   01 010E3    2A002B0C              LM,0     SAVE#4            RESTORE REGISTERS
     1343   01 010E4    0E302A4E              LPSD,3   CURPSD            RETURN TO INTERRUPTED PROGRAM
     1344                            *
     1345         01 010E5           IHAND#1D EQU      %
     1346   01 010E5    38800009 A            SW,R8    R9                ASSUME ERROR IF OVER 2 LOCATIONS OFF
     1347   01 010E6    691010E9              BLZ      %+3                       *
     1348   01 010E7    21800002 A            CI,R8    2                         *
     1349   01 010E8    682010E1              BLE      IHAND#1C          BRANCH IF NO ERROR
     1350   01 010E9    22C00083 A            LI,RC    X'83'             INTERRUPT ADDR. WRONG
     1351   01 010EA    6A6020A0              BAL,LINK EROR              DISPLAY ERROR
     1352   01 010EB    680010E1              B        IHAND#1C            AND EXIT
     1353   01 010EC    22801570     IHAND#1E LI,R8    TST16#F
     1354   01 010ED    680010EF              B        %+2
     1355   01 010EE    228014CC     IHAND#1F LI,R8    15RETURN
     1356   01 010EF    35802A4E              STW,R8   CURPSD
     1357   01 010F0    02200000 A            LCI      0
     1358   01 010F1    2A002B0C              LM,0     SAVE#4
     1359   01 010F2    0E002A4E              LPSD,0   CURPSD            RETURN WITHOUT CLEARING INT.
     1360                            *
     1361                            *
     1362                            *
     1363                            *        ENTER HERE IF INTERRUPT OCCURRED FROM LOCATION ASSUMED
     1364                            *                 TO BE NOT IMPLEMENTED
     1365                            *
     1366         01 010F3           NOTIMPL  EQU      %
     1367   01 010F3    02200000 A            LCI      0
     1368   01 010F4    2B002B0C              STM,0    SAVE#4
     1369   01 010F5    32800006 A            LW,R8    LINK              FIND INTERRUPT LOCATION
     1370   01 010F6    38802B2D              SW,R8    ACCESSP
     1371   01 010F7    35802A62              STW,R8   LOCATION              SAVE LOCATION
     1372   01 010F8    70200392             LC        #SENSE            CHECK FOR SHORT LOOP
     1373   01 010F9    698010C3             BCS,8     IHAND#1           IF YES EXIT
     1374   01 010FA    2210F464              LI,X1    BA(HISTORY)+4     RESTORE HISTORY TABLE POINTER
     1375   01 010FB    22803B6B              LI,R8    WA(VALID+1)       COMPUTE POINTER DISPLACEMENT
     1376   01 010FC    38600008 A            SW,LINK  8                     SUB FIRST VALID ADDRESS
     1377   01 010FD    25600003 A            SLS,LINK 3                     MULT DISPLACEMENT BY 8
     1378   01 010FE    30100008 A            AW,X1    R8                SET POINTER TO RIGHT DOUBLE WORD
     1379   01 010FF    22A00008 A            LI,LOG   8                 LOG NOT IMPLEMENTED LOCATION ERROR
     1380   01 01100    6A602699              BAL,LINK READACT           FIND HIGH ACTIVE INTERRUPT
     1381   01 01101    32802A43              LW,R8    ACTIVELVL         CHECK FOR ACTIVE SAME AS LOCATION
     1382   01 01102    71820000 A            CB,R8    0,X1                  DOES ACTIVE MATCH
     1383   01 01103    68301105              BCR,3    %+2               YES
     1384   01 01104    20A00001 A            AI,LOG   1                 NO,LOG ERROR
     1385   01 01105    68001117              B        IHAND#3           OUTPUT ERROR
     1386                            *
     1387                            *        ENTER HERE IF INTERRUPT WAS NOT IN RANGE X'52' THRU X'13F'
     1388                            *
     1389         01 01106           SPUR     EQU      %
     1390   01 01106    74002A48              STCF     CODES
     1391   01 01107    74002A48     SPURTRAP STCF     CODES             SAVE CONDITION CODES
     1392   01 01108    02200000 A            LCI      0
     1393   01 01109    2B002B0C              STM,0    SAVE#4            SAVE REGISTERS
     1394   01 0110A    32800006 A            LW,R8    LINK              FIND INTERRUPT LOCATION
     1395   01 0110B    38802B2D              SW,R8    ACCESSP
     1396   01 0110C    35802A62              STW,R8   LOCATION              SAVE LOCATION
     1397   01 0110D    70200392             LC        #SENSE            CHECK FOR SHORT LOOP
     1398   01 0110E    698010C3             BCS,8     IHAND#1           IF YES EXIT
     1399   01 0110F    6A601D83              BAL,LINK CHK%PDF           CHECK IF PDF WAS SET
     1400   01 01110    21800026 A            CI,R8    X'26'             IS IT A SYSTEM RESET
     1401   01 01111    69301113              BNE      %+2               BRANCH IF NO
     1402   01 01112    6A601149              BAL,LINK  IHAND#6
     1403                            *
     1404   01 01113    33102A89              MTW,1    SEQCNT            INCREMENT SEQUENCE COUNT
     1405   01 01114    22A00001 A            LI,LOG   1                 LOG SPURIOUS INTERRUPT ERROR
     1406   01 01115    6A601158              BAL,LINK LOGSPUR           LOG SPURIOUS INTERRUPT
     1407   01 01116    6800111E              B        IHAND#5           OUTPUT ERROR
     1408                            *
     1409                            *
     1410   01 01117    33102A89     IHAND#3  MTW,1    SEQCNT            INCREMENT SEQUENCE COUNT
     1411   01 01118    32101E89              LW,X1    HSTORYP
     1412   01 01119    32802A89              LW,R8    SEQCNT            RECORD SEQUENCE COUNT
     1413   01 0111A    20100003 A            AI,X1    3
     1414   01 0111B    75820000 A            STB,R8   0,X1              SAVE COUNT
     1415   01 0111C    201FFFFF A            AI,X1    -1
     1416   01 0111D    73120000 A            MTB,1    0,X1              INCREMENT INTERRUPT COUNT
     1417                            *
     1418                            *        ENTER HERE TO DISPLAY ERRORS DETECTED
     1419                            *
     1420   01 0111E    3280000A A   IHAND#5  LW,R8    LOG               FIND ERRORS
     1421   01 0111F    4B802C79              AND,R8   ONE               CHECK FOR ERROR 1
     1422   01 01120    68301128              BEZ      %+8               NO, TRY 2
     1423   01 01121    22C00001 A            LI,RC     1                SET UP FOR LOCATION MISMATCH ERROR
     1424   01 01122    32502A62              LW,X5    LOCATION             SET UP STORED PSD DISPLAY
     1425   01 01123    25500002 A            SLS,X5   2                         *
     1426   01 01124    32DA3318              LW,RD    PSDS,X5                   *
     1427   01 01125    32EA3319              LW,RE    PSDS+1,X5                 *
     1428   01 01126    4BA02C8D              AND,LOG  X3E               DELETE ERROR
     1429   01 01127    6A6020A0              BAL,LINK   EROR            DISPLAY ERROR
     1430   01 01128    3280000A A            LW,R8    LOG               FIND ERRORS
     1431   01 01129    4B802C7A              AND,R8   TWO               CHECK FOR ERROR 2
     1432   01 0112A    68301131              BEZ      %+7
     1433   01 0112B    4BA02C8C              AND,LOG  X3C               DELETE ERROR
     1434   01 0112C    22C00011 A            LI,RC    X'11'             SET UP FOR UNEXP. INT. DISPLAY
     1435   01 0112D    32202A43              LW,GRP   ACTIVELVL
     1436   01 0112E    2520017C A            SLD,GRP  -4
     1437   01 0112F    25300064 A            SLS,LVL  -28
     1438   01 01130    6A6020A0              BAL,LINK   EROR            DISPLAY ERROR
     1439   01 01131    3280000A A            LW,R8    LOG               FIND ERRORS
     1440   01 01132    4B802C7C              AND,R8   FOUR              CHECK FOR ERROR 4
     1441   01 01133    68301137              BEZ      %+4               NO, TRY ERROR 8
     1442   01 01134    4BA02C8B              AND,LOG  X38               DELETE ERROR
     1443   01 01135    22C000E1 A            LI,RC    X'E1'             SET UP FOR ERROR DISPLAY
     1444   01 01136    6A6020A0              BAL,LINK   EROR            DISPLAY ERROR
     1445   01 01137    3280000A A            LW,R8    LOG               CHECK IF ERROR 8
     1446   01 01138    4B802C80              AND,R8   X8
     1447   01 01139    6830113D              BEZ      %+4               NO, TRY ERROR 10
     1448   01 0113A    4BA02C8A              AND,LOG  X30               DELETE ERROR
     1449   01 0113B    22C000E2 A            LI,RC    X'E2'             SET UP FOR ERROR DISPLAY
     1450   01 0113C    6A6020A0              BAL,LINK   EROR            DISPLAY ERROR
     1451   01 0113D    3280000A A            LW,R8    LOG               FIND ERRORS
     1452   01 0113E    4B802C88              AND,R8   X10               WAS IT ERROR 10
     1453   01 0113F    68301143              BEZ      %+4               NO, TRY ERROR 20
     1454   01 01140    4BA02C89              AND,LOG  X20               DELETE ERROR
     1455   01 01141    22C00083 A            LI,RC    X'83'             SET UP FOR PSDW1 ERROR DISPLAY
     1456   01 01142    6A6020A0              BAL,LINK EROR              DISPLAY IT
     1457   01 01143    3280000A A            LW,R8    LOG               FIND ERROR
     1458   01 01144    683010C3              BEZ      IHAND#1           EXIT IF NONE LEFT
     1459   01 01145    22A00000 A            LI,LOG   0
     1460   01 01146    22C00084 A            LI,RC    X'84'             SET UP FOR PSDW2 ERROR DISPLAY
     1461   01 01147    6A6020A0              BAL,LINK EROR              DISPLAY IT
     1462   01 01148    680010C3              B        IHAND#1           EXIT
     1463                            *
     1464   01 01149    2291FFFF A   IHAND#6  LI,R9    X'1FFFF'
     1465   01 0114A    4A9033B0              LS,R9    PSDS+X'98'        FIND INTERRUPT ADDRESS
     1466   01 0114B    21900027 A            CI,R9    X'27'             WAS IT A SYSTEM RESET
     1467   01 0114C    E9300006 A            BNE      *LINK             RETURN IF NO
     1468                            *
     1469                            *  THE FOLLOWING TWO LOCATIONS HAVE THE ADDRESS FIELDS ALTERED
     1470                            *    BY THE INITIALIZER TO POINT TO THE LOCATIONS POINTED TO BY THE
     1471                            *    XPSD IN LOCATION 26 THAT WAS STORED BY GUIDE BUT ALTERED BY
     1472                            *    THIS PROGRAM.
     1473                            *
     1474   01 0114D    35900000 A   IHAND#7  STW,R9   0                 RE-INITIALIZE PROGRAM
     1475   01 0114E    0E000002 A            LPSD,0   0+2
     1476                            *
     1477                            *
     1478                            *
     1479                            *
     1480                            *  THE FOLLOWING ROUTINE CHECKS THE INT/TRAP HANDLER RETURN
     1481                            *  ADDRESS AND ABORTS THE TEST IF THE ADDRESS IS TO ONE
     1482                            *   OF THE NON-REENTRANT SUBROUTINES.
     1483                            *
     1484         01 0114F           CHK%RET  EQU      %
     1485   01 0114F    32802A4E              LW,R8    CURPSD
     1486   01 01150    4B802C9A              AND,R8   X1FFFF            FIND RETURN ADDRESS
     1487   01 01151    21801CA6              CI,R8    ABORT
     1488   01 01152    E9100006 A            BL       *LINK             RETURN IF VALID ADDRESS
     1489                            *
     1490                            *  ENTER HERE IF RETURN IS TO A SUBROUTINE
     1491                            *
     1492   01 01153    12802A4E              LD,R8    CURPSD            SAVE RETURN PSD
     1493   01 01154    32A003F2              LW,RA    TESTNO            FIND TEST NUMBER
     1494   01 01155    32B003F3              LW,RB    PATTNO            FIND SUBTEST NUMBER
     1495   01 01156    32C00006 A            LW,RC    LINK              SAVE LINK ADDRESS
     1496   01 01157    6A601CA6              BAL,LINK ABORT
     1497                            *
     1498                            *
     1499                            ************************************************************
     1500                            *   L O G    S P U R I O U S     I N T E R R U P T S
     1501                            ************************************************************
     1502                            *
     1503                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     1504                            *
     1505                            ************************************************************
     1506                            *
     1507   01 01158    2280FDA8     LOGSPUR  LI,R8    BA(ILEGAL+100)    FIND TABLE END
     1508   01 01159    21803F6A              CI,R8    ILEGAL+100
     1509   01 0115A    E8200006 A            BLE      *LINK             EXIT IF TABLE FULL
     1510   01 0115B    32802A89              LW,R8    SEQCNT            FIND CURRENT SEQUENCE COUNT
     1511   01 0115C    32101167              LW,X1    ILEGALP           FIND BYTE ADDRESS OF NEXT ENTRY
     1512   01 0115D    75820000 A            STB,R8   0,X1              LOG SEQUENCE
     1513   01 0115E    32802A62              LW,R8    LOCATION          FIND INTERRUPT LOCATION
     1514   01 0115F    20100003 A            AI,X1    3
     1515   01 01160    75820000 A            STB,R8   0,X1              STORE LOCATION LEAST SIG. CHARS.
     1516   01 01161    25800008 A            SLS,R8   8                 FIND LOCATION MOST SIG. DIGIT
     1517   01 01162    201FFFFF A            AI,X1    -1
     1518   01 01163    75820000 A            STB,R8   0,X1              LOG MOST SIG. DIGIT
     1519   01 01164    20100002 A            AI,X1    2                 SET INDEX TO BYTE 0 OF NEXT ENTRB00
     1520   01 01165    35101167              STW,X1   ILEGALP           INCREMENT POINTER FOR NEXT TIME
     1521   01 01166    E8000006 A            B        *LINK             RETURN
     1522                            *
     1523                            *
1 C00   22:37 JUN 20,'83                       ILLEGAL INTERRUPT TABLE                            PAGE   20
A    1525                            *
     1526                            **********************************************************************
     1527                            * THE FOLLOWING TABLE CONTAINS SEQUENCE NUMBER AND LOCATION
     1528                            *          OF ALL ILLEGAL INTERRUPTS
     1529                            *                 BYTE 0            SEQUENCE NUMBER
     1530                            *                 BYTE 1            NOT USED
     1531                            *                 BYTES 2 AND 3     INTERRUPT LOCATION
     1532                            **********************************************************************
     1533                            *
     1534   01 01167    0000FC18     ILEGALP  DATA     BA(ILEGAL)        TABLE POINTER
     1535                            *
1 C00   22:37 JUN 20,'83                        JAM XPSDS ROUTINE                                 PAGE   21
A    1537                            *
     1538                            *************************************************************
     1539                            *  ROUTINE TO REFRESH FIRST PAGE OF MEMORY WITH XPSD'S
     1540                            *************************************************************
     1541                            *
     1542                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     1543                            *
     1544                            * EXIT WITH XPSD'S IN LOCATIONS X'10' THRU X'1FF'
     1545                            *
     1546                            ************************************************************
     1547                            *
     1548   01 01168                 JAMXPSDS RES      0
     1549   01 01168    02200000 A            LCI      0                 SAVE REGISTERS
     1550   01 01169    2B002ACC              STM,0    SAVE
     1551   01 0116A    22100010 A            LI,X1    X'10'             SET INDEX FOR FIRST LOCATION
     1552   01 0116B    227001F0 A            LI,X7    496               SET LOOP INDEX FOR NO. OF LOOPS
     1553   01 0116C    32802C74              LW,R8    XPSD#10           FIND FIRST XPSD
     1554   01 0116D    35820000 A            STW,R8   0,X1              JAM XPSD INTO POSSIBLE INT. LOC.
     1555   01 0116E    20800004 A            AI,R8    4                 INCREMENT XPSD REF. ADDRESS
     1556   01 0116F    20100001 A            AI,X1    1                 INCREMENT STORE ADDRESS
     1557   01 01170    6470116D              BDR,X7   %-3               LOOP IF NOT FINISHED
     1558                            *
     1559   01 01171    02200000 A            LCI      0                 RESTORE REGISTERS
     1560   01 01172    2A002ACC              LM,0     SAVE
     1561   01 01173    E8000006 A            B        *LINK             EXIT
     1562                            *
     1563                            *
     1564                            *
     1565                            *
1 C00   22:37 JUN 20,'83                        IMPLEMENTATION TEST                               PAGE   22
A    1567                            *
     1568                            *
     1569                            **********************************************************************
     1570                            *   I M P L E M E N T A T I O N    T E S T                           *
     1571                            **********************************************************************
     1572                            *                                                                    *
     1573                            *                                                                    *
     1574                            *  THIS TEST SELECTS ONE INTERRUPT LEVEL                             *
     1575                            *            ISSUES AN INTERRUPT CONTROL WRITE DIRECT COMMAND        *
     1576                            *                  (AS PER SUBTESTS BELOW)                           *
     1577                            *            CHECKS THE INTERRUPT STATES FOR THAT LEVEL              *
     1578                            *            REPEATS THE PROCESS FOR EACH SUBTEST                    *
     1579                            *            REPEATS THE SUBTEST GROUP FOR EACH LEVEL IN NUMERICAL   *
     1580                            *                                                       SEQUENCE.    *
     1581                            *                                                                    *
     1582                            *   SUBTEST NUMBERS RUN FROM 1 THRU 4B (HEX)                         *
     1583                            *                                                                    *
     1584                            *                                                                    *
     1585                            *  TEST NUMBERS RUN FROM 1100 TO 11FF                                *
     1586                            *             THE LAST TWO DIGITS REPRESENT THE GROUP # AND          *
     1587                            *             THE LEVEL # RESPECTIVELY, OF THE LEVEL TESTED          *
     1588                            *                                                                    *
     1589                            *  ALL LEVELS (INCLUDING THOSE NOT IMPLEMENTED) ARE TRIED            *
     1590                            *                                                                    *
     1591                            *  REGISTER USE:                                                     *
     1592                            *        X1 = TWO LEAST SIG. DIGITS OF TEST #                        *
     1593                            *        X7 = INDEX TO TEST MODULE (MOD#FFS)                         *
     1594                            *        X4 = SUBTEST NUMBER                                         *
     1595                            *        RB=  WRITE DIRECT COMMAND                                   *
     1596                            *        LOG= STATE OF FF'S AFTER WD COMMAND                         *
     1597                            *                                                                    *
     1598                            **********************************************************************
     1599                            *        RF  = STATE OF FF'S BEFORE WD COMMAND
     1600                            *
     1601                            *************************************
     1602                            *  ENTRY FROM PARAMETER LINE T      *
     1603                            *************************************
     1604                            *
     1605         01 01174           GOTST11  EQU      %
     1606   01 01174    02200000 A            LCI      0
     1607   01 01175    2A002605              LM,0     GOSAVE
     1608   01 01176    328003F2              LW,R8    TESTNO
     1609   01 01177    2180110E A            CI,R8    X'110E'
     1610   01 01178    683025D8              BE       INVALTST#         TEST # 110E NOT VALID
     1611   01 01179    2180110F A            CI,R8    X'110F'
     1612   01 0117A    683025D8              BE       INVALTST#         TEST # 110F NOT VALID
     1613   01 0117B    2580007C A            SLS,R8   -4
     1614   01 0117C    21800111 A            CI,R8    X'111'
     1615   01 0117D    683025D8              BE       INVALTST#         TEST #'S 111X NOT VALID
     1616   01 0117E    68001181              B        %+3
     1617                            *
     1618   01 0117F                 TST1100  RES      0                 IMPLEMENTATION TEST
     1619   01 0117F    22200000 A            LI,GRP   0                 INITIALIZE GROUP INDEX
     1620   01 01180    22300000 A            LI,LVL   0                 INITIALIZE LEVEL INDEX
     1621   01 01181    02200040 A            LCI      4
     1622   01 01182    2AC01437              LM,RC    MTW#52            SET UP COUNTERS AS SINGLE INST.
     1623   01 01183    2BC00052 A            STM,RC   X'52'            INTERRUPTS
     1624                            *
     1625                            **********************************************************************
     1626                            *
     1627                            *  ENTER HERE ONCE FOR FIRST SUBTEST, OF EACH LEVEL, OF
     1628                            *       EACH GROUP.  (17850 SUBTESTS)
     1629                            *
     1630                            **********************************************************************
     1631         01 01184           TST11A   EQU      %
     1632   01 01184    32100002 A            LW,X1    GRP               BUILD TEST NUMBER
     1633   01 01185    25100004 A            SLS,X1   4                         *
     1634   01 01186    30100003 A            AW,X1    LVL                       *
     1635   01 01187    22801100 A            LI,R8    X'1100'                   *
     1636   01 01188    30800001 A            AW,R8    X1                        *
     1637   01 01189    358003F2              STW,R8   TESTNO                    *
     1638   01 0118A    21200000 A            CI,GRP   0
     1639   01 0118B    6830118E              BE       %+3
     1640   01 0118C    22800040 A            LI,R8    X'40'
     1641   01 0118D    6800118F              B        %+2
     1642                            *
     1643   01 0118E    22800052 A            LI,R8    X'52'             CALCULATE LOCATION
     1644   01 0118F    30800001 A            AW,R8    X1                        *
     1645   01 01190    35802A62              STW,R8   LOCATION                  *
     1646   01 01191    32802A5B              LW,R8    HI%PRI%INT
     1647   01 01192    31800001 A            CW,R8    X1
     1648   01 01193    68301199              BE       %+6               BRANCH IF YES
     1649   01 01194    22800000 A            LI,R8    0                 RESET FLAG
     1650   01 01195    35802A8C              STW,R8   TESTHIGH                  *
     1651   01 01196    6A602881              BAL,LINK SETHIGH           DISABLE ALL INTERRUPTS
     1652   01 01197    6D000027 A            WD,0     X'27'
     1653   01 01198    6800119B              B        TST11B
     1654                            *
     1655                            *  ENTRY HERE MEANS THE HIGHEST OVERRIDE GROUP INTERRUPT IS BEING
     1656                            *        TESTED
     1657                            *
     1658   01 01199    228FFFFF A            LI,R8    -1                SET FLAG (TESTING HIGH PRI.)
     1659   01 0119A    35802A8C              STW,R8   TESTHIGH
     1660                            *                                     TO DISABLE INTERRUPTS
     1661         01 0119B           TST11B   EQU      %
     1662   01 0119B    226FFFFF A            LI,LINK  -1
     1663   01 0119C    35602A88              STW,LINK RETRY%FLAG        SET FLAG TO INDICATE NO RETRY
     1664   01 0119D    21100003 A            CI,X1    3
     1665   01 0119E    692011A1              BG       %+3               BRANCH IF NOT A COUNTER
     1666   01 0119F    22600000 A            LI,LINK  0
     1667   01 011A0    35622A84              STW,LINK PULSECNT,X1       SET PULSE COUNT TO ZERO
     1668                            *
     1669                            *
     1670   01 011A1    6A6026F9              BAL,LINK   RDSTATES        FIND PRESENT FF STATES
     1671                            *
     1672                            *
     1673   01 011A2    33002A8C              MTW,0    TESTHIGH
     1674   01 011A3    683011A7              BEZ      %+4
     1675   01 011A4    21600007 A            CI,LINK  7
     1676   01 011A5    693011A7              BNE      %+2
     1677   01 011A6    22600003 A            LI,LINK  3                 CORRECT READ ERROR
     1678                            *
     1679   01 011A7    3560000F A            STW,LINK  RF
     1680   01 011A8    F02003D8              LC       *#COCSTATE%
     1681   01 011A9    68C011AF              BCR,12   %+6               BRANCH IF COC IS NOT IN USE
     1682   01 011AA    312003F8              CW,GRP   COCGRP
     1683   01 011AB    693011AF              BNE      %+4               BRANCH IF NOT COC INT. GROUP
     1684   01 011AC    32862B36              LW,R8    LEVMASK,LVL
     1685   01 011AD    4B8003F9              AND,R8   COCMASK
     1686   01 011AE    683011DC              BCR,3    TST11E            SKIP TEST IF COC INTERRUPT LEVEL
     1687   01 011AF    328003F2              LW,R8    TESTNO            BUILD TEST NUMBER
     1688   01 011B0    4B802C97              AND,R8   XFF00                     *
     1689   01 011B1    30800003 A            AW,R8    LVL                       *
     1690   01 011B2    25200004 A            SLS,GRP  4                         *
     1691   01 011B3    30800002 A            AW,R8    GRP                       *
     1692   01 011B4    2520007C A            SLS,GRP  -4                        *
     1693   01 011B5    358003F2              STW,R8   TESTNO                    *
     1694   01 011B6    324003F3              LW,X4    PATTNO            SET TEST INDEX
     1695   01 011B7    52B8125E              LH,RB    WDCOMMAND,X4      SET WRITE DIRECT COMMAND IN REG. 11
     1696   01 011B8    6A6022B8              BAL,LINK INITHIST
     1697   01 011B9    32862B36     TST11RETRY LW,R8  LEVMASK,LVL       SELECT LEVEL TO BE TESTED
     1698                            *
     1699   01 011BA    2140004B A            CI,X4    X'4B'
     1700   01 011BB    693011BF              BNE      %+4
     1701   01 011BC    6D841100 A            WD,R8    DISARM,GRP        FORCE STATE TO DISARM(E)
     1702   01 011BD    6D841400 A            WD,R8    ENBL,GRP
     1703   01 011BE    22800000 A            LI,R8    0                 SUBTEST 4B- SET UP FOR DISABLE
     1704                            *                                   IF NOT SELECTED (WD1600)
     1705                            *
     1706   01 011BF    ED84000B A            WD,R8    *RB,GRP           SET LEVEL TO NEW STATE
     1707                            *
     1708                            *
     1709   01 011C0    70200392              LC       #SENSE            CHECK FOR SHORT LOOP
     1710   01 011C1    698011D6              BCS,8    TST11C            SKIP ERROR CHECK IF YES
     1711   01 011C2    6A6026F9              BAL,LINK RDSTATES
     1712   01 011C3    3560000A A            STW,LINK LOG               SAVE NEW STATE
     1713   01 011C4    3260000F A            LW,LINK  RF                SELECT POSSIBLE STATES
     1714   01 011C5    128C124E              LD,R8    NEWSTATE,LINK        BASED ON PREVIOUS STATE
     1715   01 011C6    3260000B A            LW,LINK  RB
     1716   01 011C7    25600078 A            SLS,LINK -8                SELECT EXPECTED STATE
     1717   01 011C8    4B602C87              AND,LINK XF                     BASED ON WD COMMAND
     1718   01 011C9    72DC0008 A            LB,RD    R8,LINK                   *
     1719   01 011CA    2140004B A            CI,X4    X'4B'
     1720   01 011CB    693011CD              BNE      %+2
     1721   01 011CC    22D00000 A            LI,RD    0                 EXPECTED STATE IS DISARM(D)
     1722   01 011CD    32622A84              LW,LINK  PULSECNT,X1       FIND IF AN INTERRUPT OCCURRED
     1723                            *
     1724                            *
     1725   01 011CE    31D0000A A            CW,RD    LOG               IS IT IN THE EXPECTED STATE
     1726   01 011CF    693011F0              BNE      TST11G            BRANCH IF NO
     1727                            *
     1728                            *
     1729   01 011D0    21A00007 A            CI,LOG   7
     1730   01 011D1    683011D6              BE       TST11C            BRANCH IF UNIMPLEMENTED
     1731   01 011D2    52842ABE              LH,R8    LEVIMPL,GRP       FIND IMPLEMENTED LEVELS
     1732   01 011D3    49862B36              OR,R8    LEVMASK,LVL       SET THIS LEVEL AS IMPLEMENTED
     1733   01 011D4    55842ABE              STH,R8   LEVIMPL,GRP
     1734   01 011D5    6A602277              BAL,LINK IMP@EBC           SET I PARAMETER LINE
     1735                            *
     1736                            *  CHECK FOR LONG LOOP OR USER KEYIN
     1737                            *
     1738   01 011D6    6A601D06     TST11C   BAL,LINK   CHK:LOOP
     1739   01 011D7    68001203              B        TST11I#1          LOOP RETURN
     1740                            *
     1741                            *  ENTER HERE AFTER EACH SUBTEST IS COMPLETED
     1742                            *
     1743   01 011D8    2140004B A   TST11D    CI,X4   X'4B'             WAS LAST MODULE TESTED
     1744   01 011D9    681011DC              BGE      TST11E            BRANCH IF YES
     1745   01 011DA    331003F3              MTW,1    PATTNO            INCREMENT SUBTEST COUNT
     1746   01 011DB    6800119B              B        TST11B            DO NEXT SUBTEST
     1747                            *
     1748                            *  ENTER HERE AFTER EACH LEVEL (ALL SUBTESTS) IS TESTED
     1749                            *
     1750   01 011DC    21200000 A   TST11E   CI,GRP   0
     1751   01 011DD    693011E1              BNE      %+4
     1752   01 011DE    2130000D A            CI,LVL   13                WAS LAST GROUP 0 LEVEL TESTED
     1753   01 011DF    681011E7              BGE      TST11F            BRANCH IF YES
     1754   01 011E0    680011E3              B        %+3
     1755   01 011E1    2130000F A            CI,LVL   X'F'              WAS LAST LEVEL TESTED
     1756   01 011E2    681011E7              BGE      TST11F            BRANCH IF YES
     1757   01 011E3    20300001 A            AI,LVL   1                 INCREMENT LEVEL INDEX
     1758   01 011E4    22400001 A            LI,X4    1
     1759   01 011E5    354003F3              STW,X4   PATTNO
     1760   01 011E6    68001184              B        TST11A            TEST NEXT LEVEL
     1761                            *
     1762                            *  ENTER HERE AFTER EACH GROUP IS TESTED (ALL LEVELS)
     1763                            *
     1764   01 011E7    2120000F A   TST11F   CI,GRP   X'F'              WAS LAST GROUP TESTED
     1765   01 011E8    68101245              BGE      TST11X            EXIT TO NEXT TEST IF YES
     1766   01 011E9    21200000 A            CI,GRP   0                 WAS IT GROUP ZERO
     1767   01 011EA    693011EC              BNEZ     %+2               BRANCH IF NO
     1768   01 011EB    20200001 A            AI,GRP   1                 SKIP NONEXIST. GROUP #1
     1769   01 011EC    20200001 A            AI,GRP   1                 SELECT NEXT GROUP
     1770   01 011ED    22300000 A            LI,LVL   0                 INITIALIZE LEVEL INDEX
     1771   01 011EE    353003F3              STW,LVL  PATTNO
     1772   01 011EF    68001184              B        TST11A            TEST NEXT GROUP
     1773                            *
     1774                            *  ENTER HERE WHEN A POSSIBLE ERROR HAS BEEN DETECTED
     1775                            *
     1776         01 011F0           TST11G   EQU      %
     1777   01 011F0    52842ABE              LH,R8    LEVIMPL,GRP       IS LEVEL IMPLEMENTED
     1778   01 011F1    4B862B36              AND,R8   LEVMASK,LVL
     1779   01 011F2    693011FC              BNEZ     TST11I            BRANCH IF YES
     1780   01 011F3    21A00007 A            CI,LOG   7                 DID STATE INDICATE NOT IMPLEM.
     1781   01 011F4    683011D6              BE       TST11C            NO ERROR IF YES
     1782   01 011F5    52842ABE              LH,R8    LEVIMPL,GRP       FIND IMPLEMENTED LEVELS
     1783   01 011F6    49862B36              OR,R8    LEVMASK,LVL       SET THIS LEVEL AS IMPLEMENTED
     1784   01 011F7    55842ABE              STH,R8   LEVIMPL,GRP
     1785   01 011F8    6A602277              BAL,LINK IMP@EBC           SET I PARAMETER LINE
     1786   01 011F9    22C000B4 A   TST11H   LI,RC    X'B4'             SET ERROR TYPE (PREVIOUSLY UNIMP.)
     1787   01 011FA    22D00007 A            LI,RD    7
     1788   01 011FB    6A6020A0              BAL,LINK   EROR            DISPLAY ERROR
     1789                            *
     1790         01 011FC           TST11I   EQU      %
     1791   01 011FC    21100003 A            CI,X1    3
     1792   01 011FD    6920122D              BG       TST11K            DISPLAY ERROR IF THIS WAS NOT CNTR
     1793                            *
     1794                            *  ENTRY HERE MEANS THE ERROR COULD HAVE BEEN DUE TO A COUNTER
     1795                            *     PULSE INTERRUPT FROM A REAL TIME CLOCK
     1796                            *
     1797   01 011FE    33102A88              MTW,1    RETRY%FLAG
     1798   01 011FF    68301203              BEZ      TST11I#1          TRY AGAIN IF NOT RETRY
     1799                            *
     1800   01 01200    33002A8C              MTW,0    TESTHIGH
     1801   01 01201    6930121E              BNEZ     TST11J            BRANCH IF TESTING HIGHEST PRI. LVL.
     1802   01 01202    6800122D              B        TST11K            MUST BE AN ERROR
     1803                            *
     1804         01 01203           TST11I#1  EQU     %
     1805                            *
     1806                            *  RE-ESTABLISH ORIGINAL CONDITIONS AND TRY AGAIN BUT FIRST DELAY
     1807                            *      UNTIL THE COUNTER TICKS
     1808                            *
     1809   01 01203    33002A8C              MTW,0    TESTHIGH
     1810   01 01204    69301208              BNEZ     %+4               BRANCH IF TESTING HI PRI. INT.
     1811   01 01205    32602A5B              LW,LINK  HI%PRI%INT
     1812   01 01206    326C2B36              LW,LINK  LEVMASK,LINK
     1813   01 01207    6D601100 A            WD,LINK  DISARM            DISARM HIGH PRI. INT
     1814                            *
     1815   01 01208    21200000 A            CI,GRP   0
     1816   01 01209    69301214              BNE      TST11I#2          BRANCH IF NOT GROUP 0
     1817   01 0120A    21300003 A            CI,LVL   3
     1818   01 0120B    69201214              BG       TST11I#2          BRANCH IF NOT A COUNT PLS.
     1819   01 0120C    225036B0 A            LI,X5    14000
     1820   01 0120D    226FFFFE A            LI,LINK  -2
     1821   01 0120E    35622A84              STW,LINK PULSECNT,X1       INITIALIZE COUNT
     1822   01 0120F    6D801200 A            WD,R8    ARME              START IT COUNTING
     1823   01 01210    32622A84              LW,LINK  PULSECNT,X1
     1824   01 01211    68301214              BEZ      %+3               EXIT IF COUNTED UP TO ZERO
     1825   01 01212    64501210              BDR,X5   %-2               LOOP FOR UP TO 20 MS.
     1826   01 01213    680011FC              B        TST11I
     1827                            *
     1828         01 01214           TST11I#2  EQU     %
     1829   01 01214    3260000F A            LW,LINK  RF                FIND ORIGINAL STATE AND
     1830   01 01215    680C1216              B        %+1,LINK              RESET IT TO:
     1831   01 01216    68001233              B        TST11L                    DIS(D)
     1832   01 01217    68001236              B        TST11M                    DIS(E)
     1833   01 01218    68001234              B        TST11L+1                  ARM(D)
     1834   01 01219    6800123E              B        TST11R                    ARM(E)
     1835   01 0121A    68001238              B        TST11N                    ACT(D)
     1836   01 0121B    68001239              B        TST11N+1                  ACT(E)
     1837   01 0121C    6800123B              B        TST11P                    WAIT(D)
     1838   01 0121D    6800123C              B        TST11P+1                  WAIT(E)
     1839                            *
     1840         01 0121E           TST11J   EQU      %
     1841                            *
     1842                            *        ENTRY HERE IS ERROR UNLESS:
     1843                            *                 THE LEVEL UNDER TEST IS HIGHEST IMPL. LEVEL
     1844                            *                 THE NEW STATE IS ARMED AND ENABLED
     1845                            *                    AND
     1846                            *                       (A) THE OLDSTATE WAS ARMED AND ENABLED (3)
     1847                            *                           THE COMMAND WAS TRIGGER (X'1700')
     1848                            *                                   OR
     1849                            *                       (B) THE OLDSTATE WAS WAITING / DISABLED
     1850                            *                           THE COMMAND WAS ENABLE (X'1400' OR X'1600')
     1851                            *
     1852   01 0121E    3280000F A            LW,R8    RF
     1853   01 0121F    21800003 A            CI,R8    3
     1854   01 01220    69301224              BNE      %+4               BRANCH IF NOT CASE (A)
     1855   01 01221    21B01700 A            CI,RB    X'1700'
     1856   01 01222    6930122D              BNE      TST11K            ERROR IF NOT TRIG.
     1857   01 01223    6800122A              B        %+7
     1858                            *
     1859                            *
     1860   01 01224    21800006 A            CI,R8    6
     1861   01 01225    6930122D              BNE      TST11K            ERROR IF NOT WAITING/DISABLED
     1862   01 01226    21B01400 A            CI,RB    X'1400'
     1863   01 01227    6830122A              BE       %+3               OK IF COMMAND IS ENABLE
     1864   01 01228    21B01600 A            CI,RB    X'1600'
     1865   01 01229    6930122D              BNE      TST11K            ERROR IF COMMAND IS NOT ENABLE
     1866   01 0122A    21A00003 A            CI,LOG   3
     1867   01 0122B    683011D6              BE       TST11C            OK IF NOW ARMED/ENABLED
     1868   01 0122C    22D00003 A            LI,RD    3
     1869                            *
     1870                            *
     1871         01 0122D           TST11K   EQU      %
     1872   01 0122D    22C000B1 A            LI,RC    X'B1'             SET ERROR TYPE (WRONG STATE)
     1873   01 0122E    2140004B A            CI,X4    X'4B'
     1874   01 0122F    69301231              BNE      %+2               BRANCH IF NOT SUBTEST 4B
     1875   01 01230    22F00001 A            LI,RF    1                 SET PREV. STATE AS DISARM(E)
     1876   01 01231    6A6020A0              BAL,LINK   EROR            DISPLAY ERROR
     1877   01 01232    680011D6              B        TST11C
     1878                            *
     1879   01 01233    6D801100 A   TST11L   WD,R8    DISARM
     1880   01 01234    6D801500 A            WD,R8    DISABLE
     1881   01 01235    6800123E              B        TST11R
     1882   01 01236    6D801100 A   TST11M   WD,R8    DISARM
     1883   01 01237    6800123E              B        TST11R
     1884   01 01238    6D801500 A   TST11N   WD,R8    DISABLE
     1885   01 01239    6D801000 A            WD,R8    ACTIVATE
     1886   01 0123A    6800123E              B        TST11R
     1887   01 0123B    6D801500 A   TST11P   WD,R8    DISABLE
     1888   01 0123C    6D801700 A            WD,R8    TRIG
     1889   01 0123D    6800123E              B        TST11R
     1890                            *
     1891   01 0123E    33002A8C     TST11R   MTW,0    TESTHIGH
     1892   01 0123F    693011B9              BNEZ     TST11RETRY        BRANCH IF TESTING HI PRI. INT.
     1893   01 01240    32602A5B              LW,LINK  HI%PRI%INT        SET HIGH PRI INT TO ACTIVE
     1894   01 01241    326C2B36              LW,LINK  LEVMASK,LINK              *
     1895   01 01242    6D601300 A            WD,LINK  ARMD                      *
     1896   01 01243    6D601000 A            WD,LINK  ACTIVATE                  *
     1897   01 01244    680011B9              B        TST11RETRY
     1898                            *
     1899                            *
     1900                            *
     1901                            **********************************************************************
     1902                            *  ENTER HERE AFTER EACH PASS OF TEST 11 IS COMPLETE
     1903                            **********************************************************************
     1904                            *
     1905   01 01245    32802AC6     TST11X   LW,R8    IMPLFLAG          WAS IMPLEMENTATION KEYED IN
     1906   01 01246    69301289              BNEZ     TST1200           BRANCH IF YES
     1907   01 01247    33102AC6              MTW,1    IMPLFLAG          NO,  SET FLAG
     1908                            *
     1909                            **********************************************************************
     1910                            * ENTRY HERE INDICATES THERE WAS NO KEYIN OF IMPLEMENTATION INFORMATION
     1911                            *   AND THEREFORE A DISPLAY OF ASSUMED IMPLEMENTATION IS NEEDED
     1912                            **********************************************************************
     1913   01 01248    22800000 A            LI,R8    0
     1914   01 01249    35802AC9              STW,R8   GRPIMPL           INITIALIZE GROUP IMPL. LOG
     1915   01 0124A    6A601F81              BAL,LINK DISIMP            DISPLAY IMPLEMENTATION OF ALL GROUPS
     1916   01 0124B    6A602719              BAL,LINK READIMP           SET UP ACCESS TABLE
     1917   01 0124C    68001289              B        TST1200           EXIT TO NEXT TEST
     1918                            *
     1919                            *        DATA     X'FBFCF7FC',X'EFFCDFFC',X'BFFC7FFC'
     1920                            *
1 C00   22:37 JUN 20,'83                        IMPLEMENTATION TEST                               PAGE   23
A    1922                            *
     1923                                     BOUND    8
     1924                            *
     1925                            *        THE FOLLOWING TABLE CONTAINS THE EXPECTED STATE FOR EACH
     1926                            *        POSSIBLE PREVIOUS STATE (AS 8 BYTE VALUES)
     1927                            *
     1928                            * PREVIOUS                  EXPECTED STATE
     1929                            *  STATE    *****************************************************
     1930                            *          ACTIVATE     ARME      ENBL      ENBL-SEL
     1931                            *                 DISARM     ARMD    DISABLE         TRIG
     1932                            *
     1933                            *   0         0     0    3    2    1    0     1       0
     1934                            *   1         1     1    3    2    1    0     1       1
     1935                            *   2         4     0    3    2    3    2     3       6
     1936                            *   3         5     1    3    2    3    2     3       7
     1937                            *   4         0     0    3    2    5    4     5       4
     1938                            *   5         5     1    3    2    5    4     5       5
     1939                            *   6         4     0    3    2    7    6     7       6
     1940                            *   7         5     1    3    2    7    6     7       7
     1941                            * COMMAND    1000  1100 1200 1300 1400 1500 1600     1700
     1942                            *
     1943                            *
     1944         01 0124E           NEWSTATE EQU      %                      PREVIOUS
     1945                            *                                         STATE
     1946   01 0124E    00000302 A            DATA     X'302',X'1000100'         0   DIS(D)
            01 0124F    01000100 A
     1947   01 01250    01010302 A            DATA     X'1010302',X'1000101'     1   DIS(E)
            01 01251    01000101 A
     1948   01 01252    04000302 A            DATA     X'4000302',X'3020306'     2   ARM(D)
            01 01253    03020306 A
     1949   01 01254    05010302 A            DATA     X'5010302',X'3020307'     3   ARM(E)
            01 01255    03020307 A
     1950   01 01256    00000302 A            DATA     X'302',X'5040504'         4   ACT(D)
            01 01257    05040504 A
     1951   01 01258    05010302 A            DATA     X'5010302',X'5040505'     5   ACT(E)
            01 01259    05040505 A
     1952   01 0125A    04000302 A            DATA     X'4000302',X'7060706'     6   WAIT(D)
            01 0125B    07060706 A
     1953   01 0125C    05010302 A            DATA     X'5010302',X'7060707'     7   WAIT(E) OR NONIMPL.
            01 0125D    07060707 A
     1954                            *
     1955                            *
     1956                            *
     1957         01 0125E           WDCOMMAND  EQU    %
     1958                            *            1     2      3      4    5    6     7         SUBTEST NBR.
     1959   01 0125E    0000     A    DATA,2  0,ARME,DISARM,DISABLE,ENBL,ARMD,TRIG,ACTIVATE           0- 7
            01 0125E 2  1200     A
            01 0125F    1100     A
            01 0125F 2  1500     A
            01 01260    1400     A
            01 01260 2  1300     A
            01 01261    1700     A
            01 01261 2  1000     A
     1960                            *          8     9     A    B    C     D     E      F
     1961   01 01262    1400     A    DATA,2  ENBL,DISARM,ARME,TRIG,TRIG,ENBLDIS,ENBL,DISABLE         8- F
            01 01262 2  1100     A
            01 01263    1200     A
            01 01263 2  1700     A
            01 01264    1700     A
            01 01264 2  1600     A
            01 01265    1400     A
            01 01265 2  1500     A
     1962                            *           10    11      12    13      14    15     16    17
     1963   01 01266    1700     A    DATA,2  TRIG,ENBLDIS,DISABLE,ENBL,ACTIVATE,ENBL,DISABLE,ARME   10-17
            01 01266 2  1600     A
            01 01267    1500     A
            01 01267 2  1400     A
            01 01268    1000     A
            01 01268 2  1400     A
            01 01269    1500     A
            01 01269 2  1200     A
     1964                            *          18    19     1A      1B    1C    1D       1E     1F
     1965   01 0126A    1300     A    DATA,2  ARMD,DISARM,DISABLE,ENBLDIS,TRIG,DISARM,ACTIVATE,TRIG  18-1F
            01 0126A 2  1100     A
            01 0126B    1500     A
            01 0126B 2  1600     A
            01 0126C    1700     A
            01 0126C 2  1100     A
            01 0126D    1000     A
            01 0126D 2  1700     A
     1966                            *          20    21        22   23     24       25    26    27
     1967   01 0126E    1200     A    DATA,2  ARME,DISABLE,ACTIVATE,TRIG,ENBLDIS,ACTIVATE,ARMD,ARME  20-27
            01 0126E 2  1500     A
            01 0126F    1000     A
            01 0126F 2  1700     A
            01 01270    1600     A
            01 01270 2  1000     A
            01 01271    1300     A
            01 01271 2  1200     A
     1968                            *          28    29       2A      2B   2C    2D    2E     2F
     1969   01 01272    1400     A    DATA,2  ENBL,ACTIVATE,ENBLDIS,DISARM,ENBL,ARME,ENBLDIS,TRIG    28-2F
            01 01272 2  1000     A
            01 01273    1600     A
            01 01273 2  1100     A
            01 01274    1400     A
            01 01274 2  1200     A
            01 01275    1600     A
            01 01275 2  1700     A
     1970                            *         30     31     32   33        34    35    36     37
     1971   01 01276    1300     A    DATA,2  ARMD,DISABLE,TRIG,DISARM,ACTIVATE,ARMD,ENBLDIS,TRIG    30-37
            01 01276 2  1500     A
            01 01277    1700     A
            01 01277 2  1100     A
            01 01278    1000     A
            01 01278 2  1300     A
            01 01279    1600     A
            01 01279 2  1700     A
     1972                            *          38      39       3A   3B    3C  3D    3E    3F
     1973   01 0127A    1100     A    DATA,2  DISARM,ENBLDIS,DISABLE,TRIG,ARMD,ARMD,TRIG,ARME        38-3F
            01 0127A 2  1600     A
            01 0127B    1500     A
            01 0127B 2  1700     A
            01 0127C    1300     A
            01 0127C 2  1300     A
            01 0127D    1700     A
            01 0127D 2  1200     A
     1974                            *          40  41   42   43    44       45       46      47
     1975   01 0127E    1200     A    DATA,2  ARME,TRIG,ARME,ARMD,DISARM,ACTIVATE,ACTIVATE,DISARM    40-47
            01 0127E 2  1700     A
            01 0127F    1200     A
            01 0127F 2  1300     A
            01 01280    1100     A
            01 01280 2  1000     A
            01 01281    1000     A
            01 01281 2  1100     A
     1976                            **         48   49   4A   4B
     1977   01 01282    1300     A    DATA,2  ARMD,TRIG,ARMD,ENBLDIS                                 48-4B
            01 01282 2  1700     A
            01 01283    1300     A
            01 01283 2  1600     A
1 C00   22:37 JUN 20,'83                       PRIORITY CHECK TEST                                PAGE   24
A    1979                            *
     1980                            *
     1981                            **********************************************************************
     1982                            *                                                                    *
     1983                            *   THIS TEST ARMS,ENABLES,AND TRIGGERS THE HIGHEST PRIORITY         *
     1984                            *       IMPLEMENTED LEVEL WITHIN EACH GROUP AND RECORDS THE ORDER OF *
     1985                            *       OCCURRANCE FOR USE AS THE ASSUMED PRIORITY.                  *
     1986                            *                                                                    *
     1987                            **********************************************************************
     1988                            *
     1989                            *************************************
     1990                            *  ENTRY FROM PARAMETER LINE T      *
     1991                            *************************************
     1992                            *
     1993   01 01284                 GOTST12  RES      0
     1994   01 01284    328003F2              LW,R8    TESTNO
     1995   01 01285    21801201 A            CI,R8    X'1201'
     1996   01 01286    693025D8              BNE      INVALTST#
     1997   01 01287    22800000 A            LI,R8    0
     1998   01 01288    35802AC8              STW,R8   PRIFLAG
     1999                            *
     2000   01 01289                 TST1200  RES      0
     2001                            *
     2002   01 01289    6D000037 A            WD,0     X'37'             INHIBIT INTS.
     2003   01 0128A    32802AC8              LW,R8    PRIFLAG           IS TEST REQUIRED
     2004   01 0128B    6930132B              BNEZ     TST12#X           BRANCH IF NO
     2005   01 0128C    6A6022C6              BAL,LINK INITTAB
     2006   01 0128D    6A601168              BAL,LINK JAMXPSDS          INITIALIZE INT. LOCATIONS
     2007   01 0128E    22801201 A            LI,R8    X'1201'
     2008   01 0128F    358003F2              STW,R8   TESTNO
     2009   01 01290    22200000 A            LI,GRP   0
     2010   01 01291    22300000 A            LI,LVL   0
     2011   01 01292    228012EC              LI,R8    TST12#R           FIND EXPECTED INTERRUPT ADDRESS
     2012   01 01293    35802A90              STW,R8   INTEPSD
     2013   01 01294    22900001 A            LI,R9    1
     2014   01 01295    359003F3              STW,R9   PATTNO
     2015   01 01296    52902ABE              LH,R9    LEVIMPL           FIND GROUP 0 IMPLEMENTATION
     2016   01 01297    4A902B33              LS,R9    GRP#CNTR          FIND COUNTER GROUP IMPL.
     2017   01 01298    25900010 A            SLS,R9   16
     2018   01 01299    25900001 A   TST12#A  SLS,R9   1                 LOOK FOR HIGHEST PRI. IN GROUP
     2019   01 0129A    698012A6              BC       TST12#A1          BRANCH WHEN FOUND
     2020   01 0129B    20300001 A            AI,LVL   1
     2021   01 0129C    21300009 A            CI,LVL   9                 CHECK FOR END OF GROUP
     2022   01 0129D    68201299              BLE      TST12#A           LOOP UNTIL FOUND
     2023   01 0129E    6A602809              #PRINT,1,1 ERRORMSG,C2
            01 0129F    EA6003CD
            01 012A0    0160C2CC A
            01 012A1    6A602832
     2024   01 012A2    6A602809              #PRINT,1,1 NO%COUNTERS
            01 012A3    EA6003CD
            01 012A4    0160CBFD A
            01 012A5    6A602832
     2025                            *
     2026   01 012A6    32862B36     TST12#A1 LW,R8    LEVMASK,LVL       LOG CNTR ZERO LEVEL AS IMPLEMENTED
     2027   01 012A7    55802A96              STH,R8   LEVARMD
     2028   01 012A8    22300000 A            LI,LVL   0
     2029   01 012A9    52902ABE              LH,R9    LEVIMPL           FIND GROUP 0 IMPLEMENTATION
     2030   01 012AA    4A902B34              LS,R9    GRP#IO            FIND I/O GROUP IMPLEMENTATION
     2031   01 012AB    25900010 A            SLS,R9   16
     2032   01 012AC    25900001 A   TST12#B  SLS,R9   1                 LOOK FOR HIGHEST PRI. IN GROUP
     2033   01 012AD    698012B9              BC       TST12#B1          BRANCH WHEN FOUND
     2034   01 012AE    20300001 A            AI,LVL   1
     2035   01 012AF    2130000D A            CI,LVL   13                CHECK FOR END OF GROUP
     2036   01 012B0    682012AC              BLE      TST12#B           LOOP UNTIL FOUND
     2037   01 012B1    6A602809              #PRINT,1,1 ERRORMSG,C2
            01 012B2    EA6003CD
            01 012B3    0160C2CC A
            01 012B4    6A602832
     2038   01 012B5    6A602809              #PRINT,1,1 NO%IO
            01 012B6    EA6003CD
            01 012B7    0160CC04 A
            01 012B8    6A602832
     2039                            *
     2040   01 012B9    52802A96     TST12#B1 LH,R8    LEVARMD           PICK UP COUNTER ZERO LEVEL
     2041   01 012BA    49862B36              OR,R8    LEVMASK,LVL
     2042   01 012BB    55802A96              STH,R8   LEVARMD              AND ADD I/O HIGH LEVEL
     2043   01 012BC    22200002 A            LI,GRP   2                 CHECK GROUP 2
     2044   01 012BD    22300000 A   TST12#C  LI,LVL   0
     2045   01 012BE    52942ABE              LH,R9    LEVIMPL,GRP       FIND LEVELS IMPLEMENTED
     2046   01 012BF    683012CD              BEZ      TST12#E           BRANCH IF NO
     2047   01 012C0    F02003D8              LC       *#COCSTATE%
     2048   01 012C1    68C012C6              BCR,12   %+5               BRANCH IF COC IS NOT IN USE
     2049   01 012C2    312003F8              CW,GRP   COCGRP
     2050   01 012C3    693012C6              BNE      %+3               BRANCH IF NOT COC INT. GROUP
     2051   01 012C4    4B9003F9              AND,R9   COCMASK
     2052   01 012C5    683012CD              BEZ      TST12#E           SKIP TEST IF COC INTERRUPT LEVEL
     2053   01 012C6    25900010 A            SLS,R9   16                LEFT JUSTIFY GROUP
     2054   01 012C7    25900001 A   TST12#D  SLS,R9   1                 LOOK FOR HIGHEST PRIORITY LEVEL
     2055   01 012C8    698012CB              BC       %+3               BRANCH WHEN FOUND
     2056   01 012C9    20300001 A            AI,LVL   1
     2057   01 012CA    680012C7              B        TST12#D           LOOP UNTIL FOUND
     2058   01 012CB    32862B36              LW,R8    LEVMASK,LVL
     2059   01 012CC    55842A96              STH,R8   LEVARMD,GRP       SET INTERRUPT PATTERN
     2060   01 012CD    20200001 A   TST12#E  AI,GRP   1
     2061   01 012CE    21200010 A            CI,GRP   16                IS LAST GROUP CHECKED
     2062   01 012CF    691012BD              BL       TST12#C           LOOP IF NO
     2063                            *
     2064                            **********************************************************************
     2065                            *  ARMING PATTERNS HAVE BEEN SELECTED- COPY THEM FOR TRIG. AND ENABLE*
     2066                            **********************************************************************
     2067                            *
     2068   01 012D0    22700008 A            LI,X7    8
     2069   01 012D1    328E2A95              LW,R8    LEVARMD-1,X7
     2070   01 012D2    358E2A9D              STW,R8   LEVENBL-1,X7
     2071   01 012D3    358E2AA5              STW,R8   LEVTRIG-1,X7
     2072   01 012D4    358E2AAD              STW,R8   LEVEXP-1,X7
     2073   01 012D5    647012D1              BDR,X7   %-4
     2074   01 012D6    02000000 A            NOP
     2075   01 012D7    02000000 A            NOP
     2076   01 012D8    02000000 A            NOP
     2077                            **********************************************************************
     2078                            *  INITIALIZE FOR INTERRUPTS
     2079                            **********************************************************************
     2080   01 012D9    6A6022B8              BAL,LINK INITHIST          INITIALIZE HISTORY TABLE
     2081   01 012DA    6A6022CF              BAL,LINK INITPSD           INITIALIZE PSD TABLE
     2082   01 012DB    6A60274D              BAL,LINK READSEQ           LOAD EXP. INFO INTO HIST. TABLE
     2083                            *
     2084   01 012DC    22109DEC              LI,X1    BA(SEQCOM+15)     INITIALIZE PRIORITIES
     2085   01 012DD    22800010 A            LI,R8    16                        *
     2086   01 012DE    75820000 A            STB,R8   0,X1                      *
     2087   01 012DF    201FFFFC A            AI,X1    -4                        *
     2088   01 012E0    648012DE              BDR,R8   %-2                       *
     2089                            *
     2090   01 012E1    6A602881              BAL,LINK SETHIGH           SET HIGH PRI. INT. TO ACTIVE
     2091   01 012E2    6D000027 A            WD,0     X'27'             CLEAR INT. INHIBITS
     2092   01 012E3    6A6028D6              BAL,LINK SETPATT           ARM,ENABLE, AND TRIGGER
     2093   01 012E4    228012EC              LI,R8    TST12#R           SET UP RETURN ADDRESS
     2094   01 012E5    35802A4E              STW,R8   CURPSD
     2095   01 012E6    22800011 A            LI,R8    17
     2096   01 012E7    35802A95              STW,R8   WAITCNT           SET VALUE OF DELAY
     2097   01 012E8    02200000 A            LCI      0
     2098   01 012E9    2B002B0C              STM,0    SAVE#4
     2099   01 012EA    2A002C5E              LM,0     REGXPSDS          SET XPSD'S IN ALL REGISTERS
     2100   01 012EB    0E202A4E              LPSD,2   CURPSD            RELEASE HIGH PRIORITY INT.
     2101                            *
     2102                            **********************************************************************
     2103                            * ALL INTERRUPTS MUST OCCUR DURING THE FOLLOWING DELAY
     2104                            **********************************************************************
     2105                            *
     2106   01 012EC    33F02A95     TST12#R  MTW,-1   WAITCNT
     2107   01 012ED    692012EC              BGZ      %-1
     2108                            *
     2109                            *    FALL THRU WHEN NO MORE INTERRUPTS
     2110                            *
     2111   01 012EE    6A602881              BAL,LINK SETHIGH           DISABLE FURTHER INTERRUPTS
     2112   01 012EF    02200000 A            LCI      0
     2113   01 012F0    2A002B0C              LM,0     SAVE#4            RESTORE REGISTERS
     2114   01 012F1    6A601CDF              BAL,LINK CHKALL            CHECK IF ALL INTS. OCCURRED
     2115   01 012F2    32802A89              LW,R8    SEQCNT
     2116   01 012F3    31802A5A              CW,R8    EXPSEQCT
     2117   01 012F4    683012F8              BE       %+4               BRANCH IF ALL OCCURRED
     2118   01 012F5    33102A46              MTW,1    ABORTFLAG         INHIBIT RUNNING NEXT TEST
     2119   01 012F6    22C000F1 A            LI,RC    X'F1'
     2120   01 012F7    6A6020A0              BAL,LINK EROR              INDICATE 'SEQUENCE ERROR'
     2121   01 012F8    22800000 A            LI,R8    0
     2122   01 012F9    22100010 A            LI,X1    16
     2123   01 012FA    22600000 A            LI,LINK  0
     2124   01 012FB    758C276C              STB,R8   SEQCOM,LINK       ZERO OUT OLD PRIORITIES
     2125   01 012FC    20600004 A            AI,LINK  4
     2126   01 012FD    641012FB              BDR,X1   %-2                       *
     2127   01 012FE    22100001 A            LI,X1    1                 START SEARCH AT PRI. 1
     2128                            *
     2129                            *  SET UP ASSUMED PRIORITY
     2130                            *
     2131   01 012FF    2240F463              LI,X4    BA(HISTORY)+3     START SEARCH AT TOP OF TABLE
     2132                            *
     2133   01 01300    72880000 A   TST12#F  LB,R8    0,X4              FIND ACTUAL SEQ. OF ONE ENTRY
     2134   01 01301    31800001 A            CW,R8    X1                DOES PRIORITY MATCH
     2135   01 01302    68301307              BE       %+5               BRANCH IF YES
     2136                            *
     2137   01 01303    20400008 A            AI,X4    8
     2138   01 01304    2140FBD0              CI,X4    BA(HISTORYEND)    IS IT TABLE END
     2139   01 01305    68201300              BLE      TST12#F           LOOP IF NO
     2140   01 01306    68001319              B        TST12#J           DISPLAY RESULTS IF YES
     2141                            *
     2142                            *  ENTER HERE WHEN NEXT PRIORITY HAS BEEN FOUND
     2143                            *
     2144   01 01307    20400001 A            AI,X4    1
     2145   01 01308    72280000 A            LB,GRP   0,X4              FIND GROUP# AND LEVEL#
     2146   01 01309    2520017C A            SLD,GRP  -4                MOVE LEVEL# INTO LVL REG.
     2147   01 0130A    21200000 A            CI,GRP   0                 IS IT GROUP 0
     2148   01 0130B    68301310              BEZ      %+5               BRANCH IF YES
     2149   01 0130C    3294276C              LW,R9    SEQCOM,GRP
     2150   01 0130D    75800009 A            STB,R8   R9
     2151   01 0130E    3594276C              STW,R9   SEQCOM,GRP
     2152   01 0130F    68001316              B        TST12#H
     2153                            *
     2154                            **********************************************************************
     2155                            *  ENTRY HERE INDICATES ONE OF THE ZERO GROUPS
     2156                            **********************************************************************
     2157                            *
     2158   01 01310    25300064 A            SLS,LVL  -28               RIGHT JUSTIFY LEVEL#
     2159   01 01311    2130000A A            CI,LVL   10                IS IT THE I/O GROUP
     2160   01 01312    68101315              BGE      %+3               BRANCH IF YES
     2161   01 01313    7580276C              STB,R8   SEQCOM            NO, PRIORITY TO COUNTER GROUP
     2162   01 01314    68001316              B        TST12#H
     2163                            *
     2164   01 01315    7580276D              STB,R8   SEQCOM+1          PRIORITY TO I/O GROUP
     2165   01 01316    20100001 A   TST12#H  AI,X1    1
     2166   01 01317    21100010 A            CI,X1    16                HAVE ALL PRI. BEEN FOUND
     2167   01 01318    682012FF              BLE      TST12#F-1         LOOP IF NO
     2168         01 01319           TST12#J  EQU      %
     2169   01 01319    6A60267F              BAL,LINK PRI@EBC           SET UP FOR PRIORITY DISPLAY
     2170   01 0131A    6A602809              #PRINT,1,1 CONFIG,C2
            01 0131B    EA6003CD
            01 0131C    0160C140 A
            01 0131D    6A602832
     2171   01 0131E    6A602809              #PRINT,1,1 PRIHD#1,C1
            01 0131F    EA6003CD
            01 01320    0160C3E8 A
            01 01321    6A602832
     2172   01 01322    6A602809              #PRINT,1,1 PRIHD#2
            01 01323    EA6003CD
            01 01324    0160C40C A
            01 01325    6A602832
     2173   01 01326    6A602809              #PRINT   PLINE#P
            01 01327    EA6003CD
            01 01328    C00094F0 A
            01 01329    6A602832
     2174   01 0132A    6800132B              B        TST12#X           GO TO NEXT TEST
     2175                            *
     2176                            **********************************************************************
     2177                            *  ENTER HERE IF PRIORITY ESTABLISHED PRIOR TO TEST
     2178                            **********************************************************************
     2179                            *
     2180   01 0132B    33102AC8     TST12#X  MTW,1    PRIFLAG           SET PRIORITY FLAG TO BYPASS TEST
     2181   01 0132C    6A601D06              BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     2182   01 0132D    68001289              B        TST1200               LOOP RETURN
     2183   01 0132E    6800132F              B        TST1300               CONTINUE RETURN
     2184                            *
     2185                            *
1 C00   22:37 JUN 20,'83                        COUNTER TEST                                      PAGE   25
A    2187                            *
     2188                            *
     2189                            **********************************************************************
     2190                            *                                                                    *
     2191                            *  C O U N T E R   I N T E R R U P T   T E S T                       *
     2192                            *                                                                    *
     2193                            **********************************************************************
     2194                            *                                                                    *
     2195                            *  THIS TEST EXERCISES ALL IMPLEMENTED COUNTER PULSE INTERRUPTS      *
     2196                            *      AND DISPLAYS THE REPETITION RATE OF EACH RELATIVE TO          *
     2197                            *      A BDR INSTRUCTION DELAY FOR COUNTER #4 AND RELATIVE           *
     2198                            *      TO THE COUNTER 4 ASSUMED RATE OF 500 HZ FOR THE OTHERS *
     2199                            *       *******************************************                  *
     2200                            *       *******************************************                  *
     2201                            *       **  NOTE:    FOR GREATER ACCURACY CHECK  **                  *
     2202                            *       **       AGAINST AN OUTSIDE CLOCK BY     **                  *
     2203                            *       **       SWITCHING ONE OF THE COUNTER    **                  *
     2204                            *       **       INPUTS TO AN EXTERNAL SOURCE    **                  *
     2205                            *       *******************************************                  *
     2206                            **********************************************************************
     2207                            *
     2208                            *************************************
     2209                            *  ENTRY FROM PARAMETER LINE T      *
     2210                            *************************************
     2211                            *
     2212   01 0132F                 GOTST13  RES      0
     2213   01 0132F                 TST1300  RES      0
     2214   01 0132F    33002A46              MTW,0    ABORTFLAG
     2215   01 01330    68301332              BCR,3    %+2
     2216   01 01331    6A601CA6              BAL,LINK ABORT             ABORT IF PRIORITY CHAIN ERROR
     2217                            *                                     FOUND IN PREVIOUS TEST
     2218   01 01332    22800001 A            LI,R8    1
     2219   01 01333    358003F3              STW,R8   PATTNO
     2220   01 01334    22801301 A            LI,R8    X'1301'
     2221   01 01335    358003F2              STW,R8   TESTNO
     2222   01 01336    22800000 A            LI,R8    0                 SAY NO INTERRUPT EXPECTED
     2223   01 01337    35802A90              STW,R8   INTEPSD
     2224   01 01338    02200040 A            LCI      4                 SET COUNT PULSE INTS. FOR COUNTING
     2225   01 01339    2A801437              LM,R8    MTW#52
     2226   01 0133A    2B800052 A            STM,R8   X'52'
     2227   01 0133B    6A601CBE              BAL,LINK ARMALL            ARM AND ENABLE ALL INT. LEVELS
     2228   01 0133C    2290F000 A            LI,R9    X'F000'
     2229   01 0133D    6D901100 A            WD,R9    DISARM            DISARM COUNTERS
     2230   01 0133E    22901000 A            LI,R9    X'1000'           ARM AND ENABLE COUNTER 4
     2231   01 0133F    6D901200 A            WD,R9    ARME
     2232   01 01340    22800000 A            LI,R8    0                 INITIALIZE COUNTERS
     2233   01 01341    22400004 A            LI,X4    4
     2234   01 01342    35882A83              STW,R8   PULSECNT-1,X4
     2235   01 01343    64401342              BDR,X4   %-1
     2236   01 01344    6A602090              BAL,LINK DELAY1SEC         BDR TIMING LOOP
     2237                            *
     2238         01 01345           TST13RET EQU      %
     2239   01 01345    32802A87              LW,R8    PULSECNT+3        FIND COUNT
     2240   01 01346    218001C2 A            CI,R8    450
     2241   01 01347    6910137D              BL       TST13#E           BRANCH IF TOO LOW
     2242   01 01348    21800226 A            CI,R8    550
     2243   01 01349    6920137D              BG       TST13#E           BRANCH IF TOO HIGH
     2244   01 0134A    228FFE0C A            LI,R8    -500
     2245   01 0134B    35802A87              STW,R8   PULSECNT+3        JAM COUNTER 4 COUNT TO -500
     2246   01 0134C    2E002A87              WAIT     PULSECNT+3        WAIT FOR FIRST COUNT
     2247   01 0134D    2290FFFC A            LI,R9    X'FFFC'           SELECT ALL COUNTER INTS.
     2248   01 0134E    6D901300 A            WD,R9    ARMD              ENABLE ALL COUNT PULSE INTS.
     2249   01 0134F    2290F000 A            LI,R9    X'F000'              AND DISABLE CNTR ZERO INTS.
     2250   01 01350    6D901400 A            WD,R9    ENBL                      *
     2251   01 01351    32802A87              LW,R8    PULSECNT+3        CHECK IF COUNTER 4 AT ZERO
     2252   01 01352    69301351              BNEZ     %-1
     2253   01 01353    6D901500 A            WD,R9    DISABLE           DISABLE ALL COUNT PULSE INTS.
     2254   01 01354    228001F4 A            LI,R8    500
     2255   01 01355    35802A87              STW,R8   PULSECNT+3
     2256   01 01356    22400004 A            LI,X4    4
     2257   01 01357    32882A83              LW,R8    PULSECNT-1,X4
     2258   01 01358    31882A49              CW,R8    CNTRFREQ-1,X4
     2259   01 01359    6930135C              BNE      %+3
     2260   01 0135A    64401357              BDR,X4   %-3
     2261   01 0135B    6800139C              B        TST13#X
     2262   01 0135C    2250000A A   TST13#A  LI,X5    10
     2263   01 0135D    22400001 A            LI,X4    1
     2264   01 0135E    6A602809              #PRINT   UPSPACE,C2
            01 0135F    EA6003CD
            01 01360    C200B1BC A
            01 01361    6A602832
     2265   01 01362    32D82A83     TST13#B  LW,RD    PULSECNT-1,X4     FIND COUNTS PER SECOND
     2266   01 01363    6830136D              BEZ      TST13#C
     2267   01 01364    21D0003D A            CI,RD    61
     2268   01 01365    69201367              BG       %+2
     2269   01 01366    20DFFFFF A            AI,RD    -1                COMPENSATE FOR ERROR
     2270   01 01367    21D007CD A            CI,RD    1997
     2271   01 01368    6910136A              BL       %+2
     2272   01 01369    20D00002 A            AI,RD    2                 COMPENSATE FOR ERROR
     2273   01 0136A    21D003E6 A            CI,RD    998
     2274   01 0136B    6910136D              BL       %+2
     2275   01 0136C    20D00001 A            AI,RD    1                 COMPENSATE FOR ERROR
     2276   01 0136D    6A602910     TST13#C  BAL,LINK :HEX@DE           CONVERT COUNTS TO DECIMAL(EBCDIC)
     2277   01 0136E    6A601DEB              SEND     PLSRATE
            01 0136F    0000C204 A
     2278   01 01370    15C03EFA              STD,RC   OUTBUF+6
     2279   01 01371    F28803D2              LB,R8    *#VALTAB%,X4      FIND COUNTER # IN EBCDIC
     2280   01 01372    758A3EF4              STB,R8   OUTBUF,X5
     2281   01 01373    6A602809              #PRINT   OUTBUF            PRINT PULSE RATE MESSAGE
            01 01374    EA6003CD
            01 01375    C000FBD0 A
            01 01376    6A602832
     2282   01 01377    69301379              BCS,3    %+2               BRANCH IF NO 'BREAK' CHARACTER
     2283   01 01378    6800139C              B        TST13#X
     2284   01 01379    20400001 A            AI,X4    1                 SELECT NEXT COUNTER
     2285   01 0137A    21400004 A            CI,X4    4                 ARE ALL VALUES DISPLAYED
     2286   01 0137B    68201362              BLE      TST13#B           LOOP IF NO
     2287   01 0137C    6800139A              B        TST13#X-2         EXIT
     2288                            *
     2289                            *  ENTER HERE IF COUNTER 4 OUT OF LIMITS
     2290                            *
     2291   01 0137D    22901000 A   TST13#E  LI,R9    X'1000'           SELECT COUNTER #4
     2292   01 0137E    6D901500 A            WD,R9    DISABLE           DISABLE COUNTS FROM #4
     2293   01 0137F    6A602809              #PRINT,1,1 COUNTERROR,C2   INDICATE FAULT
            01 01380    EA6003CD
            01 01381    0160C18A A
            01 01382    6A602832
     2294   01 01383    6A6021E2              BAL,LINK   EROR#W          CHECK FOR HALT ON ERROR
     2295   01 01384    328013A0              LW,R8    CNTERREXP%        SET UP EXPLANATION
     2296   01 01385    B58003CE              STW,R8   *#ERRTEXT%                *
     2297   01 01386    22800000 A            LI,R8    0
     2298   01 01387    35802A87              STW,R8   PULSECNT+3        RESET COUNTER 4 VALUE
     2299   01 01388    2290F000 A            LI,R9    X'F000'
     2300   01 01389    6D901200 A            WD,R9    ARME              FIND APPROX. COUNTS FOR ALL 4
     2301   01 0138A    6A602090              BAL,LINK DELAY1SEC         BDR TIMING LOOP
     2302   01 0138B    2290F000 A            LI,R9    X'F000'
     2303   01 0138C    6D901500 A            WD,R9    DISABLE           DISABLE ALL COUNT PULSE INTS.
     2304   01 0138D    22400004 A            LI,X4    4
     2305   01 0138E    32882A83              LW,R8    PULSECNT-1,X4
     2306   01 0138F    31882A49              CW,R8    CNTRFREQ-1,X4
     2307   01 01390    69301393              BNE      %+3
     2308   01 01391    6440138E              BDR,X4   %-3
     2309   01 01392    6800139C              B        TST13#X
     2310   01 01393    02000000 A            NOP
     2311   01 01394    02000000 A            NOP
     2312   01 01395    02000000 A            NOP
     2313   01 01396    22400004 A            LI,X4    4
     2314   01 01397    32882A83              LW,R8    PULSECNT-1,X4
     2315   01 01398    35882A49              STW,R8   CNTRFREQ-1,X4
     2316   01 01399    64401397              BDR,X4   %-2
     2317   01 0139A    02000000 A            NOP
     2318   01 0139B    02000000 A            NOP
     2319                            *
     2320                            *
     2321   01 0139C    6A601168     TST13#X  BAL,LINK JAMXPSDS          RESTORE XPSD'S TO LOC. 52-55
     2322   01 0139D    6A601D06              BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     2323   01 0139E    6800132F              B        TST1300           LOOP RETURN
     2324   01 0139F    680013B0              B        TST1400           CONTINUATION RETURN
     2325                            *
     2326   01 013A0    0640C212 N   CNTERREXP%  GEN,8,2,6,16 6,1,,BA(CNTERREXP) EXPLANATION POINTER
     2327                            *
     2328                            *
     2329                            *
     2330                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        INTERRUPT INSTRUCTION TEST                        PAGE   26
A    2332                            *
     2333                            *
     2334                            **********************************************************************
     2335                            *                                                                    *
     2336                            *  I N T E R R U P T    I N S T R U C T I O N    T E S T             *
     2337                            *                                                                    *
     2338                            **********************************************************************
     2339                            *                                                                    *
     2340                            *                                                                    *
     2341                            *  THIS TEST TRIES MTB,MTH, AND MTW INSTRUCTIONS IN EACH IMPL. INT.  *
     2342                            *       LOCATION (COUNTER PULSE EXCEPTED) AND CHECKS EACH            *
     2343                            *       INTERRUPT LOCATION FOR ITS ABILITY TO ADDRESS A ROUTINE      *
     2344                            *       INDIRECTLY.                                                  *
     2345                            *                                                                    *
     2346                            *                                                                    *
     2347                            *  SUBTEST NUMBERS INDICATE THE GROUP# AND LEVEL# RESPECTIVELY,      *
     2348                            *       UNDER TEST. (I.E.  SUBTEST B3 IS THE 4TH HIGHEST LEVEL IN    *
     2349                            *       GROUP 11 )                                                   *
     2350                            *                                                                    *
     2351                            **********************************************************************
     2352                            *
     2353                            *************************************
     2354                            *        X4 = # OF TRIGGERS LEFT TO DO
     2355                            *        X7 = # OF LEVELS LEFT IN GROUP
     2356                            *        R9 = SHIFT REGISTER CONTAINING GROUP IMPLEMENTATION
     2357                            *
     2358                            *  ENTRY FROM PARAMETER LINE T      *
     2359                            *************************************
     2360                            *
     2361   01 013A1    02200000 A   GOTST14  LCI      0
     2362   01 013A2    2A002605              LM,0     GOSAVE
     2363   01 013A3    328003F3              LW,R8    PATTNO
     2364   01 013A4    22100003 A            LI,X1    3
     2365   01 013A5    75820003 A            STB,R8   LVL,X1
     2366   01 013A6    4B302C87              AND,LVL  XF
     2367   01 013A7    2580007C A            SLS,R8   -4
     2368   01 013A8    75820002 A            STB,R8   GRP,X1
     2369   01 013A9    6A601CD2              BAL,LINK DISARMALL
     2370   01 013AA    328003F2              LW,R8    TESTNO
     2371   01 013AB    21801401 A            CI,R8    X'1401'
     2372   01 013AC    683013B5              BE       TST1401
     2373   01 013AD    21801402 A            CI,R8    X'1402'
     2374   01 013AE    68301433              BE       TST1402
     2375   01 013AF    680025D8              B        INVALTST#
     2376                            *
     2377                            *
     2378   01 013B0                 TST1400  RES      0
     2379   01 013B0    6A601CD2              BAL,LINK DISARMALL
     2380   01 013B1    22200000 A            LI,GRP   0                 INITIALIZE FOR SEQUENTIAL TEST
     2381   01 013B2    22300000 A            LI,LVL   0
     2382   01 013B3    22801401 A            LI,R8    X'1401'
     2383   01 013B4    358003F2              STW,R8   TESTNO
     2384   01 013B5    02200030 A   TST1401  LCI      3
     2385   01 013B6    2AC0143F              LM,RC    MODIFY+3
     2386   01 013B7    2BC0143C              STM,RC   MODIFY            GET MODIFY AND TEST INSTRUCTIONS
     2387   01 013B8    6A60141B              BAL,LINK TST14INIT         INITIALIZE
     2388   01 013B9    22800000 A   TST14#A  LI,R8    0                 SAY NO INTERRUPTS EXPECTED
     2389   01 013BA    35802A90              STW,R8   INTEPSD
     2390   01 013BB    25900001 A            SLS,R9   1                 CHECK IF LEVEL IS IMPLEMENTED
     2391   01 013BC    698013C0              BC       TST14#B           BRANCH IF IMPLEMENTED
     2392   01 013BD    20300001 A            AI,LVL   1
     2393   01 013BE    647013B9              BDR,X7   TST14#A           LOOP IF NOT DONE WITH GROUP
     2394   01 013BF    680013F2              B        TST14#D           GO TEST EXTERNAL GROUPS
     2395                            *
     2396   01 013C0    22A00000 A   TST14#B  LI,LOG   0                 ZERO COUNTER
     2397   01 013C1    6D000027 A            WD,0     X'27'             RESET INTERRUPT INHIBITS
     2398   01 013C2    32B00002 A            LW,RB    GRP               COMPUTE PATTERN NUMBER
     2399   01 013C3    25B00004 A            SLS,RB   4
     2400   01 013C4    30B00003 A            AW,RB    LVL
     2401   01 013C5    35B003F3              STW,RB   PATTNO
     2402   01 013C6    20200000 A            AI,GRP   0                 COMPUTE LOCATION UNDER TEST
     2403   01 013C7    693013CB              BNEZ     %+4
     2404   01 013C8    22B00052 A            LI,RB    X'52'
     2405   01 013C9    30B00003 A            AW,RB    LVL
     2406   01 013CA    680013CD              B        %+3
     2407   01 013CB    22B00040 A            LI,RB    X'40'
     2408   01 013CC    30B003F3              AW,RB    PATTNO
     2409   01 013CD    35B02A62              STW,RB   LOCATION
     2410   01 013CE    B2B02A62              LW,RB    *LOCATION         SAVE XPSD
     2411   01 013CF    3280143C              LW,R8    MODIFY            FIND MTW INSTRUCTION
     2412   01 013D0    B5802A62              STW,R8   *LOCATION
     2413   01 013D1    32862B36              LW,R8    LEVMASK,LVL       SELECT LEVEL
     2414                            *
     2415   01 013D2    F02003D8              LC       *#COCSTATE%
     2416   01 013D3    68C013D8              BCR,12   %+5               BRANCH IF NO REMOTE TERMINAL
     2417   01 013D4    312003F8              CW,GRP   COCGRP
     2418   01 013D5    693013D8              BNE      %+3               BRANCH IF NOT COC GROUP
     2419   01 013D6    4B8003F9              AND,R8   COCMASK           CHECK IF A COC LEVEL
     2420   01 013D7    683013ED              BEZ      TST14#C              AND EXIT IF YES
     2421                            *
     2422   01 013D8    6D841200 A            WD,R8    ARME,GRP          ARM AND ENABLE IT
     2423   01 013D9    6D841700 A            WD,R8    TRIG,GRP          TRIGGER IT
     2424   01 013DA    644013D9              BDR,X4   %-1                  15 TIMES
     2425   01 013DB    2240000F A            LI,X4    15
     2426   01 013DC    3280143D              LW,R8    MODIFY+1          FIND MTH INSTRUCTION
     2427   01 013DD    B5802A62              STW,R8   *LOCATION
     2428   01 013DE    32862B36              LW,R8    LEVMASK,LVL       SELECT LEVEL
     2429   01 013DF    6D841200 A            WD,R8    ARME,GRP          ARM AND ENABLE IT
     2430   01 013E0    6D841700 A            WD,R8    TRIG,GRP          TRIGGER IT
     2431   01 013E1    644013E0              BDR,X4   %-1                  15 TIMES
     2432   01 013E2    2240000F A            LI,X4    15
     2433   01 013E3    3280143E              LW,R8    MODIFY+2          FIND MTB INSTRUCTION
     2434   01 013E4    B5802A62              STW,R8   *LOCATION
     2435   01 013E5    32862B36              LW,R8    LEVMASK,LVL       SELECT LEVEL
     2436   01 013E6    6D841200 A            WD,R8    ARME,GRP          ARM AND ENABLE IT
     2437   01 013E7    6D841700 A            WD,R8    TRIG,GRP          TRIGGER IT
     2438   01 013E8    644013E7              BDR,X4   %-1                  15 TIMES
     2439   01 013E9    2240000F A            LI,X4    15
     2440   01 013EA    B5B02A62              STW,RB   *LOCATION         RESTORE XPSD
     2441   01 013EB    31A0143B              CW,LOG   MODCOUNT          ARE THERE ANY ERRORS
     2442   01 013EC    693013FF              BNE      TST14#E           BRANCH IF YES
     2443                            *
     2444                            *        ENTER HERE AFTER EACH SUBTEST IS COMPLETE
     2445                            *
     2446   01 013ED    6A601D06     TST14#C  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     2447   01 013EE    680013C0              B        TST14#B           LOOP RETURN
     2448                            *
     2449   01 013EF    20300001 A            AI,LVL   1
     2450   01 013F0    207FFFFF A            AI,X7    -1
     2451   01 013F1    693013B9              BNEZ     TST14#A           LOOP IF NOT LAST LEVEL
     2452                            *
     2453                            *        ENTER HERE AFTER EACH GROUP IS TESTED
     2454                            *
     2455   01 013F2    21200000 A   TST14#D  CI,GRP   0                 GO ON TO EXTERNAL GROUPS
     2456   01 013F3    693013F5              BNE      %+2               SKIP IF NEXT GROUP ISN'T 2
     2457   01 013F4    20200001 A            AI,GRP   1
     2458   01 013F5    20200001 A   TST14#D1 AI,GRP   1
     2459   01 013F6    21200010 A            CI,GRP   16                WAS LAST GROUP TESTED
     2460   01 013F7    691013FC              BL       %+5               BRANCH IF NO
     2461   01 013F8    328003F2              LW,R8    TESTNO
     2462   01 013F9    21801401 A            CI,R8    X'1401'
     2463   01 013FA    6830142F              BE       TST14#J
     2464   01 013FB    68001454              B        TST1500
     2465                            *
     2466   01 013FC    22300000 A            LI,LVL   0
     2467   01 013FD    6A60141B              BAL,LINK TST14INIT
     2468   01 013FE    680013B9              B        TST14#A
     2469                            *
     2470                            *
     2471                            ******************************
     2472                            *    ERROR ENTRY
     2473                            ******************************
     2474   01 013FF    72B0000A A   TST14#E  LB,RB    LOG               FIND MTB COUNT
     2475   01 01400    21B0000F A            CI,RB    15
     2476   01 01401    68301407              BE       TST14#F           BRANCH IF RIGHT
     2477   01 01402    35B02A45              STW,RB   ACTCOUNT          SAVE COUNT FOR DISPLAY
     2478   01 01403    2280000F A            LI,R8    15
     2479   01 01404    35802A59              STW,R8   EXPCOUNT          SAVE EXPECTED COUNT FOR DISPLAY
     2480   01 01405    22C00052 A            LI,RC    X'52'             SET ERROR TYPE FOR DISPLAY
     2481   01 01406    6A6020A0              BAL,LINK EROR              DISPLAY ERROR
     2482   01 01407    22B00000 A   TST14#F  LI,RB    0
     2483   01 01408    75B0000A A            STB,RB   LOG
     2484   01 01409    52B0000A A            LH,RB    LOG               FIND MTH COUNT
     2485   01 0140A    21B0000F A            CI,RB    15
     2486   01 0140B    68301411              BE       TST14#G           BRANCH IF RIGHT
     2487   01 0140C    35B02A45              STW,RB   ACTCOUNT          SAVE COUNT FOR DISPLAY
     2488   01 0140D    2280000F A            LI,R8    15
     2489   01 0140E    35802A59              STW,R8   EXPCOUNT          SAVE EXPECTED COUNT FOR DISPLAY
     2490   01 0140F    22C00053 A            LI,RC    X'53'             SET ERROR TYPE FOR DISPLAY
     2491   01 01410    6A6020A0              BAL,LINK EROR              DISPLAY ERROR
     2492   01 01411    22B00000 A   TST14#G  LI,RB    0
     2493   01 01412    55B0000A A            STH,RB   LOG
     2494   01 01413    21A0000F A            CI,LOG   15                CHECK MTW COUNT
     2495   01 01414    683013ED              BE       TST14#C           BRANCH IF RIGHT
     2496   01 01415    35B02A45              STW,RB   ACTCOUNT          SAVE COUNT FOR DISPLAY
     2497   01 01416    2280000F A            LI,R8    15
     2498   01 01417    35802A59              STW,R8   EXPCOUNT          SAVE EXPECTED COUNT FOR DISPLAY
     2499   01 01418    22C00054 A            LI,RC    X'54'             SET ERROR TYPE FOR DISPLAY
     2500   01 01419    6A6020A0              BAL,LINK EROR              DISPLAY ERROR
     2501   01 0141A    680013ED              B        TST14#C           RETURN
     2502                            *
     2503                            *        INITIALIZE REGISTERS X4,X7, AND R9
     2504                            *
     2505         01 0141B           TST14INIT  EQU    %
     2506   01 0141B    21200000 A            CI,GRP   0                 IS IT GROUP ZERO
     2507   01 0141C    69301422              BNE      %+6               BRANCH IF NO
     2508                            *
     2509                            *  SET UP GROUP ZERO
     2510                            *
     2511   01 0141D    2270000E A            LI,X7    14                SET UP LEVELS TO DO
     2512   01 0141E    32901446              LW,R9    NOTCNTR           SET SELECTIVE MASK
     2513   01 0141F    25900010 A            SLS,R9   16                        *
     2514   01 01420    4A902ABE              LS,R9    LEVIMPL           SELECT LEVELS TO TEST
     2515   01 01421    6800142A              B        %+9
     2516                            *
     2517                            *  SET UP EXTERNAL GROUP
     2518                            *
     2519   01 01422    22700010 A            LI,X7    16                SET UP # OF LEVELS TO CHECK
     2520   01 01423    52942ABE              LH,R9    LEVIMPL,GRP       SELECT LEVELS TO TEST
     2521   01 01424    F02003D8              LC       *#COCSTATE%
     2522   01 01425    68C01429              BCR,12   %+4               BRANCH IF NO REMOTE TERM.
     2523   01 01426    312003F8              CW,GRP   COCGRP
     2524   01 01427    69301429              BNE      %+2               BRANCH IF NOT COC INT. GROUP
     2525   01 01428    4B9003F9              AND,R9   COCMASK           DELETE COC LEVELS
     2526   01 01429    25900010 A            SLS,R9   16
     2527   01 0142A    683013F5              BEZ      TST14#D1          BRANCH IF NOT IMPLEMENTED
     2528                            *
     2529   01 0142B    38700003 A            SW,X7    LVL               MODIFY REGISTER VALUES IF IT
     2530   01 0142C    A5900003 A            SLS,R9   *LVL                  WAS A 'PARAM T' ENTRY
     2531   01 0142D    2240000F A            LI,X4    15                SET UP FOR 15 TRIGGERS
     2532   01 0142E    E8000006 A            B        *LINK
     2533                            *
     2534                            *
     2535                            *
     2536                            ***********************************************
     2537                            *  CHECK INDIRECT ADDRESSING CAPABILITY
     2538                            ***********************************************
     2539                            *
     2540   01 0142F    22801402 A   TST14#J  LI,R8    X'1402'           INITIALIZE FOR TEST 1402
     2541   01 01430    358003F2              STW,R8   TESTNO
     2542   01 01431    22200000 A            LI,GRP   0
     2543   01 01432    22300000 A            LI,LVL   0
     2544   01 01433    02200030 A   TST1402  LCI      3
     2545   01 01434    2AC01442              LM,RC    MODIFY+6
     2546   01 01435    2BC0143C              STM,RC   MODIFY
     2547   01 01436    680013B8              B        TST14#A-1
     2548                            *
     2549                            *
     2550                            *********************************
     2551                            * COUNT INSTRUCTIONS FOR LOC.# 52-55
     2552                            ***********************************
     2553   01 01437    33102A84     MTW#52   GEN,8,4,3,17  X'33',1,0,PULSECNT
     2554   01 01438    33102A85              GEN,8,4,3,17  X'33',1,0,PULSECNT+1
     2555   01 01439    33102A86              GEN,8,4,3,17  X'33',1,0,PULSECNT+2
     2556   01 0143A    33102A87              GEN,8,4,3,17  X'33',1,0,PULSECNT+3
     2557                            *
     2558   01 0143B    0F0F000F A   MODCOUNT DATA     X'F0F000F'        EXPECTED PATTERN IN LOG
     2559                            *                                       (AFTER TEST 1401)
     2560                            *
     2561                            **********************************
     2562                            * MODIFY AND TEST INSTR. FOR TEST 1401-1402
     2563                            **********************************
     2564   01 0143C    00000000 A   MODIFY   DATA     0,0,0             MODIFY AND TEST BUFFER
            01 0143D    00000000 A
            01 0143E    00000000 A
     2565   01 0143F    3310000A A            MTW,1    LOG
     2566   01 01440    5310000A A            MTH,1    LOG
     2567   01 01441    7310000A A            MTB,1    LOG
     2568   01 01442    B3101445              MTW,1    *MODIFYI
     2569   01 01443    D3101445              MTH,1    *MODIFYI
     2570   01 01444    F3101445              MTB,1    *MODIFYI
     2571   01 01445    0000000A A   MODIFYI  DATA     LOG
     2572                            *
     2573   01 01446    00000FFC A   NOTCNTR  DATA     X'FFC'            GROUP 0 (NOT COUNT PLS) MASK
     2574                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        INTERRUPT OVERRIDE TEST                           PAGE   27
A    2576                            *
     2577                            *
     2578                            **********************************************************************
     2579                            *    I N T E R R U P T   O V E R R I D E    T E S T                  *
     2580                            ****************************************************
     2581                            *
     2582                            *  THIS TEST TRIGGERS EACH IMPLEMENTED LEVEL (ONE AT A TIME-
     2583                            *        STARTING WITH THE LOWEST PRIORITY) WITHOUT RELEASING
     2584                            *        THE LAST ACTIVE INTERRUPT IN ORDER TO TEST THE ABILITY
     2585                            *        OF EACH LEVEL TO INTERRUPT LOWER PRIORITY ACTIVE INTERRUPTS
     2586                            *
     2587                            *
     2588                            *
     2589                            *        REGISTER USEAGE:
     2590                            *                 X1 = ZERO
     2591                            *                 X4 = PRIORITY OF GROUP UNDER TEST
     2592                            *                 X5 = HISTORY TABLE POINTER (BYTE)
     2593                            *                 X7 = GROUP UNDER TEST ( 0=OVERRIDE, 1=CNTRZERO,
     2594                            *                      2=I/O, AND 3-10 =EXTERNAL GROUPS 2-F )
     2595                            *                 RB = HISTORY TABLE SIZE INDEX
     2596                            *                 RF = NUMBER OF LEVELS IN GROUP LEFT TO CHECK
     2597                            *
     2598                            *
     2599                            **********************************************************************
     2600                            *
     2601                            *******************
     2602                            *  RESTART ENTRY  *
     2603                            *******************
     2604                            *
     2605   01 01447    02200000 A   GOTST15  LCI      0
     2606   01 01448    2A002605              LM,0     GOSAVE
     2607   01 01449    328003F2              LW,R8    TESTNO
     2608   01 0144A    21801501 A            CI,R8    X'1501'
     2609   01 0144B    6930144F              BNE      GOTST15A          ERROR IF NOT TEST 1501
     2610   01 0144C    328003F3              LW,R8    PATTNO
     2611   01 0144D    21800001 A            CI,R8    1
     2612   01 0144E    68301454              BE       TST1500           OK IF SUBTEST#1
     2613   01 0144F    6A602809     GOTST15A #TYPE,1,1 TST15MSG
            01 01450    EA6003CC
            01 01451    0160C14E A
            01 01452    6A602832
     2614   01 01453    68001454              B        TST1500
     2615                            *
     2616                            *
     2617                            *
     2618                            *******************
     2619                            *  NORMAL ENTRY   *
     2620                            *******************
     2621   01 01454                 TST1500  RES      0
     2622   01 01454    22801501 A            LI,R8    X'1501'
     2623   01 01455    358003F2              STW,R8   TESTNO
     2624   01 01456    22800001 A            LI,R8    1
     2625   01 01457    358003F3              STW,R8   PATTNO
     2626   01 01458    22400008 A            LI,X4    8                 INITIALIZE GRPINH AND LEV
     2627   01 01459    22100000 A            LI,X1    0                        TABLES
     2628   01 0145A    35102ACA              STW,X1   GRPINH
     2629   01 0145B    6A6022C6              BAL,LINK INITTAB
     2630   01 0145C    35102A5A              STW,X1   EXPSEQCT
     2631   01 0145D    6A6022B8              BAL,LINK INITHIST
     2632   01 0145E    6A6026CF              BAL,LINK READEXP
     2633   01 0145F    22200000 A            LI,GRP   0
     2634   01 01460    35202A91              STW,GRP  INTEPSD+1         ZERO OUT EXPECTED PSD
     2635   01 01461    6A601168              BAL,LINK JAMXPSDS          INITIALIZE X'10'-X'1FF'
     2636   01 01462    6A6022CF              BAL,LINK INITPSD
     2637   01 01463    6A601CD2              BAL,LINK DISARMALL
     2638   01 01464    22800FFC A            LI,R8    X'FFC'            SET PATTERNS TO ARM AND ENABLE
     2639   01 01465    55802A96              STH,R8   LEVARMD               ALL INTERRUPT LEVELS EXCEPT
     2640   01 01466    55802A9E              STH,R8   LEVENBL               COUNTER PULSE
     2641   01 01467    2240000F A            LI,X4    15
     2642         01 01468           TST15#A  EQU      %
     2643   01 01468    F02003D8              LC       *#COCSTATE%
     2644   01 01469    68C0146E              BCR,12   %+5               BRANCH IF NO REMOTE TERM.
     2645   01 0146A    314003F8              CW,X4    COCGRP
     2646   01 0146B    6930146E              BNE      %+3               BRANCH IF COC NOT IN THIS GRP.
     2647   01 0146C    328003F9              LW,R8    COCMASK           INHIBIT COC LEVELS
     2648   01 0146D    6800146F              B        %+2
     2649                            *
     2650   01 0146E    228FFFFF A            LI,R8    -1
     2651   01 0146F    55882A96              STH,R8   LEVARMD,X4               DO EXTERNAL GROUPS
     2652   01 01470    55882A9E              STH,R8   LEVENBL,X4
     2653   01 01471    55882AB6              STH,R8   LEVNINH,X4
     2654   01 01472    64401468              BDR,X4   TST15#A
     2655   01 01473    35802AB6              STW,R8   LEVNINH
     2656   01 01474    6A6028D6              BAL,LINK SETPATT
     2657   01 01475    22400010 A            LI,X4    16                CREATE TABLE OF PRIORITIES
     2658   01 01476    3288276B              LW,R8    SEQCOM-1,X4
     2659   01 01477    25800068 A            SLS,R8   -24
     2660   01 01478    75882A7A              STB,R8   PRIORITY,X4
     2661   01 01479    64401476              BDR,X4   %-3
     2662                            *
     2663                            *  ENTER HERE AFTER HIGHEST LEVEL IN EACH GROUP HAS BEEN TRIGGERED
     2664                            *
     2665   01 0147A    55142AA6     TST15#A1 STH,X1   LEVTRIG,GRP
     2666   01 0147B    22700010 A            LI,X7    16                INITIALIZE GROUP COUNTER
     2667   01 0147C    22400010 A            LI,X4    16                       AND PRIORITY COUNTER
     2668                            *
     2669   01 0147D    728E2A7A     TST15#A2 LB,R8    PRIORITY,X7       SEARCH FOR LOWEST PRIOR. GROUP
     2670   01 0147E    31800004 A            CW,R8    X4                        NOT YET SERVICED
     2671   01 0147F    69301488              BNE      TST15#B           BRANCH IF NOT FOUND
     2672   01 01480    751E2A7A              STB,X1   PRIORITY,X7       ZERO GROUP TO INDICATE SERVICED
     2673   01 01481    21700002 A            CI,X7    2                 IS IT A GROUP ZERO GROUP
     2674   01 01482    6820148F              BLE      TST15#C           BRANCH IF YES
     2675   01 01483    2230000F A            LI,LVL   15                NO, SET UP TO TRIGGER LOWEST LEVEL
     2676   01 01484    222FFFFF A            LI,GRP   -1
     2677   01 01485    30200007 A            AW,GRP   X7
     2678   01 01486    22F00010 A            LI,RF    16
     2679   01 01487    6800149A              B        TST15#D+2
     2680                            *
     2681   01 01488    6470147D     TST15#B  BDR,X7   TST15#A2          SEARCH NEXT GROUP FOR THIS PRI.
     2682   01 01489    22700010 A            LI,X7    16
     2683   01 0148A    6440147D              BDR,X4   TST15#A2          SEARCH FOR NEXT PRIORITY
     2684                            *
     2685                            *  FALL THRU WHEN ALL GROUPS HAVE BEEN SERVICED
     2686                            *         (EXCEPT OVERRIDE GROUP)
     2687                            *
     2688   01 0148B    22F00006 A            LI,RF    6                 SET UP TO SERVICE OVER. GROUP
     2689   01 0148C    22300005 A            LI,LVL   5
     2690   01 0148D    22200000 A            LI,GRP   0
     2691   01 0148E    680014BE              B        TST15#F           GO SERVICE OVERRIDE GROUP
     2692                            *
     2693                            *  ENTER HERE TO SELECT COUNTER ZERO OR I/O GROUP
     2694                            *
     2695   01 0148F    22200000 A   TST15#C  LI,GRP   0                 INDICATE SERVICING A GROUP 0 GROUP
     2696   01 01490    21700002 A            CI,X7    2                 IS IT THE I/O GROUP
     2697   01 01491    69301495              BNE      %+4               BRANCH IF CNTR. ZERO GROUP
     2698   01 01492    2230000D A            LI,LVL   X'D'
     2699   01 01493    22F00004 A            LI,RF    4
     2700   01 01494    680014BE              B        TST15#F           GO SERVICE I/O GROUP
     2701                            *
     2702   01 01495    22300009 A            LI,LVL   9
     2703   01 01496    22F00004 A            LI,RF    4
     2704   01 01497    680014BE              B        TST15#F           GO SERVICE CNTR. ZERO GROUP
     2705                            *
     2706                            *
     2707                            *  ENTER HERE TO TRIGGER NEXT  LEVEL
     2708                            *
     2709   01 01498    21200000 A   TST15#D  CI,GRP   0
     2710   01 01499    683014BE              BE       TST15#F           BRANCH IF NOT AN EXTERNAL GROUP
     2711   01 0149A    213FFFFF A            CI,LVL   -1                WAS HI PRI. LEVEL IN GRP SERVICED
     2712   01 0149B    6830147A              BE       TST15#A1          DO NEXT GROUP IF YES
     2713                            *
     2714   01 0149C    52942ABE     TST15#E  LH,R9    LEVIMPL,GRP       IS THIS LEVEL IMPLEMENTED
     2715   01 0149D    4B962B36              AND,R9   LEVMASK,LVL
     2716   01 0149E    683014CE              BEZ      TST15#J           SKIP THIS LEVEL IF NO
     2717                            *
     2718   01 0149F    52842AAE     TST15#E1 LH,R8    LEVEXP,GRP        FIND PREVIOUSLY EXPECTED LEVELS
     2719   01 014A0    49800009 A            OR,R8    R9                   ADD NEW LEVEL
     2720   01 014A1    55842AAE              STH,R8   LEVEXP,GRP                *
     2721   01 014A2    55842AA6              STH,R8   LEVTRIG,GRP
     2722   01 014A3    22B000EE A            LI,RB    238               SET NEXT EXP. INT. IN HIST. TBL
     2723   01 014A4    2250F464              LI,X5    BA(HISTORY+1)
     2724   01 014A5    32800002 A            LW,R8    GRP
     2725   01 014A6    25800004 A            SLS,R8   4
     2726   01 014A7    30800003 A            AW,R8    LVL
     2727   01 014A8    718A0000 A            CB,R8    0,X5
     2728   01 014A9    683014AD              BE       %+4
     2729                            *
     2730                            *  NO MATCH, SEARCH TABLE UNTIL GRP/LVL IS FOUND
     2731                            *
     2732   01 014AA    20500008 A            AI,X5    8
     2733   01 014AB    64B014A8              BDR,RB   %-3
     2734   01 014AC    6A601CA6              BAL,LINK ABORT             PROGRAMMING ERROR IF NOT IN TABLE
     2735   01 014AD    32802A5A              LW,R8    EXPSEQCT
     2736                            *
     2737   01 014AE    205FFFFC A            AI,X5    -4                POINT TO EXP. SEQ.
     2738   01 014AF    20800001 A            AI,R8    1
     2739   01 014B0    758A0000 A            STB,R8   0,X5
     2740                            *
     2741   01 014B1    35802A5A              STW,R8   EXPSEQCT
     2742                            *
     2743   01 014B2    22000006 A            LI,R0    6
     2744   01 014B3    228014B8              LI,R8    15INT-1           LOAD EXPECTED INT. ADDRESS
     2745   01 014B4    32962B36              LW,R9    LEVMASK,LVL
     2746   01 014B5    35802A90              STW,R8   INTEPSD                   *
     2747   01 014B6    02200000 A            LCI      0
     2748   01 014B7    6D941200 A            WD,R9    ARME,GRP          ARM AND ENABLE
     2749   01 014B8    6D941700 A            WD,R9    TRIG,GRP          TRIGGER
     2750                            *
     2751                            **********************************************************************
     2752                            *  INTERRUPT SHOULD OCCUR DURING FOLLOWING DELAY
     2753   01 014B9    640014B9     15INT    BDR,R0   %
     2754   01 014BA    22C00012 A            LI,RC    X'12'             SET UP ERROR TYPE 12 MESSAGE
     2755   01 014BB    6A602736              BAL,LINK READLOC
     2756   01 014BC    6A6020A0              BAL,LINK EROR              DISPLAY THE ERROR
     2757   01 014BD    680014CC              B        TST15#H           GO TO NEXT TEST
     2758                            *
     2759                            *  ENTER HERE IF A GROUP ZERO GROUP NEEDS SERVICE
     2760                            *
     2761   01 014BE    21400000 A   TST15#F  CI,X4    0                 IS IT THE OVERRIDE GROUP
     2762   01 014BF    693014C9              BNE      TST15#G           BRANCH IF NO
     2763   01 014C0    21700000 A            CI,X7    0                 WAS HIGH PRI. TRIGGERED
     2764   01 014C1    683014D2              BE       TST15#X1          EXIT IF YES
     2765   01 014C2    52862B36              LH,R8    LEVMASK,LVL       INDICATE ARMED AND ENABLED
     2766   01 014C3    49802A9E              OR,R8    LEVENBL                   *
     2767   01 014C4    49802A96              OR,R8    LEVARMD                   *
     2768   01 014C5    4B802AC7              AND,R8   NOTHIGH
     2769   01 014C6    6930149C              BNEZ     TST15#E           FORCE AN INTERRUPT
     2770   01 014C7    22700000 A            LI,X7    0                          *
     2771   01 014C8    6800149C              B        TST15#E
     2772                            *
     2773   01 014C9    217FFFFF A   TST15#G  CI,X7    -1                WAS LAST LEVEL TRIGGERED
     2774   01 014CA    6830147A              BE       TST15#A1          LOOK FOR NEXT GROUP IF YES
     2775   01 014CB    6800149C              B        TST15#E           TRIGGER IT IF NO
     2776                            *
     2777                            *  RETURN HERE FROM INTERRUPT HANDLING ROUTINE
     2778                            *
     2779         01 014CC           15RETURN EQU      %
     2780   01 014CC    6A601D06     TST15#H  BAL,LINK  CHK:LOOP         CHECK FOR SHORT OR LONG LOOP
     2781   01 014CD    02000000 A            NOP
     2782   01 014CE    203FFFFF A   TST15#J  AI,LVL   -1
     2783   01 014CF    64F01498              BDR,RF   TST15#D           GO TRY NEXT HIGHER LEVEL
     2784   01 014D0    21400000 A            CI,X4    0
     2785   01 014D1    6930147B              BNE      TST15#A2-2
     2786                            *
     2787   01 014D2    6A601CDF     TST15#X1 BAL,LINK  CHKALL           CHECK IF EXPECTED INTERRUPT OCCURRED
     2788   01 014D3    6A601DCD              BAL,LINK CHKSEQ            CHECK IF THEY OCCURRED IN ORDER
     2789                            *
     2790   01 014D4    6A6022B8              BAL,LINK INITHIST          INITIALIZE HISTORY TABLE
     2791   01 014D5    22801502 A            LI,R8    X'1502'
     2792   01 014D6    358003F2              STW,R8   TESTNO
     2793                            *
     2794                            *  ENTER HERE TO START RELEASING ACTIVE INTERRUPTS
     2795                            *
     2796   01 014D7    22400008 A            LI,X4    8
     2797   01 014D8    32882ABD              LW,R8    LEVIMPL-1,X4
     2798   01 014D9    35882AAD              STW,R8   LEVEXP-1,X4
     2799   01 014DA    644014D8              BDR,X4   %-2
     2800   01 014DB    6A60274D              BAL,LINK READSEQ           SET EXPECTED SEQUENCE FOR A
     2801   01 014DC    22A00000 A            LI,LOG   0                        RIPPLE DOWN
     2802   01 014DD    680014E1              B        TST15#X3
     2803                            *
     2804   01 014DE    6A602699     TST15#X2 BAL,LINK READACT           FIND HIGH PRIORITY ACTIVE INT.
     2805   01 014DF    32802A43              LW,R8    ACTIVELVL
     2806   01 014E0    691014F2              BLZ      TST15#Y           BRANCH IF ALL DONE
     2807   01 014E1    227000EE A   TST15#X3 LI,X7    238
     2808   01 014E2    2240F464              LI,X4    BA(HISTORY+1)     SEARCH FOR HIGH ACTIVE INT.
     2809   01 014E3    72880000 A            LB,R8    0,X4
     2810   01 014E4    31802A43              CW,R8    ACTIVELVL
     2811   01 014E5    683014E9              BE       %+4
     2812   01 014E6    20400008 A            AI,X4    8
     2813   01 014E7    647014E3              BDR,X7   %-4
     2814   01 014E8    6A601CA6              BAL,LINK ABORT             LOCATION IS NOT IN HISTORY TABLE
     2815   01 014E9    204FFFFF A            AI,X4    -1
     2816   01 014EA    20A00001 A            AI,LOG   1
     2817   01 014EB    75A80000 A            STB,LOG  0,X4              LOG RELEASE AS AN INTERRUPT
     2818   01 014EC    204FFFFF A            AI,X4    -1                        *
     2819   01 014ED    22800001 A            LI,R8    1                         *
     2820   01 014EE    75880000 A            STB,R8   0,X4                      *
     2821   01 014EF    0E2014F0              LPSD,2   TST15PSD          RELEASE HIGH PRIORITY ACTIVE INT.
     2822                                     BOUND    8
     2823   01 014F0    000014DE     TST15PSD DATA     TST15#X2,0
            01 014F1    00000000 A
     2824                            *
     2825   01 014F2    6A601DCD     TST15#Y  BAL,LINK CHKSEQ            CHECK IF RIPPLE DOWN CORRECT
     2826   01 014F3    6A601CDF              BAL,LINK CHKALL            CHEC IF ALL INTS. OCCURRED
     2827   01 014F4    6A601D06              BAL,LINK CHK:LOOP
     2828   01 014F5    68001454              B        TST1500           LOOP RETURN
     2829   01 014F6    68001508              B        TST1600
     2830                            *
     2831   01 014F7    6D941700 A   TRIGGER  WD,R9    TRIG,GRP
     2832   01 014F8    6D901200 A   ARM%ENBL WD,R9    ARME
     2833                            *
     2834                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        ACTUAL INTERRUPT TEST                             PAGE   28
A    2837                            *
     2838                            *  THIS TEST GENERATES INTERRUPTS WITHOUT USING THE WRITE
     2839                            *        DIRECT COMMANDS, TO TEST:
     2840                            *                 1601  COUNTER #1 ZERO
     2841                            *                 1602  COUNTER #2 ZERO
     2842                            *                 1603  COUNTER #3 ZERO
     2843                            *                 1604  COUNTER #4 ZERO
     2844                            *                 1605  PCP INTERRUPT
     2845                            *
     2846                            *
     2847                            *                                                                    *
     2848   01 014F9    02200000 A   GOTST16  LCI      0
     2849   01 014FA    2A002605              LM,0     GOSAVE
     2850   01 014FB    22100003 A            LI,X1    3
     2851   01 014FC    22800000 A            LI,R8    0
     2852   01 014FD    35802ACA              STW,R8   GRPINH
     2853   01 014FE    6A601CD2              BAL,LINK DISARMALL
     2854   01 014FF    6A6022C6              BAL,LINK  INITTAB
     2855   01 01500    6A6022B8              BAL,LINK   INITHIST
     2856   01 01501    328003F2              LW,R8    TESTNO            FIND WHICH TEST REQUESTED
     2857   01 01502    21801605 A            CI,R8    X'1605'           WAS IT 5
     2858   01 01503    692025D8              BG       INVALTST#         BRANCH TO ERROR EXIT IF OVER 5
     2859   01 01504    6830154B              BE       TST16#D           BRANCH TO TEST 5
     2860   01 01505    21801602 A            CI,R8    X'1602'
     2861   01 01506    68201511              BLE      TST16#A           BRANCH TO TEST 1 OR 2
     2862   01 01507    68001517              B        TST16#B           BRANCH TO TEST 3 OR 4
     2863                            *
     2864   01 01508                 TST1600  RES      0
     2865   01 01508    6A601CD2              BAL,LINK DISARMALL
     2866   01 01509    6A6022C6              BAL,LINK   INITTAB
     2867   01 0150A    6A6022B8              BAL,LINK  INITHIST
     2868   01 0150B    22801601 A            LI,R8    X'1601'
     2869   01 0150C    358003F2              STW,R8   TESTNO
     2870   01 0150D    22800000 A            LI,R8    0
     2871   01 0150E    35802ACA              STW,R8   GRPINH
     2872   01 0150F    22800001 A            LI,R8    1
     2873   01 01510    358003F3              STW,R8   PATTNO
     2874                            *
     2875   01 01511    227000C0 A   TST16#A  LI,X7    X'C0'             FIND IF IMPLEMENTED
     2876   01 01512    72802ABE              LB,R8    LEVIMPL
     2877   01 01513    4B800007 A            AND,R8   X7
     2878   01 01514    69301517              BNEZ     %+3               BRANCH IF IMPLEMENTED
     2879   01 01515    22801603 A            LI,R8    X'1603'           SKIP FIRST TWO TESTS
     2880   01 01516    358003F2              STW,R8   TESTNO
     2881                            *
     2882   01 01517    321003F2     TST16#B  LW,X1    TESTNO
     2883   01 01518    4B102C7F              AND,X1   SEVEN
     2884   01 01519    2240F488              LI,X4    BA(HISTORY+10)
     2885   01 0151A    25100003 A            SLS,X1   3                 FIND BYTE ADDRESS OF HIST.
     2886   01 0151B    30400001 A            AW,X4    X1                   TABLE ENTRY
     2887   01 0151C    2510007D A            SLS,X1   -3
     2888   01 0151D    22900001 A            LI,R9    1                 SET EXPECTED SEQUENCE COUNT
     2889   01 0151E    75980000 A            STB,R9   0,X4
     2890   01 0151F    35902A5A              STW,R9   EXPSEQCT
     2891   01 01520    20400003 A            AI,X4    3                 SET INDEX TO ACTUAL COUNT
     2892   01 01521    22801531              LI,R8    16INT#1           LOAD EXP. INT. ADDRESS
     2893   01 01522    35802A90              STW,R8   INTEPSD                   *
     2894   01 01523    228000A0 A            LI,R8    X'A0'             SET EXP. COND. CODE
     2895   01 01524    75802A90              STB,R8   INTEPSD
     2896   01 01525    32821580              LW,R8    CNTRZERO-1,X1     FIND PATTERN OF LEVELS TO TEST
     2897   01 01526    55802A96              STH,R8   LEVARMD
     2898   01 01527    55802A9E              STH,R8   LEVENBL
     2899   01 01528    6A60262C              BAL,LINK PAT@EBC
     2900   01 01529    32901585              LW,R9    MODIFY%ZERO       FETCH MTW,1 INSTRUCTION
     2901   01 0152A    46920051 A            XW,R9    X'51',X1            AND PLACE IN TEST LOCATION
     2902   01 0152B    227FFFFE A            LI,X7    -2
     2903   01 0152C    35701586              STW,X7   MODIFY%ZERO+1     INITIALIZE COUNTZERO LOCATION
     2904   01 0152D    22707D00 A            LI,X7    32000
     2905   01 0152E    35702A95              STW,X7   WAITCNT
     2906   01 0152F    022000A0 A            LCI      10
     2907   01 01530    6D801200 A            WD,R8    ARME              ARM AND ENABLE INTS.
     2908                            *
     2909   01 01531    33F02A95     16INT#1  MTW,-1   WAITCNT           DELAY HERE FOR CNTR ZERO INT.
     2910   01 01532    69301531              BNEZ     %-1
     2911                            *
     2912   01 01533    6D801100 A            WD,R8    DISARM            DISARM INTS.
     2913   01 01534    46920051 A            XW,R9    X'51',X1 REPLACE XPSD INSTRUCTION
     2914   01 01535    72980000 A   TST16#C  LB,R9    0,X4              FIND SEQUENCE COUNT
     2915   01 01536    21900001 A            CI,R9    1
     2916   01 01537    6830153B              BE       %+4               SKIP ERROR OUTPUT IF=1
     2917   01 01538    22C000F1 A            LI,RC    X'F1'
     2918   01 01539    6A6020A0              BAL,LINK EROR
     2919   01 0153A    68001540              B        %+6
     2920                            *
     2921   01 0153B    32902A89              LW,R9    SEQCNT
     2922   01 0153C    21900001 A            CI,R9    1                 CHECK IF MORE THAN ONE INT.
     2923   01 0153D    68301540              BE       %+3               BRANCH IF ONLY ONE
     2924   01 0153E    22C000F1 A            LI,RC    X'F1'
     2925   01 0153F    6A6020A0              BAL,LINK EROR
     2926                            *
     2927   01 01540    6A6022C6              BAL,LINK INITTAB           CLEAR TABLES
     2928   01 01541    6A6022B8              BAL,LINK INITHIST
     2929   01 01542    6A601D06              BAL,LINK CHK:LOOP          CHECK FOR USER KEYIN
     2930   01 01543    68001517              B        TST16#B           *   LOOP RETURN
     2931                            *
     2932   01 01544    331003F2              MTW,1    TESTNO            SET UP NEXT TEST
     2933   01 01545    321003F2              LW,X1    TESTNO
     2934   01 01546    21101604 A            CI,X1    X'1604'
     2935   01 01547    68201518              BLE      TST16#B+1         BRANCH IF NOT TEST 5
     2936   01 01548    32802A66              LW,R8    PASSCNT
     2937   01 01549    21800001 A            CI,R8    1
     2938   01 0154A    6920158B              BG       TST1700           BRANCH IF NOT FIRST PASS
     2939                            *
     2940                            *
     2941                            *  TEST 1605-  THIS TEST ARMS AND ENABLES THE PCP INTERRUPT
     2942                            *        AND WAITS UP TO 15 SEC. FOR THE OPERATOR TO PUSH THE
     2943                            *        PANEL INTERRUPT SWITCH.
     2944                            *
     2945         01 0154B           TST16#D  EQU      %
     2946   01 0154B    6A6022B8              BAL,LINK INITHIST
     2947   01 0154C    22801569              LI,R8    16INT#2           LOAD EXPECTED INT. ADDRESS
     2948   01 0154D    35802A90              STW,R8   INTEPSD                   *
     2949   01 0154E    22800010 A            LI,R8    X'10'             SET UP PCP INTERRUPT
     2950   01 0154F    55802A96              STH,R8   LEVARMD
     2951   01 01550    55802A9E              STH,R8   LEVENBL
     2952   01 01551    55802AAE              STH,R8   LEVEXP
     2953   01 01552    6D801300 A            WD,R8    ARMD              ARM AND DISABLE PCP INT.
     2954   01 01553    22800001 A            LI,R8    1
     2955   01 01554    35802A5A              STW,R8   EXPSEQCT          SAY INTERRUPT EXPECTED
     2956   01 01555    75803D2E              STB,R8   HISTORY+22
     2957   01 01556    6A60262C              BAL,LINK PAT@EBC
     2958   01 01557    6A602809              #TYPE    UPSPACE
            01 01558    EA6003CC
            01 01559    0000B1BC A
            01 0155A    6A602832
     2959   01 0155B    6A602809              #TYPE,1,1 PCPMSG           TELL OPER. TO PUSH PCP INT. BUTTON
            01 0155C    EA6003CC
            01 0155D    0160C19D A
            01 0155E    6A602832
     2960   01 0155F    6A602809              #TYPE    UPSPACE
            01 01560    EA6003CC
            01 01561    0000B1BC A
            01 01562    6A602832
     2961   01 01563    228FFFFF A            LI,R8    -1
     2962   01 01564    32002C56              LW,R0    ONESECOND
     2963   01 01565    25000004 A            SLS,R0   4
     2964   01 01566    22800010 A            LI,R8    X'10'
     2965   01 01567    02200000 A            LCI      0
     2966   01 01568    6D801400 A            WD,R8    ENBL              ALLOW THE INT. TO OCCUR
     2967                            *
     2968   01 01569    64001569     16INT#2  BDR,R0   %
     2969                            *
     2970                            *        ENTER HERE IF NO INT. IN 16 SEC.
     2971                            *
     2972   01 0156A    22800010 A            LI,R8    X'10'
     2973   01 0156B    6D801100 A            WD,R8    DISARM            DISARM INTERRUPT
     2974   01 0156C    22C00012 A            LI,RC    X'12'             SAY EXP. INT DID NOT OCCUR
     2975   01 0156D    2280005D A            LI,R8    X'5D'
     2976   01 0156E    35802A62              STW,R8   LOCATION
     2977   01 0156F    6A6020A0              BAL,LINK EROR
     2978                            *
     2979   01 01570    6D801100 A   TST16#F  WD,R8    DISARM            DISARM INTERRUPT
     2980   01 01571    22100003 A            LI,X1    3
     2981   01 01572    72923D2E              LB,R9    HISTORY+22,X1     FIND SEQ. CNT.
     2982   01 01573    21900001 A            CI,R9    1
     2983   01 01574    68301578              BE       %+4               SKIP ERROR OUTPUT IF=1
     2984   01 01575    22C000F1 A            LI,RC    X'F1'
     2985   01 01576    6A6020A0              BAL,LINK EROR
     2986   01 01577    6800157D              B        TST16#G
     2987                            *
     2988   01 01578    32902A89              LW,R9    SEQCNT
     2989   01 01579    21900001 A            CI,R9    1
     2990   01 0157A    6830157D              BE       %+3               SKIP ERROR OUTPUT IF=1
     2991   01 0157B    22C000F1 A            LI,RC    X'F1'
     2992   01 0157C    6A6020A0              BAL,LINK EROR
     2993                            *
     2994   01 0157D    6A6022B8     TST16#G  BAL,LINK INITHIST          SET UP TEST REPEAT
     2995   01 0157E    6A601D06              BAL,LINK CHK:LOOP          CHECK FOR USER KEYIN
     2996   01 0157F    6800154B              B        TST16#D           *  LOOP RETURN
     2997                            *
     2998   01 01580    6800158B              B        TST1700           GO TO NEXT TEST
     2999                            *
     3000                            *
     3001   01 01581    00008200 A   CNTRZERO DATA     X'8200',X'4100',X'2080',X'1040'  INT. PATTERNS
            01 01582    00004100 A
            01 01583    00002080 A
            01 01584    00001040 A
     3002                            *
     3003   01 01585    33101586     MODIFY%ZERO  MTW,1  %+1
     3004   01 01586    00000000 A                DATA   0
     3005                            *
     3006                            *
     3007                            *                                                                    *
     3008                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        FIXED PATTERN INTERRUPT TEST                      PAGE   29
A    3010                            *
     3011                            *
     3012   01 01587    330003F3     GOTST17  MTW,0    PATTNO
     3013   01 01588    68301591              BCR,3    TST17#A+2         BRANCH IF SPECIAL PATTERN
     3014   01 01589    33F003F3              MTW,-1   PATTNO
     3015   01 0158A    6800158F              B        TST17#A
     3016                            *
     3017                            **********************************************************************
     3018                            *                                                                    *
     3019                            *    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         *
     3020                            **********************************************************************
     3021                            *                                                                    *
     3022                            *                                                                    *
     3023                            *  THIS TEST ARMS,ENABLES, AND TRIGGERS A SET OF INTERRUPT LEVELS    *
     3024                            *          BASED ON A FIXED PATTERN OF SELECTED LEVELS.              *
     3025                            *          THE PATTERNS ARE TRIED FOR EACH OF THE EIGHT INHIBIT      *
     3026                            *          BIT COMBINATIONS.                                         *
     3027                            *                                                                    *
     3028                            *  PATTERNS ARE THE SAME FOR EACH WRITE DIRECT GROUPS BUT MAY BE     *
     3029                            *          DIFFERENT FOR ARMING,ENABLING, OR TRIGGERING.             *
     3030                            *                                                                    *
     3031                            *                                                                    *
     3032                            *  PATTERN NUMBERS ARE SEQUENTIAL   1 THROUGH AB8 (DECIMAL 2744)     *
     3033                            *                                                                    *
     3034                            **********************************************************************
     3035                            * ENTRY FROM TEST 16
     3036                            **********************************************************************
     3037   01 0158B                 TST1700  RES      0
     3038   01 0158B    22801701 A            LI,R8    X'1701'
     3039   01 0158C    358003F2              STW,R8   TESTNO
     3040   01 0158D    22800001 A            LI,R8    1                 INITIALIZE
     3041   01 0158E    358003F3              STW,R8   PATTNO                  PATTERN NUMBER
     3042                            **********************************************************************
     3043                            * ENTRY FROM RESTART OPTION
     3044                            **********************************************************************
     3045   01 0158F    6A60221C     TST17#A  BAL,LINK GENFPAT           GENERATE PATTERNS
     3046   01 01590    6A60262C              BAL,LINK PAT@EBC
     3047   01 01591    6A601CD2              BAL,LINK DISARMALL         DISARM INTERRUPTS
     3048   01 01592    6A6026CF              BAL,LINK READEXP           FIND EXPECTED INTERRUPTS
     3049   01 01593    6A601168              BAL,LINK JAMXPSDS          INITIALIZE FIRST PAGE OF MEMORY
     3050   01 01594    6A6022B8     TST17#B  BAL,LINK INITHIST          INITIALIZE HISTORY TABLE
     3051   01 01595    6A6022CF              BAL,LINK INITPSD           INITIALIZE PSD TABLE
     3052   01 01596    6A60274D              BAL,LINK READSEQ           FIND EXPECTED INT. SEQUENCE
     3053   01 01597    6A602881              BAL,LINK SETHIGH           SET HIGH PRI. INT. TO ACTIVE
     3054   01 01598    6A6028D6              BAL,LINK SETPATT           ARM,ENABLE, AND TRIGGER AS PER
     3055                            *                                   PATTERNS
     3056   01 01599    228015A3              LI,R8    TST17#C
     3057   01 0159A    35802A4E              STW,R8   CURPSD            SET UP PSD INSTRUCTION ADDRESS
     3058   01 0159B    35802A90              STW,R8   INTEPSD
     3059   01 0159C    32802ACA              LW,R8    GRPINH
     3060   01 0159D    75802A91              STB,R8   INTEPSD+1
     3061   01 0159E    228000EE A            LI,R8    238               SET VALUE OF DELAY
     3062   01 0159F    35802A95              STW,R8   WAITCNT
     3063   01 015A0    02200000 A            LCI      0                 SET CONDITION CODES FOR 16 REG.
     3064   01 015A1    2A002C5E              LM,0     REGXPSDS          JAM XPSD'S IN REGISTERS
     3065   01 015A2    0E202A4E              LPSD,2   CURPSD            RELEASE HIGH PRIORITY INT.
     3066                            **********************************************************************
     3067                            * ALL EXPECTED INTERRUPTS SHOULD OCCUR DURING THE FOLLOWING DELAY
     3068                            **********************************************************************
     3069   01 015A3    33F02A95     TST17#C  MTW,-1   WAITCNT           DELAY FOR INTERRUPTS
     3070   01 015A4    692015A3              BGZ      %-1
     3071                            **********************************************************************
     3072                            * DROP THRU TO HERE AFTER NO MORE INTERRUPTS
     3073                            **********************************************************************
     3074   01 015A5    6A602881              BAL,LINK SETHIGH           INHIBIT FURTHER INTERRUPTS
     3075   01 015A6    6A601CDF              BAL,LINK CHKALL            CHECK IF ALL INTERRUPTS OCCURRED
     3076   01 015A7    6A601DCD              BAL,LINK CHKSEQ            CHECK IF ALL INTS. WERE IN SEQ.
     3077   01 015A8    6A601D06     TST17#X  BAL,LINK CHK:LOOP          CHECK FOR LOOPS
     3078   01 015A9    680015AB              B        %+2               LOOP RETURN
     3079   01 015AA    680015AD              B        %+3               CONTINUE RETURN
     3080                            *
     3081   01 015AB    33F003F3              MTW,-1   PATTNO            DECREMENT PATTERN NUMBER
     3082   01 015AC    68001594              B        TST17#B           REPEAT SAME TEST
     3083                            *
     3084   01 015AD    22800AB8 A            LI,R8    2744              CHECK IF LAST PATTERN HAS BEEN RUN
     3085   01 015AE    318003F3              CW,R8    PATTNO
     3086   01 015AF    6920158F              BG       TST17#A           BRANCH IF NO
     3087   01 015B0    680015B5              B        TST1800
     3088                            *
     3089                            *
     3090                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        ACTIVE INTERRUPT RELEASE TEST                     PAGE   30
A    3092                            *
     3093                            *
     3094                            *************************************************************
     3095                            *
     3096                            *  ACTIVE INTERRUPT RELEASE TEST - THIS TEST SETS EACH IMPLEMENTED
     3097                            *        INTERRUPT LEVEL TO THE ACTIVE STATE AND THEN RELEASES IT
     3098                            *        USING AN LPSD INSTRUCTION. THE PRIMARY PURPOSE OF THE TEST IS
     3099                            *        TO CHECK THE LOGIC THAT BYPASSES THE UNIMPLEMENTED LEVELS IN
     3100                            *        AN IMPLEMENTED GROUP.
     3101                            *
     3102                            *        TESTS ARE NUMBERED 18XY ( X= GROUP AND Y= LEVEL UNDER TEST)
     3103                            *
     3104                            ***************************************************************
     3105                            *
     3106         01 015B1           GOTST18  EQU      %
     3107   01 015B1    02200000 A            LCI      0
     3108   01 015B2    2A002605              LM,0     GOSAVE
     3109   01 015B3    328003F2              LW,R8    TESTNO            FIND SELECTED TEST
     3110   01 015B4    680015BB              B        TST18#A1-2
     3111                            *
     3112   01 015B5                 TST1800  RES      0
     3113   01 015B5    6A601CD2              BAL,LINK DISARMALL         DISARM ALL INTERRUPTS
     3114   01 015B6    22800001 A            LI,R8    1
     3115   01 015B7    35302A88              STW,LVL  RETRY%FLAG
     3116   01 015B8    358003F3              STW,R8   PATTNO            SET PATTERN TO 1
     3117   01 015B9    22200000 A            LI,GRP   0                 START TEST AT GROUP 0            AND
     3118   01 015BA    22300000 A            LI,LVL   0                         LEVEL 0
     3119   01 015BB    22400033 A            LI,X4    RC**2+3           INDEX TO 'RC' REGISTER (BYTE 3)
     3120   01 015BC    22B01000 A            LI,RB    ACTIVATE          COMMAND IS 'SET TO ACTIVE STATE'
     3121   01 015BD    22800000 A   TST18#A1 LI,R8    0
     3122   01 015BE    25200004 A            SLS,GRP  4                 DEVELOP TEST #
     3123   01 015BF    49800002 A            OR,R8    GRP
     3124   01 015C0    2520007C A            SLS,GRP  -4
     3125   01 015C1    49800003 A            OR,R8    LVL
     3126   01 015C2    3580000C A            STW,R8   RC
     3127   01 015C3    20801800 A            AI,R8    X'1800'
     3128   01 015C4    358003F2              STW,R8   TESTNO
     3129   01 015C5    75880000 A   TST18#A2 STB,R8   0,X4              LOAD GRP/LVL INTO RC  REG.
     3130   01 015C6    6A602736              BAL,LINK READLOC           SET LOCATION PARAMETER
     3131   01 015C7    22800000 A            LI,R8    0                 SAY NO INTERRUPTS EXPECTED
     3132   01 015C8    35802A90              STW,R8   INTEPSD                   *
     3133   01 015C9    52842ABE              LH,R8    LEVIMPL,GRP       IS THE LEVEL IMPLEMENTED
     3134   01 015CA    4B862B36              AND,R8   LEVMASK,LVL
     3135   01 015CB    68301612              BEZ      TST18#N           BRANCH IF NO
     3136         01 015CC           TST18#A3 EQU      %
     3137   01 015CC    70200392              LC       #SENSE
     3138   01 015CD    698015D0              BCS,8    %+3               SKIP IF SSW 1 IS SET
     3139   01 015CE    6A6026FF              BAL,LINK READFF            FIND STATE OF FF BEFORE TEST
     3140   01 015CF    3560000F A            STW,LINK RF                SAVE AS 'PREVIOUS STATE'
     3141   01 015D0    21C00003 A            CI,RC    3
     3142   01 015D1    682015D4              BLE      %+3               BRANCH IF COUNTER
     3143   01 015D2    6D841200 A            WD,R8    ARME,GRP
     3144   01 015D3    680015D5              B        %+2
     3145   01 015D4    6D841300 A            WD,R8    ARMD,GRP          SET TO ACTIVE STATE
     3146   01 015D5    ED84000B A            WD,R8    *RB,GRP                   *
     3147   01 015D6    70200392              LC       #SENSE            IS SHORT LOOP REQUESTED
     3148   01 015D7    698015E4              BCS,8    TST18#B           SKIP ERROR CHECK IF YES
     3149   01 015D8    6A6026FF              BAL,LINK READFF
     3150   01 015D9    3560000A A            STW,LINK LOG               RECORD ACTUAL STATE
     3151   01 015DA    21C00003 A            CI,RC    3                 COMPUTE EXPECTED STATE
     3152   01 015DB    692015DE              BG       %+3                      *
     3153   01 015DC    22D00004 A            LI,RD    4                        *
     3154   01 015DD    680015DF              B        %+2                      *
     3155   01 015DE    22D00005 A            LI,RD    5                        *
     3156   01 015DF    3160000D A            CW,LINK  RD
     3157   01 015E0    683015E4              BE       TST18#B           BRANCH IF IN EXPECTED STATE
     3158   01 015E1    22C000B1 A            LI,RC    X'B1'             SET ERROR TYPE INTO RC REGISTER
     3159   01 015E2    6A6020A0              BAL,LINK EROR              DISPLAY IT
     3160   01 015E3    680015FF              B        TST18#C           SKIP RELEASING IT
     3161                            *
     3162         01 015E4           TST18#B  EQU      %
     3163   01 015E4    320003F2              LW,R0    TESTNO            RELEASE COUNTERS DISARMED
     3164   01 015E5    4B002C8F              AND,R0   XFF                  AND OTHERS ARMED
     3165   01 015E6    3500000C A            STW,R0   RC
     3166   01 015E7    6A6026FF              BAL,LINK READFF
     3167   01 015E8    3560000F A            STW,LINK RF                FIND STATE OF FF BEFORE RELEASE
     3168   01 015E9    21000003 A            CI,R0    3                         *
     3169   01 015EA    692015EC              BG       %+2                       *
     3170   01 015EB    0E2015EE              LPSD,2   TST18PSD                  *
     3171                            *
     3172   01 015EC    0E3015EE              LPSD,3   TST18PSD          RELEASE HIGH ACTIVE INT. (ARMED)
     3173                            *
     3174                                     BOUND    8
     3175   01 015EE    000015F0     TST18PSD DATA     TST18#B1,0
            01 015EF    00000000 A
     3176   01 015F0    70200392     TST18#B1 LC       #SENSE            IS SHORT LOOP REQUESTED
     3177   01 015F1    698015FF              BCS,8    TST18#D-2         SKIP ERROR CHECK IF YES
     3178   01 015F2    32C003F2              LW,RC    TESTNO            CHECK IF IT RELEASED TO PROPER STATE
     3179   01 015F3    4BC02C8F              AND,RC   XFF                       *
     3180   01 015F4    6A6026FF              BAL,LINK READFF
     3181   01 015F5    3560000A A            STW,LINK LOG                       *
     3182   01 015F6    21C00003 A            CI,RC    3                         *
     3183   01 015F7    692015FA              BG       %+3                       *
     3184   01 015F8    22D00000 A            LI,RD    0                 SAY EXP. STATE = DIS(D)
     3185   01 015F9    680015FB              B        %+2                       *
     3186   01 015FA    22D00003 A            LI,RD    3                 SAY EXP. STATE = ARM(E)
     3187   01 015FB    31A0000D A            CW,LOG   RD                WAS IT RIGHT
     3188   01 015FC    683015FF              BE       %+3               BRANCH IF YES
     3189   01 015FD    22C000B2 A            LI,RC    X'B2'             SET ERROR TYPE = B2
     3190   01 015FE    6A6020A0              BAL,LINK EROR                 DISPLAY ERROR
     3191                            *
     3192                            *
     3193   01 015FF    6A601D06     TST18#C  BAL,LINK CHK:LOOP          WERE LOOPS REQUESTED
     3194   01 01600    680015CC              B        TST18#A3          LOOP IF YES
     3195   01 01601    20300001 A   TST18#D  AI,LVL   1                 NO, CONTINUE
     3196   01 01602    21200000 A            CI,GRP   0
     3197   01 01603    68301606              BE       %+3
     3198   01 01604    21300010 A            CI,LVL   16                HAVE 16 LEVELS BEEN TESTED
     3199   01 01605    68001607              B        %+2
     3200   01 01606    2130000E A            CI,LVL   14                HAVE 14 LEVELS BEEN TESTED
     3201   01 01607    691015BD              BL       TST18#A1          BRANCH IF NOT
     3202   01 01608    21200000 A            CI,GRP   0                 WAS THE LAST GROUP GROUP 0
     3203   01 01609    6930160B              BNE      %+2
     3204   01 0160A    20200001 A            AI,GRP   1                 SKIP NONEXISTANT GROUP 1
     3205   01 0160B    20200001 A            AI,GRP   1
     3206   01 0160C    2120000F A            CI,GRP   15                HAVE WE FINISHED
     3207   01 0160D    69201692              BG       TST2100           EXIT TO NEXT TEST IF YES
     3208   01 0160E    52842ABE              LH,R8    LEVIMPL,GRP       IS NEXT GROUP IMPLEMENTED
     3209   01 0160F    6830160B              BEZ      %-4               GO TO NEXT GROUP IF IT ISN'T
     3210   01 01610    22300000 A            LI,LVL   0
     3211   01 01611    680015BD              B        TST18#A1          TEST FIRST LEVEL OF NEXT GROUP
     3212                            *
     3213                            *  ENTER HERE IF LEVEL IS NOT IMPLEMENTED
     3214                            *
     3215   01 01612    32802615     TST18#N  LW,R8    PARAMT%HEX        WAS IT AN ENTRY FROM LINE T
     3216   01 01613    318003F2              CW,R8    TESTNO
     3217   01 01614    683025D8              BE       INVALTST#         EXIT IF INVALID TEST SELECTED
     3218   01 01615    68001601              B        TST18#D
     3219                            *
1 C00   22:37 JUN 20,'83                        TRAP HANDLING ROUTINE                             PAGE   31
A    3221                            *
     3222                            *
     3223                            **************************************************
     3224                            *  TRAP LOCATION PSD
     3225                            **************************************************
     3226                            *
     3227                                     BOUND    8
     3228   01 01616    00000000 A   TRAPPSD  GEN,32,32  0,0             PSD STORED BY AN EXPECTED TRAP
                        00000000
     3229   01 01618    0000161B N            GEN,32,32  TRAPACC,0       NEW PSD TO TRAP ACCESS TABLE
                        00000000
     3230                            *
     3231                            *
     3232                            **************************************************
     3233                            *  TRAP ACCESS TABLE
     3234                            **************************************************
     3235                            *
     3236                            *
     3237                            *  THIS TABLE CONTAINS 16 BRANCH AND LINK INSTRUCTIONS
     3238                            *     DIRECTED TO THE TRAP HANDLING ROUTINE TO ALLOW A CHECK
     3239                            *     OF THE ADDRESS MODIFICATION OF THE ADDRESS IN THE NEW
     3240                            *     PSD.  RELATIVE POSITION IN THIS TABLE INDICATES THE
     3241                            *     ADDRESS INCREMENT.
     3242                            *
     3243                            **************************************************
     3244   01 0161A    0000161C     TRAPACCP DATA     TRAPACC+1         TRAP ACCESS TABLE POINTER
     3245                            *
     3246   01 0161B                 TRAPACC  RES      0
     3247         00000010                    DO       16
     3248   01 0161B    6A60162C              BAL,LINK TRAPHAND
     3249                                     FIN
            01 0161C    6A60162C
            01 0161D    6A60162C
            01 0161E    6A60162C
            01 0161F    6A60162C
            01 01620    6A60162C
            01 01621    6A60162C
            01 01622    6A60162C
            01 01623    6A60162C
            01 01624    6A60162C
            01 01625    6A60162C
            01 01626    6A60162C
            01 01627    6A60162C
            01 01628    6A60162C
            01 01629    6A60162C
            01 0162A    6A60162C
1 C00   22:37 JUN 20,'83                        TRAP HANDLING ROUTINE                             PAGE   32
A    3251                            *
     3252                            **********************************************************************
     3253                            *                                                                    *
     3254                            *    T R A P   H A N D L I N G    R O U T I N E                      *
     3255                            *                                                                    *
     3256                            **********************************************************************
     3257                            *                                                                    *
     3258                            *  THIS ROUTINE IS ENTERED ON ANY EXPECTED TRAP.                     *
     3259                            *                 1. CHECK STORED PSD AGAINST 'TRAPEPSD'             *
     3260                            *                 2. CHECK TRAP CONDITION CODES                      *
     3261                            *                 3. CHECK TRAP ADDRESSING  (BOTH WITH AND WITHOUT   *
     3262                            *                    BIT 9 OF THE XPSD SET)                          *
     3263                            *                                                                    *
     3264                            *                                                                    *
     3265                            *  ENTER WITH 1. EXPECTED PSD IN 'TRAPEPSD'                          *
     3266                            *             2. TRAP ADDRESS DISPLACEMENT + 'TRAPACC' IN LINK       *
     3267                            *             3. EXPECTED CONDITION CODES IN 'TRAPECC'
     3268                            *             4. STATUS OF XPSD BIT 9 IN 'XPSDBIT9'                  *
     3269                            *             5. STORED PSD IN 'TRAPPSD'                             *
     3270                            *             6. RETURN ADDRESS IN 'TRAPRET'                         *
     3271                            *             7. EXPECTED ADDRESS INCREMENT IN 'TRAPINCR'            *
     3272                            *             8. TRAP LOCATION IN 'TRAPLOC'
     3273                            *                                                                    *
     3274                            *  EXIT TO LOCATION DESIGNATED BY TRAP TEST (STORED IN 'TRAPRET')    *
     3275                            *                                                                    *
     3276                            *                                                                    *
     3277                            **********************************************************************
1 C00   22:37 JUN 20,'83                        TRAP HANDLING ROUTINE                             PAGE   33
A    3279   01 0162B    0000162C     TRAPHP   DATA     TRAPHAND          TRAP HANDLER POINTER
     3280   01 0162C    74002A48     TRAPHAND STCF     CODES             FIND CURRENT CONDITION CODES
     3281   01 0162D    02200000 A            LCI      0
     3282   01 0162E    2B001677              STM,0    TRAPSAVE          SAVE REGISTERS
     3283   01 0162F    22800000 A            LI,R8     0
     3284   01 01630    3580175F              STW,R8    NOTRAP
     3285   01 01631    70200392              LC        #SENSE      CHECK FOR SHORT LOOP
     3286   01 01632    69801674              BCS,8     THAND#X     EXIT IF SET
     3287   01 01633    3860161A              SW,LINK  TRAPACCP          COMPUTE ADDRESS INCREMENT
     3288   01 01634    3560000D A            STW,LINK RD
     3289   01 01635    32801616              LW,R8    TRAPPSD           CHECK STORED PSD WORD 1
     3290   01 01636    32902A8E              LW,R9    TRAPEPSD            WITH EXP. RESULT
     3291   01 01637    6A601D83              BAL,LINK CHK%PDF           CHECK PDF
     3292   01 01638    6D000027 A            WD,0     X'27'             RESET ALL INHIBITS
     3293   01 01639    33002A8B              MTW,0    SUPP%CC           CHECK IF FLAG SET
     3294   01 0163A    6830163D              BEZ      %+3                  AND BRANCH IF YES
     3295   01 0163B    4B802CA8              AND,R8   XFFFFFFF          DONT CHECK CC
     3296   01 0163C    4B902CA8              AND,R9   XFFFFFFF                  *
     3297   01 0163D    31800009 A            CW,R8    R9
     3298   01 0163E    68301641              BE       %+3               SKIP IF OK
     3299   01 0163F    22C00081 A            LI,RC    X'81'             ERROR TYPE 81
     3300   01 01640    6A6020A0              BAL,LINK EROR
     3301   01 01641    32802A8F              LW,R8    TRAPEPSD+1        CHECK PSD SECOND WORD
     3302   01 01642    31801617              CW,R8    TRAPPSD+1
     3303   01 01643    68301646              BE       %+3               SKIP IF OK
     3304   01 01644    22C00082 A            LI,RC    X'82'             ERROR TYPE 82
     3305   01 01645    6A6020A0              BAL,LINK EROR
     3306   01 01646    32102A93              LW,X1    TRAPLOC
     3307   01 01647    32802C9F              LW,R8    Y40
     3308   01 01648    31820000 A            CW,R8    0,X1
     3309   01 01649    6840164F              BCR,4    THAND#A           BRANCH IF XPSD BIT 9= 0
     3310                            *
     3311                            *
     3312                            *  ENTER HERE IF XPSD BIT 9 WAS SET
     3313                            *
     3314   01 0164A    31D02A92              CW,RD    TRAPINCR          DID ADDRESS INCREMENT CORRECTLY
     3315   01 0164B    68301653              BE       THAND#B           BRANCH IF YES
     3316                            *
     3317   01 0164C    22C00042 A            LI,RC    X'42'             ERROR TYPE 42
     3318   01 0164D    6A6020A0              BAL,LINK EROR
     3319   01 0164E    68001653              B        THAND#B
     3320                            *
     3321                            *  ENTER HERE IF XPSD BIT 9 IS NOT SET
     3322                            *
     3323   01 0164F    21D00000 A   THAND#A  CI,RD    0                 CHECK FOR ZERO INCREMENT
     3324   01 01650    68301653              BE       THAND#B           BRANCH IF NO ERROR
     3325   01 01651    22C00041 A            LI,RC    X'41'             ERROR TYPE 41
     3326   01 01652    6A6020A0              BAL,LINK EROR
     3327   01 01653    72802A48     THAND#B  LB,R8    CODES             FIND COND. CODE AFTER TRAP
     3328   01 01654    71802A8D              CB,R8    TRAPECC           WAS IT AS EXPECTED
     3329   01 01655    68301658              BE       THAND#C           BRANCH IF YES
     3330   01 01656    22C00061 A            LI,RC    X'61'             ERROR TYPE 61
     3331   01 01657    6A6020A0              BAL,LINK EROR
     3332   01 01658    32802A93     THAND#C  LW,R8    TRAPLOC
     3333   01 01659    21800046 A            CI,R8    X'46'
     3334   01 0165A    68301671              BE       THAND#E           BRANCH IF WDT
     3335   01 0165B    2180004D A            CI,R8    X'4D'
     3336   01 0165C    68301671              BE       THAND#E           BRANCH IF INST. EXCEPTION
     3337   01 0165D    2180004C A            CI,R8    X'4C'
     3338   01 0165E    69301674              BNE      THAND#X           BRANCH IF NOT PE TRAP
     3339                            *
     3340   01 0165F    022000C0 A   THAND#D  LCI      12
     3341   01 01660    2DD01B6D              LMS,RD   BAD%PARITY        READ AND CLEAR FAULT
     3342   01 01661    7030000D A            LCF      RD
     3343   01 01662    69401666              BCS,4    %+4               BRANCH IF FAULT #1
     3344                            *
     3345   01 01663    22C000C1 A            LI,RC    X'C1'
     3346   01 01664    32E02CAE              LW,RE    X40000800
     3347   01 01665    6A6020A0              BAL,LINK EROR
     3348                            *
     3349   01 01666    32802A8A              LW,R8    SETCC
     3350   01 01667    35801B6D              STW,R8   BAD%PARITY        CLEAR PARITY ERROR
     3351   01 01668    22C00005 A            LI,RC    5
     3352   01 01669    6A6026FF              BAL,LINK READFF            READ STATE OF MFI FF'S
     3353   01 0166A    21600006 A            CI,LINK  6
     3354   01 0166B    68301671              BE       THAND#E           NO ERROR IF EQUAL
     3355   01 0166C    22C000B3 A            LI,RC    X'B3'
     3356   01 0166D    22F00002 A            LI,RF    2
     3357   01 0166E    6A6020A0              BAL,LINK EROR
     3358                            *
     3359   01 0166F    22800400 A            LI,R8    X'400'
     3360   01 01670    6D801100 A            WD,R8    DISARM            DISARM MEM. FAULT INT.
     3361                            *
     3362   01 01671    0E101672     THAND#E  LPSD,1   CLEAR%PDF
     3363                            *
     3364                                     BOUND    8
     3365   01 01672    00001674     CLEAR%PDF  DATA   THAND#X           CLEAR THE PDF FLAG
     3366   01 01673    00000000 A            DATA     0
     3367                            *
     3368                            *
     3369                            * EXIT FROM ROUTINE
     3370                            *
     3371   01 01674    02200000 A   THAND#X  LCI      0
     3372   01 01675    2A001677              LM,0     TRAPSAVE          RESTORE REGISTERS
     3373   01 01676    E8002A94              B        *TRAPRET
     3374                            *
     3375   01 01677                 TRAPSAVE RES      16
     3376                            *
     3377                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        NON-ALLOWED OPERATION TRAP TESTS                  PAGE   34
A    3379                            *
     3380                            *
     3381                            **********************************************************************
     3382                            *  NON-EXISTANT INSTRUCTION TEST  - EXECUTES 10 IMMEDIATE
     3383                            *        INSTRUCTIONS (IMMEDIATE ADDRESSING) AND 32 NON-
     3384                            *        EXISTANT OP CODES WITH THE TRAP XPSD BIT 9=0
     3385                            **********************************************************************
     3386                            *
     3387                            ************************************
     3388                            * ENTRY FROM PARAMETER LINE T      *
     3389                            ************************************
     3390                            *
     3391         01 01687           GOTST21  EQU      %
     3392   01 01687    02200000 A            LCI      0
     3393   01 01688    2A002605              LM,0     GOSAVE
     3394   01 01689    324003F3              LW,X4    PATTNO
     3395   01 0168A    22800040 A            LI,R8    X'40'
     3396   01 0168B    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     3397   01 0168C    328003F2              LW,R8    TESTNO
     3398   01 0168D    21802101 A            CI,R8    X'2101'
     3399   01 0168E    68301699              BE       TST21#A
     3400   01 0168F    21802102 A            CI,R8    X'2102'
     3401   01 01690    683016B9              BE       TST21#D
     3402   01 01691    680025D8              B        INVALTST#         ERROR - INVALID TEST NUMBER
     3403                            *
     3404                            *        ENTRY FROM INTERRUPT TESTS
     3405                            *
     3406   01 01692                 TST2100  RES      0
     3407   01 01692    6A601168              BAL,LINK JAMXPSDS          INITIALIZE LOC'NS X'10'-X'1FF'
     3408   01 01693    6A6022B8              BAL,LINK INITHIST          INITIALIZE HISTORY TABLE
     3409   01 01694    22800040 A            LI,R8    X'40'
     3410   01 01695    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     3411   01 01696    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     3412   01 01697    22802101 A            LI,R8    X'2101'           INITIALIZE TEST 2101
     3413   01 01698    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3414   01 01699    354003F3     TST21#A  STW,X4   PATTNO
     3415   01 0169A    22800000 A            LI,R8    0
     3416   01 0169B    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3417   01 0169C    32802C6E              LW,R8    TRAPXPSD
     3418   01 0169D    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3419   01 0169E    228016A9     TST21#B  LI,R8    TRAP40A              FIND ADDRESS OF EXPECTED TRAP
     3420   01 0169F    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     3421   01 016A0    22800080 A            LI,R8    X'80'
     3422   01 016A1    75802A8D              STB,R8   TRAPECC
     3423   01 016A2    72802A8A              LB,R8    SETCC             FIND CONDITION CODES EXPECTED
     3424   01 016A3    75802A8E              STB,R8   TRAPEPSD             SET EXP. COND. CODES(ALL 1'S)
     3425   01 016A4    228016AE              LI,R8    TST21#C
     3426   01 016A5    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     3427   01 016A6    22800000 A            LI,R8    0
     3428   01 016A7    35802A8F              STW,R8   TRAPEPSD+1           SET EXP. PSD WORD 2 TO ZERO
     3429   01 016A8    70202A8A              LC       SETCC             SET CONDITION CODES
     3430                            **********************************************************************
     3431                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     3432                            **********************************************************************
     3433   01 016A9    670816BF     TRAP40A  EXU      NONEXIST-1,X4
     3434                            **********************************************************************
     3435                            *  FALL THROUGH IF NO TRAP
     3436                            **********************************************************************
     3437   01 016AA    22E016A9              LI,RE    TRAP40A           FIND TRAP ADDRESS
     3438   01 016AB    32D816BF              LW,RD    NONEXIST-1,X4     FIND TRAPPING INSTRUCTION
     3439   01 016AC    22C00071 A            LI,RC    X'71'                ERROR TYPE 71
     3440   01 016AD    6A6020A0              BAL,LINK EROR
     3441                            *
     3442                            **********************************************************************
     3443                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     3444                            **********************************************************************
     3445   01 016AE    6A601D06     TST21#C  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     3446   01 016AF    680016A8              B        TRAP40A-1         LOOP = YES RETURN
     3447   01 016B0    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     3448   01 016B1    354003F3              STW,X4   PATTNO
     3449   01 016B2    2140002A A            CI,X4    42                WAS THAT THE LAST PATTERN
     3450   01 016B3    682016A8              BLE      TRAP40A-1         LOOP IF NO
     3451   01 016B4    32802A92              LW,R8    TRAPINCR          IS TEST 2102 COMPLETE
     3452   01 016B5    693016F5              BNEZ     TST22#A           BRANCH TO NEXT TEST IF YES
     3453                            **********************************************************************
     3454                            *  TEST 2102 - SAME AS 2101 EXCEPT XPSD BIT 9 IS SET
     3455                            **********************************************************************
     3456   01 016B6    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     3457   01 016B7    22802102 A            LI,R8    X'2102'           INITIALIZE TEST 2102
     3458   01 016B8    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3459   01 016B9    354003F3     TST21#D  STW,X4   PATTNO
     3460   01 016BA    32802C6E              LW,R8    TRAPXPSD
     3461   01 016BB    49802C9F              OR,R8    Y40                  SET BIT 9
     3462   01 016BC    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3463   01 016BD    22800008 A            LI,R8    8
     3464   01 016BE    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3465   01 016BF    6800169E              B        TST21#B
     3466                            *
     3467                            *******************************************
     3468                            *  TRAP TEST 2101-2 INSTRUCTIONS
     3469                            *******************************************
     3470                            *
     3471   01 016C0                 NONEXIST RES      0
     3472                            *
     3473                            *  INDIRECTLY ADDRESSED IMMEDIATE INSTRUCTIONS
     3474                            *
     3475                            *                                         INSTRUCTION   SUBTEST #
     3476   01 016C0    82602C7F              GEN,8,4,3,17  X'82',6,0,SEVEN       LCFI           1
     3477   01 016C1    A0602C7F              GEN,8,4,3,17  X'A0',6,0,SEVEN       AI             2
     3478   01 016C2    A1602C7F              GEN,8,4,3,17  X'A1',6,0,SEVEN       CI             3
     3479   01 016C3    A2602C7F              GEN,8,4,3,17  X'A2',6,0,SEVEN       LI             4
     3480   01 016C4    A3602C7F              GEN,8,4,3,17  X'A3',6,0,SEVEN       MI             5
     3481   01 016C5    C0602C7F              GEN,8,4,3,17  X'C0',6,0,SEVEN       TTBS           6
     3482   01 016C6    C1602C7F              GEN,8,4,3,17  X'C1',6,0,SEVEN       TBS            7
     3483   01 016C7    E0602C7F              GEN,8,4,3,17  X'E0',6,0,SEVEN       CBS            8
     3484   01 016C8    E1602C7F              GEN,8,4,3,17  X'E1',6,0,SEVEN       MBS            9
     3485   01 016C9    E3602C7F              GEN,8,4,3,17  X'E3',6,0,SEVEN       EBS            A
     3486                            *
     3487                            *  NON EXISTANT OP CODES
     3488                            *
     3489   01 016CA    01002C7F              GEN,8,24   1,SEVEN                                 B
     3490   01 016CB    03002C7F              GEN,8,24   3,SEVEN                                 C
     3491   01 016CC    14002C7F              GEN,8,24   X'14',SEVEN                             D
     3492   01 016CD    16002C7F              GEN,8,24   X'16',SEVEN                             E
     3493   01 016CE    17002C7F              GEN,8,24   X'17',SEVEN                             F
     3494   01 016CF    34002C7F              GEN,8,24   X'34',SEVEN                            10
     3495   01 016D0    42002C7F              GEN,8,24   X'42',SEVEN                            11
     3496   01 016D1    43002C7F              GEN,8,24   X'43',SEVEN                            12
     3497   01 016D2    54002C7F              GEN,8,24   X'54',SEVEN                            13
     3498   01 016D3    59002C7F              GEN,8,24   X'59',SEVEN                            14
     3499   01 016D4    5C002C7F              GEN,8,24   X'5C',SEVEN                            15
     3500   01 016D5    5D002C7F              GEN,8,24   X'5D',SEVEN                            16
     3501   01 016D6    5E002C7F              GEN,8,24   X'5E',SEVEN                            17
     3502   01 016D7    5F002C7F              GEN,8,24   X'5F',SEVEN                            18
     3503   01 016D8    62002C7F              GEN,8,24   X'62',SEVEN                            19
     3504   01 016D9    81002C7F              GEN,8,24   X'81',SEVEN                            1A
     3505   01 016DA    83002C7F              GEN,8,24   X'83',SEVEN                            1B
     3506   01 016DB    94002C7F              GEN,8,24   X'94',SEVEN                            1C
     3507   01 016DC    96002C7F              GEN,8,24   X'96',SEVEN                            1D
     3508   01 016DD    97002C7F              GEN,8,24   X'97',SEVEN                            1E
     3509   01 016DE    B4002C7F              GEN,8,24   X'B4',SEVEN                            1F
     3510   01 016DF    C2002C7F              GEN,8,24   X'C2',SEVEN                            20
     3511   01 016E0    C3002C7F              GEN,8,24   X'C3',SEVEN                            21
     3512   01 016E1    D4002C7F              GEN,8,24   X'D4',SEVEN                            22
     3513   01 016E2    D9002C7F              GEN,8,24   X'D9',SEVEN                            23
     3514   01 016E3    DC002C7F              GEN,8,24   X'DC',SEVEN                            24
     3515   01 016E4    DD002C7F              GEN,8,24   X'DD',SEVEN                            25
     3516   01 016E5    DE002C7F              GEN,8,24   X'DE',SEVEN                            26
     3517   01 016E6    DF002C7F              GEN,8,24   X'DF',SEVEN                            27
     3518   01 016E7    E2002C7F              GEN,8,24   X'E2',SEVEN                            28
     3519   01 016E8    80002C7F              GEN,8,24   X'80',SEVEN                            29
     3520   01 016E9    00002C7F              GEN,8,24   0,SEVEN                                2A






     3522                            **********************************************************************
     3523                            *  TEST 2201   - STORE ZEROS IN NON-EXISTANT MEMORY
     3524                            **********************************************************************
     3525                            *
     3526                            ************************************
     3527                            * ENTRY FROM PARAMETER LINE T      *
     3528                            ************************************
     3529                            *
     3530         01 016EA           GOTST22  EQU      %
     3531   01 016EA    02200000 A            LCI      0
     3532   01 016EB    2A002605              LM,0     GOSAVE
     3533   01 016EC    324003F3              LW,X4    PATTNO
     3534   01 016ED    22800040 A            LI,R8    X'40'
     3535   01 016EE    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     3536   01 016EF    328003F2              LW,R8    TESTNO
     3537   01 016F0    21802201 A            CI,R8    X'2201'
     3538   01 016F1    683016F5              BE       TST22#A
     3539   01 016F2    21802202 A            CI,R8    X'2202'
     3540   01 016F3    68301720              BE       TST22#D
     3541   01 016F4    680025D8              B        INVALTST#         ERROR - INVALID TEST NUMBER
     3542                            *
     3543   01 016F5    22802201 A   TST22#A  LI,R8    X'2201'           INITIALIZE TEST 2201
     3544   01 016F6    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3545   01 016F7    22800000 A            LI,R8    0
     3546   01 016F8    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3547   01 016F9    32802C6E              LW,R8    TRAPXPSD
     3548   01 016FA    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3549   01 016FB    22800001 A   TST22#B  LI,R8    1
     3550   01 016FC    358003F3              STW,R8   PATTNO               SET PATTERN NUMBER TO 0
     3551   01 016FD    2280170B              LI,R8    TRAP40B              FIND ADDRESS OF EXPECTED TRAP
     3552   01 016FE    72902A8A              LB,R9    SETCC             SET THE EXP. CC'S
     3553   01 016FF    75900008 A            STB,R9   R8                        *
     3554   01 01700    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     3555   01 01701    22800040 A            LI,R8    X'40'
     3556   01 01702    75802A8D              STB,R8   TRAPECC
     3557   01 01703    2280171B              LI,R8    TST22#C
     3558   01 01704    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     3559   01 01705    6D000047 A            WD,0     X'47'             SET BIT 40 OF CURRENT PSD
     3560   01 01706    32802CA0              LW,R8    X800000           SAY BIT 40 EXPECTED
     3561   01 01707    35802A8F              STW,R8   TRAPEPSD+1                *
     3562   01 01708    32B02CB7              LW,RB    4MEGWORD             SET R11 AT TOP OF MEM.
     3563   01 01709    22800000 A            LI,R8    0
     3564   01 0170A    70202A8A              LC       SETCC             SET CONDITION CODES
     3565                            **********************************************************************
     3566                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     3567                            **********************************************************************
     3568   01 0170B    B580000B A   TRAP40B  STW,R8   *RB               STORE ALL ZEROS
     3569                            **********************************************************************
     3570                            *  FALL THROUGH IF NO TRAP
     3571                            **********************************************************************
     3572   01 0170C    B290000B A            LW,R9    *RB               IS MEMORY THERE
     3573   01 0170D    68301713              BEZ      %+6               BRANCH IF YES
     3574   01 0170E    22E0170B              LI,RE    TRAP40B           FIND EXPECTED TRAP ADDRESS
     3575   01 0170F    32D0170B              LW,RD    TRAP40B           FIND EXP. TRAPPING INSTR.
     3576   01 01710    22C00071 A            LI,RC    X'71'             ERROR TYPE 71
     3577   01 01711    6A6020A0              BAL,LINK EROR
     3578   01 01712    68001734              B        TST23#A           SKIP TO TEST 2301
     3579                            **********************************************************************
     3580                            *  TRY TO FIND A NON-EXISTANT MEMORY LOCATION
     3581                            **********************************************************************
     3582   01 01713    20BFE000 A            AI,RB    -X'2000'          TRY NEXT LOWER 8K
     3583   01 01714    21B03FFF A            CI,RB    X'3FFF'
     3584   01 01715    6920170A              BG       TRAP40B-1         LOOK FOR A TRAP
     3585   01 01716    6A602809              #PRINT,1,1 FULLMEM,C2      SAY MEMORY FULLY IMPL.
            01 01717    EA6003CD
            01 01718    0160C310 A
            01 01719    6A602832
     3586   01 0171A    68001734              B        TST23#A           SKIP TO TEST 2301
     3587                            **********************************************************************
     3588                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     3589                            **********************************************************************
     3590   01 0171B    6A601D06     TST22#C  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     3591   01 0171C    6800170A              B        TRAP40B-1         LOOP = YES RETURN
     3592   01 0171D    35B01728              STW,RB   NOMEMORY
     3593   01 0171E    32802A92              LW,R8    TRAPINCR          IS TEST 2202 COMPLETE
     3594   01 0171F    69301734              BNEZ     TST23#A           BRANCH TO NEXT TEST IF YES
     3595                            *
     3596                            **********************************************************************
     3597                            *  TEST 2202 -  SAME AS 2201 WITH XPSD BIT 9 = 1
     3598                            **********************************************************************
     3599                            *
     3600   01 01720    22802202 A   TST22#D  LI,R8    X'2202'           INITIALIZE TEST
     3601   01 01721    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3602   01 01722    32802C6E              LW,R8    TRAPXPSD
     3603   01 01723    49802C9F              OR,R8    Y40                  SET XPSD BIT 9 = 1
     3604   01 01724    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3605   01 01725    22800004 A            LI,R8    4
     3606   01 01726    35802A92              STW,R8   TRAPINCR
     3607   01 01727    680016FB              B        TST22#B
     3608                            *
     3609   01 01728    003FFFFF A   NOMEMORY DATA     X'3FFFFF'
     3610                            *
     3611                            **********************************************************************
     3612                            *  TEST 2301 -  PRIVILEGED  INSTRUCTION TRAP
     3613                            *        EXECUTES EACH PRIVILEGED INSTRUCTION IN THE SLAVE
     3614                            *        MODE WITH XPSD BIT 9 = 0
     3615                            **********************************************************************
     3616                            *
     3617                            ************************************
     3618                            * ENTRY FROM PARAMETER LINE T      *
     3619                            ************************************
     3620                            *
     3621         01 01729           GOTST23  EQU      %
     3622   01 01729    02200000 A            LCI      0
     3623   01 0172A    2A002605              LM,0     GOSAVE
     3624   01 0172B    324003F3              LW,X4    PATTNO
     3625   01 0172C    22800040 A            LI,R8    X'40'
     3626   01 0172D    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     3627   01 0172E    328003F2              LW,R8    TESTNO
     3628   01 0172F    21802301 A            CI,R8    X'2301'
     3629   01 01730    68301737              BE       TST23#B
     3630   01 01731    21802302 A            CI,R8    X'2302'
     3631   01 01732    68301776              BE       TST23#G
     3632   01 01733    680025D8              B        INVALTST#         ERROR - INVALID TEST NUMBER
     3633                            *
     3634                            *
     3635   01 01734    22400001 A   TST23#A  LI,X4    1                 SET INDEX FOR PATTERN 1
     3636   01 01735    22802301 A            LI,R8    X'2301'           INITIALIZE TEST
     3637   01 01736    358003F2              STW,R8   TESTNO
     3638   01 01737    22800000 A   TST23#B  LI,R8    0
     3639   01 01738    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3640   01 01739    32802C6E              LW,R8    TRAPXPSD
     3641   01 0173A    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3642   01 0173B    2280174D     TST23#C  LI,R8    TRAP40C              FIND ADDRESS OF EXPECTED TRAP
     3643   01 0173C    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     3644   01 0173D    22800020 A            LI,R8    X'20'
     3645   01 0173E    75802A8D              STB,R8   TRAPECC
     3646   01 0173F    22800080 A            LI,R8    X'80'             SET BIT 8
     3647   01 01740    55802A8E              STH,R8   TRAPEPSD
     3648   01 01741    72802A8A              LB,R8    SETCC             SET EXP CC'S
     3649   01 01742    75802A8E              STB,R8   TRAPEPSD                  *
     3650   01 01743    22800000 A            LI,R8    0
     3651   01 01744    35802A8F              STW,R8   TRAPEPSD+1
     3652   01 01745    22801761              LI,R8    TST23#D
     3653   01 01746    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     3654   01 01747    354003F3              STW,X4   PATTNO
     3655   01 01748    0E00174A     TST23#C1 LPSD,0   TRAP40C-3         GO TO SLAVE MODE
     3656                                     BOUND    8
     3657   01 0174A    F080174C N            GEN,12,20,32   X'F08',%+2,0
                        00000000
     3658   01 0174C    70202A8A              LC       SETCC             SET CONDITION CODES
     3659                            **********************************************************************
     3660                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     3661                            **********************************************************************
     3662   01 0174D    6708177B     TRAP40C  EXU      PRIVILGD-1,X4
     3663                            **********************************************************************
     3664                            *  FALL THROUGH IF NO TRAP
     3665                            **********************************************************************
     3666   01 0174E    3310175F     OUTSLAVE MTW,1    NOTRAP            SET NO TRAP FLAG
     3667   01 0174F    3280175E              LW,R8    OUTSLAVEXPSD
     3668   01 01750    46800040 A            XW,R8    X'40'
     3669   01 01751    670016C0              EXU      NONEXIST          TRAP OUT OF SLAVE MODE WITH
     3670                            *                                       A PREVIOUSLY TESTED TRAP INSTR.
     3671   01 01752    68001751              B        %-1               GO TO INFINITE LOOP IF NO TRAP
     3672                            *
     3673   01 01753    46800040 A   OUTSLAVE#1  XW,R8  X'40'            RESTORE XPSD IN TRAP LOCN.
     3674   01 01754    E8002A94                 B      *TRAPRET
     3675                            *
     3676                                     BOUND    8
     3677   01 01756    00000000 A            DATA     0,0,TST23#D-1,0
            01 01757    00000000 A
            01 01758    00001760
            01 01759    00000000 A
     3678   01 0175A    00000000 A            DATA     0,0,OUTSLAVE#1,0
            01 0175B    00000000 A
            01 0175C    00001753
            01 0175D    00000000 A
     3679   01 0175E    0F00175A     OUTSLAVEXPSD  XPSD,0  %-4
     3680                            *
     3681   01 0175F    00000000 A   NOTRAP   DATA      0           NO TRAP IN SLAVE MODE FLAG
     3682                            *
     3683   01 01760    3310175F              MTW,1    NOTRAP     RET. HERE IF NO LPSD OR XPSD TRAP
     3684                            *
     3685                            **********************************************************************
     3686                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     3687                            **********************************************************************
     3688   01 01761    3280175F     TST23#D  LW,R8    NOTRAP            CHECK FOR NO TRAP
     3689   01 01762    68301769              BEZ      TST23#E           BRANCH IF OK
     3690   01 01763    22800000 A            LI,R8    0
     3691   01 01764    3580175F              STW,R8   NOTRAP
     3692   01 01765    22C00071 A            LI,RC    X'71'             ERROR TYPE 71
     3693   01 01766    32D8177B              LW,RD    PRIVILGD-1,X4     FIND TRAPPING INSTR.
     3694   01 01767    22E0174D              LI,RE    TRAP40C           FIND TRAP ADDRESS
     3695   01 01768    6A6020A0              BAL,LINK EROR
     3696                            *
     3697   01 01769    6A601D06     TST23#E  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     3698   01 0176A    68001748              B        TST23#C1          LOOP = YES RETURN
     3699   01 0176B    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     3700   01 0176C    354003F3              STW,X4   PATTNO
     3701   01 0176D    2140000E A            CI,X4    14                WAS THAT THE LAST PATTERN
     3702   01 0176E    68201748              BLE      TST23#C1          LOOP IF NO
     3703   01 0176F    324003F2              LW,X4    TESTNO
     3704   01 01770    21402302 A            CI,X4    X'2302'
     3705   01 01771    68301795              BE       TST24#A           GO TO TEST 2401 IF AT 2302
     3706                            *
     3707                            **********************************************************************
     3708                            *  TEST 2302 -  SAME AS 2301 WITH XPSD BIT 9 = 1
     3709                            **********************************************************************
     3710                            *
     3711   01 01772    22400001 A            LI,X4    1                 SET INDEX FOR PATTERN 1
     3712   01 01773    354003F3              STW,X4   PATTNO
     3713   01 01774    22802302 A            LI,R8    X'2302'           INITIALIZE TEST
     3714   01 01775    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3715   01 01776    32802C6E     TST23#G  LW,R8    TRAPXPSD
     3716   01 01777    49802C9F              OR,R8    Y40                  SET XPSD BIT 9 = 1
     3717   01 01778    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3718   01 01779    22800002 A            LI,R8    2
     3719   01 0177A    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3720   01 0177B    6800173B              B        TST23#C
     3721                            *
     3722                            ************************************************************
     3723                            *  PRIVILEGED INSTRUCTIONS FOR TESTS 2301-2302
     3724                            ************************************************************
     3725   01 0177C                 PRIVILGD RES      0                    SUBTEST
     3726   01 0177C    0E001758              LPSD,0   OUTSLAVEXPSD-6          1
     3727   01 0177D    0F001756              XPSD,0   OUTSLAVEXPSD-8          2
     3728   01 0177E    2C00174D              GEN,8,24  X'2C',TRAP40C          3  LRA,0 TRAP40C
     3729   01 0177F    2D002A80              LMS,0    PTRAPPSD                4
     3730   01 01780    2E00174D              WAIT     TRAP40C                 5
     3731   01 01781    2F001619              LRP      TRAPPSD+3               6
     3732   01 01782    4C002C9F              SIO,0    Y40                     7
     3733   01 01783    4D002C9F              TIO,0    Y40                     8
     3734   01 01784    4E002C9F              TDV,0    Y40                     9
     3735   01 01785    4F002C9F              HIO,0    Y40                     A
     3736   01 01786    6C001200 A            RD,0     X'1200'                 B
     3737   01 01787    6D000047 A            WD,0     X'47'                   C
     3738   01 01788    6E002C9F              AIO,0    Y40                     D
     3739   01 01789    6FE20000 A            LLOCKS,RE                        E
     3740                            *
     3741                            *******************************************************
     3742                            *  TEST 2401 - EXECUTE 2 NON-EXISTANT,PRIVILEGED INSTR.
     3743                            *             IN SLAVE MODE. (XPSD BIT 9 = 0)
     3744                            *******************************************************
     3745                            *
     3746                            *
     3747         01 0178A           GOTST24  EQU      %
     3748   01 0178A    02200000 A            LCI      0
     3749   01 0178B    2A002605              LM,0     GOSAVE
     3750   01 0178C    324003F3              LW,X4    PATTNO
     3751   01 0178D    22800040 A            LI,R8    X'40'
     3752   01 0178E    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     3753   01 0178F    328003F2              LW,R8    TESTNO
     3754   01 01790    21802401 A            CI,R8    X'2401'
     3755   01 01791    68301798              BE       TST24#B
     3756   01 01792    21802402 A            CI,R8    X'2402'
     3757   01 01793    683017C2              BE       TST24#G
     3758   01 01794    680025D8              B        INVALTST#         ERROR - INVALID TEST NUMBER
     3759                            *
     3760                            *
     3761   01 01795    22400001 A   TST24#A  LI,X4    1                 SET INDEX FOR PATTERN 1
     3762   01 01796    22802401 A            LI,R8    X'2401'           INITIALIZE TEST
     3763   01 01797    358003F2              STW,R8   TESTNO
     3764   01 01798    22800000 A   TST24#B  LI,R8    0
     3765   01 01799    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3766   01 0179A    35802A8F              STW,R8   TRAPEPSD+1
     3767   01 0179B    32802C6E              LW,R8    TRAPXPSD
     3768   01 0179C    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3769   01 0179D    228017AC     TST24#C  LI,R8    TRAP40D              FIND ADDRESS OF EXPECTED TRAP
     3770   01 0179E    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     3771   01 0179F    228000A0 A            LI,R8    X'A0'
     3772   01 017A0    75802A8D              STB,R8   TRAPECC
     3773   01 017A1    22800080 A            LI,R8    X'80'             SET BIT 8
     3774   01 017A2    55802A8E              STH,R8   TRAPEPSD
     3775   01 017A3    72802A8A              LB,R8    SETCC             SET EXP CC'S
     3776   01 017A4    75802A8E              STB,R8   TRAPEPSD                  *
     3777   01 017A5    758017AA              STB,R8   TRAP40D-2                 *
     3778   01 017A6    228017AE              LI,R8    TST24#D
     3779   01 017A7    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     3780   01 017A8    354003F3              STW,X4   PATTNO
     3781   01 017A9    0E0017AA     TST24#C1 LPSD,0   TRAP40D-2         GO TO SLAVE MODE
     3782                                     BOUND    8
     3783   01 017AA    F08017AC N            GEN,12,20,32   X'F08',%+2,0
                        00000000
     3784                            **********************************************************************
     3785                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     3786                            **********************************************************************
     3787   01 017AC    670817C7     TRAP40D  EXU      PRIVNONEX-1,X4
     3788                            **********************************************************************
     3789                            *  FALL THROUGH IF NO TRAP
     3790                            **********************************************************************
     3791   01 017AD    6800174E              B        OUTSLAVE          GET OUT OF SLAVE MODE
     3792                            *
     3793                            **********************************************************************
     3794                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     3795                            **********************************************************************
     3796   01 017AE    3280175F     TST24#D  LW,R8    NOTRAP            CHECK FOR NO TRAP
     3797   01 017AF    683017B6              BEZ      TST24#E           BRANCH IF OK
     3798   01 017B0    22800000 A            LI,R8    0
     3799   01 017B1    3580175F              STW,R8   NOTRAP
     3800   01 017B2    32D817C7              LW,RD    PRIVNONEX-1,X4    FIND TRAPPING INSTR.
     3801   01 017B3    22E017AC              LI,RE    TRAP40D           FIND TRAP ADDRESS
     3802   01 017B4    22C00071 A            LI,RC    X'71'             ERROR TYPE 71
     3803   01 017B5    6A6020A0              BAL,LINK EROR
     3804                            *
     3805   01 017B6    6A601D06     TST24#E  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     3806   01 017B7    680017A9              B        TST24#C1          LOOP = YES RETURN
     3807   01 017B8    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     3808   01 017B9    354003F3              STW,X4   PATTNO
     3809   01 017BA    21400002 A            CI,X4    2                 WAS THAT THE LAST PATTERN
     3810   01 017BB    682017A9              BLE      TST24#C1          LOOP IF NO
     3811   01 017BC    324003F2              LW,X4    TESTNO
     3812   01 017BD    21402402 A            CI,X4    X'2402'
     3813   01 017BE    683017D1              BE       TST2500           GO TO TEST 2501 IF AT 2402
     3814                            *
     3815                            **********************************************************************
     3816                            *  TEST 2402 -  SAME AS 2401 WITH XPSD BIT 9 = 1
     3817                            **********************************************************************
     3818                            *
     3819   01 017BF    22400001 A            LI,X4    1                 SET INDEX FOR PATTERN 1
     3820   01 017C0    22802402 A            LI,R8    X'2402'           INITIALIZE TEST
     3821   01 017C1    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     3822   01 017C2    32802C6E     TST24#G  LW,R8    TRAPXPSD
     3823   01 017C3    49802C9F              OR,R8    Y40                  SET XPSD BIT 9 = 1
     3824   01 017C4    35800040 A            STW,R8   X'40'       SET XPSD TO TRAP HANDLER
     3825   01 017C5    2280000A A            LI,R8    10
     3826   01 017C6    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     3827   01 017C7    6800179D              B        TST24#C
     3828                            *
     3829                            ************************************************************
     3830                            *  PRIVILEGED/NON-EXISTANT INSTRUCTIONS FOR TESTS 2401-2402
     3831                            ************************************************************
     3832   01 017C8    0C01FFFF A   PRIVNONEX  DATA  X'C01FFFF',X'D01FFFF'
            01 017C9    0D01FFFF A
1 C00   22:37 JUN 20,'83                        NON-ALLOWED OPERATION TRAP TESTS                  PAGE   35
A    3834                            *
     3835                            *
     3836                            *   THIS TEST SETS THE ACCESS PROTECT STATE OF A PAGE OF MEMORY
     3837                            *        TO PRODUCE A TRAP AT EACH SUBTEST
     3838                            *
     3839                            *        TEST # RANGE IS 2501-2504
     3840                            *        SUBTEST # RANGE IS 1-D
     3841                            *
     3842                            *        ODD # TESTS ARE IN SLAVE MODE (VIRTUAL ADDRESSING)
     3843                            *        EVEN # TESTS ARE IN MASTER PROT. MODE (VIRTUAL ADDR.)
     3844                            *
     3845                            *                                                                    *
     3846         01 017CA           GOTST25  EQU      %
     3847   01 017CA    02200000 A            LCI      0
     3848   01 017CB    2A002605              LM,0     GOSAVE
     3849   01 017CC    327003F3              LW,X7    PATTNO
     3850   01 017CD    328003F2              LW,R8    TESTNO            FIND IF VALID TEST
     3851   01 017CE    21802504 A            CI,R8    X'2504'                   *
     3852   01 017CF    692025D8              BG       INVALTST#         EXIT IF NO
     3853   01 017D0    680017D4              B        TST25#A
     3854                            *
     3855                            *
     3856         01 017D1           TST2500  EQU      %
     3857                            *
     3858   01 017D1    22700001 A            LI,X7    1                 SELECT SUBTEST 1
     3859                            *
     3860   01 017D2    22802501 A            LI,R8    X'2501'
     3861   01 017D3    358003F2              STW,R8   TESTNO            START AT TEST 2501
     3862                            *                                                                    *
     3863         01 017D4           TST25#A EQU    %                 INITIALIZE
     3864   01 017D4    22900040 A            LI,R9    X'40'
     3865   01 017D5    35902A93              STW,R9   TRAPLOC
     3866   01 017D6    22901818              LI,R9    TST25#D
     3867   01 017D7    35902A94              STW,R9   TRAPRET           SET UP RETURN FROM TRAP HANDLER
     3868                            *
     3869         01 017D8           TST25#B  EQU      %
     3870   01 017D8    357003F3              STW,X7   PATTNO
     3871   01 017D9    328003F2              LW,R8    TESTNO
     3872   01 017DA    32902C6E              LW,R9    TRAPXPSD          SET UP XPSD IN INT. LOC'N
     3873   01 017DB    21802503 A            CI,R8    X'2503'                   *
     3874   01 017DC    691017DE              BL       %+2                       *
     3875   01 017DD    49902C9F              OR,R9    Y40               SET BIT 9 OF XPSD
     3876   01 017DE    35900040 A            STW,R9   X'40'            *
     3877   01 017DF    2170000C A            CI,X7    X'C'              IS IT SUBTEST C
     3878   01 017E0    681017E5              BGE      %+5               BRANCH IF YES
     3879   01 017E1    21700008 A            CI,X7    8
     3880   01 017E2    691017E5              BL       %+3               BRANCH IF TRAP AT 'TRAP40E'
     3881   01 017E3    22902A00              LI,R9    PAGE%BOUND           (SUBTESTS 1-7)
     3882   01 017E4    680017E6              B        %+2               SAY TRAP EXP. AT 'PAGE%BOUND'
     3883   01 017E5    22901816              LI,R9    TRAP40E
     3884   01 017E6    35902A8E              STW,R9   TRAPEPSD          SET UP EXP. PSD
     3885   01 017E7    22900040 A            LI,R9    X'40'                  SET MM FLAG
     3886   01 017E8    2580001F A            SLS,R8   31                        *
     3887   01 017E9    25800068 A            SLS,R8   -24                      SET MS FLAG IF ODD # TEST
     3888   01 017EA    49900008 A            OR,R9    R8                        *
     3889                            *
     3890   01 017EB    728E1882              LB,R8    TST25CODES,X7          SET EXPECTED CC
     3891   01 017EC    2580000C A            SLS,R8   12                        *
     3892   01 017ED    49900008 A            OR,R9    R8                        *
     3893   01 017EE    55902A8E              STH,R9   TRAPEPSD                  *
     3894                            *
     3895   01 017EF    22801816              LI,R8    TRAP40E           SET UP LPSD TO 'TRAP40E'
     3896   01 017F0    55900008 A            STH,R9   R8                        *
     3897   01 017F1    35801814              STW,R8   TRAP40E-2                 *
     3898                            *
     3899   01 017F2    22901500 A            LI,R9    PROT%PAGE
     3900   01 017F3    49902CA0              OR,R9    X800000
     3901   01 017F4    35902A8F              STW,R9   TRAPEPSD+1                *
     3902                            *
     3903   01 017F5    22100014 A            LI,X1    ACC%PROT%SHIFT    FIND SHIFT INDEX
     3904   01 017F6    729E187D              LB,R9    ACC%PROT%CODE,X7  FIND CODE FOR TYPE OF PROTECT
     3905   01 017F7    25920000 A            SLS,R9   0,X1
     3906   01 017F8    35901881              STW,R9   ACC%PROT%IMAGE    BUILD ACC. PROT. CONTROL IMAGE
     3907   01 017F9    12201862              LD,X2    ACC%PROT%CDW      FIND ACC. PROT. CONTROL DBL. WORD
     3908   01 017FA    6F240000 A            MMC,X2   2                 SET ACCESS PROTECT TYPE
     3909                            *
     3910   01 017FB    329E186E              LW,R9    INST#25-1,X7      FIND TEST INSTRUCTION
     3911   01 017FC    35901816              STW,R9   TRAP40E                   *
     3912   01 017FD    328003F2              LW,R8    TESTNO
     3913   01 017FE    21802503 A            CI,R8    X'2503'
     3914   01 017FF    68101802              BGE      %+3
     3915   01 01800    22900000 A            LI,R9    0
     3916   01 01801    68001803              B        %+2
     3917   01 01802    22900001 A            LI,R9    1
     3918   01 01803    35902A92              STW,R9   TRAPINCR          SET EXPECTED TRAP ADDRESS INCREMENT
     3919   01 01804    22900010 A            LI,R9    16
     3920   01 01805    75902A8D              STB,R9   TRAPECC           SET EXP. TCC
     3921                            *
     3922   01 01806    22800000 A   TST25#C  LI,R8    0
     3923   01 01807    12201864              LD,X2    MBSDW25
     3924   01 01808    12A01866              LD,RA    CBSDW25
     3925   01 01809    12401868              LD,X4    EBSDW25
     3926   01 0180A    22100020 A            LI,X1    X'20'
     3927   01 0180B    75102A04              STB,X1   EBS%DEST          REFRESH EBS DESTINATION WORD
     3928   01 0180C    22100007 A            LI,X1    7                 RESTORE TEST INSTRUCTIONS
     3929   01 0180D    3292185A              LW,R9    BOUND%RES-1,X1             *
     3930   01 0180E    359229FB              STW,R9   PAGE%BOUND-5,X1            *
     3931   01 0180F    6410180D              BDR,X1   %-2                        *
     3932   01 01810    229FFFFF A            LI,R9    -1
     3933   01 01811    22F02A00              LI,RF    PAGE%BOUND
     3934                            *
     3935   01 01812    0E001814              LPSD,0   TRAP40E-2         EXECUTE THE TEST
     3936                            *
     3937                                     BOUND    8
     3938   01 01814    00000000 A            DATA     0,X'800000'
            01 01815    00800000 A
     3939                            *
     3940                            *        TRAP SHOULD OCCUR ON NEXT INSTRUCTION (SUBTESTS 1-7,C-E)
     3941                            *
     3942   01 01816                 TRAP40E  RES      1                 INSTRUCTION FROM 'INST#25' TABLE
     3943                            *
     3944                            *     FALL THRU OR RETURN HERE IF NO TRAP
     3945                            *
     3946   01 01817    6800174E              B        OUTSLAVE          GET BACK TO MASTER MODE
     3947                            *
     3948                            *
     3949                            *
     3950                            *
     3951                            *     RETURN HERE AFTER TRAP
     3952                            *
     3953   01 01818    70200392     TST25#D  LC       #SENSE            CHECK FOR SHORT LOOP
     3954   01 01819    6980184F              BCS,8    TST25#F           SKIP ERROR CHECKS IF SET
     3955   01 0181A    3280175F              LW,R8    NOTRAP            CHECK FOR NO TRAP
     3956   01 0181B    68301822              BEZ      TST25#E           BRANCH IF OK
     3957   01 0181C    22800000 A            LI,R8    0
     3958   01 0181D    3580175F              STW,R8   NOTRAP
     3959   01 0181E    B2D02A8E              LW,RD    *TRAPEPSD         FIND TRAPPING INSTR.
     3960   01 0181F    32E02A8E              LW,RE    TRAPEPSD          FIND    TRAP ADDRESS
     3961   01 01820    22C00071 A            LI,RC    X'71'             ERROR TYPE 71
     3962   01 01821    6A6020A0              BAL,LINK EROR
     3963                            *
     3964   01 01822    2170000C A   TST25#E  CI,X7    12                IS IT SUBTEST C
     3965   01 01823    6930182B              BNE      %+8               BRANCH IF NO
     3966   01 01824    11201864              CD,X2    MBSDW25           CHECK IF REGISTERS ALTERED RIGHT
     3967   01 01825    6830182B              BCR,3    %+6                   BRANCH IF YES
     3968   01 01826    22C00094 A            LI,RC    X'94'             SELECT ERROR TYPE
     3969   01 01827    22D01864              LI,RD    MBSDW25           EXP. RESULTS
     3970   01 01828    22E01679              LI,RE    TRAPSAVE+X2       ACTUAL RESULTS
     3971   01 01829    22F00002 A            LI,RF    2                 TABLE SIZE
     3972   01 0182A    6A6020A0              BAL,LINK EROR
     3973                            *
     3974   01 0182B    2170000D A            CI,X7    13                IS IT SUBTEST D
     3975   01 0182C    69301834              BNE      %+8                  BRANCH IF NO
     3976   01 0182D    11A01866              CD,RA    CBSDW25           CHECK IF REG. WERE ALTERED RIGHT
     3977   01 0182E    68301834              BCR,3    %+6                   BRANCH IF YES
     3978   01 0182F    22C00094 A            LI,RC    X'94'             SELECT ERROR TYPE
     3979   01 01830    22D01866              LI,RD    CBSDW25           EXP. RESULTS
     3980   01 01831    22E01681              LI,RE    TRAPSAVE+RA       ACTUAL RESULTS
     3981   01 01832    22F00002 A            LI,RF    2                 TABLE SIZE
     3982   01 01833    6A6020A0              BAL,LINK EROR
     3983                            *
     3984   01 01834    2170000E A            CI,X7    X'E'              IS IT SUBTEST E
     3985   01 01835    6930183D              BNE      %+8
     3986   01 01836    11401868              CD,X4    EBSDW25
     3987   01 01837    6830183D              BCR,3    %+6               BRANCH IF SOURCE DIDN'T CHANGE
     3988                            *
     3989   01 01838    22C00094 A            LI,RC    X'94'             SET UP DISPLAY OF ERROR TYPE 94
     3990   01 01839    22D01868              LI,RD    EBSDW25
     3991   01 0183A    22E0167B              LI,RE    TRAPSAVE+X4
     3992   01 0183B    22F00002 A            LI,RF    2
     3993   01 0183C    6A6020A0              BAL,LINK EROR
     3994                            *
     3995   01 0183D    22100007 A            LI,X1    7
     3996   01 0183E    32C2185A              LW,RC    BOUND%RES-1,X1
     3997   01 0183F    31C229FB              CW,RC    PAGE%BOUND-5,X1
     3998   01 01840    69301843              BNE      %+3
     3999   01 01841    6410183E              BDR,X1   %-3
     4000   01 01842    68001848              B        %+6
     4001   01 01843    22C00093 A            LI,RC    X'93'
     4002   01 01844    22D0185B              LI,RD    BOUND%RES         START OF TABLE (EXPECTED)
     4003   01 01845    22E029FC              LI,RE    PAGE%BOUND-4      START OF TABLE (ACTUAL)
     4004   01 01846    22F00007 A            LI,RF    7                 TABLE SIZE
     4005   01 01847    6A6020A0              BAL,LINK EROR
     4006                            *
     4007   01 01848    219FFFFF A            CI,R9    -1                CHECK IF R9 ALTERED
     4008   01 01849    6830184F              BE       %+6               BRANCH IF NO ERROR
     4009   01 0184A    22C00091 A            LI,RC    X'91'
     4010   01 0184B    22D02C78              LI,RD    M1                START OF TABLE
     4011   01 0184C    32E02209              LW,RE    SAVE#ERR+9        START OF TABLE (ACTUAL)
     4012   01 0184D    22F00001 A            LI,RF    1                 TABLE SIZE
     4013   01 0184E    6A6020A0              BAL,LINK EROR
     4014                            *
     4015                            *
     4016   01 0184F    6A601D06     TST25#F  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     4017   01 01850    68001806              B        TST25#C           LOOP RETURN
     4018   01 01851    2170000E A            CI,X7    X'E'              IS LAST SUBTEST COMPLETE
     4019   01 01852    68101855              BGE      %+3                  BRANCH IF YES
     4020   01 01853    20700001 A            AI,X7    1
     4021   01 01854    680017D8              B        TST25#B           START NEXT SUBTEST
     4022                            *
     4023   01 01855    328003F2              LW,R8    TESTNO
     4024   01 01856    21802504 A            CI,R8    X'2504'           IS LAST TEST COMPLETE
     4025   01 01857    6810188E              BGE      TST2601               EXIT IF YES
     4026   01 01858    22700001 A            LI,X7    1
     4027   01 01859    331003F2              MTW,1    TESTNO
     4028   01 0185A    680017D8              B        TST25#B           START NEXT TEST
     4029                            *
     4030                            *
     4031                            *
     4032         01 0185B           BOUND%RES  EQU    %
     4033   01 0185B    00000000 A            DATA     0                 THESE INSTRUCTIONS ARE RESTORED
     4034   01 0185C    20800001 A            AI,R8    1                   TO PAGE%BOUND-4 THRU PAGE%BOUND+2
     4035   01 0185D    20800001 A            AI,R8    1                    FOR EVERY SUBTEST IN CASE THEY
     4036   01 0185E    20800001 A            AI,R8    1                    WERE ALTERED.
     4037                            *
     4038                            *                                                                    *
     4039                            * PAGE BOUNDRY                                  *
     4040                            *        TRAP SHOULD OCCUR HERE ON SUBTESTS A THRU D
     4041                            *
     4042   01 0185F    359029FC              STW,R9   PAGE%BOUND-4                  *
     4043   01 01860    6800174E              B        OUTSLAVE                      *
     4044   01 01861    00000000 A            DATA     0                             *
     4045                                     BOUND    8
     4046   01 01862    00001881     ACC%PROT%CDW      DATA    ACC%PROT%IMAGE    CONTROL DOUBLE WORD
     4047   01 01863    01002000 A                     GEN,8,7,6,11  1,0,ACC%PROT%START,0
     4048                            *
     4049                            *    TRY TO MOVE BAD DATA INTO PROT. MEM. (-1 INTO PAGE%BOUND)
     4050                            *        IN SUBTEST 3
     4051                            *
     4052   01 01864    000061A8     MBSDW25  DATA     BA(STACK25A)
     4053   01 01865    1400A7F0              GEN,8,24  20,BA(PAGE%BOUND-4)
     4054                            *
     4055                            *
     4056                            *   TRY TO COMPARE STRING OF BYTES WITH ANOTHER STRING
     4057                            *        PART OF WHICH IS IN PROT. MEM. (LAST 4 BYTES)
     4058                            *
     4059   01 01866    0000616C     CBSDW25   DATA    BA(BOUND%RES)
     4060   01 01867    1C00A7F0              GEN,8,24 28,BA(PAGE%BOUND-4)
     4061                            *
     4062                            *    TRY TO UNPACK A DECIMAL WORD IN PROTECTED MEMORY INTO
     4063                            *        A LOCATION IN PROTECTED MEMORY
     4064                            *
     4065   01 01868    4000A80C     EBSDW25  GEN,8,24  ' ',BA(EBS%SOURCE)
     4066   01 01869    0100A810              GEN,8,24  1,BA(EBS%DEST)
     4067                            *
     4068                            *
     4069   01 0186A    0000000F A   STACK25A DATA     15                THIS STACK CONTAINS THE
     4070   01 0186B    2080000F A            AI,R8    15                 BAD DATA THE TEST TRIES TO
     4071   01 0186C    2080000F A            AI,R8    15                 WRITE INTO PROT. MEM. AND
     4072   01 0186D    2080000F A            AI,R8    15                 THE 4 LOC'NS IMMED. PRECEEDING
     4073   01 0186E    00000003 A            DATA     3                  IT.
     4074                            *
     4075                            *
     4076                            *
     4077                            *     THE FOLLOWING LOCATIONS CONTAIN THE INSTRUCTIONS USED FOR THE
     4078                            *        13 SUBTESTS OF EACH TEST
     4079                            *
     4080         01 0186F           INST#25  EQU      %                                              SUBTST#
     4081   01 0186F    35902A02              STW,R9   PAGE%BOUND+2      TRY TO WRITE INTO PROT. MEM.  1
     4082   01 01870    33202A02              MTW,2    PAGE%BOUND+2              *                     2
     4083   01 01871    32902A00              LW,R9    PAGE%BOUND        TRY TO READ PROT. MEM. PAGE   3
     4084   01 01872    68002A00              B        PAGE%BOUND        TRY TO ACCESS PROT. MEM.      4
     4085   01 01873    68002A00              B        PAGE%BOUND                *                     5
     4086   01 01874    E800000F A            B        *RF                       *                     6
     4087   01 01875    E800000F A            B        *RF                       *                     7
     4088   01 01876    680029FF              B        PAGE%BOUND-1      TRY TO CROSS PAGE BOUNDRY     8
     4089   01 01877    680029FF              B        PAGE%BOUND-1              *                     9
     4090   01 01878    680029FD              B        PAGE%BOUND-3              *                     A
     4091   01 01879    680029FD              B        PAGE%BOUND-3              *                     B
     4092   01 0187A    61200000 A            MBS,X2   0                         *                     C
     4093   01 0187B    60A00000 A            CBS,RA   0                         *                     D
     4094   01 0187C    63400000 A            EBS,X4   0                         *                     E
     4095                            *
     4096                            *
     4097                            *     THE FOLLOWING BYTES CONTAIN THE ACCESS PROTECT TYPE FOR
     4098                            *        EACH SUBTEST.
     4099                            *
     4100         01 0187D           ACC%PROT%CODE  EQU    %
     4101                            * SUBTEST #          1 2 3 4 5 6 7 8 9 A B C D E
     4102   01 0187D    00       A            DATA,1    0,1,2,3,2,3,2,3,2,3,2,3,3,3,2
            01 0187D 1  01       A
            01 0187D 2  02       A
            01 0187D 3  03       A
            01 0187E    02       A
            01 0187E 1  03       A
            01 0187E 2  02       A
            01 0187E 3  03       A
            01 0187F    02       A
            01 0187F 1  03       A
            01 0187F 2  02       A
            01 0187F 3  03       A
            01 01880    03       A
            01 01880 1  03       A
            01 01880 2  02       A
     4103                            *           CODE 1 = SLAVE OR MP CANNOT WRITE
     4104                            *                2 =   ''  '' '' CAN ONLY READ
     4105                            *                3 =   ''  '' '' CANNOT MAKE ANY ACCESS
     4106                                     BOUND    4
     4107                            *
     4108                            *
     4109                            *
     4110   01 01881    00000000 A   ACC%PROT%IMAGE  DATA  0             AC CODES
     4111                            *
     4112                            *   THE FOLLOWING BYTES ARE THE EXPECTED COND. CODES FOR EACH SUBTEST
     4113                            *
     4114                            *        SUBTEST#   1 2 3 4 5 6 7 8 9 A B C D E
     4115   01 01882    00       A   TST25CODES DATA,1 0,0,2,2,0,0,0,0,2,2,2,2,0,0,0
            01 01882 1  00       A
            01 01882 2  02       A
            01 01882 3  02       A
            01 01883    00       A
            01 01883 1  00       A
            01 01883 2  00       A
            01 01883 3  00       A
            01 01884    02       A
            01 01884 1  02       A
            01 01884 2  02       A
            01 01884 3  02       A
            01 01885    00       A
            01 01885 1  00       A
            01 01885 2  00       A
1 C00   22:37 JUN 20,'83                        NON-ALLOWED OPERATION TRAP TESTS                  PAGE   36
A    4118         01 01885 3         GOTST26  EQU    %
     4119   01 01886    02200000 A            LCI      0
     4120   01 01887    2A002605              LM,0     GOSAVE
     4121   01 01888    328003F2              LW,R8    TESTNO
     4122   01 01889    21802601 A            CI,R8    X'2601'
     4123   01 0188A    6830188E              BE       TST2601
     4124   01 0188B    21802602 A            CI,R8    X'2602'
     4125   01 0188C    683018A3              BE       TST2602
     4126   01 0188D    680025D8              B        INVALTST#         DISPLAY INVALID TEST MSG.
     4127                            *
     4128                            *
     4129                            *
     4130                            *
     4131                            ************************************************************
     4132                            *
     4133                            *   TEST 2601 - THE FOLLOWING TEST EXECUTES AN MMC INSTRUCTION
     4134                            *        WHERE THE CONTROL WORD IS IMMEDIATELY BEFORE PROTECTED
     4135                            *        MEMORY.   IF IT TRAPS, THE TRAP IS NOT PROPERLY INHIBITED
     4136                            *
     4137                            ************************************************************
     4138                            *
     4139   01 0188E    22900003 A   TST2601  LI,R9    3
     4140   01 0188F    22100014 A            LI,X1    ACC%PROT%SHIFT
     4141   01 01890    25920000 A            SLS,R9   0,X1
     4142   01 01891    35901881              STW,R9   ACC%PROT%IMAGE    SELECT PAGE TO PROTECT
     4143   01 01892    12201862              LD,X2    ACC%PROT%CDW
     4144   01 01893    6F240000 A            MMC,X2   2                 PROTECT PAGE OF MEM.
     4145                            *
     4146   01 01894    22802601 A            LI,R8    X'2601'
     4147   01 01895    358003F2              STW,R8   TESTNO
     4148   01 01896    22800001 A            LI,R8    1
     4149   01 01897    358003F3              STW,R8   PATTNO
     4150   01 01898    469029FF              XW,R9    PAGE%BOUND-1      SAVE INSTRUCTION AT BOUNDRY
     4151   01 01899    222029FF              LI,X2    PAGE%BOUND-1
     4152   01 0189A    32302CA2              LW,X3    X1000000
     4153   01 0189B    6F240000 A            MMC,X2   2                 TRY TO EXECUTE AN MMC
     4154                            *
     4155                            *   IF TRAP MESSAGE IS DISPLAYED, THERE IS A FAILURE IN THE TRAP
     4156                            *        INHIBIT CIRCUITRY
     4157                            *
     4158   01 0189C    6A601D06              BAL,LINK CHK:LOOP          CHECK SENSE SWITCHES
     4159   01 0189D    6800189B              B        %-2               LOOP RETURN
     4160                            *
     4161   01 0189E    469029FF              XW,R9    PAGE%BOUND-1      RESTORE INSTR. AT PAGE%BOUND-1
     4162   01 0189F    22900000 A            LI,R9    0
     4163   01 018A0    35901881              STW,R9   ACC%PROT%IMAGE
     4164   01 018A1    12201862              LD,X2    ACC%PROT%CDW
     4165   01 018A2    6F240000 A            MMC,X2   2                 TURN OFF PROTECTION
     4166                            *
     4167                            *
     4168                            *************************************************
     4169                            *
     4170                            *        TEST 2602 -  THE FOLLOWING TEST CHECK THE ABILITY OF THE
     4171                            *           READ AND INHIBIT PARITY INSTRUCTION TO INHIBIT A
     4172                            *           PARITY TRAP.
     4173                            *
     4174                            *************************************************
     4175                            *
     4176                            *
     4177         01 018A3           TST2602  EQU      %
     4178   01 018A3    22802602 A            LI,R8    X'2602'
     4179   01 018A4    358003F2              STW,R8   TESTNO
     4180   01 018A5    22800001 A            LI,R8    1
     4181   01 018A6    358003F3              STW,R8   PATTNO
     4182   01 018A7    22800000 A            LI,R8    0
     4183   01 018A8    35801B6D              STW,R8   BAD%PARITY
     4184   01 018A9    02200020 A            LCI      2
     4185   01 018AA    2D801B6D              LMS,R8   BAD%PARITY        SET BAD PARITY IN MEMORY
     4186                            *
     4187   01 018AB    02200010 A            LCI      1
     4188   01 018AC    2D801B6D              LMS,R8   BAD%PARITY        READ CONTENTS OF LOCATION WITH
     4189                            *                                   BAD PARITY
     4190                            *   IF TRAP MESSAGE IS DISPLAYED, THERE IS A FAILURE IN THE TRAP
     4191                            *       INHIBIT CIRCUITRY
     4192                            *
     4193   01 018AD    74002A48              STCF     CODES
     4194   01 018AE    693018B1              BCS,3    %+3               ERROR IF CC 3-4 SET
     4195   01 018AF    684018B1              BCR,4    %+2               ERROR IF CC2 IS RESET
     4196   01 018B0    698018B5              BCS,8    %+5               OK IF CC1 IS SET
     4197   01 018B1    22C00061 A            LI,RC    X'61'             SET ERROR TYPE 61
     4198   01 018B2    226000C0 A            LI,LINK  X'C0'
     4199   01 018B3    75602A8D              STB,LINK TRAPECC           SAY EXP. CC'S = 1100
     4200   01 018B4    6A6020A0              BAL,LINK EROR              DISPLAY ERROR MSG.
     4201                            *
     4202   01 018B5    6A601D06              BAL,LINK CHK:LOOP          CHECK SENSE SWITCHES
     4203   01 018B6    680018B3              B        %-3               LOOP RETURN
     4204                            *
     4205   01 018B7    22800000 A            LI,R8    0
     4206   01 018B8    35801B6D              STW,R8   BAD%PARITY        CLEAR PARITY ERROR
     4207   01 018B9    680018E0              B        TST2800
     4208                            *
     4209                            *
     4210                            *
     4211                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        CALL TRAP TESTS                                   PAGE   37
A    4213                            *
     4214                            *
     4215                            *************************************************************
     4216                            *  CALL INSTRUCTION TRAP TESTS - EXECUTE ALL 64 POSSIBLE
     4217                            *      CALL INSTRUCTIONS TO VERIFY PROPER TRAPPING.
     4218                            *      TESTS 2801 THRU 2804 TEST CALLS 1 THRU 4 RESPECTIVELY
     4219                            *          ( WITH XPSD BIT 9 = 1 )
     4220                            *      SUBTEST NUMBER (PATTNO) = 1 THRU 16 (16 SELECTIONS OF EACH CALL)
     4221                            *
     4222                            *        TESTS 2805 THRU 2808 SAME EXCEPT XPSD BIT 9 = 0
     4223                            *************************************************************
     4224                            *
     4225                            *
     4226                            ************************************
     4227                            * ENTRY FROM PARAMETER LINE T      *
     4228                            ************************************
     4229                            *
     4230   01 018BA    02200000 A   GOTST28  LCI      0
     4231   01 018BB    2A002605              LM,0     GOSAVE
     4232   01 018BC    324003F3              LW,X4    PATTNO
     4233   01 018BD    21300004 A            CI,LVL   4
     4234   01 018BE    682018C0              BLE      %+2               BRANCH IF TEST 2801 - 2804
     4235   01 018BF    203FFFFC A            AI,LVL   -4
     4236   01 018C0    22800048 A            LI,R8    X'48'
     4237   01 018C1    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     4238   01 018C2    328003F2              LW,R8    TESTNO
     4239   01 018C3    21802801 A            CI,R8    X'2801'           FIND SELECTED TEST AND
     4240   01 018C4    683018E5              BE       TST28#A1             BRANCH TO IT
     4241   01 018C5    21802805 A            CI,R8    X'2805'
     4242   01 018C6    6830191A              BE       TST28#B1
     4243   01 018C7    21802802 A            CI,R8    X'2802'
     4244   01 018C8    693018CB              BNE      %+3
     4245   01 018C9    33102A93              MTW,1    TRAPLOC           MODIFY TRAP LOC'N FOR CAL2
     4246   01 018CA    680018E5              B        TST28#A1
     4247   01 018CB    21802806 A            CI,R8    X'2806'
     4248   01 018CC    693018CF              BNE      %+3
     4249   01 018CD    33102A93              MTW,1    TRAPLOC
     4250   01 018CE    6800191A              B        TST28#B1
     4251   01 018CF    21802803 A            CI,R8    X'2803'
     4252   01 018D0    693018D3              BNE      %+3
     4253   01 018D1    33202A93              MTW,2    TRAPLOC           MODIFY TRAP LOC'N FOR CAL3
     4254   01 018D2    680018E5              B        TST28#A1
     4255   01 018D3    21802807 A            CI,R8    X'2807'
     4256   01 018D4    693018D7              BNE      %+3
     4257   01 018D5    33202A93              MTW,2    TRAPLOC
     4258   01 018D6    6800191A              B        TST28#B1
     4259   01 018D7    21802804 A            CI,R8    X'2804'
     4260   01 018D8    693018DB              BNE      %+3
     4261   01 018D9    33302A93              MTW,3    TRAPLOC           MODIFY TRAP LOC'N FOR CAL4
     4262   01 018DA    680018E5              B        TST28#A1
     4263   01 018DB    21802808 A            CI,R8    X'2808'
     4264   01 018DC    693018DF              BNE      %+3
     4265   01 018DD    33302A93              MTW,3    TRAPLOC
     4266   01 018DE    6800191A              B        TST28#B1
     4267   01 018DF    680025D8              B        INVALTST#         ERROR - INVALID TEST NUMBER
     4268                            *
     4269                            *
     4270   01 018E0                 TST2800  RES      0
     4271   01 018E0    6D000023 A            WD,0     X'23'             RESET INHIBITS
     4272   01 018E1    22300001 A            LI,LVL   1                 SET UP FOR CALL 1
     4273   01 018E2    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     4274   01 018E3    22802801 A            LI,R8    X'2801'              INITIALIZE TEST 2801
     4275   01 018E4    358003F2              STW,R8   TESTNO               RECORD TEST NUMBER
     4276   01 018E5    354003F3     TST28#A1 STW,X4   PATTNO
     4277   01 018E6    35402A92              STW,X4   TRAPINCR             SET ADDRESS INCREMENT VALUE
     4278   01 018E7    33F02A92              MTW,-1   TRAPINCR             TO ONE LESS THAN SUBTEST#
     4279   01 018E8    32802C6E              LW,R8    TRAPXPSD
     4280   01 018E9    49802C9F              OR,R8    Y40                  SET XPSD BIT 9=1
     4281   01 018EA    6A601168     TST28#A2 BAL,LINK JAMXPSDS          INITIALIZE X'10' THRU X'1FF'
     4282   01 018EB    35860047 A            STW,R8   X'47',LVL   SET XPSD TO TRAP HANDLER
     4283   01 018EC    22801900              LI,R8    TRAP48               FIND ADDRESS OF EXPECTED TRAP
     4284   01 018ED    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     4285   01 018EE    22800047 A            LI,R8    X'47'             COMPUTE TRAP LOCATION
     4286   01 018EF    30800003 A            AW,R8    LVL                       *
     4287   01 018F0    35802A93              STW,R8   TRAPLOC                   *
     4288   01 018F1    72802A8A              LB,R8    SETCC             SET EXP CC'S
     4289   01 018F2    75802A8E              STB,R8   TRAPEPSD                  *
     4290   01 018F3    22801905              LI,R8    TST28#B
     4291   01 018F4    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     4292   01 018F5    22800000 A            LI,R8    0
     4293   01 018F6    35802A8F              STW,R8   TRAPEPSD+1           SET EXP. PSD WORD 2 TO ZERO
     4294   01 018F7    32700003 A   TST28#A3 LW,X7    LVL                  SET X7 AS EXECUTION INDEX
     4295   01 018F8    207FFFFF A            AI,X7    -1                        *
     4296   01 018F9    25700004 A            SLS,X7   4                         *
     4297   01 018FA    30700004 A            AW,X7    X4                        *
     4298                            *
     4299   01 018FB    328003F3              LW,R8    PATTNO            SET EXPECTED COND. CODES
     4300   01 018FC    208FFFFF A            AI,R8    -1                        *
     4301   01 018FD    25800004 A            SLS,R8   4                         *
     4302   01 018FE    75802A8D              STB,R8   TRAPECC                   *
     4303                            *
     4304   01 018FF    70202A8A              LC       SETCC             SET CONDITION CODES
     4305                            **********************************************************************
     4306                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     4307                            **********************************************************************
     4308   01 01900    670E191D     TRAP48   EXU      CALL-1,X7
     4309                            **********************************************************************
     4310                            *  FALL THROUGH IF NO TRAP
     4311                            **********************************************************************
     4312   01 01901    32DE191D              LW,RD    CALL-1,X7         FIND TRAPPING INSTR.
     4313   01 01902    22E01900              LI,RE    TRAP48            FIND TRAP ADDRESS
     4314   01 01903    22C00071 A            LI,RC    X'71'                ERROR TYPE 71
     4315   01 01904    6A6020A0              BAL,LINK EROR
     4316                            *
     4317                            **********************************************************************
     4318                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     4319                            **********************************************************************
     4320   01 01905    6A601D06     TST28#B  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     4321   01 01906    680018FF              B        TRAP48-1          LOOP = YES RETURN
     4322   01 01907    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     4323   01 01908    354003F3              STW,X4   PATTNO
     4324   01 01909    328003F2              LW,R8    TESTNO            IS TEST 2808 COMPLETE
     4325   01 0190A    21802804 A            CI,R8    X'2804'           IS IT ONE OF THE FIRST FOUR TESTS
     4326   01 0190B    6920190D              BG       %+2               BRANCH IF NO
     4327   01 0190C    33102A92              MTW,1    TRAPINCR          INCREASE EXPECTED INCREMENT
     4328   01 0190D    21400010 A            CI,X4    16                WAS THAT THE LAST PATTERN
     4329   01 0190E    682018F7              BLE      TST28#A3          LOOP IF NO
     4330   01 0190F    21802808 A            CI,R8    X'2808'
     4331   01 01910    68301966              BE       TST2900           BRANCH TO NEXT TEST IF YES
     4332   01 01911    21300004 A            CI,LVL   4                 IS IT CALL 4
     4333   01 01912    69301914              BNE      %+2               SELECT NEXT CALL IF NO
     4334   01 01913    22300000 A            LI,LVL   0                 SELECT CALL 1 IF YES
     4335   01 01914    20300001 A            AI,LVL   1
     4336   01 01915    331003F2              MTW,1    TESTNO            INCREMENT TEST NUMBER
     4337   01 01916    22400001 A            LI,X4    1                 SELECT PATTERN 1
     4338   01 01917    354003F3              STW,X4   PATTNO
     4339   01 01918    21802804 A            CI,R8    X'2804'           IS IT ONE OF THE FIRST FOUR TESTS
     4340   01 01919    691018E5              BL       TST28#A1          BRANCH IF YES
     4341                            **********************************************************************
     4342                            *  TESTS 2805 THRU 2808 - SAME AS 2801 THRU 2804 EXCEPT XPSD BIT 9 = 0
     4343                            **********************************************************************
     4344   01 0191A    22800000 A   TST28#B1 LI,R8    0
     4345   01 0191B    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     4346   01 0191C    32802C6E              LW,R8    TRAPXPSD
     4347   01 0191D    680018EA              B        TST28#A2
     4348                            *
     4349                            *                                                                    *
     4350                            ****************************************************************
     4351                            *  CALL INSTRUCTIONS - TESTS 2801 THRU 2808
     4352                            ****************************************************************
     4353                            *                                  TEST   SUBTEST
     4354   01 0191E    04000000 A   CALL     CAL1,0   0                2801,5   1
     4355   01 0191F    04100000 A            CAL1,1   0                         2
     4356   01 01920    04200000 A            CAL1,2   0                         3
     4357   01 01921    04300000 A            CAL1,3   0                         4
     4358   01 01922    04400000 A            CAL1,4   0                         5
     4359   01 01923    04500000 A            CAL1,5   0                         6
     4360   01 01924    04600000 A            CAL1,6   0                         7
     4361   01 01925    04700000 A            CAL1,7   0                         8
     4362   01 01926    04800000 A            CAL1,8   0                         9
     4363   01 01927    04900000 A            CAL1,9   0                         A
     4364   01 01928    04A00000 A            CAL1,10  0                         B
     4365   01 01929    04B00000 A            CAL1,11  0                         C
     4366   01 0192A    04C00000 A            CAL1,12  0                         D
     4367   01 0192B    04D00000 A            CAL1,13  0                         E
     4368   01 0192C    04E00000 A            CAL1,14  0                         F
     4369   01 0192D    04F00000 A            CAL1,15  0                         10
     4370   01 0192E    05000000 A            CAL2,0   0                2802,6   1
     4371   01 0192F    05100000 A            CAL2,1   0                         2
     4372   01 01930    05200000 A            CAL2,2   0                         3
     4373   01 01931    05300000 A            CAL2,3   0                         4
     4374   01 01932    05400000 A            CAL2,4   0                         5
     4375   01 01933    05500000 A            CAL2,5   0                         6
     4376   01 01934    05600000 A            CAL2,6   0                         7
     4377   01 01935    05700000 A            CAL2,7   0                         8
     4378   01 01936    05800000 A            CAL2,8   0                         9
     4379   01 01937    05900000 A            CAL2,9   0                         A
     4380   01 01938    05A00000 A            CAL2,10  0                         B
     4381   01 01939    05B00000 A            CAL2,11  0                         C
     4382   01 0193A    05C00000 A            CAL2,12  0                         D
     4383   01 0193B    05D00000 A            CAL2,13  0                         E
     4384   01 0193C    05E00000 A            CAL2,14  0                         F
     4385   01 0193D    05F00000 A            CAL2,15  0                         10
     4386   01 0193E    06000000 A            CAL3,0   0                2803,7   1
     4387   01 0193F    06100000 A            CAL3,1   0                         2
     4388   01 01940    06200000 A            CAL3,2   0                         3
     4389   01 01941    06300000 A            CAL3,3   0                         4
     4390   01 01942    06400000 A            CAL3,4   0                         5
     4391   01 01943    06500000 A            CAL3,5   0                         6
     4392   01 01944    06600000 A            CAL3,6   0                         7
     4393   01 01945    06700000 A            CAL3,7   0                         8
     4394   01 01946    06800000 A            CAL3,8   0                         9
     4395   01 01947    06900000 A            CAL3,9   0                         A
     4396   01 01948    06A00000 A            CAL3,10  0                         B
     4397   01 01949    06B00000 A            CAL3,11  0                         C
     4398   01 0194A    06C00000 A            CAL3,12  0                         D
     4399   01 0194B    06D00000 A            CAL3,13  0                         E
     4400   01 0194C    06E00000 A            CAL3,14  0                         F
     4401   01 0194D    06F00000 A            CAL3,15  0                         10
     4402   01 0194E    07000000 A            CAL4,0   0                2804,8   1
     4403   01 0194F    07100000 A            CAL4,1   0                         2
     4404   01 01950    07200000 A            CAL4,2   0                         3
     4405   01 01951    07300000 A            CAL4,3   0                         4
     4406   01 01952    07400000 A            CAL4,4   0                         5
     4407   01 01953    07500000 A            CAL4,5   0                         6
     4408   01 01954    07600000 A            CAL4,6   0                         7
     4409   01 01955    07700000 A            CAL4,7   0                         8
     4410   01 01956    07800000 A            CAL4,8   0                         9
     4411   01 01957    07900000 A            CAL4,9   0                         A
     4412   01 01958    07A00000 A            CAL4,10  0                         B
     4413   01 01959    07B00000 A            CAL4,11  0                         C
     4414   01 0195A    07C00000 A            CAL4,12  0                         D
     4415   01 0195B    07D00000 A            CAL4,13  0                         E
     4416   01 0195C    07E00000 A            CAL4,14  0                         F
     4417   01 0195D    07F00000 A            CAL4,15  0                         10
     4418                            *
1 C00   22:37 JUN 20,'83                     - PUSH STACK LIMIT TRAP TESTS                        PAGE   38
A    4420                            *
     4421                            *
     4422                            *********************************************************
     4423                            *
     4424                            *  PUSH STACK INSTRUCTION TRAPS:  EXECUTE 7 SUBTESTS FOR EACH OF
     4425                            *        6 STACK INSTRUCTIONS (SEE 'STKINST').   ALL SUBTESTS PRODUCE A
     4426                            *        TRAP OR AN INSTRUCTION ABORT WITHOUT TRAP.
     4427                            *           REPEAT THE ABOVE TESTS WITH THE TRAPS INHIBITED BY THE
     4428                            *        TRAP MASKS.(TESTS 2907-290C)
     4429                            *
     4430                            *        CHECK FOR 1). TRAP IF EXPECTED
     4431                            *                  2). CONDITION CODES ALTERED IF TRAP INH.
     4432                            *                      AND NOT ALTERED IF TRAP OCCURS.
     4433                            *                  3). STACK POINTER UNCHANGED.
     4434                            *                  4). STACK CONTENTS UNCHANGED.
     4435                            *
     4436                            *        REGISTER USAGE:
     4437                            *                 X7= SPD SELECTION (SUBTEST)
     4438                            *                 X4= INSTR. SELECTION (TEST)
     4439                            *
     4440                            *********************************************************
     4441                            *
     4442   01 0195E                 GOTST29  RES      0
     4443   01 0195E    02200000 A            LCI      0
     4444   01 0195F    2A002605              LM,0     GOSAVE
     4445   01 01960    328003F2              LW,R8    TESTNO
     4446   01 01961    2180290C A            CI,R8    X'290C'
     4447   01 01962    692025D8              BG       INVALTST#
     4448   01 01963    22800042 A            LI,R8    X'42'
     4449   01 01964    35802A93              STW,R8   TRAPLOC
     4450   01 01965    6800196A              B        TST29#A1
     4451                            *
     4452                            *
     4453   01 01966    22800042 A   TST2900  LI,R8    X'42'
     4454   01 01967    35802A93              STW,R8   TRAPLOC           SET UP ERROR MSG
     4455   01 01968    22802901 A            LI,R8    X'2901'
     4456   01 01969    358003F2              STW,R8   TESTNO
     4457                            *
     4458   01 0196A    6A601168     TST29#A1 BAL,LINK JAMXPSDS          SET UP FOR SPURIOUS INTS. AND TRAPS
     4459   01 0196B    22800001 A            LI,R8    1                 SET UP SUBTEST 1
     4460   01 0196C    358003F3              STW,R8   PATTNO                    *
     4461   01 0196D    22200008 A            LI,X2    8                 SET MSP MODIFIER VALUES
     4462   01 0196E    223FFFF8 A            LI,X3    -8
     4463   01 0196F    328003F2              LW,R8    TESTNO
     4464   01 01970    21802906 A            CI,R8    X'2906'
     4465   01 01971    6920197E              BG       TST29#A3          BRANCH IF TRAP NOT EXPECTED
     4466   01 01972    32802C6E              LW,R8    TRAPXPSD
     4467   01 01973    35800042 A            STW,R8   X'42'    SET UP X'42' AS EXPECTED TRAP
     4468                            *
     4469   01 01974    22801993     TST29#A2 LI,R8    TRAP42            FIND TRAP INSTR. ADDRESS
     4470   01 01975    35802A8E              STW,R8   TRAPEPSD          SET IN EXPECTED PSD
     4471   01 01976    228019A1              LI,R8    TST29#B
     4472   01 01977    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN
     4473   01 01978    22800000 A            LI,R8    0
     4474   01 01979    35802A8F              STW,R8   TRAPEPSD+1
     4475   01 0197A    35802A92              STW,R8   TRAPINCR          SET EXPECTED INCREMENT TO 0
     4476   01 0197B    75802A8D              STB,R8   TRAPECC           SET EXPECTED COND. CODES
     4477   01 0197C    22800050 A            LI,R8    X'50'             SET EXP CC'S
     4478   01 0197D    75802A8E              STB,R8   TRAPEPSD                  *
     4479   01 0197E    324003F2     TST29#A3 LW,X4    TESTNO            SET UP INSTR. SELECT INDEX
     4480   01 0197F    4B402C87              AND,X4   XF                   *
     4481   01 01980    21400006 A            CI,X4    6                    *
     4482   01 01981    68201983              BLE      %+2                  *
     4483   01 01982    204FFFFA A            AI,X4    -6                   *
     4484                            *
     4485   01 01983    327003F3     TST29#A4 LW,X7    PATTNO            CALCULATE SPD2 TO BE USED
     4486   01 01984    32900004 A            LW,R9    X4                   *
     4487   01 01985    209FFFFF A            AI,R9    -1
     4488   01 01986    23900007 A            MI,R9    7                    *
     4489   01 01987    30700009 A            AW,X7    R9                   *
     4490   01 01988    329E19D9              LW,R9    STKCNT-1,X7       BUILD THE SPD
     4491   01 01989    328003F2              LW,R8    TESTNO               MASK OUT TW AND TS IF TESTS
     4492   01 0198A    21802906 A            CI,R8    X'2906'              2901 THRU 2906
     4493   01 0198B    6920198D              BG       %+2                  *
     4494   01 0198C    4B901A04              AND,R9   STACKMASK            *
     4495   01 0198D    228019C2              LI,R8    STACK             FIND STACK ADDRESS
     4496                            *
     4497   01 0198E    158019D2              STD,R8   TRAPSPD           SAVE THE STACK POINTER DW
     4498                            *
     4499   01 0198F    22100010 A            LI,X1    16
     4500   01 01990    351219C1              STW,X1   STACK-1,X1        FILL STACK WITH POSITION NUMBERS
     4501   01 01991    64101990              BDR,X1   %-1
     4502                            *
     4503   01 01992    02200050 A            LCI      5                 SET CONDITION CODES
     4504                            **********************************************************************
     4505                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     4506                            **********************************************************************
     4507   01 01993    670819D3     TRAP42   EXU      STKINST-1,X4
     4508                            **********************************************************************
     4509                            *                                                                    *
     4510                            *  FALL THROUGH IF NO TRAP
     4511                            **********************************************************************
     4512   01 01994    74002A48              STCF     CODES             SAVE CONDITION CODES
     4513   01 01995    328003F2              LW,R8    TESTNO
     4514   01 01996    21802906 A            CI,R8    X'2906'           WHICH GROUP OF TESTS IS THIS
     4515   01 01997    6920199D              BG       %+6               NO ERROR IF TRAP INHIBITED
     4516   01 01998    22C00071 A            LI,RC    X'71'
     4517   01 01999    32D819D3              LW,RD    STKINST-1,X4      FIND TRAPPING INSTR.
     4518   01 0199A    22E01993              LI,RE    TRAP42            FIND TRAP ADDRESS
     4519   01 0199B    6A6020A0              BAL,LINK EROR              DISPLAY ERROR TYPE 71
     4520   01 0199C    680019A1              B        TST29#B
     4521                            *
     4522   01 0199D    32802A48              LW,R8    CODES             CHECK CODITION CODES FOR ABORT
     4523   01 0199E    69A019A1              BCS,10   TST29#B           NO ERROR IF ABORT IS INDICATED
     4524   01 0199F    22C00061 A            LI,RC    X'61'
     4525   01 019A0    6A6020A0              BAL,LINK EROR              DISPLAY ERROR TYPE 61
     4526                            *
     4527   01 019A1    22500010 A   TST29#B  LI,X5    16
     4528   01 019A2    328A19C1              LW,R8    STACK-1,X5        CHECK STACK CONTENTS
     4529   01 019A3    318A2C78              CW,R8    ONE-1,X5
     4530   01 019A4    693019A7              BNE      %+3               BRANCH IF UNCHANGED
     4531   01 019A5    645019A2              BDR,X5   %-3               LOOP IF NOT FINISHED
     4532   01 019A6    680019AC              B        %+6
     4533                            *
     4534   01 019A7    22C00093 A            LI,RC    X'93'
     4535   01 019A8    22D02C79              LI,RD    ONE               EXPECTED CONTENTS START ADDRESS
     4536   01 019A9    22E019C2              LI,RE    STACK             ACTUAL CONTENTS START ADDRESS
     4537   01 019AA    22F00010 A            LI,RF    16                TABLE SIZE
     4538   01 019AB    6A6020A0              BAL,LINK EROR              DISPLAY ERROR TYPE 92
     4539                            *
     4540   01 019AC    228019C2              LI,R8    STACK             CHECK FOR CHANGE IN SPD
     4541   01 019AD    318019D2              CW,R8    TRAPSPD              *
     4542   01 019AE    693019B1              BNE      TST29#C              *  BRANCH IF ERROR
     4543   01 019AF    319019D3              CW,R9    TRAPSPD+1            *
     4544   01 019B0    683019B6              BE       TST29#D              *
     4545                            *
     4546   01 019B1    22C00092 A   TST29#C  LI,RC    X'92'             ENTER HERE ON SPD ERROR
     4547   01 019B2    22D0167F              LI,RD    R8+TRAPSAVE          EXP. SPD ADDRESS
     4548   01 019B3    22E019D2              LI,RE    TRAPSPD              ACT. SPD ADDRESS
     4549   01 019B4    22F00002 A            LI,RF    2                 TABLE SIZE
     4550   01 019B5    6A6020A0              BAL,LINK EROR
     4551                            *
     4552   01 019B6    6A601D06     TST29#D  BAL,LINK CHK:LOOP          CHECK USER INPUTS
     4553   01 019B7    68001992              B        TRAP42-1          LOOP RETURN
     4554   01 019B8    331003F3              MTW,1    PATTNO
     4555   01 019B9    328003F3              LW,R8    PATTNO            FIND SUBTEST #
     4556   01 019BA    21800007 A            CI,R8    7
     4557   01 019BB    6820197E              BLE      TST29#A3          TRY NEXT SUBTEST IF NOT THRU
     4558                            *
     4559   01 019BC    331003F2              MTW,1    TESTNO
     4560   01 019BD    328003F2              LW,R8    TESTNO            FIND TEST #
     4561   01 019BE    2180290C A            CI,R8    X'290C'
     4562   01 019BF    69201A0B              BG       TST2A00           EXIT TO NEXT SERIES OF TESTS
     4563   01 019C0    6800196A              B        TST29#A1          LOOP TO NEXT TEST
     4564                            *
     4565                                     BOUND    8
     4566   01 019C2                 STACK    RES      16
     4567                            *
     4568   01 019D2                 TRAPSPD  RES      2                 STACK POINTER DOUBLE WORD
     4569                            *
     4570   01 019D4    091019D2     STKINST  PSW,X1   TRAPSPD           INSTRUCTIONS TO EXECUTE
     4571   01 019D5    081019D2              PLW,X1   TRAPSPD
     4572   01 019D6    0B1019D2              PSM,X1   TRAPSPD
     4573   01 019D7    0A1019D2              PLM,X1   TRAPSPD
     4574   01 019D8    132019D2              MSP,X2   TRAPSPD           POS. MODIFIER
     4575   01 019D9    133019D2              MSP,X3   TRAPSPD           NEG. MODIFIER
     4576                            *
     4577                            *     IN THE FOLLOWING GEN STATEMENTS:
     4578                            *        AF 1 = TS MASK
     4579                            *        AF 2 = SPACE COUNT PRIOR TO TRAP
     4580                            *        AF 3 = TW MASK
     4581                            *        AF 4 = WORD COUNT PRIOR TO TRAP
     4582                            *
     4583                            *     THESE ENTRIES ARE THE CONTENTS OF WORD 2 OF THE SPD
     4584                            *
     4585         01 019DA           STKCNT   EQU      %
     4586                            *   TEST 2901,2907
     4587   01 019DA    0002FFFF A            GEN,1,15,1,15  0,2,1,32767       PSW  SUBTEST      1
     4588   01 019DB    80007FFE A            GEN,1,15,1,15  1,0,0,32766                         2
     4589   01 019DC    80000000 A            GEN,1,15,1,15  1,0,0,0                             3
     4590   01 019DD    7FFFFFFF A            GEN,1,15,1,15  0,32767,1,32767                     4
     4591   01 019DE    8000FFFF A            GEN,1,15,1,15  1,0,1,32767                         5
     4592   01 019DF    80008000 A            GEN,1,15,1,15  1,0,1,0                             6
     4593   01 019E0    8002FFFF A            GEN,1,15,1,15  1,2,1,32767                         7
     4594                            *   TEST 2902,2908
     4595   01 019E1    7FFE8000 A            GEN,1,15,1,15  0,32766,1,0       PLW  SUBTEST      1
     4596   01 019E2    FFFF0002 A            GEN,1,15,1,15  1,32767,0,2                         2
     4597   01 019E3    FFFF7FFE A            GEN,1,15,1,15  1,32767,0,32766                     3
     4598   01 019E4    FFFFFFFE A            GEN,1,15,1,15  1,32767,1,32766                     4
     4599   01 019E5    FFFF8000 A            GEN,1,15,1,15  1,32767,1,0                         5
     4600   01 019E6    FFFF8002 A            GEN,1,15,1,15  1,32767,1,2                         6
     4601   01 019E7    80008000 A            GEN,1,15,1,15  1,0,1,0                             7
     4602                            *   TEST 2903,2909
     4603   01 019E8    0006FFFB A            GEN,1,15,1,15  0,6,1,32763       PSM  SUBTEST      1
     4604   01 019E9    80047FF8 A            GEN,1,15,1,15  1,4,0,32760                         2
     4605   01 019EA    80020000 A            GEN,1,15,1,15  1,2,0,0                             3
     4606   01 019EB    8004FFFB A            GEN,1,15,1,15  1,4,1,32763                         4
     4607   01 019EC    8000FFF8 A            GEN,1,15,1,15  1,0,1,32760                         5
     4608   01 019ED    80008000 A            GEN,1,15,1,15  1,0,1,0                             6
     4609   01 019EE    8000FFFB A            GEN,1,15,1,15  1,0,1,32763                         7
     4610                            *   TEST 2904,290A
     4611   01 019EF    00068004 A            GEN,1,15,1,15  0,6,1,4           PLM  SUBTEST      1
     4612   01 019F0    80068000 A            GEN,1,15,1,15  1,6,1,0                             2
     4613   01 019F1    80008003 A            GEN,1,15,1,15  1,0,1,3                             3
     4614   01 019F2    00008000 A            GEN,1,15,1,15  0,0,1,0                             4
     4615   01 019F3    FFFB0006 A            GEN,1,15,1,15  1,32763,0,6                         5
     4616   01 019F4    FFFB0006 A            GEN,1,15,1,15  1,32763,0,6                         6
     4617   01 019F5    FFFB8000 A            GEN,1,15,1,15  1,32763,1,0                         7
     4618                            *   TEST 2905,290B
     4619   01 019F6    0008FFFB A            GEN,1,15,1,15  0,8,1,32763       MSP(+) SUBTEST    1
     4620   01 019F7    80047FF7 A            GEN,1,15,1,15  1,4,0,32759                         2
     4621   01 019F8    80020000 A            GEN,1,15,1,15  1,2,0,0                             3
     4622   01 019F9    8004FFFB A            GEN,1,15,1,15  1,4,1,32763                         4
     4623   01 019FA    8000FFF7 A            GEN,1,15,1,15  1,0,1,32759                         5
     4624   01 019FB    80008000 A            GEN,1,15,1,15  1,0,1,0                             6
     4625   01 019FC    8000FFFB A            GEN,1,15,1,15  1,0,1,32763                         7
     4626                            *   TEST 2906,290C
     4627   01 019FD    00068004 A            GEN,1,15,1,15  0,6,1,4           MSP(-) SUBTEST    1
     4628   01 019FE    80068000 A            GEN,1,15,1,15  1,6,1,0                             2
     4629   01 019FF    80008003 A            GEN,1,15,1,15  1,0,1,3                             3
     4630   01 01A00    00008000 A            GEN,1,15,1,15  0,0,1,0                             4
     4631   01 01A01    FFFB0008 A            GEN,1,15,1,15  1,32763,0,8                         5
     4632   01 01A02    FFFB0008 A            GEN,1,15,1,15  1,32763,0,8                         6
     4633   01 01A03    FFFB8000 A            GEN,1,15,1,15  1,32763,1,0                         7
     4634   01 01A04    7FFF7FFF A   STACKMASK DATA    X'7FFF7FFF'
     4635                            *
     4636                            *
     4637                            *
1 C00   22:37 JUN 20,'83                       FIXED POINT OVERFLOW TRAPS                         PAGE   39
A    4640                            *
     4641                            *  THIS TEST EXECUTES INSTRUCTIONS IN 'TRAP43' TO PRODUCE OVERFLOW
     4642                            *        CONDITIONS.   SUBTEST 2 SETS THE TRAP MASK TO ZERO
     4643                            *                      SUBTEST 1 SETS THE TRAP MASK TO 1
     4644                            *
     4645                            *        REGISTER X1 CONTAINS DISPLACEMENT OF INSTRUCTION-   (FP0%INST)
     4646                            *                 X5    ''        ''       OF VALUES     -   (FPO%VAL)
     4647                            *                 X7    ''        ''       OF TABLE POINTERS-(FPO%)
     4648                            *                 X4    ''   SUBTEST NUMBER
     4649                            *
     4650                            *        EACH TEST IS BUILT BY MOVING:
     4651                            *                 1. INSTR. FROM TABLE FPO%INST TO 'TRAP43'
     4652                            *                 2. VALUE DOUBLEWORD FROM TABLE FPO%VAL TO REGISTERS
     4653                            *                     X2-X3 AND TO 'FPO%SAVE'-'FPO%SAVE+1'
     4654                            *                 3. EXPECTED CC FROM TABLE FPO% TO 'TRAPECC'
     4655                            *                   NOTE: TABLE FPO% CONTAINS INDEX VALUES USED TO
     4656                            *                         SELECT INSTRUCTION AND VALUES.
     4657                            *
     4658         01 01A05           GOTST2A  EQU      %                 ENTER HERE FROM PARAM LINE T
     4659   01 01A05    02200000 A            LCI      0
     4660   01 01A06    2A002605              LM,0     GOSAVE
     4661   01 01A07    328003F2              LW,R8    TESTNO
     4662   01 01A08    21802A1B A            CI,R8    X'2A1B'
     4663   01 01A09    692025D8              BG       INVALTST#         EXIT IF TOO LARGE
     4664   01 01A0A    68001A10              B        TST2A#A+1
     4665                            *
     4666   01 01A0B    22802A01 A   TST2A00  LI,R8    X'2A01'           SET UP TEST NUMBER
     4667   01 01A0C    358003F2              STW,R8   TESTNO
     4668   01 01A0D    22800001 A            LI,R8    1
     4669   01 01A0E    358003F3              STW,R8   PATTNO            INTIALIZE SUBTEST NUMBER
     4670                            *
     4671         01 01A0F           TST2A#A  EQU      %
     4672   01 01A0F    6A601168              BAL,LINK JAMXPSDS          UPDATE LOCATIONS 10-1FF
     4673   01 01A10    22800000 A            LI,R8    0
     4674   01 01A11    35802A92              STW,R8   TRAPINCR
     4675   01 01A12    32802C6E              LW,R8    TRAPXPSD          SET UP TRAP HANDLER
     4676   01 01A13    35800043 A            STW,R8   X'43'
     4677   01 01A14    22800043 A            LI,R8    X'43'
     4678   01 01A15    35802A93              STW,R8   TRAPLOC
     4679                            *
     4680   01 01A16    324003F3              LW,X4    PATTNO            FIND WHICH SUBTEST
     4681   01 01A17    21400001 A            CI,X4    1
     4682   01 01A18    68301A1B              BE       %+3
     4683                            *
     4684   01 01A19    2280F000 A   TST2A#B1 LI,R8    X'F000'           SET UP SUBTEST 2
     4685   01 01A1A    68001A1C              B        %+2
     4686                            *
     4687   01 01A1B    2280F010 A   TST2A#B2 LI,R8    X'F010'           SET UP SUBTEST 1
     4688   01 01A1C    55801A34              STH,R8   TRAP43-2
     4689                            *
     4690   01 01A1D    22901A36     TST2A#C  LI,R9    TRAP43            SET EXPECTED TRAP ADDRESS IN EXP. PSD
     4691   01 01A1E    25800010 A            SLS,R8   16
     4692   01 01A1F    49900008 A            OR,R9    R8
     4693   01 01A20    35902A8E              STW,R9   TRAPEPSD
     4694   01 01A21    327003F2              LW,X7    TESTNO            SET UP POINTER TO TEST MODULE
     4695   01 01A22    4B702C8F              AND,X7   XFF                       *
     4696   01 01A23    328E1A53              LW,R8    FPO%,X7           DECODE THE POINTER
     4697   01 01A24    25800210 A            SCS,R8   16                        *
     4698   01 01A25    75802A8E              STB,R8   TRAPEPSD          COND. CODES (BYTE 1)
     4699   01 01A26    72500008 A            LB,X5    R8                VALUE DISP. (BYTE 2)
     4700   01 01A27    25800008 A            SLS,R8   8
     4701   01 01A28    72100008 A            LB,X1    R8                INST. DISP. (BYTE 3)
     4702                            *
     4703   01 01A29    22800000 A            LI,R8    0
     4704   01 01A2A    35802A8F              STW,R8   TRAPEPSD+1
     4705   01 01A2B    75802A8D              STB,R8   TRAPECC           SET EXP. CC'S
     4706   01 01A2C    22801A3E              LI,R8    TST2A#D
     4707   01 01A2D    35802A94              STW,R8   TRAPRET           SET UP RETURN FROM TRAP HANDLER
     4708                            *
     4709   01 01A2E    122A1A6E     TST2A#C1 LD,X2    FPO%VAL,X5        BUILD TEST MODULE BY :
     4710   01 01A2F    15201A7C              STD,X2   FPO%SAVE            FINDING TEST VALUES
     4711   01 01A30    32821A7D              LW,R8    FPO%INST,X1         FINDING INSTRUCTION
     4712   01 01A31    35801A36              STW,R8   TRAP43               SETTING INSTR. IN DRIVER
     4713                            *
     4714   01 01A32    0E001A34              LPSD,0   TRAP43-2          SET CC'S AND AM FLAG
     4715                                     BOUND    8
     4716   01 01A34    F0101A36 N            GEN,12,20,32  X'F01',%+2,0
                        00000000



     4718                            ***************************
     4719                            *  TRAP SHOULD OCCUR HERE UNLESS INHIBITED BY AM =0 (SUBTEST 2)
     4720                            ****************************
     4721   01 01A36                 TRAP43   RES      1
     4722                            ***************************
     4723                            *  FALL THRU IF NO TRAP
     4724                            **************************
     4725   01 01A37    21400002 A            CI,X4    2                 IS IT SUBTEST 2
     4726   01 01A38    68301A46              BE       TST2A#E           NO ERROR IF YES
     4727   01 01A39    22C00071 A            LI,RC    X'71'
     4728   01 01A3A    32D01A36              LW,RD    TRAP43            FIND TRAPPING INSTR.
     4729   01 01A3B    22E01A36              LI,RE    TRAP43            FIND TRAP ADDRESS
     4730   01 01A3C    6A6020A0              BAL,LINK EROR              DISPLAY ERROR TYPE 71 (NO TRAP)
     4731   01 01A3D    68001A46              B        TST2A#E
     4732                            *
     4733                            *  RETURN HERE FROM TRAP HANDLER
     4734                            *
     4735   01 01A3E    21400001 A   TST2A#D  CI,X4    1                 WAS TRAP EXPECTED
     4736   01 01A3F    68301A46              BE       TST2A#E           BRANCH IF YES
     4737   01 01A40    22C00002 A            LI,RC    2                 DISPLAY ERROR TYPE 02 (UNEXP. TRAP)
     4738   01 01A41    32D01616              LW,RD    TRAPPSD           FIND PSD WORD 1
     4739   01 01A42    32E01617              LW,RE    TRAPPSD+1           AND WORD 2
     4740   01 01A43    22800043 A            LI,R8    X'43'
     4741   01 01A44    35802A62              STW,R8   LOCATION          DEFINE LOC'N OF TRAP
     4742   01 01A45    6A6020A0              BAL,LINK EROR
     4743                            *
     4744   01 01A46    6A601D06     TST2A#E  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     4745   01 01A47    68001A2E              B        TST2A#C1          LOOP RETURN
     4746   01 01A48    21400002 A            CI,X4    2                 CONTINUATION RETURN
     4747   01 01A49    68301A4D              BE       TST2A#F           BRANCH IF SUBTEST 2
     4748                            *
     4749   01 01A4A    22400002 A            LI,X4    2
     4750   01 01A4B    354003F3              STW,X4   PATTNO
     4751   01 01A4C    68001A19              B        TST2A#B1          SELECT SUBTEST 2
     4752                            *
     4753   01 01A4D    22400001 A   TST2A#F  LI,X4    1                 SELECT SUBTEST 1,NEXT TEST
     4754   01 01A4E    354003F3              STW,X4   PATTNO
     4755   01 01A4F    20700001 A            AI,X7    1
     4756   01 01A50    331003F2              MTW,1    TESTNO
     4757   01 01A51    2170001B A            CI,X7    X'1B'             ARE ALL TESTS COMPLETE
     4758   01 01A52    68201A1B              BLE      TST2A#B2          BRANCH IF NO
     4759   01 01A53    68001A98              B        TST2B01           GO TO NEXT TEST
     4760                            *
     4761                            *
     4762                            *  THE FOLLOWING LOCATIONS CONTAIN BYTE POINTERS FOR THE FIXED PT.
     4763                            *        OVERFLOW TESTS.   BYTE 1 = EXP. CC AND FLOAT BYTE
     4764                            *                          BYTE 2 = ARITH. VALUE DISPLACEMENT IN FPO%VAL
     4765                            *                          BYTE 3 = INSTR. DISPLACEMENT IN TABLE FPO%INST
     4766                            *
     4767                            *                                    TEST                FUNCTION
     4768                            *                                   ******          *****************
     4769         01 01A53           FPO%     EQU      %-1
     4770   01 01A54    00D00101 A            GEN,8,8,8,8  0,X'D0',1,1   2A01        LCW    OVERFLOW
     4771   01 01A55    00D00102 A            GEN,8,8,8,8  0,X'D0',1,2     02        LAW       ''
     4772   01 01A56    00D00103 A            GEN,8,8,8,8  0,X'D0',1,3     03        LCD       ''
     4773   01 01A57    00D00104 A            GEN,8,8,8,8  0,X'D0',1,4     04        LAD       ''
     4774   01 01A58    00D00502 A            GEN,8,8,8,8  0,X'D0',5,2     05        AI  -     ''
     4775   01 01A59    00500206 A            GEN,8,8,8,8  0,X'50',2,6     06        AI  +     ''
     4776   01 01A5A    00E00207 A            GEN,8,8,8,8  0,X'E0',2,7     07        AH  -     ''
     4777   01 01A5B    00500208 A            GEN,8,8,8,8  0,X'50',2,8     08        AH  +     ''
     4778   01 01A5C    00C00309 A            GEN,8,8,8,8  0,X'C0',3,9     09        AW  0     ''
     4779   01 01A5D    00500409 A            GEN,8,8,8,8  0,X'50',4,9     0A        AW  -     ''
     4780   01 01A5E    00E00509 A            GEN,8,8,8,8  0,X'E0',5,9     0B        AW  +     ''
     4781   01 01A5F    00C0010A A            GEN,8,8,8,8  0,X'C0',1,10    0C        AD  0     ''
     4782   01 01A60    00E0020A A            GEN,8,8,8,8  0,X'E0',2,10    0D        AD  -     ''
     4783   01 01A61    0050060A A            GEN,8,8,8,8  0,X'50',6,10    0E        AD  +     ''
     4784   01 01A62    00C0030B A            GEN,8,8,8,8  0,X'C0',3,11    0F        AWM 0     ''
     4785   01 01A63    0050040B A            GEN,8,8,8,8  0,X'50',4,11    10        AWM -     ''
     4786   01 01A64    00E0050B A            GEN,8,8,8,8  0,X'E0',5,11    11        AWM +     ''
     4787   01 01A65    0050020C A            GEN,8,8,8,8  0,X'50',2,12    12        MTH -     ''
     4788   01 01A66    00E0020D A            GEN,8,8,8,8  0,X'E0',2,13    13        MTH +     ''
     4789   01 01A67    0050020E A            GEN,8,8,8,8  0,X'50',2,14    14        MTW -     ''
     4790   01 01A68    00E0020F A            GEN,8,8,8,8  0,X'E0',2,15    15        MTW +     ''
     4791   01 01A69    00E00210 A            GEN,8,8,8,8  0,X'E0',2,16    16        SH  -     ''
     4792   01 01A6A    00500211 A            GEN,8,8,8,8  0,X'50',2,17    17        SH  +     ''
     4793   01 01A6B    00500612 A            GEN,8,8,8,8  0,X'50',6,18    18        SW  -     ''
     4794   01 01A6C    00E00212 A            GEN,8,8,8,8  0,X'E0',2,18    19        SW  +     ''
     4795   01 01A6D    00500613 A            GEN,8,8,8,8  0,X'50',6,19    1A        SD  -     ''
     4796   01 01A6E    00E00514 A            GEN,8,8,8,8  0,X'E0',5,20    1B        SD  +     ''
     4797                            *
     4798                            *  THE FOLLOWING VALUES ARE STORED AS DOUBLEWORDS IN X2-X3
     4799                            *        AND FPO%SAVE-FPO%SAVE+1 AS SELECTED BY BYTE 2 OF SELECTED
     4800                            *        POINTER WORD.
     4801                            *
     4802                                     BOUND    8
     4803         01 01A6E           FPO%VAL  EQU      %-2               INDEX VALUE (X5)
     4804   01 01A70    80000000 A            DATA     X'80000000',0             1
            01 01A71    00000000 A
     4805   01 01A72    80000000 A            DATA     X'80000000',X'7FFFFFFF'   2
            01 01A73    7FFFFFFF A
     4806   01 01A74    80000000 A            DATA     X'80000000',X'80000000'   3
            01 01A75    80000000 A
     4807   01 01A76    7FFFFFFF A            DATA     X'7FFFFFFF',X'7FFFFFFF'   4
            01 01A77    7FFFFFFF A
     4808   01 01A78    80000000 A            DATA     X'80000000',-1            5
            01 01A79    FFFFFFFF A
     4809   01 01A7A    7FFFFFFF A            DATA     X'7FFFFFFF',-1            6
            01 01A7B    FFFFFFFF A
     4810                            *
     4811   01 01A7C                 FPO%SAVE RES      2
     4812                            *
     4813                            *
     4814                            *  THE FOLLOWING LOCATIONS CONTAIN THE INSTRUCTIONS POINTED
     4815                            *        TO BY BYTE 3 OF THE SELECTED POINTER WORD
     4816                            *
     4817         01 01A7D           FPO%INST EQU      %-1               INDEX VALUE (X1)
     4818   01 01A7E    3A800002 A            LCW,R8   X2                        1
     4819   01 01A7F    3B800002 A            LAW,R8   X2                        2
     4820   01 01A80    1A800002 A            LCD,R8   X2                        3
     4821   01 01A81    1B800002 A            LAD,R8   X2                        4
     4822   01 01A82    202FFFFF A            AI,X2    -1                        5
     4823   01 01A83    20300001 A            AI,X3    1                         6
     4824   01 01A84    50202C78              AH,X2    M1                        7
     4825   01 01A85    50301A7D              AH,X3    FPO%SAVE+1                8
     4826   01 01A86    30200003 A            AW,X2    X3                        9
     4827   01 01A87    10201A7C              AD,X2    FPO%SAVE                  10
     4828   01 01A88    66201A7D              AWM,X2   FPO%SAVE+1                11
     4829   01 01A89    53101A7D              MTH,1    FPO%SAVE+1                12
     4830   01 01A8A    53F01A7C              MTH,-1   FPO%SAVE                  13
     4831   01 01A8B    33101A7D              MTW,1    FPO%SAVE+1                14
     4832   01 01A8C    33F01A7C              MTW,-1   FPO%SAVE                  15
     4833   01 01A8D    58201A7D              SH,X2    FPO%SAVE+1                16
     4834   01 01A8E    58302C78              SH,X3    M1                        17
     4835   01 01A8F    38201A7D              SW,X2    FPO%SAVE+1                18
     4836   01 01A90    18201A78              SD,X2    FPO%VAL+10                19
     4837   01 01A91    18201A7A              SD,X2    FPO%VAL+12                20
1 C00   22:37 JUN 20,'83                       FIXED POINT OVERFLOW TRAPS                         PAGE   40
A    4840                            *
     4841                            *
     4842                            *
     4843                            *   FLOATING POINT TRAP
     4844                            *
     4845                            *
     4846         01 01A92           GOTST2B  EQU      %
     4847   01 01A92    02200000 A            LCI      0
     4848   01 01A93    2A002605              LM,0     GOSAVE
     4849   01 01A94    328003F2              LW,R8    TESTNO
     4850   01 01A95    21802B01 A            CI,R8    X'2B01'
     4851   01 01A96    68301A98              BE       TST2B01
     4852   01 01A97    680025D8              B        INVALTST#
     4853                            *
     4854   01 01A98    22802B01 A   TST2B01  LI,R8    X'2B01'
     4855   01 01A99    358003F2              STW,R8   TESTNO
     4856   01 01A9A    22800001 A            LI,R8    1
     4857   01 01A9B    358003F3              STW,R8   PATTNO
     4858   01 01A9C    6A601168              BAL,LINK JAMXPSDS
     4859   01 01A9D    22800000 A            LI,R8    0
     4860   01 01A9E    35802A92              STW,R8   TRAPINCR          SPECIFY NO ADDR. INCREMENT
     4861   01 01A9F    32802C6E              LW,R8    TRAPXPSD
     4862   01 01AA0    35800044 A            STW,R8   X'44'             SEND EXP. TRAP TO TRAP HANDLER
     4863   01 01AA1    22801AB0              LI,R8    TRAP44
     4864   01 01AA2    35802A8E              STW,R8   TRAPEPSD          BUILD EXPECTED PSD
     4865   01 01AA3    22800040 A            LI,R8    X'40'
     4866   01 01AA4    75802A8E              STB,R8   TRAPEPSD              EXP. CC'S
     4867   01 01AA5    22800000 A            LI,R8    0
     4868   01 01AA6    35802A8F              STW,R8   TRAPEPSD+1
     4869   01 01AA7    22800044 A            LI,R8    X'44'
     4870   01 01AA8    35802A93              STW,R8   TRAPLOC           SPECIFY LOCATION OF EXP. TRAP
     4871   01 01AA9    22801AB5              LI,R8    TST2B#D
     4872   01 01AAA    35802A94              STW,R8   TRAPRET           SELECT RETURN FROM TRAP ADDR.
     4873                            *
     4874   01 01AAB    32901AB8     TST2B#C  LW,R9    DIVIDEND
     4875   01 01AAC    0E001AAE              LPSD,0   TRAP44-2
     4876                                     BOUND    8
     4877   01 01AAE    F0001AB0 N            GEN,12,20,32  X'F00',TRAP44,0
                        00000000
     4878                            *
     4879                            *   TRAP SHOULD OCCUR ON NEXT INSTRUCTION
     4880                            *
     4881   01 01AB0    3E901AB9     TRAP44   FDS,R9   ZERO
     4882                            *
     4883                            *   FALL THRU IF NO TRAP
     4884                            *
     4885   01 01AB1    22C00071 A            LI,RC    X'71'
     4886   01 01AB2    32D01AB0              LW,RD    TRAP44            PICK UP TRAPPING INSTR.
     4887   01 01AB3    22E01AB0              LI,RE    TRAP44            PICK UP TRAP ADDRESS
     4888   01 01AB4    6A6020A0              BAL,LINK  EROR             SAY EXP. TRAP DIDN'T OCCUR
     4889                            *
     4890                            *   RETURN HERE AFTER TRAP
     4891                            *
     4892   01 01AB5    6A601D06     TST2B#D  BAL,LINK CHK:LOOP
     4893   01 01AB6    68001AAB              B        TST2B#C           LOOP RETURN
     4894   01 01AB7    68001AC6              B        TST2C00           CONTINUATION RETURN
     4895                            *
     4896                            *
     4897   01 01AB8    40100000 A   DIVIDEND DATA     X'40100000'
     4898   01 01AB9    00000000 A   ZERO     DATA     0
     4899                            *
     4900                            *
1 C00   22:37 JUN 20,'83    DECIMAL TRAPS - TRAP '45'                                             PAGE   41
A    4903                            *
     4904                            ************************************
     4905                            * ENTRY FROM PARAMETER LINE T      *
     4906                            ************************************
     4907                            *
     4908         01 01ABA           GOTST2C  EQU      %
     4909   01 01ABA    02200000 A            LCI      0
     4910   01 01ABB    2A002605              LM,0     GOSAVE
     4911   01 01ABC    324003F3              LW,X4    PATTNO
     4912   01 01ABD    22700002 A            LI,X7    2                 CHECK IF THIS TEST IS VALID
     4913   01 01ABE    22800045 A            LI,R8    X'45'
     4914   01 01ABF    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     4915   01 01AC0    328003F2              LW,R8    TESTNO
     4916   01 01AC1    21802C01 A            CI,R8    X'2C01'
     4917   01 01AC2    68301ACB              BE       TST2C#A
     4918   01 01AC3    21802C02 A            CI,R8    X'2C02'
     4919   01 01AC4    68301B0E              BE       TST2C#D
     4920   01 01AC5    680025D8              B        INVALTST#         ERROR - INVALID TEST NUMBER
     4921                            *
     4922                            *
     4923   01 01AC6                 TST2C00  RES      0
     4924   01 01AC6    22800045 A            LI,R8    X'45'
     4925   01 01AC7    35802A93              STW,R8   TRAPLOC              SAVE TRAP LOCATION
     4926   01 01AC8    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     4927   01 01AC9    22B02C01 A            LI,RB    X'2C01'           INITIALIZE TEST 2C01
     4928   01 01ACA    35B003F2              STW,RB   TESTNO               RECORD TEST NUMBER
     4929   01 01ACB    22800000 A   TST2C#A  LI,R8    0
     4930   01 01ACC    35802A92              STW,R8   TRAPINCR             SET ADDRESS INCREMENT VALUE
     4931   01 01ACD    6A601168              BAL,LINK JAMXPSDS          INITIALIZE INTERRUPT AND TRAP LOC'NS
     4932   01 01ACE    68001AD3              B        TST2C#A2
     4933                            *
     4934   01 01ACF    354003F3     TST2C#A1 STW,X4   PATTNO
     4935   01 01AD0    35802A8D              STW,R8   TRAPECC
     4936   01 01AD1    32802C6E              LW,R8    TRAPXPSD
     4937   01 01AD2    35800045 A            STW,R8   X'45'       SET XPSD TO TRAP HANDLER
     4938   01 01AD3    22801AE9     TST2C#A2 LI,R8    TRAP45               FIND ADDRESS OF EXPECTED TRAP
     4939   01 01AD4    35802A8E              STW,R8   TRAPEPSD                SAVE IN EXPECTED PSD
     4940   01 01AD5    22801AF4              LI,R8    TST2C#B
     4941   01 01AD6    35802A94              STW,R8   TRAPRET              SET UP RETURN FROM TRAP HANDLER
     4942   01 01AD7    22800000 A            LI,R8    0
     4943   01 01AD8    35802A8F              STW,R8   TRAPEPSD+1           SET EXP. PSD WORD 2 TO ZERO
     4944   01 01AD9    321003F3              LW,X1    PATTNO
     4945   01 01ADA    23100006 A            MI,X1    6                 SET UP LOAD MODULE INDEX
     4946   01 01ADB    02200060 A            LCI      6
     4947   01 01ADC    2AA21B0A              LM,RA    DEC%MODS-6,X1     GET SUBTEST MODULE
     4948   01 01ADD    35A01AE9              STW,RA   TRAP45
     4949   01 01ADE    55B02A8E              STH,RB   TRAPEPSD
     4950   01 01ADF    328003F2              LW,R8    TESTNO
     4951   01 01AE0    4B802C79              AND,R8   ONE
     4952   01 01AE1    68301AE8              BEZ      TST2C02           BRANCH IF TEST 2C02
     4953   01 01AE2    0E001AE4              LPSD,0   TST2C01
     4954                                     BOUND    8
     4955   01 01AE4    00001AE9     TST2C01  DATA     TRAP45,0
            01 01AE5    00000000 A
     4956                            *
     4957   01 01AE6    00201AE9 N            GEN,12,20,32  2,TRAP45,0
                        00000000
     4958   01 01AE8    0E001AE6     TST2C02  LPSD,0   %-2
     4959                            *
     4960                            **********************************************************************
     4961                            *  TRAP SHOULD OCCUR ON EXECUTION OF NEXT INSTRUCTION
     4962                            **********************************************************************
     4963   01 01AE9    00000000 A   TRAP45   DATA     0                 REPLACE WITH INSTR. FROM DEC%MODS TABLE
     4964                            **********************************************************************
     4965                            *                                                                    *
     4966                            *  FALL THROUGH IF NO TRAP
     4967                            **********************************************************************
     4968   01 01AEA    328003F2              LW,R8    TESTNO
     4969   01 01AEB    21802C01 A            CI,R8    X'2C01'
     4970   01 01AEC    68301B02              BE       TST2C#C
     4971                            *
     4972   01 01AED    02200040 A            LCI      4
     4973   01 01AEE    2BC01B22              STM,RC   DEC%SAVE          SAVE ALTERED REGISTERS
     4974   01 01AEF    22C00071 A            LI,RC    X'71'                ERROR TYPE 71
     4975   01 01AF0    32D01AE9              LW,RD    TRAP45            FIND TRAPPING INSTR.
     4976   01 01AF1    22E01AE9              LI,RE    TRAP45            FIND TRAP ADDRESS
     4977   01 01AF2    6A6020A0              BAL,LINK EROR
     4978   01 01AF3    68001B02              B        TST2C#C
     4979                            **********************************************************************
     4980                            *    RETURN HERE FROM TRAP HANDLING ROUTINE
     4981                            **********************************************************************
     4982         01 01AF4           TST2C#B  EQU      %
     4983                            *
     4984   01 01AF4    20101B0C              AI,X1    DEC%MODS-4        SET X1 AS POINTER TO DEC. #
     4985   01 01AF5    91C00001 A            CD,RC    *X1
     4986   01 01AF6    69301AFA              BNE      %+4               BRANCH IF REGISTERS WERE ALTERED
     4987   01 01AF7    20100002 A            AI,X1    2
     4988   01 01AF8    91E00001 A            CD,RE    *X1
     4989   01 01AF9    68301B02              BE       TST2C#C           BRANCH IF NOT ALTERED
     4990                            *
     4991   01 01AFA    02200040 A            LCI      4
     4992   01 01AFB    2BC01B22              STM,RC   DEC%SAVE
     4993   01 01AFC    22C00093 A            LI,RC    X'93'
     4994   01 01AFD    32D00001 A            LW,RD    X1
     4995   01 01AFE    20DFFFFE A            AI,RD    -2
     4996   01 01AFF    22E01B22              LI,RE    DEC%SAVE
     4997   01 01B00    22F00004 A            LI,RF    4
     4998   01 01B01    6A6020A0              BAL,LINK EROR
     4999                            *
     5000   01 01B02    6A601D06     TST2C#C  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUESTS
     5001   01 01B03    68001ACF              B        TST2C#A1          LOOP = YES RETURN
     5002   01 01B04    20400001 A            AI,X4    1                 SELECT NEXT PATTERN
     5003   01 01B05    354003F3              STW,X4   PATTNO
     5004   01 01B06    21400003 A            CI,X4    3                 WAS THAT THE LAST PATTERN
     5005   01 01B07    68201ACF              BLE      TST2C#A1          LOOP IF NO
     5006   01 01B08    328003F2              LW,R8    TESTNO
     5007   01 01B09    21802C02 A            CI,R8    X'2C02'
     5008   01 01B0A    68301B2C              BE       TST2D00           BRANCH IF TEST IS COMPLETE
     5009                            *
     5010                            **********************************************************************
     5011                            *  TEST 2C02 - SAME AS 2C01 EXCEPT DM IS SET IN PSD
     5012                            **********************************************************************
     5013   01 01B0B    22400001 A            LI,X4    1                    SET INDEX FOR PATTERN 1
     5014   01 01B0C    22802C02 A            LI,R8    X'2C02'           INITIALIZE TEST 2C02
     5015   01 01B0D    358003F2              STW,R8   TESTNO               RECORD TEST NUM8ER
     5016         01 01B0E           TST2C#D  EQU      %
     5017   01 01B0E    6A601168              BAL,LINK JAMXPSDS
     5018   01 01B0F    68001ACF              B        TST2C#A1
     5019                            *
     5020                            *
     5021                            *  THIS TABLE CONTAINS THE SUBTEST MODULES FOR THIS TEST
     5022                            *
     5023                            *        WORD 1 = TRAPPING INSTRUCTION
     5024                            *        WORD 2 = EXPECTED TCC (BYTE 3)
     5025                            *        WORDS 3 THRU 6
     5026                            *               = CONTENTS OF DECIMAL ACCUMULATOR
     5027                            *
     5028         01 01B10           DEC%MODS EQU      %
     5029   01 01B10    7C000008 A            DSA      8                 SUBTEST 1 - DECIMAL SHIFT
     5030   01 01B11    00008020 A            DATA     X'8020'              WITH ILLEGAL SIGN BIT
     5031   01 01B12    00000001 A            DATA     1,0,0,3
            01 01B13    00000000 A
            01 01B14    00000000 A
            01 01B15    00000003 A
     5032                            *
     5033   01 01B16    78001B18              DS,0     %+2               SUBTEST 2 - DECIMAL SUBTRACT
     5034   01 01B17    00008020 A            DATA     X'8020'             WITH ILLEGAL DIGIT
     5035   01 01B18    0000000A A            DATA     X'A',0,0,X'F'
            01 01B19    00000000 A
            01 01B1A    00000000 A
            01 01B1B    0000000F A
     5036                            *
     5037   01 01B1C    79001B1E              DA,0     %+2               SUBTEST 3 - DECIMAL ADD
     5038   01 01B1D    00004020 A            DATA     X'4020'              WITH OVERFLOW
     5039   01 01B1E    50000000 A            DATA     X'50000000',0,0,X'B'
            01 01B1F    00000000 A
            01 01B20    00000000 A
            01 01B21    0000000B A
     5040                            *
     5041   01 01B22                 DEC%SAVE RES      4
     5042                            *
     5043                            *
1 C00   22:37 JUN 20,'83    DECIMAL TRAPS - TRAP '45'                                             PAGE   42
A    5046                            *
     5047                            *
     5048                            *  WATCH DOG TIMER TEST
     5049                            *
     5050                            ******************************
     5051                            *
     5052   01 01B26    328003F2              LW,R8    TESTNO
     5053   01 01B27    21802D02 A            CI,R8    X'2D02'
     5054   01 01B28    68301B2C              BE       %+4               BRANCH IF TRAP NOT EXPECTED
     5055         01 01B29           GOTST2D  EQU      %
     5056   01 01B29    328003F2              LW,R8    TESTNO
     5057   01 01B2A    21802D01 A            CI,R8    X'2D01'
     5058   01 01B2B    693025D8              BNE      INVALTST#
     5059                            *
     5060                            *  ENTER HERE FROM PREVIOUS TEST
     5061                            *
     5062         01 01B2C           TST2D00  EQU      %
     5063   01 01B2C    22802D01 A            LI,R8    X'2D01'
     5064   01 01B2D    358003F2              STW,R8   TESTNO
     5065   01 01B2E    22800001 A            LI,R8    1
     5066   01 01B2F    358003F3              STW,R8   PATTNO
     5067   01 01B30    6A601168              BAL,LINK JAMXPSDS          INITIALIZE TRAP LOCN'S
     5068   01 01B31    22800000 A            LI,R8    0
     5069   01 01B32    35802A8F              STW,R8   TRAPEPSD+1
     5070   01 01B33    35802A92              STW,R8   TRAPINCR
     5071   01 01B34    32802C6E              LW,R8    TRAPXPSD          DIRECT TRAP TO TRAP HANDLER
     5072   01 01B35    35800046 A            STW,R8   X'46'                     *
     5073   01 01B36    22801B3F              LI,R8    TRAP46
     5074   01 01B37    35802A8E              STW,R8   TRAPEPSD
     5075   01 01B38    22800010 A            LI,R8    X'10'
     5076   01 01B39    75802A8D              STB,R8   TRAPECC
     5077   01 01B3A    22801B44              LI,R8    TST2D#B
     5078   01 01B3B    35802A94              STW,R8   TRAPRET
     5079   01 01B3C    22800046 A            LI,R8    X'46'
     5080   01 01B3D    35802A93              STW,R8   TRAPLOC
     5081   01 01B3E    02200000 A            LCI      0
     5082                            *
     5083                            *  TRAP EXPECTED ON NEXT INSTRUCTION
     5084                            *
     5085   01 01B3F    6C802FFF A   TRAP46   RD,R8    X'2FFF'           ILLEGAL READ DIRECT
     5086                            *
     5087                            *    FALL THROUGH IF NO TRAP
     5088                            *
     5089   01 01B40    22C00072 A            LI,RC    X'72'
     5090   01 01B41    32D01B3F              LW,RD    TRAP46            TRAPPING INSTRUCTION
     5091   01 01B42    22E01B3F              LI,RE    TRAP46            EXP. TRAP ADDRESS
     5092   01 01B43    6A6020A0              BAL,LINK EROR
     5093                            *
     5094   01 01B44    6A601D06     TST2D#B  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     5095   01 01B45    68001B3E              B        TRAP46-1             LOOP RETURN
     5096   01 01B46    68001B4B              B        TST2E00              CONTINUE RETURN
     5097                            *
1 C00   22:37 JUN 20,'83    PARITY ERROR TRAP TEST - TRAP '4C'                                    PAGE   43
A    5100                            *
     5101                            *   PARITY ERROR TRAP TEST
     5102                            *
     5103                            ******************************
     5104                            *
     5105                            *        A PARITY ERROR IS FORCED IN 'BADPARITY' AND A TRAP IS
     5106                            *   EXPECTED AT 'TRAP4C' WHEN THE LOCATION IS READ
     5107                            *
     5108                            *
     5109                                     BOUND    8
     5110         01 01B48           GOTST2E  EQU      %
     5111   01 01B48    328003F2              LW,R8    TESTNO
     5112   01 01B49    21802E01 A            CI,R8    X'2E01'
     5113   01 01B4A    693025D8              BNE      INVALTST#
     5114                            *
     5115                            *  ENTER HERE FROM PREVIOUS TEST
     5116                            *
     5117         01 01B4B           TST2E00  EQU      %
     5118   01 01B4B    0E101B4C              LPSD,1   %+1               CLEAR PDF IF SET
     5119   01 01B4C    00001B4E              DATA     %+2,0
            01 01B4D    00000000 A
     5120   01 01B4E    22802E01 A            LI,R8    X'2E01'
     5121   01 01B4F    358003F2              STW,R8   TESTNO
     5122   01 01B50    22800001 A            LI,R8    1
     5123   01 01B51    358003F3              STW,R8   PATTNO
     5124   01 01B52    6A601168              BAL,LINK JAMXPSDS          INITIALIZE TRAP LOCN'S
     5125   01 01B53    22800000 A            LI,R8    0
     5126   01 01B54    35802A8F              STW,R8   TRAPEPSD+1
     5127   01 01B55    35802A92              STW,R8   TRAPINCR
     5128   01 01B56    75802A8D              STB,R8   TRAPECC
     5129   01 01B57    32802C6E              LW,R8    TRAPXPSD          DIRECT TRAP TO TRAP HANDLER
     5130   01 01B58    3580004C A            STW,R8   X'4C'                     *
     5131   01 01B59    22801B65              LI,R8    TRAP4C
     5132   01 01B5A    35802A8E              STW,R8   TRAPEPSD
     5133   01 01B5B    22800000 A   TST2E#A  LI,R8    0
     5134   01 01B5C    35801B6D              STW,R8   BAD%PARITY
     5135   01 01B5D    02200020 A            LCI      2
     5136   01 01B5E    2D801B6D              LMS,R8   BAD%PARITY
     5137   01 01B5F    22801B6A              LI,R8    TST2E#B
     5138   01 01B60    35802A94              STW,R8   TRAPRET
     5139   01 01B61    2280004C A            LI,R8    X'4C'
     5140   01 01B62    35802A93              STW,R8   TRAPLOC
     5141   01 01B63    22800400 A            LI,R8    X'400'
     5142   01 01B64    6D801300 A            WD,R8    ARMD              ARM AND DISABLE MFI
     5143                            *
     5144                            *  TRAP EXPECTED ON NEXT INSTRUCTION
     5145                            *
     5146   01 01B65    32801B6D     TRAP4C   LW,R8    BAD%PARITY        FIND WORD WITH BAD PARITY
     5147                            *
     5148                            *    FALL THROUGH IF NO TRAP
     5149                            *
     5150   01 01B66    22C00071 A            LI,RC    X'71'
     5151   01 01B67    32D01B65              LW,RD    TRAP4C            TRAPPING INSTRUCTION
     5152   01 01B68    22E01B65              LI,RE    TRAP4C            EXP. TRAP ADDRESS
     5153   01 01B69    6A6020A0              BAL,LINK EROR
     5154                            *
     5155   01 01B6A    6A601D06     TST2E#B  BAL,LINK CHK:LOOP          CHECK FOR LOOP REQUEST
     5156   01 01B6B    68001B5B              B        TST2E#A              LOOP RETURN
     5157   01 01B6C    68001B74              B        TST2F00              CONTINUE RETURN
     5158                            *
     5159   01 01B6D    00000000 A   BAD%PARITY DATA   0                 MEM. LOC'N THAT HAS THE BAD PARITY
     5160                            *
     5161                            *
     5162                            *
     5163                            *
1 C00   22:37 JUN 20,'83    INSTRUCTION EXCEPTION TRAP TEST - TRAP '4D'                           PAGE   44
A    5166                            *
     5167                            *   INSTRUCTION EXCEPTION TRAP TEST
     5168                            *
     5169                            **************************************
     5170                            *
     5171         01 01B6E           GOTST2F  EQU      %
     5172                            *
     5173                            *
     5174                            *
     5175   01 01B6E    02200000 A            LCI      0
     5176   01 01B6F    2A002605              LM,0     GOSAVE
     5177   01 01B70    32400003 A            LW,X4    LVL
     5178   01 01B71    21400007 A            CI,X4    7
     5179   01 01B72    681025D8              BGE      INVALTST#
     5180   01 01B73    68001B78              B        TST2F%COM
     5181                            *
     5182                            *
     5183         01 01B74           TST2F00  EQU      %
     5184   01 01B74    22800001 A            LI,R8    1
     5185   01 01B75    358003F3              STW,R8   PATTNO            SET SUBTST # = 1
     5186   01 01B76    22400000 A            LI,X4    0
     5187                            *
     5188   01 01B77    20400001 A            AI,X4    1                 BUMP TEST # INDEX
     5189                            *
     5190         01 01B78           TST2F%COM  EQU    %
     5191   01 01B78    6A601168              BAL,LINK JAMXPSDS
     5192   01 01B79    6A6022B8              BAL,LINK INITHIST
     5193   01 01B7A    6A601CD2              BAL,LINK DISARMALL
     5194   01 01B7B    2280004D A            LI,R8    X'4D'
     5195   01 01B7C    35802A93              STW,R8   TRAPLOC
     5196   01 01B7D    22800000 A            LI,R8    0
     5197   01 01B7E    35802A8E              STW,R8   TRAPEPSD
     5198   01 01B7F    35802A92              STW,R8   TRAPINCR
     5199   01 01B80    32802C6E              LW,R8    TRAPXPSD
     5200   01 01B81    3580004D A            STW,R8   X'4D'
     5201   01 01B82    72802A8A              LB,R8    SETCC
     5202   01 01B83    75802A8E              STB,R8   TRAPEPSD
     5203   01 01B84    72881C53              LB,R8    4D%TCC,X4
     5204   01 01B85    75802A8D              STB,R8   TRAPECC
     5205   01 01B86    72881C55              LB,R8    4D%TSF,X4
     5206   01 01B87    25800008 A            SLS,R8   8
     5207   01 01B88    35802A8F              STW,R8   TRAPEPSD+1
     5208   01 01B89    68081B89              B        %,X4              SELECT NEXT TEST
     5209   01 01B8A    68001B90              B        TST2F#A
     5210   01 01B8B    68001BB4              B        TST2F#B
     5211   01 01B8C    68001BD2              B        TST2F#C
     5212   01 01B8D    68001BF5              B        TST2F#D
     5213   01 01B8E    68001C0F              B        TST2F#E
     5214   01 01B8F    68001C29              B        TST2F#F
     5215                            ********************************************
     5216                            *        TEST 2F01
     5217                            *
     5218                            *   TRAP 4D- XPSD IN INT. LOC'N SETS REG. PTR. TO NON-EXIST. BLOCK
     5219                            *
     5220                            *  THIS TEST AND THE NEXT ASSUME THAT IF REGISTER BLOCK 3 DOES
     5221                            *        NOT PRODUCE A TRAP, ALL REGISTER BLOCKS ARE IMPLEMENTED
     5222                            *
     5223         01 01B90           TST2F#A  EQU      %
     5224   01 01B90    22802F01 A            LI,R8    X'2F01'
     5225   01 01B91    358003F2              STW,R8   TESTNO
     5226   01 01B92    32801C68              LW,R8    REG%BLOCKS
     5227   01 01B93    21800003 A            CI,R8    3
     5228   01 01B94    68301BB1              BE       TST2F#A2          BRANCH IF REG. BLOCK 3 IMPL.
     5229   01 01B95    32D01C57              LW,RD    XPSD%4D#A
     5230   01 01B96    35D0005D A            STW,RD   X'5D'             SET UP PCP INT. FOR TRAP
     5231   01 01B97    22801B9F              LI,R8    TRAP4D1+1
     5232   01 01B98    66802A8E              AWM,R8   TRAPEPSD
     5233   01 01B99    22801BB1              LI,R8    TST2F#A2
     5234   01 01B9A    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN
     5235   01 01B9B    22800010 A            LI,R8    X'10'
     5236   01 01B9C    6D801200 A            WD,R8    ARME              ARM & ENABLE PCP INT
     5237   01 01B9D    70202A8A              LC       SETCC
     5238                            *
     5239   01 01B9E    6D801700 A   TRAP4D1  WD,R8    TRIG              TRIGGER THE INT.
     5240                            *
     5241   01 01B9F    22C00071 A            LI,RC    X'71'             FALL THRU HERE IF NO INT.
     5242   01 01BA0    6A6020A0              BAL,LINK EROR
     5243   01 01BA1    68001BB1              B        TST2F#A2
     5244                            *
     5245                            *        RETURN HERE IF TRAP DOESN'T OCCUR
     5246                            *
     5247                                     BOUND    8
     5248         01 01BA2           TST2F#A1 EQU      %
     5249   01 01BA2    00000000 A            DATA     0,0,%+2,X'30'
            01 01BA3    00000000 A
            01 01BA4    00001BA6
            01 01BA5    00000030 A
     5250   01 01BA6    2F001AB9              LRP      ZERO              RESET BLOCK TO 0
     5251   01 01BA7    22800003 A            LI,R8    3
     5252   01 01BA8    35801C68              STW,R8   REG%BLOCKS        INDICATE ALL 4 BLOCKS IMPL.
     5253   01 01BA9    32801C6C              LW,R8    MAX%REGS%
     5254   01 01BAA    B58003CE              STW,R8   *#ERRTEXT%
     5255   01 01BAB    70200392              LC       #SENSE
     5256   01 01BAC    69901BB1              BCS,9    TST2F#A2          SKIP MSG. IF SS 1 OR 4 SET
     5257   01 01BAD    6A602809              #TYPE,1,1  MAX%REGS        SAY ALL BLOCKS IMPL.
            01 01BAE    EA6003CC
            01 01BAF    0160C1BC A
            01 01BB0    6A602832
     5258                            *
     5259                            *        RETURN HERE IF TRAP OCCURS
     5260                            *
     5261   01 01BB1    6A601D06     TST2F#A2 BAL,LINK CHK:LOOP          CHECK FOR KEYIN
     5262   01 01BB2    68001B9B              B        TRAP4D1-3         LOOP RETURN
     5263   01 01BB3    68001B77              B        TST2F%COM-1       CONTINUATION RETURN
     5264                            ********************************************
     5265                            *        TEST 2F02
     5266                            *
     5267                            *   TRAP 4D- XPSD IN NON-INT. LOC'N SETS REG. POINTER
     5268                            *         TO NON-EXISTANT BLOCK
     5269                            *
     5270         01 01BB4           TST2F#B  EQU      %
     5271   01 01BB4    22802F02 A            LI,R8    X'2F02'
     5272   01 01BB5    358003F2              STW,R8   TESTNO
     5273   01 01BB6    32801C68              LW,R8    REG%BLOCKS
     5274   01 01BB7    21800003 A            CI,R8    3
     5275   01 01BB8    68301BCF              BE       TST2F#B2          BRANCH IF REG. BLOCK 3 IMPL.
     5276   01 01BB9    22801BBE              LI,R8    TRAP4D2
     5277   01 01BBA    66802A8E              AWM,R8   TRAPEPSD
     5278   01 01BBB    22801BCF              LI,R8    TST2F#B2
     5279   01 01BBC    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN
     5280   01 01BBD    70202A8A              LC       SETCC
     5281                            *
     5282   01 01BBE    0F801BC0     TRAP4D2  XPSD,8  TST2F#B1          EXECUTE XPSD TO SET NON=EXIST
     5283                            *                                     REG BLOCK
     5284                            *
     5285                            *
     5286                            *        RETURN HERE IF TRAP DOESN'T OCCUR
     5287                            *
     5288                                     BOUND    8
     5289         01 01BC0           TST2F#B1 EQU      %
     5290   01 01BC0    00000000 A            DATA     0,0,%+2,X'30'
            01 01BC1    00000000 A
            01 01BC2    00001BC4
            01 01BC3    00000030 A
     5291   01 01BC4    2F001AB9              LRP      ZERO              RESET BLOCK TO 0
     5292   01 01BC5    22800003 A            LI,R8    3
     5293   01 01BC6    35801C68              STW,R8   REG%BLOCKS        INDICATE ALL 4 BLOCKS IMPL.
     5294   01 01BC7    32801C6C              LW,R8    MAX%REGS%
     5295   01 01BC8    B58003CE              STW,R8   *#ERRTEXT%
     5296   01 01BC9    70200392              LC       #SENSE
     5297   01 01BCA    69901BCF              BCS,9    TST2F#B2          SKIP MSG. IF SS 1 OR 4 SET
     5298   01 01BCB    6A602809              #TYPE,1,1  MAX%REGS        SAY ALL BLOCKS IMPL.
            01 01BCC    EA6003CC
            01 01BCD    0160C1BC A
            01 01BCE    6A602832
     5299                            *
     5300                            *        RETURN HERE IF TRAP OCCURS
     5301                            *
     5302   01 01BCF    6A601D06     TST2F#B2 BAL,LINK CHK:LOOP          CHECK FOR KEYIN
     5303   01 01BD0    68001BBE              B        TRAP4D2           LOOP RETURN
     5304   01 01BD1    68001B77              B        TST2F%COM-1       CONTINUATION RETURN
     5305                            ********************************************
     5306                            *        TEST 2F03
     5307                            *
     5308                            *   TRAP 4D - PDF DURING AN INTERRUPT SEQUENCE
     5309                            *
     5310         01 01BD2           TST2F#C  EQU      %
     5311   01 01BD2    328003AA              LW,R8    #MAXMEM
     5312   01 01BD3    31802CB7              CW,R8    4MEGWORD
     5313   01 01BD4    68301B77              BE       TST2F%COM-1       SKIP TEST IF MEMORY FULL
     5314   01 01BD5    22802F03 A            LI,R8    X'2F03'
     5315   01 01BD6    358003F2              STW,R8   TESTNO
     5316   01 01BD7    32D01C58              LW,RD    XPSD%4D#C1
     5317   01 01BD8    35D0005D A            STW,RD   X'5D'             SET UP PCP INT. FOR TRAP
     5318   01 01BD9    32801C59              LW,R8    XPSD%4D#C2
     5319   01 01BDA    35800040 A            STW,R8   X'40'
     5320   01 01BDB    22801BE3              LI,R8    TRAP4D3+1
     5321   01 01BDC    66802A8E              AWM,R8   TRAPEPSD
     5322   01 01BDD    22801BF2              LI,R8    TST2F#C2
     5323   01 01BDE    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN
     5324   01 01BDF    22800010 A            LI,R8    X'10'
     5325   01 01BE0    6D801200 A            WD,R8    ARME              ARM & ENABLE PCP INT
     5326   01 01BE1    70202A8A              LC       SETCC
     5327                            *
     5328   01 01BE2    6D801700 A   TRAP4D3  WD,R8    TRIG              TRIGGER THE INT.
     5329                            *
     5330   01 01BE3    22C00012 A            LI,RC    X'12'             FALL THRU HERE IF NO INT.
     5331   01 01BE4    35802A96              STW,R8   LEVARMD
     5332   01 01BE5    35802AA6              STW,R8   LEVTRIG
     5333   01 01BE6    35802A9E              STW,R8   LEVENBL
     5334   01 01BE7    35802AB6              STW,R8   LEVNINH
     5335   01 01BE8    6A6020A0              BAL,LINK EROR
     5336   01 01BE9    68001BF2              B        TST2F#C2
     5337                            *
     5338                            *        RETURN HERE IF TRAP DOESN'T OCCUR
     5339                            *
     5340                                     BOUND    8
     5341         01 01BEA           TST2F#C1 EQU      %
     5342   01 01BEA    00000000 A            DATA     0,0,%+2,0
            01 01BEB    00000000 A
            01 01BEC    00001BEE
            01 01BED    00000000 A
     5343   01 01BEE    22C00071 A            LI,RC    X'71'
     5344   01 01BEF    32D0005D A            LW,RD    X'5D'             FIND TRAPPING INSTRUCTION
     5345   01 01BF0    22E0005D A            LI,RE    X'5D'             FIND TRAP ADDRESS
     5346   01 01BF1    6A6020A0              BAL,LINK EROR
     5347                            *
     5348                            *        RETURN HERE IF TRAP OCCURS
     5349                            *
     5350   01 01BF2    6A601D06     TST2F#C2 BAL,LINK CHK:LOOP          CHECK FOR KEYIN
     5351   01 01BF3    68001BDF              B        TRAP4D3-3         LOOP RETURN
     5352   01 01BF4    68001B77              B        TST2F%COM-1       CONTINUATION RETURN
     5353                            ********************************************
     5354                            *        TEST 2FO4
     5355                            *
     5356                            *    TRAP 4D- INT. SEQUENCE WITH INVALID INSTRUCTION
     5357                            *
     5358         01 01BF5           TST2F#D  EQU      %
     5359   01 01BF5    22802F04 A            LI,R8    X'2F04'
     5360   01 01BF6    358003F2              STW,R8   TESTNO
     5361   01 01BF7    32D01C5A              LW,RD    XPSD%4D#D
     5362   01 01BF8    35D0005D A            STW,RD   X'5D'             SET UP PCP INT. FOR TRAP
     5363   01 01BF9    22801C01              LI,R8    TRAP4D4+1
     5364   01 01BFA    66802A8E              AWM,R8   TRAPEPSD
     5365   01 01BFB    22801C0C              LI,R8    TST2F#D2
     5366   01 01BFC    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN
     5367   01 01BFD    22800010 A            LI,R8    X'10'
     5368   01 01BFE    6D801200 A            WD,R8    ARME              ARM & ENABLE PCP INT
     5369   01 01BFF    70202A8A              LC       SETCC
     5370                            *
     5371   01 01C00    6D801700 A   TRAP4D4  WD,R8    TRIG              TRIGGER THE INT.
     5372                            *
     5373   01 01C01    22C00012 A            LI,RC    X'12'             FALL THRU HERE IF NO INT.
     5374   01 01C02    35802A96              STW,R8   LEVARMD
     5375   01 01C03    35802AA6              STW,R8   LEVTRIG
     5376   01 01C04    35802A9E              STW,R8   LEVENBL
     5377   01 01C05    35802AB6              STW,R8   LEVNINH
     5378   01 01C06    6A6020A0              BAL,LINK EROR
     5379   01 01C07    68001C0C              B        TST2F#D2
     5380                            *
     5381                            *        RETURN HERE IF TRAP DOESN'T OCCUR
     5382                            *
     5383                                     BOUND    8
     5384         01 01C08           TST2F#D1 EQU      %
     5385   01 01C08    22C00071 A            LI,RC    X'71'
     5386   01 01C09    32D0005D A            LW,RD    X'5D'             FIND TRAPPING INSTRUCTION
     5387   01 01C0A    22E0005D A            LI,RE    X'5D'             FIND TRAP ADDRESS
     5388   01 01C0B    6A6020A0              BAL,LINK EROR
     5389                            *
     5390                            *        RETURN HERE IF TRAP OCCURS
     5391                            *
     5392   01 01C0C    6A601D06     TST2F#D2 BAL,LINK CHK:LOOP          CHECK FOR KEYIN
     5393   01 01C0D    68001BFD              B        TRAP4D4-3         LOOP RETURN
     5394   01 01C0E    68001B77              B        TST2F%COM-1       CONTINUATION RETURN
     5395                            ********************************************
     5396                            *        TEST 2F05
     5397                            *
     5398                            *    TRAP 4D =  INVALID MMC CONFIG.
     5399                            *
     5400         01 01C0F           TST2F#E  EQU      %
     5401   01 01C0F    22802F05 A            LI,R8    X'2F05'
     5402   01 01C10    358003F2              STW,R8   TESTNO
     5403   01 01C11    22801C1A              LI,R8    TRAP4D5
     5404   01 01C12    66802A8E              AWM,R8   TRAPEPSD
     5405   01 01C13    22801C26              LI,R8    TST2F#E2
     5406   01 01C14    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN
     5407   01 01C15    72602A8A              LB,LINK  SETCC
     5408   01 01C16    4B602C7B              AND,LINK THREE
     5409   01 01C17    328C1C5B              LW,R8    4DMMC,LINK        SELECT AN INVALID MMC
     5410   01 01C18    35801C1A              STW,R8   TRAP4D5
     5411   01 01C19    70202A8A              LC       SETCC
     5412                            *
     5413   01 01C1A    02001C1A     TRAP4D5  NOP      %                 INSTR. FROM 4DMMC TABLE
     5414                            *
     5415   01 01C1B    22C00025 A            LI,RC    X'25'             FALL THRU HERE IF NO INT.
     5416   01 01C1C    6A6020A0              BAL,LINK EROR
     5417   01 01C1D    68001C26              B        TST2F#E2
     5418                            *
     5419                            *        RETURN HERE IF TRAP DOESN'T OCCUR
     5420                            *
     5421                                     BOUND    8
     5422         01 01C1E           TST2F#E1 EQU      %
     5423   01 01C1E    00000000 A            DATA     0,0,%+2,0
            01 01C1F    00000000 A
            01 01C20    00001C22
            01 01C21    00000000 A
     5424   01 01C22    22C00071 A            LI,RC    X'71'
     5425   01 01C23    32D01C1A              LW,RD    TRAP4D5           FIND TRAPPING INSTRUCTION
     5426   01 01C24    22E01C1A              LI,RE    TRAP4D5           FIND TRAP ADDRESS
     5427   01 01C25    6A6020A0              BAL,LINK EROR
     5428                            *
     5429                            *        RETURN HERE IF TRAP OCCURS
     5430                            *
     5431   01 01C26    6A601D06     TST2F#E2 BAL,LINK CHK:LOOP          CHECK FOR KEYIN
     5432   01 01C27    68001C19              B        TRAP4D5-1         LOOP RETURN
     5433   01 01C28    68001B77              B        TST2F%COM-1       CONTINUATION RETURN
     5434                            ********************************************
     5435                            *
     5436                            *        TEST 2F06
     5437                            *
     5438                            *  EXECUTE AN INSTR. WITH AN ILLEGAL REG. SPECIFIED
     5439                            *
     5440                            *
     5441         01 01C29           TST2F#F  EQU      %
     5442   01 01C29    22802F06 A            LI,R8    X'2F06'
     5443   01 01C2A    358003F2              STW,R8   TESTNO
     5444   01 01C2B    22801C39              LI,R8    TRAP4D6
     5445   01 01C2C    66802A8E              AWM,R8   TRAPEPSD
     5446   01 01C2D    22801C46              LI,R8    TST2F#F2
     5447   01 01C2E    35802A94              STW,R8   TRAPRET           SET UP TRAP RETURN
     5448   01 01C2F    72602A8A              LB,LINK  SETCC
     5449   01 01C30    4B602C87              AND,LINK XF
     5450   01 01C31    21600009 A            CI,LINK  9
     5451   01 01C32    69101C34              BL       %+2
     5452   01 01C33    206FFFF9 A            AI,LINK  -7
     5453   01 01C34    328C1C5F              LW,R8    4DBADREG,LINK     SELECT AN INVALID MMC
     5454   01 01C35    35801C39              STW,R8   TRAP4D6
     5455   01 01C36    02200030 A            LCI      3
     5456   01 01C37    2A201C69              LM,2     REGTABLE
     5457   01 01C38    70202A8A              LC       SETCC
     5458                            *
     5459   01 01C39    02001C39     TRAP4D6  NOP      %                 INSTR. FROM 4DBADREG TABLE
     5460                            *
     5461   01 01C3A    22C00025 A            LI,RC    X'25'             FALL THRU HERE IF NO INT.
     5462   01 01C3B    6A6020A0              BAL,LINK EROR
     5463   01 01C3C    68001C46              B        TST2F#F2
     5464                            *
     5465                            *        RETURN HERE IF TRAP DOESN'T OCCUR
     5466                            *
     5467                                     BOUND    8
     5468         01 01C3E           TST2F#F1 EQU      %
     5469   01 01C3E    00000000 A            DATA     0,0,%+2,0
            01 01C3F    00000000 A
            01 01C40    00001C42
            01 01C41    00000000 A
     5470   01 01C42    22C00071 A            LI,RC    X'71'
     5471   01 01C43    32D01C39              LW,RD    TRAP4D6           FIND TRAPPING INSTRUCTION
     5472   01 01C44    22E01C39              LI,RE    TRAP4D6           FIND TRAP ADDRESS
     5473   01 01C45    6A6020A0              BAL,LINK EROR
     5474         01 01C46           TST2F#F2 EQU      %
     5475                            *
     5476                            *        RETURN HERE IF TRAP OCCURS
     5477   01 01C46    31201C69              CW,X2    REGTABLE
     5478   01 01C47    69301C4C              BNE      %+5
     5479   01 01C48    31301C6A              CW,X3    REGTABLE+1
     5480   01 01C49    69301C4C              BNE      %+3
     5481   01 01C4A    31401C6B              CW,X4    REGTABLE+2
     5482   01 01C4B    68301C50              BE       %+5
     5483                            *
     5484                            *  ENTER HERE ON ERROR
     5485                            *
     5486   01 01C4C    22C00093 A            LI,RC    X'93'
     5487   01 01C4D    22D01C69              LI,RD    REGTABLE
     5488   01 01C4E    22F00003 A            LI,RF    3
     5489   01 01C4F    6A6020A0              BAL,LINK EROR
     5490                            *
     5491   01 01C50    6A601D06              BAL,LINK CHK:LOOP          CHECK FOR KEYIN
     5492   01 01C51    68001C35              B        TRAP4D6-4         LOOP RETURN
     5493   01 01C52    68001C6D              B        TST3100           CONTINUATION RETURN
     5494                            *
     5495                            *
     5496                            * EXPECTED TCC       TEST 2F   01 ,2,   3,    4, 5,6
     5497   01 01C53    008000F0 A   4D%TCC GEN,16,8,8,8,8,8,8    X'80',0,X'F0',X'C0',X'20',X'10'
                        C0201000
     5498                            *
     5499                            * EXPECTED TRAPPED STATUS    1, 2,  3,    4,  5,6
     5500   01 01C55    005D005D A   4D%TSF GEN,16,8,8,8,8,16  X'5D',0,X'5D',X'5D',0,0
                        5D000000
     5501                            *
     5502   01 01C57    0F801BA2     XPSD%4D#A XPSD,8  TST2F#A1
     5503   01 01C58    8F001728     XPSD%4D#C1 XPSD,0 *NOMEMORY
     5504   01 01C59    0F001BEA     XPSD%4D#C2 XPSD,0 TST2F#C1
     5505   01 01C5A    68001BF5     XPSD%4D#D  B      TST2F#D
     5506                            *
     5507   01 01C5B    6F200000 A   4DMMC    GEN,8,4,3,17  X'6F',2,0,0  ILLEGAL MMC INSTRUCTIONS
     5508   01 01C5C    6F260000 A            GEN,8,4,3,17  X'6F',2,3,0
     5509   01 01C5D    6F2C0000 A            GEN,8,4,3,17  X'6F',2,6,0
     5510   01 01C5E    6F2E0000 A            GEN,8,4,3,17  X'6F',2,7,0
     5511                            *
     5512         01 01C5F           4DBADREG EQU      %                 TABLE OF INSTR. FOR TEST 2F06
     5513   01 01C5F    10301C5F              GEN,8,4,20  X'10',3,%      ADD DOUBLEWORD
     5514   01 01C60    18301C60              GEN,8,4,20  X'18',3,%      SUB. DOUBLEWORD
     5515   01 01C61    1D301C61              GEN,8,4,20  X'1D',3,%      FLOAT. ADD LONG
     5516   01 01C62    1C301C62              GEN,8,4,20  X'1C',3,%      FLOAT. SUB. LONG
     5517   01 01C63    1F301C63              GEN,8,4,20  X'1F',3,%      FLOAT. MULT. LONG
     5518   01 01C64    1E301C64              GEN,8,4,20  X'1E',3,%      FLOAT. DIV. LONG
     5519   01 01C65    41300000 A            GEN,8,4,20  X'41',3,0      TBS
     5520   01 01C66    40300000 A            GEN,8,4,20  X'40',3,0      TTBS
     5521   01 01C67    6F320000 A            GEN,8,4,3,17  X'6F',3,1,0  MMC
     5522                            *
     5523   01 01C68    00000000 A   REG%BLOCKS DATA   0
     5524   01 01C69    00000064 A   REGTABLE DATA     100,100,100
            01 01C6A    00000064 A
            01 01C6B    00000064 A
     5525                            *
     5526   01 01C6C    0240C1C4 A   MAX%REGS%  P      2,1,,ABSVAL(BA(MAX%REGS%EXP))
     5527                            *
     5528                            *
     5529                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        RANDOM PATTERN INTERRUPT TEST                     PAGE   45
A    5531                            *
     5532                            **********************************************************************
     5533                            *                                                                    *
     5534                            *    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       *
     5535                            **********************************************************************
     5536                            *                                                                    *
     5537                            *                                                                    *
     5538                            *  THIS TEST ARMS,ENABLES, AND TRIGGERS A SET OF INTERRUPT LEVELS    *
     5539                            *          BASED ON A RANDOM PATTERN OF SELECTED LEVELS.             *
     5540                            *                                                                    *
     5541                            *                                                                    *
     5542                            *                                                                    *
     5543                            *  PATTERN NUMBERS ARE SEQUENTIAL   1 THROUGH FFFFFFFF (HEX)         *
     5544                            *                                                                    *
     5545                            **********************************************************************
     5546                            * ENTRY FROM PREVIOUS TEST
     5547                            **********************************************************************
     5548   01 01C6D                 TST3100  RES      0
     5549   01 01C6D    22803101 A            LI,R8    X'3101'           LOAD TEST NUMBER
     5550   01 01C6E    358003F2              STW,R8   TESTNO
     5551   01 01C6F    22800000 A            LI,R8    0                 INITIALIZE
     5552   01 01C70    358003F3              STW,R8   PATTNO                  PATTERN NUMBER
     5553   01 01C71    68001C76              B        TST31#A
     5554                            **********************************************************************
     5555                            * ENTRY FROM RESTART OPTION
     5556                            **********************************************************************
     5557                            *
     5558   01 01C72    328003F2     GOTST31 LW,R8     TESTNO
     5559   01 01C73    21803101 A            CI,R8    X'3101'
     5560   01 01C74    693025D8              BNE      INVALTST#         ERROR IF NOT TEST 3101
     5561   01 01C75    33F003F3              MTW,-1   PATTNO
     5562   01 01C76    6A602243     TST31#A  BAL,LINK GENRPAT           GENERATE PATTERNS
     5563   01 01C77    32602A96              LW,LINK  LEVARMD
     5564   01 01C78    2560006E A            SLS,LINK -18
     5565   01 01C79    4B602C7F              AND,LINK SEVEN
     5566   01 01C7A    35602ACA              STW,LINK GRPINH            SELECT RANDOM INHIBIT PATTERN
     5567   01 01C7B    6A60262C              BAL,LINK  PAT@EBC
     5568   01 01C7C    6A6026CF              BAL,LINK READEXP           FIND EXPECTED INTERRUPTS
     5569   01 01C7D    6A601168              BAL,LINK JAMXPSDS          INITIALIZE FIRST PAGE OF MEMORY
     5570   01 01C7E    22801C8E              LI,R8    TST31#C           LOAD EXPECTED INT. ADDRESS
     5571   01 01C7F    35802A90              STW,R8   INTEPSD                   *
     5572   01 01C80    32802ACA     TST31#B  LW,R8    GRPINH
     5573   01 01C81    75802A91              STB,R8   INTEPSD+1         SET EXPECTED INHIBIT FLAGS
     5574   01 01C82    6A6022B8              BAL,LINK INITHIST          INITIALIZE HISTORY TABLE
     5575   01 01C83    6A6022CF              BAL,LINK INITPSD           INITIALIZE PSD TABLE
     5576   01 01C84    6A60274D              BAL,LINK READSEQ           FIND EXPECTED INT. SEQUENCE
     5577   01 01C85    6A602881              BAL,LINK SETHIGH           SET HIGH PRI. INT. TO ACTIVE
     5578   01 01C86    6A6028D6              BAL,LINK SETPATT           ARM,ENABLE, AND TRIGGER AS PER
     5579                            *                                   PATTERNS
     5580   01 01C87    22801C8E              LI,R8    TST31#C
     5581   01 01C88    35802A4E              STW,R8   CURPSD            SET UP PSD INSTRUCTION ADDRESS
     5582   01 01C89    22800004 A            LI,R8    4
     5583   01 01C8A    35802A95              STW,R8   WAITCNT           SET VALUE OF DELAY
     5584   01 01C8B    02200000 A            LCI      0                 SET CONDITION CODES FOR 16 REG.
     5585   01 01C8C    2A002C5E              LM,0     REGXPSDS          JAM XPSD'S IN REGISTERS
     5586   01 01C8D    0E202A4E              LPSD,2   CURPSD            RELEASE HIGH PRIORITY INT.
     5587                            **********************************************************************
     5588                            * ALL EXPECTED INTERRUPTS SHOULD OCCUR DURING THE FOLLOWING DELAY
     5589                            **********************************************************************
     5590   01 01C8E    33F02A95     TST31#C  MTW,-1   WAITCNT           DELAY FOR INTERRUPTS
     5591   01 01C8F    69201C8E              BGZ      %-1
     5592                            **********************************************************************
     5593                            * DROP THRU TO HERE AFTER NO MORE INTERRUPTS
     5594                            **********************************************************************
     5595   01 01C90    6A602881              BAL,LINK SETHIGH           INHIBIT FURTHER INTERRUPTS
     5596   01 01C91    6A601CDF              BAL,LINK CHKALL            CHECK IF ALL INTERRUPTS OCCURRED
     5597   01 01C92    6A601DCD              BAL,LINK CHKSEQ            CHECK IF ALL INTS. WERE IN SEQ.
     5598   01 01C93    6A601D06              BAL,LINK CHK:LOOP          CHECK FOR LOOPS OR USER KEYIN
     5599   01 01C94    68001C75              B        TST31#A-1         LOOP RETURN
     5600   01 01C95    68001C76              B        TST31#A           CONTINUE RETURN
     5601                            *
1 C00   22:37 JUN 20,'83                         TEST END                                         PAGE   46
A    5603                            *
     5604                            *
     5605                            *
     5606                            *
     5607   01 01C96    32802A56     TESTEND  LW,R8    ERORCNT           CHECK ERRORS THIS PASS
     5608   01 01C97    69301C99              BNEZ     %+2               BRANCH IF ERRORS
     5609   01 01C98    33102A57              MTW,1    ERRORFREE
     5610                            *
     5611   01 01C99    22800000 A            LI,R8    0
     5612   01 01C9A    32902A66              LW,R9    PASSCNT           FIND IF AUTO STATUS REPORT
     5613   01 01C9B    368023FA              DW,R8    SICOUNT               IS DUE
     5614   01 01C9C    21800000 A            CI,R8    0
     5615   01 01C9D    69301CA3              BNEZ     TESTEND#A         BRANCH IF NOT EVEN MULTIPLE
     5616   01 01C9E    32801CA5              LW,R8    BYPASS%SR
     5617   01 01C9F    68301CA1              BEZ      %+2               BRANCH IF CAME FROM LOOP CHECK
     5618   01 01CA0    33102806              MTW,1    AUTOSTATUS
     5619   01 01CA1    6A6027D1              BAL,LINK STATMSGS          DISPLAY STATUS
     5620   01 01CA2    33101CA5              MTW,1    BYPASS%SR
     5621   01 01CA3    6A6028B9     TESTEND#A BAL,LINK  SETMARGIN       SET MARGIN IF NOT FIXED
     5622   01 01CA4    6800254D              B        REPEAT
     5623                            *
     5624   01 01CA5    00000001 A   BYPASS%SR DATA    1                 FLAG - SET TO ZERO IN CHK:LOOP
     5625                            *
     5626                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        ABORT SUBROUTINE (ABORT)                          PAGE   47
A    5628                            *
     5629                            *  THIS SUBROUTINE IS ENTERED ANYTIME THE PROGRAM ENCOUNTERS
     5630                            *        AN UNRECOVERABLE CONDITION.   AN ERROR MESSAGE IS
     5631                            *        PRINTED OUT NOTING THE ADDRESS AT WHICH THE ABORT CONDITION
     5632                            *        OCCURRED AND THE PROGRAM CONTROL IS RETURNED TO THE USER
     5633                            *        ( IDLE MODE ).
     5634                            *
     5635   01 01CA6    02200000 A   ABORT    LCI      0
     5636   01 01CA7    2B002B0C              STM,0    SAVE#4
     5637   01 01CA8    6A601DEB              SEND     ABORTMSG1
            01 01CA9    0000C1AA A
     5638   01 01CAA    32C02B12              LW,RC    SAVE#4+LINK       FIND ERROR LOCATION
     5639   01 01CAB    6A602900              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     5640   01 01CAC    35603EFC              STW,LINK  OUTBUF+8
     5641   01 01CAD    6A602809              #TYPE    OUTBUF
            01 01CAE    EA6003CC
            01 01CAF    0000FBD0 A
            01 01CB0    6A602832
     5642   01 01CB1    6A601DEB              SEND     ABORTMSG2
            01 01CB2    0000C1B3 A
     5643   01 01CB3    22C02B0C              LI,RC    SAVE#4
     5644   01 01CB4    EA6003C3              #HTECON  RC
            01 01CB5    0000000C A
     5645   01 01CB6    328C0001 A            LW,R8    1,LINK
     5646   01 01CB7    35803EF9              STW,R8   OUTBUF+5
     5647   01 01CB8    6A602809              BAL,LINK SAVE%CLKS         SAVE CURRENT ENVIRONMENT
     5648   01 01CB9    EA6003CC              BAL,LINK *#TYPER%
     5649   01 01CBA    0000FBD0              DATA     BA(OUTBUF)
     5650   01 01CBB    8F9003CA              XPSD,9   *#RUNADDR%        TRANSFER TO GUIDE 'IDLE' STATE
     5651   01 01CBC    68001CBB              B        %-1
     5653                                     BOUND    8
1 C00   22:37 JUN 20,'83    (ARMALL) AND (DISARMALL)                                              PAGE   48
A    5655                            *
     5656                            *
     5657                            *   ARM AND ENABLE  ALL INTERRUPTS ROUTINE
     5658                            ******************************************
     5659                            *
     5660         01 01CBE           ARMALL   EQU      %
     5661   01 01CBE    02200020 A            LCI      2
     5662   01 01CBF    2B702ACC              STM,X7   SAVE              SAVE REGISTERS
     5663   01 01CC0    22400002 A            LI,X4    2
     5664         01 01CC1           ARMALL#A EQU      %
     5665   01 01CC1    F02003D8              LC       *#COCSTATE%
     5666   01 01CC2    68C01CC7              BCR,12   %+5               BRANCH IF NO REMOTE TERM.
     5667   01 01CC3    314003F8              CW,X4    COCGRP
     5668   01 01CC4    69301CC7              BNE      %+3               BRANCH IF COC NOT IN THIS GRP.
     5669   01 01CC5    327003F9              LW,X7    COCMASK           DONT ARM COC LEVELS
     5670   01 01CC6    68001CC8              B        %+2
     5671                            *
     5672   01 01CC7    227FFFFF A            LI,X7    -1
     5673   01 01CC8    6D781200 A            WD,X7    ARME,X4           ARM AND ENABLE ALL OF ONE GROUP
     5674   01 01CC9    2140000F A            CI,X4    15
     5675   01 01CCA    68101CCC              BGE      %+2
     5676   01 01CCB    65401CC1              BIR,X4   ARMALL#A          BRANCH IF ALL EXT. NOT DONE
     5677   01 01CCC    6D701100 A            WD,X7    DISARM
     5678   01 01CCD    22700FFC A            LI,X7    X'FFC'
     5679   01 01CCE    6D701200 A            WD,X7    ARME              ARM & ENBL GRP ZERO (EXCEPT CNTRS)
     5680   01 01CCF    02200020 A            LCI      2
     5681   01 01CD0    12702ACC              LD,X7    SAVE              RESTORE REGISTERS
     5682   01 01CD1    E8000006 A            B        *LINK             RETURN
     5683                            *
     5684                            *
     5685                            *   DISABLE ALL INTERRUPTS ROUTINE
     5686                            *************************************
     5687                            *
     5688   01 01CD2                 DISARMALL  RES    0
     5689   01 01CD2    02200000 A            LCI      0
     5690   01 01CD3    2B702ACC              STM,X7   SAVE              SAVE REGISTERS
     5691   01 01CD4    2270FFFF A            LI,X7    X'FFFF'
     5692   01 01CD5    22400002 A            LI,X4    2
     5693   01 01CD6    6D781100 A            WD,X7    DISARM,X4         DISARM THE EXTERNAL GROUPS
     5694   01 01CD7    2140000F A            CI,X4    15
     5695   01 01CD8    68301CDB              BE       %+3               EXIT WHEN ALL DISARMED
     5696   01 01CD9    20400001 A            AI,X4    1
     5697   01 01CDA    68001CD6              B        %-4               LOOP IF NOT FINISHED
     5698   01 01CDB    6D701100 A            WD,X7    DISARM            DISARM GROUP ZERO
     5699   01 01CDC    02200000 A            LCI      0
     5700   01 01CDD    2A702ACC              LM,X7    SAVE              RESTORE REGISTERS
     5701   01 01CDE    E8000006 A            B        *LINK
     5702                            *
     5703                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        CHECK ALL SUBROUTINE (CHKALL)                     PAGE   49
A    5705                            *
     5706                            *    C H E C K    F O R    A L L    I N T E R R U P T S
     5707                            ************************************************************
     5708                            *
     5709                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     5710                            *
     5711                            * OUTPUT AN ERROR MESSAGE FOR EACH INTERRUPT EXPECTED THAT
     5712                            *        DID NOT OCCUR
     5713                            *
     5714   01 01CDF    02200000 A   CHKALL   LCI      0                 SAVE REGISTERS
     5715   01 01CE0    2B002AFC              STM,0    SAVE#3
     5716   01 01CE1    2210F462              LI,X1    BA(HISTORY)+2     DISPLACEMENT INDEX TO BYTE 2
     5717   01 01CE2    2270000E A            LI,X7    14                SET LOOP INDEX (LEVEL)
     5718   01 01CE3    2240000E A            LI,X4    14                SET LOOP INDEX (GROUP)
     5719   01 01CE4    22200000 A            LI,GRP   0                 SET GROUP INDEX
     5720   01 01CE5    22300000 A            LI,LVL   0                 SET LEVEL INDEX
     5721   01 01CE6    52842AAE     CHKAL#A  LH,R8    LEVEXP,GRP        WAS INTERRUPT EXPECTED
     5722   01 01CE7    32962B36              LW,R9    LEVMASK,LVL       FIND LEVEL MASK
     5723   01 01CE8    4B800009 A            AND,R8   9
     5724   01 01CE9    68301CF7              BEZ      CHKAL#B           BRANCH IF NO
     5725   01 01CEA    72920000 A            LB,R9    0,X1              DID ANY INTS. OCCUR
     5726   01 01CEB    69301CF7              BNEZ     CHKAL#B           BRANCH IF YES
     5727   01 01CEC    22C00012 A            LI,RC    X'12'             SET ERROR TYPE 12
     5728                            *                                   FIND  ERROR LOCATION
     5729   01 01CED    20100005 A            AI,X1    5
     5730   01 01CEE    72920000 A            LB,R9    0,X1                 FIND  LEAST. SIG. CHARS.
     5731   01 01CEF    35902A62              STW,R9   LOCATION             SAVE THEM
     5732   01 01CF0    201FFFFF A            AI,X1    -1
     5733   01 01CF1    72920000 A            LB,R9    0,X1                 FIND MOST SIG. CHAR.
     5734   01 01CF2    68301CF5              BEZ      %+3                  BRANCH IF ZERO
     5735   01 01CF3    25900008 A            SLS,R9   8                    ALIGN
     5736   01 01CF4    66902A62              AWM,R9   LOCATION             COMPLETE LOCATION VALUE
     5737   01 01CF5    6A6020A0              BAL,LINK   EROR            DISPLAY ERROR
     5738                            *
     5739   01 01CF6    201FFFFC A            AI,X1    -4
     5740   01 01CF7    20100008 A   CHKAL#B  AI,X1    8                 INDEX TO NEXT BYTE 2
     5741   01 01CF8    20300001 A            AI,LVL   1                 INCREMENT LEVEL COUNT
     5742   01 01CF9    64701CE6              BDR,X7   CHKAL#A           LOOP IF NOT LAST LEVEL IN GROUP
     5743   01 01CFA    21200000 A            CI,GRP   0
     5744   01 01CFB    69301CFD              BNE      %+2
     5745   01 01CFC    20200001 A            AI,GRP   1
     5746   01 01CFD    20200001 A            AI,GRP   1
     5747   01 01CFE    22700010 A            LI,X7    16                SET INDEX FOR 16 LEVELS
     5748   01 01CFF    64401CE5              BDR,X4   CHKAL#A-1         BRANCH IF GROUPS NOT ALL CHECKED
     5749                            *
     5750                            *
     5751   01 01D00    02200000 A   CHKAL#X  LCI      0                 RESTORE REGISTERS
     5752   01 01D01    2A002AFC              LM,0     SAVE#3
     5753   01 01D02    E8000006 A            B        *LINK             EXIT
     5754                            *
     5755                            *
     5756                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        CHECK FOR LOOPS ROUTINE (CHK:LOOP)                PAGE   50
A    5758                            *
     5759                            **********************************************************************
     5760                            *  C H E C K    L O O P S                                            *
     5761                            **********************************************************************
     5762                            *                                                                    *
     5763                            *  ENTER WITH THE RETURN ADDRESS IN THE LINK REGISTER                *
     5764                            *                                                                    *
     5765                            *  THE PURPOSE OF THIS ROUTINE IS:                                   *
     5766                            *        1. CHECKS FOR A USER KEYIN OF ONE CHARACTER                 *
     5767                            *                 - EXITS TO GUIDE CONTROL IF YES-                   *
     5768                            *        2. CHECKS FOR SHORT LOOP                                    *
     5769                            *                 - EXITS IMEDIATELY TO LINK ADDRESS IF YES -        *
     5770                            *        3. CHECKS FOR A STATUS REPORT REQUEST (KEYIN OF &)          *
     5771                            *                 - DISPLAYS CURRENT STATUS IF YES -                 *
     5772                            *        4. CHECKS FOR LONG LOOP                                     *
     5773                            *                 - EXITS TO LINK ADDRESS IF YES -                   *
     5774                            *        5. CHECKS FOR COMPLETION OF REENTRY LOOPS (PARAMETER LINE T)*
     5775                            *                 - EXITS TO LINK ADDRESS IF NOT COMPLETE -          *
     5776                            *                 - DISPLAYS STATUS AND EXITS TO THE IDLE STATE      *
     5777                            *                        IF THEY ARE COMPLETE -                      *
     5778                            *        6. EXITS TO LINK ADDRESS +1 IF NO LOOPS WERE REQUESTED      *
     5779                            *                                                                    *
     5780                            **********************************************************************
     5781                            *
     5782   01 01D03                          RES      3
     5783   01 01D06    35601D05     CHK:LOOP STW,LINK %-1               SAVE RETURN ADDRESS
     5784   01 01D07    35801D04              STW,R8   CHK:LOOP-2
     5785   01 01D08    35901D03              STW,R9   CHK:LOOP-3
     5786   01 01D09    6A602809              BAL,LINK SAVE%CLKS
     5787   01 01D0A    8F0003AB              XPSD,0   *#SAMPLE          CHECK FOR USER KEYIN
     5788   01 01D0B    6A602832              BAL,LINK RESTORE%CLKS
     5789                            *
     5790   01 01D0C    70200392     CHK:LP#A LC       #SENSE            CHECK IF SHORT LOOP
     5791   01 01D0D    68C01D0F              BCR,12   CHK:LP#C             BRANCH IF NO
     5792   01 01D0E    68001D30              B        CHK:LP#F             LOOP ON LAST TEST
     5793                            *
     5794   01 01D0F    70200392     CHK:LP#C LC       #SENSE            CHECK IF LONG LOOP
     5795   01 01D10    69401D30              BCS,4    CHK:LP#F             LOOP ON LAST TEST
     5796                            *
     5797   01 01D11    32802A47     CHK:LP#D LW,R8    BY%RE%CHK
     5798   01 01D12    69301D34              BNEZ     CHK:LP#G          BYPASS RE-ENTRY CHECK IF FLAG
     5799                            *                                      SET  BY ERROR ROUTINE
     5800                            *  CHECK FOR END OF TEST
     5801                            *
     5802                            *
     5803   01 01D13    32802A56     CHK:LP#E LW,R8    ERORCNT           FIND CURRENT ERRORS/PASS
     5804   01 01D14    35802A5D              STW,R8   LASTERR%P
     5805                            *
     5806   01 01D15    32802A58              LW,R8    ERORTOTAL         FIND CURRENT ERROR TOTAL
     5807   01 01D16    35802A5E              STW,R8   LASTERR%T
     5808                            *
     5809   01 01D17    32802A66              LW,R8    PASSCNT           FIND PASS #
     5810   01 01D18    35802A5F              STW,R8   LASTPASS
     5811                            *
     5812   01 01D19    328003F2              LW,R8    TESTNO            FIND CURRENT TEST NUMBER
     5813   01 01D1A    329003F3              LW,R9    PATTNO            FIND CURRENT SUBTEST #
     5814   01 01D1B    15802A60              STD,R8   LASTTEST
     5815                            *
     5816   01 01D1C    31802617              CW,R8    PARAMT%HEX+2      CHECK IF LAST TEST COMPLETE
     5817   01 01D1D    69101D2F              BL       CHK:LP#F-1        BRANCH IF NO
     5818   01 01D1E    69201D22              BG       %+4               BRANCH IF PAST
     5819                            *
     5820   01 01D1F    31902618              CW,R9    PARAMT%HEX+3      CHECK IF LAST SUBTEST COMPLETED
     5821   01 01D20    69101D2F              BL       CHK:LP#F-1        BRANCH IF NO
     5822                            *
     5823   01 01D21    32802619              LW,R8    PARAMT%HEX+4      WERE ANY LOOPS REQUESTED
     5824   01 01D22    68301C96              BEZ      TESTEND           GO TO NEXT PASS IF NO
     5825   01 01D23    33F02A63              MTW,-1   LOOPS             DECREMENT LOOP COUNT
     5826   01 01D24    69201C96              BGZ      TESTEND           GO TO NEXT PASS IF NOT FINISHED
     5827   01 01D25    35802A63              STW,R8   LOOPS             RESET LOOP COUNTER
     5828                            *
     5829   01 01D26    6A6027D1              BAL,LINK STATMSGS          SAY LOOPS FINISHED
     5830   01 01D27    6A602809              #TYPE    WAITING1
            01 01D28    EA6003CC
            01 01D29    0000B3A4 A
            01 01D2A    6A602832
     5831   01 01D2B    22800000 A            LI,R8    0                 SET UP TO BYPASS AUTO STATUS MSG
     5832   01 01D2C    35801CA5              STW,R8   BYPASS%SR
     5833   01 01D2D    8F9003CA              XPSD,9   *#RUNADDR%        TRANSFER TO GUIDE 'IDLE' STATE
     5834   01 01D2E    68001C96              B        TESTEND           BRANCH ON RETURN FROM IDLE
     5835                            *
     5836   01 01D2F    33101D05              MTW,1    CHK:LOOP-1
     5837   01 01D30    328023F8     CHK:LP#F LW,R8    PLINE#J+4         FIND SI
     5838   01 01D31    31802CBC              CW,R8    EBC%3ZEROS
     5839   01 01D32    69301D34              BNE      %+2               BRANCH IF NOT ZERO
     5840   01 01D33    6A6027D1              BAL,LINK   STATMSGS
     5841   01 01D34    22800000 A   CHK:LP#G LI,R8    0
     5842   01 01D35    35802A47              STW,R8   BY%RE%CHK         RESET FLAG
     5843   01 01D36    32801D04              LW,R8    CHK:LOOP-2
     5844   01 01D37    32901D03              LW,R9    CHK:LOOP-3
     5845   01 01D38    E8001D05              B        *CHK:LOOP-1
     5846                            *
     5847                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        CHECK PRIORITY/IMPLEMENTATION MATCH (CHK:PMI)     PAGE   51
A    5849                            *
     5850                            *
     5851                            ***************************************************
     5852                            *  CHECK PRIORITY VS IMPLEMENTATION PARAMETERS
     5853                            ***************************************************
     5854                            *
     5855                            *  COMPARES PRIORITY AND IMPLEMENTATION PARAMETER LINES
     5856                            *    AND OUTPUTS ERROR MESSAGE IF THEY DISAGREE
     5857                            *
     5858                            *
     5859                            *  ENTER WITH GRP REGISTER = 0 FROM P PARAMETER LINE
     5860                            *                          = 1 FROM I,0-5 PARAMETER LINES
     5861                            *                          = 2 FROM I,6-A PARAMETER LINES
     5862                            *                          = 3 FROM I,B-F PARAMETER LINES
     5863                            ***************************************************
     5864   01 01D39    02200000 A   CHK:PMI  LCI      0                 SAVE REGISTERS
     5865   01 01D3A    2B002AEC              STM,0    SAVE#2
     5866   01 01D3B    21200000 A            CI,GRP   0                 IS ENTRY FROM PARAM P
     5867   01 01D3C    68301D42              BE       %+6               BRANCH IF YES
     5868   01 01D3D    22400000 A            LI,X4    0                 SET INDEX FOR CHECKING LINE I
     5869   01 01D3E    68041D3E              B        %,GRP
     5870   01 01D3F    68001D53              B        C:PMI#A           CHECK GROUPS 0-5
     5871   01 01D40    68001D60              B        C:PMI#C                        6-A
     5872   01 01D41    68001D62              B        C:PMI#D                        B-F
     5873                            *
     5874   01 01D42    22400007 A            LI,X4    7                 SET INDEX FOR CHECK OF LINE P
     5875   01 01D43    2250000E A            LI,X5    14                SET NO. OF GROUPS TO CHECK
     5876   01 01D44    68001D54              B        C:PMI#B
     5877                            *
     5878   01 01D45    32802A69     CHK:PMI%TABLE  LW,R8  PLINEIN+2     THESE 7 INSTRUCTIONS ARE FOR
     5879   01 01D46    3280253D              LW,R8    PLINE#P+1           CHECKING I LINE INPUTS
     5880   01 01D47    3280253E              LW,R8    PLINE#P+2           AGAINST EXISTING P LINE FIELDS
     5881   01 01D48    32822A67              LW,R8    PLINEIN,X1
     5882   01 01D49    328E253C              LW,R8    PLINE#P,X7
     5883   01 01D4A    31802CBD              CW,R8    EBC%HWZ
     5884   01 01D4B    31802CBE              CW,R8    EBCZEROS
     5885                            *
     5886   01 01D4C    3280238A              LW,R8    PLINE#I0+2        THESE 7 INSTRUCTIINS ARE FOR
     5887   01 01D4D    32802A68              LW,R8    PLINEIN+1            CHECKING P LINE INPUTS AGAINST
     5888   01 01D4E    32802A69              LW,R8    PLINEIN+2            EXISTING I LINE FIELDS
     5889   01 01D4F    32822388              LW,R8    PLINE#I0,X1
     5890   01 01D50    328E2A67              LW,R8    PLINEIN,X7
     5891   01 01D51    31802CBD              CW,R8    EBC%HWZ
     5892   01 01D52    31802CBE              CW,R8    EBCZEROS
     5893                            *
     5894   01 01D53    22500004 A   C:PMI#A  LI,X5    4                 CHECK 4 FIELDS AFTER GROUP 0
     5895   01 01D54    22100004 A   C:PMI#B  LI,X1    4                 GROUP 2 IMPLEMENTATION INDEX
     5896   01 01D55    22700003 A            LI,X7    3                 GROUP 2 PRIORITY INDEX
     5897   01 01D56    67081D45              EXU      CHK:PMI%TABLE,X4  FIND GROUP ZERO IMPLEMENTATION
     5898   01 01D57    67081D4B              EXU      CHK:PMI%TABLE+6,X4   IS IT ZERO
     5899   01 01D58    68301D78              BE       C:PMI#ER          ERROR IF NO
     5900   01 01D59    67081D46              EXU      CHK:PMI%TABLE+1,X4  FIND CZ GROUP PRIORITY
     5901   01 01D5A    67081D4A              EXU      CHK:PMI%TABLE+5,X4   IS IT ZERO
     5902   01 01D5B    68301D78              BE       C:PMI#ER          ERROR IF YES
     5903   01 01D5C    67081D47              EXU      CHK:PMI%TABLE+2,X4  FIND I/O GROUP PRIORITY
     5904   01 01D5D    67081D4A              EXU      CHK:PMI%TABLE+5,X4   IS IT ZERO
     5905   01 01D5E    68301D78              BE       C:PMI#ER          ERROR IF YES
     5906   01 01D5F    68001D65              B        C:PMI#E
     5907                            *
     5908   01 01D60    22700007 A   C:PMI#C  LI,X7    7                 GROUP 6 PRIORITY
     5909   01 01D61    68001D63              B        %+2
     5910   01 01D62    2270000C A   C:PMI#D  LI,X7    12                GROUP B PRIORITY
     5911   01 01D63    22100002 A            LI,X1    2                 I LINE FIELD 1
     5912   01 01D64    22500005 A            LI,X5    5                 5 FIELDS TO CHECK
     5913   01 01D65    67081D48     C:PMI#E  EXU      CHK:PMI%TABLE+3,X4  FIND IMPLEMENTATION
     5914   01 01D66    67081D4B              EXU      CHK:PMI%TABLE+6,X4   IS IT ZERO
     5915   01 01D67    68301D6C              BE       C:PMI#F           BRANCH IF YES
     5916   01 01D68    67081D49              EXU      CHK:PMI%TABLE+4,X4   NO, FIND PRIORITY
     5917   01 01D69    67081D4A              EXU      CHK:PMI%TABLE+5,X4   IS IT ZERO
     5918   01 01D6A    68301D78              BE       C:PMI#ER          ERROR IF YES
     5919   01 01D6B    68001D6F              B        C:PMI#G
     5920                            *
     5921   01 01D6C    67081D49     C:PMI#F  EXU      CHK:PMI%TABLE+4,X4 CHECK FOR MATCH ON PRIORITY
     5922   01 01D6D    67081D4A              EXU      CHK:PMI%TABLE+5,X4   IS IT ZERO
     5923   01 01D6E    69301D78              BNE      C:PMI#ER          ERROR CASE IF NO
     5924   01 01D6F    2150000B A   C:PMI#G  CI,X5    11
     5925   01 01D70    68301D73              BE       %+3               SET UP FOR CHECK OF NEXT GROUP
     5926   01 01D71    21500006 A            CI,X5    6
     5927   01 01D72    69301D74              BNE      %+2
     5928   01 01D73    20100001 A            AI,X1    1                      ADD EXTRA COUNT IF GOING TO
     5929   01 01D74    20100002 A            AI,X1    2                         NEXT I LINE
     5930   01 01D75    20700001 A            AI,X7    1
     5931   01 01D76    64501D65              BDR,X5   C:PMI#E           LOOP IF NOT FINISHED
     5932   01 01D77    68001D80              B        C:PMI#X
     5933                            *
     5934   01 01D78    6A602809     C:PMI#ER #TYPE,1,1 INVAL#M          TYPE  ERROR MESSAGES
            01 01D79    EA6003CC
            01 01D7A    0160C333 A
            01 01D7B    6A602832
     5935   01 01D7C    6A602809              #TYPE,1,1 INVAL#IP
            01 01D7D    EA6003CC
            01 01D7E    0160C5D6 A
            01 01D7F    6A602832
     5936   01 01D80    02200000 A   C:PMI#X  LCI      0                 RESTORE REGISTERS
     5937   01 01D81    2A002AEC              LM,0     SAVE#2
     5938   01 01D82    E8000006 A            B        *LINK             EXIT
     5939                            *
     5940                                     TITLE    ;
1 C00   22:37 JUN 20,'83                       CHECK PDF FLAG ROUTINE                             PAGE   52
A    5942                            *
     5943                            *
     5944                            *  CHECK PDF FOR PROPER SETTING
     5945                            **********************************
     5946                            *
     5947                            *  ENTER WITH RETURN ADDRESS IN 'LINK'
     5948                            *
     5949                            *  SNAP NPDF REGISTER AND OUTPUT ERROR MESSAGE IF IN WRONG STATE
     5950                            *
     5951                            *
     5952         01 01D83           CHK%PDF  EQU      %
     5953   01 01D83    02200000 A            LCI      0
     5954   01 01D84    2B002B1C              STM,0    SAVE#5
     5955                            *
     5956   01 01D85    2160162C              CI,LINK  TRAPHAND
     5957   01 01D86    69101D89              BL       %+3               BRANCH IF BAL FROM INT. HANDLER
     5958   01 01D87    32802A93              LW,R8    TRAPLOC
     5959   01 01D88    35802A62              STW,R8   LOCATION
     5960                            *
     5961   01 01D89    32802A62              LW,R8    LOCATION          FIND WHICH TRAP IT WAS
     5962   01 01D8A    21800046 A            CI,R8    X'46'
     5963   01 01D8B    68301D99              BE       CHK%PDF%ON        BRANCH IF WATCH DOG TIMER
     5964   01 01D8C    2180004C A            CI,R8    X'4C'
     5965   01 01D8D    68301D99              BE       CHK%PDF%ON        BRANCH IF PARITY ERROR
     5966   01 01D8E    2180004D A            CI,R8    X'4D'
     5967   01 01D8F    68301D99              BE       CHK%PDF%ON        BRANCH IF INST. EXCEPTION
     5968                            *
     5969   01 01D90    6A601DB0              BAL,LINK READ%NPDF         LOOK FOR PDF SET
     5970   01 01D91    69201DAD              BCS,2    CHK%PDF#X         BRANCH IF PDF NOT SET
     5971                            *
     5972   01 01D92    0E101D94              LPSD,1   CLEARPDF
     5973                                     BOUND    8
     5974   01 01D94    00001D96     CLEARPDF DATA     %+2,X'7000000'
            01 01D95    07000000 A
     5975                            *
     5976                            *
     5977   01 01D96    22C000E4 A            LI,RC    X'E4'
     5978   01 01D97    6A6020A0              BAL,LINK EROR
     5979   01 01D98    68001DA6              B        CHK%CLR
     5980                            *
     5981         01 01D99           CHK%PDF%ON  EQU   %
     5982   01 01D99    6A601DB0              BAL,LINK READ%NPDF         LOOK FOR PDF SET
     5983   01 01D9A    69201DAB              BCS,2    CHK%PDF#X-2       ERROR IF PDF NOT SET
     5984   01 01D9B    0E301D9C              LPSD,3   DONTCLEAR         TRY TO CLEAR WITH LPSD,3
     5985                                     BOUND    8
     5986         01 01D9C           DONTCLEAR  EQU    %
     5987   01 01D9C    00001D9E              DATA     %+2,X'7000000'
            01 01D9D    07000000 A
     5988   01 01D9E    6A601DB0              BAL,LINK READ%NPDF         DID IT RESET PDF
     5989   01 01D9F    68201DA3              BCR,2    %+4               BRANCH IF NO
     5990                            *
     5991                            *   ERROR IF PDF WAS RESET
     5992                            *
     5993   01 01DA0    22C000E7 A            LI,RC    X'E7'
     5994   01 01DA1    6A6020A0              BAL,LINK  EROR
     5995   01 01DA2    68001DAD              B        CHK%PDF#X
     5996                            *
     5997                            ********************************************************
     5998                            *
     5999   01 01DA3    0E101DA4              LPSD,1   CLRPDF
     6000                                     BOUND    8
     6001   01 01DA4    00001DA6     CLRPDF   DATA     %+2,X'7000000'
            01 01DA5    07000000 A
     6002         01 01DA6           CHK%CLR  EQU      %
     6003   01 01DA6    6A601DB0              BAL,LINK  READ%NPDF        DID THE LPSD,1 CLEAR PDF
     6004   01 01DA7    69201DAD              BCS,2     CHK%PDF#X        BRANCH IF YES
     6005                            *
     6006   01 01DA8    22C000E6 A            LI,RC    X'E6'
     6007   01 01DA9    6A6020A0              BAL,LINK  EROR
     6008   01 01DAA    68001DAD              B        CHK%PDF#X
     6009                            *
     6010                            *
     6011                            *
     6012                            *
     6013   01 01DAB    22C000E5 A            LI,RC    X'E5'
     6014   01 01DAC    6A6020A0              BAL,LINK  EROR
     6015                            *
     6016   01 01DAD    02200000 A   CHK%PDF#X  LCI    0
     6017   01 01DAE    2A002B1C              LM,0     SAVE#5
     6018   01 01DAF    E8000006 A            B        *LINK             EXIT
     6019                            *
     6020         01 01DB0           READ%NPDF  EQU    %
     6021   01 01DB0    32A01DB8              LW,LOG   SNAP%CW
     6022   01 01DB1    6DA00049 A            WD,LOG   X'49'             SNAP THE NPDF FLAG
     6023   01 01DB2    02000000 A            NOP
     6024   01 01DB3    02000000 A            NOP
     6025   01 01DB4    02000000 A            NOP
     6026   01 01DB5    6CA00049 A            RD,LOG   X'49'             READ THE SNAP
     6027   01 01DB6    4BA02C93              AND,LOG  X4000             LOOK AT BIT 17
     6028                            *
     6029                            *   IF CC3 IS SET, PDF IS RESET
     6030                            *
     6031   01 01DB7    E8000006 A            B        *LINK
     6032                            *
     6033         01 01DB8           SNAP%CW  EQU      %
     6034   01 01DB8    01261DB5              GEN,8,7,17  1,X'13',READ%NPDF+5
     6035                            *
     6036                            *
     6037                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        CHECK INTERRUPT STORED PSD ROUTINE (CHKPSD)       PAGE   53
A    6039                            *
     6040                            *
     6041                            *  CHECK INTERRUPT STORED PROGRAM STATUS DOUBLE WORD
     6042                            ******************************************************
     6043                            *
     6044                            *  ENTER WITH RETURN ADDRESS IN REGISTER 'LINK'
     6045                            *
     6046                            *  COMPARE STORED PSD WITH EXPECTED PSD (INTEPSD)
     6047                            *
     6048                            *  IF PSD WORD 1 IS IN ERROR, SET BIT 27 IN REGISTER 'LOG'
     6049                            *  IF PSD WORD 2 IS IN ERROR, SET BIT 26 IN REGISTER 'LOG'
     6050                            *
     6051                            *
     6052   01 01DB9                 CHKPSD   RES      0
     6053   01 01DB9    022000A0 A            LCI      10
     6054   01 01DBA    2B002ACC              STM,0    SAVE
     6055   01 01DBB    32402A62              LW,X4    LOCATION          FIND STORED PSD
     6056   01 01DBC    25400001 A            SLS,X4   1
     6057   01 01DBD    12883318              LD,R8    PSDS,X4
     6058   01 01DBE    31802A90              CW,R8    INTEPSD           CHECK FIRST WORD
     6059   01 01DBF    68301DC7              BE       CHKPSD#1
     6060   01 01DC0    22101000 A            LI,X1    X'1000'
     6061   01 01DC1    311003F2              CW,X1    TESTNO
     6062   01 01DC2    68401DC6              BCR,4    %+4               BRANCH IF NOT TEST 1XXX OR 3XXX
     6063   01 01DC3    208FFFFF A            AI,R8    -1
     6064   01 01DC4    31802A90              CW,R8    INTEPSD
     6065   01 01DC5    68301DC7              BE       %+2               BRANCH IF OK
     6066   01 01DC6    49A02C88              OR,LOG   X10               SET BIT 27
     6067   01 01DC7    31902A91     CHKPSD#1 CW,R9    INTEPSD+1         CHECK SECOND WORD
     6068   01 01DC8    68301DCA              BE       %+2               BRANCH IF OK
     6069   01 01DC9    49A02C89              OR,LOG   X20               SET BIT 26
     6070   01 01DCA    022000A0 A            LCI      10                RESTORE REGISTERS
     6071   01 01DCB    2A002ACC              LM,0     SAVE
     6072   01 01DCC    E8000006 A            B        *LINK
     6073                            *
     6074                            *
     6075                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        CHECK SEQUENCE SUBROUTINE (CHKSEQ)                PAGE   54
A    6077                            *
     6078                            *    C H E C K    S E Q U E N C E
     6079                            ******************************************
     6080                            *
     6081                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     6082                            *
     6083                            *OUTPUT AN ERROR MESSAGE IF ANY EXPECTED SEQUENCE NUMBER AND
     6084                            *      ANY ACTUAL SEQUENCE NUMBER DO NOT MATCH
     6085                            *
     6086                            *
     6087   01 01DCD    02200000 A   CHKSEQ   LCI      0                 SAVE REGISTERS
     6088   01 01DCE    2B002AFC              STM,0    SAVE#3
     6089   01 01DCF    227000EE A            LI,X7    238               SET LOOP INDEX
     6090   01 01DD0    2210F460              LI,X1    BA(HISTORY)       SET DISPLACEMENT INDEX
     6091   01 01DD1    72820000 A   CHKSQ#A  LB,R8    0,X1              FIND EXPECTED SEQUENCE
     6092   01 01DD2    20100003 A            AI,X1    3                 INDEX TO BYTE 3
     6093   01 01DD3    72920000 A            LB,R9    0,X1              FIND ACTUAL SEQUENCE
     6094   01 01DD4    31800009 A            CW,R8    9                 CHECK IF SAME
     6095   01 01DD5    69301DD9              BNE      CHKSQ#B           BRANCH IF NO
     6096   01 01DD6    20100005 A            AI,X1    5                 INDEX TO NEXT BYTE 0
     6097   01 01DD7    64701DD1              BDR,X7   CHKSQ#A           LOOP IF NOT THROUGH
     6098   01 01DD8    68001DDB              B        CHKSQ#X           EXIT
     6099                            *
     6100   01 01DD9    22C000F1 A   CHKSQ#B  LI,RC    X'F1'             ERROR TYPE F1
     6101   01 01DDA    6A6020A0              BAL,LINK   EROR            DISPLAY ERROR
     6102   01 01DDB    02200000 A   CHKSQ#X  LCI      0                 RESTORE REGISTERS
     6103   01 01DDC    2A002AFC              LM,0     SAVE#3
     6104   01 01DDD    E8000006 A            B        *LINK             EXIT
     6105                            *
     6106                            *
     6107                            *
     6108                            *
     6109                            *
     6110                            *
     6111                            *        C L E A R   M F I
     6112                            ********************************
     6113                            *
     6114                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     6115                            *
     6116                            *  TURN OFF THE SIGNAL THAT RAISES THE MFI INTERRUPT
     6117                            *
     6118         01 01DDE           CLEAR%MFI   EQU   %
     6119   01 01DDE    228FFFFF A            LI,R8    -1
     6120   01 01DDF    20800FFF A            AI,R8    X'FFF'
        1*  01 01DE0    318003AA              CW,R8    #MAXMEM                                           *H01
        2*  01 01DE1    E9200006 A            BG       *LINK             STOP IF SCAN COMPLETED          *H01
        3*  01 01DE2    2181FFFF A            CI,R8    X'1FFFF'           BUT DO NOT SCAN                *H01
        4*  01 01DE3    E9200006 A            BG       *LINK               MORE THAN 128K OF MEMORY      *H01

     6123   01 01DE4    022000E0 A            LCI      14
     6124   01 01DE5    AD900008 A            LMS,9    *R8
     6125   01 01DE6    68001DDF              B        CLEAR%MFI+1       TRY NEXT 4K BLOCK OF MEM.
     6126                            *
     6127                            *
     6128                            *
1 C00   22:37 JUN 20,'83    TEXT DECOMPRESSION ROUTINE                                            PAGE   55
A    6130                            *
     6131                            *
     6132                            *  ENTER HERE TO SEND MESSAGE TO GUIDE'S BUFFER
     6133                            *
     6134         01 01DE7           DECOM%G  EQU      %
     6135   01 01DE7    02200000 A            LCI      0
     6136   01 01DE8    2B001E42              STM,0    DECOM%SAVE
     6137   01 01DE9    321003D5              LW,X1    #GUIDEBUF         PICK UP BYTE ADDR. OF GUIDE BUF.
     6138   01 01DEA    68001DEE              B        DECOM
     6139                            *
     6140                            *  ENTER HERE TO SEND MESSAGE TO USER'S BUFFER
     6141                            *
     6142         01 01DEB           DECOM%U  EQU      %
     6143   01 01DEB    02200000 A            LCI      0
     6144   01 01DEC    2B001E42              STM,0    DECOM%SAVE
     6145   01 01DED    2210FBD0              LI,X1    BA(OUTBUF)
     6146                            *
     6147         01 01DEE           DECOM    EQU      %
     6148   01 01DEE    35101E55              STW,X1   DECOM%TO
     6149   01 01DEF    35601E52              STW,X6   DECOM%RET
     6150                            *
     6151   01 01DF0    222FFFB8 A            LI,X2    -72
     6152   01 01DF1    22800040 A            LI,R8    X'40'
     6153   01 01DF2    75820000 A            STB,R8   0,X1              FILL BUFFER WITH BLANKS
     6154   01 01DF3    20100001 A            AI,X1    1
     6155   01 01DF4    65201DF2              BIR,X2   %-2
     6156                            *
     6157   01 01DF5    32101E55              LW,X1    DECOM%TO          COMPUTE BYTE ADDR. OF END OF BUF.
     6158   01 01DF6    22800047 A            LI,R8    71
     6159   01 01DF7    30800001 A            AW,R8    X1
     6160   01 01DF8    35801E54              STW,R8   ENDBUF
     6161                            *
     6162   01 01DF9    B2600006 A            LW,X6    *X6
     6163   01 01DFA    722C0000 A            LB,X2    0,X6              FETCH FORMAT CODE
     6164   01 01DFB    75200006 A            STB,X2   X6                   AND SAVE IN X6, BYTE 0
     6165   01 01DFC    20100001 A            AI,X1    1
     6166   01 01DFD    20600001 A            AI,X6    1                 POINT TO NEXT INDEX BYTE
     6167   01 01DFE    722C0000 A            LB,X2    0,X6              FETCH MSG FRAGMENT COUNT
     6168   01 01DFF    202FFFFF A            AI,X2    -1                REDUCE COUNT FOR FORMAT BYTE
     6169                            *
     6170         01 01E00           NEXT%FR  EQU      %
     6171   01 01E00    22400001 A            LI,X4    1
     6172   01 01E01    35401E53              STW,X4   INCR
     6173   01 01E02    20600001 A            AI,X6    1
     6174   01 01E03    724C0000 A            LB,X4    0,X6              FETCH NEXT FRAGMENT INDEX
     6175   01 01E04    214000FC A            CI,X4    X'FC'
     6176   01 01E05    68301E31              BE       REP%CHAR          BRANCH TO REPEAT CHARACTER
     6177   01 01E06    69201E29              BG       TABLSW            BRANCH TO SELECT CONTINUATION TABLE
     6178                            *
     6179   01 01E07    204059E0     FIND%FRAG AI,X4   HA(DAT)           FIND FRAGMENT POINTER DISP.
     6180   01 01E08    52580000 A            LH,X5    0,X4              FETCH FRAGMENT POINTER
     6181   01 01E09    68301E3D              BCR,3    BACK%SPACE        BRANCH IF 'NO SPACE' CODE
     6182                            *
     6183   01 01E0A    2280F000 A            LI,R8    X'F000'
     6184   01 01E0B    4B800005 A            AND,R8   X5
     6185   01 01E0C    69301E0E              BNEZ     %+2
     6186   01 01E0D    22810000 A            LI,R8    X'10000'          SET # OF CHAR. IN FRAG. =16
     6187   01 01E0E    4B502C91              AND,X5   XFFF
     6188   01 01E0F    2050B840              AI,X5    BA(DT)            FIND FRAGMENT BYTE ADDRESS
     6189                            *
     6190   01 01E10    25800074 A            SLS,R8   -12               FIND #OF CHAR. IN FRAGMENT
     6191                            *
     6192   01 01E11    31101E54     BUFFIT   CW,X1    ENDBUF
     6193   01 01E12    69101E15              BL       %+3               BRANCH IF NOT AT END OF BUFFER
     6194   01 01E13    32101E54              LW,X1    ENDBUF
     6195   01 01E14    68001E20              B        SKP:INC+1         EXIT ROUTINE
     6196                            *
     6197   01 01E15    729A0000 A            LB,R9    0,X5              MOVE FRAGMENT INTO BUFFER
     6198   01 01E16    75920000 A            STB,R9   0,X1
     6199   01 01E17    20100001 A            AI,X1    1
     6200   01 01E18    30501E53              AW,X5    INCR
     6201   01 01E19    64801E15              BDR,R8   %-4               COUNT # OF CHAR. TO ZERO
     6202                            *
     6203   01 01E1A    219000C1 A            CI,R9    X'C1'
     6204   01 01E1B    69101E1F              BL       SKP:INC           ADD ONE SPACE IF FRAG. IS
     6205   01 01E1C    219000E9 A            CI,R9    X'E9'             AN ALPHA STRING
     6206   01 01E1D    69201E1F              BG       SKP:INC           BRANCH IF NOT
     6207   01 01E1E    20100001 A            AI,X1    1
     6208                            *
     6209   01 01E1F    64201E00     SKP:INC  BDR,X2   NEXT%FR           PICK UP NEXT FRAG.
     6210                            *
     6211                            *   ENTER HERE AFTER ALL FRAGMENTS ARE DECOMPRESSED
     6212                            *
     6213   01 01E20    32201E55              LW,X2    DECOM%TO
     6214   01 01E21    38101E55              SW,X1    DECOM%TO          CACLULATE # OF BYTES IN MSG
     6215   01 01E22    75140000 A            STB,X1   0,X2              SET BYTE COUNT IN BUFFER BYTE 0
     6216   01 01E23    20600001 A            AI,X6    1                 POINT TO NEXT MESSAGE
     6217   01 01E24    35601E48              STW,X6   DECOM%SAVE+6
     6218                            *
     6219   01 01E25    02200000 A            LCI      0
     6220   01 01E26    2A001E42              LM,0     DECOM%SAVE        RESTORE REGISTERS
     6221   01 01E27    33101E52              MTW,1    DECOM%RET         BUMP RETURN ADDRESS
     6222   01 01E28    E8001E52              B        *DECOM%RET
     6223                            *
     6224                            *
     6225                            *  ENTER HERE IF INDEX BYTE IS A CONTROL CHARACTER POINTING
     6226                            *        AT AN EXTENSION TABLE (BEYOND FIRST 256)
     6227                            *
     6228         01 01E29           TABLSW   EQU      %
     6229   01 01E29    228000FC A            LI,R8    252               ADD 252 TO X4 IF IN SECOND TABLE
     6230   01 01E2A    214000FF A            CI,X4    X'FF'
     6231   01 01E2B    68301E2D              BE       %+2
     6232   01 01E2C    20800100 A            AI,R8    256               ADD 256 MORE IF IN THIRD TABLE
     6233   01 01E2D    20600001 A            AI,X6    1
     6234   01 01E2E    724C0000 A            LB,X4    0,X6              BUILD TABLE DISPLACEMENT
     6235   01 01E2F    30400008 A            AW,X4    R8
     6236   01 01E30    68001E07              B        FIND%FRAG
     6237                            *
     6238                            *   ENTER HERE IF INDEX IS A CONTROL BYTE THAT SAYS TO REPEAT
     6239                            *        THE NEXT CHARACTER 'N' TIMES
     6240                            *
     6241         01 01E31           REP%CHAR EQU      %
     6242   01 01E31    22800000 A            LI,R8    0
     6243   01 01E32    35801E53              STW,R8   INCR
     6244   01 01E33    20600001 A            AI,X6    1
     6245   01 01E34    728C0000 A            LB,R8    0,X6              FETCH # OF TIMES TO REPEAT
     6246   01 01E35    20600001 A            AI,X6    1
     6247   01 01E36    724C0000 A            LB,X4    0,X6              FETCH INDEX OF CHAR. TO REPEAT
     6248   01 01E37    204059E0              AI,X4    HA(DAT)
     6249   01 01E38    52580000 A            LH,X5    0,X4              FETCH FRAGMENT POINTER
     6250   01 01E39    4B502C91              AND,X5   XFFF
     6251   01 01E3A    2050B840              AI,X5    BA(DT)
     6252   01 01E3B    202FFFFE A            AI,X2    -2
     6253   01 01E3C    68001E11              B        BUFFIT
     6254                            *
     6255         01 01E3D           BACK%SPACE  EQU   %
     6256   01 01E3D    201FFFFF A            AI,X1    -1
     6257   01 01E3E    72920000 A            LB,R9    0,X1              CHECK PREVIOUS CHARACTER
     6258   01 01E3F    21900040 A            CI,R9    X'40'
     6259   01 01E40    68301E1F              BE       SKP:INC
     6260   01 01E41    68001E1E              B        SKP:INC-1         NO BACKSPACE IF NOT A BLANK
     6261                            *
     6262                            *
     6263                            *
     6264   01 01E42                 DECOM%SAVE RES    16                REGISTER SAVE
     6265   01 01E52    00000000 A   DECOM%RET  DATA   0                 RETURN ADDRESS
     6266   01 01E53    00000000 A   INCR     DATA     0
     6267   01 01E54    00000000 A   ENDBUF   DATA     0
     6268   01 01E55    00000000 A   DECOM%TO DATA     0                 BUFFER BYTE ADDRESS
     6269                            *
1 C00   22:37 JUN 20,'83              DISPLAY ERROR TYPE EXPLANATIONS                             PAGE   56
A    6271                            *
     6272                            *
     6273                            *   THIS ROUTINE IS ENTERED BY KEYIN OF  DE
     6274                            *
     6275                            *   IT CAUSES DISPLAY OF THE EXPLANATIONS FOR ALL ERROR TYPES
     6276                            *        WITHIN THE REQUESTED RANGE
     6277                            *
     6278                            *
     6279         01 01E56           DISP%E   EQU    %
     6280                            *
     6281   01 01E56    02200000 A            LCI      0
     6282   01 01E57    2B002AEC              STM,0    SAVE#2            SAVE REGISTERS
     6283   01 01E58    3220039C              LW,X2    #PARAM%H1
     6284   01 01E59    68301E63              BEZ      DIS%ALL%E
     6285   01 01E5A    212000FF A            CI,X2    255
     6286   01 01E5B    69201E7B              BG       DIS%E#PE1         ERROR IF OVER X'FF'
     6287                            *
     6288   01 01E5C    3240039D              LW,X4    #PARAM%H2
     6289   01 01E5D    68301E66              BEZ      DIS%ONE%E
     6290   01 01E5E    214000FF A            CI,X4    255
     6291   01 01E5F    69201E7D              BG       DIS%E#PE2         ERROR IF OVER X'FF'
     6292   01 01E60    31400002 A            CW,X4     X2
     6293   01 01E61    69101E7D              BL       DIS%E#PE2        ERROR IF LESS THAN PARAM 1
     6294   01 01E62    68001E67              B        DIS%E
     6295                            *
     6296                            *   ENTER HERE IF DE>,, WAS KEYED IN
     6297                            *
     6298         01 01E63           DIS%ALL%E         EQU               %
     6299   01 01E63    22200001 A            LI,X2    1                 SET UP DISPLAY OF ALL TYPES
     6300   01 01E64    224000FF A            LI,X4    255
     6301   01 01E65    68001E67              B        DIS%E
     6302                            *
     6303         01 01E66           DIS%ONE%E         EQU  %
     6304   01 01E66    32400002 A            LW,X4    X2                SET LAST TYPE EQUAL TO FIRST
     6305   01 01E67    32842B56     DIS%E    LW,R8    EXPL%T#01-1,X2    FIND EXPLANATION
     6306   01 01E68    31802C55              CW,R8    EXPL%T#01+X'FE'   COMPARE WITH TYPE 'FF' (NOT USED)
     6307   01 01E69    68301E77              BE       DIS%E#A           BRANCH IF THIS TYPE NOT USED
     6308   01 01E6A    35801E6D              STW,R8   %+3
     6309   01 01E6B    6A602809              #PRINT   %+2
            01 01E6C    EA6003CD
            01 01E6D    C00079BC A
            01 01E6E    6A602832
     6310   01 01E6F    32500002 A            LW,X5    X2
     6311   01 01E70    2550007C A            SLS,X5   -4                FIND FIELD EXPLANATIONS
     6312   01 01E71    328A2B47              LW,R8    EXPL%F#0,X5               *
     6313   01 01E72    35801E75              STW,R8   %+3
     6314   01 01E73    6A602809              #PRINT   %+2
            01 01E74    EA6003CD
            01 01E75    C00079DC A
            01 01E76    6A602832
     6315                            *
     6316                            *
     6317   01 01E77    31400002 A   DIS%E#A  CW,X4    X2                WAS LAST EXPL. PRINTED
     6318   01 01E78    68201E85              BLE      DIS%E#X           EXIT IF YES
     6319                            *
     6320   01 01E79    20200001 A            AI,X2    1
     6321   01 01E7A    68001E67              B        DIS%E             DISPLAY THE NEXT ERROR TYPE
     6322                            *
     6323                            *
     6324   01 01E7B    12A003A2     DIS%E#PE1  LD,LOG   #PARAM1         PARAMETER 1 ERROR
     6325   01 01E7C    68001E7E              B        %+2
     6326   01 01E7D    12A003A4     DIS%E#PE2  LD,LOG   #PARAM2         PARAMETER 2 ERROR
     6327   01 01E7E    6A601DEB              SEND     PARAMERR
            01 01E7F    0000C347 A
     6328   01 01E80    15A03EFA              STD,LOG  OUTBUF+6
     6329   01 01E81    6A602809              #TYPE    OUTBUF            DISPLAY ERROR MSG.
            01 01E82    EA6003CC
            01 01E83    0000FBD0 A
            01 01E84    6A602832
     6330   01 01E85    02200000 A   DIS%E#X  LCI      0
     6331   01 01E86    2A002AEC              LM,0     SAVE#2
     6332   01 01E87    02200010 A            LCI      1                 USE SAME GO TO ADDRESS
     6333   01 01E88    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     6334                            *
     6335                            *
     6336                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        DISPLAY HISTORY TABLE ROUTINE (DISHIS)            PAGE   57
A    6338                            *
     6339                            *
     6340                            *************************************
     6341                            *  D I S P L A Y   H I S T O R Y   T A B L E
     6342                            *************************************
     6343                            *
     6344                            *************************************
     6345                            *  THIS ROUTINE DISPLAYS THE CURRENT CONTENTS OF THE INTERRUPT
     6346                            *      HISTORY TABLE ON USER REQUEST.  (DH)
     6347                            *   FIRST:  ALL EXPECTED INTS. ARE LISTED (IN ORDER EXPECTED)
     6348                            *   SECOND: ALL UNEXP. INTS. FROM FROM LEGAL LOCATIONS (52-13F)
     6349                            *        ARE LISTED (IN ORDER OF LOCATION)
     6350                            *   THIRD:  ALL INTS. FROM NONVALID LOCATIONS (INCLUDING TRAPS)
     6351                            *        ARE LISTED (IN ORDER OF OCCURRANCE)
     6352                            *
     6353                            *************************************
     6354                            *
     6355   01 01E89    00000000 A   HSTORYP  DATA     0
     6356                            *
     6357   01 01E8A    02200000 A   DISHIS   LCI      0                 SAVE REGISTERS
     6358   01 01E8B    2B002AEC              STM,0    SAVE#2
     6359   01 01E8C    2210F460              LI,X1    BA(HISTORY)       SET BYTE DISPLACEMENT INDEX
     6360   01 01E8D    35101E89              STW,X1   HSTORYP           SAVE START OF TABLE
     6361   01 01E8E    22700000 A            LI,X7    0                 SET INDEX FOR EXP. SEQ. SEARCH
     6362   01 01E8F    224FFF12 A            LI,X4    -238              SET INDEX FOR TABLE END
     6363   01 01E90    6A602809              #PRINT,1,1 HISTHD1,C2      PRINT HISTORY TABLE HEADERS
            01 01E91    EA6003CD
            01 01E92    0160C356 A
            01 01E93    6A602832
     6364   01 01E94    6A602809              #PRINT,1,1 HISTHD2
            01 01E95    EA6003CD
            01 01E96    0160C35D A
            01 01E97    6A602832
     6365   01 01E98    6A602809              #PRINT,1,1 HISTHD3
            01 01E99    EA6003CD
            01 01E9A    0160C36E A
            01 01E9B    6A602832
     6366   01 01E9C    31702A5A              CW,X7    EXPSEQCT          WERE ANY INTERRUPTS EXPECTED
     6367   01 01E9D    69301EBF              BNE      DISHIS#D          YES, DISPLAY THEM
     6368   01 01E9E    6A6022A9              BAL,LINK INITBUF           CLEAR BUFFER
     6369   01 01E9F    32802CD6              LW,R8    ENONE             SAY NONE FOR EXPECTED SEQ.
     6370   01 01EA0    35803EF5              STW,R8   OUTBUF+1
     6371   01 01EA1    32902A89              LW,R9    SEQCNT            DID ANY INTERRUPTS OCCUR
     6372   01 01EA2    21900000 A            CI,R9    0
     6373   01 01EA3    69201EAC              BG       DISHIS#A          YES, DISPLAY THEM
     6374   01 01EA4    35803EF7              STW,R8   OUTBUF+3          NO, SAY NONE
     6375   01 01EA5    22C00010 A            LI,RC    16                SET NUMBER OF CHARACTERS TO PRINT
     6376   01 01EA6    75C03EF4              STB,RC   OUTBUF
     6377   01 01EA7    6A602809              #PRINT   OUTBUF
            01 01EA8    EA6003CD
            01 01EA9    C000FBD0 A
            01 01EAA    6A602832
     6378   01 01EAB    68001F57              B        DISHIS#X          EXIT
     6379                            *
     6380   01 01EAC    2210F460     DISHIS#A LI,X1    BA(HISTORY)       INITIALIZE POINTER
     6381   01 01EAD    35101E89              STW,X1   HSTORYP
     6382   01 01EAE    6A6022A9     DISHIS#B BAL,LINK INITBUF           INITIALIZE BUFFER
     6383   01 01EAF    32101E89              LW,X1    HSTORYP           FIND ENTRY
     6384   01 01EB0    2110FBD0              CI,X1    BA(HISTORYEND)    CHECK IF TABLE END
     6385   01 01EB1    68101F2B              BGE      DISHIS#I          YES, CHECK IF ANY ILEGAL  INTS.
     6386   01 01EB2    72820000 A            LB,R8    0,X1              FIND EXP. SEQ. NO.
     6387   01 01EB3    20100003 A            AI,X1    3                 SET INDEX TO BYTE 3
     6388   01 01EB4    72920000 A            LB,R9    0,X1              FIND ACTUAL SEQ. NUMBER
     6389   01 01EB5    21800000 A            CI,R8    0                 CHECK IF EXPECTED
     6390   01 01EB6    69301EBC              BNE      DISHIS#C          YES, MUST BE ALREADY DISPLAYED
     6391   01 01EB7    21900000 A            CI,R9    0                 NO, CHECK IF OCCURRED
     6392   01 01EB8    68301EBC              BE       DISHIS#C          NO, SKIP THIS ENTRY
     6393   01 01EB9    32802CD6              LW,R8    ENONE             FIND EBCDIC NONE
     6394   01 01EBA    35803EF5              STW,R8   OUTBUF+1          STORE AS EXPECTED SEQ. NO.
     6395   01 01EBB    68001ECA              B        DISHIS#F          DISPLAY THIS ENTRY
     6396                            *
     6397   01 01EBC    22800008 A   DISHIS#C LI,R8    8                 INCREMENT POINTER TO NEXT DBL. WD.
     6398   01 01EBD    66801E89              AWM,R8   HSTORYP
     6399   01 01EBE    68001EAF              B        DISHIS#B+1        CHECK NEXT ENTRY
     6400                            *
     6401   01 01EBF    20700001 A   DISHIS#D AI,X7    1                 INCREMENT SEARCH VALUE
     6402   01 01EC0    6A6022A9              BAL,LINK INITBUF           INITIALIZE BUFFER
     6403   01 01EC1    2210F460              LI,X1    BA(HISTORY)       ZERO SEARCH POINTER
     6404   01 01EC2    35101E89              STW,X1   HSTORYP
     6405   01 01EC3    71720000 A   DISHIS#E CB,X7    0,X1              SEARCH FOR EXP. SEQ. THAT MATCHES
     6406   01 01EC4    68301EC7              BE       %+3               BRANCH WHEN FOUND
     6407   01 01EC5    20100008 A            AI,X1    8
     6408   01 01EC6    68001EC3              B        DISHIS#E          LOOP UNTIL FOUND
     6409   01 01EC7    6A602312              LOADBYTE 2,6,STRIPZ        LOAD OUTBUF WITH EXP. SEQ. NO.
            01 01EC8    20C022EF
     6410   01 01EC9    20100003 A            AI,X1    3                 BYTE ADDR. TO BYTE 3
     6411   01 01ECA    72C20000 A   DISHIS#F LB,RC    0,X1              FIND ACTUAL SEQ. NO.
     6412   01 01ECB    31C00007 A            CW,RC    X7                CHECK IF SAME AS EXP. NO.
     6413   01 01ECC    68301ED2              BE       %+6               YES, SKIP ASTERISK
     6414   01 01ECD    2280005C A            LI,R8    X'5C'             NO, PRINT ASTERISK
     6415   01 01ECE    3580230D              STW,R8   EBCBUF+3
     6416   01 01ECF    22C00001 A            BUFFER   1,13,LOADBUF      LOAD IN OUTBUF -COL.13
            01 01ED0    22D0000D A
            01 01ED1    6A6022EB
     6417   01 01ED2    6A602312              LOADBYTE 2,16,STRIPZ       LOAD ACTUAL SEQ. NO.
            01 01ED3    220022EF
     6418   01 01ED4    201FFFFF A            AI,X1    -1                SET INDEX  TO BYTE 2
     6419   01 01ED5    6A602312              LOADBYTE 2,67,STRIPZ       LOAD INTERRUPT COUNT
            01 01ED6    286022EF
     6420   01 01ED7    20100002 A            AI,X1    2                 SET INDEX  TO BYTE 4
     6421   01 01ED8    72220000 A            LB,GRP   0,X1              FIND GROUP AND LEVEL
     6422   01 01ED9    2520017C A            SLD,GRP  -4                MOVE GROUP # INTO RIGHT REG.
     6423   01 01EDA    25300064 A            SLS,LVL  -28               MOVE LEVEL TO RIGHT REG.
     6424   01 01EDB    3520000C A            STW,GRP  RC                CONVERT GROUP TO EBCDIC
     6425   01 01EDC    6A602900              BAL,LINK :HEX@EBC
     6426   01 01EDD    3560230D              STW,LINK EBCBUF+3
     6427   01 01EDE    22C00001 A            BUFFER   1,22,LOADBUF      LOAD IN OUTBUF -COL.22
            01 01EDF    22D00016 A
            01 01EE0    6A6022EB
     6428   01 01EE1    3530000C A            STW,LVL  RC                CONVERT LEVEL TO EBCDIC
     6429   01 01EE2    6A602900              BAL,LINK :HEX@EBC
     6430   01 01EE3    3560230D              STW,LINK EBCBUF+3
     6431   01 01EE4    22C00001 A            BUFFER   1,28,LOADBUF      LOAD IN OUTBUF -COL.28
            01 01EE5    22D0001C A
            01 01EE6    6A6022EB
     6432   01 01EE7    22500003 A            LI,X5    3                 SET FOR 3 WORDS
     6433   01 01EE8    328A2CB7              LW,R8    COMSTMSG-1,X5     LOAD A, T, E, I INTO OUTBUF
     6434   01 01EE9    358A230A              STW,R8   EBCBUF,X5
     6435   01 01EEA    64501EE8              BDR,X5   %-2
     6436   01 01EEB    22C0000A A            BUFFER   10,51,LOADBUF               COL.42-51
            01 01EEC    22D00033 A
            01 01EED    6A6022EB
     6437   01 01EEE    228000D5 A            LI,R8    X'D5'             GET EBCDIC N
     6438   01 01EEF    3580230D              STW,R8   EBCBUF+3
     6439   01 01EF0    52842A96              LH,R8    LEVARMD,GRP       CHECK IF LEVEL WAS ARMED
     6440   01 01EF1    32962B36              LW,R9    LEVMASK,LVL       FIND LEVEL MASK
     6441   01 01EF2    4B800009 A            AND,R8   9
     6442   01 01EF3    69301EF7              BNEZ     %+4               YES,SKIP N
     6443   01 01EF4    22C00001 A            BUFFER   1,41,LOADBUF      NO, LOAD N
            01 01EF5    22D00029 A
            01 01EF6    6A6022EB
     6444   01 01EF7    52842AA6              LH,R8    LEVTRIG,GRP
     6445   01 01EF8    4B800009 A            AND,R8   9                 CHECK IF LEVEL WAS TRIG.
     6446   01 01EF9    69301EFD              BNEZ     %+4               YES, SKIP N
     6447   01 01EFA    22C00001 A            BUFFER   1,44,LOADBUF      NO, LOAD N
            01 01EFB    22D0002C A
            01 01EFC    6A6022EB
     6448   01 01EFD    52842A9E              LH,R8    LEVENBL,GRP
     6449   01 01EFE    4B800009 A            AND,R8   9                 CHECK IF LEVEL WAS ENBLD.
     6450   01 01EFF    69301F03              BNEZ     %+4               YES, SKIP N
     6451   01 01F00    22C00001 A            BUFFER   1,47,LOADBUF      NO, LOAD N
            01 01F01    22D0002F A
            01 01F02    6A6022EB
     6452   01 01F03    52842AB6              LH,R8    LEVNINH,GRP
     6453   01 01F04    4B800009 A            AND,R8   9                 CHECK IF LEVEL WAS INHIBITED
     6454   01 01F05    68301F09              BEZ      %+4               YES, SKIP N
     6455   01 01F06    22C00001 A            BUFFER   1,50,LOADBUF      NO, LOAD N
            01 01F07    22D00032 A
            01 01F08    6A6022EB
     6456   01 01F09    72C20000 A            LB,RC    0,X1              FIND GRP/LVL
     6457   01 01F0A    6A6026FF              BAL,LINK READFF            READ FLIP FLOP STATES
     6458   01 01F0B    128C2CC0              LD,R8    EBC%STATE,LINK    FIND FF STATES IN EBCDIC
     6459   01 01F0C    1580230C              STD,R8   EBCBUF+2
     6460   01 01F0D    22C00008 A            BUFFER   8,61,LOADBUF
            01 01F0E    22D0003D A
            01 01F0F    6A6022EB
     6461   01 01F10    20100002 A            AI,X1    2                 SET INDEX  TO BYTE 6
     6462   01 01F11    72C20000 A            LB,RC    0,X1              FIND IF LOCATION > X'100'
     6463   01 01F12    69301F18              BNEZ     DISHIS#M          BRANCH IF YES
     6464   01 01F13    20100001 A            AI,X1    1                 SET INDEX  TO BYTE 7
     6465   01 01F14    72C20000 A            LB,RC    0,X1              FIND LOCATION
     6466   01 01F15    6A602312              LOADBYTE 2,36,STRIPZ       LOAD IN OUTBUF COL.36
            01 01F16    248022EF
     6467   01 01F17    68001F1D              B        DISHIS#N
     6468                            *
     6469   01 01F18    6A602312     DISHIS#M LOADBYTE 1,34,LOADBUF
            01 01F19    144022EB
     6470   01 01F1A    20100001 A            AI,X1    1                 SET INDEX  TO BYTE 7
     6471   01 01F1B    6A602312              LOADBYTE 2,36,LOADBUF      LOAD IN OUTBUF COL.36
            01 01F1C    248022EB
     6472   01 01F1D    22C00047 A   DISHIS#N LI,RC    71                SET NUMBER OF CHARACTERS TO PRINT
     6473   01 01F1E    75C03EF4              STB,RC   OUTBUF
     6474   01 01F1F    6A602809              #PRINT   OUTBUF
            01 01F20    EA6003CD
            01 01F21    C000FBD0 A
            01 01F22    6A602832
     6475   01 01F23    31702A5A              CW,X7    EXPSEQCT          WHAT IS BEING PRINTED
     6476   01 01F24    68101F28              BGE      %+4               BRANCH IF PRINTING ACTUALS
     6477   01 01F25    69101EBF              BL       DISHIS#D          BRANCH IF PRINTING EXP.
     6478   01 01F26    20700001 A            AI,X7    1                 INCREMENT SEARCH VALUE
     6479   01 01F27    68001EAC              B        DISHIS#A          START ON ACTUALS
     6480   01 01F28    22800008 A            LI,R8    8
     6481   01 01F29    66801E89              AWM,R8   HSTORYP           SET POINTER FOR NEXT ENTRY
     6482   01 01F2A    68001EAE              B        DISHIS#B          PROCESS NEXT ACTUAL
     6483                            *
     6484   01 01F2B    6A6022A9     DISHIS#I BAL,LINK INITBUF           CLEAR BUFFER
     6485   01 01F2C    2210FC18              LI,X1    BA(ILEGAL)
     6486   01 01F2D    31101167              CW,X1    ILEGALP           END OF ILLEGALS
     6487   01 01F2E    68101F57              BGE      DISHIS#X          BRANCH IF YES
     6488   01 01F2F    72C20000 A            LB,RC    0,X1              FIND ACTUAL SEQUENCE NUMBER
     6489   01 01F30    6A602312              LOADBYTE 2,16,STRIPZ       LOAD IN OUTBUF
            01 01F31    220022EF
     6490   01 01F32    2280005C A            LI,R8    X'5C'             FIND ASTERISK
     6491   01 01F33    3580230D              STW,R8   EBCBUF+3          SAVE IT
     6492   01 01F34    22C00001 A            BUFFER   1,13,LOADBUF      LOAD IN OUTBUF - COL.13
            01 01F35    22D0000D A
            01 01F36    6A6022EB
     6493   01 01F37    20100002 A            AI,X1    2                 SET INDEX TO BYTE 2
     6494   01 01F38    72C20000 A            LB,RC    0,X1              FIND LOCATION MOST SIG. CHAR.
     6495   01 01F39    68301F44              BEZ      DISHIS#P          SKIP MOST SIG. CHAR IF 0
     6496   01 01F3A    228000F1 A            LI,R8    X'F1'             GET EBCDIC 1
     6497   01 01F3B    3580230D              STW,R8   EBCBUF+3          SAVE IT
     6498   01 01F3C    22C00001 A            BUFFER   1,34,LOADBUF      LOAD IT IN OUTBUF COL. 34
            01 01F3D    22D00022 A
            01 01F3E    6A6022EB
     6499   01 01F3F    20100001 A            AI,X1    1                 SET INDEX TO BYTE 3
     6500   01 01F40    72C20000 A            LB,RC    0,X1              FIND LEAST SIG. CHARS.
     6501   01 01F41    6A602312              LOADBYTE 2,36,LOADBUF      LOAD LOCATION IN OUTBUF-COL.36
            01 01F42    248022EB
     6502   01 01F43    68001F48              B        DISHIS#Q
     6503                            *
     6504   01 01F44    20100001 A   DISHIS#P AI,X1    1                 SET INDEX TO BYTE 3
     6505   01 01F45    72C20000 A            LB,RC    0,X1              FIND LOCATION
     6506   01 01F46    6A602312              LOADBYTE 2,36,STRIPZ       LOAD LOC. IN OUTBUF-COL.36
            01 01F47    248022EF
     6507                            *
     6508   01 01F48    32802CD6     DISHIS#Q LW,R8    ENONE             GET EBCDIC NONE
     6509   01 01F49    35803EF5              STW,R8   OUTBUF+1          LOAD EXPECTED SEQ. AS NONE
     6510   01 01F4A    12802CD0              LD,R8    EBC%SPUR          GET EBCDIC SPURIOUS
     6511   01 01F4B    35803EF9              STW,R8   OUTBUF+5          STORE IN OUTBUF COLS. 20-27
     6512   01 01F4C    35903EFA              STW,R9   OUTBUF+6
     6513   01 01F4D    22C00024 A            LI,RC    36                SET NUMBER OF CHARACTERS TO PRINT
     6514   01 01F4E    75C03EF4              STB,RC   OUTBUF
     6515   01 01F4F    6A602809              #PRINT   OUTBUF
            01 01F50    EA6003CD
            01 01F51    C000FBD0 A
            01 01F52    6A602832
     6516   01 01F53    20100001 A            AI,X1    1                 SET INDEX TO NEXT BYTE 0
     6517   01 01F54    31101167              CW,X1    ILEGALP           CHECK FOR TABLE END
     6518   01 01F55    68101F57              BGE      DISHIS#X          EXIT IF FINISHED
     6519   01 01F56    68001F2D              B        DISHIS#I+2        PRINT NEXT ENTRY
     6520                            *
     6521                            *
     6522   01 01F57    02200000 A   DISHIS#X LCI      0                 RESTORE REGISTERS
     6523   01 01F58    2A002AEC              LM,0     SAVE#2
     6524   01 01F59    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     6525   01 01F5A    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     6526                            *
     6527                                     BOUND    8
     6528                            *
     6529                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        DISPLAY PATTERN ROUTINE   (DISPAT)                PAGE   58
A    6531                            *                                                                      *
     6532                            **********************************************************************
     6533                            *       D I S P L A Y     P A T T E R N S
     6534                            ***********************************************************************
     6535                            *
     6536                            * THIS ROUTINE DISPLAYS ALL K PARAMETER LINES (ALL INTERRUPT
     6537                            *      CONTROL PATTERN) ON USER REQUEST (DK)                         *
     6538                            **********************************************************************
     6539                            *
     6540   01 01F5C    6A602809     DISPAT   #PRINT,1,1 PATHD#1,C2      PRINT HEADERS
            01 01F5D    EA6003CD
            01 01F5E    0160C3CB A
            01 01F5F    6A602832
     6541   01 01F60    6A602809              #PRINT,1,1 PATHD#2
            01 01F61    EA6003CD
            01 01F62    0160C3D8 A
            01 01F63    6A602832
     6542   01 01F64    22700000 A            LI,X7    0                 INITIALIZE GROUP #
     6543   01 01F65    22500000 A            LI,X5    0                 SET INDEX TO FIND GROUP 0 PATTERNS
     6544   01 01F66    6A6022A9     DISPT#A  BAL,LINK INITBUF           INITIALIZE BUFFER
     6545   01 01F67    22400000 A            LI,X4    0                 ZERO LOOP INDEX
     6546   01 01F68    328A2426              LW,R8    PLINE#K0,X5       LOAD PATTERNS IN OUTBUF
     6547   01 01F69    35883EF4              STW,R8   OUTBUF,X4
     6548   01 01F6A    20400001 A            AI,X4    1
     6549   01 01F6B    20500001 A            AI,X5    1
     6550   01 01F6C    2140000F A            CI,X4    15
     6551   01 01F6D    69101F68              BL       %-5
     6552   01 01F6E    6A602809              #PRINT   OUTBUF
            01 01F6F    EA6003CD
            01 01F70    C000FBD0 A
            01 01F71    6A602832
     6553   01 01F72    2170000F A   DISPT#B  CI,X7    15                WAS THAT THE LAST LINE
     6554   01 01F73    E92003C9              BG       *#FIDLE%          EXIT TO IDLE STATE
     6555   01 01F74    21700000 A            CI,X7    0                 WAS THAT THE FIRST LINE
     6556   01 01F75    69301F77              BNE      %+2               IF YES ADD EXTRA COUNT FOR GRP. 1
     6557   01 01F76    20700001 A            AI,X7    1
     6558   01 01F77    20700001 A            AI,X7    1                 INCREMENT GROUP #
     6559   01 01F78    528E2ABE              LH,R8    LEVIMPL,X7        IS NEXT GROUP IMPLEMENTED
     6560   01 01F79    69301F66              BNEZ     DISPT#A           IF YES PRINT NEXT GROUP
     6561   01 01F7A    2050000F A            AI,X5    15
     6562   01 01F7B    68001F72              B        DISPT#B           IF NO SKIP NEXT GROUP
     6563                            *
     6564   01 01F7C    02200010 A   DISPT#X  LCI      1                 USE SAME 'GO TO' ADDRESS
     6565   01 01F7D    E80003C9              B        *#FIDLE%          EXIT TO USER CONTROL (IDLE STATE)
     6566                            *
     6567                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        DISPLAY IMPLEMENTED ROUTINE (DISIMP)              PAGE   59
A    6569                            *
     6570                            **********************************************************************
     6571                            *  D I S P L A Y   I M P L E M E N T E D    L E V E L S              *
     6572                            **********************************************************************
     6573                            *                                                                    *
     6574                            *  THIS ROUTINE DISPLAYS ALL I PARAMETER LINES (IMPLEMENTED          *
     6575                            *       LEVEL PATTERNS) ON USER REQUEST.  (DI,,)                     *
     6576                            **********************************************************************
     6577                            *
     6578   01 01F7E    6A601F81     DISP%IMP BAL,LINK DISIMP            DISPLAY IMPLEMENTATION
     6579   01 01F7F    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     6580   01 01F80    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     6581                            *
     6582   01 01F81                 DISIMP   RES      0
     6583   01 01F81    02200000 A            LCI      0
     6584   01 01F82    2B002ADC              STM,0    SAVE#1            SAVE REGISTERS
     6585   01 01F83    32F02CB0              LW,RF    Y8000             SET REG. AS GROUP COUNTER
     6586   01 01F84    22100001 A            LI,X1    1
     6587   01 01F85    22200000 A            LI,GRP   0
     6588   01 01F86    22300000 A            LI,LVL   0
     6589   01 01F87    6A602809              #PRINT,1,1 DI%HDR,C2
            01 01F88    EA6003CD
            01 01F89    0160C2C7 A
            01 01F8A    6A602832
     6590   01 01F8B    52842ABE     DISIMP#A LH,R8    LEVIMPL,GRP       FIND WHICH LEVELS IMPL. IN GROUP
     6591   01 01F8C    4B802C99              AND,R8   XFFFF
     6592   01 01F8D    68301FFA              BEZ      DISIMP#R          BRANCH IF NONE
     6593   01 01F8E    32B02AC9              LW,RB    GRPIMPL
     6594   01 01F8F    49B0000F A            OR,RB    RF
     6595   01 01F90    35B02AC9              STW,RB   GRPIMPL
     6596   01 01F91    21200000 A            CI,GRP   0                 IS IT GROUP 0
     6597   01 01F92    69301F95              BNE      %+3               BRANCH IF NO
     6598   01 01F93    31802C98              CW,R8    XFFFC             WERE ALL LEVELS IMPLEMENTED
     6599   01 01F94    68001F96              B        %+2
     6600   01 01F95    31802C99              CW,R8    XFFFF             WERE ALL LEVELS IMPLEMENTED
     6601   01 01F96    68301F98              BE       DISIMP#B          BRANCH IF YES
     6602   01 01F97    68001FA2              B        DISIMP#E          INDICATE PARTIAL IMPLEMENTATION
     6603   01 01F98    6A601DEB     DISIMP#B SEND     GRPIMSG1          SHOW GROUP AS FULLY IMPLEMENTED
            01 01F99    0000CC0D A
     6604   01 01F9A    32C00002 A   DISIMP#C LW,RC    GRP               PUT GROUP # IN OUTPUT MESSAGE
     6605   01 01F9B    6A602900              BAL,LINK :HEX@EBC
     6606   01 01F9C    75603EF6              STB,LINK OUTBUF+2
     6607   01 01F9D    6A602809              #PRINT   OUTBUF            PRINT GROUP IMPLMENTED MESSAGE
            01 01F9E    EA6003CD
            01 01F9F    C000FBD0 A
            01 01FA0    6A602832
     6608   01 01FA1    68001FFA              B        DISIMP#R          GO CHECK IF LAST GROUP
     6609                            *
     6610                            *
     6611   01 01FA2    6A601DEB     DISIMP#E SEND     GRPIMSG3          SHOW GROUP AS PARTIALLY IMPLEMENTED
            01 01FA3    0000CC3C A
     6612   01 01FA4    32C00002 A            LW,RC    GRP
     6613   01 01FA5    6A602900              BAL,LINK :HEX@EBC
     6614   01 01FA6    75603EF6              STB,LINK OUTBUF+2
     6615   01 01FA7    6A602809              #PRINT   OUTBUF            PRINT GROUP PARTIALLY IMPL. MSG.
            01 01FA8    EA6003CD
            01 01FA9    C000FBD0 A
            01 01FAA    6A602832
     6616   01 01FAB    21200000 A            CI,GRP   0
     6617   01 01FAC    69301FB1              BNE      %+5
     6618   01 01FAD    6A602809              #PRINT,1,1  LVLIMSG#1
            01 01FAE    EA6003CD
            01 01FAF    0160CC14 A
            01 01FB0    6A602832
     6619   01 01FB1    52842ABE              LH,R8    LEVIMPL,GRP       FIND WHICH LEVELS WERE IMPLEMENTED
     6620   01 01FB2    25800010 A            SLS,R8   16
     6621   01 01FB3    22700000 A            LI,X7    0
     6622   01 01FB4    22500003 A            LI,X5    3
     6623                            *
     6624                            **********************************************************************
     6625                            * ENTRY HERE INDICATES THE GROUP WAS ONLY PARTIALLY IMPLEMENTED
     6626                            *     AND THEREFORE A DISPLAY OF LEVELS IMPLEMENTED IS NEEDED
     6627                            **********************************************************************
     6628                            *
     6629   01 01FB5    6A601DEB     DISIMP#F SEND     LVLIMSG
            01 01FB6    0000C350 A
     6630   01 01FB7    22400001 A            LI,X4    1                 SET BYTE DISPL. INDICIES
     6631   01 01FB8    F29E03D2              LB,R9    *#VALTAB%,X7      FIND LEVEL # IN EBCDIC
     6632   01 01FB9    75983EF6              STB,R9   OUTBUF+2,X4          AND SET IN MESSAGE
     6633   01 01FBA    25800202 A            SCS,R8   2                 WERE BOTH LEVELS SAME
     6634   01 01FBB    68801FE1              BCR,8    DISIMP#J          BRANCH IF YES
     6635   01 01FBC    6A602809              #PRINT,1,1 ERRORMSG,C2
            01 01FBD    EA6003CD
            01 01FBE    0160C2CC A
            01 01FBF    6A602832
     6636   01 01FC0    72BA0008 A            LB,RB    R8,X5             FIND IF LEVELS WERE 01 OR 10
     6637   01 01FC1    21B00001 A            CI,RB    1                     IN BINARY PATTERN OF PAIR
     6638   01 01FC2    68301FD5              BE       DISIMP#H          BRANCH IF 01
     6639                            *
     6640                            **********************************************************************
     6641                            * ENTRY HERE INDICATED FIRST LEVEL OF PAIR WAS IMPLEMENTED
     6642                            *    AND SECOND WAS NOT (ERROR CONDITION)
     6643                            **********************************************************************
     6644   01 01FC3    6A602809              #PRINT   OUTBUF            OUTPUT LEVEL AS IMPLEMENTED
            01 01FC4    EA6003CD
            01 01FC5    C000FBD0 A
            01 01FC6    6A602832
     6645   01 01FC7    32902CD7              LW,R9    ENOT              INDICATE SECOND LVL NOT IMPL.
     6646   01 01FC8    35903EF7              STW,R9   OUTBUF+3
     6647   01 01FC9    20700001 A   DISIMP#G AI,X7    1
     6648   01 01FCA    F29E03D2              LB,R9    *#VALTAB%,X7      FIND LEVEL # IN EBCDIC
     6649   01 01FCB    75983EF6              STB,R9   OUTBUF+2,X4
     6650   01 01FCC    6A602809              #PRINT   OUTBUF                LEVEL IMPL. MESSAGE
            01 01FCD    EA6003CD
            01 01FCE    C000FBD0 A
            01 01FCF    6A602832
     6651   01 01FD0    6A602809              #PRINT   UPSPACE,C2
            01 01FD1    EA6003CD
            01 01FD2    C200B1BC A
            01 01FD3    6A602832
     6652   01 01FD4    68001FF0              B        DISIMP#K
     6653                            *
     6654                            **********************************************************************
     6655                            * ENTRY HERE INDICATES FIRST LEVEL OF PAIR WAS NOT IMPLEMENTED
     6656                            *      BUT SECOND WAS IMPLEMENTED
     6657                            **********************************************************************
     6658   01 01FD5    32902CD7     DISIMP#H LW,R9    ENOT              INDICATE LEVEL NOT IMPLEMENTED
     6659   01 01FD6    35903EF7              STW,R9   OUTBUF+3
     6660   01 01FD7    F29E03D2              LB,R9    *#VALTAB%,X7      FIND LEVEL # IN EBCDIC
     6661   01 01FD8    75983EF6              STB,R9   OUTBUF+2,X4
     6662   01 01FD9    2290005C A            LI,R9    '*'
     6663   01 01FDA    759A3EF6              STB,R9   OUTBUF+2,X5
     6664   01 01FDB    6A602809              #PRINT   OUTBUF                LEVEL IMPL. MESSAGE
            01 01FDC    EA6003CD
            01 01FDD    C000FBD0 A
            01 01FDE    6A602832
     6665   01 01FDF    35903EF7              STW,R9   OUTBUF+3
     6666   01 01FE0    68001FC9              B        DISIMP#G          GO TO SECOND LEVEL MESSAGE
     6667                            *
     6668                            **********************************************************************
     6669                            * ENTRY HERE INDICATES BOTH LEVELS IN PAIR AGREE ON
     6670                            *        IMPLEMENTATION
     6671                            **********************************************************************
     6672   01 01FE1    72BA0008 A   DISIMP#J LB,RB    R8,X5             ARE THEY BOTH IMPLEMENTED
     6673   01 01FE2    69301FE5              BNEZ     %+3               BRANCH IF YES
     6674   01 01FE3    32902CD7              LW,R9    ENOT
     6675   01 01FE4    35903EF7              STW,R9   OUTBUF+3          INDICATE NOT IMPLEMENTED
     6676   01 01FE5    20400001 A            AI,X4    1
     6677   01 01FE6    72902CBF              LB,R9    ECOMMA            FIND EBCDIC COMMA
     6678   01 01FE7    75983EF6              STB,R9   OUTBUF+2,X4
     6679   01 01FE8    20700001 A            AI,X7    1
     6680   01 01FE9    20400001 A            AI,X4    1
     6681   01 01FEA    F29E03D2              LB,R9    *#VALTAB%,X7      FIND LEVEL # IN EBCDIC
     6682   01 01FEB    75983EF6              STB,R9   OUTBUF+2,X4          AND SET IN MESSAGE
     6683   01 01FEC    6A602809              #PRINT   OUTBUF            OUTPUT LEVEL IMPLEMENTED MESSAGE
            01 01FED    EA6003CD
            01 01FEE    C000FBD0 A
            01 01FEF    6A602832
     6684                            **********************************************************************
     6685                            *  ENTER HERE AFTER DISPLAY OF EACH LEVEL
     6686                            **********************************************************************
     6687                            *
     6688   01 01FF0    20700001 A   DISIMP#K AI,X7    1                 CHECK IF ALL LEVELS COMPLETE
     6689   01 01FF1    22900000 A            LI,R9    0
     6690   01 01FF2    759A0008 A            STB,R9   R8,X5             ZERO THE STATUS OF LAST MODULE
     6691   01 01FF3    21200000 A            CI,GRP   0                 IS IT GROUP ZERO
     6692   01 01FF4    68301FF8              BE       %+4               BRANCH IF YES
     6693   01 01FF5    21700010 A            CI,X7    16                WAS THAT THE LAST LEVEL
     6694   01 01FF6    69101FB5              BL       DISIMP#F          LOOP IF NO
     6695   01 01FF7    68001FFA              B        DISIMP#R          CHECK NEXT GROUP IF YES
     6696   01 01FF8    2170000E A            CI,X7    14                WAS THAT THE LAST LEVEL
     6697   01 01FF9    68001FF6              B        %-3
     6698                            *
     6699                            **********************************************************************
     6700                            *   ENTER HERE AFTER DISPLAY OF EACH GROUP
     6701                            **********************************************************************
     6702                            *
     6703   01 01FFA    25F0007F A   DISIMP#R SLS,RF   -1
     6704   01 01FFB    21200000 A            CI,GRP   0                 WAS IT GROUP 0
     6705   01 01FFC    69301FFF              BNE      %+3               BRANCH IF NO
     6706   01 01FFD    25F0007F A            SLS,RF   -1
     6707   01 01FFE    20200001 A            AI,GRP   1                 SKIP NONEXIST. GROUP 1
     6708   01 01FFF    20200001 A            AI,GRP   1
     6709   01 02000    2120000F A            CI,GRP   X'F'              WAS IT LAST GROUP
     6710   01 02001    68201F8B              BLE      DISIMP#A          BRANCH IF NO
     6711   01 02002    6A602809              #PRINT   UPSPACE
            01 02003    EA6003CD
            01 02004    C000B1BC A
            01 02005    6A602832
     6712                            *
     6713   01 02006    02200000 A   DISIMP#X LCI      0
     6714   01 02007    2A002ADC              LM,0     SAVE#1            RESTORE REGISTERS
     6715   01 02008    E8000006 A            B        *LINK
     6716                            *
     6717                            *
     6718                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        DISPLAY PSD ROUTINE (DISQ)                        PAGE   60
A    6720                            *
     6721                            *
     6722                            *  THIS ROUTINE IS ENTERED BY USER KEYIN OF   DQ
     6723                            *
     6724                            *  IT DISPLAYS THE 1) INSTRUCTION IN THE INTERRUPT LOCATION(S) REQUESTED
     6725                            *                  2) THE STORED PSD (IF INST. WAS AN XPSD)
     6726                            *                  3) THE NEW PSD    (IF INSTR. WAS AN XPSD)
     6727                            *                  4) THE ADDRESS AND THE MNEMONIC OF THE HANDLING
     6728                            *                      ROUTINE ADDRESSED BY THE NEW PSD.
     6729                            *
     6730         01 02009           DISQ     EQU      %
     6731   01 02009    32A0039C              LW,LOG   #PARAM%H1         FIND PARAMETER #1
     6732   01 0200A    68302012              BEZ      DISQ#A            BRANCH IF ZERO
     6733                            *
     6734   01 0200B    21A00200 A            CI,LOG    512
     6735   01 0200C    68102084              BGE      DISQ#R            ERROR IF PARAM 1 IS OVER 511
     6736   01 0200D    3260039D              LW,LINK  #PARAM%H2         FIND PARAMETER #2
     6737   01 0200E    68302015              BEZ      DISQ#B            BRANCH IF ZERO
     6738   01 0200F    21600200 A            CI,LINK  512               SAVE PARAMETER 2 IN LINK
     6739   01 02010    68102086              BGE      DISQ#S            ERROR IF OVER 511
     6740   01 02011    68002018              B        DISQ#C
     6741                            *
     6742   01 02012    22400000 A   DISQ#A   LI,X4    0                 PARAM 1 AND 2 BOTH ZERO SO
     6743   01 02013    227001FF A            LI,X7    X'1FF'               DISPLAY ALL 512 LOCATIONS
     6744   01 02014    68002022              B        DISQ#E
     6745                            *
     6746   01 02015    22700001 A   DISQ#B   LI,X7    1                 PARAM 2 IS ZERO SO
     6747   01 02016    3240000A A            LW,X4    LOG               DISPLAY LOC. SPECIFIED BY PARAM1
     6748   01 02017    68002022              B        DISQ#E
     6749                            *
     6750   01 02018    31A00006 A   DISQ#C   CW,LOG   LINK              COMPARE PARAMETERS 1 AND 2
     6751   01 02019    68302015              BE       DISQ#B            IF PARAMS ARE = DISPLAY 1 LINE
     6752   01 0201A    6910201E              BL       DISQ#D            IF PARAM 1 IS SMALLER,BRANCH
     6753   01 0201B    32700006 A            LW,X7    LINK              SET PARAM 2 AS # OF LOCATIONS
     6754   01 0201C    3240000A A            LW,X4    LOG               SET PARAM 1 AS FIRST LOCATION
     6755   01 0201D    68002022              B        DISQ#E
     6756                            *
     6757   01 0201E    3240000A A   DISQ#D   LW,X4    LOG               SET PARAM 1 AS FIRST LOCATION
     6758   01 0201F    32700006 A            LW,X7    LINK              DIFFERENCE BETWEEN 1 AND 2
     6759   01 02020    3870000A A            SW,X7    LOG                   AS # OF LOCATIONS
     6760   01 02021    20700001 A            AI,X7    1
     6761   01 02022    6A6022A9     DISQ#E   BAL,LINK INITBUF           CLEAR BUFFER
     6762   01 02023    6A602809              #PRINT,1,1 QHDR#1          PRINT HEADERS
            01 02024    EA6003CD
            01 02025    0160C1E4 A
            01 02026    6A602832
     6763   01 02027    6A602809              #PRINT   UPSPACE
            01 02028    EA6003CD
            01 02029    C000B1BC A
            01 0202A    6A602832
     6764   01 0202B    22100009 A   DISQ#F   LOADHALF,2*(X4)+1  3,3,STRIPZ SET LOC'N INTO BUFFER ,COL. 1-3
            01 0202C    6A60230E
            01 0202D    306022EF
     6765   01 0202E    21400010 A            CI,X4    16                CHECK IF LOCN IS A GENERAL REG.
     6766   01 0202F    68102035              BGE      %+6               BRANCH IF NO
     6767   01 02030    22102C5E              LI,X1    REGXPSDS          FIND XPSD INSTRUCTION
     6768   01 02031    30100004 A            AW,X1    X4
     6769   01 02032    6A602318              LOADWORD  8,13,LOADBUF     SET INTO BUFFER COL. 6-13
            01 02033    81A022EB
     6770   01 02034    68002055              B        DISQ#H
     6771   01 02035    21400020 A            CI,X4    X'20'             IS IT LOC'N 20
     6772   01 02036    69302039              BNE      %+3               BRANCH IF NO
     6773   01 02037    22102C76              LI,X1    WA(XPSD#20)
     6774   01 02038    6800203E              B        DISQ#F1
     6775                            *
     6776   01 02039    21400021 A            CI,X4    X'21'             IS IT LOC'N 21
     6777   01 0203A    6930203D              BNE      %+3               BRANCH IF NO
     6778   01 0203B    22102C77              LI,X1    WA(XPSD#20)+1
     6779   01 0203C    6800203E              B        DISQ#F1
     6780                            *
     6781   01 0203D    32100004 A            LW,X1    X4                FIND INSTRUCTION
     6782   01 0203E    6A602318     DISQ#F1  LOADWORD  8,13,LOADBUF     SET INTO BUFFER COL. 6-13
            01 0203F    81A022EB
     6783   01 02040    F2A00001 A            LB,LOG   *X1               FIND OP CODE
     6784   01 02041    21A0000F A            CI,LOG   15                IS IT AN XPSD
     6785   01 02042    68302048              BE       DISQ#G            BRANCH IF YES
     6786   01 02043    32A02CD6              LW,LOG   ENONE
     6787   01 02044    35A03EFA              STW,LOG  OUTBUF+6          SAY NONE IN OTHER FIELDS
     6788   01 02045    35A03EFF              STW,LOG  OUTBUF+11
     6789   01 02046    35A03F03              STW,LOG  OUTBUF+15
     6790   01 02047    6800207C              B        DISQ#L
     6791                            *
     6792   01 02048    32A80000 A   DISQ#G   LW,LOG   0,X4              FIND INSTRUCTION
     6793   01 02049    4BA02CB4              AND,LOG  XFFBFFFFF         IGNORE BIT 9
     6794   01 0204A    31A02C6E              CW,LOG   TRAPXPSD          IS IT AN EXPECTED TRAP
     6795   01 0204B    69302055              BNE      DISQ#H            BRANCH IF NO
     6796   01 0204C    2210162B              LI,X1    TRAPHP            TRAP HAND ADDR. TO BUFFER
     6797   01 0204D    6A602318              LOADWORD  5,60,STRIPZ            COL. 56-60
            01 0204E    578022EF
     6798   01 0204F    32A02CD9              LW,LOG   ETRAP             HANDLER NAME TO BUFFER
     6799   01 02050    35A03F04              STW,LOG  OUTBUF+16             COL. 64-71
     6800   01 02051    32A02CD3              LW,LOG   EHAND
     6801   01 02052    35A03F05              STW,LOG  OUTBUF+17
     6802   01 02053    22101616              LI,X1    TRAPPSD           STORED PSD ADDR. TO X1
     6803   01 02054    68002071              B        DISQ#K            DISPLAY PSD'S
     6804                            *
     6805   01 02055    32A83B18     DISQ#H   LW,LOG   ACCESS,X4         FIND HANDLER NAME
     6806   01 02056    31A02B30              CW,LOG   BALSPUR           IS IT SPUR
     6807   01 02057    6930205F              BNE      %+8               BRANCH IF NO
     6808   01 02058    32A02CD8              LW,LOG   ESPUR             HANDLER NAME TO BUFFER
     6809   01 02059    35A03F05     DISQ#I   STW,LOG  OUTBUF+17              COL. 68-71
     6810   01 0205A    32A83B18              LW,LOG   ACCESS,X4         FIND HANDLER ADDRESS
     6811   01 0205B    2210000A A            LOADWORD,LOG 5,60,STRIPZ     PUT IN BUFFER COL. 56-60
            01 0205C    6A602318
            01 0205D    578022EF
     6812   01 0205E    6800206D              B        DISQ#J
     6813                            *
     6814   01 0205F    31A02B2E              CW,LOG   BALNORM           FIND HANDLER NAME
     6815   01 02060    69302063              BNE      %+3
     6816   01 02061    32A02CD5              LW,LOG   ENORM
     6817   01 02062    68002059              B        DISQ#I
     6818   01 02063    31A02B31              CW,LOG   BALTRAP
     6819   01 02064    69302069              BNE      %+5
     6820   01 02065    32A02CD8              LW,LOG   ESPUR
     6821   01 02066    35A03F04              STW,LOG  OUTBUF+16
     6822   01 02067    32A02CD9              LW,LOG   ETRAP
     6823   01 02068    68002059              B        DISQ#I
     6824   01 02069    32A02CD7              LW,LOG   ENOT
     6825   01 0206A    35A03F04              STW,LOG  OUTBUF+16
     6826   01 0206B    32A02CD4              LW,LOG   EIMPL
     6827   01 0206C    68002059              B        DISQ#I
     6828                            *
     6829   01 0206D    25400002 A   DISQ#J   SLS,X4   2                 SET UP PSD'S FOR DISPLAY
     6830   01 0206E    22103318              LI,X1    PSDS
     6831   01 0206F    30100004 A            AW,X1    X4
     6832   01 02070    2540007E A            SLS,X4   -2
     6833   01 02071    6A602318     DISQ#K   LOADWORD  8,23,LOADBUF     STORED PSD TO BUFFER
            01 02072    82E022EB
     6834   01 02073    20100001 A            AI,X1    1
     6835   01 02074    6A602318              LOADWORD  8,33,LOADBUF
            01 02075    842022EB
     6836   01 02076    20100001 A            AI,X1    1
     6837   01 02077    6A602318              LOADWORD  8,43,LOADBUF
            01 02078    856022EB
     6838   01 02079    20100001 A            AI,X1    1
     6839   01 0207A    6A602318              LOADWORD  8,53,LOADBUF
            01 0207B    86A022EB
     6840   01 0207C    6A602809     DISQ#L   #PRINT   OUTBUF            DISPLAY ONE LINE
            01 0207D    EA6003CD
            01 0207E    C000FBD0 A
            01 0207F    6A602832
     6841   01 02080    20400001 A            AI,X4    1
     6842   01 02081    6A6022A9              BAL,LINK INITBUF
     6843   01 02082    6470202B              BDR,X7   DISQ#F            LOOP IF NOT FINISHED
     6844   01 02083    6800208E              B        DISQ#X            RETURN TO USER CONTROL (IDLE)
     6845                            *
     6846                            *  ERROR ENTRIES
     6847                            *
     6848   01 02084    12A003A2     DISQ#R   LD,LOG   #PARAM1           PARAMETER 1 ERROR
     6849   01 02085    68002087              B        %+2
     6850   01 02086    12A003A4     DISQ#S   LD,LOG   #PARAM2           PARAMETER 2 ERROR
     6851   01 02087    6A601DEB              SEND     PARAMERR
            01 02088    0000C347 A
     6852   01 02089    15A03EFA              STD,LOG  OUTBUF+6
     6853   01 0208A    6A602809              #TYPE    OUTBUF            DISPLAY ERROR MESSAGE
            01 0208B    EA6003CC
            01 0208C    0000FBD0 A
            01 0208D    6A602832
     6854   01 0208E    02200010 A   DISQ#X   LCI      1
     6855   01 0208F    E80003C9              B        *#FIDLE%          RETURN TO USER CONTROL (IDLE)
     6856                            *
     6857                            *
     6858                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        ONE SECOND DELAY ROUTINE (DELAY1SEC)              PAGE   61
A    6860                            *
     6861                            *
     6862                            *  ONE SECOND DELAY ROUTINE
     6863                            ****************************
     6864                            *
     6865                            *  THIS ROUTINE EXECUTES THE RIGHT NUMBER OF BDR'S IN
     6866                            *        GENERAL REGISTER 'R0' TO PRODUCE A ONE SECOND DELAY
     6867                            *
     6868         01 02090           DELAY1SEC EQU     %
     6869   01 02090    02200000 A            LCI      0                 SAVE REGISTERS
     6870   01 02091    2B002ACC              STM,0    SAVE
     6871   01 02092    6C400045 A            RD,X4    MARGINS                 *
     6872   01 02093    2540006A A            SLS,X4   -22                    *
     6873   01 02094    4B402C7B              AND,X4   THREE
     6874   01 02095    32782C56              LW,X7    ONESECOND,X4      FIND APPROPRIATE VALUE
     6875   01 02096    12002098              LD,R0    DELAY#DW          STUFF R0,X1
     6876   01 02097    68000000 A            B        R0                BEGIN DELAY
     6877                            *
     6878                                     BOUND    8
     6879   01 02098    64700000 A   DELAY#DW BDR,X7   R0                DELAY INSTRUCTION
     6880   01 02099    6800209A              B        %+1               RETURN INSTRUCTION
     6881                            *
     6882   01 0209A    6A602809              BAL,LINK SAVE%CLKS
     6883   01 0209B    8F0003AB              XPSD,0   *#SAMPLE          CHECK FOR USER KEYIN
     6884   01 0209C    6A602832              BAL,LINK RESTORE%CLKS
     6885                            *
     6886   01 0209D    02200000 A            LCI      0                 RESTORE REGISTERS
     6887   01 0209E    2A002ACC              LM,0     SAVE
     6888   01 0209F    E8000006 A            B        *LINK             RETURN
     6889                            *
     6890                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        ERROR REPORT SUBROUTINE (EROR)                    PAGE   62
A    6892                            *
     6893                            *           E R R O R   P R I N T    S U B R O U T I N E
     6894                            ********************************************************
     6895                            *
     6896                            * ENTER WITH ERROR TYPE IN RC REGISTER
     6897                            *            RETURN ADDRESS IN THE LINK REGISTER
     6898                            *
     6899                            * THIS ROUTINE FINDS:
     6900                            *        THE TEST NUMBER IN 'TESTNO'
     6901                            *        THE PASS COUNT IN 'PASSCNT'
     6902                            *        THE ERROR COUNT IN 'ERORCNT'
     6903                            *        THE PATTERN NUMBER IN 'PATTNO'
     6904                            *        THE ERROR TYPE IN THE RC REGISTER
     6905                            *        THE INTERRUPT LOCATION IN 'LOCATION'
     6906                            *          OR THE TRAP LOCATION IN 'TRAPLOC'
     6907                            *******************************************************************
     6908                            * THIS ROUTINE CALCULATES:
     6909                            *        FIELDS 1 AND 2 OF THE ERROR LINE DEPENDENT ON ERROR TYPE
     6910                            *
     6911                            *  TYPE    FIELD     DESCRIPTION             LABELS USED
     6912                            *  ****    *****     ***********            **************
     6913                            *
     6914                            *   0X      1     HIGH PRI. ACTIVE INT.     ACTIVE
     6915                            *           2     LOCATION OF LAST INT.     LOCATION
     6916                            *           TCC  TRAP COND. CODES         CODES
     6917                            *           PSW1  STORED PSD WORD 1         RD
     6918                            *           PSW2             WORD 2         RE
     6919                            *
     6920                            *   1X      1     INT. COMMANDED STATE      GRP,LVL,LEVARMD,LEVTRIG,
     6921                            *                                           LEVENBL,LEVNINH
     6922                            *           2     PRESENT STATE OF INT. FF  GRP,LVL,READFF
     6923                            *
     6924                            *   2X      NONE
     6925                            *
     6926                            *   3X      NONE
     6927                            *   4X      1     EXPECTED TRAP INCREMENT   RD
     6928                            *           2     ACTUAL TRAP INCREMENT     'TRAPINCR'
     6929                            *
     6930                            *   5X      1     EXPECTED COUNT            EXPCOUNT
     6931                            *           2     ACTUAL COUNT              ACTCOUNT
     6932                            *
     6933                            *   6X      1     CONDITION CODES           CODES
     6934                            *           2     EXPECTED CONDITION CODES  TRAPECC
     6935                            *
     6936                            *   7X      1     EXPECTED TRAP ADDRESS     RD
     6937                            *           2     TRAPPING INSTRUCTION      RE
     6938                            *                  (HEX MACHINE CODE)
     6939                            *
     6940                            *   8X      1     EXP. PSD WORD             TRAPEPSD OR INTEPSD
     6941                            *           2     ACTUAL WORD               TRAPPSD OR PSDS AND LOCATION
     6942                            *
     6943                            *   9X      1     STARTING ADDRESS OF       RD
     6944                            *                   EXPECTED TABLE
     6945                            *           2     START ADDRESS OF ACTUAL   RE
     6946                            *                   TABLE
     6947                            *           3     SIZE OF TABLE             RF
     6948                            *           4     ADDRESS OF SAVED REGISTERS TRAPSAVE
     6949                            *
     6950                            *   AX      NONE
     6951                            *
     6952                            *   BX      1     EXPECTED STATE            RD
     6953                            *           2     PRESENT STATE             LOG
     6954                            *           3     COMMAND                   RB
     6955                            *                   B1 = WRITE DIRECT
     6956                            *                   B2 = LPSD,2 OR LPSD,3
     6957                            *                   B3 = PE INTERRUPT
     6958                            *           4     PREVIOUS STATE            RF
     6959                            *
     6960                            *   CX      NONE
     6961                            *
     6962                            *   DX      NONE
     6963                            *
     6964                            *   EX      1-4   BLANK
     6965                            *
     6966                            *   FX      1-4   BLANK
     6967                            *
     6968                            *******************************************************************
     6969                            * THIS ROUTINE STORES THE VALUES FOUND (IN EBCDIC) IN 'OUTBUF'
     6970                            *        READY FOR DISPLAY
     6971                            ********************************************************
     6972                            *
     6973                            *
     6974   01 020A0    02200000 A   EROR     LCI      0                 SAVE REGISTERS
     6975   01 020A1    2B002200              STM,0    SAVE#ERR
     6976   01 020A2    6D000041 A            WD,0     X'41'             SET ALARM
     6977   01 020A3    33102A56              MTW,1    ERORCNT           INCREMENT ERROR COUNT
     6978   01 020A4    33102A58              MTW,1    ERORTOTAL            AND TOTAL COUNT
     6979   01 020A5    70200392              LC       #SENSE            IS ERROR MESSAGE INHIBITED
     6980   01 020A6    699021FC              BCS,9    EROR#X1           EXIT IF YES
     6981   01 020A7    228FFFFD A            LI,R8    -3                SET UP FOR 4 EXPLANATIONS
     6982   01 020A8    B58003CE              STW,R8   *#ERRTEXT%           *  HDR EXPL. TO #ERRTEXT-3
     6983   01 020A9    32802B46              LW,R8    EXPL%1               *  TYPE EXPL. TO #ERRTEXT-2
     6984   01 020AA    227FFFFD A            LI,X7    -3
     6985   01 020AB    B58E03CE              STW,R8   *#ERRTEXT%,X7        *
     6986   01 020AC    3210000C A            LW,X1    RC                   *  FIELD   EXPL. TO #ERRTEXT-1
     6987   01 020AD    32822B56              LW,R8    EXPL%T#01-1,X1       *
     6988   01 020AE    227FFFFE A            LI,X7    -2
     6989   01 020AF    B58E03CE              STW,R8   *#ERRTEXT%,X7
     6990   01 020B0    2510007C A            SLS,X1   -4                   *
     6991   01 020B1    32822B47              LW,R8    EXPL%F#0,X1          *
     6992   01 020B2    227FFFFF A            LI,X7    -1
     6993   01 020B3    B58E03CE              STW,R8   *#ERRTEXT%,X7        *
     6994                            *
     6995   01 020B4    6A6022A9              BAL,LINK INITBUF           INITIALIZE BUFFER
     6996   01 020B5    32800393              LW,R8    #HDRFLG           FIND IF LAST MSG WAS ERROR
     6997   01 020B6    2180C2D5              CI,R8    ERORHD#1
     6998   01 020B7    683020C0              BE       EROR#G            BRANCH IF YES
     6999   01 020B8    6A602809              #PRINT,1,1 ERORHD#1,C2     PRINT ERROR HEADER
            01 020B9    EA6003CD
            01 020BA    0160C2D5 A
            01 020BB    6A602832
     7000   01 020BC    6A602809              #PRINT   UPSPACE
            01 020BD    EA6003CD
            01 020BE    C000B1BC A
            01 020BF    6A602832
     7001   01 020C0    3280000C A   EROR#G   LW,R8    RC                FIND ERROR TYPE
     7002   01 020C1    4B802C8E              AND,R8   XF0               MASK LEAST SIG. CHARACTER
     7003   01 020C2    22900000 A            LI,R9    0                 SET INITIAL SEARCH VALUE
     7004   01 020C3    22700010 A            LI,X7    16                SET LOOP COUNTER
     7005   01 020C4    22100000 A            LI,X1    0                 SET COMMUTATOR INDEX
     7006   01 020C5    31800009 A            CW,R8    R9                CHECK MOST SIG. CHARACTER
     7007   01 020C6    683220CA              BE       ERORCOM,X1        SELECT PROPER FORMAT
     7008   01 020C7    20900010 A            AI,R9    16                SET UP FOR NEW SEARCH
     7009   01 020C8    20100001 A            AI,X1    1
     7010   01 020C9    647020C5              BDR,X7   %-4
     7011                            *
     7012   01 020CA    680020DA     ERORCOM   B       EROR#0            ERROR  TYPE COMMUTATOR
     7013   01 020CB    680020EC              B        EROR#1
     7014   01 020CC    6800211B              B        EROR#2
     7015   01 020CD    6800211C              B        EROR#3
     7016   01 020CE    6800211D              B        EROR#4
     7017   01 020CF    68002124              B        EROR#5
     7018   01 020D0    6800212B              B        EROR#6
     7019   01 020D1    6800213A              B        EROR#7
     7020   01 020D2    68002141              B        EROR#8
     7021   01 020D3    68002157              B        EROR#9
     7022   01 020D4    68002165              B        EROR#A
     7023   01 020D5    68002166              B        EROR#B
     7024   01 020D6    680021A4              B        EROR#C
     7025   01 020D7    680021AB              B        EROR#D
     7026   01 020D8    680021B5              B        EROR#H
     7027   01 020D9    680021AC              B        EROR#F
     7028                            *
     7029   01 020DA    32802A43     EROR#0   LW,R8    ACTIVELVL         FIND ACTIVE INTERRUPT
     7030   01 020DB    691020E0              BLZ      EROR#0A           BRANCH IF NO ACTIVE INTERRUPT
     7031   01 020DC    22105489              LI,X1    HA(ACTIVELOCN)+1  FIND ADDRESS
     7032   01 020DD    6A60230E              LOADHALF 3,35,STRIPZ       SET ACTIVE LOC'N AS FIELD 1
            01 020DE    346022EF
     7033   01 020DF    680020E5              B        EROR#0B           BRANCH TO FIELD     2
     7034   01 020E0    32802CD6     EROR#0A  LW,R8    ENONE             PICK UP EBCDIC 'NONE'
     7035   01 020E1    3580230D              STW,R8   EBCBUF+3          SAVE
     7036   01 020E2    22C00004 A            BUFFER   4,35,LOADBUF      SET FIELD 1
            01 020E3    22D00023 A
            01 020E4    6A6022EB
     7037   01 020E5    221054C5     EROR#0B  LI,X1    HA(LOCATION)+1    FIND ADDRESS
     7038   01 020E6    6A60230E              LOADHALF 3,45,STRIPZ       SET LOCATION AS FIELD 2
            01 020E7    35A022EF
     7039   01 020E8    22C00003 A            BUFFER   3,18,STRIPZ       SET LOCATION
            01 020E9    22D00012 A
            01 020EA    6A6022EF
     7040                            *
     7041   01 020EB    680021B8              B        EROR#J            PICK UP OTHER FIELDS
     7042                            *
     7043                            *
     7044                            *  CALCULATE COMMANDED STATE AS FIELD 1
     7045                            *
     7046   01 020EC    22500003 A   EROR#1   LI,X5    3
     7047   01 020ED    328A2CB7              LW,R8    COMSTMSG-1,X5     LOAD A, T, E, I INTO OUTBUF
     7048   01 020EE    358A230A              STW,R8   EBCBUF,X5
     7049   01 020EF    645020ED              BDR,X5   %-2
     7050   01 020F0    22C0000A A            BUFFER   10,35,LOADBUF               COL.45-54
            01 020F1    22D00023 A
            01 020F2    6A6022EB
     7051   01 020F3    228000D5 A            LI,R8    X'D5'             GET EBCDIC N
     7052   01 020F4    3580230D              STW,R8   EBCBUF+3
     7053   01 020F5    52842A96              LH,R8    LEVARMD,GRP       CHECK IF LEVEL WAS ARMED
     7054   01 020F6    32962B36              LW,R9    LEVMASK,LVL       FIND LEVEL MASK
     7055   01 020F7    4B800009 A            AND,R8   9
     7056   01 020F8    693020FC              BNEZ     %+4               YES,SKIP N
     7057   01 020F9    22C00001 A            BUFFER   1,25,LOADBUF      NO, LOAD N
            01 020FA    22D00019 A
            01 020FB    6A6022EB
     7058   01 020FC    52842AA6              LH,R8    LEVTRIG,GRP
     7059   01 020FD    4B800009 A            AND,R8   9                 CHECK IF LEVEL WAS TRIG.
     7060   01 020FE    69302102              BNEZ     %+4               YES, SKIP N
     7061   01 020FF    22C00001 A            BUFFER   1,28,LOADBUF      NO, LOAD N
            01 02100    22D0001C A
            01 02101    6A6022EB
     7062   01 02102    52842A9E              LH,R8    LEVENBL,GRP
     7063   01 02103    4B800009 A            AND,R8   9                 CHECK IF LEVEL WAS ENBLD.
     7064   01 02104    69302108              BNEZ     %+4               YES, SKIP N
     7065   01 02105    22C00001 A            BUFFER   1,31,LOADBUF      NO, LOAD N
            01 02106    22D0001F A
            01 02107    6A6022EB
     7066   01 02108    52842AB6              LH,R8    LEVNINH,GRP
     7067   01 02109    4B800009 A            AND,R8   9                 CHECK IF LEVL WAS INHIBITED
     7068   01 0210A    6830210E              BEZ      %+4               YES, SKIP N
     7069   01 0210B    22C00001 A            BUFFER   1,34,LOADBUF      NO, LOAD N
            01 0210C    22D00022 A
            01 0210D    6A6022EB
     7070                            *
     7071                            *  CALCULATE PRESENT STATE AS FIELD 2
     7072                            *
     7073         01 0210E           EROR#1A  EQU      %
     7074   01 0210E    32C02A62              LW,RC    LOCATION          LOAD GROUP/LEVEL NO.
     7075   01 0210F    21C0005F A            CI,RC    X'5F'
     7076   01 02110    69202113              BG       %+3
     7077   01 02111    20CFFFAE A            AI,RC    -X'52'
     7078   01 02112    68002114              B        %+2
     7079   01 02113    20CFFFC0 A            AI,RC    -X'40'
     7080   01 02114    6A6026FF              BAL,LINK READFF            READ FLIP FLOP STATES
     7081   01 02115    128C2CC0              LD,R8    EBC%STATE,LINK    FIND FF STATES IN EBCDIC
     7082   01 02116    1580230C              STD,R8   EBCBUF+2
     7083   01 02117    22C00008 A            BUFFER   8,45,LOADBUF      PUSH INTO OUTPUT MSG.
            01 02118    22D0002D A
            01 02119    6A6022EB
     7084                            *
     7085   01 0211A    680021B5              B        EROR#H            FIND OTHER FIELDS
     7086                            *
     7087                            *
     7088                            *
     7089   01 0211B    6A601CA6     EROR#2   BAL,LINK ABORT             ILLEGAL ERROR TYPE
     7090   01 0211C    6A601CA6     EROR#3   BAL,LINK ABORT             ILLEGAL ERROR TYPE
     7091                            *
     7092   01 0211D    22100037 A   EROR#4   LI,X1    RD**2+3           FIND ACTUAL INCREMENT IN REG. RD
     7093   01 0211E    6A602312              LOADBYTE 1,45,LOADBUF      SET INTO OUTBUF AS FIELD 2
            01 0211F    15A022EB
     7094   01 02120    2210AA4B              LI,X1    BA(TRAPINCR)+3    FIND EXPECTED INCREMENT
     7095   01 02121    6A602312              LOADBYTE 1,35,LOADBUF      SET INTO OUTBUF AS FIELD 1
            01 02122    146022EB
     7096                            *
     7097   01 02123    680021B3              B        EROR#H1           PICK UP COMMON FIELDS
     7098                            *
     7099   01 02124    2210548B     EROR#5   LI,X1    HA(ACTCOUNT)+1    FIND ACTUAL COUNT
     7100   01 02125    6A60230E              LOADHALF 2,45,STRIPZ       SET INTO OUTBUF AS FIELD     2
            01 02126    25A022EF
     7101   01 02127    221054B3              LI,X1    HA(EXPCOUNT)+1    FIND EXPECTED COUNT
     7102   01 02128    6A60230E              LOADHALF 2,35,STRIPZ       SET INTO OUTBUF AS FIELD     1
            01 02129    246022EF
     7103                            *
     7104   01 0212A    680021B5              B        EROR#H            PICK UP COMMON FIELDS
     7105                            *
     7106   01 0212B    72C02A48     EROR#6   LB,RC    CODES             FIND ACTUAL COND. CODES
     7107   01 0212C    25C0007C A            SLS,RC   -4
     7108   01 0212D    6A6028F6              BAL,LINK :BIN@EBC          CONVERT TO EBCDIC(BINARY FORMAT)
     7109   01 0212E    3560230D              STW,LINK EBCBUF+3
     7110   01 0212F    22C00004 A            BUFFER   4,45,LOADBUF      SET INTO OUTBUF AS FIELD     2
            01 02130    22D0002D A
            01 02131    6A6022EB
     7111   01 02132    72C02A8D              LB,RC    TRAPECC           FIND EXP. CONDITION CODES
     7112   01 02133    25C0007C A            SLS,RC   -4
     7113   01 02134    6A6028F6              BAL,LINK :BIN@EBC          CONVERT TO EBCDIC(BINARY FORMAT)
     7114   01 02135    3560230D              STW,LINK EBCBUF+3
     7115   01 02136    22C00004 A            BUFFER   4,35,LOADBUF      SET INTO OUTBUF AS FIELD 1
            01 02137    22D00023 A
            01 02138    6A6022EB
     7116                            *
     7117   01 02139    680021B3              B        EROR#H1           FIND COMMON FIELDS
     7118                            *
     7119         01 0213A           EROR#7   EQU      %
     7120   01 0213A    2210000D A            LI,X1    RD                SET TRAPPING INSTR. AS FIELD 1
     7121   01 0213B    6A602318              LOADWORD 8,35,LOADBUF
            01 0213C    846022EB
     7122   01 0213D    2210000E A            LI,X1    RE                FIND ADDRESS OF EXP. TRAP
     7123   01 0213E    6A602318              LOADWORD 5,45,STRIPZ       SET IT INTO OUTBUF AS FIELD 2
            01 0213F    55A022EF
     7124                            *
     7125   01 02140    680021B3              B        EROR#H1           PICK UP COMMON FIELDS
     7126                            *
     7127   01 02141    2270000F A   EROR#8   LI,X7    X'F'              FIND LS DIGIT OF 'TYPE'
     7128   01 02142    4B70000C A            AND,X7   RC
     7129   01 02143    21700002 A            CI,X7    2                 IS IT A INTERRUPT ERROR
     7130   01 02144    69202148              BG       EROR#8A           BRANCH IF YES
     7131   01 02145    328E2A8D              LW,R8    TRAPEPSD-1,X7     FIND EXPECTED STORED WORD
     7132   01 02146    329E1615              LW,R9    TRAPPSD-1,X7      FIND ACTUAL STORED WORD
     7133   01 02147    6800214E              B        EROR#8B
     7134                            *
     7135   01 02148    328E2A8D     EROR#8A  LW,R8    INTEPSD-3,X7      FIND EXPECTED STORED WORD
     7136   01 02149    32102A62              LW,X1    LOCATION          FIND ACTUAL STORED WORD
     7137   01 0214A    25100002 A            SLS,X1   2
     7138   01 0214B    20103315              AI,X1    PSDS-3
     7139   01 0214C    30100007 A            AW,X1    X7
     7140   01 0214D    32920000 A            LW,R9    0,X1              PUT IT IN R9 TEMPORARILY
     7141   01 0214E    22100008 A   EROR#8B  LI,X1    R8                SET EXP. WORD INTO OUTBUF AS PARAM.
     7142   01 0214F    6A602318              LOADWORD 8,35,LOADBUF           NUMBER 1
            01 02150    846022EB
     7143   01 02151    22100009 A            LI,X1    R9                SET ACTUAL WORD INTO OUTBUF
     7144   01 02152    6A602318              LOADWORD 8,45,LOADBUF           AS FIELD 2
            01 02153    85A022EB
     7145                            *
     7146   01 02154    21700003 A            CI,X7    3
     7147   01 02155    691021B3              BL       EROR#H1           PICK UP TRAP ERROR COMMON FIELDS
     7148   01 02156    680021B5              B        EROR#H            PICK UP INT. ERROR COMMON FIELDS
     7149                            *
     7150   01 02157    2210000E A   EROR#9   LOADWORD,RE  5,45,STRIPZ   FIND ACTUAL ADDR. AS FIELD 2 PARAM
            01 02158    6A602318
            01 02159    55A022EF
     7151   01 0215A    2210000D A            LOADWORD,RD  5,35,STRIPZ   FIND EXP. ADDR. AS FIELD 1 PARAM
            01 0215B    6A602318
            01 0215C    546022EF
     7152   01 0215D    2210000F A            LOADWORD,RF   4,55,STRIPZ  FIND TABLE SIZE AS FIELD 3
            01 0215E    6A602318
            01 0215F    46E022EF
     7153   01 02160    22801677              LI,R8    TRAPSAVE
     7154   01 02161    22100008 A            LOADWORD,R8 5,65,LOADBUF   FIND REG. SAVE ADDRESS AS FIELD 4
            01 02162    6A602318
            01 02163    582022EB
     7155                            *
     7156   01 02164    680021B3              B        EROR#H1           PICK UP COMMON FIELDS
     7157                            *
     7158   01 02165    6A601CA6     EROR#A  BAL,LINK ABORT             ILLEGAL ERROR TYPE
     7159                            *
     7160   01 02166    32C0000D A   EROR#B   LW,RC    RD                FIND EXPECTED STATE (FIELD 1)
     7161   01 02167    6A6028F6              BAL,LINK  :BIN@EBC         CONVERT TO EBCDIC
     7162   01 02168    3560230D              STW,LINK  EBCBUF+3
     7163   01 02169    22C00003 A            BUFFER   3,35,LOADBUF      PUT EXPECTED STATE IN OUTBUFFER
            01 0216A    22D00023 A
            01 0216B    6A6022EB
     7164   01 0216C    32C0000A A            LW,RC    LOG               FIND ACTUAL STATE (FIELD 2)
     7165   01 0216D    6A6028F6              BAL,LINK  :BIN@EBC         CONVERT TO EBCDIC
     7166   01 0216E    3560230D              STW,LINK  EBCBUF+3
     7167   01 0216F    22C00003 A            BUFFER   3,45,LOADBUF      PUT ACTUAL STATE IN OUTBUFFER
            01 02170    22D0002D A
            01 02171    6A6022EB
     7168   01 02172    32C0220C              LW,RC    SAVE#ERR+12
     7169   01 02173    21C000B3 A            CI,RC    X'B3'
     7170   01 02174    68302190              BE       EROR#B3
     7171   01 02175    21C000B2 A            CI,RC    X'B2'
     7172   01 02176    68302185              BE       EROR#B2
     7173   01 02177    68002178              B        EROR#B1
     7174                            *
     7175         01 02178           EROR#B1  EQU      %
     7176   01 02178    2210000B A            LOADWORD,RB   4,55,LOADBUF  SET WD COMMAND AS FIELD 3
            01 02179    6A602318
            01 0217A    46E022EB
     7177   01 0217B    2280E6C4 A            LI,R8    'WD'
     7178   01 0217C    3580230D              STW,R8   EBCBUF+3
     7179   01 0217D    22C00002 A            BUFFER   2,50,LOADBUF
            01 0217E    22D00032 A
            01 0217F    6A6022EB
     7180                            *
     7181   01 02180    32802A88              LW,R8    RETRY%FLAG        PUT * IN FIELD 3 IF THIS IS A RETRY
     7182   01 02181    69102197              BLZ      EROR#B#B
     7183   01 02182    2280005C A            LI,R8    '*'
     7184   01 02183    75803F00              STB,R8   OUTBUF+12                 *
     7185   01 02184    68002197              B        EROR#B#B
     7186                            *
     7187         01 02185           EROR#B2  EQU      %
     7188                            *
     7189   01 02185    3300220D              MTW,0    SAVE#ERR+X'D'
     7190   01 02186    69302189              BNEZ     %+3
     7191   01 02187    1280219E              LD,R8    EBC%LPSD2         SAY LPSD,2 WAS COMMAND
     7192   01 02188    6800218A              B        %+2
     7193   01 02189    128021A0              LD,R8    EBC%LPSD3         SAY LPSD,3 WAS COMMAND
     7194   01 0218A    1580230C              STD,R8   EBCBUF+2
     7195   01 0218B    22C00008 A            BUFFER   8,55,LOADBUF
            01 0218C    22D00037 A
            01 0218D    6A6022EB
     7196                            *
     7197   01 0218E    22100005 A            LI,X1    5
     7198   01 0218F    68002198              B        EROR#B#B+1
     7199                            *
     7200         01 02190           EROR#B3  EQU      %
     7201                            *
     7202   01 02190    128021A2              LD,R8    EBC%PE            COMMAND WAS ACTUAL PE INT
     7203   01 02191    1580230C              STD,R8   EBCBUF+2
     7204   01 02192    22C00008 A            BUFFER   8,55,LOADBUF
            01 02193    22D00037 A
            01 02194    6A6022EB
     7205                            *
     7206   01 02195    22100002 A            LI,X1    2
     7207   01 02196    68002198              B        %+2
     7208                            *
     7209   01 02197    32C0000F A   EROR#B#B LW,RC    RF                FIND PREVIOUS STATE
     7210   01 02198    6A6028F6              BAL,LINK  :BIN@EBC         CONVERT TO EBCDIC
     7211   01 02199    3560230D              STW,LINK  EBCBUF+3
     7212   01 0219A    22C00003 A            BUFFER   3,65,LOADBUF      PUT PREVIOUS STATE IN FIELD 4
            01 0219B    22D00041 A
            01 0219C    6A6022EB
     7213   01 0219D    680021B5              B        EROR#H
     7214                                     BOUND    8
     7215   01 0219E    D3D7E2C4 A   EBC%LPSD2  TEXT    'LPSD,2  '
            01 0219F    6BF24040 A
     7216   01 021A0    D3D7E2C4 A   EBC%LPSD3  TEXT    'LPSD,3  '
            01 021A1    6BF34040 A
     7217                            *
     7218   01 021A2    D7C540C9 A   EBC%PE   TEXT     'PE INT.'
            01 021A3    D5E34B40 A
     7219                            *
     7220                            *
     7221   01 021A4    2210000E A   EROR#C   LOADWORD,RE  8,35,LOADBUF  EXPECTED TO FIELD 1
            01 021A5    6A602318
            01 021A6    846022EB
     7222   01 021A7    2210000D A            LOADWORD,RD  8,45,LOADBUF  ACTUAL TO FIELD 2
            01 021A8    6A602318
            01 021A9    85A022EB
     7223   01 021AA    680021B5              B            EROR#H
     7224                            *
     7225   01 021AB    6A601CA6     EROR#D  BAL,LINK ABORT             ILLEGAL ERROR TYPE
     7226                            *
     7227                            *
     7228   01 021AC    21C000F1 A   EROR#F   CI,RC    X'F1'             IS IT ERROR TYPE 'F1'
     7229   01 021AD    693021B5              BNE      EROR#H            BRANCH IF NO
     7230   01 021AE    2210001C A            LI,X1    28
     7231   01 021AF    72822CDD              LB,R8    SEQMSG,X1         MOVE IN SEQUENCE MESSAGE
     7232   01 021B0    75823EFB              STB,R8   OUTBUF+7,X1
     7233   01 021B1    641021AF              BDR,X1   %-2
     7234                            *
     7235   01 021B2    680021B5              B        EROR#H            PICK UP COMMON FIELDS
     7236                            *
     7237                            *  ENTER HERE FOR COMMON TRAP ERROR ENTRIES
     7238                            *  (TEST NUMBER,SUBTEST NUMBER, ERROR COUNT, ERROR TYPE, PASS COUNT,
     7239                            *    AND LOCATION OF TRAP)
     7240                            *
     7241   01 021B3    22105527     EROR#H1  LI,X1    HA(TRAPLOC)+1     FIND TRAP LOCATION
     7242   01 021B4    680021B6              B        %+2
     7243                            *
     7244                            *  ENTER HERE FOR COMMON INTERRUPT ERROR ENTRIES
     7245                            *
     7246   01 021B5    221054C5     EROR#H   LI,X1    HA(LOCATION)+1    FIND ADDRESS
     7247   01 021B6    6A60230E              LOADHALF 3,18,STRIPZ       SET LOCATION PARAMETER
            01 021B7    324022EF
     7248   01 021B8    221007E5     EROR#J   LI,X1    HA(TESTNO)+1      FIND ADDRESS
     7249   01 021B9    6A60230E              LOADHALF 4,4,STRIPZ        SET TEST NUMBER PARAMETER
            01 021BA    408022EF
     7250   01 021BB    221003F3              LI,X1    PATTNO            FIND WORD ADDRESS
     7251   01 021BC    6A602318              LOADWORD 8,13,STRIPZ       SET PATTERN NUMBER PARAMETER
            01 021BD    81A022EF
     7252   01 021BE    22108833              LI,X1    BA(SAVE#ERR+RC)+3 FIND ERROR TYPE
     7253   01 021BF    6A602312              LOADBYTE 2,22,LOADBUF      SET TYPE PARAMETER
            01 021C0    22C022EB
     7254   01 021C1    22100042 A            LI,X1    66                SET NUMBER OF CHARACTERS TO PRINT
     7255   01 021C2    75103EF4              STB,X1   OUTBUF
     7256   01 021C3    32C0220C              LW,RC    SAVE#ERR+RC       FIND ERROR TYPE
     7257   01 021C4    21C00002 A            CI,RC    2                 IS IT A SPURIOUS INT. OR TRAP
     7258   01 021C5    692021DB              BG       EROR#K            BRANCH IF NO
     7259                            *
     7260   01 021C6    6A602809              #PRINT   OUTBUF
            01 021C7    EA6003CD
            01 021C8    C000FBD0 A
            01 021C9    6A602832
     7261   01 021CA    6A601DEB              SEND     SPUR%EROR
            01 021CB    0000C2F9 A
     7262   01 021CC    22802B0C              LI,R8    SAVE#4            FIND REGSAV ADDRESS
     7263   01 021CD    22100008 A            LOADWORD,R8  5,60,LOADBUF
            01 021CE    6A602318
            01 021CF    578022EB
     7264   01 021D0    2210220D              LOADWORD,SAVE#ERR+RD 8,33,LOADBUF FIND STORED PSW1
            01 021D1    6A602318
            01 021D2    842022EB
     7265   01 021D3    2210220E              LOADWORD,SAVE#ERR+RE 8,47,LOADBUF FIND STORED PSW2
            01 021D4    6A602318
            01 021D5    85E022EB
     7266   01 021D6    32002A48              LW,R0    CODES             FIND STORED CONDITION CODE
     7267   01 021D7    2500007C A            SLS,R0   -4
     7268   01 021D8    22100000 A            LI,X1    R0
     7269   01 021D9    6A602312              LOADBYTE 1,19,LOADBUF
            01 021DA    126022EB
     7270                            *
     7271                            *     DISPLAY THE ERROR
     7272                            *
     7273   01 021DB    6A602809     EROR#K   #PRINT   OUTBUF
            01 021DC    EA6003CD
            01 021DD    C000FBD0 A
            01 021DE    6A602832
     7274   01 021DF    2280C2D5              LI,R8    ERORHD#1
     7275   01 021E0    35800393              STW,R8   #HDRFLG           SET ERROR HEADER FLAG
     7276   01 021E1    680021E8              B        EROR#X
     7277   01 021E2    02200000 A   EROR#W   LCI      0
     7278   01 021E3    2B002200              STM,0    SAVE#ERR
     7279   01 021E4    33102A56              MTW,1    ERORCNT           INCREMENT ERROR COUNT
     7280   01 021E5    33102A58              MTW,1    ERORTOTAL            AND TOTAL COUNT
     7281   01 021E6    70200392              LC       #SENSE            IS ERROR MESSAGE INHIBITED
     7282   01 021E7    691021FC              BCS,1    EROR#X1           EXIT IF YES
     7283   01 021E8    70200392     EROR#X   LC       #SENSE            IS WAIT AFTER ERROR INHIBITED
     7284   01 021E9    692021FC              BCS,2    EROR#X1           BRANCH IF YES
     7285   01 021EA    6A602809     EROR#X2  #TYPE    UPSPACE
            01 021EB    EA6003CC
            01 021EC    0000B1BC A
            01 021ED    6A602832
     7286   01 021EE    6A602809              #TYPE,1,1 ERORHALT
            01 021EF    EA6003CC
            01 021F0    0160C2EE A
            01 021F1    6A602832
     7287   01 021F2    02200000 A            LCI      0                 RESTORE REGISTERS
     7288   01 021F3    2A002200              LM,0     SAVE#ERR
     7289   01 021F4    6D000040 A            WD,0     X'40'             RESET THE ALARM
     7290   01 021F5    6A602809              BAL,LINK SAVE%CLKS
     7291   01 021F6    8F9003CA              XPSD,9   *#RUNADDR%        TRANSFER TO GUIDE 'IDLE' STATE
     7292   01 021F7    6A602832              BAL,LINK RESTORE%CLKS
     7293   01 021F8    226FFFFF A            LI,LINK  -1
     7294   01 021F9    35602A47              STW,LINK BY%RE%CHK         BYPASS RE-ENTRY CHECK IN NEXT ROUTINE
     7295   01 021FA    6A601D06              BAL,LINK CHK:LOOP          CHECK FOR SENSE SWITCH CHANGE
     7296                            *
     7297   01 021FB    020021FB              NOP      %
     7298   01 021FC    02200000 A   EROR#X1  LCI      0                 RESTORE REGISTERS
     7299   01 021FD    2A002200              LM,0     SAVE#ERR
     7300   01 021FE    6D000040 A            WD,0     X'40'             RESET THE ALARM IF SET
     7301   01 021FF    E8000006 A            B        *LINK             RETURN
     7302                            *
     7303                                     BOUND    64
     7304   01 02200                 SAVE#ERR RES      16                REGISTER SAVE AREA
     7305                            *
     7306                                     TITLE    ;
1 C00   22:37 JUN 20,'83                         GENERATE ALL INTERRUPT PATTERN ROUTINE (GENALL)  PAGE   63
A    7308                            *
     7309                            ***********************************************************
     7310                            * GENERATE A PATTERN TO SELECT ALL INTERRUPT LEVELS
     7311                            ************************************************************
     7312                            *
     7313                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     7314                            *
     7315   01 02210    02200000 A   GENALL   LCI      0                 SAVE REGISTERS
     7316   01 02211    2B002ACC              STM,0    SAVE
     7317   01 02212    22100008 A            LI,X1    8                 SET INDEX FOR 8 WORDS
     7318   01 02213    32222ABD     GENAL#A  LW,X2    LEVIMPL-1,X1      FIND IMPLEMENTED LEVELS
     7319   01 02214    35222A95              STW,X2   LEVARMD-1,X1      SET ARM AND DISABLE PATTERN
     7320   01 02215    35222AA5              STW,X2   LEVTRIG-1,X1      SET TRIGGER PATTERN
     7321   01 02216    35222A9D              STW,X2   LEVENBL-1,X1      SET ENABLE PATTERN
     7322   01 02217    64102213              BDR,X1   GENAL#A           LOOP IF NOT FINISHED
     7323   01 02218    35102ACA              STW,X1   GRPINH            SET ZERO INHIBIT PATTERN
     7324   01 02219    02200000 A            LCI      0                 RESTORE REGISTERS
     7325   01 0221A    2A002ACC              LM,0     SAVE
     7326   01 0221B    E8000006 A            B        *LINK             EXIT
     7327                            *
     7328                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        GENERATE FIXED PATTERN ROUTINE (GENFPAT)          PAGE   64
A    7330                            *
     7331                            *
     7332                            * GENERATE FIXED PATTERN ROUTINE
     7333                            ******************************
     7334                            *
     7335                            * ENTER WITH  1. RETURN ADDRESS IN LINK REGISTER
     7336                            *             2. NUMBER OF LAST SUBTEST IN 'PATTNO'
     7337                            *
     7338                            * EXIT WITH  1.  SELECTED PATTERNS IN TABLES 'LEVARMD',
     7339                            *                 'LEVTRIG',  'LEVENBL', AND 'GRPINH'
     7340                            *            2.  'PATTNO' INCREMENTED BY 1
     7341                            *
     7342                            *
     7343   01 0221C    02200000 A   GENFPAT  LCI      0                 SAVE REGISTERS
     7344   01 0221D    2B002ACC              STM,0    SAVE
     7345   01 0221E    22200000 A            LI,X2    0
     7346   01 0221F    22700018 A            LI,X7    24                CLEAR PATTERN TABLES
     7347   01 02220    352E2A95              STW,X2   LEVARMD-1,X7           STORE ZEROS
     7348   01 02221    64702220              BDR,X7   %-1
     7349   01 02222    323003F3              LW,X3    PATTNO            FIND LAST PATTERN NO.
     7350   01 02223    36202C7F              DW,X2    SEVEN             CALCULATE TABLE DISPLACEMENT
     7351   01 02224    22400002 A            LI,X4    2
     7352   01 02225    52942C59     GENFPAT#A LH,R9   PATTLIST,X2       FIND FIXED PATTERN
     7353   01 02226    F02003D8              LC       *#COCSTATE%
     7354   01 02227    68C0222B              BCR,12   %+4               BRANCH IF NO REMOTE TERM.
     7355   01 02228    314003F8              CW,X4    COCGRP
     7356   01 02229    6930222B              BNE      %+2
     7357   01 0222A    4B9003F9              AND,R9   COCMASK           DELETE COC LEVELS
     7358   01 0222B    55982A96              STH,R9   LEVARMD,X4        CREATE EXT. GROUP ARM PATTERNS
     7359   01 0222C    20400001 A            AI,X4    1
     7360   01 0222D    2140000F A            CI,X4    15
     7361   01 0222E    68202225              BLE      GENFPAT#A         LOOP UNTIL ALL GROUPS FILLED
     7362                            *
     7363   01 0222F    4B901446              AND,R9   NOTCNTR           DISARM COUNTERS
     7364   01 02230    55902A96              STH,R9   LEVARMD           CREATE GROUP 0 PATTERN
     7365                            *
     7366   01 02231    36202C7F              DW,X2    SEVEN             CALCULATE TABLE DISPLACEMENT
     7367   01 02232    224FFFF2 A            LI,X4    -14               SET INDEX
     7368   01 02233    52942C59              LH,R9    PATTLIST,X2       FIND FIXED PATTERN
     7369   01 02234    55982AAE              STH,R9   LEVTRIG+8,X4      CREATE EXTERNAL GROUP PATTERNS
     7370   01 02235    65402234              BIR,X4   %-1               BRANCH IF NOT GROUP 1
     7371   01 02236    55902AA6              STH,R9   LEVTRIG           CREATE GROUP 0 PATTERN
     7372                            *
     7373   01 02237    36202C7F              DW,X2    SEVEN             CALCULATE TABLE DISPLACEMENT
     7374   01 02238    224FFFF2 A            LI,X4    -14               SET INDEX
     7375   01 02239    52942C59              LH,R9    PATTLIST,X2       FIND FIXED PATTERN
     7376   01 0223A    55982AA6              STH,R9   LEVENBL+8,X4      CREATE EXTERNAL GROUP PATTERNS
     7377   01 0223B    6540223A              BIR,X4   %-1               BRANCH IF NOT GROUP 1
     7378   01 0223C    55902A9E              STH,R9   LEVENBL           CREATE GROUP 0 PATTERN
     7379                            *
     7380   01 0223D    4B302C7F              AND,X3   SEVEN
     7381   01 0223E    35302ACA              STW,X3   GRPINH            CREATE INHIBIT PATTERN
     7382   01 0223F    331003F3              MTW,1    PATTNO            INCREMENT PATTERN NUMBER BY 1
     7383   01 02240    02200000 A            LCI      0                 RESTORE REGISTERS
     7384   01 02241    2A002ACC              LM,0     SAVE
     7385   01 02242    E8000006 A            B        *LINK             EXIT
     7386                            *
     7387                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        GENERATE RANDOM PATTERN ROUTINE (GENRPAT)         PAGE   65
A    7389                            *
     7390                            * GENERATE RANDOM PATTERN ROUTINE
     7391                            ***********************************
     7392                            *
     7393                            *ENTER WITH RETURN ADDRESS IN LINK REGISTER
     7394                            *           PATTERN OF GROUPS IMPLEMENTED IN 'GRPIMPL'
     7395                            *           PATTERNS PER GENERATION IN 'RPATTCNT'
     7396                            *
     7397                            *EXIT WITH RANDOM PATTERNS STORED FOR EACH IMPLEMENTED GROUP
     7398                            *           ( 'LEVARMD' THRU 'LEVENBL'+8 )
     7399                            *
     7400   01 02243    02200000 A   GENRPAT  LCI      0                 SAVE REGISTERS
     7401   01 02244    2B002ADC              STM,0    SAVE#1
     7402   01 02245    329003F3              LW,R9    PATTNO            FIND REQUESTED PATTERN -1
     7403   01 02246    31902275              CW,R9    RPATTNO           COMPARE WITH LAST RANDOM PATTERN
     7404   01 02247    69302260              BNE      GENRPATC          BRANCH IF NOT NEXT PATTERN
     7405   01 02248    33102275     GENRPATA MTW,1    RPATTNO           UPDATE RANDOM PATTERN NO.
     7406   01 02249    331003F3              MTW,1    PATTNO            UPDATE PATTERN NO.
     7407   01 0224A    32902AC9              LW,R9    GRPIMPL           FIND GROUPS IMPLEMENTED
     7408   01 0224B    22100000 A            LI,X1    0                 SET INDEX FOR GROUP 0
     7409   01 0224C    22700018 A            LI,X7    24                CLEAR PATTERN TABLES
     7410   01 0224D    351E2A95              STW,X1   LEVARMD-1,X7           STORE ZEROS
     7411   01 0224E    6470224D              BDR,X7   %-1
     7412   01 0224F    6A602932     GENRPATB BAL,LINK :RANDMX           GET TWO PATTERNS
     7413   01 02250    F02003D8              LC       *#COCSTATE%
     7414   01 02251    68C02255              BCR,12   %+4               BRANCH IF NO REMOTE TERM.
     7415   01 02252    311003F8              CW,X1    COCGRP
     7416   01 02253    69302255              BNE      %+2               BRANCH IF NOT COC EXT. GROUP
     7417   01 02254    4BE003F9              AND,RE   COCMASK           DELETE COC INT. LEVELS
     7418   01 02255    55E22A96              STH,RE   LEVARMD,X1        STORE ARM AND DISABLE PATTERN
     7419   01 02256    25E00070 A            SLS,RE   -16               SELECT NEXT PATTERN
     7420   01 02257    55E22AA6              STH,RE   LEVTRIG,X1        STORE TRIGGER PATTERN
     7421   01 02258    6A602932              BAL,LINK :RANDMX           GET PATTERN
     7422   01 02259    55E22A9E              STH,RE   LEVENBL,X1        STORE ENABLE PATTERN
     7423   01 0225A    25900001 A            SLS,R9   1                 CHECK FOR NEXT GROUP IMPLEMENTED
     7424   01 0225B    20100001 A            AI,X1    1                 INCREMENT GROUP INDEX
     7425   01 0225C    4B902CB5              AND,R9   YFFFF             SET CONDITION CODE
     7426   01 0225D    6830226C              BCR,3    GENRPATX          EXIT IF ALL GROUPS SERVICED
     7427   01 0225E    6810225A              BCR,1    %-4               SKIP IF GROUP NOT IMPLEMENTED
     7428   01 0225F    6800224F              B        GENRPATB          GENERATE PATTERNS FOR GROUP
     7429                            *
     7430                            * DETERMINE THE COUNTS IN :M1,:M2, AND :SEED IF THIS PATTERN
     7431                            *           NUMBER HAD BEEN REACHED SEQUENTIALLY
     7432                            *
     7433   01 02260    32702276     GENRPATC LW,X7    RPATTCNT          FIND GROUPS IMPL.TIMES 2
     7434   01 02261    377003F3              MW,X7    PATTNO            CALCULATE RANDOM NUMBERS TO
     7435                            *                                   BE GENERATED
     7436   01 02262    12C02272              LD,RC    M1VALUE           INITIALIZE RANDOM COUNTERS
     7437   01 02263    15C0293C              STD,RC   :M1
     7438   01 02264    32E02274              LW,RE    SEED              INITIALIZE SEED
     7439   01 02265    35E0293E              STW,RE   :SEED
     7440   01 02266    35902275              STW,R9   RPATTNO           UPDATE RANDOM PATTERN NO.
     7441   01 02267    20700001 A            AI,X7    1                 CHECK IF FINISHED
     7442   01 02268    6470226A              BDR,X7   %+2               NO, GET A NUMBER
     7443   01 02269    68002248              B        GENRPATA          YES, FIND REQUESTED PATTERN
     7444   01 0226A    6A602932              BAL,LINK :RANDMX           FIND NEXT NUMBER
     7445   01 0226B    68002268              B        %-3               CHECK AGAIN
     7446                            *
     7447   01 0226C    52802A96     GENRPATX LH,R8    LEVARMD           DISARM COUNTERS
     7448   01 0226D    4B801446              AND,R8   NOTCNTR                   *
     7449   01 0226E    55802A96              STH,R8   LEVARMD                   *
     7450   01 0226F    02200000 A            LCI      0                 RESTORE REGISTERS
     7451   01 02270    2A002ADC              LM,0     SAVE#1
     7452   01 02271    E8000006 A            B        *LINK             EXIT
     7453                            *
     7454                            *
     7455                                     BOUND    8
     7456   01 02272    12B9B0A1 A   M1VALUE  DATA     314159265         PRESET :M1 VALUE
     7457   01 02273    1033C4D7 A            DATA     271828183         PRESET :M2 VALUE
     7458   01 02274    544B2FBA A   SEED     DATA     1414213562        PRESET :SEED VALUE
     7459   01 02275    00000000 A   RPATTNO  DATA     0                 CURRENT RANDOM PATTERN NO.
     7460   01 02276    00000000 A   RPATTCNT DATA     0                 NUMBER OF IMPL. GROUPS TIMES 2
     7461                            *
     7462                            *
1 C00   22:37 JUN 20,'83     CONVERT IMPLEMENTED LEVEL PATTERNS TO EBCDIC  (IMP@EBC)              PAGE   66
A    7464                            *
     7465                            *
     7466                            *************************************************************
     7467                            * CONVERT IMPLEMENTED PATTERNS TO EBCDIC ROUTINE
     7468                            *************************************************************
     7469                            *
     7470                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     7471                            *
     7472                            *  EXIT WITH PATTERNS FROM 'LEVIMPL' TABLE CONVERTED TO EBCDIC
     7473                            *            AND STORED IN THE 'I' PARAMETER LINES, READY FOR DISPLAY
     7474                            *
     7475                            *
     7476   01 02277    02200000 A   IMP@EBC  LCI      0                 SAVE REGISTERS
     7477   01 02278    2B002ADC              STM,0    SAVE#1
     7478   01 02279    22100000 A            LI,X1    0                 SET LOCATION INDEX
     7479   01 0227A    22700005 A            LI,X7    5                 SET COUNTER FOR 5 LOOPS
     7480   01 0227B    22400000 A            LI,X4    0                 SET STORE INDEX
     7481   01 0227C    52C22ABE     IMP@E#A  LH,RC    LEVIMPL,X1        FIND IMPLEMENTED PATTERN
     7482   01 0227D    6A602900              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     7483   01 0227E    3568238A              STW,LINK PLINE#I0+2,X4     SAVE IT
     7484   01 0227F    21100000 A            CI,X1    0                 WAS THIS GROUP 0
     7485   01 02280    69302282              BNE      %+2               BRANCH IF NO
     7486   01 02281    20100001 A            AI,X1    1                 BYPASS NONEXIST.GRP. #1
     7487   01 02282    20100001 A            AI,X1    1                 INCREMENT GROUP COUNT
     7488   01 02283    20400002 A            AI,X4    2                 INDEX TO NEXT STORE LOCATION
     7489   01 02284    6470227C              BDR,X7   IMP@E#A           LOOP IF NOT END OF PARAMETER LINE
     7490   01 02285    21100010 A            CI,X1    16                LAST LINE FINISHED
     7491   01 02286    6810228A              BGE      IMP@E#X           EXIT IF YES
     7492   01 02287    20400001 A            AI,X4    1                 INDEX TO NEXT STORE LOCATION
     7493   01 02288    22700005 A            LI,X7    5                 SET COUNTER FOR 5 LOOPS
     7494   01 02289    6800227C              B        IMP@E#A           SERVICE NEXT 5 GROUPS
     7495                            *
     7496   01 0228A    02200000 A   IMP@E#X  LCI      0                 RESTORE REGISTERS
     7497   01 0228B    2A002ADC              LM,0     SAVE#1
     7498   01 0228C    E8000006 A            B        *LINK             RETURN
     7499                            *
1 C00   22:37 JUN 20,'83     CONVERT IMPLEMENTED LEVEL PATTERNS TO HEX  (IMP@HEX)                 PAGE   67
A    7501                            *
     7502                            *
     7503                            *
     7504                            *************************************************************
     7505                            * CONVERT IMPLEMENTED PATTERNS TO HEXADECIMAL ROUTINE
     7506                            *************************************************************
     7507                            *
     7508                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     7509                            *
     7510                            *  EXIT WITH PATTERNS FROM PARAMETER I LINES CONVERTED TO HEX.
     7511                            *            AND STORED IN 'LEVIMPL' PATTERN TABLE READY FOR DISPLAY
     7512                            *
     7513                            *
     7514   01 0228D    02200000 A   IMP@HEX  LCI      0                 SAVE REGISTERS
     7515   01 0228E    2B002ADC              STM,0    SAVE#1
     7516   01 0228F    22100000 A            LI,X1    0                 SET LOCATION INDEX
     7517   01 02290    22700005 A            LI,X7    5                 SET COUNTER FOR 5 LOOPS
     7518   01 02291    22400000 A            LI,X4    0                 SET STORE INDEX
     7519   01 02292    22A00000 A            LI,LOG   0
     7520   01 02293    3288238A     IMP@H#A  LW,R8    PLINE#I0+2,X4     FIND IMPLEMENTED PATTERN
     7521   01 02294    EA6003C2              #ETHCON,4 R8               CONVERT PATTERN TO HEX
            01 02295    04000020 A
     7522   01 02296    55622ABE              STH,LINK LEVIMPL,X1        SAVE IT
     7523   01 02297    21600000 A            CI,LINK  0                 SET GROUP AS IMPL. IF IT IS
     7524   01 02298    6830229A              BE       %+2
     7525   01 02299    49A22B36              OR,LOG   LEVMASK,X1
     7526   01 0229A    21100000 A            CI,X1    0                 WAS THIS GROUP 0
     7527   01 0229B    6930229D              BNE      %+2               BRANCH IF NO
     7528   01 0229C    20100001 A            AI,X1    1                 BYPASS NONEXIST.GRP. #1
     7529   01 0229D    20100001 A            AI,X1    1                 INCREMENT GROUP COUNT
     7530   01 0229E    20400002 A            AI,X4    2                 INDEX TO NEXT STORE LOCATION
     7531   01 0229F    64702293              BDR,X7   IMP@H#A           LOOP IF NOT END OF PARAMETER LINE
     7532   01 022A0    21100010 A            CI,X1    16                LAST LINE FINISHED
     7533   01 022A1    681022A5              BGE      IMP@H#X           EXIT IF YES
     7534   01 022A2    20400001 A            AI,X4    1                 INDEX TO NEXT STORE LOCATION
     7535   01 022A3    22700005 A            LI,X7    5                 SET COUNTER FOR 5 LOOPS
     7536   01 022A4    68002293              B        IMP@H#A           SERVICE NEXT 5 GROUPS
     7537                            *
     7538   01 022A5    55A02AC9     IMP@H#X  STH,LOG  GRPIMPL           LOAD 'GRPIMPL'
     7539   01 022A6    02200000 A            LCI      0                 RESTORE REGISTERS
     7540   01 022A7    2A002ADC              LM,0     SAVE#1
     7541   01 022A8    E8000006 A            B        *LINK             RETURN
     7542                            *
     7543                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        INITIALIZE OUTPUT BUFFER ROUTINE (INITBUF)        PAGE   68
A    7545                            *
     7546                            *
     7547                            *
     7548                            *
     7549                            *
     7550                            * INITIALIZE OUTPUT BUFFER ROUTINE
     7551                            **********************************
     7552                            *
     7553                            *
     7554   01 022A9    02200000 A   INITBUF  LCI      0                 SAVE REGISTERS
     7555   01 022AA    2B002ACC              STM,0    SAVE
     7556   01 022AB    22100011 A            LI,X1    17
     7557   01 022AC    32802E14              LW,R8    EBCBLNKS
     7558   01 022AD    35823EF4              STW,R8   OUTBUF,X1         STORE WORD OF EBC BLANKS
     7559   01 022AE    641022AD              BDR,X1   %-1               LOOP IF NOT LAST WORD
     7560   01 022AF    328022B7              LW,R8    BUFWD#1           SET UP FOR 72 CHARACTER OUTPUT
     7561   01 022B0    35803EF4              STW,R8   OUTBUF
     7562   01 022B1    32102ACC              LW,X1    SAVE              RESTORE INDEX
     7563   01 022B2    02200000 A            LCI      0                 RESTORE REGISTERS
     7564   01 022B3    2A002ACC              LM,0     SAVE
     7565   01 022B4    E8000006 A            B        *LINK             EXIT
     7566                            *
     7567                            *
     7568                                     BOUND    8
     7569   01 022B6    00000000 A   OUTBUFP  DATA     0                 OUTPUT BUFFER POINTER
     7570   01 022B7    47404040 A   BUFWD#1  DATA     X'47404040'       FIRST WORD OF OUTBUF
     7571                            *
     7572                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        INITIALIZE HISTORY TABLE SUBROUTINE               PAGE   69
A    7574                            *
     7575                            *
     7576                            *
     7577                            * INITIALIZE HISTORY TABLE SUBROUTINE
     7578                            *****************************************
     7579                            *
     7580                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     7581                            *
     7582                            *
     7583   01 022B8    02200000 A   INITHIST LCI      0                 SAVE REGISTERS
     7584   01 022B9    2B002ACC              STM,0    SAVE
     7585   01 022BA    22800000 A            LI,R8    0                 STORE ZEROS IN FIRST WORDS
     7586   01 022BB    221001DC A            LI,X1    476               SET INDEX
     7587   01 022BC    35823D16              STW,R8   HISTORY-2,X1
     7588   01 022BD    201FFFFF A            AI,X1    -1                CHECK IF FINISHED
     7589   01 022BE    641022BC              BDR,X1   %-2               LOOP IF NO
     7590   01 022BF    35802A89              STW,R8   SEQCNT            INITIALIZE SEQUENCE COUNTS
     7591   01 022C0    35802A5A              STW,R8   EXPSEQCT
     7592   01 022C1    2280FC18              LI,R8    BA(ILEGAL)
     7593   01 022C2    35801167              STW,R8   ILEGALP           RESET POINTER
     7594   01 022C3    02200000 A            LCI      0                 RESTORE REGISTERS
     7595   01 022C4    2A002ACC              LM,0     SAVE
     7596   01 022C5    E8000006 A            B        *LINK             EXIT IF FINISHED
     7597                            *
     7598                            *
     7599                            *
1 C00   22:37 JUN 20,'83                        INITIALIZE TABLES (INITTAB)                       PAGE   70
A    7601                            *
     7602                            *  THIS ROUTINE ZEROS OUT THE CONTENTS OF THE LEVARMD,LEVENBL,
     7603                            *        LEVTRIG,LEVEXP, AND LEVNINH TABLES
     7604                            *
     7605   01 022C6                 INITTAB  RES      0
     7606   01 022C6    02200020 A            LCI      2
     7607   01 022C7    2B002ACC              STM,0    SAVE
     7608   01 022C8    22000000 A            LI,R0    0
     7609   01 022C9    22100028 A            LI,X1    40
     7610   01 022CA    35022A95              STW,R0   LEVARMD-1,X1
     7611   01 022CB    641022CA              BDR,X1   %-1
     7612   01 022CC    02200020 A            LCI      2
     7613   01 022CD    2A002ACC              LM,0     SAVE
     7614   01 022CE    680C0000 A            B        0,LINK
     7615                            *
     7616                            *
     7617                            *
     7618                            *
     7619                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        INITIALIZE PSD TABLE (INITPSD)                    PAGE   71
A    7621                            *
     7622                            *
     7623                            *      INITIALIZE PROGRAM STATUS DOUBLEWORD TABLE
     7624                            *
     7625                            *  ENTER WITH RETURN ADDRESS IN THE LINK REGISTER
     7626                            *
     7627                            *  EXIT WITH EACH STORED PSD LOCATION SET TO ZERO
     7628                            *
     7629                            *
     7630   01 022CF    02200000 A   INITPSD  LCI      0                 SAVE REGISTERS
     7631   01 022D0    2B002ACC              STM,0    SAVE
     7632   01 022D1    680022D2              B        %+1
     7633                            *
     7634   01 022D2    22702A08              LI,X7    TABLE3+3
     7635   01 022D3    32802A42              LW,R8    OVERLAY%EXPL
     7636   01 022D4    358E0000 A            STW,R8   0,X7              CHANGE TABLE 3 EXPL. POINTER
     7637   01 022D5    20700004 A            AI,X7    4                        AND CONTINUE
     7638   01 022D6    21702A30              CI,X7    OVERLAY           UNTIL LABEL 'OVERLAY' IS REACHED
     7639   01 022D7    682022D4              BLE      %-3
     7640   01 022D8    328022D1              LW,R8    INITPSD+2
     7641   01 022D9    20800009 A            AI,R8    9
     7642   01 022DA    358022D1              STW,R8   INITPSD+2
     7643                            *
     7644   01 022DB    22700000 A            LI,X7    0                 SET INDEX TO START OF TABLE
     7645   01 022DC    22400200 A            LI,X4    512               SET COUNTER FOR 512 QUAD WORDS
     7646   01 022DD    22500000 A            LI,X5    0
     7647   01 022DE    22800000 A   INITP#A  LI,R8    0
     7648   01 022DF    22900007 A            LI,R9    7
     7649   01 022E0    25900018 A            SLS,R9   24                SET ALL INHIBITS
     7650   01 022E1    158E3318              STD,R8   PSDS,X7           STORE ZEROS IN FIRST DOUBLEWORD
     7651   01 022E2    22803B18              LI,R8    ACCESS            POINT PSD TO ACCESS TABLE
     7652   01 022E3    30800005 A            AW,R8    X5
     7653   01 022E4    158E331A              STD,R8   PSDS+2,X7
     7654   01 022E5    20700002 A            AI,X7    2                 INCREMENT INDEX TO NEXT QUAD WORD
     7655   01 022E6    20500001 A            AI,X5    1
     7656   01 022E7    644022DE              BDR,X4   INITP#A           LOOP IF NOT THRU
     7657                            *
     7658   01 022E8    02200000 A            LCI      0                 RESTORE REGISTERS
     7659   01 022E9    2B002ACC              STM,0    SAVE
     7660   01 022EA    E8000006 A            B        *LINK             RETURN
     7661                            *
     7662                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        LOAD BUFFER ROUTINE (LOADBUF OR STRIPZ)           PAGE   72
A    7664                            *
     7665                            *
     7666                            *    L O A D  B U F F E R   R O U T I N E
     7667                            *****************************************
     7668                            *
     7669                            * ENTER WITH  NUMBER OF CHARACTERS (16 MAX) IN RC REGISTER
     7670                            *            POSITION (1 TO 72) OF LEAST SIG.CHAR. IN RD REG.
     7671                            *            RETURN ADDRESS IN LINK REGISTER
     7672                            *            EBCDIC MESSAGE IN 'EBCBUF'
     7673                            *
     7674                            * ENTER AT LOADBUF FOR FULL PRINTOUT
     7675                            *          AT STRIPZ FOR PRINTOUT OF SIGNIFICANT CHARACTERS ONLY
     7676                            *
     7677                            *
     7678                            *
     7679                            * EXIT WITH MESSAGE STORED IN 'OUTBUF' AS PER POSITION SPECIFIED
     7680                            *           BY NUMBER IN RD REGISTER
     7681                            *
     7682                            *
     7683                            * ALL INDEX REGISTERS SAVED
     7684                            *
     7685                            *
     7686                            *
     7687                            *
     7688   01 022EB    02200000 A   LOADBUF  LCI      0                 SAVE REGISTERS
     7689   01 022EC    2B002ACC              STM,0    SAVE
     7690   01 022ED    3270000C A            LW,X7    RC                GET NO. OF CHARACTERS
     7691   01 022EE    680022FE              B        LOADBUFA
     7692                            *
     7693   01 022EF    02200000 A   STRIPZ   LCI      0                 SAVE REGISTERS
     7694   01 022F0    2B002ACC              STM,0    SAVE
     7695   01 022F1    3270000C A            LW,X7    RC                SET LOOP INDEX
     7696   01 022F2    22100010 A            LI,X1    16                COMPUTE LOCATION INDEX
     7697   01 022F3    3810000C A            SW,X1    RC
     7698   01 022F4    7282230A     STRIPZ#A LB,R8    EBCBUF,X1         FIND MOST SIG. CHARACTER
     7699   01 022F5    218000F0 A            CI,R8    X'F0'
     7700   01 022F6    693022FE              BNEZ     LOADBUFA          CONTINUE IF NOT ZERO
     7701   01 022F7    20100001 A            AI,X1    1
     7702   01 022F8    647022F4              BDR,X7   STRIPZ#A          LOOP IF IT IS ZERO
     7703   01 022F9    228000F0 A            LI,R8    X'F0'             LOAD ONE EBCDIC ZERO
     7704   01 022FA    2240FBD0              LI,X4    BA(OUTBUF)
     7705   01 022FB    3040000D A            AW,X4    RD
     7706   01 022FC    75880000 A            STB,R8   0,X4
     7707   01 022FD    68002306              B        LOADBUFX          EXIT IF ALL ZEROS
     7708                            *
     7709   01 022FE    2240FBD0     LOADBUFA LI,X4    BA(OUTBUF)        COMPUTE BYTE ADDRESS
     7710   01 022FF    3040000D A            AW,X4    RD
     7711   01 02300    2210000F A            LI,X1    15                SET FIND INDEX
     7712   01 02301    7282230A     LOADBUFB LB,R8    EBCBUF,X1         FIND CHARACTER
     7713   01 02302    75880000 A            STB,R8   0,X4              STORE CHARACTER
     7714   01 02303    204FFFFF A            AI,X4    -1                DECREMENT STORAGE LOC.
     7715   01 02304    201FFFFF A            AI,X1    -1                SELECT NEXT CHARACTER
     7716   01 02305    64702301              BDR,X7   LOADBUFB          BRANCH IF  NOT FINISHED
     7717   01 02306    02200000 A   LOADBUFX LCI      0                 RESTORE REGISTERS
     7718   01 02307    2A002ACC              LM,0     SAVE
     7719   01 02308    E8000006 A            B        *LINK             EXIT
     7720                            *
     7721                            *
     7722                                     BOUND    8
     7723   01 0230A                 EBCBUF   RES      4                 CHARACTERS TO BE STORED
     7724                            *
     7725                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        LOAD WORD/HALFWORD/BYTE ROUTINE                   PAGE   73
A    7727                            *
     7728                            *  THESE ROUTINES LOAD HEX CHARACTERS FROM THE LOCATION SPECIFIED
     7729                            *        IN REGISTER X1, CONVERT THEM TO EBCDIC, AND LOAD THEM
     7730                            *        INTO THE OUTPUT BUFFER WITH THE LEAST SIG. CHAR. IN
     7731                            *        THE POSITION SPECIFIED BY BITS 4-10 OF THE NUMBER IN THE
     7732                            *        ADDRESS SPECIFIED BY THE LINK REG.  THE NUMBER OF CHARACTERS
     7733                            *        LOADED IS IN BITS 0-3.  THE LOADING SUBROUTINE ADDRESS IS IN
     7734                            *        BITS 11-31.
     7735                            *
     7736   01 0230E    02200000 A   LOADH    LCI      0                 SAVE REGISTERS
     7737   01 0230F    2B002ADC              STM,0    SAVE#1
     7738   01 02310    52C20000 A            LH,RC    0,X1              HEX CHARACTERS TO REG. RC
     7739   01 02311    68002315              B        %+4
     7740   01 02312    02200000 A   LOADB    LCI      0                 SAVE REGISTERS
     7741   01 02313    2B002ADC              STM,0    SAVE#1
     7742   01 02314    72C20000 A            LB,RC    0,X1
     7743   01 02315    6A602900              BAL,LINK  :HEX@EBC         CONVERT TO EBCDIC
     7744   01 02316    3560230D              STW,LINK EBCBUF+3
     7745   01 02317    6800231F              B        LOADW#A
     7746                            *
     7747   01 02318    02200000 A   LOADW    LCI      0                 SAVE REGISTERS
     7748   01 02319    2B002ADC              STM,0    SAVE#1
     7749   01 0231A    32C20000 A            LW,RC    0,X1              LOAD HEX CHARACTERS
     7750   01 0231B    6A602900              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     7751   01 0231C    3560230D              STW,LINK EBCBUF+3          SAVE LEAST SIG. HALFWORD
     7752   01 0231D    6A602900              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     7753   01 0231E    3560230C              STW,LINK EBCBUF+2          SAVE M.S. HALFWORD
     7754   01 0231F    22C00000 A   LOADW#A  LI,RC    0
     7755   01 02320    B2D02AE2              LW,RD    *SAVE#1+LINK      FIND CONTENTS OF BAL+1
     7756   01 02321    25C00104 A            SLD,RC   4                 # OF CHAR. INTO RC
     7757   01 02322    25D00067 A            SLS,RD   -25               LOCATION IN BUFFER INTO RD
     7758   01 02323    B2802AE2              LW,R8     *SAVE#1+LINK     GO TO SUBROUTINE CALLED BY PROC.
     7759   01 02324    EA600008 A            BAL,LINK *8
     7760   01 02325    02200000 A            LCI      0
     7761   01 02326    2A002ADC              LM,0     SAVE#1            RESTORE REGISTERS
     7762   01 02327    680C0001 A            B        1,LINK            RETURN TO BAL+2
     7763                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        PARAMETER LINE I                                  PAGE   74
A    7765                            *************************************
     7766                            *  PARAMETER LINE I ROUTINE         *
     7767                            *************************************
     7768                            *
     7769   01 02328    00008E78              DATA     BA(PLINE#IB)              IF
     7770   01 02329    0160C3A0 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#4))
     7771   01 0232A    00008E78              DATA     BA(PLINE#IB)              IE
     7772   01 0232B    0160C3A0 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#4))
     7773   01 0232C    00008E78              DATA     BA(PLINE#IB)              ID
     7774   01 0232D    0160C3A0 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#4))
     7775   01 0232E    00008E78              DATA     BA(PLINE#IB)              IC
     7776   01 0232F    0160C3A0 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#4))
     7777   01 02330    00008E78              DATA     BA(PLINE#IB)              IB
     7778   01 02331    0160C3A0 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#4))
     7779   01 02332    00008E4C              DATA     BA(PLINE#I6)              IA
     7780   01 02333    0160C393 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#3))
     7781   01 02334    00008E4C              DATA     BA(PLINE#I6)              I9
     7782   01 02335    0160C393 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#3))
     7783   01 02336    00008E4C              DATA     BA(PLINE#I6)              I8
     7784   01 02337    0160C393 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#3))
     7785   01 02338    00008E4C              DATA     BA(PLINE#I6)              I7
     7786   01 02339    0160C393 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#3))
     7787   01 0233A    00008E4C              DATA     BA(PLINE#I6)              I6
     7788   01 0233B    0160C393 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#3))
     7789   01 0233C    00008E20              DATA     BA(PLINE#I0)              I5
     7790   01 0233D    0160C386 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#2))
     7791   01 0233E    00008E20              DATA     BA(PLINE#I0)              I4
     7792   01 0233F    0160C386 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#2))
     7793   01 02340    00008E20              DATA     BA(PLINE#I0)              I3
     7794   01 02341    0160C386 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#2))
     7795   01 02342    00008E20              DATA     BA(PLINE#I0)              I2
     7796   01 02343    0160C386 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#2))
     7797   01 02344    00008E20              DATA     BA(PLINE#I0)              I0
     7798   01 02345    0160C386 A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#2))
     7799   01 02346    0160C37F A            GEN,8,3,21  1,3,ABSVAL(BA(IMPHD#1))   SUPPLEMENTARY HEADER
     7800   01 02347    02200000 A   PARAMI   LCI      0                 SAVE REGISTERS
     7801   01 02348    2B002AFC              STM,0    SAVE#3
     7802   01 02349    7270039B              LB,X7    #INDEX            FIND WHICH I LINE CHANGED
     7803   01 0234A    21700005 A            CI,X7    5
     7804   01 0234B    6920234E              BG       %+3               BRANCH IF NOT *I0-5
     7805   01 0234C    22200001 A            LI,GRP   1
     7806   01 0234D    68002353              B        PARAMI#A
     7807   01 0234E    2170000A A            CI,X7    10                BRANCH IF *IB-F
     7808   01 0234F    69202352              BG       %+3
     7809   01 02350    22200002 A            LI,GRP   2
     7810   01 02351    68002353              B        PARAMI#A
     7811   01 02352    22200003 A            LI,GRP   3
     7812   01 02353    32C02A69     PARAMI#A LW,RC    PLINEIN+2         VALIDATE PARAMETER FIELD
     7813   01 02354    6A602371              BAL,LINK PARAMI#V
     7814   01 02355    00000001 A            DATA     1                    FIELD BEING VALIDATED
     7815   01 02356    32C02A6B              LW,RC    PLINEIN+4         VALIDATE PARAMETER FIELD
     7816   01 02357    6A602371              BAL,LINK PARAMI#V
     7817   01 02358    00000002 A            DATA     2                    FIELD BEING VALIDATED
     7818   01 02359    32C02A6D              LW,RC    PLINEIN+6         VALIDATE PARAMETER FIELD
     7819   01 0235A    6A602371              BAL,LINK PARAMI#V
     7820   01 0235B    00000003 A            DATA     3                    FIELD BEING VALIDATED
     7821   01 0235C    32C02A6F              LW,RC    PLINEIN+8         VALIDATE PARAMETER FIELD
     7822   01 0235D    6A602371              BAL,LINK PARAMI#V
     7823   01 0235E    00000004 A            DATA     4                    FIELD BEING VALIDATED
     7824   01 0235F    32C02A71              LW,RC    PLINEIN+10        VALIDATE PARAMETER FIELD
     7825   01 02360    6A602371              BAL,LINK PARAMI#V
     7826   01 02361    00000005 A            DATA     5                    FIELD BEING VALIDATED
     7827                            *
     7828   01 02362    32400399     PARAMI#X LW,X4    #OUTPTR           FIND PARAMETER LINE
     7829   01 02363    32882347              LW,R8    PARAMI,X4
     7830   01 02364    2580007E A            SLS,R8   -2
     7831   01 02365    F2600008 A            LB,LINK  *R8               MOVE VALIDATED INPUTS INTO LINE
     7832   01 02366    729C2A67              LB,R9    PLINEIN,LINK
     7833   01 02367    F59C0008 A            STB,R9   *R8,LINK
     7834   01 02368    64602366              BDR,LINK   %-2
     7835   01 02369    6A60228D              BAL,LINK IMP@HEX           LOAD NEW LINE INTO HEX TABLE
     7836   01 0236A    6A602719              BAL,LINK READIMP           SET UP ACCESS TABLE
     7837   01 0236B    33102AC6              MTW,1    IMPLFLAG          SET IMPLEMENTATION FLAG
     7838   01 0236C    6A601D39     PARAMI#Y BAL,LINK CHK:PMI           CHECK THAT PRI. MATCHES IMPLEM.
     7839   01 0236D    02200000 A            LCI      0                 RESTORE REGISTERS
     7840   01 0236E    2A002AFC              LM,0     SAVE#3
     7841   01 0236F    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     7842   01 02370    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     7843                            *
     7844                            *************************************
     7845                            * VALIDATION CHECK ROUTINE          *
     7846                            *************************************
     7847                            *
     7848   01 02371    22100003 A   PARAMI#V LI,X1    3
     7849   01 02372    7282000C A            LB,R8    RC,X1             FIND TWO PAIRS OF LEVELS
     7850   01 02373    218000F0 A            CI,R8    X'F0'               ARE ALL UNIMPLEMENTED
     7851   01 02374    68302385              BE       PARAMI#W             EXIT IF YES
     7852   01 02375    218000F3 A            CI,R8    X'F3'               IS ONE PR. UNIMPLEMENTED
     7853   01 02376    68302385              BE       PARAMI#W             EXIT IF YES
     7854   01 02377    218000C3 A            CI,R8    X'C3'               IS ONE PR. UNIMPLEMENTED
     7855   01 02378    68302385              BE       PARAMI#W             EXIT IF YES
     7856   01 02379    218000C6 A            CI,R8    X'C6'               ARE ALL IMPLEMENTED
     7857   01 0237A    68302385              BE       PARAMI#W             EXIT IF YES
     7858                            *******************************
     7859                            *  DOES NOT VALIDATE
     7860                            *******************************
     7861   01 0237B    B2800006 A            LW,R8    *LINK             FIND BAD FIELD
     7862   01 0237C    35802A65              STW,R8   PARAM%RET
     7863   01 0237D    6A602809              #TYPE,1,1 INVAL#I
            01 0237E    EA6003CC
            01 0237F    0160C4AB A
            01 02380    6A602832
     7864   01 02381    02200000 A            LCI      0                 RESTORE REGISTERS
     7865   01 02382    2A002AFC              LM,0     SAVE#3
     7866   01 02383    46602A65              XW,LINK  PARAM%RET         FIND RETURN ADDRESS
     7867   01 02384    E8002A65              B        *PARAM%RET
     7868                            *
     7869   01 02385    201FFFFF A   PARAMI#W AI,X1    -1                WAS LAST CHARACTER VALIDATED
     7870   01 02386    68102372              BGEZ     PARAMI#V+1        BRANCH IF NO
     7871   01 02387    680C0001 A            B        1,LINK            RETURN TO BAL +2
     7872                            *
     7873                            **********************************************************************
     7874                            *  THE FOLLOWING LOCATIONS CONTAIN THE PATTERNS OF THE IMPLEMENTED
     7875                            *     LEVELS IN EBCDIC FORMAT READY FOR DISPLAY AT USERS
     7876                            *     REQUEST  (PARAMETER LINE I )
     7877                            **********************************************************************
     7878         01 02388           PLINE#I0 TEXTCS   '*I#0-5 0000    0000    0000    0000    0000'
     7879         01 02393           PLINE#I6   TEXTCS '*I#6-A 0000    0000    0000    0000    0000'
     7880         01 0239E           PLINE#IB   TEXTCS '*I#B-F 0000    0000    0000    0000    0000'
     7881                            *
     7882                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        PARAMETER LINE J ROUTINE                          PAGE   75
A    7884                            *
     7885   01 023A9    00008FD0 A            DATA     ABSVAL(BA(PLINE#J))
     7886   01 023AA    0160C3AD A            GEN,8,3,21  1,3,ABSVAL(BA(PL#JHDR))
     7887                            *
     7888   01 023AB    70200006 A   PARAMJ   LC       LINK              CHECK IF ANY CHANGES
     7889   01 023AC    683023E6              BEZ      PARAMJ#Y+2        EXIT IF NONE
     7890   01 023AD    02200000 A            LCI      0
     7891   01 023AE    2B002ACC              STM,0    SAVE              SAVE REGISTERS
     7892   01 023AF    22800000 A            LI,R8    0
     7893   01 023B0    35802A65              STW,R8   PARAM%RET         ZERO RETURN STORE
     7894   01 023B1    32802A68              LW,R8    PLINEIN+1         IS MSGDEV=COMDEV
     7895   01 023B2    318023F7              CW,R8    PLINE#J+3
     7896   01 023B3    683023BE              BE       PARAMJ#A          BRANCH IF YES
     7897   01 023B4    EA6003C2              #ETHCON,4 R8               IS DEVICE RECOG. AND AVAIL.
            01 023B5    04000020 A
     7898   01 023B6    CD000006 A            TIO,0    *LINK
     7899   01 023B7    68C023BE              BCR,12   PARAMJ#A          BRANCH IF YES
     7900   01 023B8    6A602809              #TYPE,1,1 NOTAVAIL
            01 023B9    EA6003CC
            01 023BA    0160C33D A
            01 023BB    6A602832
     7901   01 023BC    33102A65              MTW,1    PARAM%RET         SET PARAM FIELD 1 AS ERROR
     7902   01 023BD    680023E8              B        PARAMJ#E
     7903                            *
     7904                            *
     7905   01 023BE    EA6003C2     PARAMJ#A #ETHCON,1 PLINEIN+5,2      FIND CM
            01 023BF    0100A9B2
     7906   01 023C0    21600002 A            CI,LINK  2
     7907   01 023C1    682023C9              BLE      PARAMJ#B          BRANCH IF 0 THRU 2 (OK)
     7908   01 023C2    21600009 A            CI,LINK  9
     7909   01 023C3    692023C7              BG       %+4               BRANCH IF A THRU F
     7910   01 023C4    33302A65              MTW,3    PARAM%RET         SET PARAM FIELD 3 AS ERROR
     7911   01 023C5    32802A6C              LW,R8    PLINEIN+5         FIND BAD KEYIN
     7912   01 023C6    680023E8              B        PARAMJ#E
     7913                            *
     7914   01 023C7    2160000D A            CI,LINK   X'D'
     7915   01 023C8    681023C4              BGE      %-4               BRANCH IF D THRU F (ERROR)
     7916   01 023C9    32A00006 A   PARAMJ#B LW,LOG   LINK              SAVE CM IN LOG REGISTER
     7917                            *
     7918                            *
     7919                            *
     7920   01 023CA    726023F4     PARAMJ#X LB,LINK  PLINE#J           COPY UPDATED LINE
     7921   01 023CB    728C2A67              LB,R8    PLINEIN,LINK
     7922   01 023CC    758C23F4              STB,R8   PLINE#J,LINK
     7923   01 023CD    646023CB              BDR,LINK   %-2
     7924   01 023CE    EA6003C2              #ETHCON,4  PLINE#J+1       FIND NEW MSGDEV
            01 023CF    04008FD4
     7925   01 023D0    35600397              STW,LINK   #PRTADDR
     7926   01 023D1    EA6003C2              #ETHCON,3  PLINE#J+4,1     FIND SI COUNT
            01 023D2    03008FE1
     7927   01 023D3    356023FA              STW,LINK   SICOUNT
     7928   01 023D4    6C800045 A            RD,R8    X'45'             FIND EXISTING STATUS
     7929   01 023D5    4B8023FB              AND,R8   MARGINMASK        CLEAR MARGIN FIELDS
     7930   01 023D6    21A0000A A            CI,LOG   X'A'
     7931   01 023D7    683023DE              BE       %+7               SKIP IF FIXED AT NORMAL
     7932   01 023D8    31802C9C              CW,R8    X100000
     7933   01 023D9    694023DE              BCS,4    %+5               SKIP MSG IF NO VOLT. MARGIN
     7934   01 023DA    6A602809              #TYPE,1,1 VOLTMSG
            01 023DB    EA6003CC
            01 023DC    0160C43E A
            01 023DD    6A602832
     7935   01 023DE    21A00002 A            CI,LOG   2                 IS CM A FIXED MARGIN
     7936   01 023DF    682023E1              BLE      %+2               BRANCH IF YES
     7937   01 023E0    20AFFFF6 A            AI,LOG   -10               CONVERT A,B,C TO 0,1,2 RESP.
     7938   01 023E1    25A00016 A            SLS,LOG  22                ALIGN CM
     7939   01 023E2    49A00008 A            OR,LOG   R8                NEW CM TO CONTROL LINE
     7940   01 023E3    6DA00045 A            WD,LOG   X'45'             SET MARGINS
     7941   01 023E4    02200000 A   PARAMJ#Y LCI      0
     7942   01 023E5    2A002ACC              LM,0     SAVE              RESTORE REGISTERS
     7943   01 023E6    02200010 A            LCI      1                 RETURN TO SAME GO-TO ADDRESS
     7944   01 023E7    E80003C9              B        *#FIDLE%
     7945                            *
     7946         01 023E8           PARAMJ#E EQU      %
     7947   01 023E8    6A601DEB              SEND     PARAMERR
            01 023E9    0000C347 A
     7948   01 023EA    32902E14              LW,R9    EBCBLNKS
     7949   01 023EB    15803EFA              STD,R8   OUTBUF+6
     7950   01 023EC    6A602809              #TYPE    OUTBUF
            01 023ED    EA6003CC
            01 023EE    0000FBD0 A
            01 023EF    6A602832
     7951   01 023F0    02200000 A            LCI      0
     7952   01 023F1    2A002ACC              LM,0     SAVE              RESTORE REGISTERS
     7953   01 023F2    46602A65              XW,LINK   PARAM%RET        ERROR FIELD NO. TO LINK
     7954   01 023F3    E8002A65              B        *PARAM%RET
     7955                            *
     7956                            **********************************************************************
     7957                            *   THE FOLLOWING LOCATIONS CONTAIN THE CONTROL OPTIONS IN EBCDIC
     7958                            *       FORMAT READY FOR DISPLAY AT USERS REQUEST ( PARAMETER LINE J)
     7959                            **********************************************************************
     7960                            *
     7961         01 023F4           PLINE#J  TEXTCS   '*J 0002   *0001 001  0'
     7962                            *
     7963   01 023FA    00000000 A   SICOUNT  DATA     0
     7964   01 023FB    FF3FFFFF A   MARGINMASK  DATA  X'FF3FFFFF'       MASK FOR CLEARING CM
     7965                            *
     7966                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        PARAMETER LINE K                                  PAGE   76
A    7968                            *
     7969                            *************************************
     7970                            *  PARAMETER LINE K ROUTINE         *
     7971                            *************************************
     7972                            *
     7973   01 023FC    000093E0              DATA     BA(PLINE#KF)              KF
     7974   01 023FD    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7975   01 023FE    000093A4              DATA     BA(PLINE#KE)              KE
     7976   01 023FF    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7977   01 02400    00009368              DATA     BA(PLINE#KD)              KD
     7978   01 02401    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7979   01 02402    0000932C              DATA     BA(PLINE#KC)              KC
     7980   01 02403    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7981   01 02404    000092F0              DATA     BA(PLINE#KB)              KB
     7982   01 02405    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7983   01 02406    000092B4              DATA     BA(PLINE#KA)              KA
     7984   01 02407    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7985   01 02408    00009278              DATA     BA(PLINE#K9)              K9
     7986   01 02409    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7987   01 0240A    0000923C              DATA     BA(PLINE#K8)              K8
     7988   01 0240B    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7989   01 0240C    00009200              DATA     BA(PLINE#K7)              K7
     7990   01 0240D    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7991   01 0240E    000091C4              DATA     BA(PLINE#K6)              K6
     7992   01 0240F    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7993   01 02410    00009188              DATA     BA(PLINE#K5)              K5
     7994   01 02411    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7995   01 02412    0000914C              DATA     BA(PLINE#K4)              K4
     7996   01 02413    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7997   01 02414    00009110              DATA     BA(PLINE#K3)              K3
     7998   01 02415    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     7999   01 02416    000090D4              DATA     BA(PLINE#K2)              K2
     8000   01 02417    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8001   01 02418    00009098              DATA     BA(PLINE#K0)              K0
     8002   01 02419    0160C3D8 A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#2))
     8003   01 0241A    0160C3CB A            GEN,8,3,21  1,3,ABSVAL(BA(PATHD#1))    SUPP. HEADER
     8004                            *
     8005   01 0241B    70200006 A   PARAMK   LC       LINK
     8006   01 0241C    69302425              BNEZ     %+9               EXIT IF NO CHANGE
     8007   01 0241D    32400399              LW,X4    #OUTPTR           STORE THE PARAMETER LINE
     8008   01 0241E    3288241B              LW,R8    PARAMK,X4
     8009   01 0241F    2580007E A            SLS,R8   -2
     8010   01 02420    F2600008 A            LB,LINK   *R8
     8011   01 02421    729C2A67              LB,R9    PLINEIN,LINK
     8012   01 02422    F59C0008 A            STB,R9   *R8,LINK
     8013   01 02423    64602421              BDR,LINK   %-2
     8014   01 02424    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     8015   01 02425    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     8016                            *
     8017                            *
     8018                            **********************************************************************
     8019                            *  THE FOLLOWING LOCATIONS CONTAIN THE INTERRUPT PATTERNS IN EBCDIC
     8020                            *     FORMAT READY FOR DISPLAY AT USERS REQUEST (PARAMETER LINE K)
     8021                            **********************************************************************
     8022                            *
     8023                            PLINE#K0 TEXTCS   ' *K0       0000        0000        0000 ',;
     8024         01 02426                             '          0   0'
     8025   01 02434    40404040 A            TEXT     '    '
     8026                            PLINE#K2 TEXTCS   ' *K2       0000        0000        0000 ',;
     8027         01 02435                             '                  0'
     8028                            PLINE#K3 TEXTCS   ' *K3       0000        0000        0000 ',;
     8029         01 02444                             '                  0'
     8030                            PLINE#K4 TEXTCS   ' *K4       0000        0000        0000 ',;
     8031         01 02453                             '                  0'
     8032                            PLINE#K5 TEXTCS   ' *K5       0000        0000        0000 ',;
     8033         01 02462                             '                  0'
     8034                            PLINE#K6 TEXTCS   ' *K6       0000        0000        0000 ',;
     8035         01 02471                             '                  0'
     8036                            PLINE#K7 TEXTCS   ' *K7       0000        0000        0000 ',;
     8037         01 02480                             '                  0'
     8038                            PLINE#K8 TEXTCS   ' *K8       0000        0000        0000 ',;
     8039         01 0248F                             '                  0'
     8040                            PLINE#K9 TEXTCS   ' *K9       0000        0000        0000 ',;
     8041         01 0249E                             '                  0'
     8042                            PLINE#KA TEXTCS   ' *KA       0000        0000        0000 ',;
     8043         01 024AD                             '                  0'
     8044                            PLINE#KB TEXTCS   ' *KB       0000        0000        0000 ',;
     8045         01 024BC                             '                  0'
     8046                            PLINE#KC TEXTCS   ' *KC       0000        0000        0000 ',;
     8047         01 024CB                             '                  0'
     8048                            PLINE#KD TEXTCS   ' *KD       0000        0000        0000 ',;
     8049         01 024DA                             '                  0'
     8050                            PLINE#KE TEXTCS   ' *KE       0000        0000        0000 ',;
     8051         01 024E9                             '                  0'
     8052                            PLINE#KF TEXTCS   ' *KF       0000        0000        0000 ',;
     8053         01 024F8                             '                  0'
     8054                            *
     8055                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        PARAMETER LINE P                                  PAGE   77
A    8057                            *
     8058                            *
     8059                            *************************************
     8060                            *  PARAMETER LINE P ROUTINE         *
     8061                            *************************************
     8062                            *
     8063   01 02507    000094F0 A            DATA     ABSVAL(BA(PLINE#P))
     8064   01 02508    0160C3E8 A            GEN,8,3,21  1,3,ABSVAL(BA(PRIHD#1))
     8065                            *
     8066                            *  THIS ROUTINE CHECKS THE PRIORITY PARAMETER LINE FOR:
     8067                            *        1. ALL FIELDS NOT ZERO MUST BE UNIQUE
     8068                            *        2. ALL VALUES MUST BE BETWEEN 1 AND 10 (HEX)
     8069                            *        3. LOWEST VALUE MUST BE 1
     8070                            *        4. VALUES MUST BE A CONTIGUOUS SET
     8071                            *        5. ANY VALUES THAT ARE ZERO MUST ALSO BE ZERO IN THE I PLINE
     8072                            *
     8073                            *
     8074         01 02509           PARAMP   EQU      %
     8075   01 02509    02200000 A            LCI      0                 SAVE REGISTERS
     8076   01 0250A    2B002AEC              STM,0    SAVE#2
     8077   01 0250B    22700000 A            LI,X7    0
     8078   01 0250C    22400010 A            LI,X4    16
     8079   01 0250D    32882A67     PARAMP#A LW,R8    PLINEIN,X4        COUNT THE NUMBER OF NONZEROS AND
     8080   01 0250E    EA6003C2              #ETHCON,2  R8,2               SAVE RESULT IN X7. ALSO BUILD A
            01 0250F    02000022 A
     8081   01 02510    35682AFB              STW,LINK   SAVE#3-1,X4        TABLE OF HEX PRIORITY VALUES
     8082   01 02511    21600000 A            CI,LINK    0
     8083   01 02512    68302514              BE       %+2
     8084   01 02513    20700001 A            AI,X7    1
     8085   01 02514    6440250D              BDR,X4   PARAMP#A
     8086                            *
     8087   01 02515    224FFFFF A   PARAMP#B LI,X4    -1                CHECK FOR CONTIGUOUS SET OF NUMBERS
     8088   01 02516    20400001 A            AI,X4    1                     FROM 1 TO VALUE IN X7
     8089   01 02517    32882AFC              LW,R8    SAVE#3,X4
     8090   01 02518    6930251E              BNEZ     PARAMP#C
     8091   01 02519    2140000F A            CI,X4    15
     8092   01 0251A    69102516              BL       PARAMP#B+1
     8093   01 0251B    21700000 A            CI,X7    0
     8094   01 0251C    69302528              BNE      PARAMP#E
     8095   01 0251D    68002530              B        PARAMP#X          VALIDATES OK SO EXIT
     8096                            *
     8097   01 0251E    31700008 A   PARAMP#C CW,X7    R8
     8098   01 0251F    69302524              BNE      PARAMP#D
     8099   01 02520    22800000 A            LI,R8    0
     8100   01 02521    35882AFC              STW,R8   SAVE#3,X4         ZERO ENTRY WHEN MATCH IS FOUND
     8101   01 02522    207FFFFF A            AI,X7    -1
     8102   01 02523    68002515              B        PARAMP#B          SEARCH FOR ANOTHER MATCH
     8103                            *
     8104   01 02524    31700008 A   PARAMP#D CW,X7    R8                CHECK IF VALUE TOO LARGE
     8105   01 02525    69102528              BL       PARAMP#E
     8106   01 02526    2140000F A            CI,X4    15
     8107   01 02527    69102516              BL       PARAMP#B+1
     8108                            *
     8109                            *  VALIDATION ERROR
     8110                            *
     8111   01 02528    6A602809     PARAMP#E #TYPE,1,1 INVAL#P          PRINT ERROR MESSAGE
            01 02529    EA6003CC
            01 0252A    0160C59C A
            01 0252B    6A602832
     8112   01 0252C    02200000 A            LCI      0
     8113   01 0252D    2A002AEC              LM,0     SAVE#2            RESTORE REGISTERS
     8114   01 0252E    22600001 A            LI,LINK   1
     8115   01 0252F    E8002AF2              B        *SAVE#2+LINK      RE-DISPLAY PARAMETER LINE
     8116                            *
     8117                            *  VALIDATION OK - STORE PARAMETER LINE
     8118                            *
     8119   01 02530    7260253C     PARAMP#X LB,LINK   PLINE#P          FIND PLINE BYTE COUNT
     8120   01 02531    728C2A67              LB,R8     PLINEIN,LINK       AND MOVE THAT MANY BYTES
     8121   01 02532    758C253C              STB,R8   PLINE#P,LINK
     8122   01 02533    64602531              BDR,LINK   %-2
     8123                            *
     8124   01 02534    6A60268C              BAL,LINK PRI@HEX           SAVE PRIORITY VALUES IN HEX
     8125   01 02535    33102AC8              MTW,1    PRIFLAG           SET FLAG
     8126                            *
     8127   01 02536    22200000 A   PARAMP#Y LI,GRP   0
     8128   01 02537    6A601D39              BAL,LINK CHK:PMI           CHECK PRIORITY VS IMPLEMENTATION
     8129   01 02538    02200000 A            LCI      0
     8130   01 02539    2A002AEC              LM,0     SAVE#2            RESTORE REGISTERS
     8131   01 0253A    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     8132   01 0253B    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     8133                            *
     8134                            *
     8135                            *
     8136                            **********************************************************************
     8137                            *  THE FOLLOWING LOCATIONS CONTAIN THE INTERRUPT GROUP
     8138                            *       PRIORITIES IN EBCDIC FORMAT READY FOR DISPLAY AT USERS
     8139                            *       REQUEST (PARAMETER LINE P)
     8140                            **********************************************************************
     8141                            *
     8142                            *
     8143                            PLINE#P  TEXTCS   '*P   00  00  00  00  00  00  00  00  00  00  00',;
     8144         01 0253C                             '  00  00  00  00  00'
     8145                            *
     8146                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        PARAMETER LINE T                                  PAGE   78
A    8148                            *
     8149                            *
     8150                            *************************************
     8151                            *  PARAMETER LINE T (TO TEST) ROUTINE *
     8152                            ***************************************
     8153                            *
     8154         01 0254D           REPEAT   EQU      %
     8155   01 0254D    6A601CD2              BAL,LINK DISARMALL         DISABLE ALL INTERRUPTS
     8156                            *
     8157                            *  ENTER HERE TO TEST USING EXISTING PARAMETER LINE T VALUES
     8158                            *
     8159   01 0254E    22600005 A            LI,LINK   5                SET EXISTING PLINE T VALUES
     8160   01 0254F    328C2614              LW,R8     PARAMT%HEX-1,LINK    AS PROPOSED VALUES
     8161   01 02550    358C2619              STW,R8    T%SAVE-1,LINK
     8162   01 02551    6460254F              BDR,LINK  %-2
     8163   01 02552    33102A66              MTW,1    PASSCNT           INCREMENT PASS COUNT
     8164                            *
     8165   01 02553    68002568              B         PARAMT
     8166                            *
     8167                            *  THIS ROUTINE DIRECTS PROGRAM CONTROL TO THE TEST AND SUBTEST
     8168                            *      REQUESTED IN PARAMETER LINE T.
     8169                            *
     8170                            *  IT LOADS:    PATTNO = SUBTEST NUMBER
     8171                            *               TESTNO = TEST NUMBER
     8172                            *                   R9 =  MS DIGIT OF TEST NUMBER
     8173                            *                   X7 = NEXT MS DIGIT
     8174                            *                   GRP= NEXT MS DIGIT
     8175                            *                   LVL= LEAST SIG. DIGIT
     8176                            *               LOOPS = NUMBER OF LOOPS TO EXECUTE
     8177                            *               LOG   = SET IF SUBTEST FIELD WAS ZERO
     8178                            *
     8179                            *
     8180   01 02554    00009880              DATA     BA(PLINE#T)
     8181   01 02555    0160C279 A            GEN,8,3,21  1,3,ABSVAL(BA(GOTOHD))
     8182         01 02556           ALTER%T  EQU      %
     8183                            *
     8184   01 02556    35602AEC              STW,LINK   SAVE#2          SAVE ERROR RETURN ADDRESS
     8185   01 02557    EA6003C2              #ETHCON,4  PLINEIN+1       FIND STARTING TEST #
            01 02558    0400A9A0
     8186   01 02559    3560261A              STW,LINK   T%SAVE
     8187   01 0255A    EA6003C2              #ETHCON    PLINEIN+3       FIND STARTING SUBTEST #
            01 0255B    0000A9A8
     8188   01 0255C    3560261B              STW,LINK   T%SAVE+1
     8189   01 0255D    EA6003C2              #ETHCON,4  PLINEIN+6       FIND STOP TEST #
            01 0255E    0400A9B4
     8190   01 0255F    3560261C              STW,LINK   T%SAVE+2
     8191   01 02560    EA6003C2              #ETHCON    PLINEIN+8       FIND STOP SUBTEST #
            01 02561    0000A9BC
     8192   01 02562    3560261D              STW,LINK   T%SAVE+3
     8193   01 02563    EA6003C2              #ETHCON,3  PLINEIN+11,1    FIND # OF LOOPS REQUESTED
            01 02564    0300A9C9
     8194   01 02565    3560261E              STW,LINK   T%SAVE+4
     8195   01 02566    226FFFFF A            LI,LINK    -1
     8196   01 02567    3560261F              STW,LINK   T%ENTRY         SET T LINE ENTRY FLAG
     8197                            *
     8198   01 02568    22A00000 A   PARAMT   LI,LOG   0
     8199   01 02569    3280261A              LW,R8    T%SAVE            FIND START TEST # AND VALIDATE
     8200   01 0256A    2580017C A            SLD,R8   -4
     8201   01 0256B    2590007C A            SLS,R9   -4
     8202   01 0256C    72300009 A            LB,LVL   R9                LS DIGIT TO LVL REG.
     8203   01 0256D    2580017C A            SLD,R8   -4
     8204   01 0256E    2590007C A            SLS,R9   -4
     8205   01 0256F    72200009 A            LB,GRP   R9                NEXT DIGIT TO GRP REG.
     8206   01 02570    2580017C A            SLD,R8   -4
     8207   01 02571    2590007C A            SLS,R9   -4
     8208   01 02572    72700009 A            LB,X7    R9                NEXT DIGIT TO X7 REG.
     8209   01 02573    25800160 A            SLD,R8   -32               MS DIGIT TO R9
     8210   01 02574    21900000 A            CI,R9    0                 ANALYZE MS DIGIT- IS IT 0
     8211   01 02575    683025D0              BE       PARAMT#ER1        ERROR IF YES
     8212   01 02576    21700000 A            CI,X7    0                 IS NEXT MS DIGIT ZERO
     8213   01 02577    683025D0              BE       PARAMT#ER1        ERROR IF YES
     8214   01 02578    21900001 A            CI,R9    1                 IS MS DIGIT = 1
     8215   01 02579    6930257E              BNE      %+5               BRANCH IF NO
     8216   01 0257A    317025EA              CW,X7    GOTST1            IS 2ND MS DIGIT VALID
     8217   01 0257B    692025D0              BG       PARAMT#ER1        BRANCH IF NO
     8218   01 0257C    32BE25EA              LW,RB    GOTST1,X7         FIND TRANSFER ADDRESS
     8219   01 0257D    68002588              B        PARAMT#A
     8220                            *
     8221   01 0257E    21900002 A            CI,R9    2                 IS MS DIGIT = 2
     8222   01 0257F    69302584              BNE      %+5               BRANCH IF NO
     8223   01 02580    317025F3              CW,X7    GOTST2            IS 2ND MS DIGIT VALID
     8224   01 02581    692025D0              BG       PARAMT#ER1        BRANCH IF NO
     8225   01 02582    32BE25F3              LW,RB    GOTST2,X7         FIND TRANSFER ADDRESS
     8226   01 02583    683025D0              BE       PARAMT#ER1        ERROR IF NO TEST
     8227   01 02584    68002588              B        PARAMT#A
     8228                            *
     8229   01 02585    21900003 A            CI,R9    3                 IS MS DIGIT = 3
     8230   01 02586    693025D0              BNE      PARAMT#ER1        ERROR IF NO
     8231   01 02587    32B02604              LW,RB    GOTST3+1          FIND TRANSFER ADDRESS
     8232   01 02588    3260261B     PARAMT#A LW,LINK   T%SAVE+1         FIND SUBTEST # AND VALIDATE
     8233   01 02589    21600000 A            CI,LINK   0                IS SUBTEST = ZERO
     8234   01 0258A    6930258D              BNE      %+3
     8235   01 0258B    22A00001 A            LI,LOG   1                 SET PATTERN FLAG
     8236   01 0258C    22600001 A            LI,LINK   1                SET THE SUBTEST = 1
     8237   01 0258D    7280000B A            LB,R8    RB                FIND SUBTEST LIMIT
     8238   01 0258E    31600008 A            CW,LINK  R8                IS LIMIT EXCEEDED
     8239   01 0258F    692025C6              BG       PARAMT#C          BRANCH IF YES
     8240                            *
     8241                            *  ENTER HERE IF PARAMETERS ARE ACCEPTED AS CORRECT
     8242                            *
     8243   01 02590    356003F3     PARAMT#B STW,LINK   PATTNO
     8244   01 02591    22800000 A            LI,R8    0
     8245   01 02592    35802A56              STW,R8   ERORCNT
     8246   01 02593    35802A90              STW,R8   INTEPSD           ZERO EXPECTED INT. ADDRESS
     8247   01 02594    32802A66              LW,R8    PASSCNT           SET UP VARIABLE CC'S
     8248   01 02595    2580001C A            SLS,R8   28                   AS LEAST SIG BITS OF PASS #
     8249   01 02596    35802A8A              STW,R8   SETCC                     *
     8250   01 02597    4BB02C9A              AND,RB   X1FFFF
     8251   01 02598    35B02A50              STW,RB   GOTO#PSD          BUILD RETURN PSD
     8252   01 02599    3300261F              MTW,0    T%ENTRY
     8253   01 0259A    691025A0              BLZ      %+6               BRANCH IF IN PARAMT
     8254   01 0259B    6A6022CF              BAL,LINK INITPSD           INITIALIZE PSD TABLE
     8255   01 0259C    6A601168              BAL,LINK JAMXPSDS          INITIALIZE INT. AND TRAP LOC'NS
     8256   01 0259D    6A6022B8              BAL,LINK INITHIST          CLEAR HISTORY TABLE
     8257   01 0259E    6A602881              BAL,LINK SETHIGH           SET HIGH PRI. INT. TO ACTIVE
     8258   01 0259F    680025A6              B        PARAMT#B1
     8259                            *
     8260   01 025A0    3260261E              LW,LINK   T%SAVE+4         FIND # OF LOOPS
     8261   01 025A1    35602A63              STW,LINK   LOOPS           SET NEW CURRENT LOOP COUNT
     8262   01 025A2    2260000C A            LI,LINK   12
     8263   01 025A3    32BC2A66              LW,RB    PLINEIN-1,LINK      MOVE NEW PARAMETERS INTO PLINE#T
     8264   01 025A4    35BC261F              STW,RB   PLINE#T-1,LINK
     8265   01 025A5    646025A3              BDR,LINK   %-2
     8266                            *
     8267   01 025A6    32B0262B     PARAMT#B1 LW,RB   PLINE#T+11        FIND # OF LOOPS
     8268   01 025A7    35B02CEA              STW,RB   WAITING1+1
     8269                            *
     8270   01 025A8    22600005 A            LI,LINK   5
     8271   01 025A9    32BC2619              LW,RB    T%SAVE-1,LINK     MOVE HEX PARAMETERS TO PERM STORE
     8272   01 025AA    35BC2614              STW,RB   PARAMT%HEX-1,LINK
     8273   01 025AB    646025A9              BDR,LINK   %-2
     8274                            *
     8275   01 025AC    32B02615              LW,RB    PARAMT%HEX
     8276   01 025AD    35B003F2              STW,RB   TESTNO            CHANGE TEST NUMBER
     8277                            *
     8278   01 025AE    3300261F              MTW,0    T%ENTRY           IS THIS A REPEAT
     8279   01 025AF    681025BF              BGEZ     PARAMT#Y          CHECK IF LOOPS FINISHED IF YES
     8280                            *
     8281   01 025B0    3310261F              MTW,1    T%ENTRY           RESET ENTRY FLAG
     8282   01 025B1    33002AC6              MTW,0    IMPLFLAG          CHECK IF TEST 11XX WAS RUN
     8283   01 025B2    683025B5              BEZ      %+3                       BRANCH IF NO
     8284   01 025B3    33002AC8              MTW,0    PRIFLAG           CHECK IF TEST 12XX WAS RUN
     8285   01 025B4    693025B9              BNEZ     PARAMT#X                  BRANCH IF YES
     8286                            *
     8287   01 025B5    6A602809              #TYPE,1,1 RUNTESTMSG
            01 025B6    EA6003CC
            01 025B7    0160C16F A
            01 025B8    6A602832
     8288                            *
     8289         01 025B9           PARAMT#X EQU      %                 EXIT FROM ROUTINE
     8290   01 025B9    22600007 A            LI,LINK  7
     8291   01 025BA    75602A51              STB,LINK GOTO#PSD+1        SET INHIBITS IN NEW PSD
     8292   01 025BB    02200000 A            LCI      0                 SET UP NEW 'GO TO' ADDRESS
     8293   01 025BC    2B002605              STM,0    GOSAVE
     8294   01 025BD    EA6003C9              BAL,LINK   *#FIDLE%        EXIT TO SELECTED TEST
     8295   01 025BE    00002A50              DATA     GOTO#PSD             VIA IDLE ROUTINE
     8296                            *
     8297   01 025BF    32B0261E     PARAMT#Y LW,RB    T%SAVE+4          FIND IF LOOPS WERE REQUESTED
     8298   01 025C0    683025C3              BEZ      %+3                    AND BRANCH IF NO
     8299   01 025C1    32B02A63               LW,RB   LOOPS             FIND IF LOOPS COMPLETE
     8300   01 025C2    683025B9              BEZ      PARAMT#X          BRANCH IF YES
     8301                            *
     8302                            *        ENTER HERE TO RETURN DIRECTLY TO TESTING (NO HALT)
     8303                            *
     8304   01 025C3    02200000 A            LCI      0                 SET UP NEW 'GO TO' ADDRESS
     8305   01 025C4    2B002605              STM,0    GOSAVE
     8306   01 025C5    0E002A50              LPSD,0   GOTO#PSD          EXIT TO SELECTED TEST
     8307                            *
     8308                            *  ENTER HERE TO CHECK FOR POSSIBLE ERROR
     8309                            *
     8310   01 025C6    21900003 A   PARAMT#C CI,R9    3                 IS THIS THE RANDOM PAT. TEST
     8311   01 025C7    68302590              BE       PARAMT#B          NO ERROR IF YES
     8312   01 025C8    21900001 A            CI,R9    1                 IS THIS A FIXED PATTERN TEST
     8313   01 025C9    693025CE              BNE      PARAMT#ER2
     8314   01 025CA    21700007 A            CI,X7    7
     8315   01 025CB    693025CE              BNE      PARAMT#ER2
     8316   01 025CC    21600AB8 A            CI,LINK  2744
     8317   01 025CD    68202590              BLE      PARAMT#B          NO ERROR IF YES AND SUBTEST NO.
     8318                            *                                     IS NOT TOO LARGE
     8319                            *
     8320                            *************************************
     8321                            *  VALIDATION ERROR                 *
     8322                            *************************************
     8323                            *
     8324         01 025CE           PARAMT#ER2        EQU               %
     8325   01 025CE    22A00002 A            LI,LOG   2                 INDICATE ERROR IN FIELD 2
     8326   01 025CF    680025D1              B        %+2
     8327                            *
     8328   01 025D0    22A00001 A   PARAMT#ER1  LI,LOG    1
     8329   01 025D1    6A602809              #TYPE,1,1 GO#ERMSG         TYPE 'NON-EXISTANT TEST'
            01 025D2    EA6003CC
            01 025D3    0160C163 A
            01 025D4    6A602832
     8330   01 025D5    3260000A A            LW,LINK    LOG
     8331   01 025D6    3310261F              MTW,1    T%ENTRY           RESET ENTRY FLAG
     8332   01 025D7    E8002AEC              B        *SAVE#2
     8333                            *
     8334   01 025D8    6A602809     INVALTST#  #TYPE  UPSPACE
            01 025D9    EA6003CC
            01 025DA    0000B1BC A
            01 025DB    6A602832
     8335   01 025DC    6A602809                #TYPE  UPSPACE
            01 025DD    EA6003CC
            01 025DE    0000B1BC A
            01 025DF    6A602832
     8336   01 025E0    6A602809                #TYPE,1,1 INVAL#M
            01 025E1    EA6003CC
            01 025E2    0160C333 A
            01 025E3    6A602832
     8337   01 025E4    6A602809                #TYPE,1,1 GO#ERMSG
            01 025E5    EA6003CC
            01 025E6    0160C163 A
            01 025E7    6A602832
     8338   01 025E8    02200010 A            LCI      1                 USE SAME 'GO TO' ADDRESS
     8339   01 025E9    E80003C9              B        *#FIDLE%          EXIT TO IDLE STATE
     8340                            **********************************************************************
     8341                            *                                   PRE-SET CONDITIONS
     8342                            *   THE FOLLOWING LOCATIONS POINT TO THE ADDRESS OF THE START OF
     8343                            *        A PARTICULAR TEST  (ADDRESS FIELD)
     8344                            *        AND INDICATE THE NUMBER OF SUBTESTS (BYTE 0)
     8345                            *           NOTE: 0 IN BYTE 0 IS FOR GREATER THAN 255 (SEE PARAMT#C)
     8346                            *
     8347                            *
     8348   01 025EA    00000008 A   GOTST1   DATA     8                 NUMBER OF 1XXX TESTS
     8349   01 025EB    4B001174              GEN,8,7,17   75,0,GOTST11                         BYTE 0 =
     8350   01 025EC    01001284              GEN,8,7,17   1,0,GOTST12                          NUMBER OF
     8351   01 025ED    0100132F              GEN,8,7,17   1,0,GOTST13                          POSSIBLE
     8352   01 025EE    FF0013A1              GEN,8,7,17   255,0,GOTST14                        SUBTESTS
     8353   01 025EF    01001447              GEN,8,7,17   1,0,GOTST15
     8354   01 025F0    010014F9              GEN,8,7,17   1,0,GOTST16
     8355   01 025F1    00001587              GEN,8,7,17   0,0,GOTST17
     8356   01 025F2    010015B1              GEN,8,7,17  1,0,GOTST18
     8357                            *
     8358   01 025F3    0000000F A   GOTST2   DATA     15                NUMBER OF 2XXX TESTS
     8359   01 025F4    2A001687              GEN,8,7,17   42,0,GOTST21
     8360   01 025F5    010016EA              GEN,8,7,17   1,0,GOTST22
     8361   01 025F6    0F001729              GEN,8,7,17   15,0,GOTST23
     8362   01 025F7    0200178A              GEN,8,7,17   2,0,GOTST24
     8363   01 025F8    0E0017CA              GEN,8,7,17   14,0,GOTST25
     8364   01 025F9    01001885              GEN,8,7,17   1,0,GOTST26
     8365   01 025FA    00000000 A            GEN,8,7,17   0,0,0
     8366   01 025FB    100018BA              GEN,8,7,17   16,0,GOTST28
     8367   01 025FC    0700195E              GEN,8,7,17   7,0,GOTST29
     8368   01 025FD    02001A05              GEN,8,7,17   2,0,GOTST2A
     8369   01 025FE    01001A92              GEN,8,7,17   1,0,GOTST2B
     8370   01 025FF    03001ABA              GEN,8,7,17   3,0,GOTST2C
     8371   01 02600    01001B29              GEN,8,7,17   1,0,GOTST2D
     8372   01 02601    01001B48              GEN,8,7,17   1,0,GOTST2E
     8373   01 02602    01001B6E              GEN,8,7,17   1,0,GOTST2F
     8374                            *
     8375   01 02603    00000001 A   GOTST3   DATA     1                 NUMBER OF 30XX TESTS
     8376   01 02604    00001C72              GEN,8,7,17   0,0,GOTST31
     8377                            *
     8378                            *
     8379   01 02605                 GOSAVE   RES      16                SAVE THE REGISTERS
     8380   01 02615                 PARAMT%HEX  RES   5                 CONTENTS OF T PARAM LINE (IN HEX)
     8381                            *
     8382   01 0261A                 T%SAVE   RES      5                 PROPOSED CONTENTS OF T (IN HEX)
     8383                            *
     8384   01 0261F    00000000 A   T%ENTRY  DATA     0                 SET TO -1 IF ROUTINE ENTERED
     8385                            *                                      FROM KEYIN OF T
     8386                            *
     8387                            *
     8388                            **********************************************************************
     8389                            *  THE FOLLOWING LOCATIONS CONTAIN THE PARAMETER FIELDS FOR LINE T
     8390                            **********************************************************************
     8391                            PLINE#T    TEXTCS ;
     8392                            *     +1      +3,+4       +6      +8,+9       +11
     8393         01 02620            '*T 1100    00000001    3101    00000FFF    0000'
     8394                            *
     8395                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        CONVERT LEVEL INTERRUPT PATTERNS TO EBCDIC        PAGE   79
A    8397                            *
     8398                            *
     8399                            *
     8400                            *************************************************************
     8401                            * CONVERT LEVEL PATTERNS TO EBCDIC ROUTINE
     8402                            *************************************************************
     8403                            *
     8404                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8405                            *
     8406                            *  EXIT WITH PATTERNS FROM LEVEL TABLES CONVERTED TO EBCDIC
     8407                            *            AND STORED IN THE K PARAMETER LINES READY FOR DISPLAY.
     8408                            *
     8409                            *
     8410   01 0262C    02200000 A   PAT@EBC  LCI      0                 SAVE REGISTERS
     8411   01 0262D    2B002ADC              STM,0    SAVE#1
     8412   01 0262E    32C02ACA              LW,RC    GRPINH            FIND INHIBIT PATTERN
     8413   01 0262F    6A6028F6              BAL,LINK :BIN@EBC          CONVERT TO EBCDIC
     8414   01 02630    35600009 A            STW,LINK R9                SAVE EBCDIC PATTERN
     8415   01 02631    35602ACB              STW,LINK GRPINH#E
     8416   01 02632    22100000 A            LI,X1    0                 SET LOCATION INDEX
     8417   01 02633    22700003 A            LI,X7    3                 SET INDEX TO BYTE 3
     8418   01 02634    22400000 A            LI,X4    0                 SET STORE INDEX
     8419   01 02635    52C22A96     PAT@E#A  LH,RC    LEVARMD,X1        FIND ARMING PATTERN
     8420   01 02636    6A602900              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     8421   01 02637    35682429              STW,LINK PLINE#K0+3,X4     SAVE IT
     8422   01 02638    52C22AA6              LH,RC    LEVTRIG,X1        FIND  TRIGGERED PATTERN
     8423   01 02639    6A602900              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     8424   01 0263A    3568242C              STW,LINK PLINE#K0+6,X4     SAVE IT
     8425   01 0263B    52C22A9E              LH,RC    LEVENBL,X1        FIND  ENABLED PATTERN
     8426   01 0263C    6A602900              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     8427   01 0263D    3568242F              STW,LINK PLINE#K0+9,X4     SAVE IT
     8428   01 0263E    21100000 A            CI,X1    0                 IS THIS GROUP 0
     8429   01 0263F    6930264A              BNE      PAT@E#B           BRANCH IF NO
     8430   01 02640    32802E14              LW,R8    EBCBLNKS          LOAD BUFFER WITH BLANKS
     8431   01 02641    25900210 A            SCS,R9   16                FIND COUNTER INHIBIT BIT
     8432   01 02642    759E0008 A            STB,R9   R8,X7             PLACE CI BIT IN BUFFER
     8433   01 02643    35802432              STW,R8   PLINE#K0+12
     8434   01 02644    25900208 A            SCS,R9   8                 FIND I/O INHIBIT BIT
     8435   01 02645    759E0008 A            STB,R9   R8,X7             PLACE II BIT IN BUFFER
     8436   01 02646    35802433              STW,R8   PLINE#K0+13
     8437   01 02647    25900208 A            SCS,R9   8                 RESTORE PATTERN
     8438   01 02648    20100002 A            AI,X1    2                 INCREMENT INDEX TO GROUP 2
     8439   01 02649    6800264E              B        PAT@E#C
     8440                            *
     8441   01 0264A    32802E14     PAT@E#B  LW,R8    EBCBLNKS          LOAD BUFFER WITH BLANKS
     8442   01 0264B    759E0008 A            STB,R9   R8,X7             PLACE EI IN BUFFER
     8443   01 0264C    35882434              STW,R8   PLINE#K0+14,X4
     8444   01 0264D    20100001 A            AI,X1    1                 INDEX TO NEXT GROUP
     8445   01 0264E    2040000F A   PAT@E#C  AI,X4    15                SET INDEX FOR NEXT GROUP
     8446   01 0264F    21100010 A            CI,X1    16                ARE WE FINISHED
     8447   01 02650    69102635              BL       PAT@E#A           NO, LOOP AGAIN
     8448                            *
     8449   01 02651    02200000 A            LCI      0                 RESTORE REGISTERS
     8450   01 02652    2A002ADC              LM,0     SAVE#1
     8451   01 02653    E8000006 A            B        *LINK             EXIT
     8452                            *
     8453                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        CONVERT LEVEL INTERRUPT PATTERNS TO HEX           PAGE   80
A    8455                            *
     8456                            *
     8457                            *
     8458                            *************************************************************
     8459                            * CONVERT LEVEL PATTERNS TO HEXADECIMAL ROUTINE
     8460                            *************************************************************
     8461                            *
     8462                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8463                            *
     8464                            *  EXIT WITH PATTERNS FROM THE K PARAMETER LINES CONVERTED
     8465                            *            TO HEX AND STORED IN THE LEVEL TABLES.
     8466                            *
     8467                            *
     8468                            *
     8469   01 02654    02200000 A   PAT@HEX  LCI      0
     8470   01 02655    2B002ADC              STM,0    SAVE#1
     8471   01 02656    32902ACB              LW,R9    GRPINH#E          FIND INHIBIT PATTERN
     8472   01 02657    2580037F A            SCD,R8   -1                   (IN BINARY) AND CONVERT
     8473   01 02658    25900079 A            SLS,R9   -7                   TO HEX
     8474   01 02659    2580037F A            SCD,R8   -1
     8475   01 0265A    25900079 A            SLS,R9   -7
     8476   01 0265B    2580037F A            SCD,R8   -1
     8477   01 0265C    25800063 A            SLS,R8   -29
     8478   01 0265D    35802ACA              STW,R8   GRPINH            SAVE INHIBIT PATTERN
     8479   01 0265E    22100000 A            LI,X1    0                 SET INDEX TO HALFWORD 0
     8480   01 0265F    22400000 A            LI,X4    0                 SET INDEX FOR GROUP 0
     8481   01 02660    32882429     PAT@H#A  LW,R8    PLINE#K0+3,X4     FIND ARMED PATTERN
     8482   01 02661    EA6003C2              #ETHCON,4 R8               CONVERT PATTERN TO HEX
            01 02662    04000020 A
     8483   01 02663    55622A96              STH,LINK  LEVARMD,X1       SAVE PATTERN
     8484   01 02664    3288242C              LW,R8    PLINE#K0+6,X4     FIND TRIGGERED PATTERN
     8485   01 02665    EA6003C2              #ETHCON,4 R8               CONVERT PATTERN TO HEX
            01 02666    04000020 A
     8486   01 02667    55622AA6              STH,LINK  LEVTRIG,X1       SAVE PATTERN
     8487   01 02668    3288242F              LW,R8    PLINE#K0+9,X4     FIND ENABLED PATTERN
     8488   01 02669    EA6003C2              #ETHCON,4 R8               CONVERT PATTERN TO HEX
            01 0266A    04000020 A
     8489   01 0266B    55622A9E              STH,LINK  LEVENBL,X1       SAVE PATTERN
     8490   01 0266C    21100000 A            CI,X1    0                 IS THIS GROUP 0
     8491   01 0266D    6930266F              BNE      %+2               NO,SKIP NEXT INSTRUCTION
     8492   01 0266E    20100001 A            AI,X1    1                 YES,BYPASS NONEXIST. GROUP 1
     8493   01 0266F    20100001 A            AI,X1    1                 SET INDEX TO NEXT PATTERN
     8494   01 02670    2040000F A            AI,X4    15                INDEX TO NEXT GROUP
     8495   01 02671    21100010 A            CI,X1    16                WAS THIS THE LAST GROUP
     8496   01 02672    69102660              BL       PAT@H#A           BRANCH IF NO
     8497   01 02673    02200000 A            LCI      0                 RESTORE REGISTERS
     8498   01 02674    2A002ADC              LM,0     SAVE#1
     8499   01 02675    E8000006 A            B        *LINK             RETURN
     8500                            *
     8501                            *
1 C00   22:37 JUN 20,'83                        CONVERT LEVEL INTERRUPT PATTERNS TO HEX           PAGE   81
A    8504                            *
     8505                            *  THIS ROUTINE FINDS THE HISTORY TABLE LOCATION CORRESPONDING
     8506                            *        TO THE LOCATION IN R8 AND PLACES THE BYTE ADDRESS IN X1
     8507                            *        AND IN HSTORYP
     8508                            *
     8509                            *
     8510         01 02676           POINT%HIST  EQU   %
     8511   01 02676    22107A33              LI,X1    HA(HISTORY)+3
     8512   01 02677    51820000 A            CH,R8    0,X1
     8513   01 02678    6830267B              BE       %+3               BRANCH IF MATCH IS FOUND
     8514   01 02679    20100004 A            AI,X1    4
     8515   01 0267A    68002677              B        %-3
     8516   01 0267B    201FFFFD A            AI,X1    -3
     8517   01 0267C    25100001 A            SLS,X1   1                 CONVERT TO BYTE ADDRESS
     8518   01 0267D    35101E89              STW,X1   HSTORYP
     8519   01 0267E    E8000006 A            B        *LINK
     8520                            *
     8521                            *
     8522                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        CONVERT PRIORITY TO EBCDIC                        PAGE   82
A    8524                            *
     8525                            *
     8526                            ***********************************************
     8527                            *  CONVERT PRIORITY TO EBCDIC ROUTINE
     8528                            ***********************************************
     8529                            *
     8530                            *
     8531                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8532                            *
     8533                            *
     8534                            *  EXIT WITH HEX PRIORITIES FROM 'SEQCOM' CONVERTED TO EBCDIC
     8535                            *            AND STORED IN PARAMETER LINE P
     8536                            *
     8537                            *
     8538   01 0267F    02200000 A   PRI@EBC  LCI      0                 SAVE REGISTERS
     8539   01 02680    2B002ADC              STM,0    SAVE#1
     8540   01 02681    32802E14              LW,R8    EBCBLNKS          GET EBCDIC BLANKS
     8541   01 02682    22400010 A            LI,X4    16                SET UP FOR 16 PARAMETER FIELDS
     8542   01 02683    32C8276B              LW,RC    SEQCOM-1,X4       FIND PRIORITY
     8543   01 02684    25C00068 A            SLS,RC   -24
     8544   01 02685    6A602900              BAL,LINK :HEX@EBC          CONVERT TO EBCDIC
     8545   01 02686    55800006 A            STH,R8   LINK
     8546   01 02687    3568253C              STW,LINK PLINE#P,X4        SAVE IN PARAMETER LINE P
     8547   01 02688    64402683              BDR,X4   %-5
     8548   01 02689    02200000 A            LCI      0                 RESTORE REGISTERS
     8549   01 0268A    2A002ADC              LM,0     SAVE#1
     8550   01 0268B    E8000006 A            B        *LINK             RETURN
     8551                            *
     8552                            *
     8553                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        CONVERT PRIORITY TO HEX                           PAGE   83
A    8555                            *
     8556                            *
     8557                            ***********************************************
     8558                            *  CONVERT PRIORITY TO HEX ROUTINE
     8559                            ***********************************************
     8560                            *
     8561                            *
     8562                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8563                            *
     8564                            *
     8565                            *  EXIT WITH EBCDIC PRIORITIES FROM PARAMETER LINE P
     8566                            *            CONVERTED TO HEX AND STORED IN BYTE 0 OF 'SEQCOM' TABLE
     8567                            *
     8568                            *
     8569   01 0268C    02200000 A   PRI@HEX  LCI      0                 SAVE REGISTERS
     8570   01 0268D    2B002ADC              STM,0    SAVE#1
     8571   01 0268E    2270003C A            LI,X7    60
     8572   01 0268F    22400010 A            LI,X4    16                SET UP FOR 16 PARAMETER FIELDS
     8573   01 02690    3288253C     PRI@HX#1 LW,R8    PLINE#P,X4        FIND PRIORITY
     8574   01 02691    EA6003C2              #ETHCON,2  R8,2            CONVERT TO HEX
            01 02692    02000022 A
     8575   01 02693    756E276C              STB,LINK   SEQCOM,X7
     8576   01 02694    207FFFFC A            AI,X7    -4
     8577   01 02695    64402690              BDR,X4   PRI@HX#1          LOOP IF ALL 16 NOT CONVERTED
     8578   01 02696    02200000 A            LCI      0                 RESTORE REGISTERS
     8579   01 02697    2A002ADC              LM,0     SAVE#1
     8580   01 02698    E8000006 A            B        *LINK             RETURN
     8581                            *
     8582                            *
     8583                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        READ ACTIVE INTERRUPT                             PAGE   84
A    8585                            *
     8586                            *
     8587                            *      READ HIGH PRIORITY ACTIVE INTERRUPT
     8588                            *
     8589                            *
     8590                            *  ENTER WITH THE RETURN ADDRESS IN THE LINK REGISTER
     8591                            *
     8592                            *
     8593                            *  EXIT WITH THE HIGHEST PRIORITY ACTIVE INTERRUPT IN 'ACTIVELVL'
     8594                            *                   GROUP  IN  BITS 24-27
     8595                            *                   LEVEL  IN  BITS 28-31
     8596                            *                   ( 'ACTIVE' = -1 IF NO LEVEL IS ACTIVE )
     8597                            *
     8598                            *   REGISTER USEAGE:
     8599                            *        X4 = LOOP COUNTER
     8600                            *        X5 = SEARCH GROUP # ( -1 = OVERRIDE GROUP,
     8601                            *                 0 = COUNTER ZERO GROUP, 1 = I/O GROUP, AND
     8602                            *                 2-F = EXTERNAL GROUPS 2-F
     8603                            *        X7 = SEARCH PRIORITY
     8604                            *        GRP= ACTUAL GROUP #
     8605                            *
     8606                            *
     8607   01 02699    02200000 A   READACT  LCI      0                 SAVE REGISTERS
     8608   01 0269A    2B002ACC              STM,0    SAVE
     8609   01 0269B    22700000 A            LI,X7    0                 SET PRIORITY COUNTER TO ZERO
     8610   01 0269C    32502C78     RDACT#A  LW,X5    M1                SET GROUP NUMBER TO -1
     8611   01 0269D    22400011 A            LI,X4    17                SET INDEX FOR 17 GROUPS
     8612   01 0269E    328A276C              LW,R8    SEQCOM,X5         FIND PRIORITY
     8613   01 0269F    25800068 A            SLS,R8   -24
     8614   01 026A0    31800007 A            CW,R8    X7                DOES IT MATCH
     8615   01 026A1    683026A5              BE       RDACT#B           BRANCH IF YES
     8616   01 026A2    20500001 A            AI,X5    1
     8617   01 026A3    6440269E              BDR,X4   %-5               TRY ANOTHER GROUP
     8618   01 026A4    680026C8              B        RDACT#N           NO ACTIVE INT. - EXIT
     8619                            *
     8620   01 026A5    20700001 A   RDACT#B  AI,X7    1                 INCREMENT SEARCH COUNTER
     8621   01 026A6    21500002 A            CI,X5    2                 WAS IT AN EXTERNAL GROUP
     8622   01 026A7    681026AB              BGE      RDACT#C           BRANCH IF YES
     8623   01 026A8    320A2B33              LW,R0    GRP#CNTR,X5       FIND PROPER MASK
     8624   01 026A9    22200000 A            LI,GRP   0                 SET GROUP # TO 0
     8625   01 026AA    680026AD              B        %+3
     8626                            *
     8627   01 026AB    32200005 A   RDACT#C  LW,GRP   X5                SET GROUP # FOR EXTERNAL GROUP
     8628   01 026AC    2200FFFF A            LI,R0    X'FFFF'           MASK FOR ALL LEVELS
     8629   01 026AD    6C941100 A            RD,R9    ARM:WAIT,GRP      FIND LEVELS ARMED OR WAITING
     8630   01 026AE    4B900000 A            AND,R9   R0
     8631   01 026AF    6C841200 A            RD,R8    WAIT:ACT,GRP      FIND LEVELS WAITING OR ACTIVE
     8632   01 026B0    4B800000 A            AND,R8   R0
     8633   01 026B1    4B900008 A            AND,R9   R8                DELETE ARMED LEVELS
     8634   01 026B2    48800009 A            EOR,R8   R9                DELETE WAITING LEVELS
     8635   01 026B3    683026C6              BEZ      RDACT#F           BRANCH IF NONE ACTIVE
     8636   01 026B4    22300000 A            LI,LVL   0
     8637   01 026B5    22400010 A            LI,X4    16                SET SEARCH FOR 16 LEVELS
     8638   01 026B6    25800010 A            SLS,R8   16                SHIFT PATTERN TO BIT 1
     8639   01 026B7    25800001 A   RDACT#D  SLS,R8   1                 CHECK IF LEVEL IS ACTIVE
     8640   01 026B8    698026BC              BC       RDACT#E           BRANCH IF YES
     8641   01 026B9    20300001 A            AI,LVL   1                 NO, COUNT 1
     8642   01 026BA    644026B7              BDR,X4   RDACT#D           CHECK NEXT LEVEL
     8643   01 026BB    6800269C              B        RDACT#A
     8644                            *
     8645   01 026BC    25200004 A   RDACT#E  SLS,GRP 4                  GROUP # TO BITS 24-27
     8646   01 026BD    49200003 A            OR,GRP   LVL               LEVEL # TO BITS 28-31
     8647   01 026BE    35202A43              STW,GRP  ACTIVELVL         SAVE VALUES
     8648   01 026BF    2120000F A            CI,GRP   X'F'
     8649   01 026C0    692026C3              BG       %+3               BRANCH IF EXTERNAL GROUP
     8650   01 026C1    20200052 A            AI,GRP   X'52'
     8651   01 026C2    680026C4              B        %+2
     8652                            *
     8653   01 026C3    20200040 A            AI,GRP   X'40'
     8654   01 026C4    35202A44              STW,GRP  ACTIVELOCN
     8655   01 026C5    680026CC              B        RDACT#X           EXIT
     8656   01 026C6    21700010 A   RDACT#F  CI,X7    16
     8657   01 026C7    6820269C              BLE      RDACT#A           LOOP IF NOT LAST PRIORITY
     8658                            *
     8659                            *  ENTRY HERE MEANS NO LEVELS ARE ACTIVE
     8660                            *
     8661   01 026C8    32802C78     RDACT#N  LW,R8    M1                SET ACTIVE = -1
     8662   01 026C9    35802A43              STW,R8   ACTIVELVL
     8663   01 026CA    22800000 A            LI,R8    0
     8664   01 026CB    35802A44              STW,R8   ACTIVELOCN
     8665   01 026CC    02200000 A   RDACT#X  LCI      0                 RESTORE REGISTERS
     8666   01 026CD    2A002ACC              LM,0     SAVE
     8667   01 026CE    E8000006 A            B        *LINK             RETURN
     8668                            *
     8669                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        READ EXPECTED INTERRUPTS SUBROUTINE               PAGE   85
A    8671                            *
     8672                            *
     8673                            *         R E A D    E X P E C T E D     I N T E R R U P T S
     8674                            *******************************************************************
     8675                            *
     8676                            * ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8677                            *
     8678                            *
     8679                            * EXIT WITH EXPECTED INTERRUPTS LISTED BY LEVEL IN 'LEVEXP'
     8680                            *           LEVELS NOT INHIBITED LISTED IN 'LEVNINH'
     8681                            *
     8682   01 026CF    02200000 A   READEXP  LCI      0                 SAVE REGISTERS
     8683   01 026D0    2B002ACC              STM,0    SAVE
     8684   01 026D1    22800000 A            LI,R8    0                     LOAD ALL ZERO'S
     8685   01 026D2    22100008 A            LI,X1    8                     SET INDEX FOR 8 PASSES
     8686   01 026D3    35822AB5              STW,R8   LEVNINH-1,X1          ZERO THE LOCATION
     8687   01 026D4    641026D3              BDR,X1   %-1                   LOOP IF NOT THROUGH
     8688                            *                                   ZERO THE LEVEXP TABLE
     8689   01 026D5    22100008 A            LI,X1    8                     SET INDEX FOR 8 PASSES
     8690   01 026D6    35822AAD              STW,R8   LEVEXP-1,X1          ZERO THE LOCATION
     8691   01 026D7    641026D6              BDR,X1   %-1                   LOOP IF NOT THROUGH
     8692   01 026D8    22800001 A            LI,R8    1                 MASK FOR EXTERNAL INHIBIT
     8693   01 026D9    4B802ACA              AND,R8   GRPINH            CHECK IF EXTERNAL GROUPS INHIBITED
     8694   01 026DA    693026DF              BNEZ     RDEXP#A           BRANCH IF YES
     8695   01 026DB    32802C78              LW,R8    M1                LOAD ALL ONE'S
     8696   01 026DC    22100007 A            LI,X1    7                 SET INDEX FOR 7 PASSES
     8697   01 026DD    35822AB6              STW,R8   LEVNINH,X1        SET LEVELS AS NOT INH.
     8698   01 026DE    641026DD              BDR,X1   %-1               LOOP IF NOT THROUGH
     8699   01 026DF    22800002 A   RDEXP#A  LI,R8    2                 MASK FOR I/O INHIBITS
     8700   01 026E0    4B802ACA              AND,R8   GRPINH            CHECK IF INHIBITED
     8701   01 026E1    693026E4              BNEZ     RDEXP#B           BRANCH IF YES
     8702   01 026E2    32802C9E              LW,R8    Y3C               SET GROUP 0 LEVELS 10-13
     8703   01 026E3    35802AB6              STW,R8   LEVNINH
     8704   01 026E4    22800004 A   RDEXP#B  LI,R8    4                 MASK FOR COUNTER INHIBIT
     8705   01 026E5    4B802ACA              AND,R8   GRPINH            CHECK IF INHIBITED
     8706   01 026E6    693026EA              BNEZ     RDEXP#C           BRANCH IF YES
     8707   01 026E7    32802CA4              LW,R8    Y3C0              SET GROUP 0 LEVELS 6-9
     8708   01 026E8    49802AB6              OR,R8    LEVNINH
     8709   01 026E9    35802AB6              STW,R8   LEVNINH
     8710   01 026EA    32802CB3     RDEXP#C  LW,R8    YFC00             SET GROUP 0 LEVELS 0-5
     8711   01 026EB    49802AB6              OR,R8    LEVNINH
     8712   01 026EC    4B802AC7              AND,R8   NOTHIGH           DELETE HIGH PRIORITY INT.
     8713   01 026ED    35802AB6              STW,R8   LEVNINH
     8714   01 026EE    22100008 A            LI,X1    8                 INDEX FOR 8 PASSES
     8715   01 026EF    32822A95     RDEXP#D  LW,R8    LEVARMD-1,X1      FIND ARM,DIS PATTERN
     8716   01 026F0    4B822A9D              AND,R8   LEVENBL-1,X1      ELIMINATE THOSE NOT ENABLED
     8717   01 026F1    4B822AA5              AND,R8   LEVTRIG-1,X1      ELIMINATE THOSE NOT TRIGGERED
     8718   01 026F2    4B822ABD              AND,R8   LEVIMPL-1,X1      ELIMINATE THOSE NOT IMPLEMENTED
     8719   01 026F3    4B822AB5              AND,R8   LEVNINH-1,X1      ELIMINATE THOSE INHIBITED
     8720   01 026F4    35822AAD              STW,R8   LEVEXP-1,X1       RECORD LEVELS EXPECTED
     8721   01 026F5    641026EF              BDR,X1   RDEXP#D           LOOP IF NOT THROUGH
     8722   01 026F6    02200000 A            LCI      0                 RESTORE REGISTERS
     8723   01 026F7    2A002ACC              LM,0     SAVE
     8724   01 026F8    E8000006 A            B        *LINK             EXIT
     8725                            *
     8726                            *
     8727                            *
     8728                            *
     8729                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        READ FLIP FLOP ROUTINE                            PAGE   86
A    8731                            *
     8732                            *************************
     8733                            * READ FLIP FLOP STATES *
     8734                            *************************
     8735                            *
     8736                            *  OPTION 1
     8737                            *    ENTER AT RDSTATES WITH 1. GROUP # IN REG. GRP
     8738                            *                           2. LEVEL # IN REG. LVL
     8739                            *                           3. RETURN ADDRESS IN LINK REG.
     8740                            *
     8741                            *  OPTION 2
     8742                            *    ENTER AT READFF WITH   1. GROUP# AND LEVEL# IN REG. RC
     8743                            *                           2. RETURN ADDRESS IN LINK REG.
     8744                            *
     8745                            *  EXIT WITH THE FLIP FLOP STATES OF THE SELECTED LEVEL
     8746                            *         IN BINARY IN THE LINK REGISTER AS BELOW:
     8747                            *         BIT 29 I(S)    BIT 30 I(P)           BIT 31 I(N)
     8748                            *                 0       0    DISARMED           0  DISABLED
     8749                            *                 0       1    ARMED              1  ENABLED
     8750                            *                 1       0    ACTIVE
     8751                            *                 1       1    WAITING (OR NOT IMPLEMENTED)
     8752                            *
     8753                            *
     8754   01 026F9    356026FE     RDSTATES STW,LINK READFF-1          SAVE RETURN ADDRESS
     8755   01 026FA    02200000 A            LCI      0                 SAVE REGISTERS
     8756   01 026FB    2B002ACC              STM,0    SAVE
     8757   01 026FC    68002706              B        READFF#A          SKIP GROUP AND LEVEL DECODING
     8758   01 026FD    00000000 A            DATA     0                 SUBROUTINE OUTPUT
     8759   01 026FE    00000000 A            DATA     0                 RETURN ADDRESS
     8760   01 026FF    356026FE     READFF   STW,LINK READFF-1          SAVE RETURN
     8761   01 02700    02200000 A            LCI      0                 SAVE REGISTERS
     8762   01 02701    2B002ACC              STM,0    SAVE
     8763   01 02702    22600000 A            LI,LINK  0                 ZERO THE OUTPUT STORE
     8764   01 02703    75C00003 A            STB,RC   LVL               FIND GROUP AND LEVEL NUMBERS
     8765   01 02704    25200104 A            SLD,GRP  4                 MOVE GROUP # INTO GRP REG.
     8766   01 02705    25300064 A            SLS,LVL  -28               RIGHT JUSTIFY LEVEL #
     8767   01 02706    02002706     READFF#A NOP      %
     8768   01 02707    22600000 A            LI,LINK  0
     8769   01 02708    6C841400 A            RD,R8    ENBL,GRP          READ STATUS
     8770   01 02709    4B862B36              AND,R8   LEVMASK,LVL       WAS IT ENABLED
     8771   01 0270A    6830270C              BEZ      %+2               BRANCH IF NO
     8772   01 0270B    20600001 A            AI,LINK  1                 SAY FF I(N) IS SET
     8773   01 0270C    6C841200 A            RD,R8    WAIT:ACT,GRP      READ STATUS
     8774   01 0270D    4B862B36              AND,R8   LEVMASK,LVL       WAS IT WAITING OR ACTIVE
     8775   01 0270E    68302710              BEZ      %+2               BRANCH IF NO
     8776   01 0270F    20600004 A            AI,LINK  4                 SAY FF I(S) IS SET
     8777   01 02710    6C841100 A            RD,R8    ARM:WAIT,GRP      READ STATUS
     8778   01 02711    4B862B36              AND,R8   LEVMASK,LVL       WAS IT ARMED OR WAITING
     8779   01 02712    68302714              BEZ      %+2               BRANCH IF NO
     8780   01 02713    20600002 A            AI,LINK  2                 SAY FF I(P) IS SET
     8781   01 02714    356026FD              STW,LINK READFF-2          SAVE BINARY OUTPUT
     8782   01 02715    02200000 A            LCI      0
     8783   01 02716    2A002ACC              LM,0     SAVE              RESTORE REGISTERS
     8784   01 02717    326026FD              LW,LINK  READFF-2          STORE OUTPUT IN LINK
     8785   01 02718    E80026FE              B        *READFF-1         EXIT
     8786                            *
     8787                            *
     8788                            *
     8789                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        READ IMPLEMENTATION ROUTINE                       PAGE   87
A    8791                            *
     8792                            **********************************************************************
     8793                            *                                                                    *
     8794                            *       R E A D    I M P L E M E N T A T I O N                       *
     8795                            *                                                                    *
     8796                            **********************************************************************
     8797                            *                                                                    *
     8798                            *                                                                    *
     8799                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER                        *
     8800                            *             IMPLEMENTATION IN 'LEVIMPL' TABLE                      *
     8801                            *                                                                    *
     8802                            *                                                                    *
     8803                            *  EXIT WITH BRANCH ADDRESSES IN ACCESS TABLE ALTERED                *
     8804                            *                                                                    *
     8805                            **********************************************************************
     8806                            *
     8807   01 02719    02200000 A   READIMP  LCI      0                 SAVE REGISTERS
     8808   01 0271A    2B002ACC              STM,0    SAVE
     8809   01 0271B    22400000 A            LI,X4    0                 INITIALIZE
     8810   01 0271C    22200000 A            LI,GRP   0
     8811   01 0271D    22300000 A   RDIMP#A  LI,LVL   0
     8812   01 0271E    52842ABE              LH,R8    LEVIMPL,GRP       FIND LEVELS IMPLEMENTED
     8813   01 0271F    25800010 A            SLS,R8   16                AND LEFT JUSTIFY PATTERN
     8814   01 02720    25800001 A   RDIMP#B  SLS,R8   1                 READ ONE LEVEL
     8815   01 02721    69802724              BC       %+3               BRANCH IF IMPLEMENTED
     8816   01 02722    32902B2F              LW,R9    BALNIMP           SET ADDRESS TO NOTIMPL
     8817   01 02723    68002725              B        %+2
     8818   01 02724    32902B2E              LW,R9    BALNORM           SET ADDRESS TO NORM
     8819   01 02725    35983B6A              STW,R9   VALID,X4
     8820   01 02726    20400001 A            AI,X4    1
     8821   01 02727    20300001 A            AI,LVL   1
     8822   01 02728    21200000 A            CI,GRP   0
     8823   01 02729    6830272D              BE       RDIMP#C
     8824   01 0272A    2130000F A            CI,LVL   15                IS IT LAST LEVEL IN GROUP
     8825   01 0272B    68202720              BLE      RDIMP#B           LOOP IF NO
     8826   01 0272C    68002730              B        RDIMP#D
     8827                            *
     8828   01 0272D    2130000D A   RDIMP#C  CI,LVL   13                IS IT LAST LEVEL IN GROUP 0
     8829   01 0272E    68202720              BLE      RDIMP#B           LOOP IF NO
     8830   01 0272F    20200001 A            AI,GRP   1                 BYPASS NONEXIST. GROUP 1
     8831   01 02730    20200001 A   RDIMP#D  AI,GRP   1
     8832   01 02731    2120000F A            CI,GRP   15                IS IT LAST GROUP
     8833   01 02732    6820271D              BLE      RDIMP#A           LOOP IF NO
     8834                            *
     8835   01 02733    02200000 A            LCI      0                 RESTORE REGISTERS
     8836   01 02734    2A002ACC              LM,0     SAVE
     8837   01 02735    E8000006 A            B        *LINK
     8838                            *
     8839                            *
     8840                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        READ LOCATION                                     PAGE   88
A    8842                            *
     8843                            *
     8844                            ******************************************
     8845                            *   R E A D   L O C A T I O N            *
     8846                            ******************************************
     8847                            *
     8848                            *
     8849                            *  ENTER WITH               1. GROUP # IN REG. GRP
     8850                            *                           2. LEVEL # IN REG. LVL
     8851                            *                           3. RETURN ADDRESS IN LINK REG.
     8852                            *
     8853                            *
     8854                            *  EXIT WITH LOCATION CORRESPONDING TO GROUP AND LEVEL
     8855                            *             NUMBERS IN 'LOCATION'
     8856                            *
     8857                            *
     8858   01 02736    02200000 A   READLOC  LCI      0                 SAVE REGISTERS
     8859   01 02737    2B002ACC              STM,0    SAVE
     8860   01 02738    22400004 A            LI,X4    4                 SET BYTE DISPLACEMENT INDEX
     8861   01 02739    2530001C A            SLS,LVL  28                PACK GROUP AND LEVEL INTO 1 BYTE
     8862   01 0273A    25200104 A            SLD,GRP  4                 SEARCH FOR RIGHT DBL WORD
     8863   01 0273B    71283D18     RDLOC#A  CB,GRP   HISTORY,X4
     8864   01 0273C    68302741              BE       RDLOC#B           BRANCH IF LOCATION FOUND
     8865   01 0273D    214001DB A            CI,X4    475               IS IT TABLE END
     8866   01 0273E    68102748              BGE      RDLOC#W           BRANCH IF YES
     8867   01 0273F    20400008 A            AI,X4    8                 INCREMENT TO NEXT DBL WORD
     8868   01 02740    6800273B              B        RDLOC#A           KEEP LOOKING
     8869                            *
     8870   01 02741    20400003 A   RDLOC#B  AI,X4    3                 INDEX TO LOCATION VALUE(BYTE 7)
     8871   01 02742    72883D18              LB,R8    HISTORY,X4        FIND LOCATION VALUE
     8872   01 02743    212000C0 A            CI,GRP   X'C0'
     8873   01 02744    69102746              BL       %+2
     8874   01 02745    20800100 A            AI,R8    X'100'
     8875   01 02746    35802A62              STW,R8   LOCATION          SAVE IT
     8876   01 02747    6800274A              B        RDLOC#X           EXIT
     8877                            *
     8878                            *
     8879   01 02748    2280FFFF A   RDLOC#W  LI,R8    X'FFFF'           JAM FICTIOUS VALUE
     8880   01 02749    35802A62              STW,R8   LOCATION
     8881   01 0274A    02200000 A   RDLOC#X  LCI      0                 RESTORE REGISTERS
     8882   01 0274B    2A002ACC              LM,0     SAVE
     8883   01 0274C    E8000006 A            B        *LINK             EXIT
     8884                            *
     8885                            *
     8886                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        READ EXPECTED SEQUENCE                            PAGE   89
A    8888                            *
     8889                            *    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
     8890                            ********************************************************************
     8891                            *
     8892                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER
     8893                            *             PRIORITIES IN 'SEQCOM'
     8894                            *             EXPECTED INTERRUPTS IN 'LEVEXP' TABLE
     8895                            *
     8896                            *
     8897                            *  EXIT WITH EXPECTED SEQUENCE NUMBERS STORED IN THE HISTORY TABLE
     8898                            *
     8899                            *
     8900   01 0274D    02200000 A   READSEQ  LCI      0                 SAVE REGISTERS
     8901   01 0274E    2B002ACC              STM,0    SAVE
     8902   01 0274F    22801E92              LI,R8    DA(HISTORY+12)    FIND OVERRIDE GROUP ADDRESS
     8903   01 02750    35801E89              STW,R8   HSTORYP           SAVE IT
     8904   01 02751    22900000 A            LI,R9    0                 INITIALIZE REG. 9 AS EXP. SEQ. COUNT
     8905   01 02752    52802AAE              LH,R8    LEVEXP            FIND GROUP 0 LEVELS EXPECTED
     8906   01 02753    4B802B32              AND,R8   GRP#OVER          MASK OUT OTHER PRIORITIES
     8907   01 02754    25800010 A            SLS,R8   16                LEFT JUSTIFY GROUP
     8908   01 02755    227FFFFA A            LI,X7    -6                SET INDEX FOR LOOPS
     8909   01 02756    25800001 A   RDSEQ#A  SLS,R8   1                 IS LEVEL EXPECTED
     8910   01 02757    6880275D              BEV      RDSEQ#B           BRANCH IF NO
     8911   01 02758    20900001 A            AI,R9    1                 INCREMENT SEQUENCE NUMBER
     8912   01 02759    32101E89              LW,X1    HSTORYP           FIND GROUP DW ADDRESS
     8913   01 0275A    30100007 A            AW,X1    X7                FIND LEVEL DW ADDRESS
     8914   01 0275B    25100001 A            SLS,X1   1                 CONVERT TO WORD ADDRESS
     8915   01 0275C    F5900001 A            STB,R9   *X1               STORE SEQ.NO. IN HIST. TBL.
     8916   01 0275D    65702756     RDSEQ#B  BIR,X7   RDSEQ#A           BRANCH IF GROUP NOT FINISHED
     8917   01 0275E    22500001 A            LI,X5    1                 SET PRIORITY COUNTER
     8918   01 0275F    22400010 A   RDSEQCOM LI,X4    16                SET INDEX
     8919   01 02760    3288276B              LW,R8    SEQCOM-1,X4       FIND PRIORITY
     8920   01 02761    25800068 A            SLS,R8   -24               RIGHT JUSTIFY
     8921   01 02762    31800005 A            CW,R8     X5               CHECK PRIORITY
     8922   01 02763    69302766              BNE      %+3               BRANCH IF WRONG ONE
     8923   01 02764    3288276B              LW,R8    SEQCOM-1,X4       FIND GROUP ADDRESS
     8924   01 02765    E8000008 A            B        *R8               CHECK NEXT GROUP
     8925   01 02766    64402760              BDR,X4   RDSEQCOM+1        BRANCH IF ALL NOT CHECKED
     8926   01 02767    35902A5A              STW,R9   EXPSEQCT          SAVE NUMBER OF EXPECTED INTS.
     8927   01 02768    02200000 A            LCI      0                 RESTORE REGISTERS
     8928   01 02769    2A002ACC              LM,0     SAVE
     8929   01 0276A    E8000006 A            B        *LINK             EXIT
     8930                            *
     8931                            * THE 0 BYTE OF THE FOLLOWING LOCATIONS CONTAINS THE GROUP PRIORITY
     8932                            *    (INSERTED BY THE PRIORITY ROUTINE)
     8933                            * THE ADDRESS  FIELD CONTAINS THE ADDRESS OF THE
     8934                            *        APPROPRIATE SEQUENCING SUBROUTINE
     8935                            *
     8936   01 0276B    00000000 A            GEN,8,24 0,0               OVERRIDE GROUP
     8937   01 0276C    0100277C     SEQCOM   GEN,8,24 1,RDSEQ#C         COUNTER GROUP
     8938   01 0276D    02002790              GEN,8,24 2,RDSEQ#F         I/O GROUP
     8939   01 0276E    03002797              GEN,8,24 3,RDSEQ#G         EXTERNAL GROUP 2
     8940   01 0276F    0400279B              GEN,8,24 4,RDSEQ#H         EXTERNAL GROUP 3
     8941   01 02770    0500279F              GEN,8,24 5,RDSEQ#J         EXTERNAL GROUP 4
     8942   01 02771    060027A3              GEN,8,24 6,RDSEQ#K         EXTERNAL GROUP 5
     8943   01 02772    070027A7              GEN,8,24 7,RDSEQ#L         EXTERNAL GROUP 6
     8944   01 02773    080027AB              GEN,8,24 8,RDSEQ#M         EXTERNAL GROUP 7
     8945   01 02774    090027AF              GEN,8,24 9,RDSEQ#N         EXTERNAL GROUP 8
     8946   01 02775    0A0027B3              GEN,8,24 10,RDSEQ#P        EXTERNAL GROUP 9
     8947   01 02776    0B0027B7              GEN,8,24 11,RDSEQ#Q        EXTERNAL GROUP 10
     8948   01 02777    0C0027BB              GEN,8,24 12,RDSEQ#R        EXTERNAL GROUP 11
     8949   01 02778    0D0027BF              GEN,8,24 13,RDSEQ#S        EXTERNAL GROUP 12
     8950   01 02779    0E0027C3              GEN,8,24 14,RDSEQ#T        EXTERNAL GROUP 13
     8951   01 0277A    0F0027C7              GEN,8,24 15,RDSEQ#U        EXTERNAL GROUP 14
     8952   01 0277B    100027CB              GEN,8,24 16,RDSEQ#V        EXTERNAL GROUP 15
     8953                            *
     8954                            *  LOOK FOR COUNTER ZERO INTERRUPTS EXPECTED
     8955                            *
     8956   01 0277C    227FFFFC A   RDSEQ#C  LI,X7    -4                SET INDEX FOR 4 LEVEL SEARCH
     8957   01 0277D    22801E96              LI,R8    DA(HISTORY+20)
     8958   01 0277E    35801E89              STW,R8   HSTORYP
     8959   01 0277F    52802AAE              LH,R8    LEVEXP            FIND GROUP 0 EXPECTED INTS.
     8960   01 02780    4B802B33              AND,R8   GRP#CNTR          MASK OUT OTHER PRIORITIES
     8961   01 02781    25800016 A            SLS,R8   22                LEFT JUSTIFY COUNTER GROUP
     8962   01 02782    68002786              B        RDSEQ#E           GO TO COMMON ROUTINE
     8963                            *
     8964                            *
     8965   01 02783    52822AAF     RDSEQ#D  LH,R8    LEVEXP+1,X1       FIND EXPECTED INTS. FOR GROUP
     8966   01 02784    25800010 A            SLS,R8   16                LEFT JUSTIFY GROUP
     8967   01 02785    227FFFF0 A            LI,X7    -16               SET LOOP INDEX
     8968   01 02786    20500001 A   RDSEQ#E  AI,X5    1                 INCREMENT PRIORITY COUNT
     8969   01 02787    25800001 A            SLS,R8   1                 CHECK IF LEVEL EXPECTED
     8970   01 02788    6880278E              BEV      %+6               BRANCH IF NO
     8971   01 02789    20900001 A            AI,R9    1                 INCREMENT SEQUENCE NUMBER
     8972   01 0278A    32101E89              LW,X1    HSTORYP           FIND GROUP DW ADDRESS
     8973   01 0278B    30100007 A            AW,X1    X7                FIND LEVEL DW ADDRESS
     8974   01 0278C    25100001 A            SLS,X1   1                 CONVERT TO WORD ADDRESS
     8975   01 0278D    F5900001 A            STB,R9   *X1               STORE SEQ.NO. IN HIST. TBL.
     8976   01 0278E    65702787              BIR,X7   RDSEQ#E+1         LOOP IF NOT LOWEST PRI. LVL.
     8977   01 0278F    6800275F              B        RDSEQCOM          FIND NEXT LOWER PRI. GROUP
     8978                            *
     8979                            * ENTER HERE TO SEARCH FOR I/O LEVELS EXPECTED TO INTERRUPT
     8980                            *
     8981   01 02790    227FFFFC A   RDSEQ#F  LI,X7    -4                SET LOOP INDEX
     8982   01 02791    22801E9A              LI,R8    DA(HISTORY+28)    FIND GROUP DW ADDRESS
     8983   01 02792    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     8984   01 02793    52802AAE              LH,R8    LEVEXP            FIND GROUP 0 EXPECTED INTS.
     8985   01 02794    4B802B34              AND,R8   GRP#IO            MASK OUT OTHER PRIORITIES
     8986   01 02795    2580001A A            SLS,R8   26                LEFT JUSTIFY I/O GROUP
     8987   01 02796    68002786              B        RDSEQ#E           GO TO COMMON ROUTINE
     8988                            *
     8989   01 02797    22801EAA     RDSEQ#G  LI,R8    DA(HISTORY+60)    FIND GROUP DW ADDRESS
     8990   01 02798    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     8991   01 02799    22100000 A            LI,X1    0                 SET INDEX
     8992   01 0279A    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     8993                            *
     8994   01 0279B    22801EBA     RDSEQ#H  LI,R8    DA(HISTORY+92)    FIND GROUP DW ADDRESS
     8995   01 0279C    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     8996   01 0279D    22100001 A            LI,X1    1                 SET INDEX
     8997   01 0279E    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     8998                            *
     8999   01 0279F    22801ECA     RDSEQ#J  LI,R8    DA(HISTORY+124)   FIND GROUP DW ADDRESS
     9000   01 027A0    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9001   01 027A1    22100002 A            LI,X1    2                 SET INDEX
     9002   01 027A2    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9003                            *
     9004   01 027A3    22801EDA     RDSEQ#K  LI,R8    DA(HISTORY+156)   FIND GROUP DW ADDRESS
     9005   01 027A4    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9006   01 027A5    22100003 A            LI,X1    3                 SET INDEX
     9007   01 027A6    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9008                            *
     9009   01 027A7    22801EEA     RDSEQ#L  LI,R8    DA(HISTORY+188)   FIND GROUP DW ADDRESS
     9010   01 027A8    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9011   01 027A9    22100004 A            LI,X1    4                 SET INDEX
     9012   01 027AA    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9013                            *
     9014   01 027AB    22801EFA     RDSEQ#M  LI,R8    DA(HISTORY+220)   FIND GROUP DW ADDRESS
     9015   01 027AC    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9016   01 027AD    22100005 A            LI,X1    5                 SET INDEX
     9017   01 027AE    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9018                            *
     9019   01 027AF    22801F0A     RDSEQ#N  LI,R8    DA(HISTORY+252)   FIND GROUP DW ADDRESS
     9020   01 027B0    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9021   01 027B1    22100006 A            LI,X1    6                 SET INDEX
     9022   01 027B2    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9023                            *
     9024   01 027B3    22801F1A     RDSEQ#P  LI,R8    DA(HISTORY+284)   FIND GROUP DW ADDRESS
     9025   01 027B4    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9026   01 027B5    22100007 A            LI,X1    7                 SET INDEX
     9027   01 027B6    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9028                            *
     9029   01 027B7    22801F2A     RDSEQ#Q  LI,R8    DA(HISTORY+316)   FIND GROUP DW ADDRESS
     9030   01 027B8    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9031   01 027B9    22100008 A            LI,X1    8                 SET INDEX
     9032   01 027BA    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9033                            *
     9034   01 027BB    22801F3A     RDSEQ#R  LI,R8    DA(HISTORY+348)   FIND GROUP DW ADDRESS
     9035   01 027BC    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9036   01 027BD    22100009 A            LI,X1    9                 SET INDEX
     9037   01 027BE    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9038                            *
     9039   01 027BF    22801F4A     RDSEQ#S  LI,R8    DA(HISTORY+380)   FIND GROUP DW ADDRESS
     9040   01 027C0    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9041   01 027C1    2210000A A            LI,X1    10                SET INDEX
     9042   01 027C2    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9043                            *
     9044   01 027C3    22801F5A     RDSEQ#T  LI,R8    DA(HISTORY+412)   FIND GROUP DW ADDRESS
     9045   01 027C4    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9046   01 027C5    2210000B A            LI,X1    11                SET INDEX
     9047   01 027C6    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9048                            *
     9049   01 027C7    22801F6A     RDSEQ#U  LI,R8    DA(HISTORY+444)   FIND GROUP DW ADDRESS
     9050   01 027C8    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9051   01 027C9    2210000C A            LI,X1    12                SET INDEX
     9052   01 027CA    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9053                            *
     9054   01 027CB    22801F7A     RDSEQ#V  LI,R8    DA(HISTORY+476)   FIND GROUP DW ADDRESS
     9055   01 027CC    35801E89              STW,R8   HSTORYP           SAVE ADDRESS
     9056   01 027CD    2210000D A            LI,X1    13                SET INDEX
     9057   01 027CE    68002783              B        RDSEQ#D           GO TO COMMON ROUTINE
     9058                            *
     9059                            *
     9060                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        READ STATUS                                       PAGE   90
A    9062                            *
     9063                            *
     9064                            ****************************************************
     9065                            *  R E A D   S T A T U S
     9066                            ****************************************************
     9067                            *
     9068                            *  THIS ROUTINE FORMATS THE STATUS REPORT MESSAGE ('STATMSG')
     9069                            *    AND OUTPUTS IT TO THE COMMUNICATION DEVICE (COMDEV.)
     9070                            *
     9071                            *  ENTER WITH RETURN ADDRESS IN THE 'LINK' REGISTER
     9072                            *
     9073                            ****************************************************
     9074                            *
     9075   01 027CF    6A6027D1     READSTAT BAL,LINK  STATMSGS
     9076   01 027D0    E80003CB              B        *#RETURN%
     9077                            *
     9078                            *
     9079   01 027D1                 STATMSGS  RES     0
     9080   01 027D1    02200000 A            LCI      0                 SAVE REGISTERS
     9081   01 027D2    2B002AEC              STM,0    SAVE#2
     9082   01 027D3    6A601DEB              SEND     STATMSG
            01 027D4    0000C2AC A
     9083   01 027D5    221054C1              LI,X1    HA(LASTTEST)+1    FIND ADDRESS
     9084   01 027D6    6A60230E              LOADHALF 4,20,STRIPZ       SET TEST NUMBER PARAMETER
            01 027D7    428022EF
     9085   01 027D8    221054BF              LI,X1    HA(LASTPASS)+1    FIND ADDRESS
     9086   01 027D9    6A60230E              LOADHALF 4,41,STRIPZ       SET PASS COUNT PARAMETER
            01 027DA    452022EF
     9087   01 027DB    221054BD              LI,X1    HA(LASTERR%T)+1   FIND ADDRESS
     9088   01 027DC    6A60230E              LOADHALF 4,70,LOADBUF      SET TOTAL ERROR COUNT PARAMETER
            01 027DD    48C022EB
     9089   01 027DE    221054BB              LI,X1    HA(LASTERR%P)+1   FIND ADDRESS
     9090   01 027DF    6A60230E              LOADHALF 4,65,LOADBUF      SET ERROR  COUNT AS PARAMETER
            01 027E0    482022EB
     9091   01 027E1    6C100045 A            RD,X1    X'45'             READ PRESENT CLOCK MARGIN
     9092   01 027E2    2510006A A            SLS,X1   -22
     9093   01 027E3    4B102C7B              AND,X1   THREE
     9094   01 027E4    72122807              LB,X1    CM%ACTUAL,X1      FIND IT IN EBCDIC
     9095   01 027E5    75103F01              STB,X1   OUTBUF+13             AND DISPLAY IT
     9096                            *
     9097   01 027E6    728003A1              LB,R8    #STATUS           FIND STATUS AND MODIFY MSG
     9098   01 027E7    22100001 A            LI,X1    1
     9099   01 027E8    75823EF4              STB,R8   OUTBUF,X1
     9100                            *
     9101   01 027E9    22102A61              LI,X1    LASTSUB           FIND ADDRESS
     9102   01 027EA    6A602318              LOADWORD 8,29,STRIPZ       SET SUBTEST PARAMETER
            01 027EB    83A022EF
     9103                            *
     9104   01 027EC    33002806     RDSTAT#B MTW,0    AUTOSTATUS
     9105   01 027ED    693027F7              BNEZ     RDSTAT#C          BRANCH IF NOT AUTO STATUS MSG.
     9106   01 027EE    6A602809              #TYPE    UPSPACE
            01 027EF    EA6003CC
            01 027F0    0000B1BC A
            01 027F1    6A602832
     9107   01 027F2    6A602809              #TYPE    OUTBUF            TYPE STATUS REPORT
            01 027F3    EA6003CC
            01 027F4    0000FBD0 A
            01 027F5    6A602832
     9108   01 027F6    68002801              B        RDSTAT#D
     9109                            *
     9110   01 027F7    22800000 A   RDSTAT#C LI,R8    0
     9111   01 027F8    35802806              STW,R8   AUTOSTATUS        ZERO OUT FLAG
     9112   01 027F9    6A602809              #PRINT   UPSPACE
            01 027FA    EA6003CD
            01 027FB    C000B1BC A
            01 027FC    6A602832
     9113   01 027FD    6A602809              #PRINT   OUTBUF
            01 027FE    EA6003CD
            01 027FF    C000FBD0 A
            01 02800    6A602832
     9114                            *
     9115         01 02801           RDSTAT#D EQU      %
     9116   01 02801    32C02A0C              LW,RC    STATEXP%
     9117   01 02802    B5C003CE              STW,RC   *#ERRTEXT%
     9118                            *
     9119   01 02803    02200000 A            LCI      0
     9120   01 02804    2A002AEC              LM,0     SAVE#2            RESTORE REGISTERS
     9121   01 02805    E8000006 A            B        *LINK
     9122                            *
     9123   01 02806    00000000 A   AUTOSTATUS  DATA  0                 SET TO NON-ZERO IF AUTO REPORT
     9124                            *
     9125   01 02807    F0F1F2F3 A   CM%ACTUAL TEXT    '0123'
1 C00   22:37 JUN 20,'83                        READ STATUS                                       PAGE   91
A    9127                            *
     9128                            *  THE FOLLOWING ROUTINE SAVES THE STATES OF THE INHIBITS AND OF
     9129                            *     THE OVERRIDE INTS. AND REPLACES THE GUIDE INSTR. IN
     9130                            *        LOCATION X'55' BEFORE EXITING TO GUIDE
     9131                            *
     9132   01 02808    00000000 A            DATA     0
     9133         01 02809           SAVE%CLKS  EQU    %
     9134   01 02809    35602808              STW,LINK %-1
     9135   01 0280A    F26003D7              LB,LINK  *#S%MODE%
     9136   01 0280B    6830280D              BCR,3    %+2               BRANCH IF NOT IN DIRECTIVE MODE
     9137   01 0280C    E8002808              B        *SAVE%CLKS-1      EXIT
     9138                            *
     9139   01 0280D    32602808              LW,LINK  SAVE%CLKS-1
     9140   01 0280E    02200000 A            LCI      0
     9141   01 0280F    2B00286E              STM,0    SAVE#6
     9142   01 02810    6C800048 A            RD,R8    X'48'             SAVE INHIBIT STATES
     9143   01 02811    3580287E              STW,R8   SAVEINH
     9144   01 02812    6D000037 A            WD,0     X'37'             SET ALL INHIBITS
     9145   01 02813    32802867              LW,R8    GUIDE55           FETCH GUIDE'S MTW
     9146   01 02814    46800055 A            XW,R8    X'55'             RESTORE GUIDE INST. IN X'55'
     9147   01 02815    6C901200 A            RD,R9    WAIT:ACT          READ I(S) FF'S
     9148   01 02816    6CA01100 A            RD,RA    ARM:WAIT          READ I(P) FF'S
     9149   01 02817    6CB01400 A            RD,RB    ENBL              READ (IN) FF'S
     9150   01 02818    22700004 A            LI,X7    4
     9151   01 02819    2250000E A            LI,X5    14
     9152                            *
     9153                            *    SAVE THE INTERRUPT STATES OF ALL LEVELS IN GROUP 0
     9154                            *
     9155         01 0281A           SAVE%CLKS#A EQU   %
     9156   01 0281A    22400000 A            LI,X4    0
     9157   01 0281B    31700009 A            CW,X7    R9                IS I(S) SET
     9158   01 0281C    6840281E              BCR,4    %+2               BRANCH IF NO
     9159   01 0281D    20400004 A            AI,X4    4
     9160   01 0281E    3170000A A            CW,X7    RA                IS I(P) SET
     9161   01 0281F    68402821              BCR,4    %+2               BRANCH IF NO
     9162   01 02820    20400002 A            AI,X4    2
     9163   01 02821    3170000B A            CW,X7    RB                IS I(N) SET
     9164   01 02822    68402824              BCR,4    %+2               BRANCH IF NO
     9165   01 02823    20400001 A            AI,X4    1
     9166   01 02824    754A2868              STB,X4   CLK%STATE,X5      SAVE STATE OF THIS LEVEL
     9167   01 02825    25700001 A            SLS,X7   1
     9168   01 02826    6450281A              BDR,X5   SAVE%CLKS#A       LOOP IF ALL NOT SAVED
     9169                            *
     9170   01 02827    2270FFFC A            LI,X7    X'FFFC'
     9171   01 02828    6D701100 A            WD,X7    DISARM            DISARM ALL GROUP 0 INTS.
     9172   01 02829    F02003D8              LC       *#COCSTATE%
     9173   01 0282A    68C0282F              BCR,12   %+5               BRANCH IF NO REMOTE TERM.
     9174   01 0282B    327003F9              LW,X7    COCMASK
     9175   01 0282C    48702C78              EOR,X7   M1
     9176   01 0282D    325003F8              LW,X5    COCGRP
     9177   01 0282E    6D7A1100 A            WD,X7    DISARM,X5         DISARM COC EXTERNAL INTS.
     9178   01 0282F    22701C00 A            LI,X7    X'1C00'
     9179   01 02830    6D701200 A            WD,X7    ARME              ARM & ENABLE COUNTER 4
     9180   01 02831    E8000006 A            B        *LINK
     9181                            *
     9182                            *
     9183                            *
     9184                            *        THE FOLLOWING RETURN RESTORES ALL GROUP ZERO INTERRUPTS
     9185                            *           TO THE SAVED STATE AFTER RETURN FROM GUIDE
     9186                            *
     9187         01 02832           RESTORE%CLKS EQU  %
     9188   01 02832    35602808              STW,LINK SAVE%CLKS-1
     9189   01 02833    F26003D7              LB,LINK  *#S%MODE%
     9190   01 02834    68302836              BCR,3    %+2               BRANCH IF NOT IN DIRECTIVE MODE
     9191   01 02835    E8002808              B        *SAVE%CLKS-1      EXIT
     9192                            *
     9193   01 02836    32602808              LW,LINK  SAVE%CLKS-1
     9194   01 02837    35602874              STW,LINK SAVE#6+LINK
     9195   01 02838    22500001 A            LI,X5    1                 START RESTORE AT CNTR. 1
     9196   01 02839    22900000 A            LI,R9    0
     9197   01 0283A    35902880              STW,R9   MTW%RES+1
     9198   01 0283B    3290287F              LW,R9    MTW%RES           FETCH MTW INSTRUCTIONS
     9199   01 0283C    32A0287F              LW,RA    MTW%RES
     9200   01 0283D    32B0287F              LW,RB    MTW%RES                    AND
     9201   01 0283E    32C0287F              LW,RC    MTW%RES
     9202   01 0283F    46900052 A            XW,R9    X'52'             TEMPORARILY BYPASS INTERRUPTS
     9203   01 02840    46A00053 A            XW,RA    X'53'
     9204   01 02841    46B00054 A            XW,RB    X'54'             TO INTERRUPT HANDLER
     9205   01 02842    46C00055 A            XW,RC    X'55'
     9206   01 02843    22708000 A            LI,X7    X'8000'           SELECT COUNTER 1
     9207         01 02844           RESTORE%CLKS#A  EQU  %
     9208   01 02844    6D701200 A            WD,X7    ARME              INITIALIZE CLOCK TO ARM & ENBL.
     9209   01 02845    724A2868              LB,X4    CLK%STATE,X5      FIND PREVIOUS STATE
     9210   01 02846    68082847              B        %+1,X4              AND RESTORE IT
     9211                            *
     9212   01 02847    6800284F              B        RESTORE0          DISARM(D)
     9213   01 02848    68002852              B        RESTORE1          DISARM(E)
     9214   01 02849    68002850              B        RESTORE2          ARM(D)
     9215   01 0284A    68002859              B        RESTORE%CLKS#B    ARM(E)
     9216   01 0284B    68002854              B        RESTORE4          ACTIVE(D)
     9217   01 0284C    68002855              B        RESTORE5          ACTIVE(E)
     9218   01 0284D    68002857              B        RESTORE6          WAIT(D)
     9219   01 0284E    68002858              B        RESTORE7          WAIT(E)
     9220                            *
     9221   01 0284F    6D701100 A   RESTORE0 WD,X7    DISARM
     9222   01 02850    6D701500 A   RESTORE2 WD,X7    DISABLE
     9223   01 02851    68002859              B        RESTORE%CLKS#B
     9224                            *
     9225   01 02852    6D701500 A   RESTORE1 WD,X7    DISABLE
     9226   01 02853    68002859              B        RESTORE%CLKS#B
     9227                            *
     9228   01 02854    6D701500 A   RESTORE4 WD,X7    DISABLE
     9229   01 02855    6D701000 A   RESTORE5 WD,X7    ACTIVATE
     9230   01 02856    68002859              B        RESTORE%CLKS#B
     9231                            *
     9232   01 02857    6D701500 A   RESTORE6 WD,X7    DISABLE
     9233   01 02858    6D701700 A   RESTORE7 WD,X7    TRIG
     9234                            *
     9235         01 02859           RESTORE%CLKS#B EQU  %
     9236   01 02859    2570007F A            SLS,X7   -1
     9237   01 0285A    20500001 A            AI,X5    1
     9238   01 0285B    21700004 A            CI,X7    4
     9239   01 0285C    68102844              BGE      RESTORE%CLKS#A    LOOP UNTIL ALL ARE RESTORED
     9240   01 0285D    46900052 A            XW,R9    X'52'             RESTORE INSTR. IN CNTR. 1 LOC'N
     9241   01 0285E    46A00053 A            XW,RA    X'53'                               CNTR. 2
     9242   01 0285F    46B00054 A            XW,RB    X'54'                               CNTR. 3
     9243   01 02860    35800055 A            STW,R8   X'55'                               CNTR. 4
     9244   01 02861    3260287E              LW,LINK  SAVEINH
     9245   01 02862    6D600048 A            WD,LINK  X'48'             RESTORE INHIBITS
     9246   01 02863    02200000 A            LCI      0
     9247   01 02864    2A00286E              LM,0     SAVE#6
     9248   01 02865    702003AC              LC       #BRKOUT
     9249   01 02866    E8000006 A            B        *LINK             RETURN
     9250                            *
     9251   01 02867    00000000 A   GUIDE55  DATA     0                 GUIDE INSTR. IN X'55'
     9252                            *
     9253   01 02868    00000000 A   CLK%STATE DATA    0,0               COUNTER FF STATES
            01 02869    00000000 A
     9254   01 0286A    00000000 A   CLK%SAVE DATA     0,0,0,0           GROUP ZERO INT. STATE SAVE
            01 0286B    00000000 A
            01 0286C    00000000 A
            01 0286D    00000000 A
     9255                            *                            (BYTE 1= CNTR. 1, BYTE 2 = 2 ETC.)
     9256                            *
     9257                            *
     9258   01 0286E                 SAVE#6   RES      16
     9259                            *
     9260   01 0287E    00000000 A   SAVEINH  DATA     0                 INHIBIT STATE SAVE
     9261                            *
     9262   01 0287F    33102880     MTW%RES  MTW,1    %+1
     9263   01 02880    00000000 A            DATA     0
     9264                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        SET HIGH PRIORITY                                 PAGE   92
A    9266                            *
     9267                            *
     9268                            **********************************************************************
     9269                            *                                                                    *
     9270                            *  S E T   H I G H    P R I O R I T Y   T O    A C T I V E           *
     9271                            *                                                                    *
     9272                            **********************************************************************
     9273                            *                                                                    *
     9274                            *  ENTER WITH RETURN ADDRESS IN LINK REGISTER                        *
     9275                            *                                                                    *
     9276                            *  EXIT WITH THE HIGHEST IMPLEMENTED PRIORITY SET TO THE             *
     9277                            *       ACTIVE STATE TO EFFECTIVELY INHIBIT FURTHER INTERRUPTS       *
     9278                            *                                                                    *
     9279                            **********************************************************************
     9280                            *
     9281         01 02881           SETHIGH EQU       %
     9282   01 02881    330003F2              MTW,0    TESTNO
     9283   01 02882    683C0000 A            BCR,3    0,X6              EXIT IF TESTS NOT STARTED
     9284   01 02883    02200000 A            LCI      0
     9285   01 02884    2B002ADC              STM,0    SAVE#1
     9286   01 02885    32302A5C              LW,LVL   HI%PRI%INT+1      HAS HIGH INT. LVL BEEN FOUND
     9287   01 02886    6930289D              BNEZ     SETHIGH#1         BRANCH IF YES
     9288                            *
     9289                            *  FIND THE HIGHEST PRIORITY LEVEL IN THE OVERRIDE GROUP
     9290                            *
     9291   01 02887    229FFFFF A            LI,R9    -1
     9292   01 02888    6D901100 A            WD,R9    DISARM
     9293   01 02889    6C301100 A            RD,LVL   ARM:WAIT
     9294   01 0288A    6C901200 A            RD,R9    WAIT:ACT
     9295   01 0288B    4B900003 A            AND,R9   LVL
     9296   01 0288C    22305FFF A            LI,LVL   X'5FFF'
     9297   01 0288D    49900003 A            OR,R9    LVL
     9298                            *
     9299                            *   R9 NOW CONTAINS A ZERO FOR EACH IMPLEMENTED CNTR. MODULE
     9300                            *
     9301   01 0288E    219FFFFF A            CI,R9    -1                ARE ANY LEVELS IMPLEMENTED
     9302   01 0288F    69302891              BNE      %+2               BRANCH IF YES
     9303   01 02890    6A601CA6              BAL,LINK ABORT             UNRECOVERABLE ERROR IF NO
     9304   01 02891    22300052 A            LI,LVL   X'52'
     9305   01 02892    25900010 A            SLS,R9   16                FIND WHICH ONE IS HIGHEST
     9306   01 02893    25900001 A            SLS,R9   1
     9307   01 02894    68802897              BCR,8    %+3               BRANCH WHEN FOUND
     9308   01 02895    20300001 A            AI,LVL   1
     9309   01 02896    68002893              B        %-3               TRY AGAIN
     9310                            *
     9311   01 02897    35302A5C              STW,LVL  HI%PRI%INT+1
     9312   01 02898    203FFFAE A            AI,LVL   -X'52'            SELECT NOTHIGH LEVELS
     9313   01 02899    35302A5B              STW,LVL  HI%PRI%INT
     9314   01 0289A    529628B6              LH,R9    NOTHIMASK,LVL              *
     9315   01 0289B    55902AC7              STH,R9   NOTHIGH                    *
     9316   01 0289C    6800289E              B        %+2
     9317                            *
     9318   01 0289D    203FFFAE A   SETHIGH#1 AI,LVL  -X'52'
     9319   01 0289E    32862B36              LW,R8    LEVMASK,LVL
     9320   01 0289F    6A602699              BAL,LINK READACT           FIND IF ALREADY ACTIVE
     9321   01 028A0    32602A44              LW,LINK  ACTIVELOCN
     9322   01 028A1    31602A5C              CW,LINK  HI%PRI%INT+1
     9323   01 028A2    683028A8              BE       SETHIGH#2         BRANCH IF YES
     9324                            *
     9325   01 028A3    6D801300 A            WD,R8    ARMD              SET IT TO ARMED STATE
     9326   01 028A4    6D801000 A            WD,R8    ACTIVATE          SET IT TO ACTIVE
     9327                            *
     9328   01 028A5    6A602699              BAL,LINK READACT           CHECK IF ACTIVE
     9329   01 028A6    31302A43              CW,LVL   ACTIVELVL
     9330   01 028A7    693028AB              BNE      SETHIGHABORT      ABORT IF NOT ACTIVE
     9331                            *
     9332   01 028A8    02200000 A   SETHIGH#2 LCI     0                 RESTORE REGISTERS
     9333   01 028A9    2A002ADC              LM,0     SAVE#1
     9334   01 028AA    E8000006 A            B        *LINK             RETURN TO BAL+1
     9335                            *
     9336                            *        ENTRY HERE INDICATES EITHER A WRITE DIRECT OR READ DIRECT
     9337                            *        MALFUNCTION FOR THE HIGH PRIORITY INTERRUPT.
     9338                            *        THE INTERRUPT TESTS CANNOT BE RUN UNLESS THIS IS CORRECTED.
     9339                            *
     9340         01 028AB           SETHIGHABORT  EQU %
     9341   01 028AB    02200000 A            LCI      0
     9342   01 028AC    2B002B0C              STM,0    SAVE#4
     9343   01 028AD    22C000B1 A            LI,RC    X'B1'
     9344   01 028AE    22D00004 A            LI,RD    4                 EXPECTED STATE = ACTIVE/DISABLED
     9345   01 028AF    22F00002 A            LI,RF    2
     9346   01 028B0    22B01000 A            LI,RB    X'1000'
     9347   01 028B1    32802A5C              LW,R8    HI%PRI%INT+1
     9348   01 028B2    35802A62              STW,R8   LOCATION
     9349   01 028B3    6A6020A0              BAL,LINK EROR              DISPLAY EROR
     9350   01 028B4    226028B5              LI,LINK  %+1
     9351   01 028B5    6A601CA8              BAL,LINK ABORT+2           ABORT THE TEST
     9352                            *
     9353   01 028B6    7FFFBFFF A   NOTHIMASK DATA    X'7FFFBFFF',X'DFFFEFFF',X'F7FFFBFF'
            01 028B7    DFFFEFFF A
            01 028B8    F7FFFBFF A
     9354                            *
     9355                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        SET VOLTAGE AND CLOCK MARGIN ROUTINE              PAGE   93
A    9357                            *
     9358                            *
     9359                            **********************************************************
     9360                            *
     9361                            *  THIS ROUTINE CHECKS IF THE NUMBER OF ERROR FREE PASSES (ERRORFREE)
     9362                            *        EQUALS  THE NUMBER REQUIRED FOR MARGIN CHANGE (PASSMARGIN)
     9363                            *        AND IF IT DOES, THE MARGIN IS CHANGED AS BELOW:
     9364                            *            NORM GOES TO HIGH, HIGH GOES TO LOW, AND LOW GOES TO NORM
     9365                            *
     9366                            ***********************************************************
     9367                            *
     9368   01 028B9                 SETMARGIN RES     0
     9369   01 028B9    35602B2C              STW,LINK SAVELINK
     9370   01 028BA    6CA00045 A            RD,LOG   MARGINS           FIND CURRENT MARGIN
     9371   01 028BB    4BA023FB              AND,LOG  MARGINMASK
     9372   01 028BC    22400002 A            LI,X4    2                 PLINE DISPACEMENT TO BYTE 2
     9373   01 028BD    728823F9     SETM#A   LB,R8    PLINE#J+5,X4      FIND CLOCK MARGIN
     9374   01 028BE    218000C4 A            CI,R8    X'C4'             IS MARGIN FIXED
     9375   01 028BF    691028D4              BL       SETM#X            BRANCH IF YES
     9376   01 028C0    31A02C9C              CW,LOG   X100000
     9377   01 028C1    694028C7              BCS,4    SETM#B            BRANCH IF NO VOLTAGE MARGIN
     9378   01 028C2    6A602809              #TYPE,1,1 VOLTMSG
            01 028C3    EA6003CC
            01 028C4    0160C43E A
            01 028C5    6A602832
     9379   01 028C6    680028D4              B        SETM#X
     9380                            *
     9381   01 028C7    4B802C7B     SETM#B   AND,R8   THREE
     9382   01 028C8    21800002 A            CI,R8    2                 IS IT LO MARGIN
     9383   01 028C9    691028CB              BL       %+2               BRANCH IF NO
     9384   01 028CA    228FFFFF A            LI,R8    -1                RETURN MARGIN TO NORMAL
     9385   01 028CB    20800001 A            AI,R8    1                 INCREMENT MARGIN
     9386   01 028CC    208000F0 A            AI,R8    X'F0'             SET PARAM LINE J CM FIELD
     9387   01 028CD    758823F9              STB,R8   PLINE#J+5,X4
     9388   01 028CE    4B802C7B              AND,R8   THREE
     9389   01 028CF    25800016 A            SLS,R8   22                ALIGN NEW MARGIN
     9390   01 028D0    49A00008 A            OR,LOG   R8
     9391   01 028D1    6DA00045 A            WD,LOG   MARGINS           SET NEW MARGIN
     9392   01 028D2    22800000 A            LI,R8    0
     9393   01 028D3    35802A57              STW,R8   ERRORFREE         RESET COUNT OF PASSES
     9394   01 028D4    22800000 A   SETM#X   LI,R8    0
     9395   01 028D5    E8002B2C              B        *SAVELINK
     9396                            *
     9397                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        SET INTERRUPT PATTERN ROUTINE                     PAGE   94
A    9399                            *
     9400                            *
     9401                            * SET INTERRUPT PATTERN ROUTINE
     9402                            **********************************
     9403                            *
     9404                            * ENTER WITH 1. RETURN ADDRESS IN LINK REGISTER
     9405                            *            2. ARM AND DISABLE PATTERNS IN LEVARMD TABLE
     9406                            *            3. TRIGGER PATTERNS IN LEVTRIG TABLE
     9407                            *            4. ENABLE PATTERNS IN LEVENBL TABLE
     9408                            *            5. INHIBIT PATTERN IN GRPINH
     9409                            *
     9410                            *
     9411                            * EXIT WITH SELECTED LEVELS ARMED, TRIGGERED, AND ENABLED
     9412                            *           AND NEW INHIBIT PATTERN IN CURRENT PSD
     9413                            *
     9414                            *
     9415   01 028D6    02200000 A   SETPATT  LCI      0                 SAVE REGISTERS
     9416   01 028D7    2B002ACC              STM,0    SAVE
     9417   01 028D8    221FFFF2 A            LI,X1    -14               SET INDEX
     9418   01 028D9    52902AC7              LH,R9    NOTHIGH           DISARM ALL LEVELS EXCEPT HIGHEST
     9419   01 028DA    6D901100 A            WD,R9    DISARM                   PRIORITY
     9420   01 028DB    32902C99              LW,R9    XFFFF
     9421   01 028DC    6D921110 A            WD,R9    DISARM+16,X1
     9422   01 028DD    651028DC              BIR,X1   %-1
     9423   01 028DE    221FFFF2 A            LI,X1    -14               SET INDEX
     9424   01 028DF    52922A9E              LH,R9    LEVARMD+8,X1      FIND PATTERN FOR EXTERNAL GROUPS
     9425   01 028E0    6D921310 A            WD,R9    ARMD+16,X1        ARM AND DISABLE SELECTED LEVELS
     9426   01 028E1    651028DF              BIR,X1   %-2               BRANCH IF NOT GROUP 15
     9427   01 028E2    52902A96              LH,R9    LEVARMD           FIND GROUP 0 PATTERN
     9428   01 028E3    6D901300 A            WD,R9    ARMD              ARM AND DISABLE SELECTED LEVELS
     9429                            *
     9430   01 028E4    221FFFF2 A            LI,X1    -14               SET INDEX
     9431   01 028E5    52922AAE              LH,R9    LEVTRIG+8,X1      FIND PATTERN FOR EXTERNAL GROUPS
     9432   01 028E6    6D921710 A            WD,R9    TRIG+16,X1        TRIGGER SELECTED LEVELS
     9433   01 028E7    651028E5              BIR,X1   %-2               BRANCH IF NOT GROUP 15
     9434   01 028E8    52902AA6              LH,R9    LEVTRIG           FIND GROUP 0 PATTERN
     9435   01 028E9    6D901700 A            WD,R9    TRIG              TRIGGER SELECTED LEVELS
     9436   01 028EA    221FFFF2 A            LI,X1    -14
     9437   01 028EB    52922AA6              LH,R9    LEVENBL+8,X1
     9438                            *
     9439   01 028EC    6D921410 A            WD,R9    ENBL+16,X1        ENABLE  SELECTED LEVELS
     9440   01 028ED    651028EB              BIR,X1   %-2               BRANCH IF NOT GROUP 15
     9441   01 028EE    52902A9E              LH,R9    LEVENBL           FIND GROUP 0 PATTERN
     9442   01 028EF    6D901600 A            WD,R9    ENBLDIS           ENABLE  SELECTED LEVELS
     9443                            *
     9444   01 028F0    32802ACA              LW,R8    GRPINH            FIND INHIBIT PATTERN
     9445   01 028F1    4B802B35              AND,R8   INHMSK            MASK UNUSED BITS
     9446   01 028F2    75802A4F              STB,R8   CURPSD+1          SET INHIBIT BITS IN CURRENT PSD
     9447                            *
     9448                            *
     9449   01 028F3    02200000 A            LCI      0                 RFSTORE REGISTERS
     9450   01 028F4    2A002ACC              LM,0     SAVE
     9451   01 028F5    E8000006 A            B        *LINK             EXIT
     9452                            *
     9453                            *
     9454                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        BINARY TO EBCDIC CONVERSION                       PAGE   95
A    9456                            *   BINARY TO EBCDIC CONVERSION ( 4 BITS )
     9457                            **********************:*************
     9458                            *
     9459                            *
     9460                            * ENTER WITH ARGUEMENT IN RC REGISTER
     9461                            *             RETURN ADDRESS IN LINK REGISTER
     9462                            *
     9463                            * EXIT WITH ARGUEMENT IN RC REG. (SHIFTED RIGHT 4 BITS)
     9464                            *             EBCDIC CONVERSION IN LINK REGISTER
     9465                            *
     9466                            *
     9467   01 028F6    35D02ACD     :BIN@EBC STW,RD   SAVE+1            SAVE REG. 13
     9468   01 028F7    35602ACC              STW,LINK SAVE              SAVE EXIT
     9469   01 028F8    226FFFFC A            LI,LINK  -4                INITIALIZE COUNT
     9470   01 028F9    32D02CBE              LW,RD    EBCZEROS          INITIALIZE RESULT-ALL ZEROS
     9471   01 028FA    25C0017F A            SLD,RC   -1                SHIFT BINARY BIT INTO RESULT
     9472   01 028FB    25D00279 A            SCS,RD   -7                SHIFT INTO CHARACTER POSITION
     9473   01 028FC    656028FA              BIR,LINK %-2               LOOP 4 TIMES
     9474   01 028FD    46D02ACD              XW,RD    SAVE+1            RESTORE R13,RESULT TOSAVE
     9475   01 028FE    32602ACD              LW,LINK  SAVE+1            RESULT TO LINK
     9476   01 028FF    E8002ACC              B        *SAVE             EXIT
     9477                            *
     9478                            *
     9479                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        HEX TO EBCDIC CONVERSION                          PAGE   96
A    9481                            *
     9482                            *
     9483                            * HEX TO EBCDIC CONVERSION (4 CHARACTERS)
     9484                            *****************************
     9485                            *
     9486                            * ENTER WITH ARGUEMENT IN RC REGISTER
     9487                            *            EXIT ADDRESS IN LINK REGISTER
     9488                            *
     9489                            * EXIT WITH EBCDIC CONVERSION IN LINK REGISTER
     9490                            *            ARGUEMENT SHIFTED 16 BITS RIGHT IN RC REG.
     9491                            *
     9492                            *
     9493   01 02900    35602ACC     :HEX@EBC STW,LINK SAVE              SAVE EXIT ADDRESS
     9494   01 02901    35D02ACD              STW,RD   SAVE+1            SAVE R13
     9495   01 02902    35102ACE              STW,X1   SAVE+2            SAVE INDEX REG.
     9496   01 02903    22100003 A            LI,X1    3                 SET INDEX TO BYTES 3 THRU 0
     9497   01 02904    22D000F0 A            LI,RD    X'F0'             HI-ORDER EBC FOR DIGITS 0 THRU 9
     9498   01 02905    25C0017C A            SLD,RC   -4                SHIFT LO-ORDER 4 BITS
     9499   01 02906    25D00204 A            SCS,RD   4                 SHIFT INTO BYTE POSITION 3
     9500   01 02907    71D02CB2              CB,RD    YF900             CHECK FOR 0 THRU 9
     9501   01 02908    6820290A              BLE      %+2               BRANCH IF YES
     9502   01 02909    20DFFFC7 A            AI,RD    -X'39'            ADJUST FOR A THRU F
     9503   01 0290A    75D20006 A            STB,RD   LINK,X1           STORE RESULT
     9504   01 0290B    201FFFFF A            AI,X1    -1                DECREMENT STORE POSITION
     9505   01 0290C    68102904              BGEZ     :HEX@EBC+4        LOOP UNTIL FOUR DIGITS STORED
     9506   01 0290D    32D02ACD              LW,RD    SAVE+1            RESTORE R13
     9507   01 0290E    32102ACE              LW,X1    SAVE+2            RESTORE INDEX
     9508   01 0290F    E8002ACC              B        *SAVE             EXIT
     9509                            *
     9510                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        HEX TO DECIMAL(EBCDIC) CONVERSION                 PAGE   97
A    9512                            *
     9513                            *
     9514                            *  HEXADECIMAL TO DECIMAL (IN EBCDIC) CONVERSION
     9515                            *************************************************
     9516                            *
     9517                            *
     9518                            *  ENTER WITH ARGUEMENT IN REGISTER RD (MAX VALUE = 5F5E0FF HEX.)
     9519                            *             RETURN ADDRESS IN REGISTER LINK
     9520                            *
     9521                            *  EXIT WITH EBCDIC VALUE IN REGISTERS RC (MS HALF)  AND RD (LS HALF)
     9522                            *
     9523                            *
     9524   01 02910                 :HEX@DE  RES      0
     9525   01 02910    022000A0 A            LCI      10
     9526   01 02911    2B002ACC              STM,0    SAVE              SAVE REGISTERS
     9527   01 02912    22700007 A            LI,X7    7
     9528   01 02913    22400000 A            LI,X4    0
     9529   01 02914    32802E14              LW,R8    EBCBLNKS          LOAD ACCUMULATOR WITH BLANKS
     9530   01 02915    32902E14              LW,R9    EBCBLNKS
     9531   01 02916    22C00000 A   :HEX@D#A LI,RC    0                 SET REMAINDER TO ZERO
     9532   01 02917    36CE2927              DW,RC    TENS-1,X7         IS THE QUOTIENT SIGNIFICANT
     9533   01 02918    68702923              BCR,7    :HEX@D#D          BRANCH IF NO
     9534   01 02919    2240000A A            LI,X4    10                INDICATE A SIGNIFICANT CHAR. FOUND
     9535   01 0291A    4990000D A   :HEX@D#B OR,R9    RD                QUOTIENT TO ACCUMULATOR
     9536   01 0291B    49902C8E              OR,R9    XF0                 CONVERT TO EBCDIC
     9537   01 0291C    25800108 A            SLD,R8   8                 POSITION ACCUM. FOR NEXT CHARACTER
     9538   01 0291D    32D0000C A   :HEX@D#C LW,RD    RC                REMAINDER BECOMES NEW DIVIDEND
     9539   01 0291E    64702916              BDR,X7   :HEX@D#A          IF NOT THRU GO GET NEXT DIGIT
     9540   01 0291F    4990000D A            OR,R9    RD                LAST REMAINDER = UNITS DIGIT
     9541   01 02920    49902C8E              OR,R9    XF0
     9542   01 02921    12C00008 A            LD,RC    R8
     9543   01 02922    68002925              B        :HEX@D#X          EXIT
     9544                            *
     9545   01 02923    6440291A     :HEX@D#D BDR,X4   :HEX@D#B          CONVERT ZERO IF SIG. CHAR. EXISTS
     9546   01 02924    6800291D              B        :HEX@D#C          PICK UP NEXT CHARACTER
     9547                            *
     9548   01 02925    022000A0 A   :HEX@D#X LCI      10                RESTORE REGISTERS
     9549   01 02926    2A002ACC              LM,0     SAVE
     9550   01 02927    E8000006 A            B        *LINK             RETURN
     9551                            *
     9552   01 02928    0000000A A   TENS     DATA     10,100,1000,10000,100000,1000000,10000000
            01 02929    00000064 A
            01 0292A    000003E8 A
            01 0292B    00002710 A
            01 0292C    000186A0 A
            01 0292D    000F4240 A
            01 0292E    00989680 A
     9553                            *
     9554                                     TITLE    ;
1 C00   22:37 JUN 20,'83                        RANDOM NUMBER GENERATOR                           PAGE   98
A    9556                            *
     9557                            * MODIFIED PSEUDORANDOM NUMBER GENERATOR
     9558                            ****************************************
     9559                            *
     9560                            * OPTION 1: ENTER WITH RETURN ADDRESS IN LINK REGISTER
     9561                            * OPTION 2:  ENTER WITH A SEED VALUE IN RE REGISTER
     9562                            *                      RETURN ADDRESS IN LINK REGISTER
     9563                            * OPTION 3:  ENTER WITH AN M1 VALUE IN RC REGISTER
     9564                            *                          M2 VALUE IN RD REGISTER
     9565                            *                       A SEED VALUE IN RE REGISTER
     9566                            *                      RETURN ADDRESS IN LINK REGISTER
     9567                            *
     9568                            * EXIT WITH 32 BIT RANDOM NUMBER IN RE REGISTER
     9569                            *
     9570   01 0292F    35C0293C     :RANDMY  STW,RC   :M1               OPTION 3 ENTRY
     9571   01 02930    35D0293D              STW,RD   :M2               SAVE PARAMETERS
     9572                            *
     9573   01 02931    35E0293E     :RANDM   STW,RE   :SEED             OPTION 2 ENTRY
     9574                            *
     9575   01 02932    3310293C     :RANDMX  MTW,1    :M1               OPTION 1 ENTRY
     9576   01 02933    68302935              BCR,3    %+2               TEST, M1 + 1 = 0
     9577   01 02934    33F0293D              MTW,-1   :M2               NO, M2 = M2 - 1
     9578   01 02935    32E0293E              LW,RE    :SEED
     9579   01 02936    25E0020D A            SCS,RE   13                GENERATE M(SEED)
     9580   01 02937    30E0293F              AW,RE    :K                ADD CONSTANT :K
     9581   01 02938    48E0293C              EOR,RE   :M1               M(SEED) (+) M1, WHERE (+) = EOR
     9582   01 02939    48E0293D              EOR,RE   :M2               M(SEED) (+) M1 (+) M2
     9583   01 0293A    35E0293E              STW,RE   :SEED             SAVE NEW SEED
     9584   01 0293B    E8000006 A            B        *LINK             EXIT
     9585                            *
     9586                                     BOUND    8
     9587   01 0293C    12B9B0A1 A   :M1      DATA     314159265         M1 COUNTER VALUE
     9588   01 0293D    1033C4D7 A   :M2      DATA     271828183         M2 COUNTER VALUE
     9589   01 0293E    544B2FBA A   :SEED    DATA     1414213562        SEED COUNTER VALUE
     9590   01 0293F    22679CB1 A   :K       DATA     577215665         GAMMA CONSTANT
     9591                            ***************************************************************
     9592                            *
     9593                            *        TEST 25XX - PROTECTED MEMORY PAGE
     9594                            *
     9595                            *  THE FOLLOWING CODE SHOULD BE AS CLOSE AS POSSIBLE TO A
     9596                            *  PAGE BOUNDRY FOR MAXIMUM EFFETCIVENESS.  IF THE 'PACTH'
     9597                            *  AREA IS TOO LARGE THE PROGRAM  WILL NOT FIT IN 16K OF MEMORY
     9598                            *   (PAGE%BOUND MUST NOT BE IN THE SAME PAGE AS 'TRAP40E').
     9599                            *
     9600         01 02940           PATCH    EQU      %
     9601                                     BOUND    4
     9602                            *
     9603   01 029FC                          ORG      ((ABSVAL(%)//512)*512)-4
            01 029FC
     9604                            *
     9605                            *    THE FOLLOWING SET OF LOCATIONS WERE FORCED TO THE PAGE
     9606                            *      BOUNDARY OF A PROTECTED PAGE OF MEMORY
     9607                            *    IN SOME SUBTESTS THEY ARE READ, IN SOME AN ATTEMPT IS MADE
     9608                            *      TO WRITE INTO THEM, AND IN SOME AN ATTEMPT IS MADE
     9609                            *      TO STEP THE EXECUTION COUNTER INTO THE PROTECTED AREA.
     9610                            *
     9611   01 029FC    00000000 A            DATA     0                 IF ALTERED, PROTECTED MEMORY
     9612                            *                                       WAS ACCESSED
     9613   01 029FD    20800001 A            AI,R8    1                 ENTER HERE IN SUBTESTS C,D
     9614   01 029FE    20800001 A            AI,R8    1
     9615   01 029FF    20800001 A            AI,R8    1                 ENTER HERE IN SUBTESTS A,B
     9616                            *  BOUNDARY OF PROTECTED AREA IS HERE
     9617   01 02A00    359029FC     PAGE%BOUND   STW,R9   %-4
     9618   01 02A01    6800174E              B        OUTSLAVE          EXIT TO MASTER MODE
     9619   01 02A02    00000000 A            DATA     0
     9620                            *
     9621                            *
     9622         00001500           PROT%PAGE  EQU    (ABSVAL(PAGE%BOUND)/512)**8 FIND PAGE #
     9623                            *
     9624         00000014           ACC%PROT%SHIFT  EQU  30-(((ABSVAL(PAGE%BOUND)/512)&15)*2) THIS VALUE
     9625                            *                REPRESENTS THE AMOUNT NEEDED TO SHIFT THE ACCESS
     9626                            *                PROTECT TYPE TO BUILD A CONTROL IMAGE
     9627         00000004           ACC%PROT%START  EQU  (ABSVAL(PAGE%BOUND)/512)**-4**2 THIS VALUE IS
     9628                            *                                   THE ACC. PROT. CONTROL START
     9629                            *                                   FOR THE SELECTED PROTECTED PAGE
     9630                            *
     9631   01 02A03    0C000000 A   EBS%SOURCE  DATA   X'C'**24
     9632                            *
     9633   01 02A04    20000000 A   EBS%DEST DATA      X'20'**24
     9634                            *
     9635                            *************************************************************
1 C00   22:37 JUN 20,'83        DIRECTIVE SEARCH TABLE                                            PAGE   99
A    9637                            *
     9638                            *
     9639                            *
     9640                            *************
     9641                            *
     9642                            *        TABLE 3
     9643                            **********************
     9644                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     9645                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     9646                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     9647                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     9648                            *
     9649                            *        WORD 1 = DIRECTIVE POINTER
     9650                            * FORMAT   ***********
     9651                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     9652                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     9653                            *            AF(3)   BYTE 2 = SECOND CHAR.
     9654                            *            AF(4)   BYTE 3 = THIRD CHAR.
     9655                            *
     9656                            *
     9657                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     9658                            * FORMAT   ***********
     9659                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     9660                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     9661                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     9662                            *                                       DIRECTIVE ROUTINE
     9663                            *
     9664                            *        WORD 3 = CONTROL WORD
     9665                            * FORMAT   ***********
     9666                            *  L         AF(1) BITS 0-2 = MODE (TYPE)
     9667                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     9668                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     9669                            *             AF(4)   BITS 8-12= NOT USED
     9670                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     9671                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     9672                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     9673                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     9674                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     9675                            *                    OR INDEX PARAM #1 (MODE 6)
     9676                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     9677                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     9678                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     9679                            *
     9680                            *                 MODE:  0= UNCONDITIONAL (&)
     9681                            *                        1= IMMEDIATE     (DM)
     9682                            *                        2= PARAMETER LINE (S)
     9683                            *                        6= INDEXED PARAMETER LINE
     9684                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     9685                            *                            0 = HEX, 1 = BIN, AND
     9686                            *                            4-7 = DESIGNER DEFINED
     9687                            *
     9688                            *         WORD 4 = EXPLANATION POINTER
     9689                            * FORMAT   ***********
     9690                            *  P          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     9691                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     9692                            *                             = 1 IF TEXT IS COMPRESSED
     9693                            *                             = 2,3   ** NOT ALLOWED **
     9694                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     9695                            *                   TO CHARACTER #1 (REQUEST)
     9696                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     9697         01 02A05           TABLE3            EQU      %
     9698                            *
     9699   01 02A05    017C0000 A            H        1,'@'
     9700   01 02A06    00000000 A            E        0
     9701   01 02A07    00000000 A            L        0
     9702   01 02A08    2E40CC5A A            P        46,1,,ABSVAL(BA(SYNTAX%EXPL))
     9703                            *
     9704   01 02A09    01500000 A            H        1,'&'
     9705   01 02A0A    000027CF N            E        ,,READSTAT
     9706   01 02A0B    00000000 A            L        0
     9707   01 02A0C    0540CF8C A   STATEXP% P        5,1,,ABSVAL(BA(STAT%EXPL))
     9708                            *
     9709   01 02A0D    02C4D400 A            H        2,'D','M'
     9710   01 02A0E    00000000 A            E        0
     9711   01 02A0F    00000000 A            L        0
     9712   01 02A10    0241CDAA A            P        2,1,1,ABSVAL(BA(DM%EXPL))
     9713                            *
     9714   01 02A11    02D9D400 A            H        2,'R','M'
     9715   01 02A12    00000000 A            E        0
     9716   01 02A13    00000000 A            L        0
     9717   01 02A14    0341CDC7 A            P        3,1,1,ABSVAL(BA(RM%EXPL))
     9718                            *
     9719   01 02A15    02E2E200 A            H        2,'S','S'
     9720   01 02A16    00000000 A            E        0
     9721   01 02A17    00000000 A            L        0
     9722   01 02A18    0B40CDEE A            P        11,1,,ABSVAL(BA(S%EXPL))
     9723                            *
     9724   01 02A19    01E30000 A            H        1,'T'
     9725   01 02A1A    00002556 N            E        ,,ALTER%T
     9726   01 02A1B    40000000 A            L        2
        1*  01 02A1C    3640D357 A            P        54,1,,ABSVAL(BA(T%EXPL))                          *H01
     9728                            *
     9729   01 02A1D    02C4C800 A            H        2,'D','H'
     9730   01 02A1E    00001E8A N            E        ,,DISHIS
     9731   01 02A1F    00000000 A            L        0
     9732   01 02A20    1041D0B7 A            P        16,1,1,ABSVAL(BA(DH%EXPL))
     9733                            *
     9734   01 02A21    02C4C900 A            H        2,'D','I'
     9735   01 02A22    00001F7E N            E        ,,DISP%IMP
     9736   01 02A23    00000000 A            L        0
     9737   01 02A24    0541D1B3 A            P        5,1,1,ABSVAL(BA(DI%EXPL))
     9738                            *
     9739   01 02A25    02C4D200 A            H        2,'D','K'
     9740   01 02A26    00001F5C N            E        ,,DISPAT
     9741   01 02A27    00000000 A            L        0
     9742   01 02A28    0A41D204 A            P        10,1,1,ABSVAL(BA(DK%EXPL))
     9743                            *
     9744   01 02A29    02C4D800 A            H        2,'D','Q'
     9745   01 02A2A    00002009 N            E        ,,DISQ
     9746   01 02A2B    22000000 A            L        1,,2
     9747   01 02A2C    0F41CFE7 A            P        15,1,1,ABSVAL(BA(DQ%EXPL))
     9748                            *
     9749   01 02A2D    01D10000 A            H        1,'J'
     9750   01 02A2E    000023AB N            E        ,,PARAMJ
     9751   01 02A2F    40000000 A            L        2
     9752   01 02A30    1040D29E A   OVERLAY  P        16,1,,ABSVAL(BA(J%EXPL))
     9753                            *
     9754   01 02A31    01D20000 A            H        1,'K'
     9755   01 02A32    0000241B N            E        ,,PARAMK
     9756   01 02A33    C8010E00 A            L        6,1,,,1,,,7
     9757   01 02A34    0940C4CB A            P        9,1,,ABSVAL(BA(K%EXPL))
     9758                            *
     9759   01 02A35    01D70000 A            H        1,'P'
     9760   01 02A36    00002509 N            E        ,,PARAMP
     9761   01 02A37    40000000 A            L        2
     9762   01 02A38    0940C55E A            P        9,1,,ABSVAL(BA(P%EXPL))
     9763                            *
     9764   01 02A39    02C4C500 A            H        2,'D','E'
     9765   01 02A3A    00001E56 N            E        ,,DISP%E
     9766   01 02A3B    22000000 A            L        1,,2
     9767   01 02A3C    0341C44B A            P        3,1,1,ABSVAL(BA(DE%EXPL))
     9768                            *
     9769   01 02A3D    01C90000 A            H        1,'I'
     9770   01 02A3E    00002347 N            E        ,,PARAMI
     9771   01 02A3F    C8010E00 A            L        6,1,,,1,,,7
     9772   01 02A40    0540C47C A            P        5,1,,ABSVAL(BA(I%EXPL))
     9773                            *
     9774   01 02A41    FF000000 A   TABLE3END DATA  X'FF000000'
     9775                            *
     9776   01 02A42    0140CC43 A   OVERLAY%EXPL  P   1,1,,ABSVAL(BA(NO%EXPL))
     9777                            *






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

        4*        01 035B2           PROGTEXT TEXTCS   TITLE                                             *H01
    12348         01 035BE           TESTMT83 TEXTCS   'TESTING A T85-003'
    12349         01 035C3           TESTMT85 TEXTCS   'TESTING A T85-001'

    12355         01 035AE           ENDADDR  END      GUIDE             GO TO GUIDE

  CONTROL SECTION SUMMARY: 01 035C8   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   22:37 JUN 20,'83    LOADER ENTRANCE                                                       PAGE  106
A  A               9927-DO      9928/GEN
   AB             10968-DP     12214/MSGX
   ABORT           1487/CI      1496/BAL     2216/BAL     2734/BAL     2814/BAL     5635-LCI     7089/BAL
      7090/BAL     7158/BAL     7225/BAL     9303/BAL     9351/BAL
   ABORTFLAG       2118/MTW     2214/MTW     9791-DATA
   ABORTMSG1       5637/SEND   11567-EQU
   ABORTMSG2       5642/SEND   11569-EQU
   ABSOLUTE       10654-DP     11961/MSGX   12048/MSGX
   ACC%PROT%CDW    3907/LD      4046-DATA    4143/LD      4164/LD
   ACC%PROT%CODE   3904/LB      4100-EQU
   ACC%PROT%IMAGE  3906/STW     4046/DATA    4110-DATA    4142/STW     4163/STW
   ACC%PROT%SHIFT  3903/LI      4140/LI      9624-EQU
   ACC%PROT%START  4047/GEN     9627-EQU
   ACCESS          1181/STW     6805/LW      6810/LW      7651/LI      9908/DATA   12298-EQU    12299/EQU
   ACCESSP         1261/SW      1370/SW      1395/SW      9908-DATA
   ACT            10952-DP     11778/MSGX   12101/MSGX
   ACTCOUNT        2477/STW     2487/STW     2496/STW     7099/LI      9790-DATA
   ACTION         10694-DP     11823/MSGX   11960/MSGX
   ACTIVATE         952-EQU     1885/WD      1896/WD      1959/DATA    1963/DATA    1965/DATA    1967/DATA
      1967/DATA    1969/DATA    1971/DATA    1975/DATA    1975/DATA    3120/LI      9229/WD      9326/WD
   ACTIVE         10440-DP     11760/MSGX   11778/MSGX   11819/MSGX   11819/MSGX   11839/MSGX   12101/MSGX
     12216/MSGX
   ACTIVELOCN      7031/LI      8654/STW     8664/STW     9321/LW      9789-DATA
   ACTIVELVL       1066/LI      1071/STW     1073/MTW     1268/LW      1381/LW      1435/LW      2805/LW
      2810/CW      7029/LW      8647/STW     8662/STW     9329/CW      9788-DATA
   ACTIVITY       10868-DP     11901/MSGX
   ACTUAL         10691-DP     11633/MSGX   11761/MSGX   11777/MSGX   11784/MSGX   11788/MSGX   11792/MSGX
     11800/MSGX   11804/MSGX   11821/MSGX   11830/MSGX   11926/MSGX
   AD             10410-DP     11600/MSGX   12006/MSGX
   ADDR           10747-DP     11577/MSGX   12074/MSGX
   ADDRESS        10667-DP     11568/MSGX   11767/MSGX   11783/MSGX   11784/MSGX   11796/MSGX   11803/MSGX
     11804/MSGX   11806/MSGX   11851/MSGX   11854/MSGX   12064/MSGX   12066/MSGX   12074/MSGX   12097/MSGX
   ADDRESSED      10830-DP     11753/MSGX
   ADDRESSING     10807-DP     12205/MSGX
   AFTER          10465-DP     11821/MSGX   11971/MSGX   11973/MSGX   11975/MSGX   12165/MSGX
   AK             10418-DP     11552/MSGX   11552/MSGX   11558/MSGX   11558/MSGX   11560/MSGX   11560/MSGX
     11560/MSGX   11560/MSGX   11583/MSGX   11583/MSGX   11583/MSGX   11583/MSGX   11583/MSGX   11583/MSGX
     11590/MSGX   11590/MSGX   11590/MSGX   11596/MSGX   11605/MSGX   11605/MSGX   11605/MSGX   11605/MSGX
     11605/MSGX   11605/MSGX   11610/MSGX   11610/MSGX   11610/MSGX   11610/MSGX   11610/MSGX   11610/MSGX
     11624/MSGX   11624/MSGX   11624/MSGX   11626/MSGX   11651/MSGX   11651/MSGX   11664/MSGX   11664/MSGX
     11664/MSGX   11664/MSGX   11677/MSGX   11677/MSGX   11677/MSGX   11677/MSGX   11682/MSGX   11682/MSGX
     11689/MSGX   11689/MSGX   11689/MSGX   11696/MSGX   11696/MSGX   11717/MSGX   11717/MSGX   11731/MSGX
     11731/MSGX   11757/MSGX   11757/MSGX   11757/MSGX   11757/MSGX   11762/MSGX   11762/MSGX   11762/MSGX
     11824/MSGX   11926/MSGX   11944/MSGX   11944/MSGX   11944/MSGX   11944/MSGX   11977/MSGX   11977/MSGX
     11977/MSGX   12041/MSGX   12041/MSGX   12041/MSGX   12041/MSGX   12041/MSGX   12041/MSGX   12093/MSGX
     12122/MSGX   12122/MSGX   12122/MSGX   12158/MSGX   12158/MSGX   12179/MSGX   12179/MSGX
   ALL            10543-DP     11686/MSGX   11745/MSGX   12013/MSGX   12087/MSGX   12087/MSGX   12117/MSGX
     12120/MSGX   12135/MSGX   12214/MSGX   12237/MSGX
   ALLOW          10930-DP     11993/MSGX
   ALLOWS         10431-DP     11697/MSGX   11987/MSGX   12059/MSGX   12180/MSGX
   ALPHANUMERIC   10791-DP     11746/MSGX
   ALSO           10757-DP     11987/MSGX
   ALTER%T         8182-EQU     9725/E
   ALTERED        10681-DP     11881/MSGX   11884/MSGX   11886/MSGX   11889/MSGX
   AN             10587-DP     11840/MSGX   12166/MSGX   12207/MSGX   12250/MSGX
   AND            10526-DP     11584/MSGX   11584/MSGX   11700/MSGX   11728/MSGX   11731/MSGX   11765/MSGX
     11811/MSGX   11858/MSGX   11860/MSGX   11862/MSGX   11979/MSGX   11983/MSGX   11993/MSGX   12015/MSGX
     12042/MSGX   12046/MSGX   12057/MSGX   12064/MSGX   12087/MSGX   12099/MSGX   12100/MSGX   12139/MSGX
     12161/MSGX   12182/MSGX   12184/MSGX   12185/MSGX   12188/MSGX   12194/MSGX   12202/MSGX   12209/MSGX
     12211/MSGX
   ANY            10520-DP     11560/MSGX   11957/MSGX   11959/MSGX   12060/MSGX   12182/MSGX   12207/MSGX
   AP             10407-DP     11673/MSGX   11673/MSGX   11675/MSGX   11675/MSGX   11675/MSGX   11675/MSGX
     11745/MSGX   11746/MSGX   11749/MSGX   11749/MSGX   11752/MSGX   11752/MSGX   11811/MSGX   11842/MSGX
     11842/MSGX   11869/MSGX   11869/MSGX   11954/MSGX   11954/MSGX   11956/MSGX   11956/MSGX   11961/MSGX
     11961/MSGX   11961/MSGX   11961/MSGX   11963/MSGX   11963/MSGX   11963/MSGX   11963/MSGX   11965/MSGX
     11965/MSGX   11965/MSGX   11965/MSGX   11968/MSGX   11968/MSGX   11968/MSGX   11968/MSGX   11971/MSGX
     11971/MSGX   11971/MSGX   11971/MSGX   11977/MSGX   11977/MSGX   11979/MSGX   11979/MSGX   11983/MSGX
     11983/MSGX   11987/MSGX   11987/MSGX   11987/MSGX   11987/MSGX   11991/MSGX   11991/MSGX   11995/MSGX
     11995/MSGX   12006/MSGX   12006/MSGX   12008/MSGX   12008/MSGX   12009/MSGX   12009/MSGX   12010/MSGX
     12010/MSGX   12011/MSGX   12011/MSGX   12013/MSGX   12013/MSGX   12015/MSGX   12015/MSGX   12020/MSGX
     12020/MSGX   12023/MSGX   12023/MSGX   12026/MSGX   12026/MSGX   12027/MSGX   12027/MSGX   12042/MSGX
     12057/MSGX   12057/MSGX   12082/MSGX   12082/MSGX   12114/MSGX   12114/MSGX   12133/MSGX   12133/MSGX
     12194/MSGX   12233/MSGX   12233/MSGX
   ARE            10529-DP     11590/MSGX   11724/MSGX   11745/MSGX
   ARM            10546-DP     11700/MSGX   11778/MSGX   11895/MSGX   12099/MSGX   12101/MSGX   12139/MSGX
   ARM%ENBL        2832-WD
   ARM:WAIT         939-EQU     8629/RD      8777/RD      9148/RD      9293/RD
   ARMALL          2227/BAL     5660-EQU
   ARMALL#A        5664-EQU     5676/BIR
   ARMD             955-EQU     1895/WD      1959/DATA    1965/DATA    1967/DATA    1971/DATA    1971/DATA
      1973/DATA    1973/DATA    1975/DATA    1977/DATA    1977/DATA    2248/WD      2953/WD      3145/WD
      5142/WD      9325/WD      9425/WD      9428/WD
   ARME             954-EQU     1132/WD      1822/WD      1959/DATA    1961/DATA    1963/DATA    1967/DATA
      1967/DATA    1969/DATA    1973/DATA    1975/DATA    1975/DATA    2231/WD      2300/WD      2422/WD
      2429/WD      2436/WD      2748/WD      2832/WD      2907/WD      3143/WD      5236/WD      5325/WD
      5368/WD      5673/WD      5679/WD      9179/WD      9208/WD
   ARMED          10462-DP     11656/MSGX   11700/MSGX   11774/MSGX   11778/MSGX   11815/MSGX   11815/MSGX
     12101/MSGX   12139/MSGX
   AS             10560-DP     11589/MSGX   11589/MSGX   11590/MSGX   11822/MSGX   11826/MSGX   11904/MSGX
     11961/MSGX   11963/MSGX   11987/MSGX   12044/MSGX   12205/MSGX
   ASR            10943-DP     11954/MSGX
   ASSIGNED       10859-DP     11718/MSGX
   ASSUMED        10870-DP     11552/MSGX
   AT             10556-DP     11554/MSGX   11568/MSGX   11570/MSGX   12180/MSGX   12196/MSGX
   AUTOSTATUS      5618/MTW     9104/MTW     9111/STW     9123-DATA
   AVAILABLE      10820-DP     11624/MSGX   11944/MSGX
   B              10593-DP     11646/MSGX   11658/MSGX   11892/MSGX   11895/MSGX   11898/MSGX   11901/MSGX
     11973/MSGX   12172/MSGX   12194/MSGX   12234/MSGX   12245/MSGX   12246/MSGX
   BACK%SPACE      6181/BCR     6255-EQU
   BAD%PARITY      3341/LMS     3350/STW     4183/STW     4185/LMS     4188/LMS     4206/STW     5134/STW
      5136/LMS     5146/LW      5159-DATA
   BAL            10950-DP     12066/MSGX
   BALNIMP         8816/LW      9910-BAL
   BALNORM         6814/CW      8818/LW      9909-BAL
   BALSPUR         1180/LW      1188/LW      1192/LW      6806/CW      9911-BAL
   BALTRAP         1184/LW      6818/CW      9912-BAL
   BDR            10522-DP     11563/MSGX   11586/MSGX
   BE             10557-DP     11560/MSGX   11689/MSGX   11699/MSGX   11728/MSGX   11746/MSGX   12122/MSGX
     12182/MSGX   12183/MSGX   12183/MSGX   12186/MSGX   12211/MSGX
   BECAUSE        10876-DP     11622/MSGX
   BEFORE         10914-DP     11560/MSGX   11825/MSGX   11944/MSGX
   BELOW          10472-DP     12091/MSGX   12138/MSGX
   BETWEEN        10872-DP     11584/MSGX   11983/MSGX
   BINARY         10442-DP     11791/MSGX   11792/MSGX   11811/MSGX
   BIT            10545-DP     11700/MSGX   11702/MSGX   11704/MSGX   11706/MSGX   11851/MSGX   12095/MSGX
     12139/MSGX   12141/MSGX   12143/MSGX   12145/MSGX
   BITS           10750-DP     11654/MSGX
   BLOCKS         10971-DP     11572/MSGX   11574/MSGX
   BOUND%RES       3929/LW      3996/LW      4002/LI      4032-EQU     4059/DATA
   BR             10423-DP
   BREAK          10925-DP     11954/MSGX
   BUFFER           781-CNAME
   BUFFEREND      12324-EQU    12327/CHECK
   BUFFIT          6192-CW      6253/B
   BUFWD#1         7560/LW      7570-DATA
   BUT            10947-DP     11987/MSGX
   BY             10584-DP     11745/MSGX   11746/MSGX   11749/MSGX   11753/MSGX   11851/MSGX   11854/MSGX
     11917/MSGX   11919/MSGX   11922/MSGX   12066/MSGX   12114/MSGX   12163/MSGX
   BY%RE%CHK       5797/LW      5842/STW     7294/STW     9793-DATA
   BYPASS%SR       5616/LW      5620/MTW     5624-DATA    5832/STW
   BYTE           10783-DP     11858/MSGX   11889/MSGX
   C              10594-DP     11646/MSGX   11658/MSGX   11904/MSGX   11938/MSGX   11975/MSGX   12173/MSGX
     12242/MSGX   12247/MSGX   12249/MSGX
   C:PMI#A         5870/B       5894-LI
   C:PMI#B         5876/B       5895-LI
   C:PMI#C         5871/B       5908-LI
   C:PMI#D         5872/B       5910-LI
   C:PMI#E         5906/B       5913-EXU     5931/BDR
   C:PMI#ER        5899/BE      5902/BE      5905/BE      5918/BE      5923/BNE     5934-#TYPE
   C:PMI#F         5915/BE      5921-EXU
   C:PMI#G         5919/B       5924-CI
   C:PMI#X         5932/B       5936-LCI
   CA               645/SET
   CALL            4308/EXU     4312/LW      4354-CAL1
   CALLED         10703-DP     12064/MSGX
   CAN            10548-DP     11689/MSGX   12122/MSGX   12207/MSGX   12211/MSGX
   CANNOT         10717-DP     11728/MSGX   11920/MSGX
   CASE           10937-DP     11589/MSGX
   CATALOG          0.1-EQU      0.3/EQU
   CAUSES         10434-DP     11690/MSGX   12006/MSGX   12067/MSGX
   CB               645/SET
   CBSDW25         3924/LD      3976/CD      3979/LI      4059-DATA
   CC               645/SET
   CD               645/SET
   CE               645/SET
   CHAR           10754-DP     11959/MSGX
   CHECK            742-CNAME
   CHECKS         10713-DP     12199/MSGX   12202/MSGX
   CHK%CLR         5979/B       6002-EQU
   CHK%PDF         1399/BAL     3291/BAL     5952-EQU
   CHK%PDF%ON      5963/BE      5965/BE      5967/BE      5981-EQU
   CHK%PDF#X       5970/BCS     5983/BCS     5995/B       6004/BCS     6008/B       6016-LCI
   CHK%RET         1319/BAL     1340/BAL     1484-EQU
   CHK:LOOP        1738/BAL     2181/BAL     2322/BAL     2446/BAL     2780/BAL     2827/BAL     2929/BAL
      2995/BAL     3077/BAL     3193/BAL     3445/BAL     3590/BAL     3697/BAL     3805/BAL     4016/BAL
      4158/BAL     4202/BAL     4320/BAL     4552/BAL     4744/BAL     4892/BAL     5000/BAL     5094/BAL
      5155/BAL     5261/BAL     5302/BAL     5350/BAL     5392/BAL     5431/BAL     5491/BAL     5598/BAL
      5783-STW     5784/STW     5785/STW     5836/MTW     5843/LW      5844/LW      5845/B*      7295/BAL
   CHK:LP#A        5790-LC
   CHK:LP#C        5791/BCR     5794-LC
   CHK:LP#D        5797-LW
   CHK:LP#E        5803-LW
   CHK:LP#F        5792/B       5795/BCS     5817/BL      5821/BL      5837-LW
   CHK:LP#G        5798/BNEZ    5841-LI
   CHK:PMI         5864-LCI     7838/BAL     8128/BAL
   CHK:PMI%TABLE   5878-LW      5897/EXU     5898/EXU     5900/EXU     5901/EXU     5903/EXU     5904/EXU
      5913/EXU     5914/EXU     5916/EXU     5917/EXU     5921/EXU     5922/EXU
   CHKAL#A         5721-LH      5742/BDR     5748/BDR
   CHKAL#B         5724/BEZ     5726/BNEZ    5740-AI
   CHKAL#X         5751-LCI
   CHKALL          2114/BAL     2787/BAL     2826/BAL     3075/BAL     5596/BAL     5714-LCI
   CHKPSD          1283/BAL     6052-RES
   CHKPSD#1        6059/BE      6067-CW
   CHKSEQ          2788/BAL     2825/BAL     3076/BAL     5597/BAL     6087-LCI
   CHKSQ#A         6091-LB      6097/BDR
   CHKSQ#B         6095/BNE     6100-LI
   CHKSQ#X         6098/B       6102-LCI
   CI             10566-DP     11656/MSGX   11706/MSGX   12145/MSGX
   CLEAR%MFI       1313/BAL     6118-EQU     6125/B
   CLEAR%PDF       3362/LPSD    3365-DATA
   CLEARED        10889-DP     11919/MSGX   11922/MSGX   12088/MSGX
   CLEARPDF        5972/LPSD    5974-DATA
   CLK%SAVE        9254-DATA
   CLK%STATE       9166/STB     9209/LB      9253-DATA
   CLOCK          10936-DP     12168/MSGX
   CLRPDF          5999/LPSD    6001-DATA
   CM             10562-DP     11600/MSGX   11649/MSGX   12168/MSGX
   CM%ACTUAL       9094/LB      9125-TEXT
   CNTERREXP       2326/GEN    11582-EQU
   CNTERREXP%      2295/LW      2326-GEN
   CNTRFREQ        2258/CW      2306/CW      2315/STW     9797-DATA
   CNTRZERO        2896/LW      3001-DATA
   CO             10404-DP     11554/MSGX   11575/MSGX   11675/MSGX   11675/MSGX   11765/MSGX   11774/MSGX
     11774/MSGX   11774/MSGX   11774/MSGX   11778/MSGX   11778/MSGX   11778/MSGX   11780/MSGX   11811/MSGX
     11811/MSGX   11922/MSGX   11926/MSGX   11954/MSGX   11956/MSGX   11961/MSGX   11963/MSGX   11965/MSGX
     11968/MSGX   11971/MSGX   11973/MSGX   11977/MSGX   11977/MSGX   11983/MSGX   11987/MSGX   12042/MSGX
     12067/MSGX   12067/MSGX   12072/MSGX   12073/MSGX   12099/MSGX   12100/MSGX   12100/MSGX   12101/MSGX
     12101/MSGX   12101/MSGX   12103/MSGX   12165/MSGX   12166/MSGX   12180/MSGX   12180/MSGX   12188/MSGX
     12202/MSGX   12202/MSGX   12216/MSGX
   COCGRP          1022-DATA    1682/CW      2049/CW      2417/CW      2523/CW      2645/CW      5667/CW
      7355/CW      7415/CW      9176/LW
   COCMASK         1023-DATA    1685/AND     2051/AND     2419/AND     2525/AND     2647/LW      5669/LW
      7357/AND     7417/AND     9174/LW
   CODE           10519-DP     11795/MSGX   11869/MSGX   11869/MSGX
   CODES           1390/STCF    1391/STCF    3280/STCF    3327/LB      4193/STCF    4512/STCF    4522/LW
      7106/LB      7266/LW      9795-DATA
   COMDEV         10693-DP     11649/MSGX   12160/MSGX   12163/MSGX
   COMMAND        10679-DP     11821/MSGX   11825/MSGX   12213/MSGX
   COMMANDED      10623-DP     11633/MSGX   11772/MSGX   11823/MSGX   11849/MSGX   11893/MSGX   12099/MSGX
   COMMUNICATION  10790-DP     12160/MSGX
   COMPLETED      10621-DP     11600/MSGX   12042/MSGX   12042/MSGX
   COMPUTE        10880-DP     11965/MSGX
   COMSTMSG        6433/LW      7047/LW     10316-TEXT
   CONDITION      10633-DP     11764/MSGX   11791/MSGX   11792/MSGX   11864/MSGX
   CONDITIONS     10810-DP     12240/MSGX   12243/MSGX
   CONFIG          2170/#PRINT 11551-EQU
   CONFLICT       10832-DP     11622/MSGX
   CONTAIN        10973-DP     11574/MSGX
   CONTAINING     10805-DP     11684/MSGX   12118/MSGX
   CONTENTS       10656-DP     11886/MSGX   11983/MSGX
   CONTIGUOUS     10813-DP     11724/MSGX
   CONTINUE       10848-DP     11920/MSGX   12187/MSGX
   CONTINUE%PSD    9800-DATA
   CONTROL        10666-DP     11566/MSGX   11654/MSGX   11889/MSGX   11957/MSGX   11959/MSGX   11995/MSGX
     12133/MSGX   12135/MSGX   12158/MSGX
   CONTROLLED     10806-DP     12170/MSGX   12170/MSGX
   COUNT          10461-DP     11636/MSGX   11787/MSGX   11788/MSGX   11856/MSGX   11858/MSGX   11860/MSGX
     11862/MSGX   12104/MSGX   12166/MSGX   12167/MSGX
   COUNTER        10665-DP     11563/MSGX   11580/MSGX   11584/MSGX   11587/MSGX   11706/MSGX   11720/MSGX
     11912/MSGX   11932/MSGX   11938/MSGX   11938/MSGX   12145/MSGX   12200/MSGX
   COUNTERROR      2293/#PRINT 11562-EQU
   COUNTERZERO    10797-DP     12211/MSGX
   COUNTS         10702-DP     12044/MSGX
   CP             10421-DP     11587/MSGX   11616/MSGX   11673/MSGX   11682/MSGX   11684/MSGX   11690/MSGX
     11700/MSGX   11702/MSGX   11704/MSGX   11706/MSGX   11708/MSGX   11710/MSGX   11726/MSGX   11728/MSGX
     11745/MSGX   11746/MSGX   11749/MSGX   11752/MSGX   11755/MSGX   11767/MSGX   11774/MSGX   11778/MSGX
     11780/MSGX   11780/MSGX   11787/MSGX   11788/MSGX   11791/MSGX   11792/MSGX   11795/MSGX   11796/MSGX
     11806/MSGX   11819/MSGX   11822/MSGX   11824/MSGX   11826/MSGX   11839/MSGX   11842/MSGX   11871/MSGX
     11873/MSGX   11875/MSGX   11878/MSGX   11881/MSGX   11886/MSGX   11929/MSGX   11938/MSGX   11944/MSGX
     11961/MSGX   11963/MSGX   11968/MSGX   11971/MSGX   11971/MSGX   11971/MSGX   11973/MSGX   11973/MSGX
     11975/MSGX   11975/MSGX   11983/MSGX   11987/MSGX   11991/MSGX   11995/MSGX   12006/MSGX   12008/MSGX
     12009/MSGX   12010/MSGX   12011/MSGX   12013/MSGX   12015/MSGX   12020/MSGX   12022/MSGX   12023/MSGX
     12025/MSGX   12026/MSGX   12027/MSGX   12027/MSGX   12044/MSGX   12046/MSGX   12048/MSGX   12060/MSGX
     12060/MSGX   12060/MSGX   12062/MSGX   12062/MSGX   12063/MSGX   12063/MSGX   12064/MSGX   12088/MSGX
     12090/MSGX   12093/MSGX   12095/MSGX   12097/MSGX   12103/MSGX   12103/MSGX   12114/MSGX   12118/MSGX
     12122/MSGX   12139/MSGX   12141/MSGX   12143/MSGX   12145/MSGX   12147/MSGX   12149/MSGX   12158/MSGX
     12161/MSGX   12163/MSGX   12170/MSGX   12179/MSGX   12182/MSGX   12187/MSGX   12190/MSGX   12196/MSGX
     12198/MSGX   12204/MSGX   12234/MSGX   12247/MSGX
   CURPSD          1306/STD     1322/MTW     1323/LPSD    1335/LS      1343/LPSD    1356/STW     1359/LPSD
      1485/LW      1492/LD      2094/STW     2100/LPSD    3057/STW     3065/LPSD    5581/STW     5586/LPSD
      9446/STB     9798-DATA
   CURRENT        10674-DP     11748/MSGX   11751/MSGX   11839/MSGX   11973/MSGX   11991/MSGX   12006/MSGX
     12044/MSGX   12082/MSGX   12084/MSGX   12104/MSGX
   CZ             10569-DP     11658/MSGX   11720/MSGX   11728/MSGX
   C0               677/GEN      711-EQU    11552/MSGX   11554/MSGX   11556/MSGX   11558/MSGX   11560/MSGX
     11563/MSGX   11566/MSGX   11568/MSGX   11570/MSGX   11575/MSGX   11580/MSGX   11583/MSGX   11584/MSGX
     11586/MSGX   11587/MSGX   11589/MSGX   11590/MSGX   11593/MSGX   11596/MSGX   11600/MSGX   11605/MSGX
     11607/MSGX   11610/MSGX   11613/MSGX   11616/MSGX   11619/MSGX   11622/MSGX   11624/MSGX   11626/MSGX
     11629/MSGX   11631/MSGX   11633/MSGX   11636/MSGX   11640/MSGX   11642/MSGX   11644/MSGX   11646/MSGX
     11649/MSGX   11651/MSGX   11654/MSGX   11656/MSGX   11658/MSGX   11661/MSGX   11664/MSGX   11673/MSGX
     11677/MSGX   11686/MSGX   11690/MSGX   11697/MSGX   11699/MSGX   11700/MSGX   11708/MSGX   11710/MSGX
     11718/MSGX   11720/MSGX   11721/MSGX   11722/MSGX   11726/MSGX   11728/MSGX   11731/MSGX   11739/MSGX
     11740/MSGX   11743/MSGX   11746/MSGX   11748/MSGX   11749/MSGX   11751/MSGX   11752/MSGX   11753/MSGX
     11755/MSGX   11756/MSGX   11757/MSGX   11760/MSGX   11761/MSGX   11762/MSGX   11763/MSGX   11764/MSGX
     11765/MSGX   11767/MSGX   11769/MSGX   11772/MSGX   11774/MSGX   11777/MSGX   11778/MSGX   11780/MSGX
     11783/MSGX   11784/MSGX   11787/MSGX   11788/MSGX   11791/MSGX   11792/MSGX   11795/MSGX   11796/MSGX
     11799/MSGX   11800/MSGX   11803/MSGX   11804/MSGX   11805/MSGX   11806/MSGX   11810/MSGX   11811/MSGX
     11813/MSGX   11815/MSGX   11817/MSGX   11819/MSGX   11821/MSGX   11822/MSGX   11823/MSGX   11824/MSGX
     11825/MSGX   11826/MSGX   11829/MSGX   11830/MSGX   11833/MSGX   11837/MSGX   11839/MSGX   11840/MSGX
     11842/MSGX   11844/MSGX   11846/MSGX   11848/MSGX   11849/MSGX   11851/MSGX   11854/MSGX   11856/MSGX
     11858/MSGX   11860/MSGX   11862/MSGX   11864/MSGX   11866/MSGX   11868/MSGX   11869/MSGX   11871/MSGX
     11873/MSGX   11875/MSGX   11878/MSGX   11881/MSGX   11884/MSGX   11886/MSGX   11889/MSGX   11892/MSGX
     11893/MSGX   11895/MSGX   11898/MSGX   11901/MSGX   11904/MSGX   11907/MSGX   11909/MSGX   11912/MSGX
     11915/MSGX   11917/MSGX   11920/MSGX   11924/MSGX   11926/MSGX   11929/MSGX   11932/MSGX   11934/MSGX
     11956/MSGX   11960/MSGX   11965/MSGX   11967/MSGX   11970/MSGX   11973/MSGX   11975/MSGX   11979/MSGX
     11982/MSGX   11986/MSGX   11989/MSGX   11993/MSGX   11995/MSGX   11997/MSGX   11998/MSGX   11999/MSGX
     12000/MSGX   12001/MSGX   12002/MSGX   12003/MSGX   12004/MSGX   12009/MSGX   12010/MSGX   12011/MSGX
     12013/MSGX   12015/MSGX   12017/MSGX   12022/MSGX   12025/MSGX   12042/MSGX   12044/MSGX   12046/MSGX
     12048/MSGX   12057/MSGX   12060/MSGX   12062/MSGX   12063/MSGX   12064/MSGX   12066/MSGX   12067/MSGX
     12069/MSGX   12070/MSGX   12071/MSGX   12072/MSGX   12073/MSGX   12074/MSGX   12075/MSGX   12082/MSGX
     12084/MSGX   12088/MSGX   12090/MSGX   12091/MSGX   12092/MSGX   12093/MSGX   12094/MSGX   12095/MSGX
     12097/MSGX   12099/MSGX   12100/MSGX   12101/MSGX   12103/MSGX   12104/MSGX   12114/MSGX   12120/MSGX
     12122/MSGX   12133/MSGX   12136/MSGX   12138/MSGX   12139/MSGX   12141/MSGX   12143/MSGX   12145/MSGX
     12147/MSGX   12149/MSGX   12160/MSGX   12161/MSGX   12162/MSGX   12163/MSGX   12164/MSGX   12165/MSGX
     12166/MSGX   12167/MSGX   12168/MSGX   12169/MSGX   12170/MSGX   12171/MSGX   12172/MSGX   12173/MSGX
     12180/MSGX   12182/MSGX   12183/MSGX   12184/MSGX   12185/MSGX   12186/MSGX   12187/MSGX   12188/MSGX
     12190/MSGX   12193/MSGX   12196/MSGX   12198/MSGX   12199/MSGX   12200/MSGX   12202/MSGX   12204/MSGX
     12205/MSGX   12207/MSGX   12209/MSGX   12211/MSGX   12213/MSGX   12214/MSGX   12216/MSGX   12220/MSGX
     12221/MSGX   12223/MSGX   12224/MSGX   12226/MSGX   12227/MSGX   12229/MSGX   12230/MSGX   12232/MSGX
     12233/MSGX   12234/MSGX   12236/MSGX   12237/MSGX   12239/MSGX   12240/MSGX   12242/MSGX   12243/MSGX
     12245/MSGX   12246/MSGX   12247/MSGX   12249/MSGX   12250/MSGX   12252/MSGX   12253/MSGX   12254/MSGX
     12255/MSGX
   C1               645/SET      712-EQU     2171/#PRINT 11574/MSGX   11684/MSGX   11689/MSGX   11702/MSGX
     11704/MSGX   11706/MSGX   11724/MSGX   11741/MSGX   11745/MSGX   11919/MSGX   11922/MSGX   11936/MSGX
     11938/MSGX   11942/MSGX   11944/MSGX   12008/MSGX   12023/MSGX   12026/MSGX   12027/MSGX   12118/MSGX
     12159/MSGX   12194/MSGX
   C2               645/SET      713-EQU     2023/#PRINT  2037/#PRINT  2170/#PRINT  2264/#PRINT
      2293/#PRINT  3585/#PRINT  6363/#PRINT  6540/#PRINT  6589/#PRINT  6635/#PRINT  6651/#PRINT
      6999/#PRINT 11572/MSGX   11577/MSGX   11603/MSGX   11954/MSGX   12020/MSGX
   C3               645/SET      714-EQU
   C4               645/SET      715-EQU
   C5               645/SET      716-EQU
   C6               645/SET      717-EQU
   C7               645/SET      718-EQU
   C8               645/SET
   C9               645/SET
   D              10595-DP     11575/MSGX   11646/MSGX   11658/MSGX   11780/MSGX   12023/MSGX   12103/MSGX
     12230/MSGX   12250/MSGX   12252/MSGX
   DAT              842/DO       843/GEN      845/DO       846/GEN      848/DO       849/GEN     6179/AI
      6248/AI     10363-LOC
   DATA           10777-DP     11803/MSGX   11804/MSGX
   DBL            10961-DP     11889/MSGX
   DE             10578-DP     11673/MSGX   11675/MSGX   12009/MSGX
   DE%EXPL         9767/P      11671-EQU
   DEC%MODS        4947/LM      4984/AI      5028-EQU
   DEC%SAVE        4973/STM     4992/STM     4996/LI      5041-RES
   DECIMAL        10900-DP     12247/MSGX
   DECOM           6138/B       6147-EQU
   DECOM%G         1037/DATA    6134-EQU
   DECOM%RET       6149/STW     6221/MTW     6222/B*      6265-DATA
   DECOM%SAVE      6136/STM     6144/STM     6217/STW     6220/LM      6264-RES
   DECOM%TO        6148/STW     6157/LW      6213/LW      6214/SW      6268-DATA
   DECOM%U          865/BAL     6142-EQU
   DEFINITIONS    10793-DP     12069/MSGX
   DELAY#DW        6875/LD      6879-BDR
   DELAY1SEC       2236/BAL     2301/BAL     6868-EQU
   DESCRIPTION    10795-DP     12193/MSGX
   DETERMINE      10826-DP     12194/MSGX
   DEV            10537-DP     11991/MSGX
   DEVICE         10690-DP     11624/MSGX   11957/MSGX   11960/MSGX   12159/MSGX   12160/MSGX
   DH             10579-DP     11926/MSGX   12010/MSGX   12082/MSGX   12084/MSGX
   DH%EXPL         9732/P      12081-EQU
   DI             10580-DP     12011/MSGX   12114/MSGX   12117/MSGX
   DI%EXPL         9737/P      12112-EQU
   DI%HDR          6589/#PRINT 11602-EQU
   DID            10552-DP     11839/MSGX   11846/MSGX   11866/MSGX   11868/MSGX   11895/MSGX
   DIGITS         10711-DP     11929/MSGX   12188/MSGX
   DIRECT         10429-DP     11869/MSGX   12094/MSGX   12213/MSGX   12250/MSGX
   DIRECTIVE      10825-DP     11973/MSGX
   DIRECTIVES     10803-DP     11977/MSGX
   DIS            10951-DP     11778/MSGX   12101/MSGX
   DIS%ALL%E       6284/BEZ     6298-EQU
   DIS%E           6294/B       6301/B       6305-LW      6321/B
   DIS%E#A         6307/BE      6317-CW
   DIS%E#PE1       6286/BG      6324-LD
   DIS%E#PE2       6291/BG      6293/BL      6326-LD
   DIS%E#X         6318/BLE     6330-LCI
   DIS%ONE%E       6289/BEZ     6303-EQU
   DISABLE          957-EQU     1880/WD      1884/WD      1887/WD      1959/DATA    1961/DATA    1963/DATA
      1963/DATA    1965/DATA    1967/DATA    1971/DATA    1973/DATA    2253/WD      2292/WD      2303/WD
      9222/WD      9225/WD      9228/WD      9232/WD
   DISABLED       10660-DP     11700/MSGX   11780/MSGX   11813/MSGX   11815/MSGX   11817/MSGX   11819/MSGX
     11819/MSGX   12103/MSGX   12139/MSGX
   DISARM           953-EQU     1701/WD      1813/WD      1879/WD      1882/WD      1959/DATA    1961/DATA
      1965/DATA    1965/DATA    1969/DATA    1971/DATA    1973/DATA    1975/DATA    1975/DATA    2229/WD
      2912/WD      2973/WD      2979/WD      3360/WD      5677/WD      5693/WD      5698/WD      9171/WD
      9177/WD      9221/WD      9292/WD      9419/WD      9421/WD
   DISARMALL       1127/BAL     2369/BAL     2379/BAL     2637/BAL     2853/BAL     2865/BAL     3047/BAL
      3113/BAL     5193/BAL     5688-RES     8155/BAL
   DISARMED       10844-DP     11778/MSGX   12101/MSGX
   DISHIS          6357-LCI     9730/E
   DISHIS#A        6373/BG      6380-LI      6479/B
   DISHIS#B        6382-BAL     6399/B       6482/B
   DISHIS#C        6390/BNE     6392/BE      6397-LI
   DISHIS#D        6367/BNE     6401-AI      6477/BL
   DISHIS#E        6405-CB      6408/B
   DISHIS#F        6395/B       6411-LB
   DISHIS#I        6385/BGE     6484-BAL     6519/B
   DISHIS#M        6463/BNEZ    6469-LOADBYTE
   DISHIS#N        6467/B       6472-LI
   DISHIS#P        6495/BEZ     6504-AI
   DISHIS#Q        6502/B       6508-LW
   DISHIS#X        6378/B       6487/BGE     6518/BGE     6522-LCI
   DISIMP          1915/BAL     6578/BAL     6582-RES
   DISIMP#A        6590-LH      6710/BLE
   DISIMP#B        6601/BE      6603-SEND
   DISIMP#C        6604-LW
   DISIMP#E        6602/B       6611-SEND
   DISIMP#F        6629-SEND    6694/BL
   DISIMP#G        6647-AI      6666/B
   DISIMP#H        6638/BE      6658-LW
   DISIMP#J        6634/BCR     6672-LB
   DISIMP#K        6652/B       6688-AI
   DISIMP#R        6592/BEZ     6608/B       6695/B       6703-SLS
   DISIMP#X        6713-LCI
   DISP%E          6279-EQU     9765/E
   DISP%IMP        6578-BAL     9735/E
   DISPAT          6540-#PRINT  9740/E
   DISPL          10467-DP
   DISPLAY        10675-DP     11673/MSGX   11926/MSGX   11991/MSGX   12057/MSGX   12067/MSGX   12114/MSGX
     12133/MSGX
   DISPLAYED      10620-DP     11586/MSGX   11590/MSGX   11757/MSGX   11989/MSGX
   DISPLAYS       10657-DP     11675/MSGX   11987/MSGX   12008/MSGX   12009/MSGX   12010/MSGX   12011/MSGX
     12013/MSGX   12015/MSGX   12082/MSGX   12084/MSGX   12117/MSGX   12135/MSGX
   DISPT#A         6544-BAL     6560/BNEZ
   DISPT#B         6553-CI      6562/B
   DISPT#X         6564-LCI
   DISQ            6730-EQU     9745/E
   DISQ#A          6732/BEZ     6742-LI
   DISQ#B          6737/BEZ     6746-LI      6751/BE
   DISQ#C          6740/B       6750-CW
   DISQ#D          6752/BL      6757-LW
   DISQ#E          6744/B       6748/B       6755/B       6761-BAL
   DISQ#F          6764-LOADHALF             6843/BDR
   DISQ#F1         6774/B       6779/B       6782-LOADWORD
   DISQ#G          6785/BE      6792-LW
   DISQ#H          6770/B       6795/BNE     6805-LW
   DISQ#I          6809-STW     6817/B       6823/B       6827/B
   DISQ#J          6812/B       6829-SLS
   DISQ#K          6803/B       6833-LOADWORD
   DISQ#L          6790/B       6840-#PRINT
   DISQ#R          6735/BGE     6848-LD
   DISQ#S          6739/BGE     6850-LD
   DISQ#X          6844/B       6854-LCI
   DIVIDEND        4874/LW      4897-DATA
   DK             10581-DP     12013/MSGX   12133/MSGX   12135/MSGX
   DK%EXPL         9742/P      12131-EQU
   DM             10573-DP     11983/MSGX   11987/MSGX   12008/MSGX
   DM%EXPL         9712/P      11981-EQU
   DO             10570-DP
   DOES           10503-DP     11849/MSGX   11893/MSGX   11924/MSGX   11961/MSGX   11963/MSGX
   DONTCLEAR       5984/LPSD    5986-EQU
   DOUBLE         10724-DP     11884/MSGX
   DP               811-CNAME
   DQ             10582-DP     12015/MSGX   12057/MSGX   12059/MSGX   12067/MSGX
   DQ%EXPL         9747/P      12056-EQU
   DT               823/GEN     6188/AI      6251/AI     10984-LOC    11036/EQU    11037/EQU    11038/EQU
     11066/EQU    11070/EQU    11072/EQU    11093/EQU    11095/EQU    11100/EQU    11103/EQU    11105/EQU
     11122/EQU    11138/EQU    11152/EQU    11154/EQU    11155/EQU    11156/EQU    11163/EQU    11164/EQU
     11165/EQU    11168/EQU    11177/EQU    11186/EQU    11191/EQU    11194/EQU    11196/EQU    11231/EQU
     11234/EQU    11241/EQU    11248/EQU    11251/EQU    11253/EQU    11264/EQU    11266/EQU    11271/EQU
     11272/EQU    11276/EQU    11278/EQU    11282/EQU    11284/EQU    11285/EQU    11288/EQU    11289/EQU
     11291/EQU    11292/EQU    11294/EQU    11297/EQU    11302/EQU    11304/EQU    11306/EQU    11321/EQU
     11327/EQU    11331/EQU    11332/EQU    11339/EQU    11343/EQU    11344/EQU    11347/EQU    11350/EQU
     11351/EQU    11355/EQU    11357/EQU    11359/EQU    11360/EQU    11362/EQU    11363/EQU    11365/EQU
     11367/EQU    11369/EQU    11377/EQU    11379/EQU    11385/EQU    11391/EQU    11393/EQU    11395/EQU
     11397/EQU    11400/EQU    11405/EQU    11406/EQU    11408/EQU    11411/EQU    11412/EQU    11415/EQU
     11417/EQU    11421/EQU    11423/EQU    11424/EQU    11425/EQU    11427/EQU    11428/EQU    11429/EQU
     11430/EQU    11431/EQU    11432/EQU    11434/EQU    11436/EQU    11440/EQU    11441/EQU    11444/EQU
     11445/EQU    11446/EQU    11448/EQU    11449/EQU    11450/EQU    11451/EQU    11453/EQU    11454/EQU
     11455/EQU    11456/EQU    11457/EQU    11458/EQU    11460/EQU    11462/EQU    11466/EQU    11467/EQU
     11473/EQU    11474/EQU    11475/EQU    11476/EQU    11477/EQU    11479/EQU    11480/EQU    11481/EQU
     11483/EQU    11485/EQU    11486/EQU    11488/EQU    11490/EQU    11491/EQU    11492/EQU    11493/EQU
     11494/EQU    11495/EQU    11496/EQU    11497/EQU    11498/EQU    11499/EQU    11500/EQU    11501/EQU
     11502/EQU    11503/EQU    11504/EQU    11505/EQU    11506/EQU    11507/EQU    11508/EQU    11509/EQU
     11510/EQU    11511/EQU    11512/EQU    11513/EQU    11514/EQU    11515/EQU    11516/EQU    11517/EQU
     11518/EQU    11519/EQU    11520/EQU    11521/EQU    11522/EQU    11523/EQU    11524/EQU    11525/EQU
     11526/EQU    11527/EQU    11528/EQU    11529/EQU    11530/EQU
   DUMPS          10929-DP     11983/MSGX
   DURING         10704-DP     11699/MSGX   12082/MSGX   12084/MSGX
   D0               719-EQU
   D1               720-EQU    11957/MSGX   11959/MSGX   11961/MSGX   11963/MSGX   11968/MSGX   11971/MSGX
     11983/MSGX   11987/MSGX   11991/MSGX   12192/MSGX   12218/MSGX   12256/MSGX
   D2               721-EQU    11675/MSGX   11682/MSGX   11696/MSGX   11717/MSGX   11977/MSGX   12006/MSGX
     12041/MSGX   12087/MSGX   12117/MSGX   12135/MSGX   12158/MSGX   12179/MSGX
   D3               722-EQU    12059/MSGX
   D4               723-EQU
   D5               724-EQU
   D6               725-EQU
   D7               726-EQU
   D8               727-EQU
   E               1047-COM    10596-DP     11646/MSGX   11658/MSGX   11774/MSGX   11780/MSGX   11907/MSGX
     11909/MSGX   11912/MSGX   11915/MSGX   11917/MSGX   11919/MSGX   11922/MSGX   11938/MSGX   12100/MSGX
     12103/MSGX   12224/MSGX   12253/MSGX
   EACH           10510-DP     11718/MSGX   11726/MSGX   12044/MSGX   12165/MSGX   12216/MSGX
   EBC%B3Z        10317-DATA
   EBC%HWZ         5883/CW      5891/CW     10319-DATA
   EBC%LPSD2       7191/LD      7215-TEXT
   EBC%LPSD3       7193/LD      7216-TEXT
   EBC%PE          7202/LD      7218-TEXT
   EBC%SPUR        6510/LD     10332-TEXT
   EBC%STATE       6458/LD      7081/LD     10323-EQU
   EBC%3ZEROS      5838/CW     10318-DATA
   EBCBLNKS        7557/LW      7948/LW      8430/LW      8441/LW      8540/LW      9529/LW      9530/LW
     11003-EQU
   EBCBUF          6415/STW     6426/STW     6430/STW     6434/STW     6438/STW     6459/STD     6491/STW
      6497/STW     7035/STW     7048/STW     7052/STW     7082/STD     7109/STW     7114/STW     7162/STW
      7166/STW     7178/STW     7194/STD     7203/STD     7211/STW     7698/LB      7712/LB      7723-RES
      7744/STW     7751/STW     7753/STW
   EBCZEROS        5884/CW      5892/CW      9470/LW     10320-DATA
   EBS%DEST        3927/STB     4066/GEN     9633-DATA
   EBS%SOURCE      4065/GEN     9631-DATA
   EBSDW25         3925/LD      3986/CD      3990/LI      4065-GEN
   ECOMMA          6677/LB     10321-TEXT
   EHAND           6800/LW     10335-TEXT
   EI             10568-DP     11656/MSGX   11710/MSGX   12149/MSGX
   EIMPL           6826/LW     10336-TEXT
   ENABLE         10438-DP     11704/MSGX   12100/MSGX   12143/MSGX
   ENABLED        10671-DP     11656/MSGX   11704/MSGX   11774/MSGX   11780/MSGX   11813/MSGX   11815/MSGX
     11817/MSGX   12103/MSGX   12143/MSGX
   ENBL             956-EQU     1702/WD      1959/DATA    1961/DATA    1961/DATA    1963/DATA    1963/DATA
      1969/DATA    1969/DATA    2250/WD      2966/WD      8769/RD      9149/RD      9439/WD
   ENBLDIS          958-EQU     1961/DATA    1963/DATA    1965/DATA    1967/DATA    1969/DATA    1969/DATA
      1971/DATA    1973/DATA    1977/DATA    9442/WD
   END            10954-DP     12185/MSGX
   ENDADDR        12355-END
   ENDBUF          6160/STW     6192/CW      6194/LW      6267-DATA
   ENONE           6369/LW      6393/LW      6508/LW      6786/LW      7034/LW     10338-TEXT
   ENORM           6816/LW     10337-TEXT
   ENOT            6645/LW      6658/LW      6674/LW      6824/LW     10339-TEXT
   ENTERING       10840-DP     12088/MSGX
   ENTRIES        10875-DP     11619/MSGX   11833/MSGX
   EQ             10416-DP     11580/MSGX   11600/MSGX   11600/MSGX   11600/MSGX   11600/MSGX   11600/MSGX
     11600/MSGX   11613/MSGX   11613/MSGX   11613/MSGX   11613/MSGX   11700/MSGX   11702/MSGX   11704/MSGX
     11706/MSGX   11706/MSGX   11708/MSGX   11710/MSGX   11720/MSGX   11721/MSGX   11722/MSGX   11726/MSGX
     11748/MSGX   11751/MSGX   11753/MSGX   11760/MSGX   11761/MSGX   11764/MSGX   11765/MSGX   11767/MSGX
     11772/MSGX   11774/MSGX   11774/MSGX   11774/MSGX   11774/MSGX   11774/MSGX   11777/MSGX   11778/MSGX
     11778/MSGX   11778/MSGX   11778/MSGX   11780/MSGX   11780/MSGX   11783/MSGX   11784/MSGX   11787/MSGX
     11788/MSGX   11791/MSGX   11792/MSGX   11795/MSGX   11796/MSGX   11799/MSGX   11800/MSGX   11803/MSGX
     11804/MSGX   11805/MSGX   11806/MSGX   11810/MSGX   11811/MSGX   11813/MSGX   11813/MSGX   11815/MSGX
     11815/MSGX   11817/MSGX   11817/MSGX   11819/MSGX   11819/MSGX   11821/MSGX   11823/MSGX   11825/MSGX
     11829/MSGX   11830/MSGX   11837/MSGX   11842/MSGX   11844/MSGX   11846/MSGX   11848/MSGX   11851/MSGX
     11851/MSGX   11854/MSGX   11856/MSGX   11858/MSGX   11860/MSGX   11862/MSGX   11864/MSGX   11866/MSGX
     11868/MSGX   11871/MSGX   11873/MSGX   11875/MSGX   11878/MSGX   11881/MSGX   11884/MSGX   11886/MSGX
     11889/MSGX   11892/MSGX   11895/MSGX   11898/MSGX   11901/MSGX   11904/MSGX   11907/MSGX   11909/MSGX
     11912/MSGX   11915/MSGX   11917/MSGX   11919/MSGX   11922/MSGX   11924/MSGX   11929/MSGX   11938/MSGX
     11938/MSGX   11995/MSGX   11997/MSGX   11998/MSGX   11999/MSGX   12000/MSGX   12001/MSGX   12002/MSGX
     12003/MSGX   12004/MSGX   12022/MSGX   12025/MSGX   12042/MSGX   12044/MSGX   12046/MSGX   12070/MSGX
     12071/MSGX   12072/MSGX   12073/MSGX   12074/MSGX   12075/MSGX   12094/MSGX   12095/MSGX   12097/MSGX
     12099/MSGX   12099/MSGX   12099/MSGX   12100/MSGX   12100/MSGX   12100/MSGX   12101/MSGX   12101/MSGX
     12101/MSGX   12101/MSGX   12101/MSGX   12103/MSGX   12103/MSGX   12104/MSGX   12139/MSGX   12141/MSGX
     12143/MSGX   12145/MSGX   12145/MSGX   12147/MSGX   12149/MSGX   12159/MSGX   12160/MSGX   12164/MSGX
     12168/MSGX   12171/MSGX   12171/MSGX   12172/MSGX   12172/MSGX   12173/MSGX   12173/MSGX   12184/MSGX
     12185/MSGX   12186/MSGX   12188/MSGX
   EQUALS         10715-DP     11720/MSGX
   EROR            1351/BAL     1429/BAL     1438/BAL     1444/BAL     1450/BAL     1456/BAL     1461/BAL
      1788/BAL     1876/BAL     2120/BAL     2481/BAL     2491/BAL     2500/BAL     2756/BAL     2918/BAL
      2925/BAL     2977/BAL     2985/BAL     2992/BAL     3159/BAL     3190/BAL     3300/BAL     3305/BAL
      3318/BAL     3326/BAL     3331/BAL     3347/BAL     3357/BAL     3440/BAL     3577/BAL     3695/BAL
      3803/BAL     3962/BAL     3972/BAL     3982/BAL     3993/BAL     4005/BAL     4013/BAL     4200/BAL
      4315/BAL     4519/BAL     4525/BAL     4538/BAL     4550/BAL     4730/BAL     4742/BAL     4888/BAL
      4977/BAL     4998/BAL     5092/BAL     5153/BAL     5242/BAL     5335/BAL     5346/BAL     5378/BAL
      5388/BAL     5416/BAL     5427/BAL     5462/BAL     5473/BAL     5489/BAL     5737/BAL     5978/BAL
      5994/BAL     6007/BAL     6014/BAL     6101/BAL     6974-LCI     9349/BAL
   EROR#A          7022/B       7158-BAL
   EROR#B          7023/B       7160-LW
   EROR#B#B        7182/BLZ     7185/B       7198/B       7209-LW
   EROR#B1         7173/B       7175-EQU
   EROR#B2         7172/BE      7187-EQU
   EROR#B3         7170/BE      7200-EQU
   EROR#C          7024/B       7221-LOADWORD
   EROR#D          7025/B       7225-BAL
   EROR#F          7027/B       7228-CI
   EROR#G          6998/BE      7001-LW
   EROR#H          7026/B       7085/B       7104/B       7148/B       7213/B       7223/B       7229/BNE
      7235/B       7246-LI
   EROR#H1         7097/B       7117/B       7125/B       7147/BL      7156/B       7241-LI
   EROR#J          7041/B       7248-LI
   EROR#K          7258/BG      7273-#PRINT
   EROR#W          2294/BAL     7277-LCI
   EROR#X          7276/B       7283-LC
   EROR#X1         6980/BCS     7282/BCS     7284/BCS     7298-LCI
   EROR#X2         7285-#TYPE
   EROR#0          7012/B       7029-LW
   EROR#0A         7030/BLZ     7034-LW
   EROR#0B         7033/B       7037-LI
   EROR#1          7013/B       7046-LI
   EROR#1A         7073-EQU
   EROR#2          7014/B       7089-BAL
   EROR#3          7015/B       7090-BAL
   EROR#4          7016/B       7092-LI
   EROR#5          7017/B       7099-LI
   EROR#6          7018/B       7106-LB
   EROR#7          7019/B       7119-EQU
   EROR#8          7020/B       7127-LI
   EROR#8A         7130/BG      7135-LW
   EROR#8B         7133/B       7141-LI
   EROR#9          7021/B       7150-LOADWORD
   ERORCNT         5607/LW      5803/LW      6977/MTW     7279/MTW     8245/STW     9802-DATA
   ERORCOM         7007/BE      7012-B
   ERORHALT        7286/#TYPE  11609-EQU
   ERORHD#1        6997/CI      6999/#PRINT  7274/LI     11606-EQU
   ERORTOTAL       5806/LW      6978/MTW     7280/MTW     9804-DATA
   ERPARAM1        9801-DATA
   ERR            10948-DP
   ERROR          10447-DP     11568/MSGX   11575/MSGX   11605/MSGX   11610/MSGX   11626/MSGX   11673/MSGX
     11675/MSGX   11740/MSGX   11763/MSGX   11864/MSGX   11871/MSGX   11873/MSGX   11875/MSGX   11878/MSGX
     11975/MSGX   11975/MSGX   12001/MSGX   12002/MSGX   12003/MSGX   12004/MSGX   12009/MSGX   12093/MSGX
     12253/MSGX
   ERRORFREE       5609/MTW     9393/STW     9803-DATA
   ERRORMSG        2023/#PRINT  2037/#PRINT  6635/#PRINT 11604-EQU
   ERRORS         10689-DP     11600/MSGX   12046/MSGX   12046/MSGX   12048/MSGX
   ESPUR           6808/LW      6820/LW     10340-TEXT
   ETRAP           6798/LW      6822/LW     10341-TEXT
   ETRIG          10342-TEXT
   EVEN           10768-DP     12166/MSGX
   EWAIT          10334-TEXT
   EXCEPTION      10827-DP     12254/MSGX
   EXECUTE        10879-DP     11960/MSGX
   EXECUTED       10647-DP     11587/MSGX   11944/MSGX   12182/MSGX   12183/MSGX   12186/MSGX
   EXECUTES       10662-DP     12218/MSGX   12224/MSGX   12227/MSGX   12230/MSGX   12233/MSGX   12234/MSGX
     12237/MSGX   12240/MSGX   12243/MSGX   12246/MSGX   12247/MSGX   12250/MSGX   12256/MSGX
   EXERCISE       10853-DP     12214/MSGX
   EXIST          10735-DP     12227/MSGX
   EXISTANT       10856-DP     12218/MSGX   12221/MSGX
   EXISTS         10922-DP     11622/MSGX
   EXP%F#B         9943/GEN    11809-EQU
   EXP%F#C         9944/GEN    11828-EQU
   EXP%F#E         9946/GEN     9947/GEN    11832-EQU
   EXP%F#0         9933/GEN    11759-EQU
   EXP%F#1         9934/GEN    11771-EQU
   EXP%F#4         9936/GEN    11782-EQU
   EXP%F#5         9937/GEN    11786-EQU
   EXP%F#6         9938/GEN    11790-EQU
   EXP%F#7         9939/GEN    11794-EQU
   EXP%F#8         9940/GEN    11798-EQU
   EXP%F#9         9941/GEN    11802-EQU
   EXP%HDR         9932/GEN    11738-EQU
   EXP%T#B1       10125/GEN    11891-EQU
   EXP%T#B2       10126/GEN    11894-EQU
   EXP%T#B3       10127/GEN    11897-EQU
   EXP%T#B4       10128/GEN    11900-EQU
   EXP%T#C1       10141/GEN    11903-EQU
   EXP%T#ER        9951/GEN     9952/GEN     9953/GEN     9954/GEN     9955/GEN     9956/GEN     9957/GEN
      9958/GEN     9959/GEN     9960/GEN     9961/GEN     9962/GEN     9963/GEN     9964/GEN     9968/GEN
      9969/GEN     9970/GEN     9971/GEN     9972/GEN     9973/GEN     9974/GEN     9975/GEN     9976/GEN
      9977/GEN     9978/GEN     9979/GEN     9980/GEN     9981/GEN     9982/GEN     9983/GEN     9984/GEN
      9985/GEN     9986/GEN     9987/GEN     9988/GEN     9989/GEN     9990/GEN     9991/GEN     9992/GEN
      9993/GEN     9994/GEN     9995/GEN     9996/GEN     9997/GEN     9998/GEN     9999/GEN    10000/GEN
     10001/GEN    10002/GEN    10003/GEN    10004/GEN    10005/GEN    10006/GEN    10007/GEN    10008/GEN
     10009/GEN    10010/GEN    10011/GEN    10012/GEN    10015/GEN    10016/GEN    10017/GEN    10018/GEN
     10019/GEN    10020/GEN    10021/GEN    10022/GEN    10023/GEN    10024/GEN    10025/GEN    10026/GEN
     10027/GEN    10028/GEN    10033/GEN    10034/GEN    10035/GEN    10036/GEN    10037/GEN    10038/GEN
     10039/GEN    10040/GEN    10041/GEN    10042/GEN    10043/GEN    10044/GEN    10046/GEN    10047/GEN
     10048/GEN    10049/GEN    10050/GEN    10051/GEN    10052/GEN    10053/GEN    10054/GEN    10055/GEN
     10056/GEN    10057/GEN    10058/GEN    10059/GEN    10060/GEN    10063/GEN    10064/GEN    10065/GEN
     10066/GEN    10067/GEN    10068/GEN    10069/GEN    10070/GEN    10071/GEN    10072/GEN    10073/GEN
     10074/GEN    10075/GEN    10076/GEN    10081/GEN    10082/GEN    10083/GEN    10084/GEN    10085/GEN
     10086/GEN    10087/GEN    10088/GEN    10089/GEN    10090/GEN    10091/GEN    10092/GEN    10097/GEN
     10098/GEN    10099/GEN    10100/GEN    10101/GEN    10102/GEN    10103/GEN    10104/GEN    10105/GEN
     10106/GEN    10107/GEN    10108/GEN    10109/GEN    10110/GEN    10111/GEN    10112/GEN    10113/GEN
     10114/GEN    10115/GEN    10116/GEN    10117/GEN    10118/GEN    10119/GEN    10120/GEN    10121/GEN
     10122/GEN    10123/GEN    10124/GEN    10129/GEN    10130/GEN    10131/GEN    10132/GEN    10133/GEN
     10134/GEN    10135/GEN    10136/GEN    10137/GEN    10138/GEN    10139/GEN    10140/GEN    10142/GEN
     10143/GEN    10144/GEN    10145/GEN    10146/GEN    10147/GEN    10148/GEN    10149/GEN    10150/GEN
     10151/GEN    10152/GEN    10153/GEN    10154/GEN    10155/GEN    10156/GEN    10157/GEN    10158/GEN
     10159/GEN    10160/GEN    10161/GEN    10162/GEN    10163/GEN    10164/GEN    10165/GEN    10166/GEN
     10167/GEN    10168/GEN    10169/GEN    10170/GEN    10171/GEN    10172/GEN    10180/GEN    10181/GEN
     10182/GEN    10183/GEN    10184/GEN    10185/GEN    10186/GEN    10187/GEN    10188/GEN    10191/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    11555-EQU
   EXP%T#E1       10173/GEN    11906-EQU
   EXP%T#E2       10174/GEN    11908-EQU
   EXP%T#E3       10175/GEN    11911-EQU
   EXP%T#E4       10176/GEN    11914-EQU
   EXP%T#E5       10177/GEN    11916-EQU
   EXP%T#E6       10178/GEN    11918-EQU
   EXP%T#E7       10179/GEN    11921-EQU
   EXP%T#F1       10189/GEN    11923-EQU
   EXP%T#F2       10190/GEN    11928-EQU
   EXP%T#01        9949/GEN    11836-EQU
   EXP%T#02        9950/GEN    11841-EQU
   EXP%T#11        9965/GEN    11843-EQU
   EXP%T#12        9966/GEN    11845-EQU
   EXP%T#13        9967/GEN    11847-EQU
   EXP%T#41       10013/GEN    11850-EQU
   EXP%T#42       10014/GEN    11853-EQU
   EXP%T#51       10029/GEN    11855-EQU
   EXP%T#52       10030/GEN    11857-EQU
   EXP%T#53       10031/GEN    11859-EQU
   EXP%T#54       10032/GEN    11861-EQU
   EXP%T#61       10045/GEN    11863-EQU
   EXP%T#71       10061/GEN    11865-EQU
   EXP%T#72       10062/GEN    11867-EQU
   EXP%T#81       10077/GEN    11870-EQU
   EXP%T#82       10078/GEN    11872-EQU
   EXP%T#83       10079/GEN    11874-EQU
   EXP%T#84       10080/GEN    11877-EQU
   EXP%T#91       10093/GEN    11880-EQU
   EXP%T#92       10094/GEN    11883-EQU
   EXP%T#93       10095/GEN    11885-EQU
   EXP%T#94       10096/GEN    11888-EQU
   EXPCOUNT        2479/STW     2489/STW     2498/STW     7101/LI      9805-DATA
   EXPECTED       10649-DP     11633/MSGX   11783/MSGX   11787/MSGX   11791/MSGX   11796/MSGX   11799/MSGX
     11803/MSGX   11810/MSGX   11829/MSGX   11846/MSGX   11866/MSGX   11868/MSGX   11898/MSGX   11904/MSGX
     11924/MSGX
   EXPL           10756-DP
   EXPL%F#B        9943-GEN
   EXPL%F#C        9944-GEN
   EXPL%F#E        9946-GEN
   EXPL%F#F        9947-GEN
   EXPL%F#0        6312/LW      6991/LW      9933-GEN
   EXPL%F#1        9934-GEN
   EXPL%F#4        9936-GEN
   EXPL%F#5        9937-GEN
   EXPL%F#6        9938-GEN
   EXPL%F#7        9939-GEN
   EXPL%F#8        9940-GEN
   EXPL%F#9        9941-GEN
   EXPL%T#B1      10125-GEN
   EXPL%T#B2      10126-GEN
   EXPL%T#B3      10127-GEN
   EXPL%T#B4      10128-GEN
   EXPL%T#C1      10141-GEN
   EXPL%T#E1      10173-GEN
   EXPL%T#E2      10174-GEN
   EXPL%T#E3      10175-GEN
   EXPL%T#E4      10176-GEN
   EXPL%T#E5      10177-GEN
   EXPL%T#E6      10178-GEN
   EXPL%T#E7      10179-GEN
   EXPL%T#F1      10189-GEN
   EXPL%T#F2      10190-GEN
   EXPL%T#01       6305/LW      6306/CW      6987/LW      9949-GEN
   EXPL%T#02       9950-GEN
   EXPL%T#11       9965-GEN
   EXPL%T#12       9966-GEN
   EXPL%T#13       9967-GEN
   EXPL%T#41      10013-GEN
   EXPL%T#42      10014-GEN
   EXPL%T#51      10029-GEN
   EXPL%T#52      10030-GEN
   EXPL%T#53      10031-GEN
   EXPL%T#54      10032-GEN
   EXPL%T#61      10045-GEN
   EXPL%T#71      10061-GEN
   EXPL%T#72      10062-GEN
   EXPL%T#81      10077-GEN
   EXPL%T#82      10078-GEN
   EXPL%T#83      10079-GEN
   EXPL%T#84      10080-GEN
   EXPL%T#91      10093-GEN
   EXPL%T#92      10094-GEN
   EXPL%T#93      10095-GEN
   EXPL%T#94      10096-GEN
   EXPL%1          6983/LW      9932-GEN
   EXPLAINED      10628-DP     12091/MSGX   12136/MSGX
   EXPLANATION    10613-DP     11583/MSGX   11673/MSGX   11682/MSGX   11944/MSGX   11954/MSGX   11973/MSGX
     11975/MSGX   12041/MSGX   12158/MSGX
   EXPLANATIONS   10607-DP     11675/MSGX   11757/MSGX   12009/MSGX
   EXPSEQCT        2116/CW      2630/STW     2735/LW      2741/STW     2890/STW     2955/STW     6366/CW
      6475/CW      7591/STW     8926/STW     9806-DATA
   EXTERNAL       10661-DP     11710/MSGX   11722/MSGX   12149/MSGX
   F              10597-DP     11575/MSGX   11646/MSGX   11658/MSGX   11722/MSGX   11722/MSGX   11924/MSGX
     11929/MSGX   12022/MSGX   12025/MSGX   12190/MSGX   12190/MSGX   12254/MSGX   12255/MSGX
   FAILURE        10908-DP     11757/MSGX
   FAST           10492-DP     11587/MSGX   12172/MSGX   12172/MSGX
   FAULT          10743-DP     11898/MSGX   11904/MSGX
   FF             10583-DP     11755/MSGX   11811/MSGX   12060/MSGX   12097/MSGX   12194/MSGX   12196/MSGX
     12202/MSGX
   FFF            10532-DP     11596/MSGX   11869/MSGX   12256/MSGX
   FFFFFFFF       10854-DP     12216/MSGX
   FIELD          10455-DP     11607/MSGX   11607/MSGX   11607/MSGX   11607/MSGX   11741/MSGX   11741/MSGX
     11741/MSGX   11741/MSGX   11760/MSGX   11761/MSGX   11772/MSGX   11777/MSGX   11783/MSGX   11784/MSGX
     11787/MSGX   11788/MSGX   11791/MSGX   11792/MSGX   11795/MSGX   11796/MSGX   11799/MSGX   11800/MSGX
     11803/MSGX   11804/MSGX   11805/MSGX   11806/MSGX   11810/MSGX   11821/MSGX   11822/MSGX   11823/MSGX
     11825/MSGX   11826/MSGX   11829/MSGX   11830/MSGX   11979/MSGX   11995/MSGX
   FIELDS         10723-DP     11833/MSGX
   FIND           10762-DP     12059/MSGX
   FIND%FRAG       6179-AI      6236/B
   FIRST          10924-DP     11575/MSGX   11619/MSGX
   FIRST%TIME      1076/MTW     1234-DATA
   FIVE           10253-DATA
   FIXED          10477-DP     12170/MSGX   12214/MSGX   12243/MSGX
   FLAG           10787-DP     11917/MSGX   11919/MSGX   11922/MSGX
   FLIP           10518-DP     11772/MSGX   11777/MSGX   11810/MSGX   11825/MSGX   11901/MSGX
   FLOATING       10975-DP     12246/MSGX
   FLOP           10786-DP     11901/MSGX
   FLOPS          10482-DP     11772/MSGX   11777/MSGX   11810/MSGX   11825/MSGX
   FOLLOWED       10860-DP     11749/MSGX
   FOLLOWING      10625-DP     11757/MSGX   11763/MSGX   11959/MSGX   11977/MSGX
   FOR            10535-DP     11749/MSGX   11926/MSGX   11954/MSGX   11956/MSGX   11956/MSGX   11957/MSGX
     11967/MSGX   11977/MSGX   12013/MSGX   12075/MSGX   12163/MSGX   12221/MSGX
   FORCED         10913-DP     11554/MSGX
   FORCES         10696-DP     11963/MSGX   11968/MSGX
   FORM           10780-DP     11822/MSGX   11826/MSGX
   FORMAT         10437-DP     11740/MSGX   12091/MSGX   12136/MSGX
   FOUR            1440/AND    10252-DATA
   FPO%            4696/LW      4769-EQU
   FPO%INST        4711/LW      4817-EQU
   FPO%SAVE        4710/STD     4811-RES     4825/AH      4827/AD      4828/AWM     4829/MTH     4830/MTH
      4831/MTW     4832/MTW     4833/SH      4835/SW
   FPO%VAL         4709/LD      4803-EQU     4836/SD      4837/SD
   FREQUENCIES    10796-DP     12200/MSGX
   FROM           10504-DP     11752/MSGX   11961/MSGX   12066/MSGX   12161/MSGX
   FULL           10940-DP     11619/MSGX
   FULLMEM         3585/#PRINT 11615-EQU
   FULLY          10476-DP     11572/MSGX   11616/MSGX   11684/MSGX   11936/MSGX   12118/MSGX
   FUNCTION       10834-DP     11956/MSGX
   F0               645/SET
   F1               645/SET      728-EQU
   F2               729-EQU
   GENAL#A         7318-LW      7322/BDR
   GENALL          7315-LCI
   GENFPAT         3045/BAL     7343-LCI
   GENFPAT#A       7352-LH      7361/BLE
   GENRPAT         5562/BAL     7400-LCI
   GENRPATA        7405-MTW     7443/B
   GENRPATB        7412-BAL     7428/B
   GENRPATC        7404/BNE     7433-LW
   GENRPATX        7426/BCR     7447-LH
   GLOSS          10928-DP     11971/MSGX
   GO#ERMSG        8329/#TYPE   8337/#TYPE  11557-EQU
   GOSAVE          1607/LM      2362/LM      2606/LM      2849/LM      3108/LM      3393/LM      3532/LM
      3623/LM      3749/LM      3848/LM      4120/LM      4231/LM      4444/LM      4660/LM      4848/LM
      4910/LM      5176/LM      8293/STM     8305/STM     8379-RES
   GOTO#PSD        8251/STW     8291/STB     8295/DATA    8306/LPSD    9799-DATA
   GOTOHD          8181/GEN    11592-EQU
   GOTST1          8216/CW      8218/LW      8348-DATA
   GOTST11         1605-EQU     8349/GEN
   GOTST12         1993-RES     8350/GEN
   GOTST13         2212-RES     8351/GEN
   GOTST14         2361-LCI     8352/GEN
   GOTST15         2605-LCI     8353/GEN
   GOTST15A        2609/BNE     2613-#TYPE
   GOTST16         2848-LCI     8354/GEN
   GOTST17         3012-MTW     8355/GEN
   GOTST18         3106-EQU     8356/GEN
   GOTST2          8223/CW      8225/LW      8358-DATA
   GOTST2A         4658-EQU     8368/GEN
   GOTST2B         4846-EQU     8369/GEN
   GOTST2C         4908-EQU     8370/GEN
   GOTST2D         5055-EQU     8371/GEN
   GOTST2E         5110-EQU     8372/GEN
   GOTST2F         5171-EQU     8373/GEN
   GOTST21         3391-EQU     8359/GEN
   GOTST22         3530-EQU     8360/GEN
   GOTST23         3621-EQU     8361/GEN
   GOTST24         3747-EQU     8362/GEN
   GOTST25         3846-EQU     8363/GEN
   GOTST26         4118-EQU     8364/GEN
   GOTST28         4230-LCI     8366/GEN
   GOTST29         4442-RES     8367/GEN
   GOTST3          8231/LW      8375-DATA
   GOTST31         5558-LW      8376/GEN
   GROUP          10458-DP     11636/MSGX   11642/MSGX   11644/MSGX   11646/MSGX   11656/MSGX   11684/MSGX
     11684/MSGX   11686/MSGX   11706/MSGX   11708/MSGX   11718/MSGX   11720/MSGX   11721/MSGX   11726/MSGX
     11932/MSGX   11934/MSGX   11936/MSGX   11938/MSGX   11942/MSGX   12022/MSGX   12022/MSGX   12025/MSGX
     12025/MSGX   12094/MSGX   12094/MSGX   12118/MSGX   12118/MSGX   12120/MSGX   12145/MSGX   12147/MSGX
     12188/MSGX   12190/MSGX
   GROUPS         10682-DP     11552/MSGX   11710/MSGX   11722/MSGX   12013/MSGX   12136/MSGX   12149/MSGX
     12199/MSGX
   GRP              988-EQU     1435/LW      1436/SLD     1619/LI      1632/LW      1638/CI      1682/CW
      1690/SLS     1691/AW      1692/SLS     1701/WD      1702/WD      1706/WD      1731/LH      1733/STH
      1750/CI      1764/CI      1766/CI      1768/AI      1769/AI      1777/LH      1782/LH      1784/STH
      1815/CI      2009/LI      2043/LI      2045/LH      2049/CW      2059/STH     2060/AI      2061/CI
      2145/LB      2146/SLD     2147/CI      2149/LW      2151/STW     2368/STB     2380/LI      2398/LW
      2402/AI      2417/CW      2422/WD      2423/WD      2429/WD      2430/WD      2436/WD      2437/WD
      2455/CI      2457/AI      2458/AI      2459/CI      2506/CI      2520/LH      2523/CW      2542/LI
      2633/LI      2634/STW     2665/STH     2676/LI      2677/AW      2690/LI      2695/LI      2709/CI
      2714/LH      2718/LH      2720/STH     2721/STH     2724/LW      2748/WD      2749/WD      2831/WD
      3117/LI      3122/SLS     3123/OR      3124/SLS     3133/LH      3143/WD      3145/WD      3146/WD
      3196/CI      3202/CI      3204/AI      3205/AI      3206/CI      3208/LH      5719/LI      5721/LH
      5743/CI      5745/AI      5746/AI      5866/CI      5869/B       6421/LB      6422/SLD     6424/STW
      6439/LH      6444/LH      6448/LH      6452/LH      6587/LI      6590/LH      6596/CI      6604/LW
      6612/LW      6616/CI      6619/LH      6691/CI      6704/CI      6707/AI      6708/AI      6709/CI
      7053/LH      7058/LH      7062/LH      7066/LH      7805/LI      7809/LI      7811/LI      8127/LI
      8205/LB      8624/LI      8627/LW      8629/RD      8631/RD      8645/SLS     8646/OR      8647/STW
      8648/CI      8650/AI      8653/AI      8654/STW     8765/SLD     8769/RD      8773/RD      8777/RD
      8810/LI      8812/LH      8822/CI      8830/AI      8831/AI      8832/CI      8862/SLD     8863/CB
      8872/CI
   GRP#CNTR        2016/LS      8623/LW      8960/AND     9915-DATA
   GRP#IO          2030/LS      8985/AND     9916-DATA
   GRP#OVER        8906/AND     9914-DATA
   GRPIMPL         1914/STW     6593/LW      6595/STW     7407/LW      7538/STH     9886-DATA
   GRPIMSG1        6603/SEND   11935-EQU
   GRPIMSG3        6611/SEND   11941-EQU
   GRPINH          2628/STW     2852/STW     2871/STW     3059/LW      5566/STW     5572/LW      7323/STW
      7381/STW     8412/LW      8478/STW     8693/AND     8700/AND     8705/AND     9444/LW      9888-DATA
   GRPINH#E        8415/STW     8471/LW      9892-DATA
   GT             10405-DP     11675/MSGX   11956/MSGX   11983/MSGX   11987/MSGX   12067/MSGX
   GUIDE          12340-STW    12355/END
   GUIDE55         1080/STW     1129/LW      9145/LW      9251-DATA
   H               1046-COM
   HALFWORD       10865-DP     11860/MSGX
   HALT           10498-DP     11610/MSGX   12001/MSGX   12002/MSGX
   HANDLER        10888-DP     12057/MSGX   12074/MSGX   12075/MSGX
   HANDLING       10658-DP     12015/MSGX   12064/MSGX
   HAS            10946-DP     11575/MSGX   11970/MSGX
   HAVE           10781-DP     11833/MSGX
   HEADER         10705-DP     12091/MSGX   12136/MSGX
   HEX            10542-DP     11700/MSGX   11702/MSGX   11704/MSGX   11724/MSGX   11746/MSGX   11787/MSGX
     11788/MSGX   11983/MSGX   12097/MSGX   12139/MSGX   12141/MSGX   12143/MSGX
   HEXADECIMAL    10800-DP     11745/MSGX
   HI%PRI%INT      1646/LW      1811/LW      1893/LW      9286/LW      9311/STW     9313/STW     9322/CW
      9347/LW      9807-DATA
   HIGH           10517-DP     11760/MSGX   11839/MSGX   11912/MSGX   11929/MSGX
   HIGHEST        10905-DP     11726/MSGX
   HISTHD1         6363/#PRINT 11630-EQU
   HISTHD2         6364/#PRINT 11632-EQU
   HISTHD3         6365/#PRINT 11635-EQU
   HISTORY         1113/STW     1119/STW     1374/LI      2131/LI      2723/LI      2808/LI      2884/LI
      2956/STB     2981/LB      5716/LI      6090/LI      6359/LI      6380/LI      6403/LI      7587/STW
      8511/LI      8863/CB      8871/LB      8902/LI      8957/LI      8982/LI      8989/LI      8994/LI
      8999/LI      9004/LI      9009/LI      9014/LI      9019/LI      9024/LI      9029/LI      9034/LI
      9039/LI      9044/LI      9049/LI      9054/LI     12303-EQU    12320/EQU
   HISTORYEND      2138/CI      6384/CI     12320-EQU    12321/EQU
   HIT            10944-DP     11954/MSGX
   HSTORYP         1275/LW      1411/LW      6355-DATA    6360/STW     6381/STW     6383/LW      6398/AWM
      6404/STW     6481/AWM     8518/STW     8903/STW     8912/LW      8958/STW     8972/LW      8983/STW
      8990/STW     8995/STW     9000/STW     9005/STW     9010/STW     9015/STW     9020/STW     9025/STW
      9030/STW     9035/STW     9040/STW     9045/STW     9050/STW     9055/STW
   HY             10412-DP     11563/MSGX   11619/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX
     11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX
     11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX
     11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX
     11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11706/MSGX   11708/MSGX   11710/MSGX   11724/MSGX
     11728/MSGX   11803/MSGX   11804/MSGX   11848/MSGX   11871/MSGX   11873/MSGX   11875/MSGX   11878/MSGX
     11892/MSGX   11895/MSGX   11929/MSGX   11961/MSGX   11963/MSGX   11968/MSGX   11971/MSGX   11979/MSGX
     11983/MSGX   11987/MSGX   11991/MSGX   11991/MSGX   11991/MSGX   12006/MSGX   12008/MSGX   12009/MSGX
     12010/MSGX   12011/MSGX   12013/MSGX   12015/MSGX   12020/MSGX   12023/MSGX   12026/MSGX   12027/MSGX
     12145/MSGX   12147/MSGX   12149/MSGX   12190/MSGX   12194/MSGX   12194/MSGX   12202/MSGX   12207/MSGX
     12211/MSGX   12214/MSGX   12216/MSGX   12218/MSGX   12218/MSGX   12218/MSGX   12221/MSGX   12221/MSGX
     12224/MSGX   12224/MSGX   12227/MSGX   12227/MSGX   12227/MSGX   12230/MSGX   12230/MSGX   12233/MSGX
     12234/MSGX   12234/MSGX   12237/MSGX   12237/MSGX   12240/MSGX   12240/MSGX   12243/MSGX   12247/MSGX
     12247/MSGX   12250/MSGX   12253/MSGX   12254/MSGX   12256/MSGX
   HZ             10559-DP     11580/MSGX
   I              10599-DP     11658/MSGX   11682/MSGX   11721/MSGX   11728/MSGX   11731/MSGX   11774/MSGX
     11934/MSGX   12020/MSGX   12100/MSGX
   I%EXPL          9772/P      11681-EQU
   IDLE           10505-DP     11963/MSGX   11965/MSGX
   IE             10588-DP     11837/MSGX   11849/MSGX   11893/MSGX   12190/MSGX
   IF             10561-DP     11575/MSGX   11590/MSGX   11724/MSGX   11995/MSGX   12062/MSGX   12063/MSGX
     12165/MSGX   12166/MSGX
   IGNORED        10912-DP     11929/MSGX
   IHAND           1275-LW
   IHAND#1         1264/BCS     1302-LW      1373/BCS     1398/BCS     1458/BEZ     1462/B
   IHAND#1B        1317/BNEZ    1326-EQU
   IHAND#1C        1339-EQU     1349/BLE     1352/B
   IHAND#1D        1338/BNE     1345-EQU
   IHAND#1E        1329/BE      1353-LI
   IHAND#1F        1332/BE      1355-LI
   IHAND#3         1285/BCS     1385/B       1410-MTW
   IHAND#5         1407/B       1420-LW
   IHAND#6         1402/BAL     1464-LI
   IHAND#7         1083/AWM     1084/AWM     1474-STW
   II             10567-DP     11656/MSGX   11708/MSGX   12147/MSGX
   ILEGAL          1207/LI      1507/LI      1508/CI      1534/DATA    6485/LI      7592/LI     12322-EQU
     12324/EQU
   ILEGALOV       11618-EQU
   ILEGALP         1208/STW     1511/LW      1520/STW     1534-DATA    6486/CW      6517/CW      7593/STW
   ILLEGAL        10902-DP     12250/MSGX
   IMP@E#A         7481-LH      7489/BDR     7494/B
   IMP@E#X         7491/BGE     7496-LCI
   IMP@EBC         1175/BAL     1734/BAL     1785/BAL     7476-LCI
   IMP@H#A         7520-LW      7531/BDR     7536/B
   IMP@H#X         7533/BGE     7538-STH
   IMP@HEX         7514-LCI     7835/BAL
   IMPHD#1         7799/GEN    11639-EQU
   IMPHD#2         7790/GEN     7792/GEN     7794/GEN     7796/GEN     7798/GEN    11641-EQU
   IMPHD#3         7780/GEN     7782/GEN     7784/GEN     7786/GEN     7788/GEN    11643-EQU
   IMPHD#4         7770/GEN     7772/GEN     7774/GEN     7776/GEN     7778/GEN    11645-EQU
   IMPLEMENTED    10614-DP     11572/MSGX   11616/MSGX   11629/MSGX   11640/MSGX   11684/MSGX   11686/MSGX
     11686/MSGX   11689/MSGX   11932/MSGX   11934/MSGX   11936/MSGX   11942/MSGX   12013/MSGX   12118/MSGX
     12120/MSGX   12120/MSGX   12122/MSGX   12136/MSGX
   IMPLFLAG        1905/LW      1907/MTW     7837/MTW     8282/MTW     9882-DATA
   IN             10964-DP     11587/MSGX   11589/MSGX   11684/MSGX   11689/MSGX   11700/MSGX   11702/MSGX
     11704/MSGX   11731/MSGX   11745/MSGX   11811/MSGX   11864/MSGX   11871/MSGX   11873/MSGX   11875/MSGX
     11878/MSGX   11898/MSGX   11987/MSGX   12060/MSGX   12071/MSGX   12092/MSGX   12104/MSGX   12118/MSGX
     12122/MSGX   12139/MSGX   12141/MSGX   12143/MSGX   12202/MSGX   12209/MSGX   12224/MSGX   12227/MSGX
   INCORRECT      10635-DP     11848/MSGX   11892/MSGX
   INCORRECTLY    10801-DP     11854/MSGX   11889/MSGX
   INCR            6172/STW     6200/AW      6243/STW     6266-DATA
   INCREMENT      10634-DP     11783/MSGX   11784/MSGX
   INDICATES      10629-DP     11752/MSGX   11824/MSGX   12093/MSGX
   INDIRECT       10851-DP     12205/MSGX
   INFO           10767-DP     12163/MSGX
   INHIBIT          964-EQU
   INHIBITED      10631-DP     11706/MSGX   11708/MSGX   11710/MSGX   11774/MSGX   12145/MSGX   12147/MSGX
     12149/MSGX
   INHMSK          9445/AND     9920-DATA
   INITBUF         1206/BAL     6368/BAL     6382/BAL     6402/BAL     6484/BAL     6544/BAL     6761/BAL
      6842/BAL     6995/BAL     7554-LCI
   INITHIST        1109/BAL     1696/BAL     2080/BAL     2631/BAL     2790/BAL     2855/BAL     2867/BAL
      2928/BAL     2946/BAL     2994/BAL     3050/BAL     3408/BAL     5192/BAL     5574/BAL     7583-LCI
      8256/BAL
   INITIAL         1031/DATA    1064-LCI
   INITIAL#A       1214/DATA    1216-DATA
   INITIAL#B       1089/B       1091-LI
   INITIAL#C       1087/BEZ     1090-#TYPE
   INITIAL#1       1077/BNEZ    1109-BAL
   INITIAL#2       1160-#HTECON
   INITIAL#3       1139/BNEZ    1206-BAL
   INITP#A         7647-LI      7656/BDR
   INITPSD         2081/BAL     2636/BAL     3051/BAL     5575/BAL     7630-LCI     7640/LW      7642/STW
      8254/BAL
   INITTAB         2005/BAL     2629/BAL     2854/BAL     2866/BAL     2927/BAL     7605-RES
   INPUT          10463-DP     11690/MSGX   11708/MSGX   11721/MSGX   11957/MSGX   11957/MSGX   11967/MSGX
     12147/MSGX   12161/MSGX
   INPUTTING      10823-DP     11959/MSGX
   INST#25         3910/LW      4080-EQU
   INSTEAD        10873-DP     11587/MSGX
   INSTR          10449-DP     11577/MSGX   12062/MSGX   12063/MSGX   12071/MSGX
   INSTRUCTION    10612-DP     11563/MSGX   11587/MSGX   11795/MSGX   11895/MSGX   12060/MSGX   12071/MSGX
     12254/MSGX
   INSTRUCTIONS   10610-DP     12218/MSGX   12224/MSGX   12227/MSGX   12230/MSGX   12234/MSGX   12237/MSGX
     12240/MSGX
   INT            10550-DP     11718/MSGX   12194/MSGX   12199/MSGX   12202/MSGX   12214/MSGX
   INTEPSD         1336/LS      2012/STW     2223/STW     2389/STW     2634/STW     2746/STW     2893/STW
      2895/STB     2948/STW     3058/STW     3060/STB     3132/STW     5571/STW     5573/STB     6058/CW
      6064/CW      6067/CW      7135/LW      8246/STW     9840-DATA
   INTERRUPT      10618-DP     11552/MSGX   11566/MSGX   11603/MSGX   11619/MSGX   11633/MSGX   11654/MSGX
     11682/MSGX   11753/MSGX   11760/MSGX   11761/MSGX   11772/MSGX   11777/MSGX   11810/MSGX   11837/MSGX
     11837/MSGX   11839/MSGX   11844/MSGX   11846/MSGX   11848/MSGX   11875/MSGX   11878/MSGX   11892/MSGX
     11895/MSGX   11898/MSGX   11907/MSGX   11909/MSGX   11924/MSGX   11926/MSGX   12010/MSGX   12011/MSGX
     12015/MSGX   12020/MSGX   12023/MSGX   12057/MSGX   12060/MSGX   12088/MSGX   12092/MSGX   12095/MSGX
     12097/MSGX   12104/MSGX   12114/MSGX   12117/MSGX   12133/MSGX   12135/MSGX   12207/MSGX   12209/MSGX
     12256/MSGX
   INTERRUPTS     10615-DP     11706/MSGX   11708/MSGX   11710/MSGX   12082/MSGX   12084/MSGX   12087/MSGX
     12104/MSGX   12145/MSGX   12147/MSGX   12149/MSGX
   INTERVAL       10845-DP     12164/MSGX
   INTS           10771-DP     12200/MSGX   12211/MSGX
   INVAL#I         7863/#TYPE  11688-EQU
   INVAL#IP        5935/#TYPE  11730-EQU
   INVAL#M         5934/#TYPE   8336/#TYPE  11621-EQU
   INVAL#P         8111/#TYPE  11723-EQU
   INVALID        10871-DP     11556/MSGX
   INVALTST#       1610/BE      1612/BE      1615/BE      1996/BNE     2375/B       2858/BG      3217/BE
      3402/B       3541/B       3632/B       3758/B       3852/BG      4126/B       4267/B       4447/BG
      4663/BG      4852/B       4920/B       5058/BNE     5113/BNE     5179/BGE     5560/BNE     8334-#TYPE
   IP             10969-DP     11811/MSGX
   IS             10554-DP     11552/MSGX   11584/MSGX   11619/MSGX   11664/MSGX   11684/MSGX   11740/MSGX
     11763/MSGX   11811/MSGX   11869/MSGX   11957/MSGX   11967/MSGX   12087/MSGX   12088/MSGX   12091/MSGX
     12118/MSGX   12136/MSGX   12163/MSGX   12166/MSGX
   IT             10571-DP     11965/MSGX   11968/MSGX
   J              10598-DP     11651/MSGX   12158/MSGX
   J%EXPL          9752/P      12157-EQU
   JAMXPSDS        1128/BAL     1548-RES     2006/BAL     2321/BAL     2635/BAL     3049/BAL     3407/BAL
      4281/BAL     4458/BAL     4672/BAL     4858/BAL     4931/BAL     5017/BAL     5067/BAL     5124/BAL
      5191/BAL     5569/BAL     8255/BAL
   K              10603-DP     11696/MSGX   11752/MSGX
   K%EXPL          9757/P      11695-EQU
   KEPT           10763-DP     12087/MSGX
   KEY            10945-DP     11954/MSGX
   KEYIN          10466-DP     11749/MSGX   11926/MSGX   11973/MSGX   12059/MSGX
   KSR            10536-DP     11954/MSGX   11965/MSGX   11968/MSGX
   L               1048-COM
   LABEL          10450-DP     11577/MSGX   12064/MSGX   12075/MSGX
   LARGE          10744-DP     11929/MSGX
   LAST           12272-EQU    12297/EQU
   LASTERR%P       5804/STW     9089/LI      9809-DATA
   LASTERR%T       5807/STW     9087/LI      9810-DATA
   LASTPASS        5810/STW     9085/LI      9811-DATA
   LASTSUB         9101/LI      9814-DATA
   LASTTEST        5814/STD     9083/LI      9813-DATA
   LEADING        10890-DP     12093/MSGX
   LESS           10764-DP     12095/MSGX
   LEVARMD         2027/STH     2040/LH      2042/STH     2059/STH     2069/LW      2639/STH     2651/STH
      2767/OR      2897/STH     2950/STH     5331/STW     5374/STW     5563/LW      6439/LH      7053/LH
      7319/STW     7347/STW     7358/STH     7364/STH     7410/STW     7418/STH     7447/LH      7449/STH
      7610/STW     8419/LH      8483/STH     8715/LW      9424/LH      9427/LH      9852-RES
   LEVEL          10459-DP     11629/MSGX   11636/MSGX   11640/MSGX   11682/MSGX   11901/MSGX   11907/MSGX
     11909/MSGX   11912/MSGX   11938/MSGX   11938/MSGX   12011/MSGX   12020/MSGX   12095/MSGX   12095/MSGX
     12104/MSGX   12190/MSGX   12190/MSGX   12196/MSGX   12216/MSGX
   LEVELS         10441-DP     11684/MSGX   11689/MSGX   11700/MSGX   11702/MSGX   11704/MSGX   12117/MSGX
     12118/MSGX   12122/MSGX   12139/MSGX   12141/MSGX   12143/MSGX   12214/MSGX
   LEVENBL         2070/STW     2640/STH     2652/STH     2766/OR      2898/STH     2951/STH     5333/STW
      5376/STW     6448/LH      7062/LH      7321/STW     7376/STH     7378/STH     7422/STH     8425/LH
      8489/STH     8716/AND     9437/LH      9441/LH      9854-RES
   LEVEXP          2072/STW     2718/LH      2720/STH     2798/STW     2952/STH     5721/LH      8690/STW
      8720/STW     8905/LH      8959/LH      8965/LH      8984/LH      9863-RES
   LEVIMPL         1174/STH     1198/LI      1202/STW     1731/LH      1733/STH     1777/LH      1782/LH
      1784/STH     2015/LH      2029/LH      2045/LH      2514/LS      2520/LH      2714/LH      2797/LW
      2876/LB      3133/LH      3208/LH      6559/LH      6590/LH      6619/LH      7318/LW      7481/LH
      7522/STH     8718/AND     8812/LH      9878-RES
   LEVMASK         1684/LW      1697/LW      1732/OR      1778/AND     1783/OR      1812/LW      1894/LW
      2026/LW      2041/OR      2058/LW      2413/LW      2428/LW      2435/LW      2715/AND     2745/LW
      2765/LH      3134/AND     5722/LW      6440/LW      7054/LW      7525/OR      8770/AND     8774/AND
      8778/AND     9319/LW      9926-RES
   LEVNINH         1067/LI      2653/STH     2655/STW     5334/STW     5377/STW     6452/LH      7066/LH
      8686/STW     8697/STW     8703/STW     8708/OR      8709/STW     8711/OR      8713/STW     8719/AND
      9871-RES
   LEVTRIG         2071/STW     2665/STH     2721/STH     5332/STW     5375/STW     6444/LH      7058/LH
      7320/STW     7369/STH     7371/STH     7420/STH     8422/LH      8486/STH     8717/AND     9431/LH
      9434/LH      9856-RES
   LIMITS         10683-DP     11563/MSGX   11583/MSGX   11856/MSGX   12169/MSGX
   LINE           10501-DP     11622/MSGX   11682/MSGX   11696/MSGX   11697/MSGX   11717/MSGX   11718/MSGX
     11752/MSGX   11763/MSGX   11956/MSGX   11979/MSGX   11979/MSGX   12020/MSGX   12023/MSGX   12026/MSGX
     12027/MSGX   12158/MSGX   12158/MSGX   12179/MSGX   12180/MSGX
   LINES          10741-DP     11731/MSGX
   LINK             660/BAL      661/BAL      707/BAL      767/BAL      786/BAL      987-EQU     1109/BAL
      1127/BAL     1128/BAL     1129/LW      1130/STW     1131/LI      1132/WD      1161/LW      1165/LW
      1172/STW     1175/BAL     1176/BAL     1178/BAL     1196/BAL     1206/BAL     1213/BAL     1213/BAL*
      1260/LW      1265/BAL     1267/BAL     1283/BAL     1313/BAL     1319/BAL     1340/BAL     1351/BAL
      1369/LW      1376/SW      1377/SLS     1380/BAL     1394/LW      1399/BAL     1402/BAL     1406/BAL
      1429/BAL     1438/BAL     1444/BAL     1450/BAL     1456/BAL     1461/BAL     1467/BNE*    1488/BL*
      1495/LW      1496/BAL     1509/BLE*    1521/B*      1561/B*      1651/BAL     1662/LI      1663/STW
      1666/LI      1667/STW     1670/BAL     1675/CI      1677/LI      1679/STW     1696/BAL     1711/BAL
      1712/STW     1713/LW      1714/LD      1715/LW      1716/SLS     1717/AND     1718/LB      1722/LW
      1734/BAL     1738/BAL     1785/BAL     1788/BAL     1811/LW      1812/LW      1812/LW      1813/WD
      1820/LI      1821/STW     1823/LW      1829/LW      1830/B       1876/BAL     1893/LW      1894/LW
      1894/LW      1895/WD      1896/WD      1915/BAL     1916/BAL     2005/BAL     2006/BAL     2080/BAL
      2081/BAL     2082/BAL     2090/BAL     2092/BAL     2111/BAL     2114/BAL     2120/BAL     2123/LI
      2124/STB     2125/AI      2169/BAL     2181/BAL     2216/BAL     2227/BAL     2236/BAL     2276/BAL
      2294/BAL     2301/BAL     2321/BAL     2322/BAL     2369/BAL     2379/BAL     2387/BAL     2446/BAL
      2467/BAL     2481/BAL     2491/BAL     2500/BAL     2532/B*      2629/BAL     2631/BAL     2632/BAL
      2635/BAL     2636/BAL     2637/BAL     2656/BAL     2734/BAL     2755/BAL     2756/BAL     2780/BAL
      2787/BAL     2788/BAL     2790/BAL     2800/BAL     2804/BAL     2814/BAL     2825/BAL     2826/BAL
      2827/BAL     2853/BAL     2854/BAL     2855/BAL     2865/BAL     2866/BAL     2867/BAL     2899/BAL
      2918/BAL     2925/BAL     2927/BAL     2928/BAL     2929/BAL     2946/BAL     2957/BAL     2977/BAL
      2985/BAL     2992/BAL     2994/BAL     2995/BAL     3045/BAL     3046/BAL     3047/BAL     3048/BAL
      3049/BAL     3050/BAL     3051/BAL     3052/BAL     3053/BAL     3054/BAL     3074/BAL     3075/BAL
      3076/BAL     3077/BAL     3113/BAL     3130/BAL     3139/BAL     3140/STW     3149/BAL     3150/STW
      3156/CW      3159/BAL     3166/BAL     3167/STW     3180/BAL     3181/STW     3190/BAL     3193/BAL
      3248/BAL     3287/SW      3288/STW     3291/BAL     3300/BAL     3305/BAL     3318/BAL     3326/BAL
      3331/BAL     3347/BAL     3352/BAL     3353/CI      3357/BAL     3407/BAL     3408/BAL     3440/BAL
      3445/BAL     3577/BAL     3590/BAL     3695/BAL     3697/BAL     3803/BAL     3805/BAL     3962/BAL
      3972/BAL     3982/BAL     3993/BAL     4005/BAL     4013/BAL     4016/BAL     4158/BAL     4198/LI
      4199/STB     4200/BAL     4202/BAL     4281/BAL     4315/BAL     4320/BAL     4458/BAL     4519/BAL
      4525/BAL     4538/BAL     4550/BAL     4552/BAL     4672/BAL     4730/BAL     4742/BAL     4744/BAL
      4858/BAL     4888/BAL     4892/BAL     4931/BAL     4977/BAL     4998/BAL     5000/BAL     5017/BAL
      5067/BAL     5092/BAL     5094/BAL     5124/BAL     5153/BAL     5155/BAL     5191/BAL     5192/BAL
      5193/BAL     5242/BAL     5261/BAL     5302/BAL     5335/BAL     5346/BAL     5350/BAL     5378/BAL
      5388/BAL     5392/BAL     5407/LB      5408/AND     5409/LW      5416/BAL     5427/BAL     5431/BAL
      5448/LB      5449/AND     5450/CI      5452/AI      5453/LW      5462/BAL     5473/BAL     5489/BAL
      5491/BAL     5562/BAL     5563/LW      5564/SLS     5565/AND     5566/STW     5567/BAL     5568/BAL
      5569/BAL     5574/BAL     5575/BAL     5576/BAL     5577/BAL     5578/BAL     5595/BAL     5596/BAL
      5597/BAL     5598/BAL     5619/BAL     5621/BAL     5638/LW      5639/BAL     5640/STW     5645/LW
      5647/BAL     5648/BAL     5682/B*      5701/B*      5737/BAL     5753/B*      5783/STW     5786/BAL
      5788/BAL     5829/BAL     5840/BAL     5938/B*      5956/CI      5969/BAL     5978/BAL     5982/BAL
      5988/BAL     5994/BAL     6003/BAL     6007/BAL     6014/BAL     6018/B*      6031/B*      6072/B*
      6101/BAL     6104/B*    6120.2/BG*   6120.4/BG*     6368/BAL     6382/BAL     6402/BAL     6425/BAL
      6426/STW     6429/BAL     6430/STW     6457/BAL     6458/LD      6484/BAL     6544/BAL     6578/BAL
      6605/BAL     6606/STB     6613/BAL     6614/STB     6715/B*      6736/LW      6738/CI      6750/CW
      6753/LW      6758/LW      6761/BAL     6842/BAL     6882/BAL     6884/BAL     6888/B*      6995/BAL
      7080/BAL     7081/LD      7089/BAL     7090/BAL     7108/BAL     7109/STW     7113/BAL     7114/STW
      7158/BAL     7161/BAL     7162/STW     7165/BAL     7166/STW     7210/BAL     7211/STW     7225/BAL
      7290/BAL     7292/BAL     7293/LI      7294/STW     7295/BAL     7301/B*      7326/B*      7385/B*
      7412/BAL     7421/BAL     7444/BAL     7452/B*      7482/BAL     7483/STW     7498/B*      7522/STH
      7523/CI      7541/B*      7565/B*      7596/B*      7614/B       7660/B*      7719/B*      7743/BAL
      7744/STW     7750/BAL     7751/STW     7752/BAL     7753/STW     7755/LW      7758/LW      7759/BAL
      7762/B       7813/BAL     7816/BAL     7819/BAL     7822/BAL     7825/BAL     7831/LB      7832/LB
      7833/STB     7834/BDR     7835/BAL     7836/BAL     7838/BAL     7861/LW*     7866/XW      7871/B
      7888/LC      7898/TIO*    7906/CI      7908/CI      7914/CI      7916/LW      7920/LB      7921/LB
      7922/STB     7923/BDR     7925/STW     7927/STW     7953/XW      8005/LC      8010/LB      8011/LB
      8012/STB     8013/BDR     8081/STW     8082/CI      8114/LI      8115/B       8119/LB      8120/LB
      8121/STB     8122/BDR     8124/BAL     8128/BAL     8155/BAL     8159/LI      8160/LW      8161/STW
      8162/BDR     8184/STW     8186/STW     8188/STW     8190/STW     8192/STW     8194/STW     8195/LI
      8196/STW     8232/LW      8233/CI      8236/LI      8238/CW      8243/STW     8254/BAL     8255/BAL
      8256/BAL     8257/BAL     8260/LW      8261/STW     8262/LI      8263/LW      8264/STW     8265/BDR
      8270/LI      8271/LW      8272/STW     8273/BDR     8290/LI      8291/STB     8294/BAL     8316/CI
      8330/LW      8413/BAL     8414/STW     8415/STW     8420/BAL     8421/STW     8423/BAL     8424/STW
      8426/BAL     8427/STW     8451/B*      8483/STH     8486/STH     8489/STH     8499/B*      8519/B*
      8544/BAL     8545/STH     8546/STW     8550/B*      8575/STB     8580/B*      8667/B*      8724/B*
      8754/STW     8760/STW     8763/LI      8768/LI      8772/AI      8776/AI      8780/AI      8781/STW
      8784/LW      8837/B*      8883/B*      8929/B*      9075/BAL     9121/B*      9134/STW     9135/LB
      9139/LW      9180/B*      9188/STW     9189/LB      9193/LW      9194/STW     9194/STW     9244/LW
      9245/WD      9249/B*      9303/BAL     9320/BAL     9321/LW      9322/CW      9328/BAL     9334/B*
      9349/BAL     9350/LI      9351/BAL     9369/STW     9451/B*      9468/STW     9469/LI      9473/BIR
      9475/LW      9493/STW     9503/STB     9550/B*      9584/B*      9909/BAL     9910/BAL     9911/BAL
      9912/BAL
   LINKAGES       10837-DP     12017/MSGX   12057/MSGX
   LIST           10514-DP     11686/MSGX   11749/MSGX   12120/MSGX
   LISTING        10677-DP     11796/MSGX   12074/MSGX   12075/MSGX
   LOADB            759/CNAME   7740-LCI
   LOADBUF         6416/BUFFER  6427/BUFFER  6431/BUFFER  6436/BUFFER  6443/BUFFER  6447/BUFFER
      6451/BUFFER  6455/BUFFER  6460/BUFFER  6469/LOADBYTE             6471/LOADBYTE
      6492/BUFFER  6498/BUFFER  6501/LOADBYTE             6769/LOADWORD             6782/LOADWORD
      6833/LOADWORD             6835/LOADWORD             6837/LOADWORD             6839/LOADWORD
      7036/BUFFER  7050/BUFFER  7057/BUFFER  7061/BUFFER  7065/BUFFER  7069/BUFFER  7083/BUFFER
      7093/LOADBYTE             7095/LOADBYTE             7110/BUFFER  7115/BUFFER  7121/LOADWORD
      7142/LOADWORD             7144/LOADWORD             7154/LOADWORD             7163/BUFFER
      7167/BUFFER  7176/LOADWORD             7179/BUFFER  7195/BUFFER  7204/BUFFER  7212/BUFFER
      7221/LOADWORD             7222/LOADWORD             7253/LOADBYTE             7263/LOADWORD
      7264/LOADWORD             7265/LOADWORD             7269/LOADBYTE             7688-LCI
      9088/LOADHALF             9090/LOADHALF
   LOADBUFA        7691/B       7700/BNEZ    7709-LI
   LOADBUFB        7712-LB      7716/BDR
   LOADBUFX        7707/B       7717-LCI
   LOADBYTE         759-CNAME
   LOADH            760/CNAME   7736-LCI
   LOADHALF         760-CNAME
   LOADW            758/CNAME   7747-LCI
   LOADW#A         7745/B       7754-LI
   LOADWORD         758-CNAME
   LOC            10523-DP     11577/MSGX   11607/MSGX   11741/MSGX   12070/MSGX   12071/MSGX
   LOCATION        1262/STW     1302/LW      1307/LW      1371/STW     1396/STW     1424/LW      1513/LW
      1645/STW     2409/STW     2410/LW*     2412/STW*    2427/STW*    2434/STW*    2440/STW*    2976/STW
      4741/STW     5731/STW     5736/AWM     5959/STW     5961/LW      6055/LW      7037/LI      7074/LW
      7136/LW      7246/LI      8875/STW     8880/STW     9348/STW     9815-DATA
   LOCATIONS      10627-DP     11806/MSGX   11983/MSGX   12067/MSGX   12202/MSGX
   LOG              990-EQU     1266/LI      1272/AI      1278/AI      1282/AI      1284/AI      1379/LI
      1384/AI      1405/LI      1420/LW      1428/AND     1430/LW      1433/AND     1439/LW      1442/AND
      1445/LW      1448/AND     1451/LW      1454/AND     1457/LW      1459/LI      1712/STW     1725/CW
      1729/CI      1780/CI      1866/CI      2396/LI      2441/CW      2474/LB      2483/STB     2484/LH
      2493/STH     2494/CI      2565/MTW     2566/MTH     2567/MTB     2571/DATA    2801/LI      2816/AI
      2817/STB     3150/STW     3181/STW     3187/CW      6021/LW      6022/WD      6026/RD      6027/AND
      6066/OR      6069/OR      6324/LD      6326/LD      6328/STD     6731/LW      6734/CI      6747/LW
      6750/CW      6754/LW      6757/LW      6759/SW      6783/LB      6784/CI      6786/LW      6787/STW
      6788/STW     6789/STW     6792/LW      6793/AND     6794/CW      6798/LW      6799/STW     6800/LW
      6801/STW     6805/LW      6806/CW      6808/LW      6809/STW     6810/LW      6811/LOADWORD
      6814/CW      6816/LW      6818/CW      6820/LW      6821/STW     6822/LW      6824/LW      6825/STW
      6826/LW      6848/LD      6850/LD      6852/STD     7164/LW      7519/LI      7525/OR      7538/STH
      7916/LW      7930/CI      7935/CI      7937/AI      7938/SLS     7939/OR      7940/WD      8198/LI
      8235/LI      8325/LI      8328/LI      8330/LW      9370/RD      9371/AND     9376/CW      9390/OR
      9391/WD
   LOGGED         10917-DP     11619/MSGX
   LOGSPUR         1406/BAL     1507-LI
   LONG           10758-DP     11999/MSGX   12000/MSGX
   LOOP           10489-DP     11563/MSGX   11587/MSGX   11997/MSGX   11998/MSGX   11999/MSGX   12000/MSGX
     12044/MSGX   12186/MSGX
   LOOPING        10894-DP     12187/MSGX
   LOOPS           1125/STW     5825/MTW     5827/STW     8261/STW     8299/LW      9816-DATA
   LOWER          10733-DP     12207/MSGX
   LPSD           10774-DP     11895/MSGX   11919/MSGX   11922/MSGX   12216/MSGX
   LS             10967-DP     12188/MSGX
   LT             10406-DP
   LVL              989-EQU     1437/SLS     1620/LI      1634/AW      1684/LW      1689/AW      1697/LW
      1732/OR      1752/CI      1755/CI      1757/AI      1770/LI      1771/STW     1778/AND     1783/OR
      1817/CI      2010/LI      2020/AI      2021/CI      2026/LW      2028/LI      2034/AI      2035/CI
      2041/OR      2044/LI      2056/AI      2058/LW      2158/SLS     2159/CI      2365/STB     2366/AND
      2381/LI      2392/AI      2400/AW      2405/AW      2413/LW      2428/LW      2435/LW      2449/AI
      2466/LI      2529/SW      2530/SLS*    2543/LI      2675/LI      2689/LI      2698/LI      2702/LI
      2711/CI      2715/AND     2726/AW      2745/LW      2765/LH      2782/AI      3115/STW     3118/LI
      3125/OR      3134/AND     3195/AI      3198/CI      3200/CI      3210/LI      4233/CI      4235/AI
      4272/LI      4282/STW     4286/AW      4294/LW      4332/CI      4334/LI      4335/AI      5177/LW
      5720/LI      5722/LW      5741/AI      6423/SLS     6428/STW     6440/LW      6588/LI      7054/LW
      8202/LB      8636/LI      8641/AI      8646/OR      8764/STB     8766/SLS     8770/AND     8774/AND
      8778/AND     8811/LI      8821/AI      8824/CI      8828/CI      8861/SLS     9286/LW      9293/RD
      9295/AND     9296/LI      9297/OR      9304/LI      9308/AI      9311/STW     9312/AI      9313/STW
      9314/LH      9318/AI      9319/LW      9329/CW
   LVLIMSG         6629/SEND   11628-EQU
   LVLIMSG#1       6618/#PRINT 11937-EQU
   M              10977-DP     11995/MSGX
   MACHINE        10910-DP     11795/MSGX
   MAP%DW          1094/LD      1103/LD      1230-DATA
   MAP%IMAGE       1093/LW      1233-DATA
   MARGIN         10707-DP     11664/MSGX   12168/MSGX   12169/MSGX
   MARGINMASK      7929/AND     7964-DATA    9371/AND
   MARGINS          965-EQU     1142/WD      6871/RD      9370/RD      9391/WD
   MARK           10755-DP     11749/MSGX   11971/MSGX
   MATCH          10479-DP     11731/MSGX   11839/MSGX   11849/MSGX   11893/MSGX   11924/MSGX
   MAX%REGS        5257/#TYPE   5298/#TYPE  11571-EQU
   MAX%REGS%       5253/LW      5294/LW      5526-P
   MAX%REGS%EXP    5526/P      11573-EQU
   MAY            10953-DP     11746/MSGX   12183/MSGX
   MBSDW25         3923/LD      3966/CD      3969/LI      4052-DATA
   MEANS          10464-DP     11728/MSGX   11965/MSGX   11970/MSGX   12186/MSGX
   MEASURES       10849-DP     12200/MSGX
   MEG            10942-DP
   MEM            10527-DP
   MEMORY         10430-DP     11587/MSGX   11616/MSGX   11616/MSGX   11753/MSGX   11898/MSGX   11904/MSGX
     11983/MSGX   11987/MSGX   12008/MSGX   12221/MSGX   12227/MSGX   12230/MSGX
   MESSAGE        10893-DP     11740/MSGX   12159/MSGX
   MESSAGE@       11547-LOC
   MNEMONIC       10839-DP     12075/MSGX
   MODCOUNT        2441/CW      2558-DATA
   MODE           10775-DP     11944/MSGX   12224/MSGX
   MODIFIED       10864-DP     11851/MSGX   11854/MSGX
   MODIFY          2385/LM      2386/STM     2411/LW      2426/LW      2433/LW      2545/LM      2546/STM
      2564-DATA
   MODIFY%ZERO     2900/LW      2903/STW     3003-MTW
   MODIFYI         2568/MTW*    2569/MTH*    2570/MTB*    2571-DATA
   MODULE         10706-DP     12114/MSGX   12122/MSGX
   MODULES        10892-DP     11686/MSGX   12120/MSGX
   MORE           10785-DP     11881/MSGX   11886/MSGX
   MOVING         10698-DP     11963/MSGX
   MSG            10539-DP     11975/MSGX   11975/MSGX   11991/MSGX   12003/MSGX
   MSGDEV         10692-DP     11649/MSGX   12159/MSGX
   MSGEND         12263-EQU    12326/ORG
   MSGS           10759-DP     12004/MSGX
   MSGX             826-CNAME
   MTB            10956-DP     12202/MSGX
   MTH            10957-DP     12202/MSGX
   MTW            10958-DP     12202/MSGX
   MTW%RES         9197/STW     9198/LW      9199/LW      9200/LW      9201/LW      9262-MTW
   MTW#52          1622/LM      2225/LM      2553-GEN
   MULTIPLE       10846-DP     12167/MSGX
   MUST           10488-DP     11560/MSGX   11731/MSGX
   M1              4010/LI      4824/AH      4834/SH      8610/LW      8661/LW      8695/LW      9175/EOR
     10247-DATA
   M1VALUE         7436/LD      7456-DATA
   N              10605-DP     11774/MSGX   12100/MSGX
   NEW            10540-DP     11764/MSGX   11979/MSGX   12063/MSGX   12066/MSGX   12073/MSGX   12088/MSGX
     12090/MSGX
   NEWPSW         10686-DP     11577/MSGX   11577/MSGX   12073/MSGX
   NEWSTATE        1714/LD      1944-EQU
   NEXT           10752-DP     11954/MSGX
   NEXT%FR         6170-EQU     6209/BDR
   NO             10577-DP     11833/MSGX   11998/MSGX   12000/MSGX   12104/MSGX   12233/MSGX
   NO%COUNTERS     2024/#PRINT 11931-EQU
   NO%EXPL         9776/P      11944-MSGX
   NO%IO           2038/#PRINT 11933-EQU
   NOMEMORY        3592/STW     3609-DATA    5503/XPSD*
   NON            10551-DP     12218/MSGX   12221/MSGX   12227/MSGX
   NONEXIST        3433/EXU     3438/LW      3471-RES     3669/EXU
   NONEXISTANT    10611-DP     11558/MSGX   11616/MSGX
   NORM            1257-EQU     9909/BAL
   NORMAL         10687-DP     11589/MSGX   12171/MSGX   12171/MSGX
   NOT            10525-DP     11584/MSGX   11590/MSGX   11624/MSGX   11774/MSGX   11839/MSGX   11846/MSGX
     11849/MSGX   11866/MSGX   11868/MSGX   11893/MSGX   11895/MSGX   11898/MSGX   11904/MSGX   11912/MSGX
     11917/MSGX   11919/MSGX   11924/MSGX   11932/MSGX   11934/MSGX   12100/MSGX   12166/MSGX
   NOTAVAIL        7900/#TYPE  11623-EQU
   NOTCNTR         2512/LW      2573-DATA    7363/AND     7448/AND
   NOTE           10493-DP     11590/MSGX   11762/MSGX   11938/MSGX   12162/MSGX   12188/MSGX   12198/MSGX
     12204/MSGX
   NOTED          10730-DP     12188/MSGX
   NOTHIGH         2768/AND     8712/AND     9315/STH     9418/LH      9883-DATA
   NOTHIMASK       9314/LH      9353-DATA
   NOTIMPL         1366-EQU     9910/BAL
   NOTRAP          3284/STW     3666/MTW     3681-DATA    3683/MTW     3688/LW      3691/STW     3796/LW
      3799/STW     3955/LW      3958/STW
   NUMBER         10435-DP     11748/MSGX   11751/MSGX   12044/MSGX   12046/MSGX   12094/MSGX   12159/MSGX
     12160/MSGX   12183/MSGX   12186/MSGX
   NUMBERS        10904-DP     11724/MSGX
   NYCC0          10299-DATA
   O              10600-DP     11658/MSGX   11721/MSGX   11728/MSGX   11934/MSGX
   OCCUR          10483-DP     11846/MSGX   11866/MSGX   11868/MSGX
   OCCURRED       10841-DP     12092/MSGX
   OF             10553-DP     11552/MSGX   11563/MSGX   11583/MSGX   11587/MSGX   11673/MSGX   11675/MSGX
     11690/MSGX   11726/MSGX   11748/MSGX   11749/MSGX   11751/MSGX   11767/MSGX   11772/MSGX   11777/MSGX
     11796/MSGX   11803/MSGX   11804/MSGX   11805/MSGX   11810/MSGX   11811/MSGX   11825/MSGX   11856/MSGX
     11881/MSGX   11886/MSGX   11926/MSGX   11954/MSGX   11959/MSGX   11989/MSGX   12006/MSGX   12042/MSGX
     12044/MSGX   12046/MSGX   12064/MSGX   12067/MSGX   12070/MSGX   12074/MSGX   12082/MSGX   12084/MSGX
     12087/MSGX   12097/MSGX   12104/MSGX   12117/MSGX   12135/MSGX   12167/MSGX   12182/MSGX   12183/MSGX
     12185/MSGX   12186/MSGX   12194/MSGX   12199/MSGX   12200/MSGX   12240/MSGX
   OLDPSW         10685-DP     11577/MSGX   11577/MSGX   12072/MSGX
   OLDSTATE        9817-DATA
   ON             10563-DP     11901/MSGX   11907/MSGX   11909/MSGX   12001/MSGX   12002/MSGX   12104/MSGX
   ONCE           10746-DP     11566/MSGX
   ONE             1421/AND     4529/CW      4535/LI      4951/AND    10249-DATA
   ONESECOND       2962/LW      6874/LW     10210-DATA
   ONLY           10500-DP     11619/MSGX   11689/MSGX   11724/MSGX   11944/MSGX   12122/MSGX   12163/MSGX
     12234/MSGX   12247/MSGX
   OP             10419-DP     11587/MSGX   11616/MSGX   11673/MSGX   11682/MSGX   11684/MSGX   11690/MSGX
     11700/MSGX   11702/MSGX   11704/MSGX   11706/MSGX   11708/MSGX   11710/MSGX   11726/MSGX   11728/MSGX
     11745/MSGX   11746/MSGX   11749/MSGX   11752/MSGX   11755/MSGX   11767/MSGX   11774/MSGX   11778/MSGX
     11780/MSGX   11780/MSGX   11787/MSGX   11788/MSGX   11791/MSGX   11792/MSGX   11795/MSGX   11796/MSGX
     11806/MSGX   11813/MSGX   11822/MSGX   11824/MSGX   11826/MSGX   11837/MSGX   11842/MSGX   11871/MSGX
     11873/MSGX   11875/MSGX   11878/MSGX   11881/MSGX   11886/MSGX   11929/MSGX   11938/MSGX   11944/MSGX
     11961/MSGX   11963/MSGX   11968/MSGX   11971/MSGX   11971/MSGX   11973/MSGX   11975/MSGX   11983/MSGX
     11987/MSGX   11991/MSGX   11995/MSGX   12006/MSGX   12008/MSGX   12009/MSGX   12010/MSGX   12011/MSGX
     12013/MSGX   12015/MSGX   12020/MSGX   12022/MSGX   12023/MSGX   12025/MSGX   12026/MSGX   12027/MSGX
     12027/MSGX   12044/MSGX   12046/MSGX   12048/MSGX   12060/MSGX   12060/MSGX   12062/MSGX   12063/MSGX
     12088/MSGX   12093/MSGX   12095/MSGX   12097/MSGX   12103/MSGX   12103/MSGX   12114/MSGX   12118/MSGX
     12122/MSGX   12139/MSGX   12141/MSGX   12143/MSGX   12145/MSGX   12147/MSGX   12149/MSGX   12158/MSGX
     12161/MSGX   12163/MSGX   12170/MSGX   12179/MSGX   12182/MSGX   12186/MSGX   12190/MSGX   12196/MSGX
     12198/MSGX   12204/MSGX   12234/MSGX   12247/MSGX
   OPTIONS        10885-DP     11991/MSGX
   OR             10572-DP     11724/MSGX   11746/MSGX   11753/MSGX   11778/MSGX   11840/MSGX   11869/MSGX
     11881/MSGX   11886/MSGX   11912/MSGX   11973/MSGX   11975/MSGX   12090/MSGX   12188/MSGX
   ORDER          10474-DP     11929/MSGX   12092/MSGX   12209/MSGX
   OTHER          10739-DP     11690/MSGX
   OTHERS         10915-DP     11560/MSGX
   OUT            10521-DP     11563/MSGX   11583/MSGX   11856/MSGX
   OUTBUF          1146/LW      1163/STW     1166/STW     1168/LB      2278/STD     2280/STB
      2281/#PRINT  5640/STW     5641/#TYPE   5646/STW     5649/DATA    6145/LI      6328/STD     6329/#TYPE
      6370/STW     6374/STW     6376/STB     6377/#PRINT  6394/STW     6473/STB     6474/#PRINT  6509/STW
      6511/STW     6512/STW     6514/STB     6515/#PRINT  6547/STW     6552/#PRINT  6606/STB
      6607/#PRINT  6614/STB     6615/#PRINT  6632/STB     6644/#PRINT  6646/STW     6649/STB
      6650/#PRINT  6659/STW     6661/STB     6663/STB     6664/#PRINT  6665/STW     6675/STW     6678/STB
      6682/STB     6683/#PRINT  6787/STW     6788/STW     6789/STW     6799/STW     6801/STW     6809/STW
      6821/STW     6825/STW     6840/#PRINT  6852/STD     6853/#TYPE   7184/STB     7232/STB     7255/STB
      7260/#PRINT  7273/#PRINT  7558/STW     7561/STW     7704/LI      7709/LI      7949/STD     7950/#TYPE
      9095/STB     9099/STB     9107/#TYPE   9113/#PRINT 12321-EQU    12322/EQU
   OUTBUFP         7569-DATA
   OUTPUT         10428-DP     11708/MSGX   11721/MSGX   11965/MSGX   11968/MSGX   11975/MSGX   12006/MSGX
     12147/MSGX   12159/MSGX   12161/MSGX
   OUTPUTS        10883-DP     11971/MSGX
   OUTSLAVE        3666-MTW     3791/B       3946/B       4043/B       9618/B       9823/DATA
   OUTSLAVE#1      3673-XW      3678/DATA
   OUTSLAVEXPSD    3667/LW      3679-XPSD    3726/LPSD    3727/XPSD
   OVERFLOW       10858-DP     12243/MSGX
   OVERLAY         7638/CI      9752-P
   OVERLAY%EXPL    7635/LW      9776-P
   OVERRIDE       10852-DP     12207/MSGX
   P               1049-COM    10604-DP     11717/MSGX   11731/MSGX   12026/MSGX
   P%EXPL          9762/P      11716-EQU
   PAGE%BOUND      3881/LI      3930/STW     3933/LI      3997/CW      4003/LI      4042/STW     4053/GEN
      4060/GEN     4081/STW     4082/MTW     4083/LW      4084/B       4085/B       4088/B       4089/B
      4090/B       4091/B       4150/XW      4151/LI      4161/XW      9617-STW     9622/EQU     9624/EQU
      9627/EQU
   PAIRS          10934-DP     11689/MSGX   12122/MSGX
   PANEL          10726-DP     11566/MSGX
   PARAGRAPH      10821-DP     11954/MSGX
   PARAM%RET       7862/STW     7866/XW      7867/B*      7893/STW     7901/MTW     7910/MTW     7953/XW
      7954/B*      9818-DATA
   PARAMERR        6327/SEND    6851/SEND    7947/SEND   11625-EQU
   PARAMETER      10622-DP     11622/MSGX   11626/MSGX   11682/MSGX   11690/MSGX   11696/MSGX   11697/MSGX
     11717/MSGX   11724/MSGX   11731/MSGX   11977/MSGX   11979/MSGX   12020/MSGX   12023/MSGX   12026/MSGX
     12027/MSGX   12158/MSGX   12179/MSGX   12180/MSGX
   PARAMETERS     10815-DP     11746/MSGX
   PARAMI          7800-LCI     7829/LW      9770/E
   PARAMI#A        7806/B       7810/B       7812-LW
   PARAMI#V        7813/BAL     7816/BAL     7819/BAL     7822/BAL     7825/BAL     7848-LI      7870/BGEZ
   PARAMI#W        7851/BE      7853/BE      7855/BE      7857/BE      7869-AI
   PARAMI#X        7828-LW
   PARAMI#Y        7838-BAL
   PARAMJ          7888-LC      9750/E
   PARAMJ#A        7896/BE      7899/BCR     7905-#ETHCON
   PARAMJ#B        7907/BLE     7916-LW
   PARAMJ#E        7902/B       7912/B       7946-EQU
   PARAMJ#X        7920-LB
   PARAMJ#Y        7889/BEZ     7941-LCI
   PARAMK          8005-LC      8008/LW      9755/E
   PARAMP          8074-EQU     9760/E
   PARAMP#A        8079-LW      8085/BDR
   PARAMP#B        8087-LI      8092/BL      8102/B       8107/BL
   PARAMP#C        8090/BNEZ    8097-CW
   PARAMP#D        8098/BNE     8104-CW
   PARAMP#E        8094/BNE     8105/BL      8111-#TYPE
   PARAMP#X        8095/B       8119-LB
   PARAMP#Y        8127-LI
   PARAMT          8165/B       8198-LI
   PARAMT%HEX      1124/LW      1150/STW     1152/STW     1154/STW     1156/STW     1158/STW     3215/LW
      5816/CW      5820/CW      5823/LW      8160/LW      8272/STW     8275/LW      8380-RES
   PARAMT#A        8219/B       8227/B       8232-LW
   PARAMT#B        8243-STW     8311/BE      8317/BLE
   PARAMT#B1       8258/B       8267-LW
   PARAMT#C        8239/BG      8310-CI
   PARAMT#ER1      8211/BE      8213/BE      8217/BG      8224/BG      8226/BE      8230/BNE     8328-LI
   PARAMT#ER2      8313/BNE     8315/BNE     8324-EQU
   PARAMT#X        8285/BNEZ    8289-EQU     8300/BEZ
   PARAMT#Y        8279/BGEZ    8297-LW
   PARITY         10978-DP     12253/MSGX
   PARTIALLY      10630-DP     11686/MSGX   11942/MSGX   12120/MSGX
   PARTICULAR     10811-DP     11697/MSGX
   PASS           10495-DP     11590/MSGX   11600/MSGX   12044/MSGX   12044/MSGX   12044/MSGX   12046/MSGX
     12090/MSGX   12166/MSGX
   PASSCNT         2936/LW      5612/LW      5809/LW      8163/MTW     8247/LW      9819-DATA
   PASSES         10710-DP     12186/MSGX
   PASSMARGIN     10217-DATA
   PAT@E#A         8419-LH      8447/BL
   PAT@E#B         8429/BNE     8441-LW
   PAT@E#C         8439/B       8445-AI
   PAT@EBC         1176/BAL     2899/BAL     2957/BAL     3046/BAL     5567/BAL     8410-LCI
   PAT@H#A         8481-LW      8496/BL
   PAT@HEX         8469-LCI
   PATCH           9600-EQU
   PATHD#1         6540/#PRINT  8003/GEN    11653-EQU
   PATHD#2         6541/#PRINT  7974/GEN     7976/GEN     7978/GEN     7980/GEN     7982/GEN     7984/GEN
      7986/GEN     7988/GEN     7990/GEN     7992/GEN     7994/GEN     7996/GEN     7998/GEN     8000/GEN
      8002/GEN    11655-EQU
   PATTERN        10669-DP     11654/MSGX   11699/MSGX   11700/MSGX   11702/MSGX   11704/MSGX   11752/MSGX
     12023/MSGX   12139/MSGX   12141/MSGX   12143/MSGX   12256/MSGX
   PATTERNS       10652-DP     11640/MSGX   12013/MSGX   12133/MSGX   12135/MSGX   12214/MSGX
   PATTLIST        7352/LH      7368/LH      7375/LH     10213-DATA
   PATTNO          1020-DATA    1494/LW      1694/LW      1745/MTW     1759/STW     1771/STW     2014/STW
      2219/STW     2363/LW      2401/STW     2408/AW      2610/LW      2625/STW     2873/STW     3012/MTW
      3014/MTW     3041/STW     3081/MTW     3085/CW      3116/STW     3394/LW      3414/STW     3448/STW
      3459/STW     3533/LW      3550/STW     3624/LW      3654/STW     3700/STW     3712/STW     3750/LW
      3780/STW     3808/STW     3849/LW      3870/STW     4149/STW     4181/STW     4232/LW      4276/STW
      4299/LW      4323/STW     4338/STW     4460/STW     4485/LW      4554/MTW     4555/LW      4669/STW
      4680/LW      4750/STW     4754/STW     4857/STW     4911/LW      4934/STW     4944/LW      5003/STW
      5066/STW     5123/STW     5185/STW     5552/STW     5561/MTW     5813/LW      7250/LI      7349/LW
      7382/MTW     7402/LW      7406/MTW     7434/MW      8243/STW
   PC             10417-DP
   PCP            10538-DP     11961/MSGX   11963/MSGX   12211/MSGX
   PCPMSG          2959/#TYPE  11565-EQU
   PDF            10962-DP     11915/MSGX   11917/MSGX   11919/MSGX   11922/MSGX
   PE             10402-DP     11577/MSGX   11718/MSGX   11837/MSGX   11849/MSGX   11889/MSGX   11893/MSGX
     11938/MSGX   11965/MSGX   11968/MSGX   11971/MSGX   11971/MSGX   11983/MSGX   12062/MSGX   12063/MSGX
     12071/MSGX   12074/MSGX   12104/MSGX   12136/MSGX   12186/MSGX   12187/MSGX   12190/MSGX   12194/MSGX
     12196/MSGX   12199/MSGX   12202/MSGX   12211/MSGX   12214/MSGX   12227/MSGX
   PERMITTED      10822-DP     11957/MSGX
   PL             10422-DP
   PL#JHDR         7886/GEN    11648-EQU
   PLINE#IB        7769/DATA    7771/DATA    7773/DATA    7775/DATA    7777/DATA    7880-TEXTCS
   PLINE#I0        5886/LW      5889/LW      7483/STW     7520/LW      7789/DATA    7791/DATA    7793/DATA
      7795/DATA    7797/DATA    7878-TEXTCS
   PLINE#I6        7779/DATA    7781/DATA    7783/DATA    7785/DATA    7787/DATA    7879-TEXTCS
   PLINE#J         1169/STB     1171/#ETHCON 5837/LW      7885/DATA    7895/CW      7920/LB      7922/STB
      7924/#ETHCON 7926/#ETHCON 7961-TEXTCS  9373/LB      9387/STB
   PLINE#JRES      1162/SEND   11650-EQU
   PLINE#KA        7983/DATA    8042-TEXTCS
   PLINE#KB        7981/DATA    8044-TEXTCS
   PLINE#KC        7979/DATA    8046-TEXTCS
   PLINE#KD        7977/DATA    8048-TEXTCS
   PLINE#KE        7975/DATA    8050-TEXTCS
   PLINE#KF        7973/DATA    8052-TEXTCS
   PLINE#K0        6546/LW      8001/DATA    8023-TEXTCS  8421/STW     8424/STW     8427/STW     8433/STW
      8436/STW     8443/STW     8481/LW      8484/LW      8487/LW
   PLINE#K2        7999/DATA    8026-TEXTCS
   PLINE#K3        7997/DATA    8028-TEXTCS
   PLINE#K4        7995/DATA    8030-TEXTCS
   PLINE#K5        7993/DATA    8032-TEXTCS
   PLINE#K6        7991/DATA    8034-TEXTCS
   PLINE#K7        7989/DATA    8036-TEXTCS
   PLINE#K8        7987/DATA    8038-TEXTCS
   PLINE#K9        7985/DATA    8040-TEXTCS
   PLINE#P         2173/#PRINT  5879/LW      5880/LW      5882/LW      8063/DATA    8119/LB      8121/STB
      8143-TEXTCS  8546/STW     8573/LW
   PLINE#T         1147/STW     8180/DATA    8264/STW     8267/LW      8391-TEXTCS
   PLINE#TRES      1145/SEND   11595-EQU
   PLINEIN         1033/DATA    5878/LW      5881/LW      5887/LW      5888/LW      5890/LW      7812/LW
      7815/LW      7818/LW      7821/LW      7824/LW      7832/LB      7894/LW      7905/#ETHCON 7911/LW
      7921/LB      8011/LB      8079/LW      8120/LB      8185/#ETHCON 8187/#ETHCON 8189/#ETHCON
      8191/#ETHCON 8193/#ETHCON 8263/LW      9820-RES
   PLSRATE         2277/SEND   11579-EQU
   POINT          10728-DP     12184/MSGX   12243/MSGX   12246/MSGX
   POINT%HIST      1265/BAL     8510-EQU
   POINTER        10911-DP     11884/MSGX
   POSITION       10843-DP     12095/MSGX
   PPS            10941-DP     11584/MSGX
   PREFIX         10719-DP     11774/MSGX
   PRESENT        10668-DP     11633/MSGX   11849/MSGX   11893/MSGX   12101/MSGX
   PREVIOUS       10831-DP     11590/MSGX
   PREVIOUSLY     10817-DP     11907/MSGX
   PRI@EBC         1196/BAL     2169/BAL     8538-LCI
   PRI@HEX         8124/BAL     8569-LCI
   PRI@HX#1        8573-LW      8577/BDR
   PRIFLAG         1998/STW     2003/LW      2180/MTW     8125/MTW     8284/MTW     9885-DATA
   PRIHD#1         2171/#PRINT  8064/GEN    11657-EQU
   PRIHD#2         2172/#PRINT 11660-EQU
   PRINT          10470-DP     12004/MSGX   12165/MSGX   12166/MSGX
   PRINTER        10878-DP     11956/MSGX
   PRIORITIES     10812-DP     11718/MSGX
   PRIORITY        2660/STB     2669/LB      2672/STB     9821-DATA
   PRIVILEGED     10808-DP     12224/MSGX   12227/MSGX
   PRIVILGD        3662/EXU     3693/LW      3725-RES
   PRIVNONEX       3787/EXU     3800/LW      3832-DATA
   PRODUCE        10903-DP     12250/MSGX
   PROGRAM        10672-DP     11799/MSGX   11800/MSGX   11920/MSGX   11963/MSGX   11967/MSGX   11968/MSGX
     11970/MSGX   12170/MSGX   12185/MSGX
   PROGTEXT     12341.1/GEN  12341.4-TEXTCS
   PROMPT         10700-DP     11971/MSGX
   PROT%PAGE       3899/LI      9622-EQU
   PROTECTION     10809-DP     12230/MSGX
   PSD            10544-DP     11765/MSGX   11871/MSGX   11873/MSGX   11875/MSGX   11878/MSGX   12062/MSGX
     12063/MSGX   12066/MSGX   12072/MSGX   12073/MSGX
   PSDS            1304/LW      1305/LW      1426/LW      1427/LW      1465/LS      6057/LD      6830/LI
      7138/AI      7650/STD     7653/STD    10226/GEN    10237/GEN    10239/GEN    10239/GEN    12297-EQU
     12298/EQU
   PSW            10534-DP     11613/MSGX   11613/MSGX   11765/MSGX   11765/MSGX
   PTRAPPSD        3729/LMS     9823-DATA
   PULSE          10445-DP     11563/MSGX   11580/MSGX   11584/MSGX   11586/MSGX   11856/MSGX   11912/MSGX
     12200/MSGX
   PULSECNT        1667/STW     1722/LW      1821/STW     1823/LW      2234/STW     2239/LW      2245/STW
      2246/WAIT    2251/LW      2255/STW     2257/LW      2265/LW      2298/STW     2305/LW      2314/LW
      2553/GEN     2554/GEN     2555/GEN     2556/GEN     9824-DATA
   PUSH           10745-DP     11566/MSGX
   PWRFAIL         1189/STW    12300-EQU    12301/EQU
   QHDR#1          6762/#PRINT 11576-EQU
   QUEST          10927-DP     11971/MSGX
   QUESTION       10861-DP     11749/MSGX
   RA               981-EQU     1093/LW      1098/AW      1101/LI      1230/DATA    1493/LW      3924/LD
      3976/CD      3980/LI      4093/CBS     4947/LM      4948/STW     9148/RD      9160/CW      9199/LW
      9203/XW      9241/XW
   RANDOM         10709-DP     12180/MSGX   12256/MSGX
   RANGE          10478-DP     12182/MSGX   12193/MSGX   12193/MSGX
   RATE           10749-DP     11580/MSGX   11584/MSGX
   RATES          10446-DP     11563/MSGX   11586/MSGX   11590/MSGX   11856/MSGX
   RB               982-EQU     1102/LI      1107/BDR     1494/LW      1695/LH      1706/WD*     1715/LW
      1855/CI      1862/CI      1864/CI      2398/LW      2399/SLS     2400/AW      2401/STW     2404/LI
      2405/AW      2407/LI      2408/AW      2409/STW     2410/LW      2440/STW     2474/LB      2475/CI
      2477/STW     2482/LI      2483/STB     2484/LH      2485/CI      2487/STW     2492/LI      2493/STH
      2496/STW     2722/LI      2733/BDR     3120/LI      3146/WD*     3562/LW      3568/STW*    3572/LW*
      3582/AI      3583/CI      3592/STW     4927/LI      4928/STW     4949/STH     6593/LW      6594/OR
      6595/STW     6636/LB      6637/CI      6672/LB      7176/LOADWORD             8218/LW      8225/LW
      8231/LW      8237/LB      8250/AND     8251/STW     8263/LW      8264/STW     8267/LW      8268/STW
      8271/LW      8272/STW     8275/LW      8276/STW     8297/LW      8299/LW      9149/RD      9163/CW
      9200/LW      9204/XW      9242/XW      9346/LI
   RC               784/LI       983-EQU     1350/LI      1423/LI      1434/LI      1443/LI      1449/LI
      1455/LI      1460/LI      1495/LW      1622/LM      1623/STM     1786/LI      1872/LI      2119/LI
      2278/STD     2385/LM      2386/STM     2480/LI      2490/LI      2499/LI      2545/LM      2546/STM
      2754/LI      2917/LI      2924/LI      2974/LI      2984/LI      2991/LI      3119/LI      3126/STW
      3141/CI      3151/CI      3158/LI      3165/STW     3178/LW      3179/AND     3182/CI      3189/LI
      3299/LI      3304/LI      3317/LI      3325/LI      3330/LI      3345/LI      3351/LI      3355/LI
      3439/LI      3576/LI      3692/LI      3802/LI      3961/LI      3968/LI      3978/LI      3989/LI
      3996/LW      3997/CW      4001/LI      4009/LI      4197/LI      4314/LI      4516/LI      4524/LI
      4534/LI      4546/LI      4727/LI      4737/LI      4885/LI      4973/STM     4974/LI      4985/CD
      4992/STM     4993/LI      5089/LI      5150/LI      5241/LI      5330/LI      5343/LI      5373/LI
      5385/LI      5415/LI      5424/LI      5461/LI      5470/LI      5486/LI      5638/LW      5643/LI
      5644/#HTECON 5727/LI      5977/LI      5993/LI      6006/LI      6013/LI      6100/LI      6375/LI
      6376/STB     6411/LB      6412/CW      6424/STW     6428/STW     6456/LB      6462/LB      6465/LB
      6472/LI      6473/STB     6488/LB      6494/LB      6500/LB      6505/LB      6513/LI      6514/STB
      6604/LW      6612/LW      6986/LW      7001/LW      7074/LW      7075/CI      7077/AI      7079/AI
      7106/LB      7107/SLS     7111/LB      7112/SLS     7128/AND     7160/LW      7164/LW      7168/LW
      7169/CI      7171/CI      7209/LW      7228/CI      7252/LI      7256/LW      7256/LW      7257/CI
      7436/LD      7437/STD     7481/LH      7690/LW      7695/LW      7697/SW      7738/LH      7742/LB
      7749/LW      7754/LI      7756/SLD     7812/LW      7815/LW      7818/LW      7821/LW      7824/LW
      7849/LB      8412/LW      8419/LH      8422/LH      8425/LH      8542/LW      8543/SLS     8764/STB
      9116/LW      9117/STW     9201/LW      9205/XW      9343/LI      9471/SLD     9498/SLD     9531/LI
      9532/DW      9538/LW      9542/LD      9570/STW
   RD               785/LI       984-EQU     1426/LW      1718/LB      1721/LI      1725/CW      1787/LI
      1868/LI      2265/LW      2267/CI      2269/AI      2270/CI      2272/AI      2273/CI      2275/AI
      3153/LI      3155/LI      3156/CW      3184/LI      3186/LI      3187/CW      3288/STW     3314/CW
      3323/CI      3341/LMS     3342/LCF     3438/LW      3575/LW      3693/LW      3800/LW      3959/LW
      3969/LI      3979/LI      3990/LI      4002/LI      4010/LI      4312/LW      4517/LW      4535/LI
      4547/LI      4728/LW      4738/LW      4886/LW      4975/LW      4994/LW      4995/AI      5090/LW
      5151/LW      5229/LW      5230/STW     5316/LW      5317/STW     5344/LW      5361/LW      5362/STW
      5386/LW      5425/LW      5471/LW      5487/LI      7092/LI      7120/LI      7151/LOADWORD
      7160/LW      7222/LOADWORD             7264/LOADWORD             7705/AW      7710/AW      7755/LW
      7757/SLS     9344/LI      9467/STW     9470/LW      9472/SCS     9474/XW      9494/STW     9497/LI
      9499/SCS     9500/CB      9502/AI      9503/STB     9506/LW      9535/OR      9538/LW      9540/OR
      9571/STW
   RDACT#A         8610-LW      8643/B       8657/BLE
   RDACT#B         8615/BE      8620-AI
   RDACT#C         8622/BGE     8627-LW
   RDACT#D         8639-SLS     8642/BDR
   RDACT#E         8640/BC      8645-SLS
   RDACT#F         8635/BEZ     8656-CI
   RDACT#N         8618/B       8661-LW
   RDACT#X         8655/B       8665-LCI
   RDEXP#A         8694/BNEZ    8699-LI
   RDEXP#B         8701/BNEZ    8704-LI
   RDEXP#C         8706/BNEZ    8710-LW
   RDEXP#D         8715-LW      8721/BDR
   RDIMP#A         8811-LI      8833/BLE
   RDIMP#B         8814-SLS     8825/BLE     8829/BLE
   RDIMP#C         8823/BE      8828-CI
   RDIMP#D         8826/B       8831-AI
   RDLOC#A         8863-CB      8868/B
   RDLOC#B         8864/BE      8870-AI
   RDLOC#W         8866/BGE     8879-LI
   RDLOC#X         8876/B       8881-LCI
   RDSEQ#A         8909-SLS     8916/BIR
   RDSEQ#B         8910/BEV     8916-BIR
   RDSEQ#C         8937/GEN     8956-LI
   RDSEQ#D         8965-LH      8992/B       8997/B       9002/B       9007/B       9012/B       9017/B
      9022/B       9027/B       9032/B       9037/B       9042/B       9047/B       9052/B       9057/B
   RDSEQ#E         8962/B       8968-AI      8976/BIR     8987/B
   RDSEQ#F         8938/GEN     8981-LI
   RDSEQ#G         8939/GEN     8989-LI
   RDSEQ#H         8940/GEN     8994-LI
   RDSEQ#J         8941/GEN     8999-LI
   RDSEQ#K         8942/GEN     9004-LI
   RDSEQ#L         8943/GEN     9009-LI
   RDSEQ#M         8944/GEN     9014-LI
   RDSEQ#N         8945/GEN     9019-LI
   RDSEQ#P         8946/GEN     9024-LI
   RDSEQ#Q         8947/GEN     9029-LI
   RDSEQ#R         8948/GEN     9034-LI
   RDSEQ#S         8949/GEN     9039-LI
   RDSEQ#T         8950/GEN     9044-LI
   RDSEQ#U         8951/GEN     9049-LI
   RDSEQ#V         8952/GEN     9054-LI
   RDSEQCOM        8918-LI      8925/BDR     8977/B
   RDSTAT#B        9104-MTW
   RDSTAT#C        9105/BNEZ    9110-LI
   RDSTAT#D        9108/B       9115-EQU
   RDSTATES        1670/BAL     1711/BAL     8754-STW
   RE               985-EQU     1427/LW      3346/LW      3437/LI      3574/LI      3694/LI
      3739/LLOCKS  3801/LI      3960/LW      3970/LI      3980/LI      3991/LI      4003/LI      4011/LW
      4313/LI      4518/LI      4536/LI      4548/LI      4729/LI      4739/LW      4887/LI      4976/LI
      4988/CD      4996/LI      5091/LI      5152/LI      5345/LI      5387/LI      5426/LI      5472/LI
      7122/LI      7150/LOADWORD             7221/LOADWORD             7265/LOADWORD             7417/AND
      7418/STH     7419/SLS     7420/STH     7422/STH     7438/LW      7439/STW     9573/STW     9578/LW
      9579/SCS     9580/AW      9581/EOR     9582/EOR     9583/STW
   READ           10784-DP     11869/MSGX
   READ%NPDF       5969/BAL     5982/BAL     5988/BAL     6003/BAL     6020-EQU     6034/GEN
   READACT         1267/BAL     1380/BAL     2804/BAL     8607-LCI     9320/BAL     9328/BAL
   READEXP         2632/BAL     3048/BAL     5568/BAL     8682-LCI
   READFF          3139/BAL     3149/BAL     3166/BAL     3180/BAL     3352/BAL     6457/BAL     7080/BAL
      8754/STW     8760-STW     8760/STW     8781/STW     8784/LW      8785/B*
   READFF#A        8757/B       8767-NOP
   READIMP         1178/BAL     1916/BAL     7836/BAL     8807-LCI
   READLOC         2755/BAL     3130/BAL     8858-LCI
   READS          10732-DP     12194/MSGX
   READSEQ         2082/BAL     2800/BAL     3052/BAL     5576/BAL     8900-LCI
   READSTAT        9075-BAL     9705/E
   RECOVERY       10655-DP     11961/MSGX   12048/MSGX
   REFERENCE      10819-DP     11589/MSGX
   REFERENCED     10802-DP     11586/MSGX
   REG%BLOCKS      5226/LW      5252/STW     5273/LW      5293/STW     5523-DATA
   REGISTER       10842-DP     11572/MSGX   11574/MSGX   11806/MSGX   12095/MSGX
   REGISTERS      10619-DP     11570/MSGX   11769/MSGX   11881/MSGX
   REGSAV         10916-DP     11613/MSGX   11767/MSGX
   REGTABLE        5456/LM      5477/CW      5479/CW      5481/CW      5487/LI      5524-DATA
   REGULAR        10909-DP     11763/MSGX
   REGXPSDS        2099/LM      3064/LM      5585/LM      6767/LI     10224-RES
   REJECTION      10828-DP     11690/MSGX
   RELATE         10718-DP     11757/MSGX
   RELATIVE       10637-DP     11563/MSGX   11726/MSGX
   RELEASE        10896-DP     12209/MSGX
   RELEASED       10866-DP     11895/MSGX
   RELEASES       10855-DP     12216/MSGX
   REP%CHAR        6176/BE      6241-EQU
   REPEAT          1216/DATA    5622/B       8154-EQU
   REPLACEMENT    10792-DP     11989/MSGX
   REPORT         10701-DP     12041/MSGX
   REPRESENTED    10798-DP     11745/MSGX   11746/MSGX
   REPRESENTS     10814-DP     11726/MSGX
   RESET          10926-DP     11961/MSGX
   RESPECTIVELY   10608-DP     11811/MSGX   12190/MSGX
   RESTART        10886-DP     12027/MSGX
   RESTORE%CLKS     707/BAL     5788/BAL     6884/BAL     7292/BAL     9187-EQU
   RESTORE%CLKS#A  9207-EQU     9239/BGE
   RESTORE%CLKS#B  9215/B       9223/B       9226/B       9230/B       9235-EQU
   RESTORE0        9212/B       9221-WD
   RESTORE1        9213/B       9225-WD
   RESTORE2        9214/B       9222-WD
   RESTORE4        9216/B       9228-WD
   RESTORE5        9217/B       9229-WD
   RESTORE6        9218/B       9232-WD
   RESTORE7        9219/B       9233-WD
   RESUMED        10881-DP     11970/MSGX
   RETRY%FLAG      1663/STW     1797/MTW     3115/STW     7181/LW      9828-DATA
   REVERSE        10897-DP     12209/MSGX
   RF               986-EQU     1679/STW     1713/LW      1829/LW      1852/LW      1875/LI      2678/LI
      2688/LI      2699/LI      2703/LI      2783/BDR     3140/STW     3167/STW     3356/LI      3933/LI
      3971/LI      3981/LI      3992/LI      4004/LI      4012/LI      4086/B*      4087/B*      4537/LI
      4549/LI      4997/LI      5488/LI      6585/LW      6594/OR      6703/SLS     6706/SLS
      7152/LOADWORD             7209/LW      9345/LI
   RM             10965-DP     11987/MSGX
   RM%EXPL         9717/P      11985-EQU
   ROUTINE        10887-DP     12064/MSGX
   RPATTCNT        7433/LW      7460-DATA
   RPATTNO         7403/CW      7405/MTW     7440/STW     7459-DATA
   RR             11543-EQU    11558/MSGX   11558/MSGX   11596/MSGX   11596/MSGX   11596/MSGX   11626/MSGX
     11677/MSGX   11926/MSGX
   RUN            10788-DP     11560/MSGX   11699/MSGX   11944/MSGX   11968/MSGX
   RUNTESTMSG      8287/#TYPE  11559-EQU
   S              10601-DP     11574/MSGX   11673/MSGX   11745/MSGX   11746/MSGX   11811/MSGX   11991/MSGX
     11991/MSGX   12042/MSGX   12060/MSGX   12194/MSGX
   S%EXPL          9722/P      11990-EQU
   S:INT            511/ERROR    564/SET      573/SET      583/ERROR    587/SET      589/SET      598/DO
   S:NUMC           806/SET      822/SET
   S:PT             0.3/EQU
   S:RAD            587/SET      609/DO       640/ERROR
   S:UFV            609/DO       640/ERROR
   SAME           10494-DP     11590/MSGX   11822/MSGX   11826/MSGX   11956/MSGX   11961/MSGX   11963/MSGX
     12205/MSGX
   SAVE            1199/LI      1550/STM     1560/LM      5662/STM     5681/LD      5690/STM     5700/LM
      6054/STM     6071/LM      6870/STM     6887/LM      7316/STM     7325/LM      7344/STM     7384/LM
      7555/STM     7562/LW      7564/LM      7584/STM     7595/LM      7607/STM     7613/LM      7631/STM
      7659/STM     7689/STM     7694/STM     7718/LM      7891/STM     7942/LM      7952/LM      8608/STM
      8666/LM      8683/STM     8723/LM      8756/STM     8762/STM     8783/LM      8808/STM     8836/LM
      8859/STM     8882/LM      8901/STM     8928/LM      9416/STM     9450/LM      9467/STW     9468/STW
      9474/XW      9475/LW      9476/B*      9493/STW     9494/STW     9495/STW     9506/LW      9507/LW
      9508/B*      9526/STM     9549/LM      9894-RES
   SAVE%CLKS        660/BAL     5647/BAL     5786/BAL     6882/BAL     7290/BAL     9133-EQU     9137/B*
      9139/LW      9188/STW     9191/B*      9193/LW
   SAVE%CLKS#A     9155-EQU     9168/BDR
   SAVE#ERR        4011/LW      6975/STM     7168/LW      7189/MTW     7252/LI      7256/LW
      7264/LOADWORD             7265/LOADWORD             7278/STM     7288/LM      7299/LM      7304-RES
   SAVE#1          6584/STM     6714/LM      7401/STM     7451/LM      7477/STM     7497/LM      7515/STM
      7540/LM      7737/STM     7741/STM     7748/STM     7755/LW*     7758/LW*     7761/LM      8411/STM
      8450/LM      8470/STM     8498/LM      8539/STM     8549/LM      8570/STM     8579/LM      9285/STM
      9333/LM      9895-RES
   SAVE#2          1065/STM     1211/LM      5865/STM     5937/LM      6282/STM     6331/LM      6358/STM
      6523/LM      8076/STM     8113/LM      8115/B*      8130/LM      8184/STW     8332/B*      9081/STM
      9120/LM      9896-RES
   SAVE#3          5715/STM     5752/LM      6088/STM     6103/LM      7801/STM     7840/LM      7865/LM
      8081/STW     8089/LW      8100/STW     9897-RES
   SAVE#4          1259/STM     1321/LM      1342/LM      1358/LM      1368/STM     1393/STM     2098/STM
      2113/LM      5636/STM     5638/LW      5643/LI      7262/LI      9342/STM     9898-RES
   SAVE#5          5954/STM     6017/LM      9899-RES
   SAVE#6          9141/STM     9194/STW     9247/LM      9258-RES
   SAVED          10448-DP     11570/MSGX   11769/MSGX
   SAVEINH         9143/STW     9244/LW      9260-DATA
   SAVELINK        9369/STW     9395/B*      9900-RES
   SC             10414-DP     11938/MSGX
   SEARCHES       10857-DP     12221/MSGX
   SECOND         10722-DP     11824/MSGX
   SEED            7438/LW      7458-DATA
   SELECT         10708-DP     11697/MSGX   12180/MSGX
   SELECTED       10653-DP     11957/MSGX   12013/MSGX   12015/MSGX
   SELECTS        10676-DP     12020/MSGX   12023/MSGX   12026/MSGX   12027/MSGX
   SEND             858-CNAME
   SENSE          10468-DP     11991/MSGX   11993/MSGX   11995/MSGX
   SEQCNT          1287/MTW     1288/LW      1404/MTW     1410/MTW     1412/LW      1510/LW      2115/LW
      2921/LW      2988/LW      6371/LW      7590/STW     9829-DATA
   SEQCOM          2084/LI      2124/STB     2149/LW      2151/STW     2161/STB     2164/STB     2658/LW
      8542/LW      8575/STB     8612/LW      8919/LW      8923/LW      8937-GEN
   SEQMSG          7231/LB     10347-TEXT
   SEQUENCE       10650-DP     11636/MSGX   11636/MSGX   11924/MSGX   11924/MSGX   11926/MSGX   12092/MSGX
   SERVICED       10869-DP     11907/MSGX
   SET            10549-DP     11664/MSGX   11915/MSGX   11917/MSGX   12183/MSGX
   SETCC           3349/LW      3423/LB      3429/LC      3552/LB      3564/LC      3648/LB      3658/LC
      3775/LB      4288/LB      4304/LC      5201/LB      5237/LC      5280/LC      5326/LC      5369/LC
      5407/LB      5411/LC      5448/LB      5457/LC      8249/STW     9831-DATA
   SETHIGH         1651/BAL     2090/BAL     2111/BAL     3053/BAL     3074/BAL     5577/BAL     5595/BAL
      8257/BAL     9281-EQU
   SETHIGH#1       9287/BNEZ    9318-AI
   SETHIGH#2       9323/BE      9332-LCI
   SETHIGHABORT    9330/BNE     9340-EQU
   SETM#A          9373-LB
   SETM#B          9377/BCS     9381-AND
   SETM#X          9375/BL      9379/B       9394-LI
   SETMARGIN       5621/BAL     9368-RES
   SETPATT         2092/BAL     2656/BAL     3054/BAL     5578/BAL     9415-LCI
   SETS           10770-DP     12194/MSGX   12216/MSGX
   SEVEN           2883/AND     3476/GEN     3477/GEN     3478/GEN     3479/GEN     3480/GEN     3481/GEN
      3482/GEN     3483/GEN     3484/GEN     3485/GEN     3489/GEN     3490/GEN     3491/GEN     3492/GEN
      3493/GEN     3494/GEN     3495/GEN     3496/GEN     3497/GEN     3498/GEN     3499/GEN     3500/GEN
      3501/GEN     3502/GEN     3503/GEN     3504/GEN     3505/GEN     3506/GEN     3507/GEN     3508/GEN
      3509/GEN     3510/GEN     3511/GEN     3512/GEN     3513/GEN     3514/GEN     3515/GEN     3516/GEN
      3517/GEN     3518/GEN     3519/GEN     3520/GEN     5565/AND     7350/DW      7366/DW      7373/DW
      7380/AND    10255-DATA
   SHORT          10469-DP     11997/MSGX   11998/MSGX
   SI             10565-DP     11649/MSGX   12164/MSGX   12167/MSGX
   SICOUNT         1172/STW     5613/DW      7927/STW     7963-DATA
   SIGMA          10454-DP     12234/MSGX   12247/MSGX
   SINCE          10932-DP     12048/MSGX
   SIX            10254-DATA
   SIZE           10778-DP     11805/MSGX
   SKIP           10751-DP     11954/MSGX
   SKIPPED        10874-DP     11616/MSGX
   SKP:INC         6195/B       6204/BL      6206/BG      6209-BDR     6259/BE      6260/B
   SL             10411-DP     11593/MSGX   11593/MSGX   11593/MSGX   11593/MSGX   11600/MSGX   11658/MSGX
     11708/MSGX   11721/MSGX   11721/MSGX   11728/MSGX   11813/MSGX   11813/MSGX   11815/MSGX   11815/MSGX
     11817/MSGX   11817/MSGX   11819/MSGX   11819/MSGX   11934/MSGX   11954/MSGX   12046/MSGX   12147/MSGX
     12247/MSGX
   SLAVE          10734-DP     12224/MSGX
   SLOW           10769-DP     12173/MSGX   12173/MSGX
   SNAP%CW         6021/LW      6033-EQU
   SO             10966-DP     12188/MSGX
   SOFTWARE       10835-DP     11995/MSGX
   SPECIAL        10906-DP     11752/MSGX
   SPECIFIED      10824-DP     11960/MSGX
   SPECIFIES      10829-DP     11718/MSGX
   SPUR            1389-EQU     9911/BAL
   SPUR%EROR       7261/SEND   11612-EQU
   SPURIOUS       10648-DP     11619/MSGX   11837/MSGX   12087/MSGX
   SPURTRAP        1391-STCF    9912/BAL
   STACK           4495/LI      4500/STW     4528/LW      4536/LI      4540/LI      4566-RES
   STACKMASK       4494/AND     4634-DATA
   STACK25A        4052/DATA    4069-DATA
   START          10443-DP     11554/MSGX   12184/MSGX   12184/MSGX
   STARTING       10659-DP     11803/MSGX   11804/MSGX   12090/MSGX   12184/MSGX
   STAT%EXPL       9707/P      12040-EQU
   STATE          10460-DP     11636/MSGX   11636/MSGX   11772/MSGX   11777/MSGX   11810/MSGX   11821/MSGX
     11825/MSGX   11848/MSGX   11849/MSGX   11849/MSGX   11892/MSGX   11893/MSGX   11893/MSGX   11898/MSGX
     11963/MSGX   11968/MSGX   12099/MSGX   12101/MSGX
   STATES         10712-DP     11811/MSGX   12194/MSGX
   STATEXP%        9116/LW      9707-P
   STATMSG         9082/SEND   11599-EQU
   STATMSGS        5619/BAL     5829/BAL     5840/BAL     9075/BAL     9079-RES
   STATUS         10432-DP     11799/MSGX   11800/MSGX   11904/MSGX   11993/MSGX   11993/MSGX   12006/MSGX
     12041/MSGX   12082/MSGX   12084/MSGX   12164/MSGX   12165/MSGX   12166/MSGX
   STKCNT          4490/LW      4585-EQU
   STKINST         4507/EXU     4517/LW      4570-PSW
   STOP           10497-DP     11593/MSGX   11593/MSGX   12185/MSGX   12185/MSGX
   STOPPED        10895-DP     12187/MSGX
   STORED         10436-DP     11765/MSGX   11871/MSGX   11873/MSGX   11875/MSGX   11878/MSGX   12062/MSGX
     12072/MSGX
   STRING         10725-DP     11889/MSGX
   STRIPZ          6409/LOADBYTE             6417/LOADBYTE             6419/LOADBYTE
      6466/LOADBYTE             6489/LOADBYTE             6506/LOADBYTE             6764/LOADHALF
      6797/LOADWORD             6811/LOADWORD             7032/LOADHALF             7038/LOADHALF
      7039/BUFFER  7100/LOADHALF             7102/LOADHALF             7123/LOADWORD
      7150/LOADWORD             7151/LOADWORD             7152/LOADWORD             7247/LOADHALF
      7249/LOADHALF             7251/LOADWORD             7693-LCI     9084/LOADHALF
      9086/LOADHALF             9102/LOADWORD
   STRIPZ#A        7698-LB      7702/BDR
   STRT           10496-DP     11593/MSGX   11593/MSGX
   SUB            10531-DP     11593/MSGX   11593/MSGX
   SUBTEST        10664-DP     11554/MSGX   11751/MSGX   12042/MSGX   12082/MSGX   12084/MSGX   12088/MSGX
     12104/MSGX   12165/MSGX   12184/MSGX   12185/MSGX   12192/MSGX
   SUBTESTS       10847-DP     12182/MSGX   12188/MSGX
   SUBTST         10688-DP     11600/MSGX   11607/MSGX   11741/MSGX   11751/MSGX   12042/MSGX
   SUPP%CC         3293/MTW     9834-DATA
   SUPPOSEDLY     10617-DP     11901/MSGX   11909/MSGX
   SUPPRESS       10836-DP     12001/MSGX   12003/MSGX
   SW             10576-DP     11997/MSGX   11998/MSGX   11999/MSGX   12000/MSGX   12001/MSGX   12002/MSGX
     12003/MSGX   12004/MSGX
   SWITCH         10684-DP     11566/MSGX   11965/MSGX   11991/MSGX   11993/MSGX   11995/MSGX
   SYNTAX         10699-DP     11971/MSGX
   SYNTAX%EXPL     9702/P      11952-EQU    12265/ORG
   SYSTEM         10695-DP     11574/MSGX   11961/MSGX
   T                799-CNAME  10591-DP     11596/MSGX   11749/MSGX   11774/MSGX   11938/MSGX   12027/MSGX
     12099/MSGX   12179/MSGX
   T%ENTRY         8196/STW     8252/MTW     8278/MTW     8281/MTW     8331/MTW     8384-DATA
   T%EXPL        9726.1/P      12178-EQU
   T%SAVE          8161/STW     8186/STW     8188/STW     8190/STW     8192/STW     8194/STW     8199/LW
      8232/LW      8260/LW      8271/LW      8297/LW      8382-RES
   TABLE          10457-DP     11619/MSGX   11631/MSGX   11767/MSGX   11803/MSGX   11804/MSGX   11805/MSGX
     11886/MSGX   12010/MSGX   12088/MSGX
   TABLE3          1032/DATA    7634/LI      9697-EQU
   TABLE3END       9774-DATA
   TABLSW          6177/BG      6228-EQU
   TCC            10533-DP     11613/MSGX   11764/MSGX   11851/MSGX   11854/MSGX
   TENS            9532/DW      9552-DATA
   TERMINAL       10976-DP     11993/MSGX
   TERMINATES     10804-DP     11977/MSGX   11979/MSGX
   TEST           10485-DP     11554/MSGX   11558/MSGX   11575/MSGX   11699/MSGX   11748/MSGX   11858/MSGX
     11860/MSGX   11862/MSGX   12027/MSGX   12042/MSGX   12179/MSGX   12183/MSGX   12184/MSGX   12185/MSGX
     12190/MSGX   12192/MSGX   12192/MSGX
   TESTEND         5607-LW      5824/BEZ     5826/BGZ     5834/B
   TESTEND#A       5615/BNEZ    5621-BAL
   TESTHIGH        1650/STW     1659/STW     1673/MTW     1800/MTW     1809/MTW     1891/MTW     9836-DATA
   TESTING        10882-DP     11970/MSGX   12006/MSGX
   TESTMT83        1088/#TYPE  12348-TEXTCS
   TESTMT85        1090/#TYPE  12349-TEXTCS
   TESTNO          1019-DATA    1316/AND     1327/LW      1493/LW      1608/LW      1637/STW     1687/LW
      1693/STW     1994/LW      2008/STW     2221/STW     2370/LW      2383/STW     2461/LW      2541/STW
      2607/LW      2623/STW     2792/STW     2856/LW      2869/STW     2880/STW     2882/LW      2932/MTW
      2933/LW      3039/STW     3109/LW      3128/STW     3163/LW      3178/LW      3216/CW      3397/LW
      3413/STW     3458/STW     3536/LW      3544/STW     3601/STW     3627/LW      3637/STW     3703/LW
      3714/STW     3753/LW      3763/STW     3811/LW      3821/STW     3850/LW      3861/STW     3871/LW
      3912/LW      4023/LW      4027/MTW     4121/LW      4147/STW     4179/STW     4238/LW      4275/STW
      4324/LW      4336/MTW     4445/LW      4456/STW     4463/LW      4479/LW      4491/LW      4513/LW
      4559/MTW     4560/LW      4661/LW      4667/STW     4694/LW      4756/MTW     4849/LW      4855/STW
      4915/LW      4928/STW     4950/LW      4968/LW      5006/LW      5015/STW     5052/LW      5056/LW
      5064/STW     5111/LW      5121/STW     5225/STW     5272/STW     5315/STW     5360/STW     5402/STW
      5443/STW     5550/STW     5558/LW      5812/LW      6061/CW      7248/LI      8276/STW     9282/MTW
   TESTS          10444-DP     11560/MSGX   11616/MSGX   11749/MSGX   12182/MSGX   12188/MSGX   12190/MSGX
     12207/MSGX   12211/MSGX   12233/MSGX   12246/MSGX   12256/MSGX
   TEXTCS           732-CNAME
   THAND#A         3309/BCR     3323-CI
   THAND#B         3315/BE      3319/B       3324/BE      3327-LB
   THAND#C         3329/BE      3332-LW
   THAND#D         3340-LCI
   THAND#E         3334/BE      3336/BE      3354/BE      3362-LPSD
   THAND#X         3286/BCS     3338/BNE     3365/DATA    3371-LCI
   THAT           10513-DP     12104/MSGX   12207/MSGX   12211/MSGX   12230/MSGX
   THE            10528-DP     11589/MSGX   11690/MSGX   11697/MSGX   11718/MSGX   11726/MSGX   11726/MSGX
     11753/MSGX   11757/MSGX   11757/MSGX   11763/MSGX   11886/MSGX   11895/MSGX   11926/MSGX   11959/MSGX
     11959/MSGX   11960/MSGX   11967/MSGX   11970/MSGX   11977/MSGX   11991/MSGX   12006/MSGX   12059/MSGX
     12060/MSGX   12062/MSGX   12063/MSGX   12064/MSGX   12064/MSGX   12066/MSGX   12091/MSGX   12117/MSGX
     12135/MSGX   12136/MSGX   12163/MSGX   12167/MSGX   12180/MSGX   12183/MSGX   12183/MSGX
   THEM           10773-DP     12209/MSGX
   THEN           10772-DP     12209/MSGX
   THEREFORE      10818-DP     11586/MSGX
   THIS           10511-DP     11697/MSGX   11718/MSGX   12046/MSGX   12180/MSGX
   THREE           5408/AND     6873/AND     9093/AND     9381/AND     9388/AND    10251-DATA
   THROUGH        10907-DP     11755/MSGX
   THRU           10487-DP     11560/MSGX   11675/MSGX   11722/MSGX   11722/MSGX   11833/MSGX   11959/MSGX
     12022/MSGX   12025/MSGX   12060/MSGX   12067/MSGX   12097/MSGX
   TIME           10753-DP     11957/MSGX   12196/MSGX
   TIMER          10738-DP     12252/MSGX
   TIMES          10727-DP     12183/MSGX
   TITLE            0.3-EQU  12341.4/TEXTCS
   TO             10555-DP     11554/MSGX   11563/MSGX   11586/MSGX   11697/MSGX   11699/MSGX   11718/MSGX
     11757/MSGX   11842/MSGX   11954/MSGX   11954/MSGX   11963/MSGX   11965/MSGX   11965/MSGX   11968/MSGX
     11968/MSGX   11991/MSGX   11993/MSGX   12027/MSGX   12059/MSGX   12161/MSGX   12179/MSGX   12180/MSGX
     12182/MSGX   12186/MSGX   12194/MSGX   12216/MSGX   12250/MSGX
   TOO            10963-DP     11929/MSGX
   TOTAL          10931-DP     12048/MSGX
   TRANSFER       10838-DP     12027/MSGX   12179/MSGX
   TRAP           10499-DP     11575/MSGX   11616/MSGX   11753/MSGX   11783/MSGX   11784/MSGX   11796/MSGX
     11840/MSGX   11842/MSGX   11851/MSGX   11854/MSGX   11866/MSGX   11868/MSGX   11871/MSGX   11873/MSGX
     11917/MSGX   12015/MSGX   12057/MSGX   12233/MSGX   12240/MSGX   12246/MSGX   12252/MSGX   12253/MSGX
   TRAPACC         3229/GEN     3244/DATA    3246-RES
   TRAPACCP        3244-DATA    3287/SW
   TRAPECC         3328/CB      3422/STB     3556/STB     3645/STB     3772/STB     3920/STB     4199/STB
      4302/STB     4476/STB     4705/STB     4935/STW     5076/STB     5128/STB     5204/STB     7111/LB
      9837-DATA
   TRAPEPSD        3290/LW      3301/LW      3420/STW     3424/STB     3428/STW     3554/STW     3561/STW
      3643/STW     3647/STH     3649/STB     3651/STW     3766/STW     3770/STW     3774/STH     3776/STB
      3884/STW     3893/STH     3901/STW     3959/LW*     3960/LW      4284/STW     4289/STB     4293/STW
      4470/STW     4474/STW     4478/STB     4693/STW     4698/STB     4704/STW     4864/STW     4866/STB
      4868/STW     4939/STW     4943/STW     4949/STH     5069/STW     5074/STW     5126/STW     5132/STW
      5197/STW     5202/STB     5207/STW     5232/AWM     5277/AWM     5321/AWM     5364/AWM     5404/AWM
      5445/AWM     7131/LW      9839-DATA
   TRAPHAND        3248/BAL     3279/DATA    3280-STCF    5956/CI
   TRAPHP          3279-DATA    6796/LI
   TRAPINCR        3314/CW      3416/STW     3451/LW      3464/STW     3546/STW     3593/LW      3606/STW
      3639/STW     3719/STW     3765/STW     3826/STW     3918/STW     4277/STW     4278/MTW     4327/MTW
      4345/STW     4475/STW     4674/STW     4860/STW     4930/STW     5070/STW     5127/STW     5198/STW
      7094/LI      9841-DATA
   TRAPLOC         3306/LW      3332/LW      3396/STW     3410/STW     3535/STW     3626/STW     3752/STW
      3865/STW     4237/STW     4245/MTW     4249/MTW     4253/MTW     4257/MTW     4261/MTW     4265/MTW
      4287/STW     4449/STW     4454/STW     4678/STW     4870/STW     4914/STW     4925/STW     5080/STW
      5140/STW     5195/STW     5958/LW      7241/LI      9842-DATA
   TRAPPING       10862-DP     11795/MSGX
   TRAPPSD         3228-GEN     3289/LW      3302/CW      3731/LRP     4738/LW      4739/LW      6802/LI
      7132/LW     10231/XPSD
   TRAPRET         3373/B*      3426/STW     3558/STW     3653/STW     3674/B*      3779/STW     3867/STW
      4291/STW     4472/STW     4707/STW     4872/STW     4941/STW     5078/STW     5138/STW     5234/STW
      5279/STW     5323/STW     5366/STW     5406/STW     5447/STW     9843-DATA
   TRAPS           1185/STW    12299-EQU    12300/EQU
   TRAPSAVE        3282/STM     3372/LM      3375-RES     3970/LI      3980/LI      3991/LI      4547/LI
      7153/LI
   TRAPSPD         4497/STD     4541/CW      4543/CW      4548/LI      4568-RES     4570/PSW     4571/PLW
      4572/PSM     4573/PLM     4574/MSP     4575/MSP
   TRAPXPSD        3417/LW      3460/LW      3547/LW      3602/LW      3640/LW      3715/LW      3767/LW
      3822/LW      3872/LW      4279/LW      4346/LW      4466/LW      4675/LW      4861/LW      4936/LW
      5071/LW      5129/LW      5199/LW      6794/CW     10231-XPSD
   TRAP4C          5131/LI      5146-LW      5151/LW      5152/LI
   TRAP4D1         5231/LI      5239-WD      5262/B
   TRAP4D2         5276/LI      5282-XPSD    5303/B
   TRAP4D3         5320/LI      5328-WD      5351/B
   TRAP4D4         5363/LI      5371-WD      5393/B
   TRAP4D5         5403/LI      5410/STW     5413-NOP     5425/LW      5426/LI      5432/B
   TRAP4D6         5444/LI      5454/STW     5459-NOP     5471/LW      5472/LI      5492/B
   TRAP40A         3419/LI      3433-EXU     3437/LI      3446/B       3450/BLE
   TRAP40B         3551/LI      3568-STW     3574/LI      3575/LW      3584/BG      3591/B
   TRAP40C         3642/LI      3655/LPSD    3662-EXU     3694/LI      3728/GEN     3730/WAIT
   TRAP40D         3769/LI      3777/STB     3781/LPSD    3787-EXU     3801/LI
   TRAP40E         3883/LI      3895/LI      3897/STW     3911/STW     3935/LPSD    3942-RES
   TRAP42          4469/LI      4507-EXU     4518/LI      4553/B
   TRAP43          4688/STH     4690/LI      4712/STW     4714/LPSD    4721-RES     4728/LW      4729/LI
   TRAP44          4863/LI      4875/LPSD    4877/GEN     4881-FDS     4886/LW      4887/LI
   TRAP45          4938/LI      4948/STW     4955/DATA    4957/GEN     4963-DATA    4975/LW      4976/LI
   TRAP46          5073/LI      5085-RD      5090/LW      5091/LI      5095/B
   TRAP48          4283/LI      4308-EXU     4313/LI      4321/B
   TRIG             960-EQU     1888/WD      1959/DATA    1961/DATA    1961/DATA    1963/DATA    1965/DATA
      1965/DATA    1967/DATA    1969/DATA    1971/DATA    1971/DATA    1973/DATA    1973/DATA    1975/DATA
      1977/DATA    2423/WD      2430/WD      2437/WD      2749/WD      2831/WD      5239/WD      5328/WD
      5371/WD      9233/WD      9432/WD      9435/WD
   TRIGGER         2831-WD
   TRIGGERED      10624-DP     11656/MSGX   11702/MSGX   11774/MSGX   12141/MSGX   12211/MSGX
   TRUNCATE       10348-TEXT
   TRY            10960-DP     11824/MSGX
   TST            10530-DP     11593/MSGX   11593/MSGX   11600/MSGX   11607/MSGX   11741/MSGX   11748/MSGX
     12042/MSGX
   TST11A          1631-EQU     1760/B       1772/B
   TST11B          1653/B       1661-EQU     1746/B
   TST11C          1710/BCS     1730/BE      1738-BAL     1781/BE      1867/BE      1877/B
   TST11D          1743-CI
   TST11E          1686/BCR     1744/BGE     1750-CI
   TST11F          1753/BGE     1756/BGE     1764-CI
   TST11G          1726/BNE     1776-EQU
   TST11H          1786-LI
   TST11I          1779/BNEZ    1790-EQU     1826/B
   TST11I#1        1739/B       1798/BEZ     1804-EQU
   TST11I#2        1816/BNE     1818/BG      1828-EQU
   TST11J          1801/BNEZ    1840-EQU
   TST11K          1792/BG      1802/B       1856/BNE     1861/BNE     1865/BNE     1871-EQU
   TST11L          1831/B       1833/B       1879-WD
   TST11M          1832/B       1882-WD
   TST11N          1835/B       1836/B       1884-WD
   TST11P          1837/B       1838/B       1887-WD
   TST11R          1834/B       1881/B       1883/B       1886/B       1889/B       1891-MTW
   TST11RETRY      1697-LW      1892/BNEZ    1897/B
   TST11X          1765/BGE     1905-LW
   TST1100         1223/DATA    1618-RES
   TST12#A         2018-SLS     2022/BLE
   TST12#A1        2019/BC      2026-LW
   TST12#B         2032-SLS     2036/BLE
   TST12#B1        2033/BC      2040-LH
   TST12#C         2044-LI      2062/BL
   TST12#D         2054-SLS     2057/B
   TST12#E         2046/BEZ     2052/BEZ     2060-AI
   TST12#F         2133-LB      2139/BLE     2167/BLE
   TST12#H         2152/B       2162/B       2165-AI
   TST12#J         2140/B       2168-EQU
   TST12#R         2011/LI      2093/LI      2106-MTW
   TST12#X         2004/BNEZ    2174/B       2180-MTW
   TST1200         1906/BNEZ    1917/B       2000-RES     2182/B
   TST13#A         2262-LI
   TST13#B         2265-LW      2286/BLE
   TST13#C         2266/BEZ     2276-BAL
   TST13#E         2241/BL      2243/BG      2291-LI
   TST13#X         2261/B       2283/B       2287/B       2309/B       2321-BAL
   TST13RET        2238-EQU
   TST1300         2183/B       2213-RES     2323/B
   TST14#A         2388-LI      2393/BDR     2451/BNEZ    2468/B       2547/B
   TST14#B         2391/BC      2396-LI      2447/B
   TST14#C         2420/BEZ     2446-BAL     2495/BE      2501/B
   TST14#D         2394/B       2455-CI
   TST14#D1        2458-AI      2527/BEZ
   TST14#E         2442/BNE     2474-LB
   TST14#F         2476/BE      2482-LI
   TST14#G         2486/BE      2492-LI
   TST14#J         2463/BE      2540-LI
   TST14INIT       2387/BAL     2467/BAL     2505-EQU
   TST1400         2324/B       2378-RES
   TST1401         2372/BE      2384-LCI
   TST1402         2374/BE      2544-LCI
   TST15#A         2642-EQU     2654/BDR
   TST15#A1        2665-STH     2712/BE      2774/BE
   TST15#A2        2669-LB      2681/BDR     2683/BDR     2785/BNE
   TST15#B         2671/BNE     2681-BDR
   TST15#C         2674/BLE     2695-LI
   TST15#D         2679/B       2709-CI      2783/BDR
   TST15#E         2714-LH      2769/BNEZ    2771/B       2775/B
   TST15#E1        2718-LH
   TST15#F         2691/B       2700/B       2704/B       2710/BE      2761-CI
   TST15#G         2762/BNE     2773-CI
   TST15#H         2757/B       2780-BAL
   TST15#J         2716/BEZ     2782-AI
   TST15#X1        2764/BE      2787-BAL
   TST15#X2        2804-BAL     2823/DATA
   TST15#X3        2802/B       2807-LI
   TST15#Y         2806/BLZ     2825-BAL
   TST15MSG        2613/#TYPE  11553-EQU
   TST15PSD        2821/LPSD    2823-DATA
   TST1500         2464/B       2612/BE      2614/B       2621-RES     2828/B
   TST16#A         2861/BLE     2875-LI
   TST16#B         2862/B       2882-LW      2930/B       2935/BLE
   TST16#C         2914-LB
   TST16#D         2859/BE      2945-EQU     2996/B
   TST16#F         1353/LI      2979-WD
   TST16#G         2986/B       2994-BAL
   TST1600         2829/B       2864-RES
   TST17#A         3013/BCR     3015/B       3045-BAL     3086/BG
   TST17#B         3050-BAL     3082/B
   TST17#C         3056/LI      3069-MTW
   TST17#X         3077-BAL
   TST1700         2938/BG      2998/B       3037-RES
   TST18#A1        3110/B       3121-LI      3201/BL      3211/B
   TST18#A2        3129-STB
   TST18#A3        3136-EQU     3194/B
   TST18#B         3148/BCS     3157/BE      3162-EQU
   TST18#B1        3175/DATA    3176-LC
   TST18#C         3160/B       3193-BAL
   TST18#D         3177/BCS     3195-AI      3218/B
   TST18#N         3135/BEZ     3215-LW
   TST18PSD        3170/LPSD    3172/LPSD    3175-DATA
   TST1800         3087/B       3112-RES
   TST2A#A         4664/B       4671-EQU
   TST2A#B1        4684-LI      4751/B
   TST2A#B2        4687-LI      4758/BLE
   TST2A#C         4690-LI
   TST2A#C1        4709-LD      4745/B
   TST2A#D         4706/LI      4735-CI
   TST2A#E         4726/BE      4731/B       4736/BE      4744-BAL
   TST2A#F         4747/BE      4753-LI
   TST2A00         4562/BG      4666-LI
   TST2B#C         4874-LW      4893/B
   TST2B#D         4871/LI      4892-BAL
   TST2B01         4759/B       4851/BE      4854-LI
   TST2C#A         4917/BE      4929-LI
   TST2C#A1        4934-STW     5001/B       5005/BLE     5018/B
   TST2C#A2        4932/B       4938-LI
   TST2C#B         4940/LI      4982-EQU
   TST2C#C         4970/BE      4978/B       4989/BE      5000-BAL
   TST2C#D         4919/BE      5016-EQU
   TST2C00         4894/B       4923-RES
   TST2C01         4953/LPSD    4955-DATA
   TST2C02         4952/BEZ     4958-LPSD
   TST2D#B         5077/LI      5094-BAL
   TST2D00         5008/BE      5062-EQU
   TST2E#A         5133-LI      5156/B
   TST2E#B         5137/LI      5155-BAL
   TST2E00         5096/B       5117-EQU
   TST2F%COM       5180/B       5190-EQU     5263/B       5304/B       5313/BE      5352/B       5394/B
      5433/B
   TST2F#A         5209/B       5223-EQU
   TST2F#A1        5248-EQU     5502/XPSD
   TST2F#A2        5228/BE      5233/LI      5243/B       5256/BCS     5261-BAL
   TST2F#B         5210/B       5270-EQU
   TST2F#B1        5282/XPSD    5289-EQU
   TST2F#B2        5275/BE      5278/LI      5297/BCS     5302-BAL
   TST2F#C         5211/B       5310-EQU
   TST2F#C1        5341-EQU     5504/XPSD
   TST2F#C2        5322/LI      5336/B       5350-BAL
   TST2F#D         5212/B       5358-EQU     5505/B
   TST2F#D1        5384-EQU
   TST2F#D2        5365/LI      5379/B       5392-BAL
   TST2F#E         5213/B       5400-EQU
   TST2F#E1        5422-EQU
   TST2F#E2        5405/LI      5417/B       5431-BAL
   TST2F#F         5214/B       5441-EQU
   TST2F#F1        5468-EQU
   TST2F#F2        5446/LI      5463/B       5474-EQU
   TST2F00         5157/B       5183-EQU
   TST21#A         3399/BE      3414-STW
   TST21#B         3419-LI      3465/B
   TST21#C         3425/LI      3445-BAL
   TST21#D         3401/BE      3459-STW
   TST2100         3207/BG      3406-RES
   TST22#A         3452/BNEZ    3538/BE      3543-LI
   TST22#B         3549-LI      3607/B
   TST22#C         3557/LI      3590-BAL
   TST22#D         3540/BE      3600-LI
   TST23#A         3578/B       3586/B       3594/BNEZ    3635-LI
   TST23#B         3629/BE      3638-LI
   TST23#C         3642-LI      3720/B
   TST23#C1        3655-LPSD    3698/B       3702/BLE
   TST23#D         3652/LI      3677/DATA    3688-LW
   TST23#E         3689/BEZ     3697-BAL
   TST23#G         3631/BE      3715-LW
   TST24#A         3705/BE      3761-LI
   TST24#B         3755/BE      3764-LI
   TST24#C         3769-LI      3827/B
   TST24#C1        3781-LPSD    3806/B       3810/BLE
   TST24#D         3778/LI      3796-LW
   TST24#E         3797/BEZ     3805-BAL
   TST24#G         3757/BE      3822-LW
   TST25#A         3853/B       3863-EQU
   TST25#B         3869-EQU     4021/B       4028/B
   TST25#C         3922-LI      4017/B
   TST25#D         3866/LI      3953-LC
   TST25#E         3956/BEZ     3964-CI
   TST25#F         3954/BCS     4016-BAL
   TST25CODES      3890/LB      4115-DATA
   TST2500         3813/BE      3856-EQU
   TST2601         4025/BGE     4123/BE      4139-LI
   TST2602         4125/BE      4177-EQU
   TST28#A1        4240/BE      4246/B       4254/B       4262/B       4276-STW     4340/BL
   TST28#A2        4281-BAL     4347/B
   TST28#A3        4294-LW      4329/BLE
   TST28#B         4290/LI      4320-BAL
   TST28#B1        4242/BE      4250/B       4258/B       4266/B       4344-LI
   TST2800         4207/B       4270-RES
   TST29#A1        4450/B       4458-BAL     4563/B
   TST29#A2        4469-LI
   TST29#A3        4465/BG      4479-LW      4557/BLE
   TST29#A4        4485-LW
   TST29#B         4471/LI      4520/B       4523/BCS     4527-LI
   TST29#C         4542/BNE     4546-LI
   TST29#D         4544/BE      4552-BAL
   TST2900         4331/BE      4453-LI
   TST31#A         5553/B       5562-BAL     5599/B       5600/B
   TST31#B         5572-LW
   TST31#C         5570/LI      5580/LI      5590-MTW
   TST3100         5493/B       5548-RES
   TWO             1431/AND    10250-DATA
   TYPE           10486-DP     11556/MSGX   11607/MSGX   11673/MSGX   11741/MSGX   11837/MSGX   11842/MSGX
     11844/MSGX   11846/MSGX   11848/MSGX   11851/MSGX   11854/MSGX   11856/MSGX   11858/MSGX   11860/MSGX
     11862/MSGX   11864/MSGX   11866/MSGX   11868/MSGX   11871/MSGX   11873/MSGX   11875/MSGX   11878/MSGX
     11881/MSGX   11884/MSGX   11886/MSGX   11889/MSGX   11892/MSGX   11895/MSGX   11898/MSGX   11901/MSGX
     11904/MSGX   11907/MSGX   11909/MSGX   11912/MSGX   11915/MSGX   11917/MSGX   11919/MSGX   11922/MSGX
     11924/MSGX   11929/MSGX   11956/MSGX   12009/MSGX
   TYPES          10935-DP     11675/MSGX
   T000           10365/DP     10424/DP     10986-T
   T001           10366/DP     10987-T
   T002           10367/DP     10988-T
   T003           10368/DP     10989-T
   T004           10369/DP     10990-T
   T005           10370/DP     10991-T
   T006           10371/DP     10992-T
   T007           10372/DP     10993-T
   T008           10373/DP     10994-T
   T009           10374/DP     10995-T
   T010           10375/DP     10996-T
   T011           10376/DP     10997-T
   T012           10377/DP     10998-T
   T013           10378/DP     10999-T
   T014           10379/DP     11000-T
   T015           10380/DP     11001-T
   T016           10384/DP     10386/DP     10388/DP     10390/DP     10391/DP     10392/DP     10393/DP
     10394/DP     10395/DP     10396/DP     10397/DP     10398/DP     10399/DP     10400/DP     10401/DP
     11002-T      11003/EQU
   T017           10402/DP     11004-T
   T018           10404/DP     11005-T
   T019           10405/DP     11006-T
   T020           10406/DP     11007-T
   T021           10407/DP     11008-T
   T022           10408/DP     11009-T
   T023           10409/DP     11010-T
   T024           10410/DP     11011-T
   T025           10411/DP     11012-T
   T026           10412/DP     11013-T
   T027           10413/DP     11014-T
   T028           10414/DP     11015-T
   T029           10415/DP     11016-T
   T030           10416/DP     11017-T
   T031           10417/DP     11018-T
   T032           10418/DP     11019-T
   T033           10419/DP     11020-T
   T034           10421/DP     11021-T
   T035           10422/DP     11022-T
   T036           10423/DP     11023-T
   T037           10427/DP     11027-T
   T038           10789/DP     11028-T
   T039           10790/DP     11029-T
   T040           10606/DP     11030-T
   T041           10607/DP     11031-T
   T042           10608/DP     11032-T
   T043           10610/DP     11033-T
   T044           10791/DP     11034-T
   T045           10611/DP     11035-T
   T046           10612/DP     11036-EQU
   T047           10613/DP     11037-EQU
   T048           10614/DP     11038-EQU
   T049           10792/DP     11039-T
   T050           10793/DP     11040-T
   T051           10794/DP     11041-T
   T052           10795/DP     11042-T
   T053           10796/DP     11043-T
   T054           10797/DP     11044-T
   T055           10798/DP     11045-T
   T056           10800/DP     11046-T
   T057           10801/DP     11047-T
   T058           10802/DP     11048-T
   T059           10803/DP     11049-T
   T060           10804/DP     11050-T
   T061           10615/DP     11051-T
   T062           10805/DP     11052-T
   T063           10806/DP     11053-T
   T064           10807/DP     11054-T
   T065           10808/DP     11055-T
   T066           10809/DP     11056-T
   T067           10810/DP     11057-T
   T068           10811/DP     11058-T
   T069           10812/DP     11059-T
   T070           10813/DP     11060-T
   T071           10814/DP     11061-T
   T072           10815/DP     11062-T
   T073           10616/DP     11063-T
   T074           10617/DP     11064-T
   T075           10817/DP     11065-T
   T076           10618/DP     11066-EQU
   T077           10619/DP     11067-T
   T078           10818/DP     11068-T
   T079           10620/DP     11069-T
   T080           10819/DP     11070-EQU
   T081           10621/DP     11071-T
   T082           10622/DP     11072-EQU
   T083           10820/DP     11073-T
   T084           10623/DP     11074-T
   T085           10624/DP     11075-T
   T086           10821/DP     11076-T
   T087           10822/DP     11077-T
   T088           10823/DP     11078-T
   T089           10625/DP     11079-T
   T090           10824/DP     11080-T
   T091           10825/DP     11081-T
   T092           10627/DP     11082-T
   T093           10628/DP     11083-T
   T094           10629/DP     11084-T
   T095           10630/DP     11085-T
   T096           10631/DP     11086-T
   T097           10826/DP     11087-T
   T098           10827/DP     11088-T
   T099           10828/DP     11089-T
   T100           10829/DP     11090-T
   T101           10632/DP     11091-T
   T102           10830/DP     11092-T
   T103           10633/DP     11093-EQU
   T104           10634/DP     11094-T
   T105           10635/DP     11095-EQU
   T106           10636/DP     11096-T
   T107           10637/DP     11097-T
   T108           10638/DP     11098-T
   T109           10647/DP     11099-T
   T110           10831/DP     11100-EQU
   T111           10648/DP     11101-T
   T112           10832/DP     11102-T
   T113           10649/DP     11103-EQU
   T114           10650/DP     11104-T
   T115           10651/DP     11105-EQU
   T116           10652/DP     11106-T
   T117           10834/DP     11107-T
   T118           10653/DP     11108-T
   T119           10654/DP     11109-T
   T120           10655/DP     11110-T
   T121           10656/DP     11111-T
   T122           10835/DP     11112-T
   T123           10836/DP     11113-T
   T124           10657/DP     11114-T
   T125           10658/DP     11115-T
   T126           10837/DP     11116-T
   T127           10838/DP     11117-T
   T128           10839/DP     11118-T
   T129           10840/DP     11119-T
   T130           10659/DP     11120-T
   T131           10841/DP     11121-T
   T132           10842/DP     11122-EQU
   T133           10843/DP     11123-T
   T134           10844/DP     11124-T
   T135           10660/DP     11125-T
   T136           10661/DP     11126-T
   T137           10845/DP     11127-T
   T138           10846/DP     11128-T
   T139           10847/DP     11129-T
   T140           10848/DP     11130-T
   T141           10849/DP     11131-T
   T142           10851/DP     11132-T
   T143           10852/DP     11133-T
   T144           10853/DP     11134-T
   T145           10854/DP     11135-T
   T146           10855/DP     11136-T
   T147           10662/DP     11137-T
   T148           10856/DP     11138-EQU
   T149           10857/DP     11139-T
   T150           10858/DP     11140-T
   T151           10859/DP     11141-T
   T152           10860/DP     11142-T
   T153           10861/DP     11143-T
   T154           10862/DP     11144-T
   T155           10863/DP     11145-T
   T156           10864/DP     11146-T
   T157           10865/DP     11147-T
   T158           10866/DP     11148-T
   T159           10868/DP     11149-T
   T160           10869/DP     11150-T
   T161           10870/DP     11151-T
   T162           10664/DP     11152-EQU
   T163           10871/DP     11153-T
   T164           10665/DP     11154-EQU
   T165           10666/DP     11155-EQU
   T166           10667/DP     11156-EQU
   T167           10872/DP     11157-T
   T168           10873/DP     11158-T
   T169           10874/DP     11159-T
   T170           10875/DP     11160-T
   T171           10876/DP     11161-T
   T172           10877/DP     11162-T
   T173           10668/DP     11163-EQU
   T174           10669/DP     11164-EQU
   T175           10670/DP     11165-EQU
   T176           10671/DP     11166-T
   T177           10878/DP     11167-T
   T178           10879/DP     11168-EQU
   T179           10672/DP     11169-T
   T180           10880/DP     11170-T
   T181           10673/DP     11171-T
   T182           10881/DP     11172-T
   T183           10882/DP     11173-T
   T184           10883/DP     11174-T
   T185           10674/DP     11175-T
   T186           10885/DP     11176-T
   T187           10675/DP     11177-EQU
   T188           10676/DP     11178-T
   T189           10886/DP     11179-T
   T190           10887/DP     11180-T
   T191           10677/DP     11181-T
   T192           10888/DP     11182-T
   T193           10889/DP     11183-T
   T194           10890/DP     11184-T
   T195           10891/DP     11185-T
   T196           10678/DP     11186-EQU
   T197           10892/DP     11187-T
   T198           10893/DP     11188-T
   T199           10894/DP     11189-T
   T200           10895/DP     11190-T
   T201           10896/DP     11191-EQU
   T202           10897/DP     11192-T
   T203           10898/DP     11193-T
   T204           10679/DP     11194-EQU
   T205           10899/DP     11195-T
   T206           10900/DP     11196-EQU
   T207           10902/DP     11197-T
   T208           10903/DP     11198-T
   T209           10904/DP     11199-T
   T210           10905/DP     11200-T
   T211           10906/DP     11201-T
   T212           10907/DP     11202-T
   T213           10908/DP     11203-T
   T214           10909/DP     11204-T
   T215           10910/DP     11205-T
   T216           10681/DP     11206-T
   T217           10911/DP     11207-T
   T218           10912/DP     11208-T
   T219           10682/DP     11209-T
   T220           10913/DP     11210-T
   T221           10914/DP     11211-T
   T222           10915/DP     11212-T
   T223           10683/DP     11213-T
   T224           10684/DP     11214-T
   T225           10685/DP     11215-T
   T226           10686/DP     11216-T
   T227           10687/DP     11217-T
   T228           10688/DP     11218-T
   T229           10689/DP     11219-T
   T230           10916/DP     11220-T
   T231           10917/DP     11221-T
   T232           10922/DP     11222-T
   T233           10690/DP     11223-T
   T234           10691/DP     11224-T
   T235           10692/DP     11225-T
   T236           10693/DP     11226-T
   T237           10694/DP     11227-T
   T238           10695/DP     11228-T
   T239           10696/DP     11229-T
   T240           10698/DP     11230-T
   T241           10428/DP     11231-EQU
   T242           10699/DP     11232-T
   T243           10700/DP     11233-T
   T244           10429/DP     11234-EQU
   T245           10430/DP     11235-T
   T246           10431/DP     11236-T
   T247           10432/DP     11237-T
   T248           10433/DP     11238-T
   T249           10434/DP     11239-T
   T250           10701/DP     11240-T
   T251           10435/DP     11241-EQU
   T252           10702/DP     11242-T
   T253           10436/DP     11243-T
   T254           10703/DP     11244-T
   T255           10704/DP     11245-T
   T256           10705/DP     11246-T
   T257           10437/DP     11247-T
   T258           10438/DP     11248-EQU
   T259           10440/DP     11249-T
   T260           10441/DP     11250-T
   T261           10706/DP     11251-EQU
   T262           10707/DP     11252-T
   T263           10708/DP     11253-EQU
   T264           10709/DP     11254-T
   T265           10710/DP     11255-T
   T266           10711/DP     11256-T
   T267           10712/DP     11257-T
   T268           10713/DP     11258-T
   T269           10715/DP     11259-T
   T270           10716/DP     11260-T
   T271           10717/DP     11261-T
   T272           10718/DP     11262-T
   T273           10719/DP     11263-T
   T274           10720/DP     11264-EQU
   T275           10442/DP     11265-T
   T276           10721/DP     11266-EQU
   T277           10722/DP     11267-T
   T278           10723/DP     11268-T
   T279           10724/DP     11269-T
   T280           10725/DP     11270-T
   T281           10443/DP     11271-EQU
   T282           10444/DP     11272-EQU
   T283           10445/DP     11273-T
   T284           10446/DP     11274-T
   T285           10726/DP     11275-T
   T286           10447/DP     11276-EQU
   T287           10448/DP     11277-T
   T288           10449/DP     11278-EQU
   T289           10450/DP     11279-T
   T290           10451/DP     11280-T
   T291           10452/DP     11281-T
   T292           10453/DP     11282-EQU
   T293           10454/DP     11283-T
   T294           10455/DP     11284-EQU
   T295           10923/DP     11285-EQU
   T296           10457/DP     11286-T
   T297           10924/DP     11287-T
   T298           10458/DP     11288-EQU
   T299           10459/DP     11289-EQU
   T300           10460/DP     11290-T
   T301           10461/DP     11291-EQU
   T302           10462/DP     11292-EQU
   T303           10925/DP     11293-T
   T304           10463/DP     11294-EQU
   T305           10926/DP     11295-T
   T306           10464/DP     11296-T
   T307           10927/DP     11297-EQU
   T308           10928/DP     11298-T
   T309           10465/DP     11299-T
   T310           10466/DP     11300-T
   T311           10929/DP     11301-T
   T312           10467/DP     11302-EQU
   T313           10468/DP     11303-T
   T314           10930/DP     11304-EQU
   T315           10469/DP     11305-T
   T316           10470/DP     11306-EQU
   T317           10931/DP     11307-T
   T318           10932/DP     11308-T
   T319           10471/DP     11309-T
   T320           10472/DP     11310-T
   T321           10474/DP     11311-T
   T322           10933/DP     11312-T
   T323           10475/DP     11313-T
   T324           10476/DP     11314-T
   T325           10934/DP     11315-T
   T326           10935/DP     11316-T
   T327           10936/DP     11317-T
   T328           10477/DP     11318-T
   T329           10478/DP     11319-T
   T330           10727/DP     11320-T
   T331           10728/DP     11321-EQU
   T332           10729/DP     11322-T
   T333           10730/DP     11323-T
   T334           10732/DP     11324-T
   T335           10733/DP     11325-T
   T336           10734/DP     11326-T
   T337           10735/DP     11327-EQU
   T338           10736/DP     11328-T
   T339           10737/DP     11329-T
   T340           10738/DP     11330-T
   T341           10739/DP     11331-EQU
   T342           10740/DP     11332-EQU
   T343           10741/DP     11333-T
   T344           10479/DP     11334-T
   T345           10480/DP     11335-T
   T346           10481/DP     11336-T
   T347           10742/DP     11337-T
   T348           10482/DP     11338-T
   T349           10483/DP     11339-EQU
   T350           10484/DP     11340-T
   T351           10743/DP     11341-T
   T352           10744/DP     11342-T
   T353           10485/DP     11343-EQU
   T354           10486/DP     11344-EQU
   T355           10487/DP     11345-T
   T356           10488/DP     11346-T
   T357           10489/DP     11347-EQU
   T358           10745/DP     11348-T
   T359           10746/DP     11349-T
   T360           10747/DP     11350-EQU
   T361           10749/DP     11351-EQU
   T362           10491/DP     11352-T
   T363           10492/DP     11353-T
   T364           10937/DP     11354-T
   T365           10493/DP     11355-EQU
   T366           10494/DP     11356-T
   T367           10495/DP     11357-EQU
   T368           10496/DP     11358-T
   T369           10497/DP     11359-EQU
   T370           10939/DP     11360-EQU
   T371           10498/DP     11361-T
   T372           10499/DP     11362-EQU
   T373           10940/DP     11363-EQU
   T374           10500/DP     11364-T
   T375           10501/DP     11365-EQU
   T376           10750/DP     11366-T
   T377           10751/DP     11367-EQU
   T378           10752/DP     11368-T
   T379           10753/DP     11369-EQU
   T380           10754/DP     11370-T
   T381           10502/DP     11371-T
   T382           10503/DP     11372-T
   T383           10504/DP     11373-T
   T384           10505/DP     11374-T
   T385           10506/DP     11375-T
   T386           10755/DP     11376-T
   T387           10756/DP     11377-EQU
   T388           10757/DP     11378-T
   T389           10508/DP     11379-EQU
   T390           10509/DP     11380-T
   T391           10758/DP     11381-T
   T392           10759/DP     11382-T
   T393           10760/DP     11383-T
   T394           10510/DP     11384-T
   T395           10761/DP     11385-EQU
   T396           10511/DP     11386-T
   T397           10762/DP     11387-T
   T398           10512/DP     11388-T
   T399           10763/DP     11389-T
   T400           10764/DP     11390-T
   T401           10766/DP     11391-EQU
   T402           10513/DP     11392-T
   T403           10514/DP     11393-EQU
   T404           10767/DP     11394-T
   T405           10515/DP     11395-EQU
   T406           10768/DP     11396-T
   T407           10769/DP     11397-EQU
   T408           10770/DP     11398-T
   T409           10771/DP     11399-T
   T410           10516/DP     11400-EQU
   T411           10772/DP     11401-T
   T412           10773/DP     11402-T
   T413           10774/DP     11403-T
   T414           10775/DP     11404-T
   T415           10776/DP     11405-EQU
   T416           10517/DP     11406-EQU
   T417           10518/DP     11407-T
   T418           10519/DP     11408-EQU
   T419           10777/DP     11409-T
   T420           10778/DP     11410-T
   T421           10779/DP     11411-EQU
   T422           10780/DP     11412-EQU
   T423           10781/DP     11413-T
   T424           10783/DP     11414-T
   T425           10784/DP     11415-EQU
   T426           10785/DP     11416-T
   T427           10786/DP     11417-EQU
   T428           10787/DP     11418-T
   T429           10788/DP     11419-T
   T430           10520/DP     11420-T
   T431           10521/DP     11421-EQU
   T432           10522/DP     11422-T
   T433           10523/DP     11423-EQU
   T434           10525/DP     11424-EQU
   T435           10526/DP     11425-EQU
   T436           10941/DP     11426-T
   T437           10527/DP     11427-EQU
   T438           10528/DP     11428-EQU
   T439           10529/DP     11429-EQU
   T440           10530/DP     11430-EQU
   T441           10531/DP     11431-EQU
   T442           10532/DP     11432-EQU
   T443           10533/DP     11433-T
   T444           10534/DP     11434-EQU
   T445           10942/DP     11435-T
   T446           10535/DP     11436-EQU
   T447           10943/DP     11437-T
   T448           10536/DP     11438-T
   T449           10944/DP     11439-T
   T450           10945/DP     11440-EQU
   T451           10537/DP     11441-EQU
   T452           10538/DP     11442-T
   T453           10946/DP     11443-T
   T454           10539/DP     11444-EQU
   T455           10540/DP     11445-EQU
   T456           10542/DP     11446-EQU
   T457           10947/DP     11447-T
   T458           10948/DP     11448-EQU
   T459           10543/DP     11449-EQU
   T460           10544/DP     11450-EQU
   T461           10949/DP     11451-EQU
   T462           10950/DP     11452-T
   T463           10545/DP     11453-EQU
   T464           10546/DP     11454-EQU
   T465           10951/DP     11455-EQU
   T466           10952/DP     11456-EQU
   T467           10547/DP     11457-EQU
   T468           10548/DP     11458-EQU
   T469           10953/DP     11459-T
   T470           10549/DP     11460-EQU
   T471           10954/DP     11461-T
   T472           10550/DP     11462-EQU
   T473           10956/DP     11463-T
   T474           10957/DP     11464-T
   T475           10958/DP     11465-T
   T476           10551/DP     11466-EQU
   T477           10959/DP     11467-EQU
   T478           10960/DP     11468-T
   T479           10552/DP     11469-T
   T480           10961/DP     11470-T
   T481           10962/DP     11471-T
   T482           10963/DP     11472-T
   T483           10553/DP     11473-EQU
   T484           10554/DP     11474-EQU
   T485           10555/DP     11475-EQU
   T486           10556/DP     11476-EQU
   T487           10557/DP     11477-EQU
   T488           10559/DP     11478-T
   T489           10964/DP     11479-EQU
   T490           10560/DP     11480-EQU
   T491           10561/DP     11481-EQU
   T492           10562/DP     11482-T
   T493           10563/DP     11483-EQU
   T494           10564/DP     11484-T
   T495           10565/DP     11485-EQU
   T496           10566/DP     11486-EQU
   T497           10567/DP     11487-T
   T498           10568/DP     11488-EQU
   T499           10569/DP     11489-T
   T500           10570/DP     11490-EQU
   T501           10571/DP     11491-EQU
   T502           10572/DP     11492-EQU
   T503           10573/DP     11493-EQU
   T504           10965/DP     11494-EQU
   T505           10574/DP     11495-EQU
   T506           10576/DP     11496-EQU
   T507           10577/DP     11497-EQU
   T508           10578/DP     11498-EQU
   T509           10579/DP     11499-EQU
   T510           10580/DP     11500-EQU
   T511           10581/DP     11501-EQU
   T512           10582/DP     11502-EQU
   T513           10583/DP     11503-EQU
   T514           10584/DP     11504-EQU
   T515           10585/DP     11505-EQU
   T516           10586/DP     11506-EQU
   T517           10587/DP     11507-EQU
   T518           10966/DP     11508-EQU
   T519           10967/DP     11509-EQU
   T520           10588/DP     11510-EQU
   T521           10968/DP     11511-EQU
   T522           10969/DP     11512-EQU
   T523           10970/DP     11513-EQU
   T524           10589/DP     11514-EQU
   T525           10590/DP     11515-EQU
   T526           10591/DP     11516-EQU
   T527           10593/DP     11517-EQU
   T528           10594/DP     11518-EQU
   T529           10595/DP     11519-EQU
   T530           10596/DP     11520-EQU
   T531           10597/DP     11521-EQU
   T532           10598/DP     11522-EQU
   T533           10599/DP     11523-EQU
   T534           10600/DP     11524-EQU
   T535           10601/DP     11525-EQU
   T536           10602/DP     11526-EQU
   T537           10603/DP     11527-EQU
   T538           10604/DP     11528-EQU
   T539           10605/DP     11529-EQU
   T540           10973/DP     11530-EQU
   T541           10971/DP     11531-T
   T542           10974/DP     11532-T
   T543           10975/DP     11533-T
   T544           10976/DP     11534-T
   T545           10977/DP     11535-T
   T546           10978/DP     11536-T
   UNALTERABLE    10794-DP     12163/MSGX
   UNEXPECTED     10616-DP     11840/MSGX   11842/MSGX   11844/MSGX
   UNIMPLEMENTED  10606-DP     11728/MSGX   11901/MSGX   11909/MSGX   12234/MSGX
   UNRECOVERABLE  10789-DP     11568/MSGX
   UNTIL          10729-DP     12187/MSGX
   UPSPACE         2264/#PRINT  2958/#TYPE   2960/#TYPE   6651/#PRINT  6711/#PRINT  6763/#PRINT
      7000/#PRINT  7285/#TYPE   8334/#TYPE   8335/#TYPE   9106/#TYPE   9112/#PRINT 10232-TEXTC
   USER           10509-DP     11697/MSGX   11993/MSGX   12059/MSGX   12161/MSGX   12163/MSGX   12170/MSGX
     12180/MSGX
   USING          10451-DP     11587/MSGX   12213/MSGX
   VALBIT          1001-DATA
   VALDEX          1005-EQU
   VALID           1193/STW     1375/LI      8819/STW    12301-EQU    12303/EQU
   VALTABLE        1011/GEN    10234-TEXT
   VALTYPE         1009-EQU
   VALUE          10740-DP     11726/MSGX   11929/MSGX
   VALUES         10716-DP     11724/MSGX   11745/MSGX
   VERSION          0.2-EQU      0.3/EQU
   VIOLATE        10899-DP     12230/MSGX
   VOLTAGE        10974-DP     11664/MSGX
   VOLTMSG         7934/#TYPE   9378/#TYPE  11664-MSGX
   WAIT           10766-DP     11778/MSGX   12101/MSGX
   WAIT:ACT         938-EQU     8631/RD      8773/RD      9147/RD      9294/RD
   WAITCNT         2096/STW     2106/MTW     2905/STW     2909/MTW     3062/STW     3069/MTW     5583/STW
      5590/MTW     9844-DATA
   WAITING        10673-DP     11778/MSGX   11817/MSGX   11817/MSGX   11967/MSGX   12101/MSGX
   WAITING1        5830/#TYPE   8268/STW    10351-TEXTCS
   WAS            10949-DP     12062/MSGX   12063/MSGX
   WATCHDOG       10737-DP     12252/MSGX
   WD             10564-DP     11633/MSGX   12094/MSGX   12095/MSGX
   WDCOMMAND       1695/LH      1957-EQU
   WERE           10491-DP     11586/MSGX   11619/MSGX   11769/MSGX
   WHEN           10506-DP     11851/MSGX   11965/MSGX   11968/MSGX   12088/MSGX   12090/MSGX   12166/MSGX
   WHERE          10742-DP     11767/MSGX
   WHICH          10933-DP     12092/MSGX
   WILL           10502-DP     11686/MSGX   11960/MSGX   12120/MSGX   12183/MSGX
   WITH           10516-DP     12205/MSGX   12214/MSGX   12216/MSGX
   WITHOUT        10898-DP     11690/MSGX   12213/MSGX
   WORD           10508-DP     11765/MSGX   11765/MSGX   11799/MSGX   11800/MSGX   11829/MSGX   11830/MSGX
     11862/MSGX   11871/MSGX   11873/MSGX   11875/MSGX   11878/MSGX   11884/MSGX   11889/MSGX   11904/MSGX
     11989/MSGX
   WORDS          10481-DP     11767/MSGX   11881/MSGX   11886/MSGX
   WRITE          10475-DP     12094/MSGX   12213/MSGX   12250/MSGX
   WRONG          10484-DP     11575/MSGX   11858/MSGX   11860/MSGX   11862/MSGX
   X              10225-DO     10226/GEN
   XA             10258-DATA
   XB             10259-DATA
   XC             10260-DATA
   XD             10261-DATA
   XE             10262-DATA
   XF              1717/AND     2366/AND     4480/AND     5449/AND    10263-DATA
   XFF             3164/AND     3179/AND     4695/AND    10271-DATA
   XFFBFFFFF       6793/AND    10308-DATA
   XFFF            6187/AND     6250/AND    10273-DATA
   XFFFC           6598/CW     10280-DATA
   XFFFF           6591/AND     6600/CW      9420/LW     10281-DATA
   XFFFFFFF        3295/AND     3296/AND    10296-DATA
   XFFFF03FF      10310-DATA
   XFF00           1688/AND    10279-DATA
   XF0             7002/AND     9536/OR      9541/OR     10270-DATA
   XF0F0          10278-DATA
   XF00           10272-DATA
   XF000          10277-DATA
   XPSD           10512-DP     11851/MSGX   12062/MSGX   12063/MSGX   12070/MSGX
   XPSD%4D#A       5229/LW      5502-XPSD
   XPSD%4D#C1      5316/LW      5503-XPSD
   XPSD%4D#C2      5318/LW      5504-XPSD
   XPSD%4D#D       5361/LW      5505-B
   XPSD#10         1553/LW     10237-GEN
   XPSD#20         6773/LI      6778/LI     10239-GEN
   XX             10585-DP     11743/MSGX   12067/MSGX   12067/MSGX
   XXX            10959-DP     11811/MSGX
   XXXX           10939-DP     11743/MSGX   11743/MSGX   12046/MSGX   12046/MSGX
   XXXXX          10923-DP     11613/MSGX
   XXXXXXXX       10638-DP     11580/MSGX   11613/MSGX   11613/MSGX   11743/MSGX
   X1FFFF          1082/AND     1486/AND     8250/AND    10282-DATA
   X10             1452/AND     6066/OR     10264-DATA
   X100000         7932/CW      9376/CW     10284-DATA
   X1000000        4152/LW     10290-DATA
   X1000001        1114/AW      1120/AW     10291-DATA
   X1100          10274-DATA
   X12000000       1117/AW     10297-DATA
   X20             1454/AND     6069/OR     10265-DATA
   X200000        10285-DATA
   X3C             1433/AND    10268-DATA
   X3E             1428/AND    10269-DATA
   X30             1448/AND    10266-DATA
   X38             1442/AND    10267-DATA
   X4000           6027/AND    10275-DATA
   X40000800       3346/LW     10302-DATA
   X4040404        1098/AW     10293-DATA
   X8              1446/AND    10256-DATA
   X8000          10276-DATA
   X80000         10283-DATA
   X800000         3560/LW      3900/OR     10288-DATA
   X9             10257-DATA
   Y              10602-DP     11675/MSGX   11675/MSGX   11746/MSGX   11983/MSGX   11983/MSGX   11987/MSGX
   YCC0           10295-DATA
   YC300          10300-DATA
   YDFFF          10303-DATA
   YFC00           8710/LW     10307-DATA
   YFFFF           7425/AND    10309-DATA
   YF800          10305-DATA
   YF9            10289-DATA
   YF900           9500/CB     10306-DATA
   YS             10574-DP
   YY             10586-DP     12067/MSGX   12067/MSGX
   YYYY           10761-DP     12046/MSGX   12048/MSGX
   YYYYYYYYY      10632-DP     11743/MSGX   11743/MSGX   11743/MSGX   11743/MSGX
   Y3C             8702/LW     10286-DATA
   Y3CFC          10298-DATA
   Y3C0            8707/LW     10292-DATA
   Y3FFF          10301-DATA
   Y40             3307/LW      3461/OR      3603/OR      3716/OR      3732/SIO     3733/TIO     3734/TDV
      3735/HIO     3738/AIO     3823/OR      3875/OR      4280/OR     10287-DATA
   Y8000           6585/LW     10304-DATA
   Y840           10294-DATA
   ZERO            4881/FDS     4898-DATA    5250/LRP     5291/LRP
   15INT           2744/LI      2753-BDR
   15RETURN        1355/LI      2779-EQU
   16INT#1         2892/LI      2909-MTW
   16INT#2         2947/LI      2968-BDR
   4D%TCC          5203/LB      5497-GEN
   4D%TSF          5205/LB      5500-GEN
   4DBADREG        5453/LW      5512-EQU
   4DMMC           5409/LW      5507-GEN
   4MEGWORD        3562/LW      5312/CW     10312-DATA
   7ASTERISKS     10343-TEXT
   %A             10396-DP     11774/MSGX   11822/MSGX   11826/MSGX   11869/MSGX   11920/MSGX   11973/MSGX
     11975/MSGX   12048/MSGX   12171/MSGX   12193/MSGX
   %B             10397-DP     11654/MSGX   11654/MSGX   11815/MSGX   11817/MSGX   11819/MSGX
   %C             10398-DP     11763/MSGX   12172/MSGX   12173/MSGX
   %D             10399-DP     12022/MSGX   12025/MSGX   12117/MSGX   12135/MSGX   12192/MSGX
   %E             10400-DP     11600/MSGX   11613/MSGX   11769/MSGX
   %F             10401-DP     11631/MSGX   11633/MSGX   11708/MSGX   11710/MSGX   11752/MSGX   11755/MSGX
     11764/MSGX   11765/MSGX   11767/MSGX   11769/MSGX   12017/MSGX   12048/MSGX   12066/MSGX   12087/MSGX
     12088/MSGX   12090/MSGX   12091/MSGX   12093/MSGX   12100/MSGX   12103/MSGX   12136/MSGX   12138/MSGX
     12147/MSGX   12149/MSGX   12161/MSGX   12165/MSGX   12166/MSGX   12167/MSGX   12187/MSGX
   %S             10409-DP     11963/MSGX
   %0             10424-DP     11574/MSGX   11577/MSGX   11577/MSGX   11577/MSGX   11577/MSGX   11577/MSGX
     11587/MSGX   11593/MSGX   11593/MSGX   11593/MSGX   11593/MSGX   11600/MSGX   11600/MSGX   11600/MSGX
     11607/MSGX   11607/MSGX   11613/MSGX   11613/MSGX   11613/MSGX   11613/MSGX   11658/MSGX   11673/MSGX
     11673/MSGX   11673/MSGX   11764/MSGX   11765/MSGX   11765/MSGX   11767/MSGX   11767/MSGX   11772/MSGX
     11774/MSGX   11774/MSGX   11774/MSGX   11774/MSGX   11774/MSGX   11774/MSGX   11778/MSGX   11778/MSGX
     11778/MSGX   11778/MSGX   11778/MSGX   11778/MSGX   11778/MSGX   11778/MSGX   11811/MSGX   11811/MSGX
     11811/MSGX   11813/MSGX   11813/MSGX   11815/MSGX   11815/MSGX   11817/MSGX   11817/MSGX   11819/MSGX
     11819/MSGX   11837/MSGX   11869/MSGX   11869/MSGX   11892/MSGX   11895/MSGX   11898/MSGX   11901/MSGX
     11904/MSGX   11907/MSGX   11909/MSGX   11912/MSGX   11915/MSGX   11917/MSGX   11919/MSGX   11922/MSGX
     11922/MSGX   11924/MSGX   11929/MSGX   11934/MSGX   11938/MSGX   11938/MSGX   11938/MSGX   11938/MSGX
     11954/MSGX   11954/MSGX   11954/MSGX   11956/MSGX   11961/MSGX   11961/MSGX   11963/MSGX   11963/MSGX
     11971/MSGX   11971/MSGX   11971/MSGX   11971/MSGX   11973/MSGX   11973/MSGX   11973/MSGX   11975/MSGX
     11975/MSGX   11991/MSGX   11991/MSGX   11995/MSGX   11997/MSGX   11998/MSGX   11999/MSGX   12000/MSGX
     12001/MSGX   12002/MSGX   12003/MSGX   12004/MSGX   12008/MSGX   12009/MSGX   12010/MSGX   12011/MSGX
     12013/MSGX   12015/MSGX   12020/MSGX   12023/MSGX   12026/MSGX   12027/MSGX   12057/MSGX   12082/MSGX
     12114/MSGX   12114/MSGX   12133/MSGX   12243/MSGX   12245/MSGX   12246/MSGX   12247/MSGX   12249/MSGX
     12250/MSGX   12252/MSGX   12253/MSGX   12254/MSGX   12255/MSGX
   %1             10384-DP     11552/MSGX   11558/MSGX   11558/MSGX   11560/MSGX   11560/MSGX   11563/MSGX
     11563/MSGX   11574/MSGX   11575/MSGX   11584/MSGX   11584/MSGX   11584/MSGX   11590/MSGX   11593/MSGX
     11593/MSGX   11593/MSGX   11593/MSGX   11600/MSGX   11610/MSGX   11619/MSGX   11626/MSGX   11633/MSGX
     11633/MSGX   11636/MSGX   11649/MSGX   11651/MSGX   11656/MSGX   11656/MSGX   11664/MSGX   11682/MSGX
     11689/MSGX   11696/MSGX   11702/MSGX   11741/MSGX   11741/MSGX   11743/MSGX   11748/MSGX   11764/MSGX
     11765/MSGX   11765/MSGX   11765/MSGX   11767/MSGX   11767/MSGX   11783/MSGX   11784/MSGX   11787/MSGX
     11788/MSGX   11791/MSGX   11792/MSGX   11795/MSGX   11796/MSGX   11799/MSGX   11800/MSGX   11803/MSGX
     11804/MSGX   11805/MSGX   11806/MSGX   11806/MSGX   11810/MSGX   11810/MSGX   11811/MSGX   11811/MSGX
     11811/MSGX   11813/MSGX   11813/MSGX   11813/MSGX   11815/MSGX   11815/MSGX   11815/MSGX   11817/MSGX
     11817/MSGX   11819/MSGX   11819/MSGX   11819/MSGX   11824/MSGX   11829/MSGX   11829/MSGX   11830/MSGX
     11830/MSGX   11833/MSGX   11837/MSGX   11842/MSGX   11844/MSGX   11846/MSGX   11848/MSGX   11849/MSGX
     11851/MSGX   11851/MSGX   11854/MSGX   11856/MSGX   11858/MSGX   11860/MSGX   11862/MSGX   11864/MSGX
     11866/MSGX   11868/MSGX   11869/MSGX   11871/MSGX   11873/MSGX   11875/MSGX   11878/MSGX   11881/MSGX
     11881/MSGX   11884/MSGX   11886/MSGX   11889/MSGX   11892/MSGX   11892/MSGX   11893/MSGX   11895/MSGX
     11895/MSGX   11898/MSGX   11898/MSGX   11901/MSGX   11901/MSGX   11904/MSGX   11904/MSGX   11904/MSGX
     11907/MSGX   11907/MSGX   11909/MSGX   11909/MSGX   11912/MSGX   11912/MSGX   11912/MSGX   11915/MSGX
     11915/MSGX   11917/MSGX   11917/MSGX   11919/MSGX   11919/MSGX   11922/MSGX   11922/MSGX   11924/MSGX
     11924/MSGX   11929/MSGX   11938/MSGX   11938/MSGX   11938/MSGX   11938/MSGX   11938/MSGX   11938/MSGX
     11938/MSGX   11938/MSGX   11938/MSGX   11944/MSGX   11944/MSGX   11954/MSGX   11956/MSGX   11961/MSGX
     11961/MSGX   11961/MSGX   11963/MSGX   11963/MSGX   11968/MSGX   11971/MSGX   11971/MSGX   11971/MSGX
     11971/MSGX   11973/MSGX   11975/MSGX   11991/MSGX   11995/MSGX   11995/MSGX   11995/MSGX   11997/MSGX
     11997/MSGX   11998/MSGX   11998/MSGX   11999/MSGX   11999/MSGX   12000/MSGX   12000/MSGX   12001/MSGX
     12001/MSGX   12002/MSGX   12002/MSGX   12003/MSGX   12003/MSGX   12004/MSGX   12004/MSGX   12022/MSGX
     12025/MSGX   12060/MSGX   12062/MSGX   12063/MSGX   12064/MSGX   12100/MSGX   12101/MSGX   12103/MSGX
     12136/MSGX   12141/MSGX   12158/MSGX   12164/MSGX   12179/MSGX   12179/MSGX   12188/MSGX   12190/MSGX
     12192/MSGX   12192/MSGX   12194/MSGX   12196/MSGX   12199/MSGX   12207/MSGX   12209/MSGX   12211/MSGX
     12213/MSGX   12214/MSGX   12218/MSGX   12220/MSGX   12221/MSGX   12223/MSGX   12224/MSGX   12226/MSGX
     12227/MSGX   12229/MSGX   12230/MSGX   12232/MSGX   12233/MSGX   12234/MSGX   12236/MSGX   12237/MSGX
     12239/MSGX   12240/MSGX   12242/MSGX   12245/MSGX   12247/MSGX   12249/MSGX   12250/MSGX   12252/MSGX
     12255/MSGX
   %2             10386-DP     11577/MSGX   11600/MSGX   11607/MSGX   11607/MSGX   11629/MSGX   11633/MSGX
     11633/MSGX   11633/MSGX   11649/MSGX   11651/MSGX   11658/MSGX   11658/MSGX   11658/MSGX   11658/MSGX
     11658/MSGX   11658/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX
     11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX   11661/MSGX
     11661/MSGX   11704/MSGX   11739/MSGX   11741/MSGX   11741/MSGX   11741/MSGX   11755/MSGX   11756/MSGX
     11824/MSGX   11936/MSGX   11942/MSGX   11971/MSGX   11973/MSGX   11975/MSGX   11982/MSGX   11986/MSGX
     11997/MSGX   11998/MSGX   11999/MSGX   12000/MSGX   12001/MSGX   12002/MSGX   12003/MSGX   12004/MSGX
     12059/MSGX   12143/MSGX   12159/MSGX   12160/MSGX   12161/MSGX   12167/MSGX   12185/MSGX   12193/MSGX
     12194/MSGX   12200/MSGX   12202/MSGX   12202/MSGX   12205/MSGX   12214/MSGX   12216/MSGX   12227/MSGX
     12230/MSGX   12237/MSGX   12247/MSGX   12256/MSGX
   %3             10388-DP     11577/MSGX   11577/MSGX   11577/MSGX   11577/MSGX   11577/MSGX   11577/MSGX
     11593/MSGX   11607/MSGX   11607/MSGX   11607/MSGX   11636/MSGX   11651/MSGX   11656/MSGX   11658/MSGX
     11658/MSGX   11658/MSGX   11658/MSGX   11658/MSGX   11658/MSGX   11658/MSGX   11658/MSGX   11690/MSGX
     11718/MSGX   11728/MSGX   11743/MSGX   11748/MSGX   11751/MSGX   11753/MSGX   11979/MSGX   12017/MSGX
     12170/MSGX   12224/MSGX   12233/MSGX   12234/MSGX   12240/MSGX   12243/MSGX
   %4             10390-DP     11596/MSGX   11596/MSGX   11596/MSGX   11596/MSGX   11600/MSGX   11600/MSGX
     11600/MSGX   11607/MSGX   11636/MSGX   11642/MSGX   11644/MSGX   11646/MSGX   11656/MSGX   11741/MSGX
     12093/MSGX   12164/MSGX   12180/MSGX   12182/MSGX   12183/MSGX   12207/MSGX   12250/MSGX
   %5             10391-DP     11603/MSGX   11636/MSGX   11656/MSGX   11658/MSGX   11661/MSGX   11697/MSGX
     11699/MSGX   11700/MSGX   11700/MSGX   11702/MSGX   11704/MSGX   11706/MSGX   11720/MSGX   11721/MSGX
     11721/MSGX   11722/MSGX   11760/MSGX   11761/MSGX   11762/MSGX   11764/MSGX   11765/MSGX   11767/MSGX
     11772/MSGX   11777/MSGX   11783/MSGX   11784/MSGX   11787/MSGX   11788/MSGX   11791/MSGX   11792/MSGX
     11795/MSGX   11796/MSGX   11799/MSGX   11800/MSGX   11803/MSGX   11804/MSGX   11805/MSGX   11806/MSGX
     11810/MSGX   11821/MSGX   11823/MSGX   11825/MSGX   11829/MSGX   11830/MSGX   11965/MSGX   11967/MSGX
     11970/MSGX   11993/MSGX   11995/MSGX   12139/MSGX   12139/MSGX   12141/MSGX   12143/MSGX   12145/MSGX
     12159/MSGX   12160/MSGX   12164/MSGX   12168/MSGX   12211/MSGX   12221/MSGX   12246/MSGX
   %6             10392-DP     11646/MSGX   11646/MSGX   11646/MSGX   11646/MSGX   11720/MSGX   11778/MSGX
     11780/MSGX   11833/MSGX   11989/MSGX   11997/MSGX   11998/MSGX   11999/MSGX   12000/MSGX   12001/MSGX
     12002/MSGX   12003/MSGX   12004/MSGX   12067/MSGX   12084/MSGX   12094/MSGX   12097/MSGX   12168/MSGX
     12170/MSGX   12199/MSGX   12200/MSGX
   %7             10393-DP     11642/MSGX   11642/MSGX   11642/MSGX   11642/MSGX   11644/MSGX   11644/MSGX
     11644/MSGX   11644/MSGX   11656/MSGX   11673/MSGX   11811/MSGX   11824/MSGX   11840/MSGX   12042/MSGX
     12044/MSGX   12046/MSGX   12057/MSGX   12060/MSGX   12062/MSGX   12063/MSGX   12064/MSGX   12070/MSGX
     12071/MSGX   12072/MSGX   12073/MSGX   12074/MSGX   12075/MSGX   12082/MSGX   12084/MSGX   12114/MSGX
     12133/MSGX   12163/MSGX   12184/MSGX   12185/MSGX   12186/MSGX   12204/MSGX   12253/MSGX   12254/MSGX
   %8             10394-DP     11568/MSGX   11580/MSGX   11580/MSGX   11629/MSGX   11631/MSGX   11640/MSGX
     11675/MSGX   11839/MSGX   11849/MSGX   11893/MSGX   12092/MSGX   12169/MSGX   12196/MSGX   12213/MSGX
     12252/MSGX
   %9             10395-DP     11626/MSGX   11749/MSGX   11813/MSGX   12095/MSGX   12171/MSGX   12172/MSGX
     12173/MSGX   12187/MSGX   12190/MSGX   12209/MSGX
   :BIN@EBC        7108/BAL     7113/BAL     7161/BAL     7165/BAL     7210/BAL     8413/BAL     9467-STW
   :HEX@D#A        9531-LI      9539/BDR
   :HEX@D#B        9535-OR      9545/BDR
   :HEX@D#C        9538-LW      9546/B
   :HEX@D#D        9533/BCR     9545-BDR
   :HEX@D#X        9543/B       9548-LCI
   :HEX@DE         2276/BAL     9524-RES
   :HEX@EBC        5639/BAL     6425/BAL     6429/BAL     6605/BAL     6613/BAL     7482/BAL     7743/BAL
      7750/BAL     7752/BAL     8420/BAL     8423/BAL     8426/BAL     8544/BAL     9493-STW     9505/BGEZ
   :K              9580/AW      9590-DATA
   :M1             7437/STD     9570/STW     9575/MTW     9581/EOR     9587-DATA
   :M2             9571/STW     9577/MTW     9582/EOR     9588-DATA
   :RANDM          9573-STW
   :RANDMX         7412/BAL     7421/BAL     7444/BAL     9575-MTW
   :RANDMY         9570-STW
   :S             10413-DP     11552/MSGX   11590/MSGX   11740/MSGX   11762/MSGX   11763/MSGX   11938/MSGX
     12059/MSGX   12069/MSGX   12091/MSGX   12138/MSGX   12162/MSGX   12169/MSGX   12188/MSGX
   :SEED           7439/STW     9573/STW     9578/LW      9583/STW     9589-DATA
   #A             10375-DP
   #B             10376-DP
   #BRKOUT          897-EQU     9248/LC
   #BTE%            905-EQU
   #C             10377-DP
   #COCSTATE%       921-EQU     1680/LC*     2047/LC*     2415/LC*     2521/LC*     2643/LC*     5665/LC*
      7353/LC*     7413/LC*     9172/LC*
   #D             10378-DP
   #DCA            1017-EQU
   #DECOMP@        1037-DATA
   #DIAG@          1034-DATA
   #DISUSER%        906-EQU
   #E             10379-DP
   #ENUSER%         907-EQU
   #ERRTEXT%        915-EQU     2296/STW*    5254/STW*    5295/STW*    6982/STW*    6985/STW*    6989/STW*
      6993/STW*    9117/STW*
   #ERR1PTR%        613/XPSD*    916-EQU
   #ETH%            597/BAL*     903-EQU
   #ETHCON          561-CNAME
   #F             10380-DP
   #FIDLE%          910-EQU     6333/B*      6525/B*      6554/BG*     6565/B*      6580/B*      6855/B*
      7842/B*      7944/B*      8015/B*      8132/B*      8294/BAL*    8339/B*
   #G             10382-EQU    11677/MSGX
   #GUIDE%          909-EQU    12341/BAL*
   #GUIDEBUF        919-EQU     6137/LW
   #H             10383-EQU
   #HDRFLG          877-EQU     1075/STW     6996/LW      7275/STW
   #HTE%            518/BAL*     904-EQU
   #HTECON          508-CNAME
   #INDEX           883-EQU     7802/LB
   #INITIAL@       1031-DATA
   #J             10385-EQU
   #K             10387-EQU
   #L             10389-EQU
   #LOADER@        1035-DATA   12340/STW
   #LOADFLAG        878-EQU     1138/LW
   #MAXMEM          895-EQU     5311/LW    6120.1/CW
   #OUTPTR          881-EQU     7828/LW      8007/LW
   #P%MODE%         918-EQU
   #PAKDEX          882-EQU
   #PARAM%H1        884-EQU     6283/LW      6731/LW
   #PARAM%H2        885-EQU     6288/LW      6736/LW
   #PARAM%H3        886-EQU
   #PARAM%H4        887-EQU
   #PARAM1          891-EQU     6324/LD      6848/LD
   #PARAM2          892-EQU     6326/LD      6850/LD
   #PARAM3          893-EQU
   #PARAM4          894-EQU
   #PLINEIN@       1033-DATA
   #PRINT           624-CNAME
   #PRINTER%        624/CNAME    914-EQU
   #PRTADDR         880-EQU     1164/#HTECON 7925/STW
   #RETURN%         912-EQU     9076/B*
   #RUNADDR%        911-EQU     5650/XPSD*   5833/XPSD*   7291/XPSD*
   #S             10415-DP     11580/MSGX   11607/MSGX   11607/MSGX   11699/MSGX   11741/MSGX   11741/MSGX
     11748/MSGX   11751/MSGX   11936/MSGX   11942/MSGX   11944/MSGX   11968/MSGX   12022/MSGX   12023/MSGX
     12025/MSGX   12042/MSGX
   #S%MODE%         920-EQU     9135/LB*     9189/LB*
   #SAMPLE          896-EQU     5787/XPSD*   6883/XPSD*
   #SENSE           876-EQU     1263/LC      1372/LC      1397/LC      1709/LC      3137/LC      3147/LC
      3176/LC      3285/LC      3953/LC      5255/LC      5296/LC      5790/LC      5794/LC      6979/LC
      7281/LC      7283/LC
   #STATUS          889-EQU     9097/LB
   #TABLE1A         875-ORG
   #TABLE1B         902-ORG
   #TABLE2@        1030-ORG
   #TABLE3@        1032-DATA
   #TESTINIT        888-EQU     1212/LC
   #TOADDR          879-EQU     1160/#HTECON
   #TYPE            625-CNAME
   #TYPER%          625/CNAME    913-EQU     5648/BAL*
   #VALTAB%         917-EQU     2279/LB*     6631/LB*     6648/LB*     6660/LB*     6681/LB*
   #0             10365-DP     11554/MSGX   11560/MSGX   11560/MSGX   11560/MSGX   11584/MSGX   11584/MSGX
     11596/MSGX   11596/MSGX   11596/MSGX   11596/MSGX   11596/MSGX   11596/MSGX   11619/MSGX   11619/MSGX
     11642/MSGX   11651/MSGX   11651/MSGX   11651/MSGX   11651/MSGX   11651/MSGX   11651/MSGX   11651/MSGX
     11651/MSGX   11651/MSGX   11684/MSGX   11699/MSGX   11724/MSGX   11724/MSGX   11755/MSGX   11813/MSGX
     11813/MSGX   11813/MSGX   11813/MSGX   11813/MSGX   11815/MSGX   11815/MSGX   11815/MSGX   11817/MSGX
     11819/MSGX   11819/MSGX   11819/MSGX   11837/MSGX   11842/MSGX   11851/MSGX   11938/MSGX   11938/MSGX
     11995/MSGX   11998/MSGX   12000/MSGX   12002/MSGX   12004/MSGX   12009/MSGX   12022/MSGX   12025/MSGX
     12060/MSGX   12097/MSGX   12118/MSGX   12171/MSGX   12194/MSGX   12194/MSGX   12199/MSGX   12200/MSGX
     12202/MSGX   12205/MSGX   12205/MSGX   12207/MSGX   12209/MSGX   12211/MSGX   12213/MSGX   12214/MSGX
     12216/MSGX   12218/MSGX   12220/MSGX   12221/MSGX   12223/MSGX   12224/MSGX   12226/MSGX   12227/MSGX
     12229/MSGX   12230/MSGX   12232/MSGX   12233/MSGX   12234/MSGX   12236/MSGX   12237/MSGX   12237/MSGX
     12239/MSGX   12240/MSGX   12242/MSGX   12243/MSGX   12246/MSGX   12247/MSGX   12249/MSGX   12250/MSGX
     12252/MSGX   12253/MSGX   12254/MSGX   12255/MSGX   12256/MSGX
   #1             10366-DP     11554/MSGX   11554/MSGX   11554/MSGX   11560/MSGX   11560/MSGX   11560/MSGX
     11560/MSGX   11570/MSGX   11577/MSGX   11577/MSGX   11596/MSGX   11596/MSGX   11596/MSGX   11596/MSGX
     11596/MSGX   11607/MSGX   11613/MSGX   11619/MSGX   11651/MSGX   11651/MSGX   11684/MSGX   11684/MSGX
     11699/MSGX   11699/MSGX   11700/MSGX   11702/MSGX   11704/MSGX   11706/MSGX   11708/MSGX   11710/MSGX
     11724/MSGX   11724/MSGX   11726/MSGX   11741/MSGX   11755/MSGX   11760/MSGX   11765/MSGX   11765/MSGX
     11767/MSGX   11772/MSGX   11783/MSGX   11787/MSGX   11791/MSGX   11795/MSGX   11799/MSGX   11803/MSGX
     11806/MSGX   11810/MSGX   11813/MSGX   11815/MSGX   11815/MSGX   11815/MSGX   11817/MSGX   11817/MSGX
     11817/MSGX   11817/MSGX   11817/MSGX   11819/MSGX   11819/MSGX   11819/MSGX   11822/MSGX   11826/MSGX
     11829/MSGX   11833/MSGX   11837/MSGX   11844/MSGX   11844/MSGX   11846/MSGX   11848/MSGX   11851/MSGX
     11856/MSGX   11864/MSGX   11866/MSGX   11871/MSGX   11871/MSGX   11875/MSGX   11881/MSGX   11881/MSGX
     11892/MSGX   11904/MSGX   11904/MSGX   11907/MSGX   11912/MSGX   11924/MSGX   11938/MSGX   11938/MSGX
     11961/MSGX   11997/MSGX   11997/MSGX   11998/MSGX   11999/MSGX   12001/MSGX   12003/MSGX   12009/MSGX
     12010/MSGX   12010/MSGX   12011/MSGX   12013/MSGX   12015/MSGX   12020/MSGX   12023/MSGX   12026/MSGX
     12027/MSGX   12060/MSGX   12060/MSGX   12072/MSGX   12073/MSGX   12095/MSGX   12097/MSGX   12118/MSGX
     12118/MSGX   12139/MSGX   12141/MSGX   12143/MSGX   12145/MSGX   12147/MSGX   12149/MSGX   12172/MSGX
     12188/MSGX   12190/MSGX   12190/MSGX   12194/MSGX   12194/MSGX   12194/MSGX   12196/MSGX   12196/MSGX
     12198/MSGX   12199/MSGX   12199/MSGX   12199/MSGX   12200/MSGX   12200/MSGX   12200/MSGX   12202/MSGX
     12202/MSGX   12204/MSGX   12205/MSGX   12205/MSGX   12205/MSGX   12207/MSGX   12207/MSGX   12207/MSGX
     12209/MSGX   12211/MSGX   12211/MSGX   12211/MSGX   12213/MSGX   12214/MSGX   12214/MSGX   12214/MSGX
     12216/MSGX   12216/MSGX   12216/MSGX   12218/MSGX   12218/MSGX   12218/MSGX   12220/MSGX   12221/MSGX
     12221/MSGX   12224/MSGX   12224/MSGX   12227/MSGX   12227/MSGX   12230/MSGX   12230/MSGX   12233/MSGX
     12234/MSGX   12234/MSGX   12237/MSGX   12237/MSGX   12237/MSGX   12240/MSGX   12240/MSGX   12243/MSGX
     12245/MSGX   12246/MSGX   12247/MSGX   12247/MSGX   12250/MSGX   12250/MSGX   12253/MSGX   12254/MSGX
     12256/MSGX   12256/MSGX   12256/MSGX
   #2             10367-DP     11560/MSGX   11570/MSGX   11575/MSGX   11577/MSGX   11577/MSGX   11607/MSGX
     11613/MSGX   11642/MSGX   11651/MSGX   11658/MSGX   11722/MSGX   11722/MSGX   11741/MSGX   11761/MSGX
     11765/MSGX   11765/MSGX   11777/MSGX   11784/MSGX   11788/MSGX   11792/MSGX   11796/MSGX   11800/MSGX
     11804/MSGX   11821/MSGX   11830/MSGX   11842/MSGX   11846/MSGX   11854/MSGX   11858/MSGX   11868/MSGX
     11869/MSGX   11873/MSGX   11873/MSGX   11878/MSGX   11884/MSGX   11895/MSGX   11909/MSGX   11929/MSGX
     11938/MSGX   11938/MSGX   11963/MSGX   11999/MSGX   12000/MSGX   12011/MSGX   12062/MSGX   12072/MSGX
     12073/MSGX   12173/MSGX   12199/MSGX   12205/MSGX   12209/MSGX   12218/MSGX   12218/MSGX   12220/MSGX
     12220/MSGX   12221/MSGX   12221/MSGX   12223/MSGX   12223/MSGX   12223/MSGX   12224/MSGX   12226/MSGX
     12226/MSGX   12227/MSGX   12227/MSGX   12229/MSGX   12229/MSGX   12230/MSGX   12232/MSGX   12233/MSGX
     12233/MSGX   12234/MSGX   12236/MSGX   12236/MSGX   12237/MSGX   12239/MSGX   12240/MSGX   12242/MSGX
     12243/MSGX   12243/MSGX   12245/MSGX   12246/MSGX   12247/MSGX   12249/MSGX   12249/MSGX   12250/MSGX
     12252/MSGX   12252/MSGX   12253/MSGX   12254/MSGX   12255/MSGX
   #3             10368-DP     11570/MSGX   11596/MSGX   11607/MSGX   11642/MSGX   11658/MSGX   11741/MSGX
     11805/MSGX   11823/MSGX   11848/MSGX   11860/MSGX   11875/MSGX   11886/MSGX   11898/MSGX   11912/MSGX
     11912/MSGX   11922/MSGX   11968/MSGX   12001/MSGX   12002/MSGX   12013/MSGX   12063/MSGX   12190/MSGX
     12190/MSGX   12200/MSGX   12224/MSGX   12226/MSGX   12247/MSGX   12256/MSGX
   #4             10369-DP     11558/MSGX   11558/MSGX   11563/MSGX   11570/MSGX   11574/MSGX   11575/MSGX
     11584/MSGX   11584/MSGX   11587/MSGX   11596/MSGX   11607/MSGX   11626/MSGX   11642/MSGX   11658/MSGX
     11684/MSGX   11741/MSGX   11806/MSGX   11825/MSGX   11833/MSGX   11851/MSGX   11854/MSGX   11862/MSGX
     11878/MSGX   11889/MSGX   11901/MSGX   11915/MSGX   11926/MSGX   11971/MSGX   12003/MSGX   12004/MSGX
     12015/MSGX   12064/MSGX   12118/MSGX   12194/MSGX   12202/MSGX   12205/MSGX   12205/MSGX   12227/MSGX
     12229/MSGX   12232/MSGX
   #5             10370-DP     11554/MSGX   11584/MSGX   11584/MSGX   11584/MSGX   11596/MSGX   11642/MSGX
     11658/MSGX   11856/MSGX   11858/MSGX   11860/MSGX   11862/MSGX   11917/MSGX   11938/MSGX   11983/MSGX
     12020/MSGX   12202/MSGX   12207/MSGX   12209/MSGX   12213/MSGX   12230/MSGX   12232/MSGX
   #6             10371-DP     11644/MSGX   11658/MSGX   11684/MSGX   11700/MSGX   11702/MSGX   11704/MSGX
     11767/MSGX   11806/MSGX   11864/MSGX   11881/MSGX   11919/MSGX   11987/MSGX   12023/MSGX   12095/MSGX
     12118/MSGX   12139/MSGX   12141/MSGX   12143/MSGX   12211/MSGX   12213/MSGX   12233/MSGX   12255/MSGX
   #7             10372-DP     11596/MSGX   11644/MSGX   11658/MSGX   11699/MSGX   11866/MSGX   11868/MSGX
     11922/MSGX   11991/MSGX   12026/MSGX   12214/MSGX   12234/MSGX   12236/MSGX   12240/MSGX
   #8             10373-DP     11644/MSGX   11658/MSGX   11871/MSGX   11873/MSGX   11875/MSGX   11878/MSGX
     12006/MSGX   12027/MSGX   12214/MSGX   12216/MSGX   12234/MSGX   12237/MSGX   12239/MSGX   12239/MSGX
     12247/MSGX
   #9             10374-DP     11644/MSGX   11658/MSGX   11851/MSGX   11881/MSGX   11884/MSGX   11886/MSGX
     11889/MSGX   12008/MSGX   12240/MSGX   12242/MSGX   12247/MSGX
   @S             10408-DP     11961/MSGX   11971/MSGX
