1 C00   00:20 JUN 21,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   00:20 JUN 21,'83    SIGMA 8/9 MAP & WRITE LOCK PROGRAM(MAP/WL) 706138-11/51A05 03/15/74   PAGE    2
A       1                                     TITLE    ;
1 C00   00:20 JUN 21,'83    SIGMA 8/9 MAP & WRITE LOCK PROGRAM(MAP/WL) 706138-11/51A05 03/15/74   PAGE    3
A       2                             'SIGMA 8/9 MAP & WRITE LOCK PROGRAM(MAP/WL) 706138-11/51A05 03/15/74'
        3                            *
        4                            *******************************************************
        5                            *******************************************************
        6                            *        CATALOG NUMBER 706138   MANUAL NUMBER 901878               *A03
        7                            *
        8                            *        PROGRAM OBJECTIVES
        9                            *
       10                            *        THE PURPOSE OF THE PROGRAM IS TO TEST THE MEMORY MAP(SIGMA 9)
       11                            *        AND MEMORY PROTECT(WRITE LOCK) FEATURES OF SIGMA 8-9
       12                            *        CPU.ALSO,IT CHECKS THE LRA(LOAD REAL ADDRESS) INSTRUCTION
       13                            *        WHICH IS USED EXTENSIVELY IN THE TESTING OF MAP,
       14                            *        ACCESS CONTROL AND WRITE LOCK REGISTERS.ALSO CERTAIN
       15                            *        FEATURES OF MMC(MOVE TO MEMORY CONTROL) INSTRUCTION
       16                            *        ARE TESTED WHICH ARE PECULIAR ONLY TO SIGMA 8-9 CPU.
       17                            *
       18                            *
       19                            *        PROGRAM MODIFICATIONS
       20                            *        CHANGES FOR *A05                                           *A05
       21                            *        SKIP BYTE STING TESTS IF SIGMA9 MOD3                       *A05
       22                            *        THE FOLLOWING CHANGES HAVE BEEN MADE FOR *AO4              *A04
       23                            *                                                                   *A04
       24                            *        1. MODIFIED CODE SUCH THAT WHEN CHECKING FOR               *A04
       25                            *           MAP REG CONTENTS ,THE MAP PARITY BIT IS ALSO            *A04
       26                            *           CHECKED.                                                *A04
       27                            *                                                                   *A04
       28                            *        2. PROVIDED CORRECT SHORT LOOP(SS1 SET) FOR MAP            *A04
       29                            *           FUNCTIONAL TEST.                                        *A04
       30                            *                                                                   *A04
       31                            *        3. CHANGED THE MESSAGE FORMAT FOR MAP AND WL               *A04
       32                            *           FUNCTIONAL TESTS.LRA REG CONTENTS ARE OUTPUT            *A04
       33                            *          INSTEAD OF OUTPUTTING MAP & WL FIELDS SEPARATELY.        *A04
       34                            *                                                                   *A04
       35                            *        4. MAP PARITY ERROR MSG (UNEXPECTED) ONLY FOR LRA          *A04
       36                            *           USED IN DP,DA AND DW DIRECTIVES.                        *A04
       37                            *                                                                   *A04
       38                            *        THE FOLLOWING CHANGES HAVE BEEN MADE FOR *A03              *A03
       39                            *                                                                   *A03
       40                            *        1. MODIFIED ALL LRA TESTS TO REFLECT CHANGES IN LRA INST.  *A03
       41                            *                                                                   *A03
       42                            *        2. MODIFIED CODE WHEREVER LRA INST WAS USED.               *A03
       43                            *                                                                   *A03
       44                            *        3. CORRECTED ENTRY AND EXIT POINTS FROM ERROR ROUTINES.    *A03
       45                            *                                                                   *A03
       46                            *        4. MADE APPROPRIATE CHANGES TO BE COMPATIBLE WITH          *A03
       47                            *           GUIDE--B00.                                             *A03
       48                            *                                                                   *A03
       49                            *        5. ADDED MASTER PROTECT MODE TEST FOR LRA INST.            *A03
       50                            *
       51                            *
       52                            *        THE FOLLOWING CHANGES HAVE BEEN MADE FOR *A02              *A02
       53                            *                                                                   *A02
       54                            *        1. EXPLANATION MESSAGE FOR SW 3 SETTINGS HAS BEEN CORRECTED*A02
       55                            *                                                                   *A02
       56                            *        2. CLOCK MARGIN IS SET TO NORMAL DURING INITIALISATION     *A02
       57                            *                                                                   *A02
       58                            *        3. RECOVERY FROM UNEXPECTED TRAP TO X'40' CORRECTED        *A02
       59                            *           AFTER THE UNEXPECTED TRAP MESSAGE IS OUTPUT             *A02
       60                            *           THE PROGRAM IS IN IDLE STATE(%).ON INSERTING A '#'      *A02
       61                            *           PROGRAM WILL EXECUTE THE TEST FROM THE BEGINNING.       *A02
       62                            *        4. MODIFIED TEST X'18' TO GET CPU OUT OF WAIT STATE        *A02
       63                            *           BY TRIGGERING CNT PANEL INT VIA SNAP                    *A02
       64                            *                                                                   *A02
       65                            *        5. MODIFIED TEST X'20' TO USE COUNTER 4 WITH REMOTE GUIDE  *A02
       66                            *                                                                   *A02
       67                            *        6. MODIFIED THE USE OF '#HDRFLG' TO CONFORM TO THE         *A02
       68                            *           REST OF THE CPU PROGRAMS.                               *A02
       69                            *                                                                   *A02
       70                            *        7. CPU TYPE AND TEST RANGE IS OUTPUT WHEN THE              *A02
       71                            *           PROGRAM IS FIRST LOADED.                                *A02
       72                            *
       73                            *           ALSO,IF THE VOLTAGE MARGIN IS NOT NORMAL A MESSAGE      *A02
       74                            *           IS OUTPUT.                                              *A02
       75                            *                                                                   *A02
       76                            *        8. INSERTED CONSTANTS FOR LITERALS.                        *A02
       77                            *                                                                   *A02
       78                            *        THE FOLLOWING CHANGES HAVE BEEN MADE FOR *A01              *A01
       79                            *                                                                   *A01
       80                            *        1. 'K' PARAMETER HAS BEEN INCORPORATED IN THE PROGRAM      *A01
       81                            *                                                                   *A01
       82                            *        2. STATUS REPORT WILL ALWAYS GO TO THE MSGDEV.             *A01
       83                            *          '&' -STATUS TO THE COMDEV.                               *A01
       84                            *                                                                   *A01
       85                            *        3. EXPLANATION MESSAGE INCLUDED FOR 'S' PARAMETER          *A01
       86                            *                                                                   *A01
       87                            *        4. TEST NUMBER IS OUTPUT IN HEX INSTEAD OF DECIMAL         *A01
       88                            *                                                                   *A01
       89                            *        5. CHANGED LRA TESTS TO INCLUDE LRA TESTING FOR SIGMA 8    *A01
       90                            *                                                                   *A01
       91                            *        6. MODIFIED MMC INTERRUPT TEST                             *A01
       92                            *                                                                   *A01
       93                            *
       94                            *
       95                            *        OPERATING REQUIREMENTS AND SPECIFICATIONS
       96                            *
       97                            *        REQUIRED EQUIPMENT         SIGMA 8/9 CPU
       98                            *                                   16384 WORDS(MINIMUM) OF CORE MEMORY
       99                            *                                   ASR/KSR
      100                            *                                   MAGNETIC TAPE UNIT TO LOAD
      101                            *                                   PROGRAM FROM MAGNETIC TAPE LIBRARY
      102                            *
      103                            *        OPTIONAL EQUIPMENT         LINE PRINTER
      104                            *                                   CARD READER
      105                            *
      106                            *        REQUIRED SOFTWARE          SIGMA 5/6/7/8/9 RELOCATABLE
      107                            *                                   DIAGNOSTIC LOADER (704356)
      108                            *                                   'GUIDE' INTERFACE PROGRAM 706131
      109                            *
      110                            *        OPTIONAL SOFTWARE          NONE
      111                            *
      112                            *
      113                            *        PROGRAM PREREQUISITES      THE FOLLOWING PROGRAMS MUST BE
      114                            *                                   RUN SUCCESSFULLY BEFORE
      115                            *                                   RUNNING THIS PROGRAM.
      116                            *                                   1. 8/9 PREP(PROG. NO. 706132)
      117                            *                                   2. 8/9 AUTO(PROG.NO. 706133)
      118                            *                                   3. 8/9 SUFFIX(PROG. NO. 706134)
      119                            *                                   4. 8/9 INT./TRAP (PROG. NO. 706137)
      120                            *
      121                            *        CORE STORAGE               X'3100' LOCATIONS REQUIRED FROM *A01
      122                            *                                   X'40' TO X'3100'                *A01
      123                            *
      124                            *        RUN TIME                   AFTER LOADING PROGRAM REQUIRES
      125                            *                                   LESS THAN 1 MINUTE TO COMPLETE
      126                            *                                   ONE SUCCESSFULL PASS.
      127                            *
      128                            *        PROGRAM MEDIA              FROM MAGNETIC TAPE OR CARDS
      129                            *
      130                            *        SOURCE LANGUAGE            SIGMA METASYMBOL
      131                            *
      132                            *
      133                            *        LOADING PROCEDURE
      134                            *
      135                            *        1. USE THE LOADING PROCEDURE DESCRIBED IN DIAGNOSTIC
      136                            *          PROGRAM MANUAL 900972
      137                            *        2. FOR DESCRIBTION OF PROGRAMMED WAITS AND MESSAGE
      138                            *          PRINTOUTS WHILE LOADING PROGRAM REFER TO PROGRAM
      139                            *          MANUAL 900972
      140                            *
      141                            *
      142                            *        OPERATING PROCEDURE
      143                            *
      144                            *        CONTROL OPTIONS
      145                            *
      146                            *        USER CAN SET THE CLOCK MARGINS SWITCH TO HIGH OR LOW
      147                            *        TO FORCE THE PROGRAM TO RUN AT THAT SETTING OF CLOCK
      148                            *        MARGIN SWITCH AND THIS WILL OVERRIDE ANY ATTEMPT BY
      149                            *        PROGRAM TO SET CLOCK MARGINS TO A DESIRED VALUE.
      150                            *
      151                            *        NOTE:-IF THE VOLTAGES ARE ON MARGIN THE PROGRAM
      152                            *        INHIBTS AUTOMATIC CYCLING OF THE CLOCK MARGINS.
      153                            *
      154                            *
      155                            *
      156                            *        TEST DIRECTIVES AND PARAMETERS
      157                            *
      158                            *        NO TEST DIRECTIVES ARE REQUIRED FOR OPERATING THIS
      159                            *        PROGRAM.
      160                            *
      161                            *        THE FOLLOWING PARAMETERS CAN BE USED TO CONTROL THE
      162                            *        PROGRAM.
      163                            *
      164                            *        1. 'J' PARAMETER----WHEN THE USER TYPES IN A 'J'
      165                            *           CHARACTER VIA THE TELETYPE THE FOLLOWING LINES
      166                            *           ARE OUTPUTTED.THE USER CAN THEN MODIFY
      167                            *           ANY OF THE FIELDS IN THE 'J' PARAMETER LINE
      168                            *           EXCEPT 'COMDEV' FIELD.
      169                            *
      170                            *        MSGDEV    COMDEV    SI    CM
      171                            *  *J    0002      *0001    005    0
      172                            *
      173                            *        THE VARIOUS FIELDS ARE
      174                            *        A) MSGDEV = MESSAGE OUTPUT DEVICE(DEFAULT LINE PRINTER)
      175                            *        B) COMDEV = COMMUNICATION DEVICE (ALWAYS ASR/KSR)
      176                            *        C) SI = STATUS REPORT INTERVAL--SPECIFIES THAT THE
      177                            *                STATUS REPORT BE OUTPUTTED AFTER A SPECIFIED
      178                            *                 NUMBER OF PASSES THROUGH THE PROGRAM.
      179                            *        D) CM = CLOCK MARGIN----0 = NORMAL
      180                            *                                1 = FAST
      181                            *                                2 = SLOW
      182                            *                                A = NORMAL FIXED
      183                            *                                B = FAST FIXED
      184                            *                                C = SLOW FIXED
      185                            *        IF THE CLOCK MARGINS HAVE NOT BEEN FIXED(A,B OR C)
      186                            *        BY THE USER THE PROGRAM WILL AUTOMATICALLY CYCLE
      187                            *        THROUGH FAST AND SLOW MARGINS DURING TESTING.NOTE
      188                            *        THAT CM SWITCH ON PCP WILL OVERRIDE ANY ATTEMPT
      189                            *        BY PROGRAM TO CHANGE CLOCK MARGINS.
      190                            *        IF THE VOLTAGES ARE ON MARGIN THEN THE PROGRAM WILL
      191                            *        OUTPUT THE FOLLOWING MESSAGE BEFORE GIVING CONTROL
      192                            *        BACK TO THE USER.
      193                            *
      194                            * ***VOLTAGES ON MARGIN.***
      195                            *
      196                            *
      197                            *        2. 'S' PARAMETER----THIS PARAMETER ALLOWS USER TO SET
      198                            *           THE SOFTWARE SENSE SWITCHES.THE FOLLOWING LINES
      199                            *           ARE OUTPUTTED AND THE USER CAN MODIFY ALL OF THE
      200                            *           FIELDS IN THE 'S' PARAMETER LINE.
      201                            *
      202                            *        SW    1  2  3  4
      203                            *              0  0  0  0
      204                            *
      205                            *        THE SENSE SWITCH OPTIONS ARE
      206                            *        A) SW1 = 0 --NO EFFECT
      207                            *             = 1 --SHORT LOOP
      208                            *        B) SW2 = 0 --NO EFFECT
      209                            *               = 1 --LONG LOOP
      210                            *        C) SW3 = 0 --HALT ON ERROR
      211                            *               = 1 --INHIBIT HALT ON ERROR
      212                            *        D) SW4 = 0 --PRINT ERROR MESSAGE
      213                            *               = 1 --INHIBIT ERROR PRINTOUT
      214                            *
      215                            *        3. 'T' PARAMETER----THIS PARAMETER ALLOWS THE USER
      216                            *           TO SELECT THE TESTPAGE AND TEST INSTRUCTION PAGE
      217                            *           (FROM WHICH TEST INSTRUCTIONS ARE EXECUTED) ADDRESS
      218                            *           FOR MAP,ACCESS PROTECT AND WRITE LOCK OPERATIONAL
      219                            *           TESTS.ALSO,THE TEST PATTERN FOR THE MAP FUNCTIONAL
      220                            *           TEST CAN BE SELECTED.
      221                            *           THE FOLLOWING LINES ARE OUTPUTTED AND THE USER CAN
      222                            *           MODIFY ALL THE FIELDS.
      223                            *
      224                            *        TPMF    TVIP     TVP
      225                            * *T     1FFF      1E      1F
      226                            *
      227                            *        THE VARIOUS FIELDS ARE
      228                            *        A) TPMF = TEST PATTERN FOR MAP FUNCTIONAL TEST
      229                            *        B) TVIP = VIRTUAL PAGE ADDRESS FROM WHICH TEST
      230                            *                  INSTRUCTIONS ARE EXECUTED FOR MAP
      231                            *                  ACCESS PROTECT AND WRITE LOCK OPERATIONAL TESTS.
      232                            *        C) TVP = ADDRESS OF VIRTUAL PAGE BEING TESTED.
      233                            *
      234                            *        4. 'K' PARAMETER----THIS PARAMETER ALLOWS THE USER         *A01
      235                            *               TO SELECT THE TEST RANGE.                           *A01
      236                            *                                                                   *A01
      237                            *               THE FOLLOWING LINES ARE OUTPUT ON A USER KEYIN      *A01
      238                            *                 OF 'K' .USER CAN THEN ALTER THE CONTENTS OF       *A01
      239                            *               ANY OF THE FIELDS .                                 *A01
      240                            *                                                                   *A01
      241                            *        FTST    LTST    CTST                                       *A01
      242                            *        0001    0031    0001                                       *A01
      243                            *                                                                   *A01
      244                            *        THE VARIOUS FIELDS ARE                                     *A01
      245                            *        FTST = FIRST TEST NUMBER IN HEX.                           *A01
      246                            *        LTST = LAST TEST NUMBER IN HEX.                            *A01
      247                            *        CTST = CURRENT TEST NUMBER IN HEX.                         *A01
      248                            *                                                                   *A01
      249                            *        'J','S','T' AND 'K' CAN BE ENTERED AT ANY TIME.THAT IS     *A01
      250                            *        WHEN PROGRAM IS IN THE RUN STATE (#) OR IN THE
      251                            *        IDLE STATE (%).
      252                            *
      253                            *        DISPLAY DIRECTIVES
      254                            *
      255                            *        1. 'DP' DIRECTIVE----THIS DIRECTIVE ALLOWS USER TO
      256                            *           DISPLAY MAP REGISTERS .
      257                            *           DP>,,----DISPLAYS ALL 256 MAP REGISTERS.
      258                            *           DP>XX,YY,----DISPLAYS MAP REGISTERS BETWEEN
      259                            *                        XX AND YY FOR YY>XX.
      260                            *                    ----DISPLAYS YY MAP REGISTERS
      261                            *                        STARTING AT XX FOR XX = OR > YY.
      262                            *           DP>XX,,  ----DISPLAYS MAP REGISTER XX ONLY.
      263                            *
      264                            *
      265                            *        2. 'DA' DIRECTIVE ALLOWS USER TO DISPLAY
      266                            *           ACCESS CONTROL REGISTERS.
      267                            *           THE REGISTERS TO BE DISPLAYED ARE GOVERNED
      268                            *           IN THE SAME MANNER AS THAT FOR 'DP' DIRECTIVE.
      269                            *
      270                            *
      271                            *        3. 'DW' DIRECTIVE ALLOWS USER TO DISPLAY
      272                            *           WRITE LOCK REGISTERS.
      273                            *           THE REGISTERS TO BE DISPLAYED ARE GOVERNED
      274                            *           IN THE SAME MANNER AS THAT FOR 'DP' DIRECTIVE.
      275                            *
      276                            *           THE REGISTER ADDRESSES XX AND YY ARE IN THE
      277                            *           RANGE X'00' AND X'FF'.
      278                            *
      279                            *           NOTE THAT ON USING THE 'DP' AND 'DA' DIRECTIVES
      280                            *           ON A SIGMA 8 WILL RESULT IN THE FOLLOWING MESSAGE.
      281                            *
      282                            *           MAP OPTION NOT PRESENT ON THIS SYSTEM.
      283                            *
      284                            *           AN EXAMPLE:-
      285                            *
      286                            *           DP>18,1B,
      287                            *
      288                            *           MAP REG    CONTENTS OF MAP REGISTERS (IN HEX)
      289                            *              18      0000    0000    001F    1FFF
      290                            *
      291                            *           THE ABOVE OUTPUT GOES TO THE MESSAGE DEVICE.(LINE PRINTER)
      292                            *
      293                            *
      294                            *
      295                            *        START-RESTART PROCEDURE
      296                            *
      297                            *
      298                            *        ON SUCCESSFUL LOADING OF THE PROGRAM THE FOLLOWING
      299                            *        MESSAGES ARE TYPED OUT ON THE TELETYPE.
      300                            *
      301                            *        MAP/WL
      302                            *
      303                            *        SIGMA 8/9  MAP & WRITE LOCK PROGRAM 706138-A01 MANUAL 901798A
      304                            *
      305                            *        USING GUIDE-PROG.#706131-A01...MAN # 901791
      306                            *
      307                            *        ( RUN PSD AT LOC'N 04E0 (HEX),REGISTERS AT 04D0)
      308                            *
      309                            *        ENTER A 'QUEST. MARK' WHENEVER THE @ PROMPT IS DISPLAYED
      310                            *        TO OUTPUT THE 'GUIDE' OPERATING LANGUAGE EXPLANATION;
      311                            *        ENTER A '#' TO PROCEED TO TESTING.
      312                            *
      313                            *        AT THIS TIME PROGRAM MODIFICATIONS,IF ANY,ARE OUTPUT
      314                            *        TO THE LINE PRINTER.NOTE THAT IF SS4 IS SET ONLY THE
      315                            *        FIRST OF THE ABOVE MESSAGES WILL BE TYPED OUT.
      316                            *
      317                            *        ALSO,THE CPU TYPE ,THE TEST RANGE AND VOLTAGES
      318                            *        ON MARGIN (IF TRUE) MESSAGW/E IS TYPED OUT AT
      319                            *        THIS TIME.NOTE THAT THIS IS DONE ONLY ONCE WHEN
      320                            *        THE PROGRAM IS FIRST LOADED.
      321                            *        AFTER A '#' HAS BEEN ENTERED THE PROGRAM STARTS
      322                            *        EXECUTING THE TESTS.
      323                            *
      324                            *        IF AN ERROR OCCURS AND SENSE SWITCH 3 IS RESET
      325                            *        THE FOLLOWING MESSAGE IS TYPED OUT ON THE TELETYPE
      326                            *        AND THEN THE PROGRAM HALTS(I.E. IN THE IDLE STATE)
      327                            *
      328                            *        HALT ON ERROR.    TEST  XX
      329                            *        %
      330                            *
      331                            *        WHERE XX = THE TEST NUMBER IN HEX.                         *A01
      332                            *        AT THIS TIME THE USER CAN MODIFY SENSE SWITCHES
      333                            *        (E.G. -- SW1 FOR SHORT LOOP) IF SO DESIRED.
      334                            *        TO CONTINUE PROGRAM FROM THIS POINT ENTER A '#'.
      335                            *
      336                            *        IN THE EVENT OF LOSS OF PROGRAM CONTROL THE
      337                            *        PROGRAM CAN BE RESTARTED BY PRESSING THE SYSTEM
      338                            *        RESET BUTTON AND SETTING COMPUTE SWITCH BACK TO RUN.
      339                            *        ON DOING THIS THE FOLLOWING MESSAGE IS OUTPUTTED.
      340                            *
      341                            *        ABSOLUTE RECOVERY. CLEAR PARAMETERS %=
      342                            *
      343                            *        THE USER MUST THEN ENTER A Y,N OR A 'QUEST. MARK'
      344                            *
      345                            *        ONCE THE USER TAKES APPROPRIATE ACTION ON THE
      346                            *        ABOVE REQUEST THE PROGRAM STARTS EXECUTING THE
      347                            *        TESTS FROM THE BEGINNING.
      348                            *        NOTE THAT IF A 'N' IS ENTERED THE ERROR COUNTERS,
      349                            *        (FOR DIFFERENT TYPES OF TEST) PASS COUNT AND THE
      350                            *        PARAMETERS WHICH CAN CONTROL THE PROGRAM ARE
      351                            *        NOT INITIALISED.
      352                            *
      353                            *        ENTERING A 'Y' RESTORES PROGRAM TO CONDITIONS AS
      354                            *        NEARLY IDENTICAL AS POSSIBLE TO THOSE EXISTING
      355                            *        WHEN THE PROGRAM WAS FIRST LOADED.
      356                            *
      357                            *
      358                            *        TERMINATION PROCEDURE
      359                            *
      360                            *        ONCE STARTED,THE PROGRAM RUNS CONTINUOUSLY UNTIL
      361                            *        AN ERROR OCCURS(SW3 SET TO 0).THE PROGRAM CAN BE
      362                            *        TERMINATED BY THE USER AT ANY TIME.
      363                            *
      364                            *
      365                            *        SUCCES/FAILURE INDICATIONS
      366                            *
      367                            *        SUCCESS INDICATIONS ARE VIA THE ABSENCE OF ANY
      368                            *        ERRORS.AT THE END OF THE FIRST PASS OF THE
      369                            *        PROGRAM A STATUS REPORT IS OUTPUTTED AUTOMATICALLY.
      370                            *        THEREAFTER IT IS OUTPUTTED EVERY 'XX' NUMBER OF
      371                            *        PASSES WHERE XX IS THE VALUE OF THESTATUS REPORT
      372                            *        INTERVAL OF THE 'J' PARAMETER LINE.(DEFAULT=5).
      373                            *        THE FORMAT OF THE STATUS REPORT IS AS FOLLOWS
      374                            *
      375                            *        TST#  TYPE  ECLRA  ECMAP  ECAC  ECWL  ECMM ECMMC  PAS# CM VM
      376                            *          YY  MMC   HHHH   HHHH   HHHH  HHHH  HHHH HHHH   HHHH X  Y
      377                            *
      378                            *        WHERE    TST# =LAST TEST UNDER CONSIDERATION               *A01
      379                            *                 TYPE =LAST TEST TYPE EXECUTED                     *A01
      380                            *                ECLRA=ERROR COUNT FOR LRA TESTS
      381                            *                ECMAP=ERROR COUNT FOR MAP TESTS
      382                            *                ECAC =ERROR COUNT FOR ACCESS CONTROL TESTS
      383                            *                ECWL =ERROR COUNT FOR WRITE LOCK TESTS
      384                            *                ECMM =ERROR COUNT FOR MASTER MODE TESTS
      385                            *                ECMMC=ERROR COUNT FOR MMC TESTS
      386                            *                PAS# =PASS COUNT
      387                            *                CM =  CLOCK MARGIN
      388                            *                   X =0,1,2,A,B OR C
      389                            *                VM =  VOLTAGE MARGIN
      390                            *                 Y = N=NORMAL
      391                            *                   = M=MARGINED
      392                            *                HHHH = HEX COUNT
      393                            *
      394                            *        THE USER CAN FORCE A STATUS REPORT AT ANY TIME BY
      395                            *        ENTERING A '&' FROM THE TELETYPE.
      396                            *
      397                            *
      398                            *        WAITS   ----THERE ARE NO PROGRAMMED WAITS IN
      399                            *                     THIS PROGRAM.
      400                            *
      401                            *        IN CASE OF A FAILURE  AN APPROPRIATE MESSAGE IS
      402                            *        OUTPUTTED ON THE MESSAGE DEVICE(DEFAULT -LINE PRINTER)
      403                            *        ALONG WITH AN INDICATION ON THE TELETYPE THAT THE
      404                            *        PROGRAM HAS HALTED DUE TO AN ERROR(SEE START-RESTART
      405                            *        PROCEDURES). THE ERROR PRINTOUT (ON MESSAGE DEVICE)
      406                            *        WILL ALWAYS HAVE A HEADING DEFINING THE TYPE OF TEST
      407                            *        AND THE TEST NUMBER(IN HEX.).THIS    WILL BE               *A01
      408                            *        FOLLOWED BY COUPLE OF LINES OF MESSAGES DESCRIBING
      409                            *        THE NATURE OF THE FAULT AND THE EXPECTED AND/OR
      410                            *        ACTUAL DATA.THE MEANINGS OF ANY ABBREVIATIONS USED
      411                            *        CAN BE OBTAINED BY ENTERING A 'QUEST. MARK' ON THE TELETYPE.
      412                            *        MOST MESSAGES ARE SELF EXPLANATORY.THE DIFFERENT
      413                            *        TYPES OF ERRORS ENCOUNTERED WILL BE
      414                            *        1. LRA INSTRUCTION TEST ERROR    TESTS 1-4                 *A03
      415                            *        2. MAP FUNCTIONAL TEST ERROR      TEST 9,10                *A03
      416                            *        3. ACCESS CONTROL FUNCTIONAL TEST ERROR    TEST 11         *A03
      417                            *        4. MAP OPERATIONAL TEST ERROR    TEST 12,32                *A03
      418                            *        5. ACCESS CONTROL OPERATIONAL TEST ERROR    TEST 13        *A03
      419                            *        6. PROTECT LOGIC TEST ERROR      TESTS 14-26;35-38         *A03
      420                            *        7. MASTER MODE TEST ERROR         TESTS 27-31              *A03
      421                            *        8. WRITE LOCK FUNCTIONAL TEST ERROR         TEST 33        *A03
      422                            *        9. WRITE LOCK OPERATIONAL TEST ERROR        TEST 34        *A03
      423                            *        10. MMC INSTRUCTION TEST ERROR    TESTS 5,6,7;39-47        *A03
      424                            *
      425                            *
      426                            *        TRAPS AND INTERRUPTS
      427                            *
      428                            *        THIS PROGRAM HANDLES ALL EXPECTED AND UNEXPECTED
      429                            *        TRAPS TO X'40'.IN CASE OF LATTER THE FOLLOWING
      430                            *        MESSAGE IS TYPED OUT ON THE TELETYPE AND THEN
      431                            *        THE PROGRAM GOES TO IDLE STATE.
      432                            *
      433                            *        UNEXPECTED TRAP TO HEX. 40    TEST  XX
      434                            *        PSW1 = YYYYYYYY  PSW2 = YYYYYYYY  TCC = X  REG SAVE = YYYYYY
      435                            *
      436                            *        IT GIVES THE TEST NUMBER,THE PROGRAM STATUS
      437                            *        DOUBLEWORD,TRAP CONDITION CODE AND THE ADDRESS
      438                            *        WHERE ALL THE REGISTERS ARE SAVED.
      439                            *        TO CONTINUE INSERT A '#' .THE PROGRAM WILL AUTOMATICALLY   *A02
      440                            *        START EXECUTING THE TEST FROM THE BEGINNING.               *A02
      441                            *        THE PROGRAM ALSO HANDLES THE FOLLOWING TRAPS AND
      442                            *        INTERRUPTS.
      443                            *        1. COUNTER 4 PULSE INTERRUPT--X'55'
      444                            *        2. COUNTER 4 ZERO INTERRUPT --X'5B'
      445                            *           THESE INTERRUPT LOCATIONS ARE USED IN TEST X'20'        *A02
      446                            *           ON COMPLETION OF THE TEST GUIDE'S MTW AND XPSD          *A02
      447                            *           INST ARE RESTORED RESPECTIVELY.                         *A02
      448                            *        3. CAL1 TRAP               ---X'48'
      449                            *        4. CAL2 TRAP                --X'49'
      450                            *        5. MEMORY PARITY TRAP (X'4C') AND INSTRUCTION EXCEPTION
      451                            *           TRAP (X'4D') ARE HANDLED BY THE PROGRAM DURING
      452                            *           SOME TESTS BUT LATER ARE HANDLED BY 'GUIDE'.
      453                            *           ALL THE OTHER TRAPS AND INTERRUPTS ARE
      454                            *           HANDLED BY 'GUIDE'.
      455                            *        6. CONTROL PANEL IN.--X'5D'                                *A02
      456                            *           THIS INT LOCATION IS USED IN TESTS X'18' & X'29'        *A03
      457                            *           AND GUIDE'S XPSD IS RESTORED AFTER COMPLETION           *A02
      458                            *           OF EACH OF THE TESTS.                                   *A02
      459                            *
      460                            *        TEST RANGE FOR SIGMA 8 AND 9.                              *A01
      461                            *                                                                   *A01
      462                            *        SIGMA9--TEST RANGE(IN HEX.) 1 THRU 2F.                     *A03
      463                            *        SIGMA8--TEST RANGE(IN HEX.) 1 THRU 4,21 THRU 26            *A03
      464                            *                28,2A THRU 2F.                                     *A03
      465                            ***********************************************************
      466                            ***********************************************************
      467                            *
      468                            *
      469                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      470                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
      471                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      472                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      473                            *        IN THE MACHINE WORD.
      474                            *
      475                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      476                            *
      477                            * LABELOPT  #HTECON  LABELADDR       OPTIONAL COMMENTS
      478                            *
      479                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      480                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      481                            *                  EXECUTION LOCATION COUNTER;
      482                            *
      483                            *                  #HTECON IS THE PROCEDURE REFERENCE;
      484                            *
      485                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      486                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      487                            *                  'EBCDIC'.
      488                            *
      489         00000000           #HTECON  CNAME
      490                                     PROC
      491                            *
      492                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      493                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      494                            *
      495                                     ERROR,0,NUM(AF)~=1 ;
      496                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      497                            *
      498                            LF       WD,0     X'32'
      499                                     BAL,X6     *#HTE%
      500                                     GEN,10,22  0,AF(1)
      501                                     WD,0     X'22'
      502                                     PEND
      503                            *
      504                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      505                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      506                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      507                            *
      508                            *        RETURN IS TO THE PROCEDURE REFERENCE
      509                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      510                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      511                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      512                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      513                            *        OF THE LOAD MULTIPLE INSTRUCTION.  TO FETCH ONLY
      514                            *
      515                            *
      516                            *
      517                            *
      518                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      519                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#BTE',
      520                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      521                            *        'EBCDIC' FOR THE 32 BIT POSITIONS IN THE WORD.
      522                            *
      523                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      524                            *
      525                            * LABELOPT  #BTECON  LABELADDR       OPTIONAL COMMENTS
      526                            *
      527                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      528                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      529                            *                  EXECUTION LOCATION COUNTER;
      530                            *
      531                            *                  #BTECON IS THE PROCEDURE REFERENCE;
      532                            *
      533                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      534                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      535                            *                  'EBCDIC'.
      536                            *
      537         00000000           #BTECON  CNAME
      538                                     PROC
      539                            *
      540                            *
      541                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      542                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      543                            *
      544                                     ERROR,0,NUM(AF)~=1 ;
      545                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      546                            *
      547                            LF       WD,0     X'32'
      548                                     BAL,X6     *#BTE%
      549                                     GEN,10,22  0,AF(1)
      550                                     WD,0     X'22'
      551                                     PEND
      552                            *
      553                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      554                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      555                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      556                            *
      557                            *        RETURN IS TO THE PROCEDURE REFERENCE
      558                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      559                            *        POINTS TO THE FIRST OF EIGHT MEMORY LOCATIONS
      560                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      561                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      562                            *        OF THE LOAD MULTIPLE INSTRUCTION WHEN THE
      563                            *        VALUE FOR ONE BYTE POSITION IS DESIRED.  THE
      564                            *
      565                            *
      566                            *
      567                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      568                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#ETH',
      569                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      570                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      571                            *        IF THE CHARACTER STRING TO BE CONVERTED
      572                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      573                            *        THE REGISTERS USED MUST NOT
      574                            *        INCLUDE THE LINK REGISTER.
      575                            *
      576                            *
      577                            *                 #ETHCON,CHAR   LABEL,DISP,ERRETN
      578                            *
      579                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      580                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      581                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      582                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      583                            *                          ( MUST BE BETWEEN 0 AND 3 )
      584                            *                 ERRETN=  ADDRESS UPON WHICH 'GUIDE' WILL BRANCH
      585                            *                           INDIRECTLY IF ANY 'EBCDIC' CHARACTER IS
      586                            *                           NOT IN THE HEXADECIMAL CONVERSION TABLE.
      587                            *
      588                            *                           IF AF(3) IS NOT ENTERED, OR IS NOT AN
      589                            *                           ADDRESS, A RETURN TO THE PROGRAM ERROR
      590                            *                           REPORTER WILL BE GENERATED.
      591                            *
      592         00000000           #ETHCON  CNAME
      593                                     PROC
      594                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      595                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      596                            *
      597                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      598                            A        SET      0
      599                            *
      600                            *
      601                                     ERROR,0,A~=CF(2) ;
      602                             '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      603                            *
      604                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      605                            *
      606                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      607                            B        SET      0
      608                            *
      609                            *
      610                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      611                             '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      612                            *
      613                            *
      614                             ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      615                             (AF(1)=X3))     ;
      616                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      617                            *
      618                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      619                            *
      620                            D SET TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      621                             |(AF(3)=X3))&NUM(AF)>2
      622                            *
      623                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      624                             '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      625                            *
      626                            E        SET      C|D               'OR' THE RESULTS
      627                            LF       WD,0     X'32'
      628                                     BAL,X6    *#ETH%           GO TO CONVERSION ROUTINE
      629                                     DO       TCOR(AF(1),S:INT)   DO IF REGISTER
      630                            *
      631                                     GEN,8,22,2  A,AF(1),B
      632                            *
      633                                     ELSE                       RELOCATABLE ADDRESS
      634                            *
      635                                     GEN,8,24     A,BA(AF(1))+B
      636                            *
      637                                     FIN
      638                                     WD,0     X'22'
      639                            *
      640                                     PEND
      641                            *
      642                            *
      643                            *
      644                            *
      645                            *
      646                            *
      647                            *
      648                            *
      649                            *
      650                            *
      651                            *
      652                            *
      653                             SPACE 1

      654                            *
      655         00000002           #PRINT   CNAME    2,#PRINTER%
      656         00000001           #TYPE    CNAME    1,#TYPER%
      657                                     PROC
      658                            *
      659                            *
      660                                     LOCAL    A
      661                            *
      662                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      663                             '**CF(2) MUST BE POSITIVE INTEGER**'
      664                            *
      665                                     ERROR,0,NUM(CF)>3 ;
      666                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      667                            *
      668                                     ERROR,0,NUM(AF)>NAME(1) ;
      669                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      670                            *
      671                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      672                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      673                            *
      674                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      675                            *
      676                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      677                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      678                            *
      679                                     ERROR,0,A=0  ;
      680                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      681                            *
      682                                     ELSE
      683                            *
      684                            A        SET      0
      685                            *
      686                                     FIN
      687                            *
      688                            *
      689                            *
      690                            *
      691                            LF       BAL,X6   *#DISUSER%
      692                                     BAL,X6   *NAME(2)
      693                            *
      694                            *
      695                                     DO       NUM(CF)=1&NAME(1)=1
      696                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      697                                     ELSE
      698                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      699                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      700                                     ELSE
      701                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      702                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      703                                     ELSE
      704                                     DO       NUM(CF)=2&CF(2)>0
      705                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      706                                     ELSE
      707                                     DO       NUM(CF)=2&CF(2)=0
      708                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      709                                     ELSE
      710                                     DO       NUM(CF)>2&CF(2)>0
      711                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      712                                     ELSE
      713                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      714                                     FIN
      715                                     FIN
      716                                     FIN
      717                                     FIN
      718                                     FIN
      719                                     FIN
      720                            *
      721                                     BAL,X6   *#ENUSER%
      722                            *
      723                                     PEND
      724                            *
      725         000000C0           C0       EQU      X'C0'
      726         000000C1           C1       EQU      X'C1'
      727         000000C2           C2       EQU      X'C2'
      728         000000C3           C3       EQU      X'C3'
      729         000000C4           C4       EQU      X'C4'
      730         000000C5           C5       EQU      X'C5'
      731         000000C6           C6       EQU      X'C6'
      732         000000C7           C7       EQU      X'C7'
      733         000000C8           C8       EQU      X'C8'
      734         000000C9           C9       EQU      X'C9'
      735         000000CA           CA       EQU      X'CA'
      736         000000CB           CB       EQU      X'CB'
      737         000000CC           CC       EQU      X'CC'
      738         000000CD           CD       EQU      X'CD'
      739         000000CE           CE       EQU      X'CE'
      740         000000CF           CF       EQU      X'CF'
      741         000000F0           F0       EQU      X'F0'
      742         000000F1           F1       EQU      X'F1'
      743                            *
      744                            *
      745                            *
      746         00000000           TEXTCS   CNAME
      747                                     PROC
      748                                     DISP     %
      749                                     LIST     0
      750                            LF       TEXTC    AF
      751                                     LIST     1
      752                                     PEND
      753                            *
      754         00000000           TEXTS    CNAME
      755                                     PROC
      756                                     DISP     %
      757                                     LIST     0
      758                            LF       TEXT     AF
      759                                     LIST     1
      760                                     PEND
      761                            *
      762                            *
      763                            *********************************************
      764                                     SYSTEM   SIG9P
      765                            *
      766                            *********************************************
      767                            *
      768                            *
      769         00000000           #ABSZERO EQU      0
      770                            *
      771   01 00392                 #TABLE1A   ORG    X'392'          THIS TABLE IS USED BY THE USER
            01 00392
      772         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      773         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      774         01 00394           #LOADFLAG  EQU    %+2
      775         01 00395           #MTLFLAG   EQU    %+3
      776         01 00396           #TOADDR    EQU    %+4
      777         01 00397           #PRTADDR   EQU    %+5
      778         01 00399           #OUTPTR    EQU    %+7
      779         01 0039A           #PAKDEX    EQU    %+8
      780         01 0039B           #INDEX     EQU    %+9
      781         01 0039C           #PARAM%H1 EQU     %+10
      782         01 0039D           #PARAM%H2 EQU     %+11
      783         01 0039E           #PARAM%H3 EQU     %+12
      784         01 0039F           #PARAM%H4 EQU     %+13
      785         01 003A0           #TESTINIT EQU     %+14
      786         01 003A1           #STATUS   EQU     %+15
      787                            *
      788         01 003A2           #PARAM1  EQU      %+16
      789         01 003A4           #PARAM2  EQU      %+18
      790         01 003A6           #PARAM3  EQU      %+20
      791         01 003A8           #PARAM4  EQU      %+22
      792         01 003AA           #MAXMEM   EQU     %+24
      793         01 003AB           #SAMPLE  EQU      %+25                                              *A03
      794         01 003AC           #BRKOUT  EQU      %+26
      795         01 003AD           #DM%START EQU     %+27
      796         01 003AE           #DM%END  EQU      %+28
      797                            *
      798                            *
      799                            ************
      800                            *
      801                            *
      802   01 003C2                 #TABLE1B   ORG    X'3C2'            THIS TABLE IS USED BY USER
            01 003C2
      803         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      804         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      805         01 003C4           #BTE%      EQU    %+2
      806         01 003C5           #DISUSER%  EQU    %+3
      807         01 003C6           #ENUSER%   EQU    %+4
      808                            *
      809         01 003C8           #GUIDE%    EQU    %+6
      810         01 003C9           #FIDLE%    EQU    %+7
      811         01 003CA           #RUNADDR%  EQU    %+8
      812         01 003CB           #RETURN%   EQU    %+9
      813         01 003CC           #TYPER%    EQU    %+10
      814         01 003CD           #PRINTER%  EQU    %+11
      815         01 003CE           #ERRTEXT%  EQU    %+12
      816         01 003D0           #ERR1PTR%  EQU    %+14
      817         01 003D2           #VALTAB% EQU      %+16
      818         01 003D3           #DMENTRY% EQU     %+17
      819         01 003D4           #P%MODE% EQU      %+18
      820                            *
      821                            *
      822                            **************:
      823                            *
      824                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      825                            *
      826   01 003E5                          ORG      X'3E5'
            01 003E5
      827                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      828   01 003E5    00       A   VALBIT   DATA,1   0                      (1 BYTE EACH)
      829                            *
      830   01 003E7                          ORG      X'3E7'
            01 003E7
      831                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      832         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      833   01 003E7    00       A            DATA,1   0
      834                            *
      835   01 003EC                          ORG      X'3EC'
            01 003EC
      836         01 003EC           VALTYPE  EQU      %
      837                            *
      838   01 003EC    00000000 A            GEN,8,24  0
      839                            *
      840                            *
      841                            ************
      842                            *
      843   01 003F0                 DCA        ORG    X'3F0'
            01 003F0
      844   01 003F0    00000000 A   TST:NUM  DATA     0                                                 *A01
      845   01 003F1    00000000 A   TSP:NUM  DATA     0                                                 *A01
      846   01 003F2    00000000 A   TCR:NUM  DATA     0                                                 *A01
      847   01 003F3    00000000 A            DATA     0                                                 *A03
      848   01 003F4    00000000 A   TST:ADR  DATA     0                                                 *A01
      849                            *                 **********
      850                            *
      851                            *
      852                            *
      853                            *                **********
      854                            *
      855                            ************
      856                            *
      857                            *
      858   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      859   01 01000    00001010     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      860   01 01001    00002F14     #TABLE3@   DATA   TABLE3
      861   01 01002    00002F01     #PLINEIN@  DATA   PLINEIN
      862   01 01003    00000000 A   #DIAG@   DATA     0
      863   01 01004    00000000 A   #LOADER@ DATA     0
      864                            *
      865                            *
      866                            *
      867                            *
      868                            ************
      869                            *
      870                            *
      871                            *                **********
      872         00000000           R0         EQU    0
      873         00000001           R1         EQU    1
      874         00000001           X1         EQU    1
      875         00000002           R2         EQU    2
      876         00000002           X2         EQU    2
      877         00000003           R3         EQU    3
      878         00000003           X3         EQU    3
      879         00000004           R4         EQU    4
      880         00000004           X4         EQU    4
      881         00000005           R5         EQU    5
      882         00000005           X5         EQU    5
      883         00000006           R6         EQU    6
      884         00000006           X6         EQU    6
      885         00000006           LINK       EQU    6
      886         00000007           R7         EQU    7
      887         00000007           X7         EQU    7
      888         00000008           R8         EQU    8
      889         00000009           R9         EQU    9
      890         0000000A           R10        EQU    10
      891         0000000B           R11        EQU    11
      892         0000000C           R12        EQU    12
      893         0000000D           R13        EQU    13
      894         0000000E           R14        EQU    14
      895         0000000F           R15        EQU    15
      896                            *
      897                            *
      898                            *
      899                            *
      900                            *
      901                            *
      902                            ************                 **********
      903                            *
      904                            **************************************************************
      905                            **************************************************************
      906                            ****     START OF SIGMA 8-9 MAP & WRITE LOCKS PROGRAM    *****
      907                            **************************************************************
      908                            **************************************************************
      909   01 01010                          ORG      X'1010'
            01 01010
      910         01 01010           INITIAL  EQU      %                 START OF MAP PROGRAM
      911   01 01010    356010A7              STW,LINK  LABEL            STORE CONTENTS OF LINK
      912   01 01011    6C800045 A            RD,8     X'45'             READ CM                         *A02
      913   01 01012    22900000 A            LI,9     0                                                 *A03
      914   01 01013    318022EB              CW,8     SIG8BIT           SIGMA 8                         *A02
      915   01 01014    68401016              BCR,4    %+2               NO                              *A03
      916   01 01015    22900001 A            LI,9     1                                                 *A02
      917   01 01016    359022EA              STW,9    SIGMA8            SET SIGMA 8 FLAG                *A02
      918   01 01017    4B802453              AND,8    MARGINMASK        SET CM BITS TO 00 FOR NORMAL CM *A02
      919   01 01018    6D800045 A            WD,8     X'45'             INITIALISE CM TO NORMAL         *A02
      920   01 01019    228000F0 A            LI,8     X'F0'             SET CM TO NORMAL                *A02
      921   01 0101A    22100003 A            LI,1     3                 IN J LINE                       *A02
      922   01 0101B    75822D11              STB,8    PLINE#J+5,1                                       *A02
      923   01 0101C    227FFF80 A            LI,7     -128              SET INDEX TO CLEAR MAP IMAGE BUFF
      924   01 0101D    22800000 A            LI,8     0
      925   01 0101E    358E2384              STW,8    MAPPTRN+128,X7    STORE 0'S
      926   01 0101F    358E2406              STW,8    IMAGEMAP+128,X7
      927   01 01020    6570101E              BIR,X7   %-2
      928   01 01021    227FFFF0 A            LI,7     -16
      929   01 01022    22800000 A            LI,8     0
      930   01 01023    358E2416              STW,8    IMAGEAC+16,X7     CLEAR BUFFER TO 0'S
      931   01 01024    358E2426              STW,8    IMAGEWL+16,X7     CLEAR BUFFER TO 0'S
      932   01 01025    65701023              BIR,X7   %-2
      933   01 01026    22800000 A            LI,8     0
      934   01 01027    35800393              STW,8    #HDRFLG           RESET HEADER FLAG
      935   01 01028    6AF01EF2              BAL,15   INITREGS          INITIALISE MAP,AC AND WL REGS   *A02
      936   01 01029    32800394              LW,8     #LOADFLAG         IF THIS FLAG SET
      937   01 0102A    6930109E              BNEZ     SKIPINIT          SKIP INITIALISATION
      938   01 0102B    227FFFFA A            LI,7     -6                SET INDEX
      939   01 0102C    22800000 A            LI,8     0                 LOAD 0'S IN R8 TO RESET COUNTERS
      940         01 0102D           CLEARCNT EQU      %
      941   01 0102D    358E22D4              STW,8    PASS#,X7          CLEAR COUNTERS TO ZERO
      942   01 0102E    6570102D              BIR,X7   CLEARCNT
      943   01 0102F    22700001 A            LI,7     1
      944   01 01030    357022D4              STW,7    PASS#             INIT PASS#
      945   01 01031    330022BB              MTW,0    FIRSTLOD
      946   01 01032    69301074              BNEZ     SKIPRESJ          SKIP IF NOT FIRST PASS
      947   01 01033    331022BB              MTW,1    FIRSTLOD
      948   01 01034    22800000 A            LI,8     0                                                 *A02
      949   01 01035    6C801100 A            RD,8     X'1100'           READ ALL ARMED LEVELS IN GRP 0  *A02
      950   01 01036    21800040 A            CI,8     X'40'             IF COUNTER 4 IS DISARMED        *A02
      951   01 01037    68401039              BCR,4    %+2               NOT AREMOTE GUIDE               *A02
      952   01 01038    35802278              STW,8    REMOT:GD          SET REMOT GUIDE FLAG            *A02
      953   01 01039    3280004C A            LW,8     X'4C'                                             *A02
      954   01 0103A    35802267              STW,8    GUID:4C           VE GUIDE'S XPSD'S               *A02
      955   01 0103B    3280004D A            LW,8     X'4D'                                             *A02
      956   01 0103C    35802268              STW,8    GUID:4D                                           *A02
      957   01 0103D    32800055 A            LW,8     X'55'                                             *A02
      958   01 0103E    35802269              STW,8    GUID:55                                           *A02
      959   01 0103F    3280005B A            LW,8     X'5B'                                             *A02
      960   01 01040    3580226A              STW,8    GUID:5B                                           *A02
      961   01 01041    3280005D A            LW,8     X'5D'                                             *A02
      962   01 01042    3580226B              STW,8    GUID:5D                                           *A02
      963   01 01043    6D000032 A            #HTECON  #TOADDR           CONVERT KSR ADDR
            01 01044    EA6003C3
            01 01045    00000396
            01 01046    6D000022 A
      964   01 01047    328C0001 A            LW,8     1,LINK
      965   01 01048    35802D15              STW,8    PLINE#JRES+3
      966   01 01049    6D000032 A            #HTECON  #PRTADDR
            01 0104A    EA6003C3
            01 0104B    00000397
            01 0104C    6D000022 A
      967   01 0104D    328C0001 A            LW,8     1,LINK
      968   01 0104E    35802D13              STW,8    PLINE#JRES+1
      969   01 0104F    328022EA              LW,8     SIGMA8            CHECK FOR CPU TYPE              *A02
      970   01 01050    6830105B              BEZ      YESSIG9           SIGMA 9 IF NOT SET              *A02
      971   01 01051    2281FFFF A            LI,8     X'1FFFF'          MAX ADR FOR SIG 8               *A02
      972   01 01052    EA6003C5              #TYPE    SIG8MSG           OUT PUT SIGMA 8 MSG             *A02
            01 01053    EA6003CC
            01 01054    0000B5C0 A
            01 01055    EA6003C6
      973   01 01056    EA6003C5              #TYPE    TRNG2             OUTPUT TEST RANGE               *A02
            01 01057    EA6003CC
            01 01058    0000B5D0 A
            01 01059    EA6003C6
      974   01 0105A    68001064              B        STORMAX                                           *A02
      975                            *                                                                   *A02
      976         01 0105B           YESSIG9  EQU      %                                                 *A02
      977   01 0105B    2287FFFF A            LI,8     X'7FFFF'          MAX ADR FOR SIG 9               *A02
      978   01 0105C    EA6003C5              #TYPE    SIG9MSG                                           *A02
            01 0105D    EA6003CC
            01 0105E    0000B58C A
            01 0105F    EA6003C6
      979   01 01060    EA6003C5              #TYPE    TRNG1                                             *A02
            01 01061    EA6003CC
            01 01062    0000B59C A
            01 01063    EA6003C6
      980         01 01064           STORMAX  EQU      %                                                 *A02
      981   01 01064    3580246D              STW,8    MAXADR                                            *A02
      982   01 01065    6C800045 A            RD,8     X'45'             READ VOLTAGE MARGIN             *A02
      983   01 01066    31802490              CW,8     Y001              IF BIT 11 SET                   *A02
      984   01 01067    6940106C              BCS,4    VMNORMAL          VM NORMAL                       *A02
      985   01 01068    EA6003C5              #TYPE    VMMSG2            TYPE VM MARGINED MESSAGE        *A02
            01 01069    EA6003CC
            01 0106A    0000B2CC A
            01 0106B    EA6003C6
      986         01 0106C           VMNORMAL EQU      %                                                 *A02
      987   01 0106C    321003AA              LW,1     #MAXMEM           GET MEMORY SIZE                 *A02
      988   01 0106D    3510246C              STW,1    LSTADRS           SAVE IT                         *A02
      989   01 0106E    25100077 A            SLS,1    -9                MAX PAGE SIZE RT ALIGNED
      990   01 0106F    3510246E              STW,1    PGMAX             SAVE MAX PAGE ADDRS.
      991   01 01070    2280312C              LI,8     ENDADDR
      992   01 01071    20800200 A            AI,8     X'200'
      993   01 01072    25800077 A            SLS,8    -9
      994   01 01073    3580246F              STW,8    MAPEDPAG
      995         01 01074           SKIPRESJ EQU      %
      996   01 01074    72102D12              LB,X1    PLINE#JRES        RESTORE PARAM J CONTROL LINE
      997   01 01075    72822D12              LB,8     PLINE#JRES,X1
      998   01 01076    75822D0C              STB,8    PLINE#J,X1
      999   01 01077    64101075              BDR,X1   %-2
     1000   01 01078    72102D2E              LB,X1    PLIN#TR           RESTORE PARAM T CONTROL LINE
     1001   01 01079    72822D2E              LB,8     PLIN#TR,X1
     1002   01 0107A    75822D27              STB,8    PLIN#T,X1
     1003   01 0107B    64101079              BDR,X1   %-2
     1004   01 0107C    EA6003C2              BAL,LINK *#ETH%            CONVERT TPMAP                   *A03
     1005   01 0107D    0400B4C0              GEN,8,24 4,BA(PLIN#TR+2)                                   *A03
     1006   01 0107E    35602468              STW,LINK TPMAP                                             *A03
     1007   01 0107F    EA6003C2              BAL,LINK *#ETH%            CONVERT TINSTP                  *A03
     1008   01 01080    0200B4CA              GEN,8,24 2,BA(PLIN#TR+4)+2                                 *A03
     1009   01 01081    35602469              STW,LINK TINSTP                                            *A03
     1010   01 01082    EA6003C2              BAL,LINK *#ETH%            CONVERT TESTPAGE                *A03
     1011   01 01083    0200B4D2              GEN,8,24 2,BA(PLIN#TR+6)+2                                 *A03
     1012   01 01084    3560246A              STW,LINK TESTPAGE                                          *A03
     1013   01 01085    2280002F A            LI,8     LAST:TST                                          *A01
     1014   01 01086    35802298              STW,8    LST:TST           INITIALISE LAST TEST #          *A01
     1015   01 01087    358003F1              STW,8    TSP:NUM                                           *A01
     1016   01 01088    6D000032 A            #HTECON  R8                CONVERT LAST TEST #             *A01
            01 01089    EA6003C3
            01 0108A    00000008 A
            01 0108B    6D000022 A
     1017   01 0108C    328C0001 A            LW,8     1,LINK                                            *A01
     1018   01 0108D    35802D44              STW,8    PLIN#KR+3         STORE IT IN RESET LINE FOR K LIN*A01
     1019   01 0108E    22800001 A            LI,8     1                                                 *A01
     1020   01 0108F    358003F0              STW,8    TST:NUM           INIT FIRST TEST #               *A01
     1021   01 01090    358003F2              STW,8    TCR:NUM           INIT CURRENT TEST #             *A01
     1022   01 01091    72102D41              LB,X1    PLIN#KR           RESTORE PARAM K CONTROL LINE    *A01
     1023   01 01092    72822D41              LB,8     PLIN#KR,X1                                        *A01
     1024   01 01093    75822D3B              STB,8    PLIN#K,X1                                         *A01
     1025   01 01094    64101092              BDR,X1   %-2                                               *A01
     1026   01 01095    22800000 A            LI,8     0
     1027   01 01096    358022CA              STW,8    NCOUNT
     1028   01 01097    358022CB              STW,8    CLMARG
     1029   01 01098    6D000032 A            #ETHCON,3  PLINE#JRES+4,1  CONCERT SI COUNT(INITIAL)
            01 01099    EA6003C2
            01 0109A    0300B459
            01 0109B    6D000022 A
     1030   01 0109C    35602467              STW,LINK   SICOUNT         SAVE IT
     1031   01 0109D    666022CA              AWM,LINK   NCOUNT          SET INIT VALUE OF NCOUNT
     1032         01 0109E           SKIPINIT EQU      %
     1033   01 0109E    33F003F2              MTW,-1   TCR:NUM           DECR CURRENT TEST #             *A02
     1034   01 0109F    6D000032 A            #ETHCON,4 PLINE#J+1
            01 010A0    EA6003C2
            01 010A1    0400B434
            01 010A2    6D000022 A
     1035   01 010A3    35600397              STW,LINK   #PRTADDR
     1036   01 010A4    702003A0              LC       #TESTINIT
     1037   01 010A5    EA6010A7              BAL,LINK  *LABEL
     1038   01 010A6    000010A8              DATA     START
     1039   01 010A7    00000000 A   LABEL    DATA     0
     1040                                     BOUND    8
     1041   01 010A8    000010AA     START    DATA     STORXPSD                                          *A02
     1042   01 010A9    00000000 A            DATA     0
     1043         01 010AA           STORXPSD EQU      %                                                 *A02
     1044   01 010AA    32802258              LW,8     X40TRAP           SET UP XPSD                     *A02
     1045   01 010AB    35800040 A            STW,8    X'40'             AT X'40'                        *A02
     1046   01 010AC    32802259              LW,8     CAL1TRAP          SET UP XPSD                     *A02
     1047   01 010AD    35800048 A            STW,8    X'48'             AT X'48'                        *A02
     1048   01 010AE    3280225A              LW,8     CAL2TRAP          SET UP XPSD                     *A02
     1049   01 010AF    35800049 A            STW,8    X'49'             AT X'49'                        *A02
     1050         01 010B0           TST:CONT EQU      %                                                 *A01
     1051   01 010B0    331003F2              MTW,1    TCR:NUM           INCR CURRENT TEST #             *A01
     1052         01 010B1           TST:CONTA EQU     %                                                 *A01
     1053   01 010B1    6D000037 A            WD,0     X'37'             DISABLE USER                    *A01
     1054   01 010B2    321003F2              LW,1     TCR:NUM                                           *A01
     1055   01 010B3    311003F1              CW,1     TSP:NUM           IF LAST TEST EXECUTED           *A01
     1056   01 010B4    682010B8              BLE      CPUTYPE           NOT DONE YET                    *A01
     1057   01 010B5    33F003F2              MTW,-1   TCR:NUM           DECR BY 1                       *A01
     1058   01 010B6    6D000027 A            WD,0     X'27'             ENABLE USER                     *A01
     1059   01 010B7    68001D28              B        FINISH            OUTPUT STATUS REPORT            *A01
     1060                            *                                                                   *A01
     1061         01 010B8           CPUTYPE  EQU      %                                                 *A01
     1062   01 010B8    328022EA              LW,8     SIGMA8                                            *A01
     1063   01 010B9    683010BE              BEZ      HTE:TCR           NOT SIGMA 8                     *A01
     1064   01 010BA    21100005 A            CI,1     TNUM5             IF CURRENT TEST BETWEEN         *A03
     1065   01 010BB    691010BE              BL       HTE:TCR           X'5' AND X'20'                  *A03
     1066   01 010BC    21100020 A            CI,1     TNUM31            SKIP TEST AS THESE ARE          *A03
     1067   01 010BD    682010B0              BLE      TST:CONT          SIGMA 9 TESTS ONLY              *A01
     1068   01 010BE    6D000032 A   HTE:TCR  #HTECON  TCR:NUM           CONVERT CURRENT TEST #          *A01
            01 010BF    EA6003C3
            01 010C0    000003F2
            01 010C1    6D000022 A
     1069   01 010C2    328C0001 A            LW,8     1,LINK                                            *A01
     1070   01 010C3    35802D40              STW,8    PLIN#K+5          STORE IT IN K CONTROL LINE      *A01
     1071   01 010C4    329210C8              LW,9     STRT:TST,X1       GET BEGIN ADR OF TEST           *A02
     1072   01 010C5    359003F4              STW,9    TST:ADR           SAVE IT                         *A01
     1073   01 010C6    6D000027 A            WD,0     X'27'             ENABLE USER                     *A01
     1074   01 010C7    680210C8              B        STRT:TST,X1       EXECUTE TEST                    *A01
     1075                            *                                                                   *A01
     1076                            *
     1077         01 010C8           STRT:TST EQU      %                                                 *A01
     1078   01 010C8    02000000 A            NOP      0                                                 *A01
     1079   01 010C9    680010F8              B        TST1LRA                                           *A01
     1080   01 010CA    68001176              B        TST2LRA                                           *A01
     1081   01 010CB    680011A0              B        TST3LRA                                           *A01
     1082   01 010CC    680011F3              B        TST5LRA                                           *A01
     1083   01 010CD    68001221              B        TST6MMC                                           *A01
     1084   01 010CE    6800124A              B        TST7MMC                                           *A01
     1085   01 010CF    6800126D              B        TST8MMC                                           *A01
     1086   01 010D0    6800128F              B        TST9                                              *A01
     1087   01 010D1    68001290              B        TST10MF                                           *A01
     1088   01 010D2    680012CB              B        T11MAPF                                           *A01
     1089   01 010D3    68001350              B        TST12ACF                                          *A01
     1090   01 010D4    680013C5              B        T13MAPOP                                          *A01
     1091   01 010D5    68001439              B        TST14ACOP                                         *A01
     1092   01 010D6    6800149A              B        TST15PL                                           *A01
     1093   01 010D7    680014DD              B        TST16PL                                           *A01
     1094   01 010D8    68001532              B        TST17PL                                           *A01
     1095   01 010D9    68001536              B        TST18PL                                           *A01
     1096   01 010DA    6800153A              B        TST19PL                                           *A01
     1097   01 010DB    6800153E              B        TST20PL                                           *A01
     1098   01 010DC    68001573              B        TST21PL                                           *A01
     1099   01 010DD    680015A3              B        TST22PL                                           *A01
     1100   01 010DE    680015D1              B        TST23PL                                           *A01
     1101   01 010DF    680015FC              B        TST24PL                                           *A01
     1102   01 010E0    68001776              B        TST25PL                                           *A01
     1103   01 010E1    680017AF              B        TST26                                             *A01
     1104   01 010E2    680017B0              B        TST27                                             *A01
     1105   01 010E3    680017B1              B        TST28MM                                           *A01
     1106   01 010E4    680017E5              B        TST29MM                                           *A01
     1107   01 010E5    68001811              B        TST30MM                                           *A01
     1108   01 010E6    6800183A              B        TST31MM                                           *A01
     1109   01 010E7    68001865              B        TST32MM                                           *A03
     1110   01 010E8    68001889              B        TST33RTC                                          *A03
     1111   01 010E9    680018DE              B        TST34WLF                                          *A01
     1112   01 010EA    6800195B              B        TST35WLOP                                         *A01
     1113   01 010EB    680019EB              B        TST36WLP1                                         *A01
     1114   01 010EC    68001A25              B        TST37WLP2                                         *A01
     1115   01 010ED    68001A49              B        TST38WLP3                                         *A01
     1116   01 010EE    68001A70              B        TST39WLP4                                         *A01
     1117   01 010EF    68001A98              B        TST40MMC                                          *A01
     1118   01 010F0    68001AE7              B        TST42MMC                                          *A01
     1119   01 010F1    68001B82              B        TST43MMC                                          *A01
     1120   01 010F2    68001BE5              B        TST44MMC                                          *A01
     1121   01 010F3    68001C09              B        TST45MMC                                          *A01
     1122   01 010F4    68001C67              B        TST46MMC                                          *A01
     1123   01 010F5    68001C71              B        TST47MMC                                          *A01
     1124   01 010F6    68001CBB              B        TST48MMC                                          *A01
     1125   01 010F7    68001CDE              B        TST49MMC                                          *A01
     1126                            *                                                                   *A01
     1127                            *                                                                   *A01
     1128                            *
     1129                            ****     LRA TESTS:-
     1130                            ****     TEST 1:- CHECKS THE FOLLOWING
     1131                            ****              1. REAL ADDRESS OBTAINED IS CORRECT WHEN C1C2 IS  *A03
     1132                            ****                 00,01,10 AND 11 FOR BYTE ,HALFWORD
     1133                            ****                 WORD AND DOUBLEWORD ALIGNMENT RESPECTIVELY.
     1134                            ****              2. C1C2=11 (AFTER LRA) IF REAL ADDRESS IS         *A03
     1135                            ****                 NON-EXISTANT.FOR SIGMA 8 ,IF MEMORY SIZE       *A03
     1136                            ****                 IS X'1FFFF' C1C2 SHOULD BE =00.                *A03
     1137                            ****
     1138                            *
     1139         01 010F8           TST1LRA  EQU      %                 LRA TEST 1
     1140   01 010F8    6AF01DA8              BAL,R15  STSLRA            LRA STATUS
     1141   01 010F9    6AF01EEA              BAL,15   ALLWLREG          CLEAR WL REG'S TO 07S           *A04
     1142   01 010FA    2280111F              LI,8     LRA1                                              *A04
     1143   01 010FB    358022D9              STW,8    TADDR             STORE TEST INST ADDR            *A04
     1144   01 010FC    3280111F              LW,8     LRA1                                              *A04
     1145   01 010FD    358022D8              STW,8    TINST             STORE LRA INST                  *A04
     1146   01 010FE    32902477              LW,9     YC                GET EXPECTED C1C2               *A03
     1147   01 010FF    330022EA              MTW,0    SIGMA8            SIGMA 8                         *A03
     1148   01 01100    69201132              BCS,2    YES8              YES                             *A03
     1149   01 01101    22801FFF A            LI,8     X'1FFF'           GET MAP IMAGE                   *A03
     1150   01 01102    32702488              LW,7     XFF               TO LOAD IN MAP REG X'FF'        *A03
     1151   01 01103    6AB01EC3              BAL,11   MMCMAP1           LOAD MAP REG'S FE & FF          *A03
     1152   01 01104    25800009 A   STORCON  SLS,8    9                 COMPUTE VALUE WHICH WILL BE     *A03
     1153   01 01105    208001FF A            AI,8     X'1FF'            CONCATANATED TO LOW ORDER 9 BITS*A03
     1154   01 01106    1580227C              STD,8    CONSTANT          TO GIVE EXP REAL ADDR FOR       *A03
     1155                            *                                   C1C2=10.ALSO STORE EXP C1C2     *A03
     1156                            *                                   (AFTER LRA INST. IS EXECUTED)   *A03
     1157   01 01107    22100000 A            LI,1     0                                                 *A03
     1158   01 01108    35102281     NEXTCC   STW,1    C1C2              STOR C1C2 BEFORE LRA INST       *A03
     1159   01 01109    25100202 A            SCS,1    2                                                 *A03
     1160   01 0110A    48102472              EOR,1    X03                                               *A03
     1161   01 0110B    32902470              LW,9     X7FF              COMPUTE THE LOW ORDER 9 BITS    *A03
     1162   01 0110C    2592007D A            SLS,9    -3,1              FOR THE LRA INST OPERAND        *A03
     1163   01 0110D    3280227C              LW,8     CONSTANT          GET VALUE COMPUTED EARLIER      *A03
     1164   01 0110E    2582007F A            SLS,8    -1,1              AND DETERMINE THE EXPECTED      *A03
     1165   01 0110F    22B00000 A            LI,11    0                                                 *A03
     1166   01 01110    31802479              CW,8     X01                                               *A03
     1167   01 01111    69401116              BCS,4    NOTADD                                            *A03
     1168   01 01112    22B00001 A            LI,11    1                                                 *A03
     1169   01 01113    31802495              CW,8     X02                                               *A03
     1170   01 01114    69401116              BCS,4    NOTADD                                            *A03
     1171   01 01115    22B00003 A            LI,11    3                                                 *A03
     1172   01 01116    3080000B A   NOTADD   AW,8     R11                                               *A03
     1173   01 01117    35802280              STW,8    EXPLRA            REAL ADDRESS                    *A04
     1174   01 01118    20100008 A            AI,1     8                                                 *A03
     1175   01 01119    32802488              LW,8     XFF               COMPUTE OPERAND FOR             *A03
     1176   01 0111A    25820000 A            SLS,8    0,1               LRA INST                        *A03
     1177   01 0111B    30800009 A            AW,8     9                                                 *A03
     1178   01 0111C    3580229A              STW,8    PAGEADR                                           *A03
     1179         01 0111D           LRALOOP1 EQU      %                                                 *A03
     1180   01 0111D    22800000 A            LI,8     0                 CLEAR REG USED IN LRA INST      *A04
     1181   01 0111E    70202281              LC       C1C2              LOAD CC                         *A04
     1182         01 0111F           LRA1     EQU      %                                                 *A04
     1183   01 0111F    2C80229A              LRA,8    PAGEADR           EXECUTE LRA                     *A04
     1184   01 01120    7400227E              STCF     ACTCC             SAVE CC AFTER LRA               *A04
     1185   01 01121    70200392              LC       #SENSE            SS1 SET                         *A04
     1186   01 01122    6980111D              BCS,8    LRALOOP1          SHORT LOOP IF SET               *A04
     1187   01 01123    3580227F              STW,8    ACTLRA            STORE REAL ADDR OBTAINED        *A04
     1188   01 01124    31802280              CW,8     EXPLRA            SAME AS EXPECTED                *A04
     1189   01 01125    68301129              BE       LRAOK1            YES                             *A03
     1190   01 01126    6AF01138     ER1      BAL,15   LRAER1            REPORT ERROR                    *A03
     1191   01 01127    6800111D              B        LRALOOP1          RETURN HERE IF SS1=1;SS3=0      *A03
     1192                            *                                   NORMAL RETURN                   *A03
     1193   01 01128    6800112C              B        INCRCC            SET NEW VALUE OF C1C2           *A03
     1194                            *                                                                   *A03
     1195         01 01129           LRAOK1   EQU      %                                                 *A03
     1196   01 01129    3280227E              LW,8     ACTCC             GET CC AFTER LRA                *A03
     1197   01 0112A    3180227D              CW,8     EXPCC             SAME AS EXPECTED                *A03
     1198   01 0112B    69301126              BNE      ER1               YES                             *A03
     1199         01 0112C           INCRCC   EQU      %                                                 *A03
     1200   01 0112C    32102281              LW,1     C1C2              GET PRESENT VAL OF C1C2         *A03
     1201   01 0112D    30102474              AW,1     Y4                INCR C1C2                       *A03
     1202   01 0112E    68801108              BCR,8    NEXTCC            BRANCH IF NOT ZERO              *A03
     1203   01 0112F    70200392              LC       #SENSE            LONG LOOP                       *A03
     1204   01 01130    69401108              BCS,4    NEXTCC            YES                             *A03
     1205   01 01131    680010B0              B        TST:CONT          EXIT                            *A03
     1206                            *                                                                   *A03
     1207         01 01132           YES8     EQU      %                                                 *A03
     1208   01 01132    32802488              LW,8     XFF                                               *A03
     1209   01 01133    32A003AA              LW,10    #MAXMEM                                           *A03
     1210   01 01134    31A0246D              CW,10    MAXADR            MEM SIZE=X'1FFFF'               *A03
     1211   01 01135    69301104              BNE      STORCON           NO                              *A03
     1212   01 01136    22900000 A            LI,9     0                                                 *A03
     1213   01 01137    68001104              B        STORCON                                           *A03
     1214                            *
     1215                            *
     1216         01 01138           LRAER1   EQU      %
     1217   01 01138    32802282              LW,8     XELRA1            FORMAT CONTROL WORDS
     1218   01 01139    32902283              LW,9     XELRA2            FOR ERROR EXPLAINATION
     1219   01 0113A    22AFFFFE A            LI,10    -2                MESSAGES
     1220   01 0113B    321003CE              LW,X1    #ERRTEXT%
     1221   01 0113C    201FFFFE A            AI,X1    -2
     1222   01 0113D    02200030 A            LCI      3
     1223   01 0113E    AB800001 A            STM,8    *X1
     1224   01 0113F    6AD01167              BAL,R13  LRAERR
     1225   01 01140    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     1226   01 01141    32800393              LW,8     #HDRFLG           NORMAL RETURN                   *A03
     1227   01 01142    318003F2              CW,8     TCR:NUM           IF FLAG RESET                   *A03
     1228   01 01143    69301145              BNE      %+2               SKIP                            *A03
     1229   01 01144    6AB01DBE              BAL,R11  TSTINFOX          GET TEST INST,C1C2 & THEN PRINT *A04
     1230         01 01145           LRAER1X  EQU      %                                                 *A04
     1231   01 01145    6D000032 A            #HTECON  EXPLRA            CONVERT REAL ADDR EXPECTED      *A04
            01 01146    EA6003C3
            01 01147    00002280
            01 01148    6D000022 A
     1232   01 01149    2A8C0000 A            LM,R8    0,LINK
     1233   01 0114A    02200020 A            LCI      2
     1234   01 0114B    2B80299A              STM,R8   LRAMSG1A+7        STORE ADDRESS
     1235   01 0114C    6D000032 A            #HTECON  ACTLRA            CONVERT REAL ADDR OBTAINED      *A04
            01 0114D    EA6003C3
            01 0114E    0000227F
            01 0114F    6D000022 A
     1236   01 01150    2A8C0000 A            LM,R8    0,LINK
     1237   01 01151    02200020 A            LCI      2
     1238   01 01152    2B8029A6              STM,R8   LRAMSG1B+7        STORE ADDRESS
     1239   01 01153    3280227D              LW,8     EXPCC             CONVERT EXP. CC                 *A03
     1240   01 01154    3290227E              LW,9     ACTCC             AND ACTUAL CC                   *A03
     1241   01 01155    25800204 A            SCS,8    4                                                 *A03
     1242   01 01156    2580017C A            SLD,8    -4                                                *A03
     1243   01 01157    6D000032 A            #BTECON  R9                CONVERT EXP. AND ACTUAL CC'S    *A03
            01 01158    EA6003C4
            01 01159    00000009 A
            01 0115A    6D000022 A
     1244   01 0115B    2A8C0000 A            LM,8     0,LINK                                            *A03
     1245   01 0115C    3580299E              STW,8    LRAMSG1A+11       STORE EXP. CC                   *A03
     1246   01 0115D    359029AA              STW,9    LRAMSG1B+11       STORE ACTUAL CC                 *A03
     1247   01 0115E    EA6003C5              #PRINT   LRAMSG1A          PRINT EXPECTED DATA
            01 0115F    EA6003CD
            01 01160    C000A64C A
            01 01161    EA6003C6
     1248   01 01162    EA6003C5              #PRINT   LRAMSG1B          PRINT ACTUAL DATA
            01 01163    EA6003CD
            01 01164    C000A67C A
            01 01165    EA6003C6
     1249   01 01166    68001D8F              B        COMMON            SET HEADING FLAG
     1250                            *
     1251                            *
     1252         01 01167           LRAERR   EQU      %
     1253   01 01167    331022CE              MTW,1    ECLRA             UPDATE ERROR COUNTER
     1254   01 01168    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     1255   01 01169    E910000D A            BCS,1    *R13              INHIBIT PRINTOUT                *A03
     1256   01 0116A    3310000D A            MTW,1    R13               INCR RETURN ADDR                *A03
     1257   01 0116B    32800393              LW,8     #HDRFLG
     1258   01 0116C    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #              *A02
     1259   01 0116D    E830000D A            BE       *R13              SKIP HEADING OUTPUT             *A02
     1260   01 0116E    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     1261   01 0116F    55802984              STH,8    LRAHD1+10         STORE IN BUFFER
     1262   01 01170    EA6003C5              #PRINT   LRAHD1,C1         PRINT HEADING
            01 01171    EA6003CD
            01 01172    C100A5E8 A
            01 01173    EA6003C6
     1263   01 01174    6AB01DBE              BAL,11   TSTINFOX          PRINT C1C2(BEFORE LRA)&LRA INST *A04
     1264   01 01175    E800000D A            B        *R13              EXIT
     1265                            *
     1266                            *
     1267                            *                                                                   *A03
     1268                            ****     TEST 2:- CHECKS THE FOLLOWING                              *A03
     1269                            ****              1.BIT 1 OF LRA REG SET WHEN HOME SPACE            *A03
     1270                            ****                BIAS USED IN THE REAL ADDRESS.                  *A03
     1271                            ****              2.LRA CAN READ WRITE LOCK REGISTERS.              *A03
     1272                            ****              3.LRA CAN READ ACCESS CONTROL REGISTERS.          *A03
     1273                            *                                                                   *A03
     1274         01 01176           TST2LRA  EQU      %                                                 *A03
     1275   01 01176    6AF01DA8              BAL,15   STSLRA                                            *A03
     1276   01 01177    22801190              LI,8     LRA2                                              *A04
     1277   01 01178    358022D9              STW,8    TADDR             STORE TEST INST ADDR            *A04
     1278   01 01179    32801190              LW,8     LRA2                                              *A04
     1279   01 0117A    358022D8              STW,8    TINST             STORE TEST INST                 *A04
     1280   01 0117B    3280247D              LW,8     Y43               HSBB=1;WL=11                    *A04
     1281   01 0117C    20800010 A            AI,8     X'10'             ADD CROSSOVER BIAS              *A04
     1282   01 0117D    35802280              STW,8    EXPLRA            DEFINE EXP LRA REG CONTENTS     *A04
     1283   01 0117E    22800010 A            LI,8     X'10'                                             *A03
     1284   01 0117F    3580229A              STW,8    PAGEADR           STORE VP ADDR                   *A03
     1285   01 01180    32802477              LW,8     YC                GET WL IMAGE WORD               *A03
     1286   01 01181    22700000 A            LI,7     0                 LOAD WL=11 FOR PAGE 0           *A03
     1287   01 01182    6AB01F1E              BAL,11   MMCWL1            0'S FOR PAGES 01 TO 0F          *A03
     1288   01 01183    22900000 A            LI,9     0                                                 *A04
     1289   01 01184    328022EA              LW,8     SIGMA8            SIGMA 8                         *A03
     1290   01 01185    6930118B              BNEZ     STREXPCC          YES                             *A04
     1291   01 01186    6AF01EDA              BAL,15   ALMAPREG          CLEAR MAP REGS TO ZERO7S        *A03
     1292   01 01187    32802477              LW,8     YC                GET AC IMAGE WORD               *A03
     1293   01 01188    22700000 A            LI,7     0                 LOAD AC=11                      *A03
     1294   01 01189    6AB01F0B              BAL,11   MMCAC1            FOR VP 0.REST     0'S           *A03
     1295   01 0118A    3290247E              LW,9     Y3                DEFINE EXP CC FOR SIG 9         *A04
     1296         01 0118B           STREXPCC EQU      %                                                 *A04
     1297   01 0118B    3590227D              STW,9    EXPCC             STORE EXP CC                    *A04
     1298         01 0118C           SETC1C2  EQU      %                                                 *A03
     1299   01 0118C    32802476              LW,8     Y8                                                *A03
     1300   01 0118D    35802281              STW,8    C1C2              SET C1C2=10                     *A03
     1301         01 0118E           LRALOOP2 EQU      %                                                 *A04
     1302   01 0118E    22800000 A            LI,8     0                 CLEAR REG USED IN LRA INST      *A04
     1303   01 0118F    70202281              LC       C1C2              LOAD CC                         *A04
     1304         01 01190           LRA2     EQU      %                                                 *A04
     1305   01 01190    2C80229A              LRA,8    PAGEADR           EXECUTE LRA                     *A04
     1306   01 01191    7400227E              STCF     ACTCC             SAVE CC AFTER LRA               *A04
     1307   01 01192    70200392              LC       #SENSE            SS1 SET                         *A04
     1308   01 01193    6980118E              BCS,8    LRALOOP2          SHORT LOOP IF SET               *A04
     1309   01 01194    3580227F              STW,8    ACTLRA            SAVE RESULT                     *A04
     1310   01 01195    31802280              CW,8     EXPLRA            SAME AS EXPECTED                *A04
     1311   01 01196    6830119A              BE       LRAOK2            YES                             *A04
     1312   01 01197    6AF01138     ER2      BAL,15   LRAER1            REPORT ERROR                    *A04
     1313   01 01198    6800118E              B        LRALOOP2          RETURN HERE IF SS1=1;SS3=0      *A03
     1314                            *                                   NORMAL RETURN                   *A03
     1315   01 01199    6800119D              B        CHKSS2                                            *A03
     1316                            *                                                                   *A03
     1317         01 0119A           LRAOK2   EQU      %                                                 *A03
     1318   01 0119A    3290227E              LW,9     ACTCC             CHK CC                          *A04
     1319   01 0119B    3190227D              CW,9     EXPCC             SAME AS EXPECTED                *A04
     1320   01 0119C    69301197              BNE      ER2               NO;REPORT ERROR                 *A04
     1321         01 0119D           CHKSS2   EQU      %                                                 *A03
     1322   01 0119D    70200392              LC       #SENSE            LONG LOOP                       *A03
     1323   01 0119E    6940118C              BCS,4    SETC1C2           YES                             *A03
     1324   01 0119F    680010B0              B        TST:CONT          EXIT                            *A03
     1325                            *                                                                   *A03
     1326                            *                                                                   *A03
     1327                            ****     TEST 3:- CHECKS THAT A TRAP TO X'4C' OCCURS                *A03
     1328                            ****              WHEN A PARITY ERROR IN OPERAND OF                 *A03
     1329                            ****              LRA INSTRUCTION.                                  *A03
     1330                            *                                                                   *A03
     1331         01 011A0           TST3LRA  EQU      %                                                 *A03
     1332   01 011A0    6AF01DA8              BAL,15   STSLRA                                            *A03
     1333   01 011A1    228011B6              LI,8     LRA3                                              *A04
     1334   01 011A2    358022D9              STW,8    TADDR             STORE TEST INST ADDR            *A04
     1335   01 011A3    328011B6              LW,8     LRA3                                              *A04
     1336   01 011A4    358022D8              STW,8    TINST             STORE TEST INST                 *A04
     1337   01 011A5    3280225F              LW,8     XPSD4CX                                           *A03
     1338   01 011A6    3580004C A            STW,8    X'4C'             STORE XPSD AT X'4C'             *A03
     1339         01 011A7           LRALOOP3 EQU      %                                                 *A03
     1340   01 011A7    22800000 A            LI,8     0                                                 *A03
     1341   01 011A8    358022BC              STW,8    TRAPFLG           CLEAR FLAG                      *A03
     1342   01 011A9    328022EA              LW,8     SIGMA8            SIGMA 8                         *A03
     1343   01 011AA    693011AC              BNEZ     %+2               YES                             *A03
     1344   01 011AB    6AF01EF9              BAL,15   MAPSELF           LOAD MAPS 1 TO 1                *A03
     1345   01 011AC    3290246A              LW,9     TESTPAGE                                          *A03
     1346   01 011AD    25900009 A            SLS,9    9                                                 *A03
     1347   01 011AE    3590229A              STW,9    PAGEADR           STORE VP ADDR                   *A03
     1348   01 011AF    B590229A              STW,9    *PAGEADR          STORE ITS ADDR                  *A03
     1349   01 011B0    02200020 A            LCI      2                 SET BAD PARITY                  *A03
     1350   01 011B1    AD80229A              LMS,8    *PAGEADR          IN LRA OPERAND                  *A03
     1351   01 011B2    32802476              LW,8     Y8                                                *A03
     1352   01 011B3    35802281              STW,8    C1C2              DEFINE C1C2 FOR WA              *A03
     1353   01 011B4    22800000 A            LI,8     0                 CLEAR REG USED IN LRA INST      *A04
     1354   01 011B5    70202281              LC       C1C2              LOAD CC                         *A04
     1355         01 011B6           LRA3     EQU      %                                                 *A04
     1356   01 011B6    2C80229A              LRA,8    PAGEADR           EXECUTE LRA                     *A04
     1357   01 011B7    70200392              LC       #SENSE            SS1 SET                         *A04
     1358   01 011B8    698011A7              BCS,8    LRALOOP3          SHORT LOOP IF SET               *A04
     1359   01 011B9    330022BC              MTW,0    TRAPFLG           TRAP FLAG SET                   *A03
     1360   01 011BA    692011BE              BCS,2    LRAOK4            YES                             *A03
     1361   01 011BB    6AF011C8     ER3      BAL,15   LRAER3            REPORT ERROR                    *A03
     1362   01 011BC    680011A7              B        LRALOOP3          RETURN HERE IF SS=1;SS3=0       *A03
     1363   01 011BD    680011C3              B        CHKSS2A           NORMAL RETURN                   *A03
     1364                            *                                                                   *A03
     1365         01 011BE           LRAOK4   EQU      %                                                 *A03
     1366   01 011BE    328011E8              LW,8     LRATRAP                                           *A03
     1367   01 011BF    4B802482              AND,8    X1FFFF            MASK ADDR BITS                  *A03
     1368   01 011C0    229011B6              LI,9     LRA3                                              *A04
     1369   01 011C1    31900008 A            CW,9     8                 TRAPPED AT LRA INST             *A03
     1370   01 011C2    693011BB              BCS,3    ER3               NO                              *A03
     1371         01 011C3           CHKSS2A  EQU      %                                                 *A03
     1372   01 011C3    70200392              LC       #SENSE            LONG                            *A03
     1373   01 011C4    694011A7              BCS,4    LRALOOP3          YES                             *A03
     1374   01 011C5    32802267              LW,8     GUID:4C           RESTORE GUIDE'S XPSD            *A03
     1375   01 011C6    3580004D A            STW,8    X'4D'                                             *A03
     1376   01 011C7    680010B0              B        TST:CONT                                          *A03
     1377                            *                                                                   *A03
     1378         01 011C8           LRAER3   EQU      %                                                 *A03
     1379   01 011C8    6AD01167              BAL,13   LRAERR                                            *A03
     1380   01 011C9    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     1381   01 011CA    32802253              LW,8     NOT                                               *A03
     1382   01 011CB    330022BC              MTW,0    TRAPFLG                                           *A03
     1383   01 011CC    682011CE              BCR,2    %+2                                               *A03
     1384   01 011CD    32802252              LW,8     DID                                               *A03
     1385   01 011CE    358029AC              STW,8    LRAMSG3+1                                         *A03
     1386   01 011CF    228011B6              LI,8     LRA3              GET LRA INST ADDR               *A04
     1387   01 011D0    6D000032 A            #HTECON  R8                                                *A03
            01 011D1    EA6003C3
            01 011D2    00000008 A
            01 011D3    6D000022 A
     1388   01 011D4    328C0001 A            LW,8     1,LINK                                            *A03
     1389   01 011D5    358029C0              STW,8    LRAMSG3A+5                                        *A03
     1390   01 011D6    6D000032 A            #HTECON  LRATRAP                                           *A03
            01 011D7    EA6003C3
            01 011D8    000011E8
            01 011D9    6D000022 A
     1391   01 011DA    328C0001 A            LW,8     1,LINK                                            *A03
     1392   01 011DB    358029C5              STW,8    LRAMSG3A+10                                       *A03
     1393   01 011DC    EA6003C5              #PRINT   LRAMSG3                                           *A03
            01 011DD    EA6003CD
            01 011DE    C000A6AC A
            01 011DF    EA6003C6
     1394   01 011E0    330022BC              MTW,0    TRAPFLG                                           *A03
     1395   01 011E1    68201D8F              BCR,2    COMMON                                            *A03
     1396   01 011E2    EA6003C5              #PRINT   LRAMSG3A                                          *A03
            01 011E3    EA6003CD
            01 011E4    C000A6EC A
            01 011E5    EA6003C6
     1397   01 011E6    68001D8F              B        COMMON                                            *A03
     1398                            *                                                                   *A03
     1399                            ****     ENTER HERE FOR MEMORY PARITY TRAP                          *A03
     1400                            ****     FOR THIS TEST.                                             *A03
     1401                            *                                                                   *A03
     1402                                     BOUND    8                                                 *A03
     1403   01 011E8    00000000 A   LRATRAP  DATA     0,0                                               *A03
            01 011E9    00000000 A
     1404   01 011EA    000011EC              DATA     %+2                                               *A03
     1405   01 011EB    07000000 A            DATA     X'07000000'                                       *A03
     1406   01 011EC    B590229A              STW,9    *PAGEADR          RESTORE CORRECT PARITY          *A03
     1407   01 011ED    022000C0 A            LCI      12                                                *A03
     1408   01 011EE    AD80229A              LMS,8    *PAGEADR          CLEAR MFI                       *A03
     1409   01 011EF    22800400 A            LI,8     X'400'                                            *A03
     1410   01 011F0    6D801200 A            WD,8     X'1200'                                           *A03
     1411   01 011F1    331022BC              MTW,1    TRAPFLG           SET FLAG                        *A03
     1412   01 011F2    0E1011E8              LPSD,1   LRATRAP           EXIT                            *A03
     1413                            *
     1414                            ****
     1415                            ****     TEST 5:- CHECKS THAT WHENEVER THE OPERAND                  *A03
     1416                            ****              IN A LRA INST IS WITHIN '0 TO F' THEN             *A03
     1417                            ****              CONDITION CODE = 1100.                            *A03
     1418                            ****
     1419                            *
     1420                            *
     1421         01 011F3           TST5LRA  EQU      %                 LRA TEST 5
     1422   01 011F3    6AF01DA8              BAL,R15  STSLRA            LRA STATUS
     1423   01 011F4    22801201              LI,8     LRA4                                              *A04
     1424   01 011F5    358022D9              STW,8    TADDR             STORE TEST INST ADDR            *A04
     1425   01 011F6    32801201              LW,8     LRA4                                              *A04
     1426   01 011F7    358022D8              STW,8    TINST             STORE TEST INST                 *A04
     1427   01 011F8    328022EA              LW,8     SIGMA8                                            *A01
     1428   01 011F9    693011FB              BNEZ     %+2               SKIP IF SIGMA 8                 *A01
     1429   01 011FA    6AF01EDA              BAL,15   ALMAPREG          LOAD ALL MAP REGS WITH 0'S
     1430   01 011FB    2280000A A            LI,8     X'A'                                              *A03
     1431   01 011FC    3580229A              STW,8    PAGEADR           STORE OPERAND                   *A03
     1432   01 011FD    32802476              LW,8     Y8
     1433   01 011FE    35802281              STW,8    C1C2
     1434         01 011FF           LRALOOP5 EQU      %
     1435   01 011FF    22800000 A            LI,8     0                 CLEAR REG USED IN LRA INST      *A04
     1436   01 01200    70202281              LC       C1C2              LOAD CC                         *A04
     1437         01 01201           LRA4     EQU      %                                                 *A04
     1438   01 01201    2C80229A              LRA,8    PAGEADR           EXECUTE LRA                     *A04
     1439   01 01202    7400227E              STCF     ACTCC             SAVE CC AFTER LRA               *A04
     1440   01 01203    70200392              LC       #SENSE            SS1 SET                         *A04
     1441   01 01204    698011FF              BCS,8    LRALOOP5          SHORT LOOP IF SET               *A04
     1442   01 01205    32802477              LW,8     YC                                                *A03
     1443   01 01206    3180227E              CW,8     ACTCC             C1 AND C2 SET                   *A03
     1444   01 01207    6830120A              BCR,3    TOK               YES                             *A03
     1445   01 01208    6AF0120D              BAL,R15  LRAER5            REPORT ERROR
     1446   01 01209    680011FF              B        LRALOOP5          RETURN HERE IF SS1=1;SS3=0      *A03
     1447         01 0120A           TOK      EQU      %                 NORMAL RETURN                   *A03
     1448   01 0120A    70200392              LC       #SENSE            CHECK FOR SS2. IF SET
     1449   01 0120B    694011FF              BCS,4    LRALOOP5          BRANCH FOR LONG LOOP
     1450   01 0120C    680010B0              B        TST:CONT                                          *A01
     1451                            *
     1452                            *
     1453         01 0120D           LRAER5   EQU      %
     1454   01 0120D    32802282              LW,8     XELRA1            FORMAT CONTROL WORDS
     1455   01 0120E    32902283              LW,9     XELRA2            FOR ERROR EXPLAINATION          *A03
     1456   01 0120F    22AFFFFE A            LI,10    -2                MESSAGES
     1457   01 01210    321003CE              LW,X1    #ERRTEXT%
     1458   01 01211    201FFFFE A            AI,X1    -2
     1459   01 01212    02200030 A            LCI      3
     1460   01 01213    AB800001 A            STM,8    *X1
     1461   01 01214    6AD01167              BAL,R13  LRAERR
     1462   01 01215    68001D95              B        SUPRESP           RETURN HERE IF SS4=1            *A03
     1463                            *                                   NORMAL RETURN                   *A03
     1464   01 01216    6D000032 A            #BTECON  ACTCC             CONVERT CC AFTER LRA INST       *A03
            01 01217    EA6003C4
            01 01218    0000227E
            01 01219    6D000022 A
     1465   01 0121A    328C0000 A            LW,8     0,LINK                                            *A03
     1466   01 0121B    358029D6              STW,8    LRAMSG5+16        STORE CONVERTED VALUE           *A03
     1467   01 0121C    EA6003C5              #PRINT   LRAMSG5
            01 0121D    EA6003CD
            01 0121E    C000A718 A
            01 0121F    EA6003C6
     1468   01 01220    68001D8F              B        COMMON
     1469                            *
     1470                            ****     TEST 6:- CHECKS THAT WHEN A MMC INSTRUCTION
     1471                            ****              IS EXECUTED TO LOAD MAP REGISTERS
     1472                            ****              AC OR WL REGISTERS ARE NOT AFFECTED.
     1473                            *
     1474         01 01221           TST6MMC  EQU      %
     1475   01 01221    6AF01DBB              BAL,15   STSMMC
     1476         01 01222           LOPT6    EQU      %
     1477   01 01222    6AF01EEA              BAL,15   ALLWLREG          LOAD ALL WL REG WITH 0'S
     1478   01 01223    6AF01EE2              BAL,15   ALLACREG          LOAD ALL AC REGS WITH 0'S
     1479   01 01224    22600008 A            LI,6     8                 LOAD MAP REG 2B WITH 2B
     1480   01 01225    2280002B A            LI,8     X'2B'             SO THAT WL REG 2B CAN BE
     1481   01 01226    3270247A              LW,7     Y010054           READ VIA LRA IF WL REG'S
     1482   01 01227    6F6A0000 A            MMC,6    5                 ARE AFFECTED WHEN MAP REG 1F IS WRITEN
     1483   01 01228    6AF01F30              BAL,15   MAP1F             LOAD MAP REG 1F WITH 1F
     1484   01 01229    70200392              LC       #SENSE
     1485   01 0122A    69801222              BCS,8    LOPT6             SHORT LOOP IF SS1 SET
     1486   01 0122B    6AF01F35              BAL,15   READREGS          READ MAP,AC AND WL REGS
     1487   01 0122C    32902448              LW,9     ACREAD            IF AC REG 2B = 00
     1488   01 0122D    68301232              BEZ      CHKWL1            AC REG NOT AFFECTED
     1489   01 0122E    32802256              LW,8     AC%
     1490   01 0122F    6AF01239     ER4      BAL,15   EMMC6             REPORT ERROR
     1491   01 01230    68001222              B        LOPT6             RETURN HERE IF SS1=1;SS3=0      *A03
     1492   01 01231    68001236              B        CHKLONG           NORMAL RETURN
     1493         01 01232           CHKWL1   EQU      %
     1494   01 01232    3290244A              LW,9     WLRED             IF WL REG 2B = 00
     1495   01 01233    68301236              BEZ      CHKLONG           WL REG NOT AFFECTED
     1496   01 01234    32802257              LW,8     WL%                                               *A03
     1497   01 01235    6800122F              B        ER4               REPORT ERROR                    *A03
     1498                            *
     1499         01 01236           CHKLONG  EQU      %
     1500   01 01236    70200392              LC       #SENSE
     1501   01 01237    69401222              BCS,4    LOPT6             LONG LOOP IF SS2 SET
     1502   01 01238    680010B0              B        TST:CONT                                          *A01
     1503                            *
     1504         01 01239           EMMC6    EQU      %
     1505   01 01239    35802B3E              STW,8    MMCX1+1
     1506   01 0123A    32202289              LW,2     BA:MHD1
     1507   01 0123B    3230228C              LW,3     BA:MMCX1
     1508         01 0123C           COMERR   EQU      %
     1509   01 0123C    6AD01AD5              BAL,13   ERRMMC            PRINT HEADING
     1510   01 0123D    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     1511   01 0123E    22100001 A            LI,X1    1
     1512   01 0123F    55221243              STH,2    PRNT1+2,X1
     1513   01 01240    55321247              STH,3    PRNT2+2,X1
     1514   01 01241    EA6003C5     PRNT1    #PRINT   MHD1,C1
            01 01242    EA6003CD
            01 01243    C100AC28 A
            01 01244    EA6003C6
     1515   01 01245    EA6003C5     PRNT2    #PRINT   MMCX1
            01 01246    EA6003CD
            01 01247    C000ACF4 A
            01 01248    EA6003C6
     1516   01 01249    68001D8F              B        COMMON
     1517                            *
     1518                            ****     TEST 7:- CHECKS THAT WHEN A MMC INSTRUCTION
     1519                            ****              IS EXECUTED TO LOAD AC REGISTERS
     1520                            ****              MAP OR WL REGISTERS ARE NOT AFFECTED.
     1521                            *
     1522         01 0124A           TST7MMC  EQU      %
     1523   01 0124A    6AF01DBB              BAL,15   STSMMC
     1524         01 0124B           LOPT7    EQU      %
     1525   01 0124B    6AF01EEA              BAL,15   ALLWLREG          LOAD ALL WL REGS WITH 0'S
     1526   01 0124C    6AF01F30              BAL,15   MAP1F             LOAD MAP REG 1F WITH 1F
     1527   01 0124D    22600008 A            LI,6     8                 LOAD 0'S IN MAP REG'S           *A04
     1528   01 0124E    22800000 A            LI,8     0                 X'10' AND X'11'                 *A04
     1529   01 0124F    3270247B              LW,7     Y01002                                            *A04
     1530   01 01250    6F6A0000 A            MMC,6    5                                                 *A04
     1531   01 01251    22600008 A            LI,6     8
     1532   01 01252    22800003 A            LI,8     3                 LOAD AC REGS 10-1F
     1533   01 01253    3270247B              LW,7     Y01002            REG 1F WITH 11;REST ALL 0'S
     1534   01 01254    6F640000 A            MMC,6    2                 LOAD AC REGS
     1535   01 01255    70200392              LC       #SENSE
     1536   01 01256    6980124B              BCS,8    LOPT7             SHORT LOOP IF SS1 SET
     1537   01 01257    6AF01F35              BAL,15   READREGS          READ MAP AND WL REGS
     1538   01 01258    329022A0              LW,9     MAPREAD           IF MAP REG 11=0000
     1539   01 01259    21900000 A            CI,9     0                                                 *A04
     1540   01 0125A    68301262              BCR,3    CHKWL2            MAP REG NOT AFFECTED            *A03
     1541   01 0125B    32802256              LW,8     AC%                                               *A03
     1542   01 0125C    35802B58              STW,8    MMCX2+9                                           *A03
     1543   01 0125D    3230228D              LW,3     BA:MMCX2                                          *A03
     1544   01 0125E    3220228A     ER5      LW,2     BA:MHD2                                           *A03
     1545   01 0125F    6AF0123C              BAL,15   COMERR            REPORT ERROR                    *A03
     1546   01 01260    6800124B              B        LOPT7             RETURN HERE IF SS1=1;SS3=0      *A03
     1547   01 01261    6800126A              B        CHKLONG1          NORMAL RETURN
     1548                            *
     1549         01 01262           CHKWL2   EQU      %
     1550   01 01262    3290244A              LW,9     WLRED             IF WL REG 1F=00
     1551   01 01263    6830126A              BEZ      CHKLONG1          WL REG NOT AFFECTED
     1552   01 01264    32802257              LW,8     WL%
     1553   01 01265    35802B62              STW,8    MMCX3+1
     1554   01 01266    32802256              LW,8     AC%
     1555   01 01267    35802B6A              STW,8    MMCX3+9
     1556   01 01268    3230228E              LW,3     BA:MMCX3
     1557   01 01269    6800125E              B        ER5
     1558                            *
     1559         01 0126A           CHKLONG1 EQU      %
     1560   01 0126A    70200392              LC       #SENSE
     1561   01 0126B    6940124B              BCS,4    LOPT7             LONG LOOP IF SS2 SET
     1562   01 0126C    680010B0              B        TST:CONT                                          *A01
     1563                            *
     1564                            *
     1565                            ****     TEST 8:- CHECKS THAT WHEN A MMC INSTRUCTION
     1566                            ****              IS EXECUTED TO LOAD WL REGISTERS
     1567                            ****              MAP OR AC REGISTERS ARE NOT AFFECTED.
     1568                            *
     1569         01 0126D           TST8MMC  EQU      %
     1570   01 0126D    6AF01DBB              BAL,15   STSMMC
     1571         01 0126E           LOPT8    EQU      %
     1572   01 0126E    6AF01EE2              BAL,15   ALLACREG          LOAD ALL AC REG WITH 0'S
     1573   01 0126F    6AF01F30              BAL,15   MAP1F             LOAD MAP REG 1F WITH 1F
     1574   01 01270    22600008 A            LI,6     8                 LOAD 0'S IN MAP REG'S           *A04
     1575   01 01271    22800000 A            LI,8     0                 X'10' AND X'11'                 *A04
     1576   01 01272    3270247B              LW,7     Y01002                                            *A04
     1577   01 01273    6F6A0000 A            MMC,6    5                                                 *A04
     1578   01 01274    22600008 A            LI,6     8
     1579   01 01275    22800003 A            LI,8     3                 LOAD WL REGS 10-1F
     1580   01 01276    3270247B              LW,7     Y01002            REG 1F WITH 11;REST WITH 0'S
     1581   01 01277    6F620000 A            MMC,6    1                 LOAD WL REGS
     1582   01 01278    70200392              LC       #SENSE
     1583   01 01279    6980126E              BCS,8    LOPT8             SHORT LOOP IF SS1 SET
     1584   01 0127A    6AF01F35              BAL,15   READREGS          READ MAP AND AC REGS
     1585   01 0127B    329022A0              LW,9     MAPREAD           IF MAP REG 11=0000
     1586   01 0127C    68301284              BEZ      CHKAC1            MAP REGS NOT AFFECTED
     1587   01 0127D    32802257              LW,8     WL%
     1588   01 0127E    35802B58              STW,8    MMCX2+9
     1589   01 0127F    3230228D              LW,3     BA:MMCX2
     1590   01 01280    3220228B     ER6      LW,2     BA:MHD3
     1591   01 01281    6AF0123C              BAL,15   COMERR            REPORT ERROR
     1592   01 01282    6800126E              B        LOPT8             RETURN HERE IF SS1=1;SS3=0
     1593   01 01283    6800128C              B        CHKLONG2          NORMAL RETURN
     1594                            *
     1595         01 01284           CHKAC1   EQU      %
     1596   01 01284    32902448              LW,9     ACREAD            IF AC REG 1F=00
     1597   01 01285    6830128C              BEZ      CHKLONG2          AC REGS NOT AFFECTED
     1598   01 01286    32802256              LW,8     AC%
     1599   01 01287    35802B62              STW,8    MMCX3+1
     1600   01 01288    32802257              LW,8     WL%
     1601   01 01289    35802B6A              STW,8    MMCX3+9
     1602   01 0128A    3230228E              LW,3     BA:MMCX3
     1603   01 0128B    68001280              B        ER6
     1604                            *
     1605         01 0128C           CHKLONG2 EQU      %
     1606   01 0128C    70200392              LC       #SENSE
     1607   01 0128D    6940126E              BCS,4    LOPT8             LONG LOOP IF SS2 SET
     1608   01 0128E    680010B0              B        TST:CONT                                          *A01
     1609                            *
     1610         01 0128F           TST9     EQU      %
     1611   01 0128F    680010B0              B        TST:CONT                                          *A01
     1612                            *
     1613                            *
     1614                            ****     CHECKS THAT BY USING 8 OPTIMUM MAP PATTERNS                *A02
     1615                            ****     MAP PARITY ERROR BIT RETURNED IN REGISTER OF LRA INST.     *A02
     1616                            ****     IS CORRECT.                                                *A02
     1617                            *
     1618         01 01290           TST10MF  EQU      %
     1619   01 01290    6AF01DAB              BAL,15   STSMAP
     1620   01 01291    6AF01EE2              BAL,15   ALLACREG          LOAD ALL AC REGS WITH 0'S
     1621   01 01292    6AF01EEA              BAL,15   ALLWLREG          LOAD ALL WL REGS WITH 0'S
     1622   01 01293    228012AA              LI,8     LRAMPE                                            *A04
     1623   01 01294    358022D9              STW,8    TADDR             STORE LRA INST ADDR             *A04
     1624   01 01295    328012AA              LW,8     LRAMPE                                            *A04
     1625   01 01296    358022D8              STW,8    TINST             STORE LRA INST                  *A04
     1626   01 01297    22100000 A            LI,X1    0                 RESET INDEX
     1627         01 01298           NXTMPE   EQU      %
     1628   01 01298    22600008 A            LI,6     8                 SET UP TO LOAD MAP PATTERN
     1629   01 01299    3282228F              LW,8     MPEPATT,X1        AS PER INDEX
     1630   01 0129A    3270247C              LW,7     Y01003C           WORD COUNT & CONTROL START
     1631   01 0129B    6F6A0000 A            MMC,6    5                 LOAD MAP REGS 1E AND 1F
     1632   01 0129C    2280001F A            LI,8     X'1F'                                             *A03
     1633   01 0129D    25800009 A            SLS,8    9                                                 *A03
     1634   01 0129E    3580229A              STW,8    PAGEADR           STORE VP ADDR                   *A03
     1635   01 0129F    3292228F              LW,9     MPEPATT,X1                                        *A04
     1636   01 012A0    25900009 A            SLS,9    9                                                 *A04
     1637   01 012A1    35902280              STW,9    EXPLRA            STORE EXP LRA REG CONTENTS      *A04
     1638   01 012A2    22800000 A            LI,8     0                                                 *A04
     1639   01 012A3    319003AA              CW,9     #MAXMEM           IS IT A NON-EXIST ADDR          *A04
     1640   01 012A4    682012A6              BLE      %+2               NO                              *A04
     1641   01 012A5    32802477              LW,8     YC                SET C1C2=11 FOR NEM             *A04
     1642   01 012A6    3580227D              STW,8    EXPCC             STORE EXP CC                    *A04
     1643   01 012A7    32802476              LW,8     Y8                                                *A04
     1644   01 012A8    35802281              STW,8    C1C2              DEFINE C1C2 FOR WRD ALIGNMENT   *A04
     1645         01 012A9           LOPT10   EQU      %
     1646   01 012A9    70202281              LC       C1C2              SET CC FOR WRD ALIGNMENT        *A04
     1647   01 012AA    2C80229A     LRAMPE   LRA,8    PAGEADR           READ MAP REG 1F;                *A03
     1648   01 012AB    7400227E              STCF     ACTCC             SAVE CC'S                       *A03
     1649   01 012AC    70200392              LC       #SENSE
     1650   01 012AD    69801298              BCS,8    NXTMPE            SHORT LOOP IF SS1 SET           *A04
     1651   01 012AE    3580227F              STW,8    ACTLRA            SAVE REG USED IN LRA INST       *A04
     1652   01 012AF    31802280              CW,8     EXPLRA            SAME AS EXPECTED                *A04
     1653   01 012B0    683012B9              BE       MPEOK             YES                             *A04
     1654   01 012B1    6AF012BD     MPE      BAL,15   ERMAPF            REPORT ERROR                    *A04
     1655   01 012B2    68001298              B        NXTMPE            RETURN HERE IF SS1=1;SS3=0      *A04
     1656                            *                                   NORMAL RETURN
     1657         01 012B3           INCRX1   EQU      %                                                 *A04
     1658   01 012B3    20100001 A            AI,X1    1                 INCR INDEX
     1659   01 012B4    21100008 A            CI,X1    8                 CHECK IF ALL PATTERNS TESTED
     1660   01 012B5    69101298              BL       NXTMPE            NO;LOAD NEXT PATTERN            *A02
     1661   01 012B6    70200392              LC       #SENSE
     1662   01 012B7    69401290              BCS,4    TST10MF           LONG LOOP IF SS2 SET            *A04
     1663   01 012B8    680010B0              B        TST:CONT                                          *A01
     1664                            *
     1665         01 012B9           MPEOK    EQU      %                                                 *A04
     1666   01 012B9    3280227E              LW,8     ACTCC             GET ACTUAL CC AFTER LRA         *A04
     1667   01 012BA    3180227D              CW,8     EXPCC             SAME AS EXP                     *A04
     1668   01 012BB    683012B3              BE       INCRX1            YES;GET NEXT PATTERN            *A04
     1669   01 012BC    680012B1              B        MPE               REPORT ERROR                    *A04
     1670                            *                                                                   *A04
     1671         01 012BD           ERMAPF   EQU      %
     1672   01 012BD    331022CF              MTW,1    ECMAP             UPDATE ERROR COUNTER
     1673   01 012BE    70200392              LC       #SENSE
     1674   01 012BF    69101D95              BCS,1    SUPRESP           SKIP ERR. OUTPUT IF SS4 SET
     1675   01 012C0    32800393              LW,8     #HDRFLG
     1676   01 012C1    318003F2              CW,8     TCR:NUM                                           *A02
     1677   01 012C2    68301145              BE       LRAER1X           SKIP HDG. OUTPUT IF FLAG SET    *A04
     1678   01 012C3    6AE01DA2              BAL,14   CONTEST#          CONVERT TEST #
     1679   01 012C4    5580286E              STH,8    MAPHEAD1+10       STORE TEST #                    *A04
     1680   01 012C5    EA6003C5              #PRINT   MAPHEAD1,C1       PRINT HEADING                   *A04
            01 012C6    EA6003CD
            01 012C7    C100A190 A
            01 012C8    EA6003C6
     1681   01 012C9    6AB01DBE              BAL,11   TSTINFOX          OUTPUT LRA INST INFO            *A04
     1682   01 012CA    68001145              B        LRAER1X                                           *A04
     1683         01 012CB           SKIPHDG1 EQU      %
     1684                            *
     1685                            *
     1686                            ****
     1687                            ****START MAP FUNCTIONAL TESTS HERE.
     1688                            ****THIS TEST DOES THE FOLLOWING.
     1689                            ****1. LOAD ALL 256 MAP REGISTERS WITH ZEROS.
     1690                            ****   THEN VIA A LRA INSTRUCTION READ THE MAP
     1691                            ****   BITS FOR EACH OF THE VIRTUAL PAGES AND
     1692                            ****   CHECK THAT THEY ARE ALL ZEROS.
     1693                            ****2. STARTING WITH VIRTUAL PAGE 0 LOAD A TEST
     1694                            ****   PATTERN OF X'1FFF' IN MAP REGISTER 0.
     1695                            ****   NOW READ THE MAP BITS VIA A LRA INST.
     1696                            ****   STARTING WITH VP 0.CHECK THAT TEST PATTERN
     1697                            ****   WAS LOADED CORRECTLY IN THE RIGHT MAP REG.
     1698                            ****   IF THE VP ADDR BEING USED IN LRA IS SAME AS
     1699                            ****   TEST VP ADDR THEN THE MAP BITS READ SHOULD
     1700                            ****   BE ALL ONES.OTHERWISE AN ERROR (ERMAP2).
     1701                            ****   IF THE TWO ADDRESSES ARE NOT THE SAME THEN
     1702                            ****   THE MAP BITS READ SHOULD BE ALL ZEROS.
     1703                            ****   OTHERWISE AN ERROR (ERMAP3).
     1704                            ****   IN THIS MANNER READ ALL THE MAP REGISTERS
     1705                            ****   TO MAKE SURE THAT THE CORRECT MAP REG. IS
     1706                            ****   ADDRESSED AND HAS THE CORRECT BIT PATTERN.
     1707                            ****   NOW LOAD THE TEST PATTERN IN THE NEXT MAP
     1708                            ****   REG. AND REPEAT THE ABOVE PROCESS.
     1709                            ****
     1710         01 012CB           T11MAPF  EQU      %                 START MAP TESTS
     1711   01 012CB    6AF01DAB              BAL,R15  STSMAP            MAP STATUS
     1712   01 012CC    6AF01EDA              BAL,R15  ALMAPREG          LOAD ALL MAP REG WITH 0'S
     1713   01 012CD    6AF01EE2              BAL,R15  ALLACREG          LOAD ALLAC REG WITH 07S
     1714   01 012CE    22800000 A            LI,8     0                 RESET TO ZERO
     1715   01 012CF    3580229E              STW,8    TESTVP            TEST VIRTUAL PAGE
     1716   01 012D0    3580229F              STW,8    READVP            READ VIRTUAL PAGE
     1717   01 012D1    358022A1              STW,8    MAPLOAD           STORE 0'S IN MAPLOAD
     1718         01 012D2           LOPT11   EQU      %                                                 *A04
     1719   01 012D2    6AF01EDA              BAL,15   ALMAPREG          LOAD ALL MAP REG'S WITH 0'S     *A04
     1720         01 012D3           MAPCHK1  EQU      %
     1721   01 012D3    3210229F              LW,1     READVP            SET UP READ VP ADDRESS
     1722   01 012D4    25100009 A            SLS,1    9                 IN BIT POSITION 15 TO 22 IN X1
     1723   01 012D5    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     1724   01 012D6    3510229A              STW,1    PAGEADR           STORE VP ADDR                   *A03
     1725   01 012D7    6AB012E9              BAL,11   DEFEXP            DEFINE EXP LRA REG CONTENTS     *A04
     1726   01 012D8    02200080 A            LCI      8                 SET CC FOR WRD ADR              *A04
     1727   01 012D9    2C80229A              LRA,8    PAGEADR           READ MAP REG                    *A04
     1728   01 012DA    7400227E              STCF     ACTCC             SAVE CC AFTER LRA               *A04
     1729   01 012DB    70200392              LC       #SENSE            IF SS1 SET                      *A04
     1730   01 012DC    698012D2              BCS,8    LOPT11            SHORT LOOP                      *A04
     1731   01 012DD    3580227F              STW,8    ACTLRA            STORE ACTUAL LRA REG CONTENT    *A04
     1732   01 012DE    31802280              CW,8     EXPLRA            SAME AS EXPECTED                *A04
     1733   01 012DF    683012E2              BE       LINK1             YES                             *A03
     1734   01 012E0    6AF01326              BAL,15   ERRMAP            REPORT ERROR                    *A03
     1735   01 012E1    680012D2              B        LOPT11            RETURN HERE IF SS1=1;SS3=0      *A04
     1736         01 012E2           LINK1    EQU      %                 NORMAL RETURN
     1737   01 012E2    3280229F              LW,8     READVP            IF READ VP
     1738   01 012E3    3180229C              CW,8     LASTPAGE          ADDRESS EQUALS 255              *A03
     1739   01 012E4    683012F5              BE       MAPFTST           START NEXT TEST
     1740   01 012E5    22800001 A            LI,8     1                 INCREMENT BY 1
     1741   01 012E6    6680229E              AWM,8    TESTVP            ADDRESS OF TEST VP
     1742   01 012E7    6680229F              AWM,8    READVP            ADDRESS OF READ VP
     1743   01 012E8    680012D3              B        MAPCHK1           CHECK NEXT VP
     1744                            *
     1745         01 012E9           DEFEXP   EQU      %                                                 *A04
     1746   01 012E9    329022A1              LW,9     MAPLOAD           GET MAP PATTERN                 *A04
     1747   01 012EA    32A0229E              LW,10    TESTVP                                            *A04
     1748   01 012EB    31A0229F              CW,10    READVP            SAME AS TEST VP                 *A04
     1749   01 012EC    683012EE              BE       %+2               YES                             *A04
     1750   01 012ED    22900000 A            LI,9     0                 DEFINE MAP PATTERN=0            *A04
     1751   01 012EE    25900009 A            SLS,9    9                 SET IT INTO BITS 10-22          *A04
     1752   01 012EF    20900010 A            AI,9     X'10'             ADD CROSSOVER BIAS              *A04
     1753   01 012F0    21900210 A            CI,9     X'210'            IS VIRTUAL ADR FOR PAG 0,1      *A04
     1754   01 012F1    692012F3              BG       %+2               NO;NO HOME SPACE BIAS BIT       *A04
     1755   01 012F2    49902474              OR,9     Y4                SET HSBB                        *A04
     1756   01 012F3    35902280              STW,9    EXPLRA            SAVE EXP LRA REG CONTENTS       *A04
     1757   01 012F4    E800000B A            B        *R11              EXIT                            *A04
     1758                            *                                                                   *A04
     1759         01 012F5           MAPFTST  EQU      %                 MAP FUNCTIONAL TEST
     1760   01 012F5    22800000 A            LI,8     0                 RESET TO ZERO
     1761   01 012F6    3580229E              STW,8    TESTVP            TEST VP
     1762   01 012F7    3580229F              STW,8    READVP            READ VP
     1763   01 012F8    32802468              LW,8     TPMAP             TEST MAP PATTERN
     1764   01 012F9    358022A1              STW,8    MAPLOAD                                           *A03
     1765   01 012FA    25800010 A            SLS,8    16
     1766   01 012FB    3580229D              STW,8    TESTPATN
     1767         01 012FC           LOADMAP  EQU      %
     1768   01 012FC    3280229D              LW,8     TESTPATN          SET UP MAP CONTROL IMAGE WORD
     1769   01 012FD    3270229E              LW,7     TESTVP            SET UP CONTROL START
     1770   01 012FE    6AB01EC3              BAL,R11  MMCMAP1
     1771         01 012FF           READMAP  EQU      %
     1772   01 012FF    3210229F              LW,1     READVP            SET UP READ VP ADDRESS
     1773   01 01300    25100009 A            SLS,1    9                 IN BIT POSITION 15 TO 22 OF X1
     1774   01 01301    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     1775   01 01302    3510229A              STW,1    PAGEADR           STORE VP ADDR                   *A03
     1776   01 01303    6AB012E9              BAL,11   DEFEXP            DEFINE EXP LRA REG CONTENTS     *A04
     1777   01 01304    02200080 A            LCI      8                 SET CC FOR WRD ADR              *A04
     1778   01 01305    2C80229A              LRA,8    PAGEADR           READ MAP REG                    *A04
     1779   01 01306    7400227E              STCF     ACTCC             SAVE CC AFTER LRA               *A04
     1780   01 01307    70200392              LC       #SENSE            IF SS1 SET                      *A04
     1781   01 01308    698012FC              BCS,8    LOADMAP           SHORT LOOP                      *A04
     1782   01 01309    3580227F              STW,8    ACTLRA            STORE ACTUAL LRA REG CONTENT    *A04
     1783   01 0130A    31802280              CW,8     EXPLRA            SAME AS EXPECTED                *A04
     1784   01 0130B    6830130F              BE       CONTINU1          TEST OK                         *A03
     1785   01 0130C    6AF01326     ER7      BAL,15   ERRMAP            REPORT ERROR                    *A03
     1786   01 0130D    680012FC              B        LOADMAP           RETURN HERE IF SS1=1;SS3=0      *A04
     1787   01 0130E    6800130F              B        CONTINU1          NORMAL RETURN
     1788                            *
     1789         01 0130F           CONTINU1 EQU      %                 CONTINUE
     1790   01 0130F    3280229F              LW,8     READVP
     1791   01 01310    3180229C              CW,8     LASTPAGE          IF READ VP ADDR EQUALS 255      *A03
     1792   01 01311    68301314              BE       LASTRVP1          THEN BRANCH
     1793   01 01312    3310229F              MTW,1    READVP            ADDRESS BY 1                    *A03
     1794   01 01313    680012FF              B        READMAP           READ MAP FOR NEXT VP
     1795                            *
     1796         01 01314           LASTRVP1 EQU      %                 READ VP ADDR=255;(X'FF')
     1797   01 01314    22800000 A            LI,8     0
     1798   01 01315    3580229F              STW,8    READVP            RESET READVP TO ZERO
     1799   01 01316    3290229E              LW,9     TESTVP
     1800   01 01317    3190229C              CW,9     LASTPAGE          IF TEST VP ADDR=255             *A03
     1801   01 01318    68301322              BE       LASTPAG1          THEN BRANCH
     1802   01 01319    22800000 A            LI,8     0                                                 *A03
     1803   01 0131A    3270229E              LW,7     TESTVP                                            *A03
     1804   01 0131B    4B702494              AND,7    XFE               CLEAR TEST VP MAP REG TO 0'S    *A03
     1805   01 0131C    6AB01EC3              BAL,11   MMCMAP1                                           *A03
     1806   01 0131D    3310229E              MTW,1    TESTVP            ADDRESS BY 1                    *A03
     1807   01 0131E    3280229D              LW,8     TESTPATN          LOAD TEST PATTERN IN R8
     1808   01 0131F    25800210 A            SCS,8    16                SHIFT LEFT 16 BITS              *A03
     1809   01 01320    3580229D              STW,8    TESTPATN          STORE TEST PATTERN
     1810   01 01321    680012FC              B        LOADMAP           LOAD MAP FOR NEXT TEST VP
     1811                            *
     1812         01 01322           LASTPAG1 EQU      %                 LAST VP ADDRESS TESTED
     1813   01 01322    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     1814   01 01323    694012CC              BCS,4    T11MAPF+1         LOOP ON TEST                    *A01
     1815   01 01324    6AF01EDA              BAL,R15  ALMAPREG          LOAD ALL MAP REG WITH 0'S
     1816   01 01325    680010B0              B        TST:CONT          START AC TESTS                  *A01
     1817                            *
     1818                            *
     1819         01 01326           ERRMAP   EQU      %                 MAP ERROR ROUTINE
     1820   01 01326    32802284              LW,8     XEMAPF
     1821   01 01327    B58003CE              STW,8    *#ERRTEXT%        SET UP CONTROL WORD
     1822   01 01328    331022CF              MTW,1    ECMAP             UPDATE ERROR COUNTER
     1823   01 01329    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     1824   01 0132A    69101D95              BCS,1    SUPRESP           SUPRESS PRINTOUT
     1825   01 0132B    32800393              LW,8     #HDRFLG           CHECK HEADING FLAG.IF SET
     1826   01 0132C    318003F2              CW,8     TCR:NUM                                           *A02
     1827   01 0132D    6830133C              BE       SUPHEAD1          SUPRESS HEADING PRINTOUT        *A02
     1828   01 0132E    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     1829   01 0132F    5580286E              STH,8    MAPHEAD1+10       STORE IN BUFFER
     1830   01 01330    EA6003C5              #PRINT   MAPHEAD1,C1       PRINT HEADING
            01 01331    EA6003CD
            01 01332    C100A190 A
            01 01333    EA6003C6
     1831   01 01334    EA6003C5              #PRINT   MAPHEAD2,C1       PRINT HEADING
            01 01335    EA6003CD
            01 01336    C100A1BC A
            01 01337    EA6003C6
     1832   01 01338    EA6003C5              #PRINT   MAPHEAD3          PRINT HEADING
            01 01339    EA6003CD
            01 0133A    C000A1E8 A
            01 0133B    EA6003C6
     1833         01 0133C           SUPHEAD1 EQU      %
     1834   01 0133C    6AB01E6A              BAL,R11  GETVPAD           CONVERT TEST & READ VP ADDRS
     1835   01 0133D    6D000032 A            #HTECON  EXPLRA            CONVERT MAP LOADED              *A04
            01 0133E    EA6003C3
            01 0133F    00002280
            01 01340    6D000022 A
     1836   01 01341    2A8C0000 A            LM,8     0,LINK                                            *A04
     1837   01 01342    02200020 A            LCI      2                                                 *A04
     1838   01 01343    2B80288D              STM,8    MAPMSG1+7         STORE MAP LOADED                *A04
     1839   01 01344    6D000032 A            #HTECON  ACTLRA            CONVERT MAP READ                *A04
            01 01345    EA6003C3
            01 01346    0000227F
            01 01347    6D000022 A
     1840   01 01348    2A8C0000 A            LM,8     0,LINK                                            *A04
     1841   01 01349    02200020 A            LCI      2                                                 *A04
     1842   01 0134A    2B802890              STM,8    MAPMSG1+10        STORE MAP READ                  *A04
     1843   01 0134B    EA6003C5              #PRINT   MAPMSG1,C1        PRINT ERROR MESSAGE LINE
            01 0134C    EA6003CD
            01 0134D    C100A218 A
            01 0134E    EA6003C6
     1844   01 0134F    68001D8F              B        COMMON
     1845                            *
     1846                            ****
     1847                            ****START OF ACCESS CONTROL TESTS.
     1848                            ****THESE TESTS ARE STRUCTURED IN EXACTLY
     1849                            ****THE SAME WAY AS THE MAP TESTS. THE LABELS
     1850                            ****OF COURSE ARE DIFFERENT.
     1851                            ****
     1852         01 01350           TST12ACF EQU      %                 INITIALISATION
     1853   01 01350    6AF01DAE              BAL,R15  STSAC             AC STATUS
     1854   01 01351    6AF01EDA              BAL,15   ALMAPREG          LOAD ALL MAP REG WITH 0'S       *A04
     1855   01 01352    22800000 A            LI,8     0                 RESET TO 0
     1856   01 01353    3580229E              STW,8    TESTVP            TEST VP
     1857   01 01354    3580229F              STW,8    READVP            READ VP
     1858   01 01355    35802449              STW,8    ACLOAD            STORE AC PATTERN
     1859         01 01356           LOPT12   EQU      %                                                 *A04
     1860   01 01356    6AF01EE2              BAL,15   ALLACREG          LOAD ALL AC REG WITH 0'S        *A04
     1861         01 01357           ACCHK1   EQU      %
     1862   01 01357    3210229F              LW,1     READVP            SET UP READ VP ADDRESS
     1863   01 01358    25100009 A            SLS,1    9                 IN BIT POSITION 15 TO 22 OF X1
     1864   01 01359    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     1865   01 0135A    3510229A              STW,1    PAGEADR           STORE VP ADDR                   *A03
     1866   01 0135B    02200080 A            LCI      8                 SET CC FOR WRD ADR              *A04
     1867   01 0135C    2C80229A              LRA,8    PAGEADR           READ AC  REG                    *A04
     1868   01 0135D    7400227E              STCF     ACTCC             SAVE CC AFTER LRA               *A04
     1869   01 0135E    70200392              LC       #SENSE            IF SS1 SET                      *A04
     1870   01 0135F    69801356              BCS,8    LOPT12            SHORT LOOP                      *A04
     1871   01 01360    3290227E              LW,9     ACTCC             CHECK IF AC READ                *A03
     1872   01 01361    25900204 A            SCS,9    4                                                 *A03
     1873   01 01362    4B902472              AND,9    X03                                               *A03
     1874   01 01363    35902448              STW,9    ACREAD            SAVE AC BITS READ               *A03
     1875   01 01364    21900000 A            CI,9     0                 AC BITS READ =00                *A03
     1876   01 01365    68301368              BE       LINK2             YES                             *A03
     1877   01 01366    6AF013A6              BAL,15   ERRAC             REPORT ERROR                    *A03
     1878   01 01367    68001356              B        LOPT12            RETURN HERE IF SS1=1;SS3=0      *A04
     1879         01 01368           LINK2    EQU      %                 NORMAL RETURN
     1880   01 01368    3280229F              LW,8     READVP            IF READ VP
     1881   01 01369    3180229C              CW,8     LASTPAGE          ADDRESS EQUALS 255              *A03
     1882   01 0136A    6830136F              BE       ACFTST            START NEXT TEST
     1883   01 0136B    22100001 A            LI,1     1                 INCREMENT BY 1
     1884   01 0136C    6610229E              AWM,1    TESTVP            ADDRESS OF TEST VP
     1885   01 0136D    6610229F              AWM,1    READVP            ADDRESS OF READ VP
     1886   01 0136E    68001357              B        ACCHK1            CHECK NEXT VP
     1887                            *
     1888         01 0136F           ACFTST   EQU      %                 AC FUNCTIONAL TEST
     1889   01 0136F    22800000 A            LI,8     0                 RESET TO 0
     1890   01 01370    3580229E              STW,8    TESTVP            TEST VP ADDR
     1891   01 01371    3580229F              STW,8    READVP            READ VP ADDR
     1892   01 01372    32802477              LW,8     YC                INITIALISE VALUE OF
     1893   01 01373    3580229D              STW,8    TESTPATN          TEST PATTERN
     1894         01 01374           LOADAC   EQU      %
     1895   01 01374    3280229D              LW,8     TESTPATN          SET UP AC CONTROL IMAGE WORD
     1896   01 01375    3270229E              LW,7     TESTVP            SET UP CONTROL START
     1897   01 01376    6AB01F0B              BAL,R11  MMCAC1
     1898         01 01377           READAC   EQU      %
     1899   01 01377    3210229F              LW,1     READVP            SET UP READ VP ADDRESS
     1900   01 01378    25100009 A            SLS,1    9                 IN BITS 15 TO 22 OF X1
     1901   01 01379    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     1902   01 0137A    3510229A              STW,1    PAGEADR           STORE VP ADDR                   *A03
     1903   01 0137B    02200080 A            LCI      8                 SET CC FOR WRD ADR              *A04
     1904   01 0137C    2C80229A              LRA,8    PAGEADR           READ AC  REG                    *A04
     1905   01 0137D    7400227E              STCF     ACTCC             SAVE CC AFTER LRA               *A04
     1906   01 0137E    70200392              LC       #SENSE            IF SS1 SET                      *A04
     1907   01 0137F    69801374              BCS,8    LOADAC            SHORT LOOP                      *A04
     1908   01 01380    3290227E              LW,9     ACTCC             CHECK IF AC READ                *A03
     1909   01 01381    25900204 A            SCS,9    4                                                 *A03
     1910   01 01382    4B902472              AND,9    X03                                               *A03
     1911   01 01383    35902448              STW,9    ACREAD            SAVE AC BITS READ               *A03
     1912   01 01384    22800000 A            LI,8     0                 DEFINE EXP AC=00                *A04
     1913   01 01385    32A0229F              LW,10    READVP            CHECK IF READ VP ADDRESS        *A03
     1914   01 01386    31A0229E              CW,10    TESTVP            EQUALS TEST VP ADDRESS          *A03
     1915   01 01387    69301389              BNE      %+2               BRANCH IF NOT                   *A04
     1916   01 01388    22800003 A            LI,8     3                 DEFINE EXP AC=11                *A04
     1917   01 01389    35802449              STW,8    ACLOAD            STORE EXP AC BITS               *A04
     1918   01 0138A    31802448              CW,8     ACREAD            IF SAME AS EXPECTED             *A04
     1919   01 0138B    6830138F              BE       CONTINU2          TEST OK                         *A03
     1920   01 0138C    6AF013A6     ER8      BAL,15   ERRAC             REPORT ERROR                    *A03
     1921   01 0138D    68001374              B        LOADAC            RETURN HERE IF SS1=1;SS3=0      *A04
     1922   01 0138E    6800138F              B        CONTINU2          NORMAL RETURN
     1923                            *
     1924         01 0138F           CONTINU2 EQU      %
     1925   01 0138F    3280229F              LW,8     READVP
     1926   01 01390    3180229C              CW,8     LASTPAGE          IF READ VP ADDR EQUALS 255      *A03
     1927   01 01391    68301394              BE       LASTRVP2          THEN BRANCH
     1928   01 01392    3310229F              MTW,1    READVP            ADDRESS BY 1                    *A03
     1929   01 01393    68001377              B        READAC            READ AC FOR NEXT VP
     1930                            *
     1931                            *
     1932         01 01394           LASTRVP2 EQU      %                 READ VP ADDR-255;(X'FF')
     1933   01 01394    22800000 A            LI,8     0
     1934   01 01395    3580229F              STW,8    READVP            RESET READ VP ADDR TO 0
     1935   01 01396    3290229E              LW,9     TESTVP
     1936   01 01397    3190229C              CW,9     LASTPAGE          IF TEST VP ADDR=255             *A03
     1937   01 01398    683013A2              BE       LASTPAG2          THEN BRANCH
     1938   01 01399    22800000 A            LI,8     0                                                 *A03
     1939   01 0139A    3270229E              LW,7     TESTVP                                            *A03
     1940   01 0139B    4B80248F              AND,8    XF0               RESET AC BITS FOR TEST VP       *A03
     1941   01 0139C    6AB01F0B              BAL,11   MMCAC1                                            *A03
     1942   01 0139D    3310229E              MTW,1    TESTVP            ADDRESS BY 1                    *A03
     1943   01 0139E    3280229D              LW,8     TESTPATN          LOAD TEST PATTERN IN R8
     1944   01 0139F    2580027E A            SCS,8    -2                SHIFT RIGHT 2 BITS              *A03
     1945   01 013A0    3580229D              STW,8    TESTPATN          STORE TEST PATTERN
     1946   01 013A1    68001374              B        LOADAC            LOAD AC FOR NEXT VP
     1947                            *
     1948         01 013A2           LASTPAG2 EQU      %                 LAST VP ADDRESS TESTED
     1949   01 013A2    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     1950   01 013A3    69401351              BCS,4    TST12ACF+1        LOOP ON TEST                    *A01
     1951   01 013A4    6AF01EE2              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     1952   01 013A5    680010B0              B        TST:CONT          START MAP OPERATIONAL TEST      *A01
     1953                            *
     1954                            *
     1955         01 013A6           ERRAC    EQU      %
     1956   01 013A6    32802285              LW,8     XEACF
     1957   01 013A7    B58003CE              STW,8    *#ERRTEXT%        SET UP CONTROL WORD
     1958   01 013A8    331022D0              MTW,1    ECAC              UPDATE ERROR COUNTER
     1959   01 013A9    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     1960   01 013AA    69101D95              BCS,1    SUPRESP           SUPRESS PRINTOUT
     1961   01 013AB    32800393              LW,8     #HDRFLG           CHECK FOR HEADING FLAG.IF SET
     1962   01 013AC    318003F2              CW,8     TCR:NUM                                           *A02
     1963   01 013AD    683013BC              BE       SUPHEAD2          SUPRESS HEADING PRINTOUT        *A02
     1964   01 013AE    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     1965   01 013AF    5580289E              STH,8    ACHEAD1+12        STORE IN BUFFER
     1966   01 013B0    EA6003C5              #PRINT   ACHEAD1,C1        PRINT HEADING
            01 013B1    EA6003CD
            01 013B2    C100A248 A
            01 013B3    EA6003C6
     1967   01 013B4    EA6003C5              #PRINT   ACHEAD2,C1        PRINT HEADING
            01 013B5    EA6003CD
            01 013B6    C100A27C A
            01 013B7    EA6003C6
     1968   01 013B8    EA6003C5              #PRINT   ACHEAD3           PRINT HEADING
            01 013B9    EA6003CD
            01 013BA    C000A2A8 A
            01 013BB    EA6003C6
     1969         01 013BC           SUPHEAD2 EQU      %
     1970   01 013BC    6AB01E6A              BAL,R11  GETVPAD
     1971   01 013BD    6AB01E7D              BAL,R11  GETAC             CONVERT AC BITS READ AND LOADED
     1972   01 013BE    3580288D              STW,8    ACMSG1+7          STORE AC LOADED
     1973   01 013BF    3590288F              STW,9    ACMSG1+9          STORE AC READ
     1974   01 013C0    EA6003C5              #PRINT   ACMSG1,C1         PRINT ERROR LINE
            01 013C1    EA6003CD
            01 013C2    C100A218 A
            01 013C3    EA6003C6
     1975   01 013C4    68001D8F              B        COMMON
     1976                            *
     1977                            *
     1978                            *
     1979                            *
     1980                            ****     TWO TEST INSTRUCTIONS ARE EXECUTED IN
     1981                            ****     MAPPED-SLAVE MODE TO CHECK THAT MAP IS
     1982                            ****     OPERATING CORRECTLY.THESE TEST INSTRUCTIONS
     1983                            ****     ARE EXECUTED FROM THE 'TINSTP' AND THE PAGE
     1984                            ****     BEING TESTED IS DEFINED BY 'TESTPAGE'.MAP REG
     1985                            ****     AS PER 'TINSTP' & 'TESTPAGE' ARE LOADED SUCH
     1986                            ****     THAT 'TINSTP' MAPS TO ITSELF AND 'TESTPAGE'
     1987                            ****     MAPS TO 'TINSTP'.THIS IS TRUE FOR ALL MAP
     1988                            ****     OPERATIONAL TESTS.
     1989                            ****     'TINSTP'=1E;'TESTPAGE'=1F UNLESS CHANGED BY USER(PARAM. T)
     1990                            *
     1991         01 013C5           T13MAPOP  EQU     %
     1992   01 013C5    6AF01DAB              BAL,R15  STSMAP            MAP STATUS
     1993   01 013C6    6AF01EDA              BAL,R15  ALMAPREG          LOAD ALL MAP REG WITH 0'S
     1994   01 013C7    6AF01EE2              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     1995   01 013C8    22800000 A            LI,8     0
     1996   01 013C9    358022A2              STW,8    TPAC              SAVE TEST PAGE AC BITS
     1997         01 013CA           MOPLOP1  EQU      %
     1998   01 013CA    329022EC              LW,9     LWTIP
     1999   01 013CB    22800000 A            LI,8     0
     2000   01 013CC    6AF01E97              BAL,R15  SETMAP            LOAD MAP REG FOR TEST PAGE
     2001   01 013CD    6AF01ED2              BAL,R15  SETLPSD           SET UP LPSD
     2002   01 013CE    358013E2              STW,8    LPSDMOP
     2003   01 013CF    32802469              LW,8     TINSTP            COMPUTE MAPPED INDIRECT ADDR
     2004   01 013D0    25800009 A            SLS,8    9                 USED IN STW TEST INST
     2005   01 013D1    227001FF A            LI,7     X'1FF'
     2006   01 013D2    B5700008 A            STW,R7   *R8               STORE ABOVE VALUE
     2007   01 013D3    3280246A              LW,8     TESTPAGE
     2008   01 013D4    25800009 A            SLS,8    9
     2009   01 013D5    49802481              OR,8     YB532             STW,R3  *00000000
     2010   01 013D6    35801437              STW,8    MPOPRT+1          STORE STW INST
     2011   01 013D7    6AF01E8C              BAL,R15  SETINST           SET UP TEST INSTRUCTIONS
     2012   01 013D8    03001436              GEN,8,2,22  3,0,MPOPRT
     2013         01 013D9           MAPOPT   EQU      %                                                 *A03
     2014   01 013D9    32802469              LW,8     TINSTP
     2015   01 013DA    25800009 A            SLS,8    9
     2016   01 013DB    208001FF A            AI,8     X'1FF'
     2017   01 013DC    358022F2              STW,8    RESULTAT
     2018   01 013DD    223FFFFF A            LI,3     -1
     2019   01 013DE    B53022F2              STW,3    *RESULTAT         INITIALISE TEST STORE LOC.
     2020   01 013DF    3210246A              LW,1     TESTPAGE          LOAD TEST PAGE ADDR(VIRTUAL)
     2021   01 013E0    25100009 A            SLS,1    9                 IN BIT 15-22 OF X1
     2022   01 013E1    0E0013E2              LPSD,0   LPSDMOP
     2023                                     BOUND    8
     2024   01 013E2    00C03DF8 A   LPSDMOP  DATA     X'00C03DF8'       TINSTP '1E' MAPS TO ITSELF
     2025   01 013E3    00000000 A            DATA     0
     2026                            *
     2027                            *
     2028                            *************************************************************
     2029                            *************************************************************
     2030                            ****     ENTER HERE AFTER EXECUTING CAL1 INST.
     2031                            ****     AT THE END OF TEST INSTS. AT X'3FF0'
     2032                            ****     TEST INST AT X'3FF0' IF TEST PAGE IS 1F.
     2033                            *************************************************************
     2034                            *************************************************************
     2035                            *
     2036                            *
     2037         01 013E4           MAPCAL1  EQU      %
     2038   01 013E4    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2039   01 013E5    698013D9              BCS,8    MAPOPT            BRANCH FOR SHORT LOOP
     2040   01 013E6    31301436              CW,R3    MPOPRT            IF R3 CONTAINS THE TEST INST
     2041   01 013E7    683013ED              BE       TOK1              THEN TEST OK                    *A03
     2042   01 013E8    353022AE              STW,3    ACTDATA           SAVE ACTUAL DATA                *A03
     2043   01 013E9    32801436              LW,8     MPOPRT                                            *A03
     2044   01 013EA    358022AD              STW,8    EXPDATA           SAVE EXPECTED DATA              *A03
     2045   01 013EB    6AF013F7              BAL,R15  ERMAPOP1          REPORT ERROR                    *A03
     2046   01 013EC    680013D9              B        MAPOPT            RETURN HERE IF SS1=1;SS3=0      *A03
     2047                            *                                   NORMAL RETURN
     2048   01 013ED    B13022F2     TOK1     CW,R3    *RESULTAT         IF CONTENTS OF R3 STORED CORRECTLY
     2049   01 013EE    683013F4              BE       TOK2              AT X'3DFF' THEN TEST OK         *A03
     2050   01 013EF    353022AD              STW,3    EXPDATA           SAVE EXP DATA                   *A03
     2051   01 013F0    B28022F2              LW,8     *RESULTAT                                         *A03
     2052   01 013F1    358022AE              STW,8    ACTDATA           SAVE ACTUAL DATA                *A03
     2053   01 013F2    6AF01427              BAL,R15  ERMAPOP2          REPORT ERROR                    *A03
     2054   01 013F3    680013D9              B        MAPOPT            RETURN HERE IF SS1=1;SS3=0      *A03
     2055                            *                                   NORMAL RETURN
     2056   01 013F4    70200392     TOK2     LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     2057   01 013F5    694013CA              BCS,4    MOPLOP1           BRANCH FOR LONG LOOP
     2058   01 013F6    680010B0              B        TST:CONT          START AC OPERATIONAL TEST       *A01
     2059                            *
     2060                            *
     2061         01 013F7           ERMAPOP1 EQU      %
     2062   01 013F7    6AD01417              BAL,R13  ERRMAPOP
     2063   01 013F8    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     2064   01 013F9    32801436              LW,8     MPOPRT            NORMAL RETURN
     2065   01 013FA    358022D8              STW,8    TINST             STORE TEST INST
     2066   01 013FB    328022F0              LW,8     MAPEDADR
     2067   01 013FC    358022D9              STW,8    TADDR             STORE MAPPED ADDR
     2068   01 013FD    6AB01DD7     XERMAP1  BAL,R11  TSTINFO2          GET TEST INST AND ADDRESS       *A03
     2069   01 013FE    02200020 A            LCI      2
     2070   01 013FF    2B8028EF              STM,8    MAPMSG3+6         STORE MAPPED ADDRESS
     2071   01 01400    EA6003C5              #PRINT   MAPMSG3                                           *A03
            01 01401    EA6003CD
            01 01402    C000A3A4 A
            01 01403    EA6003C6
     2072   01 01404    6D000032 A   XERMAPOP #HTECON  EXPDATA           CONVERT EXPDATA                 *A03
            01 01405    EA6003C3
            01 01406    000022AD
            01 01407    6D000022 A
     2073   01 01408    2A8C0000 A            LM,8     0,LINK
     2074   01 01409    02200020 A            LCI      2
     2075   01 0140A    2B8028FC              STM,8    MAPMSG4+5         STORE EXP DATA
     2076   01 0140B    6D000032 A            #HTECON  ACTDATA           CONVERT ACTUAL DATA             *A03
            01 0140C    EA6003C3
            01 0140D    000022AE
            01 0140E    6D000022 A
     2077   01 0140F    2A8C0000 A            LM,8     0,LINK
     2078   01 01410    02200020 A            LCI      2
     2079   01 01411    2B802902              STM,8    MAPMSG4+11
     2080   01 01412    EA6003C5              #PRINT   MAPMSG4
            01 01413    EA6003CD
            01 01414    C000A3DC A
            01 01415    EA6003C6
     2081   01 01416    68001D8F              B        COMMON
     2082                            *
     2083                            *
     2084         01 01417           ERRMAPOP EQU      %
     2085   01 01417    331022CF              MTW,1    ECMAP             UPDATE ERROR COUNTER
     2086   01 01418    22800000 A            LI,8     0
     2087   01 01419    358022A2              STW,8    TPAC              STORE TEST PAGE AC
     2088   01 0141A    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     2089   01 0141B    E910000D A            BCS,1    *R13              SUPRESS PRINTOUT                *A03
     2090   01 0141C    3310000D A            MTW,1    R13               INCR RETURN ADDR                *A03
     2091   01 0141D    32800393              LW,8     #HDRFLG
     2092   01 0141E    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #              *A02
     2093   01 0141F    E830000D A            BE       *R13              SKIP HEADING OUTPUT             *A02
     2094   01 01420    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     2095   01 01421    558028D6              STH,8    MAPOPHD1+10       STORE IN BUFFER
     2096   01 01422    EA6003C5              #PRINT   MAPOPHD1,C1
            01 01423    EA6003CD
            01 01424    C100A330 A
            01 01425    EA6003C6
     2097   01 01426    E800000D A            B        *R13
     2098                            *
     2099                            *
     2100                            *
     2101         01 01427           ERMAPOP2 EQU      %
     2102   01 01427    6AD01417              BAL,R13  ERRMAPOP
     2103   01 01428    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     2104   01 01429    32801437              LW,8     MPOPRT+1          NORMAL RETURN
     2105   01 0142A    358022D8              STW,8    TINST
     2106   01 0142B    328022F2              LW,8     RESULTAT                                          *A03
     2107   01 0142C    358022D9              STW,8    TADDR
     2108   01 0142D    6AB01DD7              BAL,R11  TSTINFO2          GET TEST INST AND ADDRESS
     2109   01 0142E    02200020 A            LCI      2
     2110   01 0142F    2B802912              STM,8    MAPMSG5+14        STORE MAPPED ADDRESS
     2111   01 01430    EA6003C5              #PRINT   MAPMSG5                                           *A03
            01 01431    EA6003CD
            01 01432    C000A410 A
            01 01433    EA6003C6
     2112   01 01434    68001404              B        XERMAPOP                                          *A03
     2113                            *
     2114                                     BOUND    8
     2115   01 01436    323201F8 A   MPOPRT   LW,3     X'1F8',X1         X1 HAS TESPAGE ADDR(BITS15-22)
     2116   01 01437    B5323E00 A            STW,R3   *X'3E00',X1
     2117   01 01438    04000000 A            CAL1,0   0
     2118                            *
     2119                            *
     2120                            ****     FOUR TEST INSTRUCTIONS ARE EXECUTED IN
     2121                            ****     MAPPED-SLAVE MODE TO CHECK THAT ACCESS CONTROL
     2122                            ****     LOGIC IS OPERATING CORRECTLY.TEST INSTRUCTIONS
     2123                            ****     ARE EXECUTED FROM 'TINSTP' PAGE TO CHECK OUT THE
     2124                            ****     ACCESS CONTROL LOGIC OPERATION FOR AC=11,10,01 & 00
     2125                            ****     FOR THE TESTPAGE.FOR ALL ACCESS CONTROL OPERATIONAL
     2126                            ****     TESTS IN MAPPED-SLAVE MODE 'TINSTP' AND 'TESTPAGE'
     2127                            ****     MAP TO THEMSELVES.
     2128                            ****     'TINSTP'=1E;'TESTPAGE'=1F UNLESS CHANGED BY USER(PARAM. T)
     2129                            *
     2130         01 01439           TST14ACOP EQU     %
     2131   01 01439    6AF01DAE              BAL,R15  STSAC             AC STATUS
     2132   01 0143A    22800003 A            LI,8     3
     2133   01 0143B    35802449              STW,8    ACLOAD            INITIALLY SET TEST AC BITS TO 11
     2134   01 0143C    329022EF              LW,9     LWTP
     2135   01 0143D    6AF01E97              BAL,R15  SETMAP            SET UP REGS FOR THIS TEST
     2136   01 0143E    6AF01ED2              BAL,R15  SETLPSD           SET UP LPSD TO INVOK SLAV/MAP MODE
     2137   01 0143F    35801454              STW,8    LPSDACOP          STORE PSW1
     2138   01 01440    6AF01E8C              BAL,R15  SETINST           SET UP TEST INSTRS.
     2139   01 01441    05001496              GEN,8,2,22  5,0,ACOPT      IN TEST INST PAGE
     2140   01 01442    3280246A              LW,8     TESTPAGE          COMPUTE ADDR FROM WHERE INST
     2141   01 01443    25800009 A            SLS,8    9                 WILL BE ACCESSED WHILE TESTING
     2142   01 01444    208001FF A            AI,8     X'1FF'            AC=10 FOR THE TEST PAGE
     2143   01 01445    358022A6              STW,8    STOREAT           SAVE ADDR
     2144   01 01446    208FFFFF A            AI,8     -1                COMPUTE TEST LOCATION FOR
     2145   01 01447    358022F2              STW,8    RESULTAT          FOR WRITE TEST WHEN AC=01
     2146   01 01448    328022F0              LW,8     MAPEDADR          COMPUTE BRANCH INST TO BE
     2147   01 01449    20800002 A            AI,8     2                 STORED AT ADDR IN STOREAT
     2148   01 0144A    308022A5              AW,8     HEX68             WHICH WILL RETURN PROGRAM TO
     2149   01 0144B    B58022A6              STW,8    *STOREAT          TINST #2 WHEN TESTING AC =01
     2150   01 0144C    22D00000 A   NEXTAC   LI,13    0                                                 *A02
     2151   01 0144D    6AF01F02              BAL,R15  SETAC             LOAD AC BITS FOR TEST PAGE
     2152         01 0144E           ACOPLOP  EQU      %                                                 *A03
     2153   01 0144E    3210246A              LW,X1    TESTPAGE          SET TEST VP ADDR IN
     2154   01 0144F    25100009 A            SLS,X1   9                 BITS 15-22 OF X1
     2155   01 01450    229FFFFF A            LI,9     -1                INIT TEST LOC. FOR WRITE TEST
     2156   01 01451    B59022F2              STW,9    *RESULTAT
     2157   01 01452    0E001454              LPSD,0   LPSDACOP
     2158                                     BOUND    8
     2159   01 01454    00C03DF8 A   LPSDACOP DATA     X'00C03DF8'       PAGE 1E MAPS TO ITSELF
     2160   01 01455    00000000 A            DATA     0
     2161                            *
     2162                            *************************************************************
     2163                            *************************************************************
     2164                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2165                            ****     FOR THIS TEST.
     2166                            *************************************************************
     2167                            *************************************************************
     2168                            *
     2169         01 01456           ACMEMPR  EQU      %
     2170   01 01456    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2171   01 01457    6980144E              BCS,8    ACOPLOP           BRANCH FOR SHORT LOOP
     2172   01 01458    32C021AC              LW,12    TRAP40
     2173   01 01459    4BC02472              AND,12   X03
     2174   01 0145A    48C02472     ANLCNT   EOR,12   X03               AC TEST PATTERN INTERPRETED.
     2175   01 0145B    35C02448              STW,12   ACREAD
     2176   01 0145C    31C02449              CW,12    ACLOAD            IF PATTERN READ= PATTERN STORED
     2177   01 0145D    68301465              BE       WRTABRT           TEST OK.CHECK WRITE ABORT LOGIC
     2178   01 0145E    6AB01E7D              BAL,R11  GETAC             GET AC LOADED & READ            *A03
     2179   01 0145F    35802938              STW,8    ACMSG2+6          STORE AC LOADED                 *A03
     2180   01 01460    3590293B              STW,9    ACMSG2+9          STORE AC READ                   *A03
     2181   01 01461    22802932              LI,8     ACMSG2            LOAD WORD ADDR                  *A03
     2182   01 01462    6AF0147B     ER9      BAL,R15  ERACOP1           REPORT ERROR                    *A03
     2183   01 01463    6800144E              B        ACOPLOP           RETURN HERE IF SS1=1;SS3=0      *A03
     2184   01 01464    6800146E              B        ACOPXIT           NORMAL RETURN
     2185         01 01465           WRTABRT  EQU      %
     2186   01 01465    32C02448              LW,12    ACREAD
     2187   01 01466    21C00001 A            CI,12    1                 IF AC READ-01
     2188   01 01467    6930146E              BNE      ACOPXIT           XIT
     2189   01 01468    B28022F2              LW,8     *RESULTAT         IF CONTENTS AT X'3FFE' ARE NOT 0'S
     2190   01 01469    6930146E              BNEZ     ACOPXIT           THEN NOT RIT VIA STW.THUS TEST OK
     2191   01 0146A    6AB01E7D              BAL,R11  GETAC                                             *A03
     2192   01 0146B    3590294B              STW,9    ACMSG3+11         STORE AC READ                   *A03
     2193   01 0146C    22802940              LI,8     ACMSG3            LOAD WORD ADDR                  *A03
     2194   01 0146D    68001462              B        ER9               REPORT ERROR                    *A03
     2195                            *
     2196         01 0146E           ACOPXIT  EQU      %
     2197   01 0146E    32C02449              LW,12    ACLOAD
     2198   01 0146F    68301473              BEZ      ACEND
     2199   01 01470    20CFFFFF A            AI,12    -1                SUBTRACT 1 FOR NEXT PATTERN.
     2200   01 01471    35C02449              STW,12   ACLOAD
     2201   01 01472    6800144C              B        NEXTAC            LOAD NEXT AC PATTERN            *A02
     2202                            *
     2203   01 01473                 ACEND    RES      0
     2204   01 01473    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     2205   01 01474    6940143A              BCS,4    TST14ACOP+1       BRANC FOR LONG LOOP             *A01
     2206   01 01475    6AF01EE2              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     2207   01 01476    680010B0              B        TST:CONT          NEXT TEST                       *A01
     2208                            *
     2209                            *************************************************************
     2210                            *************************************************************
     2211                            ****     ENTER HERE AFTER EXECUTING A CAL2 INST
     2212                            ****     AT THE END OF TEST INSTRUCTIONS.
     2213                            *************************************************************
     2214                            *************************************************************
     2215                            *
     2216                            *
     2217                                     BOUND    8
     2218         01 01478           ACCAL2   EQU      %
     2219   01 01478    12A02232              LD,10    TRAPCAL2
     2220   01 01479    15A021AC              STD,10   TRAP40            SAVE PSD
     2221   01 0147A    68001456              B        ACMEMPR
     2222                            *
     2223                            *
     2224         01 0147B           ERACOP1  EQU      %
     2225   01 0147B    25800002 A            SLS,8    2                 FORM BYTE ADDR                  *A03
     2226   01 0147C    49802477              OR,8     YC                INSERT FORMAT CHARACTER         *A03
     2227   01 0147D    35801483              STW,8    XPRNT+2           STORE IT                        *A03
     2228   01 0147E    6AD01486              BAL,R13  ERRACOP
     2229   01 0147F    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     2230                            *                                   NORMAL RETURN
     2231   01 01480    6AB01DFF              BAL,R11  TSTINFO3          GET TEST INST AND ADDRESS
     2232   01 01481    EA6003C5     XPRNT    #PRINT   ACMSG2            PRINT ERROR MESSAGE             *A03
            01 01482    EA6003CD
            01 01483    C000A4C8 A
            01 01484    EA6003C6
     2233   01 01485    68001D8F              B        COMMON
     2234                            *
     2235                            *
     2236         01 01486           ERRACOP  EQU      %
     2237   01 01486    331022D0              MTW,1    ECAC              UPDATE ERROR COUNTER
     2238   01 01487    32802449              LW,8     ACLOAD
     2239   01 01488    358022A2              STW,8    TPAC              STORE TEST PAGE AC
     2240   01 01489    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     2241   01 0148A    E910000D A            BCS,1    *R13              SUPRESS PRINTOUT                *A03
     2242   01 0148B    3310000D A            MTW,1    R13               INCR RETURN ADDR                *A03
     2243   01 0148C    32800393              LW,8     #HDRFLG           IF FLAG SET
     2244   01 0148D    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #              *A02
     2245   01 0148E    E830000D A            BE       *R13              SKIP HEADING OUTPUT             *A02
     2246   01 0148F    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     2247   01 01490    55802931              STH,8    ACOPHD1+13        STORE IN BUFFER
     2248   01 01491    EA6003C5              #PRINT   ACOPHD1,C1
            01 01492    EA6003CD
            01 01493    C100A490 A
            01 01494    EA6003C6
     2249   01 01495    E800000D A            B        *R13              EXIT
     2250                            *
     2251   01 01496                 ACOPT    RES      0
     2252   01 01496    32C201FF A            LW,12    X'1FF',X1         RD/WR/ACS PROTECTION X'3DF8'
     2253   01 01497    680201FF A            BCR,0    X'1FF',X1         EXECUTE INST AT 3FFF  '3DF9'
     2254   01 01498    35D201FE A            STW,13   X'1FE',X1         WRITE PROTECT TRAP OCCURRENCE 3DFA
     2255   01 01499    05000000 A            CAL2,0   0                 CAL2                    X'3DFB'
     2256                            *
     2257                            *
     2258                            *
     2259                            ****     PROTECT LOGIC TESTS****
     2260                            *        THESE TESTS CHECK OUT THE SPECIAL FEATURES
     2261                            *        OF PROTECT LOGIC.
     2262                            *
     2263                            *        1. WHEN ACCESSING THE INDIRECT ADDRESS
     2264                            *           OF A BRANCH TYPE INSTRUCTION (E.G. BCS )
     2265                            *           A READ ACCESS PROTECT VIOLATION SHOULD
     2266                            *           NOT OCCUR IF BRANCH CONDITION IS
     2267                            *           NOT SATISFIED.
     2268                            *        2. WHEN AN INSTRUCTION ACCESS TRAP OCCURS ON ACCESSING     *A02
     2269                            *           INDIRECT ADDRESS OF A BIR INST.(BRANCH SATISFIED)       *A02
     2270                            *           A)TRAP ADDRESS IS THAT OF BIR INST.                     *A02
     2271                            *           B)REGISTER CONTENTS OF BIR INST ARE NOT CHANGED.        *A02
     2272                            *        3. SAME AS FOR (2) EXCEPT BDR INST.                        *A02
     2273                            *        4. SAME AS FOR (2) EXCEPT A DIRECT BIR INST.               *A02
     2274                            *        5. SAME AS FOR  (2) EXCEPT A DIRECT BDR INST.              *A02
     2275                            *        6. SAME AS ABOVE EXCEPT THAT A READ ACCESS PROTECT
     2276                            *           VIOLATION SHOULD OCCUR FOR A EXECUTE INSTRUCTION.
     2277                            *        7. ALL ACCESS PROTECT VIOLATIONS ARE INHIBITED
     2278                            *           WHEN ACCESSING AND EXECUTING A XPSD IN A
     2279                            *           TRAP/INTERRUPT LOCATION.
     2280                            *
     2281                            *        8. WHEN WRITING INTO GEN. REGISTERS ACCESS
     2282                            *           PROTECT VIOLATIONS ARE INHIBITED.
     2283                            *
     2284                            *        9. CHECK THAT ACCESS PROTECT VIOLATIONS
     2285                            *           ARE INHIBITED ON WRITING/READING LOCATIONS
     2286                            *           X'20' & X'21' WHEN EXECUTING A I/O INSTRUCTION.
     2287                            *
     2288                            *        10. CHECK THAT MBS,TBS,PSM AND STM INSTUCTIONS
     2289                            *           CAUSE A TRAP TO X'40' WHEN THERE EXECUTION
     2290                            *           EXTENDS TO A PAGE OF MEMORY WHICH IS
     2291                            *          ACCESS PROTECTED.
     2292                            *        11. CHECK THAT ON EXECUTING A WAIT INSTRUCTION             *A02
     2293                            *            IN MASTER,MAP & PROTECTED MODE NO TRAP OCCURS          *A02
     2294                            *            TO X'40' IF NEXT INST. AFTER WAIT IS IN A              *A02
     2295                            *            ACCESS PROTECTED PAGE.                                 *A02
     2296                            *                                                                   *A02
     2297         01 0149A           TST15PL  EQU      %                 PROTECT LOGIC TEST 1
     2298   01 0149A    6AF01DAE              BAL,R15  STSAC             AC STATUS
     2299   01 0149B    22800000 A            LI,8     0
     2300   01 0149C    358022E9              STW,8    ERRFLAG           CLEAR ERROR FLAG
     2301   01 0149D    22800003 A            LI,8     3
     2302   01 0149E    358022A2              STW,8    TPAC              STORE AC PATTERN FOR VP 1F
     2303   01 0149F    35802449              STW,8    ACLOAD
     2304   01 014A0    329022EF              LW,9     LWTP
     2305   01 014A1    6AF01E97              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     2306   01 014A2    6AF01F02              BAL,R15  SETAC             SET UP AC FOR THIS TEST
     2307   01 014A3    6AF01ED2              BAL,R15  SETLPSD           SET UP LPSD
     2308   01 014A4    358014AC              STW,8    SLAVMAP1          STORE
     2309   01 014A5    6AB01DB1              BAL,R11  INSTADR           COMPUTE ADDR FOR TEST INST
     2310   01 014A6    308022E7              AW,8     IBCS              ADD OP CODE
     2311   01 014A7    358014AE              STW,8    CHKINST1          STORE TEST INST
     2312   01 014A8    6AF01E8C              BAL,R15  SETINST           STORE TEST INST IN TEST INST PAGE
     2313   01 014A9    020014AE              GEN,8,2,22  2,0,CHKINST1
     2314   01 014AA    0E0014AC     LPSDLOP1 LPSD,0   SLAVMAP1
     2315                                     BOUND    8
     2316   01 014AC    00C03DF8 A   SLAVMAP1 DATA     X'00C03DF8'       SLAVE-MAPPED MODE;CC=0000
     2317   01 014AD    00000000 A            DATA     0                 NO BCS BRANCH;VP 1E MAPS ITSELF
     2318                            *
     2319                            *
     2320         01 014AE           CHKINST1 EQU      %                 TEST INSTRUCTIONS
     2321   01 014AE    E9803FFE A            BCS,8    *X'3FFE'          NO BRANCH;NO TRAP EVEN IF AC=11
     2322                            *                                   FOR PAGE 1F
     2323   01 014AF    04100000 A            CAL1,1   0                 GO TO T11CAL1
     2324                            *
     2325                            *
     2326                            *************************************************************
     2327                            *************************************************************
     2328                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     2329                            *************************************************************
     2330                            *************************************************************
     2331                            *
     2332                            *
     2333         01 014B0           T15CAL1  EQU      %
     2334   01 014B0    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2335   01 014B1    698014AA              BCS,8    LPSDLOP1          BRANCH FOR SHORT LOOP
     2336   01 014B2    328022E9              LW,8     ERRFLAG           IF ERROR FLAG NOT SET
     2337   01 014B3    683014B9              BEZ      TOK3              TEST OK                         *A03
     2338   01 014B4    22800000 A            LI,8     0
     2339   01 014B5    358022E9              STW,8    ERRFLAG           REST FLAG
     2340   01 014B6    228029E1              LI,8     PLMSG1            LOAD WORD ADDR                  *A03
     2341   01 014B7    6AF014BF              BAL,R15  ERPL1             REPORT ERROR
     2342   01 014B8    680014AA              B        LPSDLOP1          RETURN HERE IF SS1=1;SS3=0      *A03
     2343   01 014B9    70200392     TOK3     LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     2344   01 014BA    694014AA              BCS,4    LPSDLOP1          BRANCH FOR LONG LOOP
     2345   01 014BB    680010B0              B        TST:CONT          START NEXT TEST                 *A01
     2346                            *
     2347                            *
     2348                            *************************************************************
     2349                            *************************************************************
     2350                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2351                            ****     FOR THIS TEST.
     2352                            *************************************************************
     2353                            *************************************************************
     2354                            *
     2355                            *
     2356         01 014BC           T15ERTRP EQU      %
     2357   01 014BC    22800001 A            LI,8     1
     2358   01 014BD    358022E9              STW,8    ERRFLAG           SET ERROR FLAG
     2359   01 014BE    680014B0              B        T15CAL1
     2360                            *
     2361                            *
     2362                            *
     2363         01 014BF           ERPL1    EQU      %
     2364   01 014BF    25800002 A            SLS,8    2                 FORM BYTE ADDR                  *A03
     2365   01 014C0    49802477              OR,8     YC                INSERT FORMAT CHARACTER         *A03
     2366   01 014C1    358014C7              STW,8    XPRNT1+2          STORE IT                        *A03
     2367   01 014C2    6AD014CB              BAL,R13  ERRPL
     2368   01 014C3    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     2369         01 014C4           XERPL1   EQU      %                                                 *A03
     2370   01 014C4    6AB01DD7              BAL,R11  TSTINFO2          GET TEST INFO AND PRINT
     2371   01 014C5    EA6003C5     XPRNT1   #PRINT   PLMSG1                                            *A03
            01 014C6    EA6003CD
            01 014C7    C000A784 A
            01 014C8    EA6003C6
     2372   01 014C9    6AB01E1D              BAL,11   TSTINFO5          OUTPUT TRAP INFO                *A03
     2373   01 014CA    68001D8F              B        COMMON
     2374                            *
     2375                            *
     2376         01 014CB           ERRPL    EQU      %
     2377   01 014CB    331022D0              MTW,1    ECAC              UPDATE ERROR COUNTER
     2378   01 014CC    B28022F0              LW,8     *MAPEDADR
     2379   01 014CD    358022D8              STW,8    TINST             STORE TEST INST
     2380   01 014CE    328022F0              LW,8     MAPEDADR
     2381   01 014CF    358022D9              STW,8    TADDR             STORE TEST INST LOCATION
     2382         01 014D0           ERRPL:5  EQU      %                                                 *A02
     2383   01 014D0    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     2384   01 014D1    E910000D A            BCS,1    *R13              SKIP PRINTOUT                   *A03
     2385   01 014D2    3310000D A            MTW,1    R13               INCR RETURN ADDR                *A03
     2386   01 014D3    32800393              LW,8     #HDRFLG           IF HEADING FLAG SET
     2387   01 014D4    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #              *A02
     2388   01 014D5    E830000D A            BE       *R13              SKIP HEADING OUTPUT             *A02
     2389   01 014D6    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     2390   01 014D7    558029E0              STH,8    PLHD1+9           STORE IN BUFFER
     2391   01 014D8    EA6003C5              #PRINT   PLHD1,C1
            01 014D9    EA6003CD
            01 014DA    C100A75C A
            01 014DB    EA6003C6
     2392   01 014DC    E800000D A            B        *R13              EXIT
     2393                            *
     2394                            *
     2395                            ****     TEST 16:- CHECK THAT WHEN AN INSTRUCTION ACCESS
     2396                            ****              TRAP OCCURS WHEN ACCESSING INDIRECT ADDRESS
     2397                            ****              OF A BIR INST.(BRANCH CONDITION SATISFIED)
     2398                            ****              1.TRAP ADDRESS IS THAT OF THE BIR INST.
     2399                            ****              2.REGISTER IN BIR INST. IS NOT CHANGED
     2400                            *
     2401         01 014DD           TST16PL  EQU      %                 PROTECT LOGIC TEST 2
     2402   01 014DD    329022DA              LW,9     IBIR              LOAD TEST INST OP CODE
     2403   01 014DE    32B022E3              LW,11    LIN               GET LI INST TO INITIALISE REG 8
     2404   01 014DF    32C022E5              LW,12    CIN               GET CI INST TO CHK REG 8
     2405         01 014E0           LODSTAT  EQU      %
     2406   01 014E0    359022DE              STW,9    INST              SAVE OP CODE
     2407   01 014E1    35B014F8              STW,11   LOPT16
     2408   01 014E2    35C0150A              STW,12   TADROK+1
     2409   01 014E3    6AF01DAE              BAL,15   STSAC
     2410   01 014E4    22800002 A            LI,8     2
     2411   01 014E5    358022A2              STW,8    TPAC              DEFINE AC=10 FOR TEST PAGE
     2412   01 014E6    35802449              STW,8    ACLOAD
     2413   01 014E7    329022EF              LW,9     LWTP
     2414   01 014E8    6AF01E97              BAL,15   SETMAP            LOAD MAPS FOR THIS TEST
     2415   01 014E9    6AF01F02              BAL,15   SETAC             LOAD AC REGS
     2416   01 014EA    6AF01ED2              BAL,15   SETLPSD           SET UP LPSD TO INVOKE SLAV-MAP MODE
     2417   01 014EB    358014FA              STW,8    SLMAP1            STORE PSW1
     2418   01 014EC    6AB01DB1              BAL,11   INSTADR           COMPUTE INST ADDR
     2419   01 014ED    32C022DE              LW,12    INST
     2420   01 014EE    681014FC              BGEZ     DIROPCOD          BRANCH IF NOT INDIRECT INST
     2421   01 014EF    3290246A              LW,9     TESTPAGE          DEFINE ADDR FROM
     2422   01 014F0    25900009 A            SLS,9    9                 WHERE INST WILL BE
     2423   01 014F1    209001F8 A            AI,9     X'1F8'            ACCESSED
     2424   01 014F2    B5900008 A            STW,9    *8                STORE THIS ADDR AT IND. ADR OF TINST
     2425   01 014F3    359022A6              STW,9    STOREAT           SAVE ADDR
     2426         01 014F4           LODTINST EQU      %
     2427   01 014F4    308022DE              AW,8     INST              ADD TEST INST OP CODE
     2428   01 014F5    B58022F0              STW,8    *MAPEDADR         STORE TEST INST IN TEST INST PAGE
     2429   01 014F6    328022DF              LW,8     LWINST
     2430   01 014F7    B58022A6              STW,8    *STOREAT          STORE INST TO BE ACCESSED
     2431         01 014F8           LOPT16   EQU      %
     2432   01 014F8    22800008 A            LI,8     8                 INITIALISE REG
     2433   01 014F9    0E0014FA              LPSD,0   SLMAP1            INVOKE SLAV-MAP MODE
     2434                                     BOUND    8
     2435   01 014FA    00C03DF8 A   SLMAP1   DATA     X'00C03DF8'
     2436   01 014FB    00000000 A            DATA     0
     2437                            *
     2438         01 014FC           DIROPCOD EQU      %
     2439   01 014FC    358022A6              STW,8    STOREAT           SAVE ADDR
     2440   01 014FD    680014F4              B        LODTINST
     2441                            *
     2442                            *
     2443                            ****     ENTER HERE ON AN INST ACCESS TRAP FOR THIS TEST
     2444                            *
     2445         01 014FE           T16OKTRP EQU      %
     2446   01 014FE    70200392              LC       #SENSE
     2447   01 014FF    698014F8              BCS,8    LOPT16            SHORT LOOP IF SS1 SET
     2448   01 01500    358022B2              STW,8    SAVR8             SAVE REG
     2449   01 01501    328021AC              LW,8     TRAP40
     2450   01 01502    4B802482              AND,8    X1FFFF            SAVE TRAPPED ADDR
     2451   01 01503    25800077 A            SLS,8    -9
     2452   01 01504    31802469              CW,8     TINSTP            IF FROM TEST INST PAGE
     2453   01 01505    68301509              BE       TADROK            TRAP ADDR OK
     2454   01 01506    6AF0150F     ER10     BAL,15   EPL1              REPORT ERROR                    *A03
     2455   01 01507    680014F8              B        LOPT16            RETURN HERE IF SS1=1;SS3=0      *A03
     2456   01 01508    6800150C              B        CHKLL
     2457         01 01509           TADROK   EQU      %
     2458   01 01509    328022B2              LW,8     SAVR8
     2459   01 0150A    21800008 A            CI,8     8
     2460   01 0150B    69301506              BNE      ER10              NOT OK IF REG CHANGED           *A03
     2461         01 0150C           CHKLL    EQU      %
     2462   01 0150C    70200392              LC       #SENSE
     2463   01 0150D    694014F8              BCS,4    LOPT16            LONG LOOP IF SS2 SET
     2464         01 0150E           NXTTEST  EQU      %
     2465   01 0150E    680010B0              B        TST:CONT                                          *A01
     2466                            *
     2467         01 0150F           EPL1     EQU      %
     2468   01 0150F    6AD014CB              BAL,13   ERRPL
     2469   01 01510    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     2470                            *                                   NORMAL RETURN
     2471   01 01511    6AB01DD7              BAL,11   TSTINFO2          PRINT TEST INST AND ITS LOCATION
     2472   01 01512    6AB01E1D              BAL,11   TSTINFO5          OUTPUT TRAP INFO                *A03
     2473   01 01513    6D000032 A            #HTECON  MAPEDADR          CONVERT EXP TRAP ADR
            01 01514    EA6003C3
            01 01515    000022F0
            01 01516    6D000022 A
     2474   01 01517    329C0001 A            LW,9     1,LINK
     2475   01 01518    359029F7              STW,9    PLMSGX1+6         STORE ADDR
     2476   01 01519    6D000032 A            #HTECON  TRAP40            CONVERT ACTUAL TRAP ADDR
            01 0151A    EA6003C3
            01 0151B    000021AC
            01 0151C    6D000022 A
     2477   01 0151D    329C0001 A            LW,9     1,LINK
     2478   01 0151E    35902A02              STW,9    PLMSGX2+6         STORE ADDR
     2479   01 0151F    22900060 A            LI,9     X'60'             LOAD A '-'                      *A03
     2480   01 01520    328022B2              LW,8     SAVR8             GET ACTUAL REG VALUE
     2481   01 01521    69101523              BLZ      %+2                                               *A03
     2482   01 01522    22900040 A            LI,9     X'40'
     2483   01 01523    22100003 A            LI,X1    3
     2484   01 01524    759229FA              STB,9    PLMSGX1+9,X1
     2485   01 01525    75922A05              STB,9    PLMSGX2+9,X1
     2486   01 01526    4B802480              AND,8    XF
     2487   01 01527    208000F0 A            AI,8     X'F0'
     2488   01 01528    75802A06              STB,8    PLMSGX2+10        STORE REG VALUE
     2489   01 01529    EA6003C5              #PRINT   PLMSGX1           PRINT MESSAGES                  *A03
            01 0152A    EA6003CD
            01 0152B    C000A7C4 A
            01 0152C    EA6003C6
     2490   01 0152D    EA6003C5              #PRINT   PLMSGX2
            01 0152E    EA6003CD
            01 0152F    C000A7F0 A
            01 01530    EA6003C6
     2491   01 01531    68001D8F              B        COMMON
     2492                            *
     2493                            *
     2494         01 01532           TST17PL  EQU      %                 PROTECT LOGIC TEST 3
     2495   01 01532    329022DB              LW,9     IBDR              LOAD TEST INST OP CODE
     2496   01 01533    32B022E4              LW,11    LIP               GET LI INST TO INIT. R8
     2497   01 01534    32C022E6              LW,12    CIP               GET CI INST TO CHECK R8
     2498   01 01535    680014E0              B        LODSTAT
     2499                            *
     2500         01 014FE           T17OKTRP EQU      T16OKTRP
     2501         01 014FE           T18OKTRP EQU      T16OKTRP
     2502                            *
     2503         01 014FE           T19OKTRP EQU      T16OKTRP
     2504                            *
     2505                            *
     2506         01 01536           TST18PL  EQU      %                 PROTECT LOGIC TEST 4
     2507   01 01536    329022DC              LW,9     DBIR              LOAD TEST INST OP CODE
     2508   01 01537    32B022E3              LW,11    LIN               GET LI INST TO INIT. R8
     2509   01 01538    32C022E5              LW,12    CIN               GET CI INST TO CHK R8
     2510   01 01539    680014E0              B        LODSTAT
     2511                            *
     2512                            *
     2513         01 0153A           TST19PL  EQU      %                 PROTECT LOGIC TEST 5
     2514   01 0153A    329022DD              LW,9     DBDR              LOAD TEST INST OP CODE
     2515   01 0153B    32B022E4              LW,11    LIP               GET LI INST TO INIT. R8
     2516   01 0153C    32C022E6              LW,12    CIP               GET CI INST TO CHK R8
     2517   01 0153D    680014E0              B        LODSTAT
     2518                            *
     2519                            *
     2520         01 0153E           TST20PL  EQU      %                 PROTECT LOGIC TEST 6
     2521   01 0153E    6AF01DAE              BAL,R15  STSAC             AC STATUS
     2522   01 0153F    22800003 A            LI,8     3                 SET UP AC CONTROL IMAGE WORD
     2523   01 01540    358022A2              STW,8    TPAC              STORE AC=11 FOR PAGE 1F
     2524   01 01541    35802449              STW,8    ACLOAD            SAVE AC LOADED FOR TEST PAGE
     2525   01 01542    329022EF              LW,9     LWTP
     2526   01 01543    6AF01E97              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     2527   01 01544    6AF01F02              BAL,R15  SETAC             SET UP AC FOR THIS TEST
     2528   01 01545    6AF01ED2              BAL,R15  SETLPSD           SER UP LPSD
     2529   01 01546    35801552              STW,8    SLAVMAP3          STORE WORD1
     2530   01 01547    6AB01DB1              BAL,R11  INSTADR           GET INST ADDR
     2531   01 01548    358022A6              STW,8    STOREAT           SAVE ADDR
     2532   01 01549    308022A5              AW,8     HEX68             ADD BRANCH OP CODE
     2533   01 0154A    B58022A6              STW,8    *STOREAT          STORE BRNCH INST
     2534   01 0154B    328022A6              LW,8     STOREAT
     2535   01 0154C    308022A7              AW,8     EXU67             ADDEXU INST OP CODE
     2536   01 0154D    35801554              STW,8    CHKINST3          STORE TEST INST
     2537   01 0154E    6AF01E8C              BAL,R15  SETINST           SET UP TEST INST
     2538   01 0154F    01001554              GEN,8,2,22  1,0,CHKINST3
     2539   01 01550    0E001552     LPSDLOP3 LPSD,0   SLAVMAP3          LOAD PSD
     2540                                     BOUND    8
     2541   01 01552    00C03DF8 A   SLAVMAP3 DATA     X'00C03DF8'       SLAVE-MAPPED MODE;PAGE 1E       *A03
     2542   01 01553    00000000 A            DATA     0                 MAPPED TO ITSELF
     2543                            *
     2544                            *
     2545         01 01554           CHKINST3 EQU      %                 EXECUTE TEST INST IN PAGE 1E
     2546   01 01554    67003FFE A            EXU      X'3FFE'           ON ACCESSING SUBJECT INST FROM
     2547                            *                                   PAGE 1F A TRAP TO X'40' SHOULD
     2548                            *                                   OCCUR AS AC=11 FOR PAGE 1F
     2549                            *
     2550                            **************************************************************
     2551                            **************************************************************
     2552                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2553                            ****     FOR THIS TEST
     2554                            **************************************************************
     2555                            **************************************************************
     2556                            *
     2557                            *
     2558         01 01555           T20OKTRP EQU      %
     2559   01 01555    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2560   01 01556    69801550              BCS,8    LPSDLOP3          BRANCH FOR SHORT LOOP
     2561   01 01557    328021AC              LW,8     TRAP40            LOAD PSW1 OF OLD PSD SAVED
     2562   01 01558    4B802482              AND,8    X1FFFF            SAVE ADDRESS BITS
     2563   01 01559    358022AE              STW,8    ACTDATA           SAVE TRAPED ADDR                *A03
     2564   01 0155A    25800077 A            SLS,8    -9                SHIFT RIGHT 9 BITS
     2565   01 0155B    31802469              CW,8     TINSTP            TEST OK IF TEST INST PAGE ADDR
     2566   01 0155C    68301570              BE       TESTOK3
     2567   01 0155D    6D000032 A            #HTECON  MAPEDADR          GET EXPECTED TRAP ADDR          *A03
            01 0155E    EA6003C3
            01 0155F    000022F0
            01 01560    6D000022 A
     2568   01 01561    2A8C0000 A            LM,8     0,LINK                                            *A03
     2569   01 01562    4B802475              AND,8    Y4040             INSERT TWO BLANKS               *A03
     2570   01 01563    02200020 A            LCI      2                                                 *A03
     2571   01 01564    2B802A12              STM,8    PLMSG2+11         STORE EXP TRAP ADDR             *A03
     2572   01 01565    6D000032 A            #HTECON  ACTDATA           CONVERT ACT TRAP ADDR           *A03
            01 01566    EA6003C3
            01 01567    000022AE
            01 01568    6D000022 A
     2573   01 01569    2A8C0000 A            LM,8     0,LINK                                            *A03
     2574   01 0156A    4B802475              AND,8    Y4040                                             *A03
     2575   01 0156B    02200020 A            LCI      2                                                 *A03
     2576   01 0156C    2B802A0D              STM,8    PLMSG2+6          STORE ACT TRAP ADDR             *A03
     2577   01 0156D    22802A07              LI,8     PLMSG2            LOAD WORD ADDR OF TEXT          *A03
     2578   01 0156E    6AF014BF              BAL,R15  ERPL1             REPORT ERROR                    *A03
     2579   01 0156F    68001550              B        LPSDLOP3          RETURN HERE IF SS1=1;SS3=0      *A03
     2580                            *
     2581         01 01570           TESTOK3  EQU      %
     2582   01 01570    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     2583   01 01571    69401550              BCS,4    LPSDLOP3          BRANCH TO LOOP ON TEST
     2584   01 01572    680010B0              B        TST:CONT          START NEXT TEST                 *A01
     2585                            *
     2586                            *
     2587                            *
     2588         01 01573           TST21PL  EQU      %                 PROTECT LOGIC TEST 7
     2589   01 01573    6AF01DAE              BAL,R15  STSAC                                             *A02
     2590   01 01574    3280246A              LW,8     TESTPAGE
     2591   01 01575    25800009 A            SLS,8    9                 COMPUTE REF ADDR PORTION
     2592   01 01576    208001F8 A            AI,8     X'1F8'            OF XPSD TO BE STORED AT X'48'
     2593   01 01577    358022A6              STW,8    STOREAT           SAVE ADDR
     2594   01 01578    30802275              AW,8     OPCXPSD           ADD OP CODE
     2595   01 01579    32900048 A            LW,9     X'48'             SAVE EXISTING XPSD AT X'48'
     2596   01 0157A    359022BE              STW,9    WORK1
     2597   01 0157B    35800048 A            STW,8    X'48'             STORE XPSD
     2598   01 0157C    02200040 A            LCI      4
     2599   01 0157D    2A00159F              LM,0     NEWPSD            LOAD TWO DOUBLE WORDS AT ADDR
     2600   01 0157E    02200040 A            LCI      4                 PROGRAM WILL GO TO ON EXECUTING
     2601   01 0157F    AB0022A6              STM,0    *STOREAT          XPSD AT X'48' IF NO ACCESS TRAP
     2602   01 01580    22800003 A            LI,8     3
     2603   01 01581    358022A2              STW,8    TPAC              SAVE AC BITS OF TEST PAGE
     2604   01 01582    35802449              STW,8    ACLOAD
     2605   01 01583    329022EF              LW,9     LWTP
     2606   01 01584    6AF01E97              BAL,R15  SETMAP            SET MAP FOR THIS TEST
     2607   01 01585    6AF01F02              BAL,R15  SETAC             SET AC FOR THIS TEST
     2608   01 01586    6AF01ED2              BAL,R15  SETLPSD           SET LPSD TO INVOKE SLAV/MAP MODE
     2609   01 01587    3580158E              STW,8    SLAVMAP4          STORE PSW 1
     2610   01 01588    6AF01E8C              BAL,R15  SETINST           SET UP CAL1 INST IN TEST INST PAGE
     2611   01 01589    01002274              GEN,8,2,22  1,0,CALL1
     2612         01 0158A           LPSDLOP4 EQU      %
     2613   01 0158A    22800000 A            LI,8     0
     2614   01 0158B    358022E9              STW,8    ERRFLAG           RESET FLAG
     2615   01 0158C    0E00158E              LPSD,0   SLAVMAP4
     2616                                     BOUND    8
     2617   01 0158E    00C03DF8 A   SLAVMAP4 DATA     X'00C03DF8'
     2618   01 0158F    00000000 A            DATA     0
     2619                            *
     2620                            *
     2621                            **************************************************************
     2622                            ***************************************************************
     2623                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2624                            ****     FOR THIS TEST.
     2625                            ***************************************************************
     2626                            ***************************************************************
     2627                            *
     2628                            *
     2629         01 01590           T21ERTRP EQU      %
     2630   01 01590    22800001 A            LI,8     1
     2631   01 01591    358022E9              STW,8    ERRFLAG           SET ERROR FLAG
     2632   01 01592    68001593              B        T21CAL1
     2633                            *
     2634                            *
     2635                            ***************************************************************
     2636                            ***************************************************************
     2637                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     2638                            ****************************************************************
     2639                            ***************************************************************
     2640                            *
     2641                            *
     2642         01 01593           T21CAL1  EQU      %
     2643   01 01593    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2644   01 01594    6980158A              BCS,8    LPSDLOP4          BRANCH FOR SHORT LOOP
     2645   01 01595    328022E9              LW,8     ERRFLAG
     2646   01 01596    6830159A              BEZ      TOK4              TEST OK IF FLAG NOT SET         *A03
     2647   01 01597    22802A23              LI,8     PLMSG4            LOAD WORD ADDR                  *A03
     2648   01 01598    6AF014BF              BAL,R15  ERPL1             REPORT ERROR                    *A03
     2649   01 01599    6800158A              B        LPSDLOP4          RETURN HERE IF SS1=1;SS3=0      *A03
     2650   01 0159A    70200392     TOK4     LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     2651   01 0159B    6940158A              BCS,4    LPSDLOP4          BRANCH FOR LONG LOOP
     2652   01 0159C    328022BE              LW,8     WORK1             RESTORE INITIAL XPSD
     2653   01 0159D    35800048 A            STW,8    X'48'             AT X'48'
     2654   01 0159E    680010B0              B        TST:CONT          NEXT TEST                       *A01
     2655                            *
     2656   01 0159F    00000000 A   NEWPSD   DATA     0
     2657   01 015A0    00000000 A            DATA     0
     2658   01 015A1    00001593              DATA     T21CAL1
     2659   01 015A2    00000000 A            DATA     0
     2660                            *
     2661                            *
     2662         01 015A3           TST22PL  EQU      %                 TEST 8 PROTECT LOGIC
     2663   01 015A3    6AF01DAE              BAL,R15  STSAC             AC STATUS
     2664   01 015A4    228FFFFF A            LI,8     -1
     2665   01 015A5    329022EF              LW,9     LWTP
     2666   01 015A6    6AF01E97              BAL,R15  SETMAP            SET MAP FOR THIS TEST
     2667   01 015A7    32802474              LW,8     Y4                SET UP AC CONTROL IMAGE WORD
     2668   01 015A8    22700000 A            LI,7     0                 SET CONTROL START ADDR
     2669   01 015A9    6AB01F0B              BAL,R11  MMCAC1            LOAD AC=01 FOR VP 0
     2670   01 015AA    22800001 A            LI,8     1
     2671   01 015AB    358022A2              STW,8    TPAC              SAVE TEST PAGE AC BITS
     2672   01 015AC    6AF01ED2              BAL,R15  SETLPSD           SET LPSD TO INVOK SLAV/MAP MODE
     2673   01 015AD    358015B4              STW,8    SLAVMAP5          STORE PSW1
     2674   01 015AE    6AF01E8C              BAL,R15  SETINST           SET UP TEST INST IN TINSTP
     2675   01 015AF    020015CF              GEN,8,2,22  2,0,CHKINST5
     2676         01 015B0           LPSDLOP5 EQU      %
     2677   01 015B0    228FFFFF A            LI,8     -1
     2678   01 015B1    22100000 A            LI,1     0
     2679   01 015B2    351022E9              STW,1    ERRFLAG           RESET FLAG
     2680   01 015B3    0E0015B4              LPSD,0   SLAVMAP5
     2681                                     BOUND    8
     2682   01 015B4    00C03DF8 A   SLAVMAP5 DATA     X'00C03DF8'
     2683   01 015B5    00000000 A            DATA     0
     2684                            *
     2685                            *
     2686                            *************************************************************
     2687                            *************************************************************
     2688                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST
     2689                            *************************************************************
     2690                            *************************************************************
     2691                            *
     2692                            *
     2693         01 015B6           T22CAL1  EQU      %
     2694   01 015B6    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2695   01 015B7    698015B0              BCS,8    LPSDLOP5          BRANCH FOR SHORT LOOP
     2696   01 015B8    328022E9              LW,8     ERRFLAG
     2697   01 015B9    683015BD              BEZ      TOK5              TEST OK IF FLAG NOT SET         *A03
     2698   01 015BA    22802A3E              LI,8     PLMSG6                                            *A03
     2699   01 015BB    6AF015C3              BAL,R15  ERPLT5            REPORT ERROR
     2700   01 015BC    680015B0              B        LPSDLOP5          RETURN HERE IF SS1=1;SS3=0      *A03
     2701   01 015BD    70200392     TOK5     LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     2702   01 015BE    694015B0              BCS,4    LPSDLOP5          BRANCH FOR LONG LOOP
     2703   01 015BF    680010B0              B        TST:CONT          NEXT TEST                       *A01
     2704                            *
     2705                            *
     2706                            ************************************************************
     2707                            ************************************************************
     2708                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2709                            ****     FOR THIS TEST.
     2710                            ************************************************************
     2711                            ************************************************************
     2712                            *
     2713                            *
     2714         01 015C0           T22ERTRP EQU      %
     2715   01 015C0    22800001 A            LI,8     1
     2716   01 015C1    358022E9              STW,8    ERRFLAG           SET ERROR FLAG
     2717   01 015C2    680015B6              B        T22CAL1
     2718                            *
     2719         01 015C3           ERPLT5   EQU      %
     2720   01 015C3    25800002 A            SLS,8    2                 FORM BYTE ADDR                  *A03
     2721   01 015C4    49802477              OR,8     YC                INSERT FORMAT CHARACTER         *A03
     2722   01 015C5    358015CB              STW,8    XPRNT5+2                                          *A03
     2723   01 015C6    6AD014CB              BAL,R13  ERRPL
     2724   01 015C7    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     2725                            *                                   NORMAL RETURN
     2726   01 015C8    6AB01E09              BAL,R11  TSTINFO4
     2727   01 015C9    EA6003C5     XPRNT5   #PRINT   PLMSG6            PRINT ERROR MESSAGE             *A03
            01 015CA    EA6003CD
            01 015CB    C000A8F8 A
            01 015CC    EA6003C6
     2728   01 015CD    6AB01E1D              BAL,11   TSTINFO5          OUTPUT TRAP INFO                *A03
     2729   01 015CE    68001D8F              B        COMMON
     2730                            *
     2731         01 015CF           CHKINST5 EQU      %
     2732   01 015CF    35800001 A            STW,8    R1
     2733   01 015D0    04200000 A            CAL1,2   0
     2734                            *
     2735                            *
     2736                            *
     2737                            ****     CHECK THAT ACCESS PROTECT VIOLATIONS ARE
     2738                            ****     INHIBITED ON WRITING INTO X'20'                            *A03
     2739                            ****     WHEN EXECUTING AN I/O INSTRUCTION.                         *A03
     2740                            *
     2741         01 015D1           TST23PL  EQU      %                 PROTECT LOGIC TEST 9
     2742   01 015D1    6AF01DAE              BAL,R15  STSAC             STATUS
     2743   01 015D2    32802483              LW,8     Y1FFF
     2744   01 015D3    22600008 A            LI,R6    R8
     2745   01 015D4    32702484              LW,7     Y01
     2746   01 015D5    6F6A0000 A            MMC,6    5                 LOAD 1FFF FOR MAP REG 0
     2747   01 015D6    32802485              LW,8     X1E001F
     2748   01 015D7    22600008 A            LI,R6    R8
     2749   01 015D8    3270247C              LW,7     Y01003C           LOAD 1E AND 1F IN
     2750   01 015D9    6F6A0000 A            MMC,6    5                 MAP REG 1E & 1F RESPECTIVELY
     2751   01 015DA    32802477              LW,8     YC
     2752   01 015DB    22600008 A            LI,R6    R8
     2753   01 015DC    32702484              LW,7     Y01
     2754   01 015DD    6F640000 A            MMC,6    2                 LOAD AC=11 FOR PAGE 0
     2755   01 015DE    32D00397              LW,13    #PRTADDR                                          *A02
     2756   01 015DF    128015FA              LD,8     TIOACT            LOAD TEST INST
     2757   01 015E0    15803DF8 A            STD,8    X'3DF8'           AT 3DF8
     2758   01 015E1    22803DF8 A            LI,8     X'3DF8'
     2759   01 015E2    358022F0              STW,8    MAPEDADR          STORE MAPPED ADDRESS
     2760         01 015E3           LOPT23   EQU      %
     2761   01 015E3    EA6003C5              BAL,LINK   *#DISUSER%      DISABLE USER
     2762   01 015E4    22800000 A            LI,8     0
     2763   01 015E5    358022E9              STW,8    ERRFLAG           RESET FLAG
     2764   01 015E6    0E0015E8              LPSD,0   MAPMP1            INVOKE MASTER-MAP-PROT. MODE
     2765                                     BOUND    8
     2766   01 015E8    00403DF8 A   MAPMP1   DATA     X'00403DF8'       GO TO 3DF8 AND EXECUTE TIO
     2767   01 015E9    00800000 A            DATA     X'00800000'
     2768                            *
     2769                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     2770                            *
     2771         01 015EA           T23CAL1  EQU      %
     2772   01 015EA    EA6003C6              BAL,LINK   *#ENUSER%       ENABLE USER
     2773   01 015EB    70200392              LC       #SENSE
     2774   01 015EC    698015E3              BCS,8    LOPT23            SHORT LOOP IF SS1 SET
     2775   01 015ED    328022E9              LW,8     ERRFLAG           IF FLAG 0
     2776   01 015EE    683015F2              BEZ      TOK6              TEST OK                         *A03
     2777   01 015EF    22802A60              LI,8     PLMSG8                                            *A03
     2778   01 015F0    6AF015C3              BAL,R15  ERPLT5            OTHERWISE REPORT ERROR          *A03
     2779   01 015F1    680015E3              B        LOPT23            RETURN HERE IF SS1=1;SS3=0      *A03
     2780   01 015F2    70200392     TOK6     LC       #SENSE                                            *A03
     2781   01 015F3    694015E3              BCS,4    LOPT23            LONG LOOP IF SS2 SET
     2782   01 015F4    6AF01EDA              BAL,R15  ALMAPREG
     2783   01 015F5    6AF01EE2              BAL,R15  ALLACREG
     2784   01 015F6    680010B0              B        TST:CONT          NEXT TEST                       *A01
     2785                            *
     2786                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2787                            ****     FOR THIS TEST.
     2788                            *
     2789         01 015F7           T23ERTRP EQU      %
     2790   01 015F7    331022E9              MTW,1    ERRFLAG           SET ERROR FLAG
     2791   01 015F8    680015EA              B        T23CAL1
     2792                            *
     2793                                     BOUND    8
     2794         01 015FA           TIOACT   EQU      %
     2795   01 015FA    CD80000D A            TIO,8    *13                                               *A02
     2796   01 015FB    04300000 A            CAL1,3   0
     2797                            *
     2798                            *
     2799                            ****     CHECK THAT MBS,TBS,PSM AND STM INSTRUCTIONS
     2800                            ****     CAUSE A TRAP TO X'40' WHEN THERE EXECUTION
     2801                            ****     EXTENDS TO A PAGE OF MEMORY WHICH IS
     2802                            ****     ACESS PROTECTED.
     2803                            *
     2804         01 015FC           TST24PL  EQU      %                 PROTECT LOGIC TEST 10
     2805   01 015FC    6AF01DAE              BAL,R15  STSAC             STATUS
     2806   01 015FD    32802287              LW,8     T24LUPAD                                          *A03
     2807   01 015FE    3580165F              STW,8    T24OKTRP+1        STORE SHORT LOOP ADDR           *A03
     2808   01 015FF    22801619              LI,8     LOPT24                                            *A03
     2809   01 01600    498022A5              OR,8     HEX68             ADD BRANCH OP CODE              *A03
     2810   01 01601    35801671              STW,8    SLOOP                                             *A03
     2811   01 01602    3280175E              LW,8     ATEMP             INITIALISE ADDRESS OF
     2812   01 01603    3580175D              STW,8    TEMP              TEMP STORAGE
     2813   01 01604    3280175C              LW,8     AMOD              SET POINTER TO
     2814   01 01605    3580175B              STW,8    LIST              FIRST MODULE
     2815   01 01606    22800000 A            LI,8     0                 SET BYTE 2 OF THE 1 ST WORD OF
     2816   01 01607    22100002 A            LI,X1    2                 MOD#'S 1 & 3 TO  ZERO TO DEFINE
     2817   01 01608    758216ED              STB,8    MOD1,X1           THAT THESE MODULES ARE FOR AC TSTS
     2818   01 01609    75821703              STB,8    MOD3,X1           AND ARE TO BE CHECKED
     2819   01 0160A    228FFFFF A            LI,8     -1
     2820   01 0160B    35802242              STW,8    MODULE#           RESET MODULE #
     2821   01 0160C    32802486              LW,8     X1C001D           SET UP MAP IMAGE FOR
     2822   01 0160D    32902485              LW,9     X1E001F           PAGES IC,1D,1E AND 1F
     2823   01 0160E    32702487              LW,7     Y020038           WORD COUNT & CONTROL START
     2824   01 0160F    22600008 A            LI,R6    R8
     2825   01 01610    6F6A0000 A            MMC,R6   5                 LOAD MAP FOR PAG IC,1D 1E & 1F
     2826         01 01611           GETNMOD1 EQU      %
     2827   01 01611    F280175B              LB,8     *LIST             GET AC BITS
     2828   01 01612    35802449              STW,8    ACLOAD            SAVE AC VALUE
     2829   01 01613    25800004 A            SLS,8    4                 SET AC BIT FOR PAGE 1D
     2830   01 01614    22600008 A            LI,R6    R8
     2831   01 01615    3270247B              LW,R7    Y01002
     2832   01 01616    6F640000 A            MMC,R6   2                 SET AC=11 FOR PAG 1D;REST 0'S
     2833   01 01617    6AF0161E              BAL,R15  DRIVER            GET MODULE AND STOR IN TEMP
     2834   01 01618    6AF01638              BAL,R15  LOADINST          LOAD TEST INST AT X'3800';PAG 1C
     2835         01 01619           LOPT24   EQU      %
     2836   01 01619    6AF0163F              BAL,R15  INITSTOR          INIT SORC & DESTINATION AREAS
     2837   01 0161A    0E00161C              LPSD,0   MAPSMOD           INVOKE MAP SLAVE MODE
     2838                            *
     2839                                     BOUND    8
     2840   01 0161C    00C03800 A   MAPSMOD  DATA     X'00C03800'       PAFE 1C MAPS TO ITSELF
     2841   01 0161D    00000000 A            DATA     0
     2842                            *
     2843                            ****     THIS ROUTINE LOADS THE TEST MODULES DESIGNED
     2844                            ****     FOR CHECKING MEMORY PROTECT VIOLATIONS
     2845                            ****     FOR INSTRUCTIONS WHOSE EXECUTION
     2846                            ****     CROSSES PAGE BOUNDARIES WHICH ARE
     2847                            ****     ACCESS OR WRITE LOCK PROTECTED.
     2848                            *
     2849         01 0161E           DRIVER   EQU      %
     2850   01 0161E    33102242              MTW,1    MODULE#           INCR MODULE #
     2851   01 0161F    B270175B              LW,7     *LIST
     2852   01 01620    4B702488              AND,7    XFF               SAVE COUNT OF NUMBER OF WORDS
     2853   01 01621    357022B4              STW,7    SAVCNT            IN THE MODULE
     2854   01 01622    22200002 A            LI,2     2
     2855   01 01623    F234175B              LB,3     *LIST,X2          CHECK IF MOD. TO BE CHECKED
     2856   01 01624    21300001 A            CI,3     1                 IF A 1 IT IS FOR WL TESTS
     2857   01 01625    68301635              BE       SKIPMOD           THUS SKIP CHECKING THIS MOD
     2858   01 01626    6C300045 A            RD,3     X'45'             SKIP BYTE STRING IF SIGMA9      *A05
     2859   01 01627    21302000 A            CI,3     X'2000'           MOD 3.  B.S. TEST IDENT BY      *A05
     2860   01 01628    6840162C              BCR,4    %+4               BYTE 1 OF FIRST WORD OF         *A05
     2861   01 01629    22200001 A            LI,2     1                 MODULE = X'00'.                 *A05
     2862   01 0162A    F234175B              LB,3     *LIST,X2                                          *A05
     2863   01 0162B    68301635              BCR,3    SKIPMOD                                           *A05
     2864         01 0162C           LOADNW   EQU      %
     2865   01 0162C    B240175B              LW,4     *LIST             LOAD A WORD OF MODULE
     2866   01 0162D    B540175D              STW,4    *TEMP             IN TEMP STORAGE
     2867   01 0162E    3310175B              MTW,1    LIST              UPDATE POINTERS
     2868   01 0162F    3310175D              MTW,1    TEMP
     2869   01 01630    6470162C              BDR,X7   LOADNW            LOAD NEXT WORD
     2870   01 01631    3270175D              LW,7     TEMP
     2871   01 01632    387022B4              SW,7     SAVCNT            INITIALISE ADDRESS IN
     2872   01 01633    3570175D              STW,7    TEMP              TEMP
     2873   01 01634    E800000F A            B        *R15              EXIT
     2874                            *
     2875         01 01635           SKIPMOD  EQU      %
     2876   01 01635    322022B4              LW,2     SAVCNT            INCR ADDR IN 'LIST' TO LOAD
     2877   01 01636    6620175B              AWM,2    LIST              NEXT MODULE
     2878   01 01637    6800161E              B        DRIVER
     2879                            *
     2880                            ****     THIS ROUTINE LOADS THE TEST
     2881                            ****     INSTRUCTIONS CONTAINED IN THE
     2882                            ****     BODY OF THE MODULE AT LOCATION X'3800'..PAGE 1C.
     2883                            *
     2884         01 01638           LOADINST EQU      %
     2885   01 01638    72101763              LB,1     INSTAD            GET COUNT OF # OF INST
     2886   01 01639    22200000 A            LI,2     0
     2887   01 0163A    B2341763              LW,3     *INSTAD,X2        GET A INSTRUCTION
     2888   01 0163B    35343800 A            STW,3    X'3800',X2        STORE INST IN PAGE 1C
     2889   01 0163C    20200001 A            AI,X2    1                 INCR POINTER
     2890   01 0163D    6410163A              BDR,X1   %-3               GET NEXT INST
     2891   01 0163E    E800000F A            B        *R15              EXIT
     2892                            *
     2893                            ****     THIS ROUTINE INITIALISES SOURCE
     2894                            ****     AND DESTINATION LOCATIONS(2 WORDS EACH)
     2895                            ****     USED IN MBS TBS,PSM AND STM INSTRUCTIONS.
     2896                            *
     2897         01 0163F           INITSTOR EQU      %
     2898   01 0163F    22200000 A            LI,2     0
     2899   01 01640    352022E9              STW,2    ERRFLAG           CLEAR FLAGS
     2900   01 01641    352022BC              STW,2    TRAPFLG
     2901   01 01642    12201764              LD,2     XDATA             LOAD EXPECTED DATA
     2902   01 01643    02200020 A            LCI      2
     2903   01 01644    AB201762              STM,2    *DBA              STORE AT DESTINATION LOCATION
     2904   01 01645    32401761              LW,4     SBA               LOAD SOURCE ADDR
     2905   01 01646    354022BF              STW,4    WORK2             SAVE ADDR
     2906   01 01647    32501768              LW,5     DISP              GET DISPACEMENT VALU
     2907   01 01648    2550007E A            SLS,5    -2                CONVERT TO WORD VALUE
     2908   01 01649    665022BF              AWM,5    WORK2             ADD TO SORC ADDR
     2909   01 0164A    12201766              LD,2     SORCDATA          LOAD SOURCE DATA
     2910   01 0164B    02200020 A            LCI      2
     2911   01 0164C    AB2022BF              STM,2    *WORK2            STORE SOURCE DATA
     2912   01 0164D    22100001 A            LI,X1    1
     2913   01 0164E    F222175D              LB,2     *TEMP,X1          GET VALUE OF TYPE OF INST
     2914   01 0164F    21200001 A            CI,2     1
     2915   01 01650    6830165B              BE       PSMINST           BRANCH IF A PSM INST
     2916   01 01651    21200002 A            CI,2     2
     2917   01 01652    68301658              BE       SAVER             BRANCH IF A STM INST
     2918   01 01653    32801761              LW,8     SBA               LOAD SOURCE BYTE ADDR
     2919   01 01654    25800002 A            SLS,8    2                 CONVERT TO A BYTE VALUE
     2920   01 01655    32901762              LW,9     DBA               LOAD DESTINATION BYTE ADDR
     2921   01 01656    25900002 A            SLS,9    2                 CONVERT TO A BYTE VALUE
     2922   01 01657    30902489              AW,R9    Y08               SET COUNT=8 FOR BYTE INST
     2923         01 01658           SAVER    EQU      %
     2924   01 01658    358022B2              STW,8    SAVR8             SAVE R8
     2925   01 01659    359022B3              STW,9    SAVR9             SAVE R9
     2926   01 0165A    E800000F A            B        *R15              EXIT
     2927                            *
     2928         01 0165B           PSMINST  EQU      %
     2929   01 0165B    1220176A              LD,2     XDATA+6           GET STACK DOUBLE WORD POINTER
     2930   01 0165C    152039FC A            STD,2    X'39FC'           SAVE IT IN PAGE 1C
     2931   01 0165D    68001658              B        SAVER
     2932                            *
     2933                            *
     2934                            ****     ENTER HERE ON AN ACCESS PROTECT VIOLATION TRAP
     2935                            ****     FOR THIS TEST
     2936                            *
     2937         01 0165E           T24OKTRP EQU      %
     2938   01 0165E    70200392              LC       #SENSE
     2939   01 0165F    02000000 A            NOP                        GO TO LOPT24 OR LOPT39 IF SS1 SET *A03
     2940   01 01660    B28021AC              LW,8     *TRAP40           GET TEST INST
     2941   01 01661    358022D8              STW,8    TINST             SAVE TEST INST
     2942   01 01662    32802252              LW,8     DID                                               *A03
     2943   01 01663    329022BC              LW,9     TRAPFLG           IF FLAG 0                       *A03
     2944   01 01664    68301667              BEZ      %+3               TRAP TO X'40';OK                *A03
     2945   01 01665    331022E9              MTW,1    ERRFLAG           SET ERROR FLAG
     2946   01 01666    32802253              LW,8     NOT
     2947   01 01667    35802A76              STW,8    PLMSG9+5
     2948         01 01668           CHKDATA  EQU      %
     2949   01 01668    22100000 A            LI,X1    0
     2950   01 01669    02200020 A            LCI      2
     2951   01 0166A    AA801762              LM,8     *DBA              GET DEST. LOC. DATA
     2952   01 0166B    11801764              CD,8     XDATA             COMPARE WITH EXP. DATA
     2953   01 0166C    6830166E              BE       %+2               OK IF E.Q.;THAT IS INST ABORTED
     2954   01 0166D    331022E9              MTW,1    ERRFLAG           SET ERROR FLAG
     2955   01 0166E    328022E9              LW,8     ERRFLAG
     2956   01 0166F    68301672              BEZ      TOK7              TEST OK IF NOT SET
     2957   01 01670    6AF01683              BAL,R15  ERPLT7            REPORT ERROR
     2958   01 01671    02000000 A   SLOOP    NOP                        ('B LOPT24/B LOPT39')RETURN HERE*A03
     2959                            *                                   IF SS1=1;SS3=0
     2960   01 01672    328003F2     TOK7     LW,8     TCR:NUM           NORMAL RETURN                   *A03
     2961   01 01673    21800026 A            CI,8     TNUM39                                            *A03
     2962   01 01674    68301A8E              BE       TEST39            BRANCH IF TEST 39
     2963   01 01675    B280175B              LW,8     *LIST
     2964   01 01676    21800000 A            CI,8     0                 IF ZERO
     2965   01 01677    68301679              BE       %+2               LAST MODULE DONE
     2966   01 01678    68001611              B        GETNMOD1          OTHERWISE GET NEXT MODULE
     2967   01 01679    70200392              LC       #SENSE
     2968   01 0167A    694015FD              BCS,4    TST24PL+1         BRANCH FOR LONG LOOP IF SET     *A01
     2969   01 0167B    6AF01EDA              BAL,R15  ALMAPREG
     2970   01 0167C    6AF01EE2              BAL,R15  ALLACREG
     2971   01 0167D    680010B0              B        TST:CONT          NEXT TEST                       *A01
     2972                            *
     2973                            *
     2974                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST
     2975                            *
     2976         01 0167E           T24CAL1  EQU      %
     2977   01 0167E    331022BC              MTW,1    TRAPFLG           SET TRAP FLAG
     2978   01 0167F    33F02220              MTW,-1   TRAPCAL1          COMPUTE TEST INST ADDR
     2979   01 01680    12802220              LD,8     TRAPCAL1
     2980   01 01681    158021AC              STD,8    TRAP40            SAVE PSD
     2981   01 01682    6800165E              B        T24OKTRP
     2982                            *
     2983         01 01683           ERPLT7   EQU      %
     2984   01 01683    328003F2              LW,8     TCR:NUM                                           *A01
     2985   01 01684    21800026 A            CI,8     TNUM39            WRITE LOCK CHECKS               *A03
     2986   01 01685    68301A95              BE       ERWLP4            IF TEST 39
     2987   01 01686    331022D0              MTW,1    ECAC              UPDATE ERROR COUNTER
     2988   01 01687    32802250              LW,8     AC#
     2989         01 01688           XERPLT7  EQU      %                                                 *A03
     2990   01 01688    35802A7A              STW,8    PLMSG9+9
     2991   01 01689    6AD014D0              BAL,R13  ERRPL:5                                           *A02
     2992   01 0168A    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     2993   01 0168B    32102242              LW,X1    MODULE#           LOAD MOD. #
     2994   01 0168C    32822238              LW,8     ADMODCHK,X1       LOAD ADDR OF MOD. TEST DEFINITION
     2995   01 0168D    6D000032 A            #HTECON  MODULE#           CONVERT MOD. #
            01 0168E    EA6003C3
            01 0168F    00002242
            01 01690    6D000022 A
     2996   01 01691    322C0001 A            LW,2     1,LINK
     2997   01 01692    2230000C A            LI,X3    12                SET INDEX
     2998   01 01693    F5260008 A            STB,2    *R8,X3            STORE IN BUFFER
     2999   01 01694    25800002 A            SLS,8    2                 CONVERT TO BYTE ADDRESS
     3000   01 01695    49802478              OR,8     YC1               INSERT FORMAT CHARACTER         *A03
     3001   01 01696    35801699              STW,R8   XPRNT2+2          STORE ADDR OF TEXTC TO BE PRNT  *A03
     3002   01 01697    EA6003C5     XPRNT2   #PRINT   CHK1,C1           PRINT APPROPRIATE DEFINITION    *A03
            01 01698    EA6003CD
            01 01699    C100BB10 A
            01 0169A    EA6003C6
     3003   01 0169B    6D000032 A            #HTECON  TINST             CONVERT TEST INST
            01 0169C    EA6003C3
            01 0169D    000022D8
            01 0169E    6D000022 A
     3004   01 0169F    2A8C0000 A            LM,8     0,LINK
     3005   01 016A0    02200020 A            LCI      2
     3006   01 016A1    2B802A74              STM,8    PLMSG9+3          STORE IT
     3007   01 016A2    6D000032 A            #HTECON  SAVR8             CONVERT SAVED R8
            01 016A3    EA6003C3
            01 016A4    000022B2
            01 016A5    6D000022 A
     3008   01 016A6    2A8C0000 A            LM,8     0,LINK
     3009   01 016A7    02200020 A            LCI      2
     3010   01 016A8    2B802A7D              STM,8    PLMSG9+12         STORE IT
     3011   01 016A9    6D000032 A            #HTECON  SAVR9             CONVERT SAVED R9
            01 016AA    EA6003C3
            01 016AB    000022B3
            01 016AC    6D000022 A
     3012   01 016AD    2A8C0000 A            LM,8     0,LINK
     3013   01 016AE    02200020 A            LCI      2
     3014   01 016AF    2B802A81              STM,8    PLMSG9+16         STORE IT
     3015   01 016B0    6D000032 A            #BTECON  ACLOAD            CONVERT AC BITS
            01 016B1    EA6003C4
            01 016B2    00002449
            01 016B3    6D000022 A
     3016   01 016B4    328C0007 A            LW,8     7,LINK
     3017   01 016B5    55802A7B              STH,8    PLMSG9+10         STORE IT
     3018   01 016B6    EA6003C5              #PRINT   PLMSG9            PRINT MESSAGE
            01 016B7    EA6003CD
            01 016B8    C000A9C4 A
            01 016B9    EA6003C6
     3019   01 016BA    B2801762              LW,8     *DBA              CONVERT ACTUAL DATA
     3020   01 016BB    6D000032 A            #HTECON  R8
            01 016BC    EA6003C3
            01 016BD    00000008 A
            01 016BE    6D000022 A
     3021   01 016BF    2A8C0000 A            LM,8     0,LINK
     3022   01 016C0    02200020 A            LCI      2
     3023   01 016C1    2B802A90              STM,8    PLMSG10+13
     3024   01 016C2    22100001 A            LI,X1    1
     3025   01 016C3    B2821762              LW,8     *DBA,X1
     3026   01 016C4    6D000032 A            #HTECON  R8
            01 016C5    EA6003C3
            01 016C6    00000008 A
            01 016C7    6D000022 A
     3027   01 016C8    2A8C0000 A            LM,8     0,LINK
     3028   01 016C9    02200020 A            LCI      2
     3029   01 016CA    2B802A93              STM,8    PLMSG10+16
     3030   01 016CB    6D000032 A            #HTECON  XDATA             CONVERT EXPECTED DATA
            01 016CC    EA6003C3
            01 016CD    00001764
            01 016CE    6D000022 A
     3031   01 016CF    2A8C0000 A            LM,8     0,LINK
     3032   01 016D0    02200020 A            LCI      2
     3033   01 016D1    2B802A87              STM,8    PLMSG10+4
     3034   01 016D2    6D000032 A            #HTECON  XDATA+1
            01 016D3    EA6003C3
            01 016D4    00001765
            01 016D5    6D000022 A
     3035   01 016D6    2A8C0000 A            LM,8     0,LINK
     3036   01 016D7    02200020 A            LCI      2
     3037   01 016D8    2B802A8A              STM,8    PLMSG10+7
     3038   01 016D9    328022BC              LW,8     TRAPFLG
     3039   01 016DA    693016DC              BNEZ     SKIPTI            SKIP TRAP INFO
     3040   01 016DB    6AB01E1D              BAL,11   TSTINFO5          OUTPUT TRAP INFO                *A03
     3041         01 016DC           SKIPTI   EQU      %
     3042   01 016DC    EA6003C5              #PRINT   PLMSG10           PRINT EXP AND ACTUAL DATA
            01 016DD    EA6003CD
            01 016DE    C000AA0C A
            01 016DF    EA6003C6
     3043   01 016E0    68001D8F              B        COMMON
     3044                            *
     3045                            ****     THERE ARE TEN MODULES IN ALL.
     3046                            ****     MOD0 TO MOD3 ARE FOR MOVE BYTE STRING(MBS) INST.
     3047                            ****     MOD4 TO MOD5 ARE FOR TRANSLATE BYTE STRING INST.
     3048                            ****     MOD6 TO MOD7 ARE FOR PUSH MULTIPLE(PSM) INST.
     3049                            ****     MOD8 TO MOD9 ARE FOR STORE MULTIPLE(STM) INST.
     3050                            *
     3051                                     BOUND    8
     3052         01 016E2           MOD0     EQU      %                 DESTINATION+COUNT CHECK
     3053   01 016E2    0300000B A            DATA     X'0300000B'
     3054   01 016E3    000039FD A            DATA     X'39FD'
     3055   01 016E4    000039FF A            DATA     X'39FF'
     3056   01 016E5    020016EB              GEN,8,24 2,%+6
     3057   01 016E6    08090A0B A            DATA     X'08090A0B'
     3058   01 016E7    0C0D0E0F A            DATA     X'0C0D0E0F'
     3059   01 016E8    00010203 A            DATA     X'00010203'
     3060   01 016E9    04050607 A            DATA     X'04050607'
     3061   01 016EA    00000000 A            DATA     0
     3062   01 016EB    61800000 A            MBS,R8   0
     3063   01 016EC    04400000 A            CAL1,4   0
     3064                            *
     3065         01 016ED           MOD1     EQU      %                 SOURCE+DISPLACEMENT+COUNT CHECK
     3066   01 016ED    0300000B A            DATA     X'0300000B'
     3067   01 016EE    000039FF A            DATA     X'39FF'
     3068   01 016EF    000039FD A            DATA     X'39FD'
     3069   01 016F0    020016F6              GEN,8,24 2,%+6
     3070   01 016F1    01234567 A            DATA     X'01234567'
     3071   01 016F2    89ABCDEF A            DATA     X'89ABCDEF'
     3072   01 016F3    FEDCBA98 A            DATA     X'FEDCBA98'
     3073   01 016F4    76543210 A            DATA     X'76543210'
     3074   01 016F5    00000000 A            DATA     0
     3075   01 016F6    61800000 A            MBS,R8   0
     3076   01 016F7    04400000 A            CAL1,4   0
     3077                            *
     3078         01 016F8           MOD2     EQU      %                 DESTINATION CHECK
     3079   01 016F8    0300000B A            DATA     X'0300000B'
     3080   01 016F9    000039FD A            DATA     X'39FD'
     3081   01 016FA    00003BFF A            DATA     X'3BFF'
     3082   01 016FB    02001701              GEN,8,24 2,%+6
     3083   01 016FC    0F0E0D0C A            DATA     X'0F0E0D0C'
     3084   01 016FD    0B0A0908 A            DATA     X'0B0A0908'
     3085   01 016FE    07060504 A            DATA     X'07060504'
     3086   01 016FF    03020100 A            DATA     X'03020100'
     3087   01 01700    00000000 A            DATA     0
     3088   01 01701    61800000 A            MBS,R8   0
     3089   01 01702    04400000 A            CAL1,4   0
     3090                            *
     3091         01 01703           MOD3     EQU      %                 SOURCE +DISPLACEMENT CHECK
     3092   01 01703    0300000B A            DATA     X'0300000B'
     3093   01 01704    000039FF A            DATA     X'39FF'
     3094   01 01705    000039FD A            DATA     X'39FD'
     3095   01 01706    0200170C              GEN,8,24 2,%+6
     3096   01 01707    00010203 A            DATA     X'00010203'
     3097   01 01708    04050607 A            DATA     X'04050607'
     3098   01 01709    08090A0B A            DATA     X'08090A0B'
     3099   01 0170A    0C0D0E0F A            DATA     X'0C0D0E0F'
     3100   01 0170B    00008000 A            DATA     X'8000'
     3101   01 0170C    61800800 A            MBS,R8   2048
     3102   01 0170D    04400000 A            CAL1,4   0
     3103                            *
     3104         01 0170E           MOD4     EQU      %                 DESTINATION+COUNT CHECK
     3105   01 0170E    0300000B A            DATA     X'0300000B'
     3106   01 0170F    000039FD A            DATA     X'39FD'
     3107   01 01710    000039FF A            DATA     X'39FF'
     3108   01 01711    02001717              GEN,8,24 2,%+6
     3109   01 01712    00010203 A            DATA     X'00010203'
     3110   01 01713    04050607 A            DATA     X'04050607'
     3111   01 01714    08090A0B A            DATA     X'08090A0B'
     3112   01 01715    0C0D0E0F A            DATA     X'0C0D0E0F'
     3113   01 01716    00000000 A            DATA     0
     3114   01 01717    41800000 A            TBS,R8   0
     3115   01 01718    04400000 A            CAL1,4   0
     3116                            *
     3117         01 01719           MOD5     EQU      %                 DESTINATION CHECK
     3118   01 01719    0300000B A            DATA     X'0300000B'
     3119   01 0171A    000039FD A            DATA     X'39FD'
     3120   01 0171B    00003BFF A            DATA     X'3BFF'
     3121   01 0171C    02001722              GEN,8,24 2,%+6
     3122   01 0171D    00010203 A            DATA     X'00010203'
     3123   01 0171E    04050607 A            DATA     X'04050607'
     3124   01 0171F    08090A0B A            DATA     X'08090A0B'
     3125   01 01720    0C0D0E0F A            DATA     X'0C0D0E0F'
     3126   01 01721    00000000 A            DATA     0
     3127   01 01722    41800000 A            TBS,R8   0
     3128   01 01723    04400000 A            CAL1,4   0
     3129                            *
     3130         01 01724           MOD6     EQU      %                 PSM--LOCATION CHECK
     3131   01 01724    0301000F A            DATA     X'0301000F'
     3132   01 01725    00000008 A            DATA     X'8'
     3133   01 01726    00003A00 A            DATA     X'3A00'
     3134   01 01727    03001730              GEN,8,24 3,%+9
     3135   01 01728    00010203 A            DATA     X'00010203'
     3136   01 01729    04050607 A            DATA     X'04050607'
     3137   01 0172A    08090A0B A            DATA     X'08090A0B'
     3138   01 0172B    0C0D0E0F A            DATA     X'0C0D0E0F'
     3139   01 0172C    00000000 A            DATA     0
     3140   01 0172D    00000000 A            DATA     0
     3141   01 0172E    000039FF A            DATA     X'39FF'
     3142   01 0172F    00040000 A            DATA     X'00040000'
     3143   01 01730    02200020 A            LCI      2
     3144   01 01731    0B8039FC A            PSM,R8   X'39FC'
     3145   01 01732    04400000 A            CAL1,4   0
     3146                            *
     3147         01 01733           MOD7     EQU      %                 PSM--LOCATION+CC-1 CHECK
     3148   01 01733    0301000F A            DATA     X'0301000F'
     3149   01 01734    00000008 A            DATA     X'8'
     3150   01 01735    000039FF A            DATA     X'39FF'
     3151   01 01736    0300173F              GEN,8,24 3,%+9
     3152   01 01737    08090A0B A            DATA     X'08090A0B'
     3153   01 01738    0C0D0E0F A            DATA     X'0C0D0E0F'
     3154   01 01739    00010203 A            DATA     X'00010203'
     3155   01 0173A    04050607 A            DATA     X'04050607'
     3156   01 0173B    00000000 A            DATA     0
     3157   01 0173C    00000000 A            DATA     0
     3158   01 0173D    000039FE A            DATA     X'39FE'
     3159   01 0173E    00040000 A            DATA     X'00040000'
     3160   01 0173F    02200020 A            LCI      2
     3161   01 01740    0B8039FC A            PSM,R8   X'39FC'
     3162   01 01741    04400000 A            CAL1,4   0
     3163                            *
     3164         01 01742           MOD8     EQU      %                 STM--LOCATION CHECK
     3165   01 01742    0302000C A            DATA     X'0302000C'
     3166   01 01743    00000008 A            DATA     X'8'
     3167   01 01744    00003A00 A            DATA     X'3A00'
     3168   01 01745    0300174B              GEN,8,24 3,%+6
     3169   01 01746    00010203 A            DATA     X'00010203'
     3170   01 01747    04050607 A            DATA     X'04050607'
     3171   01 01748    08090A0B A            DATA     X'08090A0B'
     3172   01 01749    0C0D0E0F A            DATA     X'0C0D0E0F'
     3173   01 0174A    00000000 A            DATA     0
     3174   01 0174B    02200020 A            LCI      2
     3175   01 0174C    2B803A00 A            STM,R8   X'3A00'
     3176   01 0174D    04400000 A            CAL1,4   0
     3177                            *
     3178         01 0174E           MOD9     EQU      %                 STM--LOCATION+CC-1  CHECK
     3179   01 0174E    0302000C A            DATA     X'0302000C'
     3180   01 0174F    00000008 A            DATA     X'8'
     3181   01 01750    000039FF A            DATA     X'39FF'
     3182   01 01751    03001757              GEN,8,24 3,%+6
     3183   01 01752    08090A0B A            DATA     X'08090A0B'
     3184   01 01753    0C0D0E0F A            DATA     X'0C0D0E0F'
     3185   01 01754    00010203 A            DATA     X'00010203'
     3186   01 01755    04050607 A            DATA     X'04050607'
     3187   01 01756    00000000 A            DATA     0
     3188   01 01757    02200020 A            LCI      2
     3189   01 01758    2B8039FF A            STM,R8   X'39FF'
     3190   01 01759    04400000 A            CAL1,4   0
     3191                            *
     3192         01 0175A           MODLAST  EQU      %
     3193   01 0175A    00000000 A            DATA     0
     3194                            *
     3195   01 0175B    00000000 A   LIST     DATA     0
     3196   01 0175C    000016E2     AMOD     DATA     WA(MOD0)
     3197                            *
     3198   01 0175D    00000000 A   TEMP     DATA     0
     3199   01 0175E    00001760     ATEMP    DATA     WA(MODLOC)
     3200                            *
     3201                                     BOUND    8
     3202         01 01760           MODLOC   EQU      %
     3203   01 01760    00000000 A            DATA     0                 BYT0=AC/WL BITS;
     3204                            *                                   BYT1 = 00--BYTE INSTRUCTIONS
     3205                            *                                   BYT1 = 01--PUSH MULTIPLE INST
     3206                            *                                   BYT1 = 02--STORE MULTIPLE INST
     3207                            *                                   BYT2 = 01--SKIP MOD. FOR WL  TESTS
     3208                            *                                   BYT3 = # OF WORDS IN MODULE
     3209   01 01761    00000000 A   SBA      DATA     0                 SOURCE BYTE WORD ADDRESS
     3210   01 01762    00000000 A   DBA      DATA     0                 DESTINATION BYTE WORD ADDR
     3211   01 01763    00000000 A   INSTAD   DATA     0                 # OF INST;ADDRESS OF FIRST INST
     3212   01 01764    00000000 A   XDATA    DATA     0                 EXPECTED DATA
     3213   01 01765    00000000 A            DATA     0
     3214   01 01766    00000000 A   SORCDATA DATA     0                 SOURCE LOC. DATA
     3215   01 01767    00000000 A            DATA     0
     3216   01 01768    00000000 A   DISP     DATA     0                 DISPLACEMENT(BYTE) VAL. FOR
     3217   01 01769    00000000 A            DATA     0                 BYTE INSTRUCTIONS
     3218   01 0176A    00000000 A            DATA     0
     3219   01 0176B    00000000 A            DATA     0
     3220   01 0176C                          RES      10
     3221                            *
     3222                            *
     3223                            *
     3224                            ****     CHECK THAT ON EXECUTING A WAIT INSTRUCTION
     3225                            ****     MASTER,MAP & PROTECTED MODE NO TRAP OCCURS
     3226                            ****     TO X'40' IF NEXT INSTRUCTION AFTER WAIT IS
     3227                            ****     IN A PAGE WHICH IS ACCESS PROTECTED.
     3228                            *
     3229         01 01776           TST25PL  EQU      %                 PROTECT LOGIC TEST 11
     3230   01 01776    6AF01DAE              BAL,R15  STSAC             STATUS
     3231   01 01777    3280225D              LW,8     INT5D                                             *A02
     3232   01 01778    3580005D A            STW,8    X'5D'             STORE XPSD                      *A02
     3233   01 01779    6AF01EF9              BAL,15   MAPSELF           LOAD MAP REG'S 1 TO 1           *A02
     3234   01 0177A    22800003 A            LI,8     3
     3235   01 0177B    22600008 A            LI,6     R8
     3236   01 0177C    3270247B              LW,7     Y01002
     3237   01 0177D    6F640000 A            MMC,6    2                 LOAD AC=11 FOR PAGE 1F
     3238   01 0177E    02200080 A            LCI      8                                                 *A02
     3239   01 0177F    2A2017A7              LM,2     WAITINST
     3240   01 01780    02200080 A            LCI      8                                                 *A02
     3241   01 01781    2B203DF9 A            STM,2    X'3DF9'                                           *A02
     3242         01 01782           LOPT25   EQU      %
     3243   01 01782    22800000 A            LI,8     0
     3244   01 01783    358022E9              STW,8    ERRFLAG           RESET FLAG
     3245   01 01784    0E001786              LPSD,0   MAPMP             INVOKE MASTER-MAP PROT. MODE
     3246                                     BOUND    8
     3247   01 01786    00403DF9 A   MAPMP    DATA     X'00403DF9'       EXECUTE WAIT INST AT 3DFF       *A02
     3248   01 01787    00800000 A            DATA     X'00800000'
     3249                            *
     3250                            ****     ENTER HERE ON CONTROL PANEL INT. FOR THIS TEST.            *A02
     3251                            *
     3252                                     BOUND    8
     3253   01 01788    00000000 A   CPINTA   DATA     0                                                 *A02
     3254   01 01789    00000000 A            DATA     0
     3255   01 0178A    0000178C              DATA     %+2
     3256   01 0178B    00000000 A            DATA     0
     3257   01 0178C    22800010 A            LI,8     X'10'             DISARM CONTROL PANEL INT.       *A02
     3258   01 0178D    6D801100 A            WD,8     X'1100'                                           *A02
     3259   01 0178E    70200392     SS1CHK   LC       #SENSE                                            *A02
     3260   01 0178F    69801782              BCS,8    LOPT25            SHORT LOOP IF SS1 SET
     3261   01 01790    328022E9              LW,8     ERRFLAG           IF FLAG 0
     3262   01 01791    68301794              BEZ      TOK8              NO TRAP TO X'40';TEST OK        *A03
     3263   01 01792    6AF0179F              BAL,R15  ERPLT8            OTHERWISE REPORT ERROR
     3264   01 01793    68001782              B        LOPT25            RETURN HERE IF SS1=1;SS3=0      *A03
     3265   01 01794    70200392     TOK8     LC       #SENSE                                            *A03
     3266   01 01795    69401782              BCS,4    LOPT25            LONG LOOP IF SS2 SET
     3267   01 01796    6AF01EDA              BAL,R15  ALMAPREG
     3268   01 01797    6AF01EE2              BAL,R15  ALLACREG
     3269   01 01798    3280226B              LW,8     GUID:5D                                           *A02
     3270   01 01799    3580005D A            STW,8    X'5D'             RESTORE GUID'S XPSD             *A02
     3271   01 0179A    680010B0              B        TST:CONT          NEXT TEST                       *A01
     3272                            *
     3273                            ****     ENTER HERE ON A ACCESS PROTECT VIOLATION
     3274                            ****     TRAP FOR THIS TEST.
     3275                            *
     3276         01 0179B           T25ERTRP EQU      %
     3277   01 0179B    22800010 A            LI,8     X'10'             DISARM CONTROL PANEL INT.       *A02
     3278   01 0179C    6D801100 A            WD,8     X'1100'
     3279   01 0179D    331022E9              MTW,1    ERRFLAG           SET ERROR FLAG
     3280   01 0179E    6800178E              B        SS1CHK                                            *A02
     3281                            *
     3282         01 0179F           ERPLT8   EQU      %
     3283   01 0179F    6AD014CB              BAL,R13  ERRPL
     3284   01 017A0    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     3285   01 017A1    EA6003C5              #PRINT   PLMSG11,C1        PRINT MESSAGE                   *A03
            01 017A2    EA6003CD
            01 017A3    C100AA54 A
            01 017A4    EA6003C6
     3286   01 017A5    6AB01E1D              BAL,11   TSTINFO5          OUTPUT TRAP INFO                *A03
     3287   01 017A6    68001D8F              B        COMMON
     3288                            *
     3289         01 017A7           WAITINST EQU      %
     3290   01 017A7    22800010 A            LI,8     X'10'             ARM AND ENABLE CONTROL PANEL    *A02
     3291   01 017A8    6D801200 A            WD,8     X'1200'           INT.SET UP TO SNAP THE WAIT     *A02
     3292   01 017A9    32802264              LW,8     SNAP:WAT          INST.WHEN THE COUNT GOES TO  0  *A02
     3293   01 017AA    6D800049 A            WD,8     X'49'             CNT PANEL INT WILL BE TRIGGERED *A02
     3294   01 017AB    02000000 A            NOP                        AND WILL TAKE CPU OUT OF WAIT   *A02
     3295   01 017AC    02000000 A            NOP                        STATE.                          *A02
     3296   01 017AD    2E000000 A            WAIT                                                       *A02
     3297   01 017AE    02000000 A            NOP                                                        *A02
     3298                            *
     3299                            *
     3300         01 017AF           TST26    EQU      %
     3301   01 017AF    680010B0              B        TST:CONT                                          *A01
     3302                            *
     3303                            *
     3304         01 017B0           TST27    EQU      %
     3305   01 017B0    680010B0              B        TST:CONT                                          *A01
     3306                            *
     3307                            *
     3308                            ****
     3309                            ****MASTER MODE TESTS.
     3310                            ****THESE TESTS PERFORM THE FOLLOWING CHECKS
     3311                            ****
     3312                            ****1. RUN A MASTER MODE PROGRAM WHICH
     3313                            ****   IS MAPPED AND UNPROTECTED AND
     3314                            ****   CHECK THAT MAPPING IS PERFORMED CORRECTLY
     3315                            ****   BITS 8,9 AND 40 OF PSD ARE 0,1 AND 0
     3316                            ****   RESPECTIVELY. AC BITS FOR TEST VP ARE 00.
     3317                            ****2. SAME AS ABOVE EXCEPT AC BITS FOR TEST VP ARE 11.
     3318                            ****   CHECK THAT A TRAP DOES NOT OCCUR TO X'40'
     3319                            ****   EVEN THOUGH AC=11 FOR MAPPED PAGE.
     3320                            ****3. SAME AS ABOVE EXCEPT PSD BIT 40 = 1 TO INVOKE
     3321                            ****   MASTER PROTECTED MODE. CHECK THAT A TRAP
     3322                            ****   DOES OCCUR TO X'40' IN THIS CASE.
     3323                            ****4. SAME AS ABOVE EXCEPT AC=00 FOR TEST PAGE.
     3324                            ****     TO CHECK THAT NO REAL EXTENDED ADDRESSING
     3325                            ****   TAKES PLACE EVEN THOUGH PSD40=1.
     3326                            ****
     3327                            ****
     3328                            ****5. LRA INST DOES NOT TRAP TO X'40' WHEN IN MASTER PROTECTED     *A03
     3329                            ****   MODE.                                                        *A03
     3330                            ****
     3331         01 017B1           TST28MM  EQU      %                 MASTER MODE TEST 1
     3332   01 017B1    6AF01DB5              BAL,R15  STSMM             MM STATUS
     3333   01 017B2    6AF01EE2              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     3334   01 017B3    22800000 A            LI,8     0
     3335   01 017B4    358022A2              STW,8    TPAC              STORE TEST AC PATTERN
     3336   01 017B5    329022EC              LW,9     LWTIP
     3337   01 017B6    22800000 A            LI,8     0
     3338   01 017B7    6AF01E97              BAL,R15  SETMAP            SET MAP FOR THIS TEST
     3339   01 017B8    6AF01F28              BAL,R15  SETLPSD1          SET LPSD FOT MASTER,MAPED,UPRT.
     3340   01 017B9    358017C0              STW,8    MMLPSD            STORE WORD1
     3341   01 017BA    6AF01E8C              BAL,R15  SETINST           SET UP TEST INST
     3342   01 017BB    020017C2              GEN,8,2,22  2,0,TSTINST1
     3343         01 017BC           LOADPSD1 EQU      %
     3344   01 017BC    3210246A              LW,1     TESTPAGE          SET UP ADDRESS IN
     3345   01 017BD    25100009 A            SLS,1    9                 BITS 15-22 OF X1
     3346   01 017BE    22300000 A            LI,3     0                 RESET R3                        *A03
     3347   01 017BF    0E0017C0              LPSD,0   MMLPSD            SET PROGRAM TO MASTER,MAPPED
     3348                                     BOUND    8                 UNPROTECTED MODE
     3349   01 017C0    00403DF8 A   MMLPSD   DATA     X'00403DF8'
     3350   01 017C1    00000000 A            DATA     0
     3351                            *
     3352                            *
     3353         01 017C2           TSTINST1 EQU      %                 TEST INSTRUCTIONS
     3354   01 017C2    323201F8 A            LW,3     X'1F8',X1                                         *A03
     3355   01 017C3    04500000 A            CAL1,5   0
     3356                            *
     3357                            *
     3358                            **************************************************************
     3359                            **************************************************************
     3360                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     3361                            **************************************************************
     3362                            **************************************************************
     3363                            *
     3364                            *
     3365         01 017C4           T28CAL1  EQU      %
     3366   01 017C4    70200392              LC       #SENSE            CHECK FOR SS1. IF SET
     3367   01 017C5    698017BC              BCS,8    LOADPSD1          BRANCH FOR SHORT LOOP
     3368   01 017C6    313017C2              CW,3     TSTINST1          R12 SHOULD HAVE LW TEST INST.   *A03
     3369   01 017C7    683017CD              BE       TOK9              IF YES TEST OK                  *A03
     3370   01 017C8    353022AE              STW,3    ACTDATA           SAVE ACT DATA                   *A03
     3371   01 017C9    B28022F0              LW,8     *MAPEDADR                                         *A03
     3372   01 017CA    358022AD              STW,8    EXPDATA           SAVE EXP DATA                   *A03
     3373   01 017CB    6AF017D0              BAL,R15  ERMAST1           OTHERWISE REPORT ERROR
     3374   01 017CC    680017BC              B        LOADPSD1          RETURN HERE IF SS1=1;SS3=0      *A03
     3375   01 017CD    70200392     TOK9     LC       #SENSE            CHECK FOR SS2. IF SET           *A03
     3376   01 017CE    694017BC              BCS,4    LOADPSD1          BRANCH FOR LONG LOOP
     3377   01 017CF    680010B0              B        TST:CONT          START NEXT TEST                 *A01
     3378                            *
     3379                            *
     3380         01 017D0           ERMAST1  EQU      %
     3381   01 017D0    6AD017D3              BAL,R13  ERRMAST
     3382   01 017D1    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     3383   01 017D2    680013FD              B        XERMAP1                                           *A03
     3384                            *
     3385         01 017D3           ERRMAST  EQU      %
     3386   01 017D3    331022D2              MTW,1    ECMM              UPDATE ERROR COUNTER
     3387   01 017D4    B28022F0              LW,8     *MAPEDADR                                         *A03
     3388   01 017D5    358022D8              STW,8    TINST             STORE TEST INST.
     3389   01 017D6    328022F0              LW,8     MAPEDADR
     3390   01 017D7    358022D9              STW,8    TADDR             STORE TEST INST LOCATION
     3391   01 017D8    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     3392   01 017D9    E910000D A            BCS,1    *R13              SUPRESS PRINTOUT                *A03
     3393   01 017DA    3310000D A            MTW,1    R13               INCR RETURN ADDR                *A03
     3394   01 017DB    32800393              LW,8     #HDRFLG           CHECK HEADING FLAG
     3395   01 017DC    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #              *A02
     3396   01 017DD    E830000D A            BE       *R13              SKIP HEADING OUTPUT             *A02
     3397   01 017DE    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     3398   01 017DF    55802AC1              STH,8    MMHD1+9           STORE IN BUFFER
     3399   01 017E0    EA6003C5              #PRINT   MMHD1,C1          PRINT HEADING
            01 017E1    EA6003CD
            01 017E2    C100AAE0 A
            01 017E3    EA6003C6
     3400   01 017E4    E800000D A            B        *R13
     3401                            *
     3402                            *
     3403                            *
     3404                            *
     3405         01 017E5           TST29MM  EQU      %                 MASTER MODE TEST 2
     3406   01 017E5    6AF01DB5              BAL,R15  STSMM             MM STATUS
     3407   01 017E6    22800003 A            LI,8     3
     3408   01 017E7    358022A2              STW,8    TPAC              STORE TEST AC PATTERN
     3409   01 017E8    35802449              STW,8    ACLOAD            SAVE AC PATTERN FOR TEST PAGE
     3410   01 017E9    329022EF              LW,9     LWTP
     3411   01 017EA    6AF01E97              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     3412   01 017EB    6AF01F02              BAL,R15  SETAC             SET UP AC FOR THIS TEST
     3413   01 017EC    6AF01F28              BAL,R15  SETLPSD1          SET UP LPSD
     3414   01 017ED    358017C0              STW,8    MMLPSD            STORE PSW1
     3415   01 017EE    6AF01E8C              BAL,R15  SETINST           SET UP TEST INST
     3416   01 017EF    0200180F              GEN,8,2,22  2,0,TSTINST2
     3417         01 017F0           LOADPSD2 EQU      %
     3418   01 017F0    22800000 A            LI,8     0
     3419   01 017F1    358022E9              STW,8    ERRFLAG           CLEAR ERROR FLAG
     3420   01 017F2    3210246A              LW,1     TESTPAGE
     3421   01 017F3    25100009 A            SLS,1    9                 TEST VP ADDR IN BITS 15-22
     3422   01 017F4    22300000 A            LI,3     0                 RESET R3                        *A03
     3423   01 017F5    0E0017C0              LPSD,0   MMLPSD            SET PROGRAM TO MASTER ,MAPPED
     3424                            *                                   UNPROTECTED MODE
     3425                            *
     3426                            *************************************************************
     3427                            *************************************************************
     3428                            *****    ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     3429                            *************************************************************
     3430                            *************************************************************
     3431                            *
     3432         01 017F6           T29CAL1  EQU      %
     3433   01 017F6    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3434   01 017F7    698017F0              BCS,8    LOADPSD2          BRANCH FOR SHORT LOOP
     3435   01 017F8    328022E9              LW,8     ERRFLAG           IF ERROR FLAG NOT SET
     3436   01 017F9    683017FD              BEZ      TOK10             TEST OK                         *A03
     3437   01 017FA    22802AC2              LI,8     MMSG1                                             *A03
     3438   01 017FB    6AF01803              BAL,R15  ERMAST2           REPORT ERROR
     3439   01 017FC    680017F0              B        LOADPSD2          RETURN HERE IF SS1=1;SS3=0      *A03
     3440   01 017FD    70200392     TOK10    LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     3441   01 017FE    694017F0              BCS,4    LOADPSD2          BRANCH FOR LONG LOOP
     3442   01 017FF    680010B0              B        TST:CONT          START NEXT TEST                 *A01
     3443                            *
     3444                            *
     3445                            *************************************************************
     3446                            *************************************************************
     3447                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     3448                            ****     FOR THIS TEST.
     3449                            *************************************************************
     3450                            *************************************************************
     3451                            *
     3452                            *
     3453         01 01800           T29ERTRP EQU      %
     3454   01 01800    22800001 A            LI,8     1
     3455   01 01801    358022E9              STW,8    ERRFLAG           SET ERROR FLAG
     3456   01 01802    680017F6              B        T29CAL1
     3457                            *
     3458                            *
     3459         01 01803           ERMAST2  EQU      %
     3460   01 01803    25800002 A            SLS,8    2                 FORM BYTE ADDR                  *A03
     3461   01 01804    49802477              OR,8     YC                INSERT FORMAT CHARACTER         *A03
     3462   01 01805    3580180B              STW,8    XPRNT7+2                                          *A03
     3463   01 01806    6AD017D3              BAL,R13  ERRMAST
     3464   01 01807    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     3465   01 01808    6AB01DD7              BAL,R11  TSTINFO2          GET TEST INFO AND PRIINT
     3466   01 01809    EA6003C5     XPRNT7   #PRINT   MMSG1             PRINT ERROR MESSAGE             *A03
            01 0180A    EA6003CD
            01 0180B    C000AB08 A
            01 0180C    EA6003C6
     3467   01 0180D    6AB01E1D              BAL,11   TSTINFO5          OUTPUT TRAP INFO                *A03
     3468   01 0180E    68001D8F              B        COMMON
     3469                            *
     3470         01 0180F           TSTINST2 EQU      %
     3471   01 0180F    323201F8 A            LW,3     X'1F8',X1                                         *A03
     3472   01 01810    04600000 A            CAL1,6   0
     3473                            *
     3474                            *
     3475         01 01811           TST30MM  EQU      %                 MASTER MODE TEST 3
     3476   01 01811    6AF01DB5              BAL,R15  STSMM             MM STATUS
     3477   01 01812    22800003 A            LI,8     3
     3478   01 01813    358022A2              STW,8    TPAC              STORE TEST AC PATTERN
     3479   01 01814    35802449              STW,8    ACLOAD            SAVE AC TEST PATTERN
     3480   01 01815    329022EF              LW,9     LWTP
     3481   01 01816    6AF01E97              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     3482   01 01817    6AF01F02              BAL,R15  SETAC             SET P AC FOR THIS TEST
     3483   01 01818    6AF01F28              BAL,R15  SETLPSD1          SET UP LPSD
     3484   01 01819    35801822              STW,8    MMLPSD3           STORE PSW1
     3485   01 0181A    6AF01E8C              BAL,R15  SETINST           SET UP TEST INST
     3486   01 0181B    02001838              GEN,8,2,22  2,0,TSTINST3
     3487         01 0181C           LOADPSD3 EQU      %
     3488   01 0181C    22800000 A            LI,8     0
     3489   01 0181D    358022E9              STW,8    ERRFLAG           CLEAR ERROR FLAG
     3490   01 0181E    3210246A              LW,1     TESTPAGE
     3491   01 0181F    25100009 A            SLS,1    9
     3492   01 01820    22300000 A            LI,3     0                 RESET R3                        *A03
     3493   01 01821    0E001822              LPSD,0   MMLPSD3           SET PROGRAM TO MASTER,MAPPED
     3494                                     BOUND    8                 ANDPROTECTED MODE
     3495   01 01822    00403DF8 A   MMLPSD3  DATA     X'00403DF8'
     3496   01 01823    00800000 A            DATA     X'00800000'
     3497                            *
     3498                            *
     3499                            *************************************************************
     3500                            *************************************************************
     3501                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     3502                            ****     FOR THIS TEST.
     3503                            ************************************************************
     3504                            ************************************************************
     3505                            *
     3506                            *
     3507         01 01824           T30OKTRP EQU      %
     3508   01 01824    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3509   01 01825    6980181C              BCS,8    LOADPSD3          BRANCH FOR SHORT LOOP
     3510   01 01826    328022E9              LW,8     ERRFLAG           IF ERROR FLAG NOT SET
     3511   01 01827    6830182A              BEZ      TOK11             TEST OK                         *A03
     3512   01 01828    6AF0182D              BAL,R15  ERMAST3           REPORT ERROR                    *A03
     3513   01 01829    6800181C              B        LOADPSD3          RETURN HERE IF SS1=1;SS3=0      *A03
     3514   01 0182A    70200392     TOK11    LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     3515   01 0182B    6940181C              BCS,4    LOADPSD3          BRANNCH FOR LONG LOOP
     3516   01 0182C    680010B0              B        TST:CONT          START NEXT TEST                 *A01
     3517                            *
     3518         01 0182D           ERMAST3  EQU      %                                                 *A03
     3519   01 0182D    6AD017D3              BAL,13   ERRMAST                                           *A03
     3520   01 0182E    68001D95              B        SUPRESP                                           *A03
     3521   01 0182F    6AB01DD7              BAL,11   TSTINFO2                                          *A03
     3522   01 01830    EA6003C5              #PRINT   MMSG2                                             *A03
            01 01831    EA6003CD
            01 01832    C000AB48 A
            01 01833    EA6003C6
     3523   01 01834    68001D8F              B        COMMON                                            *A03
     3524                            *
     3525                            ************************************************************
     3526                            ************************************************************
     3527                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     3528                            ************************************************************
     3529                            ************************************************************
     3530                            *
     3531                            *
     3532         01 01835           T30CAL1  EQU      %
     3533   01 01835    22800001 A            LI,8     1
     3534   01 01836    358022E9              STW,8    ERRFLAG           SET ERROR FLAG
     3535   01 01837    68001824              B        T30OKTRP
     3536                            *
     3537                            *
     3538         01 01838           TSTINST3 EQU      %
     3539   01 01838    323201F8 A            LW,3     X'1F8',X1                                         *A03
     3540   01 01839    04700000 A            CAL1,7   0
     3541                            *
     3542                            *
     3543         01 0183A           TST31MM  EQU      %                 MASTER MODE TEST 4
     3544   01 0183A    6AF01DB5              BAL,R15  STSMM             MM STATUS
     3545   01 0183B    32C0246C              LW,12    LSTADRS           LOAD MEM SIZE VALUE IN R12
     3546   01 0183C    21C0FFFF A            CI,12    X'FFFF'           IF LESS THAN OR EQUAL TO 64K
     3547   01 0183D    682010B0              BLE      TST:CONT          SKIP THIS TEST                  *A01
     3548   01 0183E    3280246A              LW,8     TESTPAGE
     3549   01 0183F    25800009 A            SLS,8    9                 SHIFT PAGE ADDR TO 15-22 OF R8
     3550   01 01840    208001F8 A            AI,8     X'1F8'            INCREMENT ADDRESS
     3551   01 01841    358022A6              STW,8    STOREAT           SAVE ADDRESS
     3552   01 01842    32802276              LW,8     CAL1INST          STORE CAL1 INST AT REAL EFF. ADDR
     3553   01 01843    B58022A6              STW,8    *STOREAT          VALUE OF IA IN PSD AFTER LPSD
     3554   01 01844    32802277              LW,8     CAL2INST          STORE CAL2 INST AT X'101F8'--VALUE
     3555   01 01845    358101F8 A            STW,8    X'101F8'          OF IA IN PSD IF REA INVOKED
     3556   01 01846    6AF01EE2              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     3557   01 01847    6AF01EEA              BAL,R15  ALLWLREG          LOAD ALLWL REG WITH 0'S
     3558   01 01848    3240246A              LW,4     TESTPAGE
     3559   01 01849    25400010 A            SLS,4    16                SET MAP CONTROL IMAGE WORD
     3560   01 0184A    22200004 A            LI,2     R4                PAGES X'80' AND X'81'
     3561   01 0184B    3230248A              LW,3     Y0101             SET WORD COUNT&CONTROL START
     3562   01 0184C    6F2A0000 A            MMC,2    5                 LOAD MAP FOR PAGES X'80'&X'81'
     3563         01 0184D           LOADPSD4 EQU      %
     3564   01 0184D    22800000 A            LI,8     0
     3565   01 0184E    358022E9              STW,8    ERRFLAG           CLEAR ERROR FLAG
     3566   01 0184F    0E001850              LPSD,0   MMLPSD4           SET PROGRAM TO MASTER ,MAPPED
     3567                                     BOUND    8                 AND PROTECTED MODE
     3568   01 01850    004101F8 A   MMLPSD4  DATA     X'004101F8'       NO REAL EXTENDED ADDRESSING SHOULD
     3569   01 01851    00810000 A            DATA     X'00810000'       TAKE PLACE EVEN THOUGH PSD40=1
     3570                            *
     3571                            *
     3572                            ************************************************************
     3573                            ************************************************************
     3574                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     3575                            ************************************************************
     3576                            ************************************************************
     3577                            *
     3578                            *
     3579         01 01852           T31CAL1  EQU      %
     3580   01 01852    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3581   01 01853    6980184D              BCS,8    LOADPSD4          BRANCH FOR SHORT LOOP
     3582   01 01854    328022E9              LW,8     ERRFLAG           IF ERROR FLAG NOT SET
     3583   01 01855    68301858              BEZ      TOK12             TEST OK                         *A03
     3584   01 01856    6AF0185E              BAL,R15  ERMAST4           REPORT ERROR
     3585   01 01857    6800184D              B        LOADPSD4          RETURN HERE IF SS1=1;SS3=0      *A03
     3586   01 01858    70200392     TOK12    LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     3587   01 01859    6940184D              BCS,4    LOADPSD4          BRANCH TO LOOP ON TEST
     3588   01 0185A    680010B0              B        TST:CONT                                          *A01
     3589                            *
     3590                            *
     3591                            ************************************************************
     3592                            ************************************************************
     3593                            ****     ENTER HERE ON A CAL2 TRAP FOR THIS TEST.THIS WILL
     3594                            ****     OCCUR IF REAL EXTENDED ADDRESSING IS INVOKED...ERROR
     3595                            ************************************************************
     3596                            ************************************************************
     3597                            *
     3598                            *
     3599         01 0185B           T31CAL2  EQU      %
     3600   01 0185B    22800001 A            LI,8     1
     3601   01 0185C    358022E9              STW,8    ERRFLAG           SET ERROR FLAG
     3602   01 0185D    68001852              B        T31CAL1
     3603                            *
     3604                            *
     3605         01 0185E           ERMAST4  EQU      %
     3606   01 0185E    6AD017D3              BAL,R13  ERRMAST
     3607   01 0185F    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     3608   01 01860    EA6003C5              #PRINT   MMSG4,C1          PRINT ERROR  MESSAGE
            01 01861    EA6003CD
            01 01862    C100ABB8 A
            01 01863    EA6003C6
     3609   01 01864    68001D8F              B        COMMON
     3610                            *
     3611                            *                                                                   *A03
     3612         01 01865           TST32MM  EQU      %                                                 *A03
     3613   01 01865    6AF01DB5              BAL,R15  STSMM             MM STATUS                       *A03
     3614   01 01866    22800003 A            LI,8     3                                                 *A03
     3615   01 01867    358022A2              STW,8    TPAC              STORE TEST AC PATTERN           *A03
     3616   01 01868    35802449              STW,8    ACLOAD            SAVE AC TEST PATTERN            *A03
     3617   01 01869    329022EF              LW,9     LWTP                                              *A03
     3618   01 0186A    6AF01E97              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST        *A03
     3619   01 0186B    6AF01F02              BAL,R15  SETAC             SET P AC FOR THIS TEST          *A03
     3620   01 0186C    6AF01F28              BAL,R15  SETLPSD1          SET UP LPSD                     *A03
     3621   01 0186D    35801822              STW,8    MMLPSD3           STORE PSW1                      *A03
     3622   01 0186E    6AF01E8C              BAL,R15  SETINST           SET UP TEST INST                *A03
     3623   01 0186F    02001887              GEN,8,2,22  2,0,TSTINST5                                   *A03
     3624         01 01870           LOADPSD5 EQU      %                                                 *A03
     3625   01 01870    6AF01EF9              BAL,15   MAPSELF           MAP ALL PAGES 1 TO 1            *A03
     3626   01 01871    22800000 A            LI,8     0                                                 *A03
     3627   01 01872    358022E9              STW,8    ERRFLAG           CLEAR ERROR FLAG                *A03
     3628   01 01873    3210246A              LW,1     TESTPAGE                                          *A03
     3629   01 01874    25100009 A            SLS,1    9                                                 *A03
     3630   01 01875    3510229A              STW,1    PAGEADR           STORE OPERAND                   *A03
     3631   01 01876    22300000 A            LI,3     0                 RESET R3                        *A03
     3632   01 01877    0E001878              LPSD,0   MMLPSD5           SET PROGRAM TO MASTER,MAPPED    *A03
     3633                                     BOUND    8                 AND PROTECTED MODE;C1C2=10 FOR  *A03
     3634   01 01878    80403DF8 A   MMLPSD5  DATA     X'80403DF8'       LRA INST                        *A03
     3635   01 01879    00800000 A            DATA     X'00800000'                                       *A03
     3636                            *                                                                   *A03
     3637                            **************************************************************      *A03
     3638                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST                    *A03
     3639                            **************************************************************      *A03
     3640                            *                                                                   *A03
     3641         01 0187A           T32CAL1  EQU      %                                                 *A03
     3642   01 0187A    70200392              LC       #SENSE            SS1 SET                         *A03
     3643   01 0187B    69801870              BCS,8    LOADPSD5          YES;SHORT LOOP                  *A03
     3644   01 0187C    328022E9              LW,8     ERRFLAG           FLAG SET                        *A03
     3645   01 0187D    68301881              BEZ      TOK12A            NO;PROTECT VIOLATION INHIBTED   *A03
     3646   01 0187E    22802ADD              LI,8     MMSG3                                             *A03
     3647   01 0187F    6AF01803              BAL,15   ERMAST2                                           *A03
     3648   01 01880    68001870              B        LOADPSD5          RETURN HERE IF SS1=1;SS3=0      *A03
     3649         01 01881           TOK12A   EQU      %                                                 *A03
     3650   01 01881    70200392              LC       #SENSE            SS2 SET                         *A03
     3651   01 01882    69401870              BCS,4    LOADPSD5          YES;LONG LOOP                   *A03
     3652   01 01883    680010B0              B        TST:CONT          START NEXT TEST                 *A03
     3653                            *                                                                   *A03
     3654                            **************************************************************      *A03
     3655                            ****     ENTER HERE ON A NON-ALLOWED TRAP FOR THIS TEST             *A03
     3656                            **************************************************************      *A03
     3657                            *                                                                   *A03
     3658         01 01884           T32ERTRP EQU      %                                                 *A03
     3659   01 01884    22800001 A            LI,8     1                                                 *A03
     3660   01 01885    358022E9              STW,8    ERRFLAG           SET ERROR FLAG                  *A03
     3661   01 01886    6800187A              B        T32CAL1                                           *A03
     3662                            *                                                                   *A03
     3663   01 01887    2C30229A     TSTINST5 LRA,3    PAGEADR                                           *A03
     3664   01 01888    04C00000 A            CAL1,12  0                                                 *A03
     3665                            *                                                                   *A03
     3666                            *
     3667                            ****     CHECK THAT COUNTER IN THE COUNT PULSE 4
     3668                            ****     INTERRUPT LOCATION GETS MAPPED WHEN
     3669                            ****     PROGRAM IS IN MASTER MAPPED MODE.
     3670                            *
     3671                            *
     3672         01 01889           TST33RTC EQU      %                                                 *A03
     3673   01 01889    6AF01DAB              BAL,R15  STSMAP
     3674   01 0188A    6AF01EE2              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     3675   01 0188B    22800000 A            LI,8     0
     3676   01 0188C    358022A2              STW,8    TPAC              SAVE TEST PAGE AC BITS
     3677   01 0188D    329022EC              LW,9     LWTIP
     3678   01 0188E    22800000 A            LI,8     0
     3679   01 0188F    6AF01E97              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     3680   01 01890    6AF01F28              BAL,R15  SETLPSD1          SET UP LPSD FOR MAST/MAP MODE
     3681   01 01891    358018AE              STW,8    RTCLPSD           STORE PSW 1
     3682   01 01892    32802469              LW,8     TINSTP            LOAD TEST INST PAGE ADDR
     3683   01 01893    25800009 A            SLS,8    9
     3684   01 01894    208001FA A            AI,8     X'1FA'             COMPUTE ADDR FOR ''B  % ''
     3685   01 01895    308022A5              AW,8     HEX68             ADD BRANCH OP CODE
     3686   01 01896    358018C9              STW,8    RTINST+2          STORE 'B % ' INST
     3687   01 01897    6AF01E8C              BAL,R15  SETINST           SET UP TEST INST FOR THIS TEST
     3688   01 01898    030018C7              GEN,8,2,22  3,0,RTINST
     3689         01 01899           TST33LOP EQU      %                                                 *A03
     3690   01 01899    22801040 A            LI,8     X'1040'           DISARM CNT PULSE 4 & CNT 4 ZERO *A02
     3691   01 0189A    6D801100 A            WD,8     X'1100'           INT LEVELS                      *A02
     3692   01 0189B    3280246A              LW,8     TESTPAGE          LOAD TEST PAGE ADDR
     3693   01 0189C    25800009 A            SLS,8    9
     3694   01 0189D    208001F0 A            AI,8     X'1F0'            COMPUTE ADDR PORTION OF MTW INST
     3695   01 0189E    358022BE              STW,8    WORK1             SAVE ADDR
     3696   01 0189F    308022C1              AW,8     MTWI              ADD MTW OP CODE
     3697   01 018A0    358022D8              STW,8    TINST             SAVE TEST INST
     3698   01 018A1    46800055 A            XW,8     X'55'             STORE MTW INST                  *A02
     3699   01 018A2    358022C8              STW,8    WORK7             SAVE GUIDE'S MTW                *A02
     3700   01 018A3    32902469              LW,9     TINSTP            LOAD TEST INST PAGE ADR
     3701   01 018A4    25900009 A            SLS,9    9
     3702   01 018A5    209001F0 A            AI,9     X'1F0'            MAPPED ADDR OF COUNTER
     3703   01 018A6    359022BF              STW,9    WORK2             SAVE ADDR
     3704   01 018A7    32802261              LW,8     INTCNT4Z
     3705   01 018A8    4680005B A            XW,8     X'5B'             STORE XPSD                      *A02
     3706   01 018A9    358022C9              STW,8    WORK8             SAVE GUIDE'S XPSD               *A02
     3707   01 018AA    228FFFF6 A            LI,8     -10               VALUE TO BE ASSIGNED TO COUNTER
     3708   01 018AB    B58022BE              STW,8    *WORK1            STORE AT COUNTER ADDR(NO MAPPING)
     3709   01 018AC    B58022BF              STW,8    *WORK2            ASSIGN VALUE TO COUNTER
     3710   01 018AD    0E0018AE              LPSD,0   RTCLPSD           INVOKE MAST/MAP MODE
     3711                                     BOUND    8
     3712   01 018AE    00403DF8 A   RTCLPSD  DATA     X'00403DF8'
     3713   01 018AF    00000000 A            DATA     0
     3714                            *
     3715                            *
     3716                            ************************************************************
     3717                            *************************************************************
     3718                            ****     ENTER HERE ON A COUNTER 4 ZERO INTERRUPT
     3719                            ****     FOR THIS TEST.
     3720                            *************************************************************
     3721                            *************************************************************
     3722                            *
     3723                            *
     3724                                     BOUND    8
     3725   01 018B0    00000000 A   CNT4ZRO  DATA     0,0
            01 018B1    00000000 A
     3726   01 018B2    000018B4              DATA     %+2,0
            01 018B3    00000000 A
     3727   01 018B4    22801040 A            LI,8     X'1040'
     3728   01 018B5    6D801100 A            WD,8     X'1100'           DISARM CNT 4 PULS/CNT 4 ZERO INT
     3729   01 018B6    328022C8              LW,8     WORK7                                             *A02
     3730   01 018B7    46800055 A            XW,8     X'55'             RESTORE GUIDE'S MTW INST        *A02
     3731   01 018B8    329022C9              LW,9     WORK8                                             *A02
     3732   01 018B9    4690005B A            XW,9     X'5B'             RESTORE GUIDE'S XPSD            *A02
     3733   01 018BA    32802278              LW,8     REMOT:GD                                          *A02
     3734   01 018BB    683018BE              BEZ      %+3                                               *A02
     3735   01 018BC    22801040 A            LI,8     X'1040'           ARM AND ENABLE                  *A02
     3736   01 018BD    6D801200 A            WD,8     X'1200'           INT LEVELS                      *A02
     3737   01 018BE    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3738   01 018BF    69801899              BCS,8    TST33LOP          BRANCH FOR SHORT LOOP           *A03
     3739   01 018C0    B28022BF              LW,8     *WORK2            IF MTW AT X'55' WAS MAPPED
     3740   01 018C1    683018C4              BEZ      TOK13             COUNTER AT THIS LOC MUST BE 0   *A03
     3741   01 018C2    6AF018CA              BAL,R15  ERRTC1            OTHERWISE REPORT ERROR
     3742   01 018C3    68001899              B        TST33LOP          RETURN HERE IF SS1=1;SS3=0      *A03
     3743   01 018C4    70200392     TOK13    LC       #SENSE             CHECK FOR SS2.IF SET           *A03
     3744   01 018C5    69401899              BCS,4    TST33LOP          BRANCH FOR LONG LOOP            *A03
     3745   01 018C6    680010B0              B        TST:CONT          WRITE LOCK TEST                 *A01
     3746                            *
     3747                            *
     3748         01 018C7           RTINST   EQU      %
     3749   01 018C7    22801040 A            LI,8     X'1040'           ARM AND ENABLE COUNTER 4 PULSE
     3750   01 018C8    6D801200 A            WD,8     X'1200'           COUNTER 4 ZERO INT. LEVELS
     3751   01 018C9    680018C9              B        %                 DELAY
     3752                            *
     3753                            *
     3754         01 018CA           ERRTC1   EQU      %
     3755   01 018CA    331022CF              MTW,1    ECMAP             UPDATE ERROR COUNTER
     3756   01 018CB    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     3757   01 018CC    69101D95              BCS,1    SUPRESP           SUPRESS PRINTOUT
     3758   01 018CD    32800393              LW,8     #HDRFLG
     3759   01 018CE    318003F2              CW,8     TCR:NUM                                           *A02
     3760   01 018CF    683018D6              BE       HDSKIP            SKIP HEADING PRINT IF FLAG SET  *A02
     3761   01 018D0    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     3762   01 018D1    558028D6              STH,8    MAPOPHD1+10       STORE IN BUFFER
     3763   01 018D2    EA6003C5              #PRINT   MAPOPHD1,C1       PRINT HEADING
            01 018D3    EA6003CD
            01 018D4    C100A330 A
            01 018D5    EA6003C6
     3764         01 018D6           HDSKIP   EQU      %
     3765   01 018D6    22800055 A            LI,8     X'55'                                             *A02
     3766   01 018D7    358022D9              STW,8    TADDR             STORE TEST INST ADDR            *A02
     3767   01 018D8    6AB01DD7              BAL,11   TSTINFO2                                          *A02
     3768   01 018D9    EA6003C5              #PRINT   MAPMSG6
            01 018DA    EA6003CD
            01 018DB    C000A450 A
            01 018DC    EA6003C6
     3769   01 018DD    68001D8F              B        COMMON            EXIT
     3770                            *
     3771                            *
     3772                            ****
     3773                            ****START OF WRITE LOCK TESTS.
     3774                            ****THESE TESTS ARE STRUCTURED IN EXACTLY
     3775                            ****THE SAME WAY AS THE MAP TESTS. THE LABELS
     3776                            ****OF COURSE ARE DIFFERENT.
     3777                            ****
     3778         01 018DE           TST34WLF EQU      %                 INITIALISATION
     3779   01 018DE    6AF01DB8              BAL,R15  STSWL             WL STATUS
     3780   01 018DF    328022EA              LW,8     SIGMA8
     3781   01 018E0    693018E2              BNEZ     %+2
     3782   01 018E1    6AF01EF9              BAL,R15  MAPSELF           MAP PAGES 00 TO FF TO THEMSELVES
     3783   01 018E2    22800000 A            LI,8     0                 RESET TO 0
     3784   01 018E3    3580229E              STW,8    TESTVP            TEST VP ADDRESS
     3785   01 018E4    3580229F              STW,8    READVP            READ VP ADDRESS
     3786   01 018E5    35802449              STW,8    WLLOAD            STORE WL TEST PATTERN
     3787         01 018E6           LOPT34   EQU      %                                                 *A04
     3788   01 018E6    6AF01EEA              BAL,15   ALLWLREG          LOAD 0'S IN ALL WL REGS         *A04
     3789         01 018E7           WLCHK1   EQU      %
     3790   01 018E7    3210229F              LW,1     READVP            SET UP READ VP ADDRESS
     3791   01 018E8    25100009 A            SLS,1    9                 IN BIT POSITION 15 TO 22 OF X1
     3792   01 018E9    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     3793   01 018EA    3510229A              STW,1    PAGEADR           STORE VP ADDR                   *A03
     3794   01 018EB    6AB01917              BAL,11   DEFEXP1           DEF EXP LRA CONTENTS            *A04
     3795   01 018EC    02200080 A            LCI      8                 SET CC FOR WRD ADR              *A04
     3796   01 018ED    2C80229A              LRA,8    PAGEADR           READ WL  REG                    *A04
     3797   01 018EE    7400227E              STCF     ACTCC             SAVE CC AFTER LRA               *A04
     3798   01 018EF    70200392              LC       #SENSE            IF SS1 SET                      *A04
     3799   01 018F0    698018E6              BCS,8    LOPT34            SHORT LOOP                      *A04
     3800   01 018F1    3580227F              STW,8    ACTLRA            SAVE OBS DATA                   *A04
     3801   01 018F2    31802280              CW,8     EXPLRA            SAME AS EXPECTED                *A04
     3802   01 018F3    683018F6              BE       LINK3             YES                             *A03
     3803   01 018F4    6AF0193F              BAL,15   ERRWL             REPORT ERROR                    *A03
     3804   01 018F5    680018E6              B        LOPT34            RETURN HERE IF SS1=1;SS3=0      *A04
     3805         01 018F6           LINK3    EQU      %
     3806   01 018F6    3280229F              LW,8     READVP            IF READ VP
     3807   01 018F7    3180229C              CW,8     LASTPAGE          ADDRESS EQUALS 255              *A03
     3808   01 018F8    683018FD              BE       WLFUNTST          START NEXT TEST
     3809   01 018F9    22100001 A            LI,1     1                 INCREMENT BY 1
     3810   01 018FA    6610229E              AWM,1    TESTVP            ADDRESS OF TEST VP
     3811   01 018FB    6610229F              AWM,1    READVP            ADDRESS OF READ VP
     3812   01 018FC    680018E7              B        WLCHK1            CHECK NEXT VP
     3813                            *
     3814         01 018FD           WLFUNTST EQU      %                 WL FUNCTIONAL TEST
     3815   01 018FD    22800000 A            LI,8     0                 RESET TO 0
     3816   01 018FE    3580229E              STW,8    TESTVP            TEST VP ADDR
     3817   01 018FF    3580229F              STW,8    READVP            READ VP ADDR
     3818   01 01900    32802477              LW,8     YC                INITIALISE VALUE OF
     3819   01 01901    3580229D              STW,8    TESTPATN          TEST PATTERN
     3820   01 01902    22200003 A            LI,2     3
     3821   01 01903    35202449              STW,2    WLLOAD            STORE WL TEST PATTERN
     3822         01 01904           LOADWL   EQU      %
     3823   01 01904    3280229D              LW,8     TESTPATN          SET UP WL CONTROL IMAGE WORD
     3824   01 01905    3270229E              LW,7     TESTVP            SET UP CONTROL START
     3825   01 01906    6AB01F1E              BAL,R11  MMCWL1            LOAD 1 BLOCK OF WL REGISTERS
     3826         01 01907           READWL   EQU      %
     3827   01 01907    3210229F              LW,1     READVP            SET UP READ VP ADDRESS
     3828   01 01908    25100009 A            SLS,1    9                 IN BITS 15 TO 22 OF X1
     3829   01 01909    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     3830   01 0190A    3510229A              STW,1    PAGEADR           STORE VP ADDR                   *A03
     3831   01 0190B    6AB01917              BAL,11   DEFEXP1           DEFINE EXP LRA CONTENTS         *A04
     3832   01 0190C    02200080 A            LCI      8                 SET CC FOR WRD ADR              *A04
     3833   01 0190D    2C80229A              LRA,8    PAGEADR           READ WL  REG                    *A04
     3834   01 0190E    7400227E              STCF     ACTCC             SAVE CC AFTER LRA               *A04
     3835   01 0190F    70200392              LC       #SENSE            IF SS1 SET                      *A04
     3836   01 01910    69801904              BCS,8    LOADWL            SHORT LOOP                      *A04
     3837   01 01911    3580227F              STW,8    ACTLRA            SAVE OBS DATA                   *A04
     3838   01 01912    31802280              CW,8     EXPLRA            SAME AS EXPECTED                *A04
     3839   01 01913    68301925              BE       CONTINU3          YES                             *A03
     3840   01 01914    6AF0193F     ER11     BAL,15   ERRWL             REPORT ERROR                    *A03
     3841   01 01915    68001904              B        LOADWL            RETURN HERE IF SS1=1;SS3=0      *A04
     3842   01 01916    68001925              B        CONTINU3
     3843                            *
     3844         01 01917           DEFEXP1  EQU      %                                                 *A04
     3845   01 01917    32902449              LW,9     WLLOAD            GET WL PATTERN                  *A04
     3846   01 01918    3280229F              LW,8     READVP            GET READ VP #                   *A04
     3847   01 01919    3180229E              CW,8     TESTVP            SAME AS TEST VP                 *A04
     3848   01 0191A    6830191C              BE       %+2               SKIP IF YES                     *A04
     3849   01 0191B    22900000 A            LI,9     0                 DEFINE EXP WL=00                *A04
     3850   01 0191C    25900018 A            SLS,9    24                SHIFT TO WL BIT POSITIONS       *A04
     3851   01 0191D    3280229A              LW,8     PAGEADR           GET VIRTUAL ADDR                *A04
     3852   01 0191E    21800210 A            CI,8     X'210'            GREATER THAN PAG 0 & 1          *A04
     3853   01 0191F    69201921              BG       %+2               YES                             *A04
     3854   01 01920    49802474              OR,8     Y4                SET HSB BIT                     *A04
     3855   01 01921    49800009 A            OR,8     9                 ADD WL BITS                     *A04
     3856   01 01922    35802280              STW,8    EXPLRA            STORE EXP VALUE                 *A04
     3857   01 01923    22800000 A            LI,8     0                 CLEAR LRA REG                   *A04
     3858   01 01924    E800000B A            B        *R11              EXIT                            *A04
     3859                            *                                                                   *A04
     3860         01 01925           CONTINU3 EQU      %
     3861   01 01925    3280229F              LW,8     READVP
     3862   01 01926    3180229C              CW,8     LASTPAGE          IF READ VP ADDR EQUALS 255      *A03
     3863   01 01927    6830192A              BE       LASTRVP3          THEN BRANCH
     3864   01 01928    3310229F              MTW,1    READVP            ADDRESS BY 1                    *A03
     3865   01 01929    68001907              B        READWL            READ WL FOR NEXT VP
     3866                            *
     3867                            *
     3868         01 0192A           LASTRVP3 EQU      %                 READ VP ADDR-255;(X'FF')
     3869   01 0192A    22800000 A            LI,8     0
     3870   01 0192B    3580229F              STW,8    READVP            RESET READ VP ADDR TO 0
     3871   01 0192C    3290229E              LW,9     TESTVP
     3872   01 0192D    3190229C              CW,9     LASTPAGE          IF TEST VP ADDR=255             *A03
     3873   01 0192E    68301938              BE       LASTPAG3          THEN BRANCH
     3874   01 0192F    22800000 A            LI,8     0                                                 *A03
     3875   01 01930    3270229E              LW,7     TESTVP                                            *A03
     3876   01 01931    4B70248F              AND,7    XF0               RESET WL BITS FOR TEST VP       *A03
     3877   01 01932    6AB01F1E              BAL,11   MMCWL1                                            *A03
     3878   01 01933    3310229E              MTW,1    TESTVP            ADDRESS BY 1                    *A03
     3879   01 01934    3280229D              LW,8     TESTPATN          LOAD TEST PATTERN IN R8
     3880   01 01935    2580027E A            SCS,8    -2                SHIFT RIGHT 2 BITS              *A03
     3881   01 01936    3580229D              STW,8    TESTPATN          STORE TEST PATTERN
     3882   01 01937    68001904              B        LOADWL            LOAD WL FOR NEXT VP
     3883                            *
     3884         01 01938           LASTPAG3 EQU      %                 LAST VP ADDRESS TESTED
     3885   01 01938    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     3886   01 01939    694018DF              BCS,4    TST34WLF+1        BRANCH FOR LONG LOOP            *A01
     3887   01 0193A    6AF01EEA              BAL,R15  ALLWLREG          LOAD ALLWL REG WITH 0'S
     3888   01 0193B    328022EA              LW,8     SIGMA8
     3889   01 0193C    6930193E              BNEZ     %+2
     3890   01 0193D    6AF01EDA              BAL,R15  ALMAPREG
     3891   01 0193E    680010B0              B        TST:CONT          START WL  OPERATIONAL TEST      *A01
     3892                            *
     3893                            *
     3894         01 0193F           ERRWL    EQU      %
     3895   01 0193F    32802284              LW,8     XEWLF1
     3896   01 01940    32902286              LW,9     XEWLF2
     3897   01 01941    22AFFFFE A            LI,10    -2
     3898   01 01942    321003CE              LW,X1    #ERRTEXT%
     3899   01 01943    201FFFFE A            AI,X1    -2
     3900   01 01944    02200030 A            LCI      3
     3901   01 01945    AB800001 A            STM,8    *X1
     3902   01 01946    331022D1              MTW,1    ECWL              UPDATE ERROR COUNTER
     3903   01 01947    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     3904   01 01948    69101D95              BCS,1    SUPRESP           SUPRESS PRINTOUT
     3905   01 01949    32800393              LW,8     #HDRFLG           CHECK FOR HEADING FLAG.IF SET
     3906   01 0194A    318003F2              CW,8     TCR:NUM                                           *A02
     3907   01 0194B    6830133C              BE       SUPHEAD1          SUPRESS HEADING PRINTOUT        *A04
     3908   01 0194C    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     3909   01 0194D    558028C0              STH,8    WLHEAD1+11        STORE IN BUFFER
     3910   01 0194E    EA6003C5              #PRINT   WLHEAD1,C1        PRINT HEADING
            01 0194F    EA6003CD
            01 01950    C100A2D4 A
            01 01951    EA6003C6
     3911   01 01952    EA6003C5              #PRINT   WLHEAD2,C1        PRINT HEADING
            01 01953    EA6003CD
            01 01954    C100A304 A
            01 01955    EA6003C6
     3912   01 01956    EA6003C5              #PRINT   WLHEAD3           PRINT HEADING
            01 01957    EA6003CD
            01 01958    C000A1E8 A
            01 01959    EA6003C6
     3913   01 0195A    6800133C              B        SUPHEAD1                                          *A04
     3914                            *
     3915                            ****     CHECKS OUT THAT WRITE LOCKS ARE OPERATING CORRECTLY.
     3916                            ****     INITIALLY WRITE KEY IS SET TO 11 AND WL
     3917                            ****     PROTECTION LOGIC IS CHECKED FOR WL=11,10,01 & 00
     3918                            ****     IN THE TEST PAGE.THE ABOVE IS REPEATED FOR
     3919                            ****     WRITE KEY = 10,01 AND 00.
     3920                            *
     3921         01 0195B           TST35WLOP EQU     %                 WL OPERATIONAL TEST
     3922   01 0195B    6AF01DB8              BAL,R15  STSWL             WL STATUS
     3923         01 0195C           WLOPLOP  EQU      %
     3924   01 0195C    22800030 A            LI,8     X'30'
     3925   01 0195D    7580196D              STB,8    WLLPSD+1          INITIALLY SET WK=11
     3926   01 0195E    22800003 A            LI,8     3
     3927   01 0195F    35802449              STW,8    WLLOAD            INITIALLY SET WL=11
     3928   01 01960    3280246A              LW,8     TESTPAGE          COMPUTE ADDRESS
     3929   01 01961    25800009 A            SLS,8    9                 WHICH IS REFERENCED FOR
     3930   01 01962    208001F8 A            AI,8     X'1F8'            WL-WK CHECK DURING TESTING
     3931   01 01963    358022A6              STW,8    STOREAT           SAVE ADDRESS
     3932         01 01964           NEXTWL   EQU      %
     3933   01 01964    228FFFFF A            LI,8     -1
     3934   01 01965    B58022A6              STW,8    *STOREAT          INIT TEST WRITE LOCATION
     3935   01 01966    22800000 A            LI,8     0
     3936   01 01967    358022AC              STW,8    WLWKFLG           CLEAR FLAG
     3937   01 01968    358022E9              STW,8    ERRFLAG
     3938   01 01969    6AF01F15              BAL,R15  SETWL             SET WL FOR THIS TEST
     3939   01 0196A    22800000 A            LI,8     0                 RESET R8
     3940   01 0196B    0E00196C              LPSD,0   WLLPSD
     3941                            *
     3942                                     BOUND    8
     3943   01 0196C    0000196E     WLLPSD   DATA     WLWKTST
     3944   01 0196D    30000000 A            DATA     X'30000000'       INITIALLY WK=11
     3945                            *
     3946         01 0196E           WLWKTST  EQU      %
     3947   01 0196E    B58022A6              STW,8    *STOREAT          ATTEMPT TO WRITE IN TEST PAGE
     3948   01 0196F    0E001970              LPSD,0   PSDWK0            SET KEY TO 00
     3949                            *
     3950                                     BOUND    8
     3951   01 01970    00001973     PSDWK0   DATA     WLWKTRP+1
     3952   01 01971    00000000 A            DATA     0
     3953                            *
     3954                            *
     3955                            ************************************************************
     3956                            ************************************************************
     3957                            *****    ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     3958                            *****    FOR THIS TEST.
     3959                            ************************************************************
     3960                            ************************************************************
     3961                            *
     3962                            *
     3963         01 01972           WLWKTRP  EQU      %
     3964   01 01972    331022AC              MTW,1    WLWKFLG           SET FLAG
     3965   01 01973    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3966   01 01974    69801964              BCS,8    NEXTWL            BRANCH FOR SHORT LOOP
     3967   01 01975    5280196D              LH,8     WLLPSD+1
     3968   01 01976    25800074 A            SLS,8    -12
     3969   01 01977    35802448              STW,8    WKDATA            STORE WK
     3970   01 01978    32800008 A            LW,8     8                 IF WK=00
     3971   01 01979    68301993              BEZ      NOTRAPX           NO TRAP EXPECTED
     3972   01 0197A    32802449              LW,8     WLLOAD            IF WL=00
     3973   01 0197B    68301993              BEZ      NOTRAPX           NO TRAP EXPECTED
     3974   01 0197C    31802448              CW,8     WKDATA            IF WL=WK
     3975   01 0197D    68301993              BE       NOTRAPX           NO TRAP EXPECTED
     3976   01 0197E    228FFFFF A            LI,8     -1
     3977   01 0197F    358022AD              STW,8    EXPDATA           STORE EXP DATA FOR WRIT CHECK
     3978   01 01980    328022AC              LW,8     WLWKFLG
     3979   01 01981    6830198C              BEZ      NOTOK1            NO TRAP;ERROR
     3980   01 01982    32802254              LW,8     YES
     3981   01 01983    3580296B              STW,8    WLMSG2+1          STORE A 'YES' IN MSG BUFFER
     3982         01 01984           WRTCHK1  EQU      %                 WRITE CHECK
     3983   01 01984    B28022A6              LW,8     *STOREAT          LOAD DATA FROM STORAGE LOC.
     3984   01 01985    358022AE              STW,8    ACTDATA           SAVE ACTUAL DATA
     3985   01 01986    218FFFFF A            CI,8     -1                IF DATA SAME
     3986   01 01987    68301990              BE       WRTNO             WRITE ABORTED;TEST OK
     3987   01 01988    331022E9              MTW,1    ERRFLAG           SET ERROR INDICATOR
     3988   01 01989    32802254              LW,8     YES
     3989   01 0198A    35802972              STW,8    WLMSG2+8          STORE A YES IN MSG BUF
     3990   01 0198B    680019A8              B        TSTOK
     3991                            *
     3992         01 0198C           NOTOK1   EQU      %
     3993   01 0198C    32802255              LW,8     NO
     3994   01 0198D    3580296B              STW,8    WLMSG2+1          STORE A NO
     3995   01 0198E    331022E9              MTW,1    ERRFLAG           SET ERROR INDICATOR
     3996   01 0198F    68001984              B        WRTCHK1
     3997                            *
     3998         01 01990           WRTNO    EQU      %
     3999   01 01990    32802255              LW,8     NO
     4000   01 01991    35802972              STW,8    WLMSG2+8          STORE A NO
     4001   01 01992    680019A8              B        TSTOK
     4002                            *
     4003                            *
     4004         01 01993           NOTRAPX  EQU      %
     4005   01 01993    22800000 A            LI,8     0
     4006   01 01994    358022AD              STW,8    EXPDATA           SAVE EXP DATA
     4007   01 01995    328022AC              LW,8     WLWKFLG
     4008   01 01996    693019A1              BNEZ     NOTOK2            TRAP;ERROR
     4009   01 01997    32802255              LW,8     NO
     4010   01 01998    3580296B              STW,8    WLMSG2+1
     4011         01 01999           WRTCHK2  EQU      %                 WRITE CHECK
     4012   01 01999    B28022A6              LW,8     *STOREAT
     4013   01 0199A    358022AE              STW,8    ACTDATA           SAVE ACTUAL DATA
     4014   01 0199B    21800000 A            CI,8     0
     4015   01 0199C    683019A5              BE       WRTYES            WRITE NOT ABORTED;TEST OK
     4016   01 0199D    331022E9              MTW,1    ERRFLAG           SET ERROR INDICATOR
     4017   01 0199E    32802255              LW,8     NO
     4018   01 0199F    35802972              STW,8    WLMSG2+8
     4019   01 019A0    680019A8              B        TSTOK
     4020                            *
     4021         01 019A1           NOTOK2   EQU      %
     4022   01 019A1    32802254              LW,8     YES
     4023   01 019A2    3580296B              STW,8    WLMSG2+1
     4024   01 019A3    331022E9              MTW,1    ERRFLAG           SET ERROR INDICATOR
     4025   01 019A4    68001999              B        WRTCHK2
     4026                            *
     4027         01 019A5           WRTYES   EQU      %
     4028   01 019A5    32802254              LW,8     YES
     4029   01 019A6    35802972              STW,8    WLMSG2+8
     4030   01 019A7    680019A8              B        TSTOK
     4031                            *
     4032                            *
     4033                            *
     4034         01 019A8           TSTOK    EQU      %
     4035   01 019A8    328022E9              LW,8     ERRFLAG
     4036   01 019A9    683019AC              BEZ      TOK14             IF NOT SET NO ERROR             *A03
     4037   01 019AA    6AF019BD              BAL,R15  ERRWLOP           REPKRT ERROR
     4038   01 019AB    68001964              B        NEXTWL            RETURN HERE IF SS1=1;SS3=0      *A03
     4039                            *
     4040   01 019AC    32802449     TOK14    LW,8     WLLOAD            IF WL=00,GO AND                 *A03
     4041   01 019AD    683019B0              BEZ      CHKWK00           CHECK IF WK=00
     4042   01 019AE    33F02449              MTW,-1   WLLOAD            CHANGE WRITE LOCK
     4043   01 019AF    68001964              B        NEXTWL
     4044                            *
     4045         01 019B0           CHKWK00  EQU      %
     4046   01 019B0    3280196D              LW,8     WLLPSD+1          IF WK=00
     4047   01 019B1    683019BA              BEZ      TSTEXIT           EXIT FROM TEST
     4048   01 019B2    32802448              LW,8     WKDATA
     4049   01 019B3    683019BA              BEZ      TSTEXIT           TEST DONE IF WK=00
     4050   01 019B4    33F02448              MTW,-1   WKDATA            CHANGE WRITE KEY
     4051   01 019B5    32802448              LW,8     WKDATA
     4052   01 019B6    2580000C A            SLS,8    12
     4053   01 019B7    5580196D              STH,8    WLLPSD+1
     4054   01 019B8    33302449              MTW,3    WLLOAD            SET WL=11
     4055   01 019B9    68001964              B        NEXTWL            LOAD NEW WL PATTERN
     4056                            *
     4057                            *
     4058         01 019BA           TSTEXIT  EQU      %
     4059   01 019BA    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     4060   01 019BB    6940195C              BCS,4    WLOPLOP           BRANCH FOR LONG LOOP
     4061   01 019BC    680010B0              B        TST:CONT                                          *A01
     4062                            *
     4063                            *
     4064         01 019BD           ERRWLOP  EQU      %
     4065   01 019BD    331022D1              MTW,1    ECWL              UPDATE ERROR COUNTER
     4066   01 019BE    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     4067   01 019BF    69101D95              BCS,1    SUPRESP           SUPRESS PRINTOUT
     4068   01 019C0    6D000032 A            #HTECON  TESTPAGE          CONVERT TEST PAGE ADDR
            01 019C1    EA6003C3
            01 019C2    0000246A
            01 019C3    6D000022 A
     4069   01 019C4    328C0001 A            LW,8     1,LINK
     4070   01 019C5    4B802475              AND,8    Y4040
     4071   01 019C6    25800210 A            SCS,8    16
     4072   01 019C7    3580296D              STW,8    WLMSG2+3
     4073   01 019C8    6D000032 A            #HTECON  EXPDATA           CONVERT EXPECTED DATA
            01 019C9    EA6003C3
            01 019CA    000022AD
            01 019CB    6D000022 A
     4074   01 019CC    2A8C0000 A            LM,8     0,LINK
     4075   01 019CD    02200020 A            LCI      2
     4076   01 019CE    2B802974              STM,8    WLMSG2+10         STORE
     4077   01 019CF    6D000032 A            #HTECON  ACTDATA           CONVERT ACTUAL DATA
            01 019D0    EA6003C3
            01 019D1    000022AE
            01 019D2    6D000022 A
     4078   01 019D3    2A8C0000 A            LM,8     0,LINK
     4079   01 019D4    02200020 A            LCI      2
     4080   01 019D5    2B802978              STM,8    WLMSG2+14         STORE
     4081   01 019D6    6AB01E7D              BAL,R11  GETWL
     4082   01 019D7    3590296F              STW,9    WLMSG2+5          STORE WRITE KEY
     4083   01 019D8    35802970              STW,8    WLMSG2+6          STORE WRITE LOCK
     4084   01 019D9    32800393              LW,8     #HDRFLG           CHECK HEADING FLAG.IF SET
     4085   01 019DA    318003F2              CW,8     TCR:NUM                                           *A02
     4086   01 019DB    683019E6              BE       SUPWLHD           SKIP HEADING PRIINTOUT          *A02
     4087   01 019DC    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     4088   01 019DD    55802958              STH,8    WLOPHD1+12        STORE IN BUFFER
     4089   01 019DE    EA6003C5              #PRINT   WLOPHD1,C1        PRINT HEADING
            01 019DF    EA6003CD
            01 019E0    C100A530 A
            01 019E1    EA6003C6
     4090   01 019E2    EA6003C5              #PRINT   WLOPHD2,C1
            01 019E3    EA6003CD
            01 019E4    C100A564 A
            01 019E5    EA6003C6
     4091         01 019E6           SUPWLHD  EQU      %
     4092   01 019E6    EA6003C5              #PRINT   WLMSG2            PRINT ERROR MESSAGE
            01 019E7    EA6003CD
            01 019E8    C000A5A8 A
            01 019E9    EA6003C6
     4093   01 019EA    68001D8F              B        COMMON
     4094                            *
     4095                            *
     4096                            ****     PROTECT LOGIC TESTS FOR WRITE LOCKS.
     4097                            *
     4098                            *        1.
     4099                            ****     CHECKS THAT WRITE PROTECT VIOLATIONS ARE
     4100                            ****     INHIBITED WHEN ACCESSING AND EXECUTING
     4101                            ****     A XPSD IN A TRAP/INTERRUPT LOCATION.
     4102                            ****
     4103                            *
     4104                            *        2.
     4105                            ****     CHECK THAT WHEN WRITING INTO GENERAL REGISTERS
     4106                            ****     WRITE PROTECT VIOLATIONS ARE INHIBITED.
     4107                            ****
     4108                            *        3.
     4109                            *
     4110                            ****     CHECK THAT WRITE PROTECT VIOLATIONS ARE
     4111                            ****     INHIBITED ON WRITING/READING LOCATIONS
     4112                            ****     X'20' AND X'21' WHEN EXECUTING I/O INSTRUCTION.
     4113                            *
     4114                            *        4.
     4115                            *
     4116                            ****     CHECK THAT MBS,TBS,PSM AND STM INSTRUCTIONS
     4117                            ****     CAUSE A TRAP TO X'40' WHEN THERE EXECUTION
     4118                            ****     EXTENDS TO A PAGE OF MEMORY WHICH IS
     4119                            ****     WRITE LOCK PROTECTED
     4120                            *
     4121                            *
     4122                            ****     CHECKS THAT WRITE PROTECT VIOLATIONS ARE
     4123                            ****     INHIBITED WHEN ACCESSING AND EXECUTING
     4124                            ****     A XPSD IN A TRAP/INTERRUPT LOCATION.
     4125                            ****
     4126                            *
     4127         01 019EB           TST36WLP1  EQU    %
     4128   01 019EB    6AF01DB8              BAL,R15  STSWL             WL STATUS
     4129   01 019EC    3280246A              LW,8     TESTPAGE
     4130   01 019ED    358022A3              STW,8    WLTP              SAVE WL TEST PAGE #             *A03
     4131   01 019EE    25800009 A            SLS,8    9                 COMPUTE REF ADDR PORTION
     4132   01 019EF    208001F8 A            AI,8     X'1F8'            OF XPSD TO BE STORED AT X'48'
     4133   01 019F0    358022A6              STW,8    STOREAT           SAVE ADDR
     4134   01 019F1    30802275              AW,8     OPCXPSD           ADD OP CODE
     4135   01 019F2    32900048 A            LW,9     X'48'             SAVE EXISTING XPSD AT X'48'
     4136   01 019F3    359022BE              STW,9    WORK1
     4137   01 019F4    35800048 A            STW,8    X'48'             STORE XPSD
     4138   01 019F5    02200040 A            LCI      4
     4139   01 019F6    2A001A21              LM,0     NEWPSD1           LOAD TWO DOUBLE WORDS AT ADDR
     4140   01 019F7    02200040 A            LCI      4                 PROGRAM WILL GO TO ON EXECUTING
     4141   01 019F8    AB0022A6              STM,0    *STOREAT          XPSD AT X'48' IF NO ACCESS TRAP
     4142   01 019F9    22800003 A            LI,8     3
     4143   01 019FA    358022A2              STW,8    TPWL              SAVE WL BITS OF TEST PAGE
     4144   01 019FB    35802449              STW,8    WLLOAD
     4145   01 019FC    6AF01F15              BAL,R15  SETWL             SET WL FOR THIS TEST
     4146   01 019FD    32802469              LW,8     TINSTP            COMPUTE ADDR WHERE
     4147   01 019FE    25800009 A            SLS,8    9                 TEST INST TO
     4148   01 019FF    208001F8 A            AI,8     X'1F8'            BE STORED
     4149   01 01A00    358022F0              STW,8    MAPEDADR          SAVE ADDR
     4150   01 01A01    35801A08              STW,8    MASTMOD1          SET UP PSW1
     4151   01 01A02    6AF01E8C              BAL,R15  SETINST           SET UP CAL1 INST IN TEST INST PAGE
     4152   01 01A03    01002274              GEN,8,2,22  1,0,CALL1
     4153         01 01A04           LOPLPSD1 EQU      %
     4154   01 01A04    22800000 A            LI,8     0
     4155   01 01A05    358022E9              STW,8    ERRFLAG           RESET FLAG
     4156   01 01A06    0E001A08              LPSD,0   MASTMOD1          INVOKE MAST MODE
     4157                            *                                  AND START INST AT X'3DF8'
     4158                                     BOUND    8
     4159   01 01A08    00003DF8 A   MASTMOD1 DATA     X'00003DF8'
     4160   01 01A09    10000000 A            DATA     X'10000000'                                       *A02
     4161                            *
     4162                            *
     4163                            **************************************************************
     4164                            ***************************************************************
     4165                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     4166                            ****     FOR THIS TEST.
     4167                            ***************************************************************
     4168                            ***************************************************************
     4169                            *
     4170                            *
     4171         01 01A0A           T36ERTRP EQU      %
     4172   01 01A0A    22800001 A            LI,8     1
     4173   01 01A0B    358022E9              STW,8    ERRFLAG           SET ERROR FLAG
     4174   01 01A0C    68001A0D              B        T36CAL1
     4175                            *
     4176                            *
     4177                            ***************************************************************
     4178                            ***************************************************************
     4179                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     4180                            ****************************************************************
     4181                            ***************************************************************
     4182                            *
     4183                            *
     4184         01 01A0D           T36CAL1  EQU      %
     4185   01 01A0D    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     4186   01 01A0E    69801A04              BCS,8    LOPLPSD1          BRANCH FOR SHORT LOOP
     4187   01 01A0F    328022E9              LW,8     ERRFLAG
     4188   01 01A10    68301A14              BEZ      TOK15             TEST OK IF FLAG NOT SET         *A03
     4189   01 01A11    22802A4E              LI,8     PLMSG7            LOAD WORD ADDR                  *A03
     4190   01 01A12    6AF01A19              BAL,R15  ERWLP1            REPORT ERROR
     4191   01 01A13    68001A04              B        LOPLPSD1          RETURN HERE IF SS1=1;SS3=0      *A03
     4192   01 01A14    70200392     TOK15    LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     4193   01 01A15    69401A04              BCS,4    LOPLPSD1          BRANCH FOR LONG LOOP
     4194   01 01A16    328022BE              LW,8     WORK1             RESTORE INITIAL XPSD
     4195   01 01A17    35800048 A            STW,8    X'48'             AT X'48'
     4196   01 01A18    680010B0              B        TST:CONT          NEXT TEST                       *A01
     4197                            *
     4198                            *
     4199         01 01A19           ERWLP1   EQU      %
     4200   01 01A19    25800002 A            SLS,8    2                 FORM BYTE ADDR                  *A03
     4201   01 01A1A    49802477              OR,8     YC                INSERT FORMAT CHARACTER         *A03
     4202   01 01A1B    358014C7              STW,8    XPRNT1+2          STORE IT                        *A03
     4203   01 01A1C    331022D1              MTW,1    ECWL              UPDATE ERROR COUNT
     4204   01 01A1D    6AD014CC              BAL,R13  ERRPL+1
     4205   01 01A1E    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     4206   01 01A1F    6AB01E26              BAL,11   TSTINFO6                                          *A03
     4207   01 01A20    680014C5              B        XPRNT1            NORMAL RETURN                   *A03
     4208                            *
     4209   01 01A21    00000000 A   NEWPSD1  DATA     0
     4210   01 01A22    00000000 A            DATA     0
     4211   01 01A23    00001A0D              DATA     T36CAL1
     4212   01 01A24    00000000 A            DATA     0
     4213                            *
     4214                            ****     CHECK THAT WHEN WRITING INTO GENERAL REGISTERS
     4215                            ****     WRITE PROTECT VIOLATIONS ARE INHIBITED.
     4216                            ****
     4217         01 01A25           TST37WLP2  EQU    %
     4218   01 01A25    6AF01DB8              BAL,R15  STSWL             WL STATUS
     4219   01 01A26    32802477              LW,8     YC                SET UP WL CONTROL IMAGE WORD
     4220   01 01A27    22700000 A            LI,7     0                 SET CONTROL START ADDR
     4221   01 01A28    357022A3              STW,7    WLTP                                              *A03
     4222   01 01A29    6AB01F1E              BAL,R11  MMCWL1            LOAD WL=11 FOR VP 0
     4223   01 01A2A    22800003 A            LI,8     3
     4224   01 01A2B    358022A2              STW,8    TPWL              SAVE WL BITS
     4225   01 01A2C    32802469              LW,8     TINSTP            COMPUTE ADDR WHERE
     4226   01 01A2D    25800009 A            SLS,8    9                 TEST INST TO
     4227   01 01A2E    208001F8 A            AI,8     X'1F8'            BE STORED
     4228   01 01A2F    358022F0              STW,8    MAPEDADR          SAVE ADDR
     4229   01 01A30    35801A38              STW,8    MASTMOD2          SET UP PSW1
     4230   01 01A31    6AF01E8C              BAL,R15  SETINST           SET UP TEST INST IN TINSTP
     4231   01 01A32    02001A47              GEN,8,2,22  2,0,CHKINST6
     4232         01 01A33           LOPLPSD2 EQU      %
     4233   01 01A33    228FFFFF A            LI,8     -1
     4234   01 01A34    22100000 A            LI,1     0
     4235   01 01A35    351022E9              STW,1    ERRFLAG           RESET FLAG
     4236   01 01A36    0E001A38              LPSD,0   MASTMOD2
     4237                                     BOUND    8
     4238   01 01A38    00003DF8 A   MASTMOD2 DATA     X'00003DF8'
     4239   01 01A39    10000000 A            DATA     X'10000000'                                       *A02
     4240                            *
     4241                            *
     4242                            *************************************************************
     4243                            *************************************************************
     4244                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST
     4245                            *************************************************************
     4246                            *************************************************************
     4247                            *
     4248                            *
     4249         01 01A3A           T37CAL1  EQU      %
     4250   01 01A3A    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     4251   01 01A3B    69801A33              BCS,8    LOPLPSD2          BRANCH FOR SHORT LOOP
     4252   01 01A3C    328022E9              LW,8     ERRFLAG
     4253   01 01A3D    68301A41              BEZ      TOK16             TEST OK IF FLAG NOT SET         *A03
     4254   01 01A3E    22802A3E              LI,8     PLMSG6                                            *A03
     4255   01 01A3F    6AF01A19              BAL,R15  ERWLP1            REPORT ERROR                    *A03
     4256   01 01A40    68001A33              B        LOPLPSD2          RETURN HERE IF SS1=1;SS3=0      *A03
     4257   01 01A41    70200392     TOK16    LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     4258   01 01A42    69401A33              BCS,4    LOPLPSD2          BRANCH FOR LONG LOOP
     4259   01 01A43    680010B0              B        TST:CONT          NEXT TEST                       *A01
     4260                            *
     4261                            *
     4262                            ************************************************************
     4263                            ************************************************************
     4264                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     4265                            ****     FOR THIS TEST.
     4266                            ************************************************************
     4267                            ************************************************************
     4268                            *
     4269                            *
     4270         01 01A44           T37ERTRP EQU      %
     4271   01 01A44    22800001 A            LI,8     1
     4272   01 01A45    358022E9              STW,8    ERRFLAG           SET ERROR FLAG
     4273   01 01A46    68001A3A              B        T37CAL1
     4274                            *
     4275         01 01A47           CHKINST6 EQU      %
     4276   01 01A47    35800001 A            STW,8    R1
     4277   01 01A48    04900000 A            CAL1,9   0
     4278                            *
     4279                            *
     4280                            *
     4281                            ****     CHECK THAT WRITE PROTECT VIOLATIONS ARE
     4282                            ****     INHIBITED ON WRITING INTO X'20'
     4283                            ****     WHEN EXECUTING AN I/O INSTRUCTION.
     4284                            *
     4285         01 01A49           TST38WLP3  EQU    %
     4286   01 01A49    6AF01DB8              BAL,R15  STSWL             STATUS
     4287   01 01A4A    32802477              LW,8     YC
     4288   01 01A4B    22700000 A            LI,7     0                                                 *A03
     4289   01 01A4C    357022A3              STW,7    WLTP                                              *A03
     4290   01 01A4D    6AB01F1E              BAL,11   MMCWL1            LOAD WL=11 FOR PAGE 0           *A03
     4291   01 01A4E    22800003 A            LI,8     3                                                 *A03
     4292   01 01A4F    358022A2              STW,8    TPWL              SAVE WL BITS                    *A03
     4293   01 01A50    22800004 A            LI,8     4
     4294   01 01A51    22600008 A            LI,R6    R8
     4295   01 01A52    3270247B              LW,7     Y01002
     4296   01 01A53    6F620000 A            MMC,6    1                 SET WL=01 FOR PAGE 1E
     4297   01 01A54    32D00397              LW,13    #PRTADDR                                          *A02
     4298   01 01A55    12801A6E              LD,8     TIOWLT            STORETEST INST AT
     4299   01 01A56    15803DF8 A            STD,8    X'3DF8'           3DF8
     4300   01 01A57    22803DF8 A            LI,8     X'3DF8'
     4301   01 01A58    358022F0              STW,8    MAPEDADR
     4302         01 01A59           LOPT38   EQU      %
     4303   01 01A59    EA6003C5              BAL,LINK   *#DISUSER%      DISABLE USER
     4304   01 01A5A    22800000 A            LI,8     0
     4305   01 01A5B    358022E9              STW,8    ERRFLAG           RESET FLAG
     4306   01 01A5C    0E001A5E              LPSD,0   MASTMOD3
     4307                                     BOUND    8
     4308   01 01A5E    00003DF8 A   MASTMOD3 DATA     X'00003DF8'
     4309   01 01A5F    10000000 A            DATA     X'10000000'       SET WK=01                       *A02
     4310                            *
     4311                            ****     ENTER HERE ON CAL1 TRAP FOR THIS TEST.
     4312                            *
     4313         01 01A60           T38CAL1  EQU      %
     4314   01 01A60    EA6003C6              BAL,LINK   *#ENUSER%       ENABLE USER
     4315   01 01A61    70200392              LC       #SENSE
     4316   01 01A62    69801A59              BCS,8    LOPT38            SHORT LOOP IF SS1 SET
     4317   01 01A63    328022E9              LW,8     ERRFLAG           IF FLAG 0 NO TRAP TO X'40'
     4318   01 01A64    68301A68              BEZ      TOK17             TEST OK                         *A03
     4319   01 01A65    22802AA7              LI,8     PLMSG12                                           *A03
     4320   01 01A66    6AF01A19              BAL,R15  ERWLP1            OTHERWISE REPORT ERROR          *A03
     4321   01 01A67    68001A59              B        LOPT38            RETURN HERE IF SS1=1;SS3=0      *A03
     4322   01 01A68    70200392     TOK17    LC       #SENSE                                            *A03
     4323   01 01A69    69401A59              BCS,4    LOPT38            LONG LOOP IF SS2 SET
     4324   01 01A6A    6AF01EEA              BAL,R15  ALLWLREG
     4325   01 01A6B    680010B0              B        TST:CONT          NEXT TEST                       *A01
     4326                            *
     4327                            ****     ENTER HERE ON WROTE PROTECT VIOLATION TRAP
     4328                            ****     FOR THIS TEST.
     4329                            *
     4330         01 01A6C           T38ERTRP EQU      %
     4331   01 01A6C    331022E9              MTW,1    ERRFLAG           SET ERROR FLAG
     4332   01 01A6D    68001A60              B        T38CAL1
     4333                            *
     4334                                     BOUND    8
     4335         01 01A6E           TIOWLT   EQU      %
     4336   01 01A6E    CD80000D A            TIO,8    *13                                               *A02
     4337   01 01A6F    04A00000 A            CAL1,10  0
     4338                            *
     4339                            *
     4340                            ****     CHECK THAT MBS,TBS,PSM AND STM INSTRUCTIONS
     4341                            ****     CAUSE A TRAP TO X'40' WHEN THERE EXECUTION
     4342                            ****     EXTENDS TO A PAGE OF MEMORY WHICH IS
     4343                            ****     WRITE LOCK PROTECTED
     4344                            *
     4345         01 01A70           TST39WLP4  EQU    %
     4346   01 01A70    6AF01DB8              BAL,R15  STSWL             STATUS
     4347   01 01A71    32802288              LW,8     T39LUPAD                                          *A03
     4348   01 01A72    3580165F              STW,8    T24OKTRP+1        STORE SHORT LOOP ADDR           *A03
     4349   01 01A73    22801A89              LI,8     LOPT39                                            *A03
     4350   01 01A74    498022A5              OR,8     HEX68             ADD BRANCH OP CODE              *A03
     4351   01 01A75    35801671              STW,8    SLOOP             STORE SHORT LOOP ADDR           *A03
     4352   01 01A76    3280175E              LW,8     ATEMP             INITIALISE ADDR OF
     4353   01 01A77    3580175D              STW,8    TEMP              TEMP STORAGE
     4354   01 01A78    3280175C              LW,8     AMOD              SET POINTER TO
     4355   01 01A79    3580175B              STW,8    LIST              FIRST MODULE
     4356   01 01A7A    22800001 A            LI,8     1                 SET BYTE 2 OF FIRST WORD OF MODULES
     4357   01 01A7B    22100002 A            LI,X1    2                 1 AND 3 TO A 1 TO DEFINE THAT
     4358   01 01A7C    758216ED              STB,8    MOD1,X1           THESE MODULES ARE NOT TO BE
     4359   01 01A7D    75821703              STB,8    MOD3,X1           CHECKED DURING WL TESTS
     4360   01 01A7E    228FFFFF A            LI,8     -1
     4361   01 01A7F    35802242              STW,8    MODULE#           RESET MODULE #
     4362         01 01A80           GETNMOD2 EQU      %
     4363   01 01A80    F280175B              LB,8     *LIST             GET WL BITS FOR TEST
     4364   01 01A81    35802449              STW,8    WLLOAD            SAVE BITS
     4365   01 01A82    25800004 A            SLS,8    4                 SET WL=11 FOR PAGE 1D
     4366   01 01A83    20800040 A            AI,8     X'40'             SET WL=01 FOR PAG 1C;REST 0'S
     4367   01 01A84    22600008 A            LI,R6    R8
     4368   01 01A85    3270247B              LW,R7    Y01002
     4369   01 01A86    6F620000 A            MMC,R6   1                 LOAD WL FOR PAGES 10--1F
     4370   01 01A87    6AF0161E              BAL,R15  DRIVER            LOAD MODULE IN TEMP STOR
     4371   01 01A88    6AF01638              BAL,R15  LOADINST          LOAD INST AT X'3800';PAG 1C
     4372         01 01A89           LOPT39   EQU      %
     4373   01 01A89    6AF0163F              BAL,R15  INITSTOR          INITIALISE SORC & DEST. AREAS
     4374   01 01A8A    0E001A8C              LPSD,0   MASTMOD4          SET WK=01 AND START EXECUTING
     4375                            *                                   INST FROM X'3800'
     4376                                     BOUND    8
     4377   01 01A8C    00003800 A   MASTMOD4 DATA     X'00003800'
     4378   01 01A8D    10000000 A            DATA     X'10000000'       SET WK=01
     4379                            *
     4380                            *
     4381         01 0165E           T39OKTRP EQU      T24OKTRP
     4382                            *
     4383         01 01A8E           TEST39   EQU      %
     4384   01 01A8E    B280175B              LW,8     *LIST             GET FIRST WORD OF MODULE
     4385   01 01A8F    21800000 A            CI,8     0                 IF EQUAL ALL
     4386   01 01A90    68301A92              BE       %+2               MODULES DONE
     4387   01 01A91    68001A80              B        GETNMOD2          OTHERWISE GET NEXT MODULE
     4388   01 01A92    70200392              LC       #SENSE
     4389   01 01A93    69401A71              BCS,4    TST39WLP4+1       IF SET LONG LOOP                *A01
     4390   01 01A94    680010B0              B        TST:CONT          NEXT TEST                       *A01
     4391                            *
     4392                            *
     4393         01 01A95           ERWLP4   EQU      %
     4394   01 01A95    331022D1              MTW,1    ECWL              UPDATE ERROR COUNTER
     4395   01 01A96    32802251              LW,8     WL#
     4396   01 01A97    68001688              B        XERPLT7
     4397                            *
     4398                            *
     4399                            ****     CHECK THAT HIGH ORDER 5 BITS OF MAP REGISTER
     4400                            ****     ARE FORCED TO ZERO'S WHEN EXECUTING A MMC INST
     4401                            ****     IN SIGMA 7 MODE(8 BIT FORMAT).
     4402                            *
     4403                            *
     4404         01 01A98           TST40MMC EQU      %
     4405   01 01A98    328022EA              LW,8     SIGMA8
     4406   01 01A99    693010B0              BNEZ     TST:CONT                                          *A01
     4407   01 01A9A    6AF01DBB              BAL,R15  STSMMC                                            *A01
     4408   01 01A9B    22801FFF A            LI,8     X'1FFF'           PATTERN TO BE LOADED
     4409   01 01A9C    6AB01ECD              BAL,R11  ODDEVEN           INITIALLY IN THE MAP REG
     4410   01 01A9D    25800010 A            SLS,8    16                AS PER THE TEST PAGE ADDRESS
     4411   01 01A9E    3270246A              LW,7     TESTPAGE
     4412   01 01A9F    6AB01EC3              BAL,R11  MMCMAP1           LOAD MAP
     4413         01 01AA0           LOPT40   EQU      %                                                 *A03
     4414   01 01AA0    32802488              LW,8     XFF               SET UP MAP CONTROL  IMAGE WORD
     4415   01 01AA1    3210246A              LW,X1    TESTPAGE          TO LOAD THE MAP REG( AS PER
     4416   01 01AA2    4B102472              AND,X1   X03               TEST PAGE ADDRESS)IN
     4417   01 01AA3    67021AE3              EXU      SHIFTR8,X1        8 BIT FORM(SIGMA 7 COMPATIBLE)
     4418   01 01AA4    22600008 A            LI,R6    R8
     4419   01 01AA5    3270246A              LW,7     TESTPAGE
     4420   01 01AA6    2570007E A            SLS,7    -2
     4421   01 01AA7    2570000B A            SLS,7    11                SET UP CONTROL START
     4422   01 01AA8    73100007 A            MTB,1    R7                SET WORD COUNT
     4423   01 01AA9    6F680000 A            MMC,6    4                 LOAD MAP IN 8 BIT FORM
     4424   01 01AAA    3210246A              LW,X1    TESTPAGE          LOAD TEST PAFE ADDR IN
     4425   01 01AAB    25100009 A            SLS,X1   9                 BITS 15-22 OF X1
     4426   01 01AAC    3510229A              STW,1    PAGEADR           STORE VP ADDR                   *A03
     4427   01 01AAD    22800000 A            LI,8     0                 CLEAR LRA REG                   *A04
     4428   01 01AAE    02200080 A            LCI      8                 SET CC FOR WRD ADRR             *A04
     4429   01 01AAF    2C80229A              LRA,8    PAGEADR           READ MAP FOR TEST PAGE          *A04
     4430   01 01AB0    7400227E              STCF     ACTCC             SAVE CC                         *A04
     4431   01 01AB1    70200392              LC       #SENSE                                            *A04
     4432   01 01AB2    69801AA0              BCS,8    LOPT40            SHORT LOOP IF SS1 SET           *A04
     4433   01 01AB3    25800077 A            SLS,8    -9
     4434   01 01AB4    4B80247F              AND,8    X1FFF             SAVE MAP BITS READ
     4435   01 01AB5    218000FF A            CI,8     X'FF'             IF MAP READ=MAP STORED
     4436   01 01AB6    68301AB8              BE       TOK18             TEST OK;HIGH ORDER 5 BITS ZEROD *A03
     4437   01 01AB7    6AF01ABB              BAL,R15  ERMMC1            REPORT ERROR
     4438   01 01AB8    70200392     TOK18    LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     4439   01 01AB9    69401A9A              BCS,4    TST40MMC+2        BRANCH FOR LONG LOOP            *A01
     4440   01 01ABA    680010B0              B        TST:CONT          NEXT TEST                       *A01
     4441                            *
     4442                            *
     4443         01 01ABB           ERMMC1   EQU      %
     4444   01 01ABB    3580227A              STW,8    SAVRESLT          SAVE RESULT
     4445   01 01ABC    6AD01AD5              BAL,R13  ERRMMC
     4446   01 01ABD    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     4447   01 01ABE    6D000032 A            #HTECON  TESTPAGE          CONVERT TEST PAGE ADDRESS
            01 01ABF    EA6003C3
            01 01AC0    0000246A
            01 01AC1    6D000022 A
     4448   01 01AC2    25600001 A            SLS,LINK   1
     4449   01 01AC3    20600003 A            AI,LINK  3
     4450   01 01AC4    528C0000 A            LH,8     0,LINK
     4451   01 01AC5    55802B83              STH,8    MMCMSG2+3         STORE TEST PAGE ADDR
     4452   01 01AC6    6D000032 A            #HTECON  SAVRESLT          CONVERT MAP BITS READ
            01 01AC7    EA6003C3
            01 01AC8    0000227A
            01 01AC9    6D000022 A
     4453   01 01ACA    328C0001 A            LW,8     1,LINK
     4454   01 01ACB    35802B91              STW,8    MMCMSG2+17        STORE RESULT
     4455   01 01ACC    EA6003C5              #PRINT   MMCMSG1,C1        PRINT ERROR MESSAGES
            01 01ACD    EA6003CD
            01 01ACE    C100ADCC A
            01 01ACF    EA6003C6
     4456   01 01AD0    EA6003C5              #PRINT   MMCMSG2
            01 01AD1    EA6003CD
            01 01AD2    C000AE00 A
            01 01AD3    EA6003C6
     4457   01 01AD4    68001D8F              B        COMMON
     4458                            *
     4459                            *
     4460         01 01AD5           ERRMMC   EQU      %
     4461   01 01AD5    331022D3              MTW,1    ECMMC             UPDATE ERROR COUNTER
     4462   01 01AD6    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     4463   01 01AD7    E910000D A            BCS,1    *R13              SKIP ERROR PRINT OUT            *A03
     4464   01 01AD8    3310000D A            MTW,1    R13               INCR RETURN ADDR                *A03
     4465   01 01AD9    32800393              LW,8     #HDRFLG           IF HEADING FLAG SET
     4466   01 01ADA    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #              *A02
     4467   01 01ADB    E830000D A            BE       *R13              SKIP HEADING OUTPUT             *A02
     4468   01 01ADC    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     4469   01 01ADD    55802B09              STH,8    MMCHD1+9          STORE IN BUFFER
     4470   01 01ADE    EA6003C5              #PRINT   MMCHD1,C1         PRINT HEADING
            01 01ADF    EA6003CD
            01 01AE0    C100AC00 A
            01 01AE1    EA6003C6
     4471   01 01AE2    E800000D A            B        *R13              EXIT
     4472                            *
     4473                            *
     4474   01 01AE3    25800018 A   SHIFTR8  SLS,R8   24                SET MAP PATT IN BYTE 0
     4475   01 01AE4    25800010 A            SLS,R8   16                SET MAP PATT IN BYTE1
     4476   01 01AE5    25800008 A            SLS,R8   8                 SET MAP PATT IN BYTE 2
     4477   01 01AE6    25800000 A            SLS,R8   0                 SET MAP PATT IN BYTE 3
     4478                            *
     4479                            *
     4480                            ****     CHECK THAT MMC INSTRUCTION CAN BE INTERRUPTED
     4481                            ****     AND THAT THE LAST CONTROL IMAGE WORD WAS LOADED CORRECTLY
     4482                            ****     INTO THE WRITE LOCK REGISTERS.
     4483                            *
     4484         01 01AE7           TST42MMC EQU      %
     4485   01 01AE7    6AF01DBB              BAL,R15  STSMMC
     4486   01 01AE8    328022EA              LW,8     SIGMA8            LOAD MAP REGS. TO
     4487   01 01AE9    69301AEB              BNEZ     %+2               THEMSELVES IF SIGMA 9
     4488   01 01AEA    6AF01EF9              BAL,R15  MAPSELF
     4489   01 01AEB    6AF01EEA              BAL,R15  ALLWLREG          LOAD ALL WL REG WITH 0'S
     4490   01 01AEC    32802262              LW,8     INTX5D                                            *A01
     4491   01 01AED    3580005D A            STW,8    X'5D'             STORE XPSD                      *A01
     4492         01 01AEE           LOPT42   EQU      %
     4493   01 01AEE    22800000 A            LI,8     0
     4494   01 01AEF    35802447              STW,8    INTFLAG           CLEAR FLAG
     4495   01 01AF0    358022E9              STW,8    ERRFLAG
     4496   01 01AF1    35802448              STW,8    WLREAD
     4497   01 01AF2    22602436              LI,R6    WLPATRN           SET UP TO LOAD 16  WORDS        *A01
     4498   01 01AF3    356022B1              STW,6    SAVR6
     4499   01 01AF4    3270248B              LW,R7    Y1                IN WL REGS                      *A01
     4500   01 01AF5    22800010 A            LI,8     X'10'             ARM AND ENABLE                  *A01
     4501   01 01AF6    6D801200 A            WD,8     X'1200'           CONTROL PANEL INTERRUPT         *A01
     4502   01 01AF7    32802263              LW,8     SNAP:INT          LOAD SNAP DATA                  *A01
     4503   01 01AF8    6D800049 A            WD,8     X'49'             INVOKE SNAP TO INTERRUPT MMC    *A01
     4504   01 01AF9    02000000 A            NOP                                                        *A01
     4505   01 01AFA    02000000 A            NOP                                                        *A01
     4506   01 01AFB    02000000 A            NOP                                                        *A01
     4507         01 01AFC           MMC1     EQU      %
     4508   01 01AFC    6F620000 A            MMC,R6   1                 EXECUTE MMC TO LOAD WL'S
     4509   01 01AFD    22800010 A            LI,8     X'10'                                             *A01
     4510   01 01AFE    6D801100 A            WD,8     X'1100'           DISARM IF NOT INTERRUPTED
     4511         01 01AFF           INTXIT   EQU      %                 ENTER HERE FROM INT ROUTINE
     4512   01 01AFF    70200392              LC       #SENSE
     4513   01 01B00    69801AEE              BCS,8    LOPT42            SHORT LOOP
     4514   01 01B01    32802447              LW,8     INTFLAG           IF FLAG SET
     4515   01 01B02    69301B06              BNEZ     INTOK             MMC INTERRUPTED;TEST OK
     4516   01 01B03    6AF01B32              BAL,R15  ERMMC3            REPORT ERROR                    *A01
     4517   01 01B04    68001AEE              B        LOPT42            RETURN HERE IF SS1=1;SS3=0      *A03
     4518   01 01B05    68001B2D              B        SS2LOOP
     4519                            *
     4520         01 01B06           INTOK    EQU      %
     4521   01 01B06    32801B78              LW,8     CPINT                                             *A01
     4522   01 01B07    4B802482              AND,8    X1FFFF            GET THE ACTUAL INT. ADDRESS
     4523   01 01B08    318022C2              CW,8     ADRMMC1           OK IF ADDR THAT OF MMC INST
     4524   01 01B09    68301B0B              BE       %+2
     4525   01 01B0A    331022E9              MTW,1    ERRFLAG           SET ERROR FLAG
     4526   01 01B0B    358022C6              STW,8    WORK5             SAVE INT ADDR
     4527   01 01B0C    326022A8              LW,6     SAVRS             GET ADDR OF NEXT CONT. IMG WORD
     4528   01 01B0D    206FFFFF A            AI,6     -1                TO BE LOADED
     4529   01 01B0E    38602446              SW,6     ADRWLPAT          FIND OUT WHICH WORD WAS LAST
     4530   01 01B0F    328C2436              LW,8     WLPATRN,X6        LOADED INTO WL REGS             *A01
     4531   01 01B10    35802449              STW,8    WLLOAD            SAVE WL PATTERN
     4532   01 01B11    327022A9              LW,7     SAVRS+1           NOW VIA LRA
     4533   01 01B12    4B70248C              AND,7    X1FE00            READ THE LAST 16
     4534   01 01B13    207FE000 A            AI,7     -X'2000'          WL REG LOADED JUST PRIOR
     4535   01 01B14    20700010 A            AI,7     X'10'             ADD VAL TO BYPASS CROSSOVER     *A03
     4536   01 01B15    357022C5              STW,7    WORK4             TO INT. OF MMC
     4537   01 01B16    20701E00 A            AI,7     X'1E00'
     4538   01 01B17    22200000 A            LI,X2    0
     4539         01 01B18           READNWL  EQU      %
     4540   01 01B18    3570229A              STW,7    PAGEADR           STORE LRA OPERAND               *A03
     4541   01 01B19    22800000 A            LI,8     0                 CLEAR LRA REG                   *A04
     4542   01 01B1A    02200080 A            LCI      8                 SET CC FOR WRD ADDR             *A04
     4543   01 01B1B    2C80229A              LRA,8    PAGEADR           READ WL REGS                    *A04
     4544   01 01B1C    25800208 A            SCS,8    8                                                 *A03
     4545   01 01B1D    4B802472              AND,8    X03               SAVE WL READ
     4546   01 01B1E    25840000 A            SLS,8    0,X2
     4547   01 01B1F    66802448              AWM,8    WLREAD            STORE WL READ
     4548   01 01B20    317022C5              CW,X7    WORK4
     4549   01 01B21    68301B25              BE       COMPWL                                            *A03
     4550   01 01B22    207FFE00 A            AI,X7    -X'200'           SET UP TO READ WL FOR
     4551   01 01B23    20200002 A            AI,X2    2                 NEXT PAGE
     4552   01 01B24    68001B18              B        READNWL
     4553                            *
     4554         01 01B25           COMPWL   EQU      %                                                 *A03
     4555   01 01B25    32802449              LW,8     WLLOAD            IF LAST WOR STORED
     4556   01 01B26    31802448              CW,8     WLREAD            CORRECTLY TEST OK
     4557   01 01B27    68301B29              BE       %+2
     4558   01 01B28    331022E9              MTW,1    ERRFLAG           OTHERWISE FLAG ERROR
     4559   01 01B29    328022E9              LW,8     ERRFLAG
     4560   01 01B2A    68301B2D              BEZ      SS2LOOP                                           *A03
     4561   01 01B2B    6AF01B4B              BAL,R15  ERMMC3A           AND REPORT IT
     4562   01 01B2C    68001AEE              B        LOPT42            RETURN HERE IF SS1=1;SS3=0      *A03
     4563         01 01B2D           SS2LOOP  EQU      %
     4564   01 01B2D    70200392              LC       #SENSE
     4565   01 01B2E    69401AEE              BCS,4    LOPT42            LONG LOOP
     4566   01 01B2F    3280226B              LW,8     GUID:5D                                           *A01
     4567   01 01B30    3580005D A            STW,8    X'5D'             RESTORE GUIDE'S XPSD            *A01
     4568   01 01B31    680010B0              B        TST:CONT          NEXT TEST                       *A01
     4569                            *
     4570         01 01B32           ERMMC3   EQU      %
     4571   01 01B32    6AD01AD5              BAL,R13  ERRMMC
     4572   01 01B33    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     4573   01 01B34    328022C2              LW,8     ADRMMC1
     4574   01 01B35    35801B3A              STW,8    HTECON1+2
     4575   01 01B36    22100010 A            LI,X1    16
     4576   01 01B37    222FFFFA A            LI,X2    -6                                                *A01
     4577   01 01B38    6D000032 A   HTECON1  #HTECON  MMC1              CONVERT THE FOUR INST.
            01 01B39    EA6003C3
            01 01B3A    00001AFC
            01 01B3B    6D000022 A
     4578   01 01B3C    2A8C0000 A            LM,8     0,LINK            USED TO INTERRUP MMC INST
     4579   01 01B3D    02200020 A            LCI      2
     4580   01 01B3E    2B822BA3              STM,8    MMCMSG4A,X1       STORE INSTRUCTIONS
     4581   01 01B3F    201FFFFD A            AI,X1    -3
     4582   01 01B40    33F01B3A              MTW,-1   HTECON1+2
     4583   01 01B41    65201B38              BIR,X2   HTECON1
     4584   01 01B42    EA6003C5              #PRINT   MMCMSG4,C1        PRINT MESSAGES
            01 01B43    EA6003CD
            01 01B44    C100AE48 A
            01 01B45    EA6003C6
     4585   01 01B46    EA6003C5              #PRINT   MMCMSG4A
            01 01B47    EA6003CD
            01 01B48    C000AE8C A
            01 01B49    EA6003C6
     4586   01 01B4A    68001D8F              B        COMMON
     4587                            *
     4588         01 01B4B           ERMMC3A  EQU      %
     4589   01 01B4B    6AD01AD5              BAL,R13  ERRMMC
     4590   01 01B4C    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     4591   01 01B4D    6D000032 A            #HTECON  MMC1              CONVERT MMC INST
            01 01B4E    EA6003C3
            01 01B4F    00001AFC
            01 01B50    6D000022 A
     4592   01 01B51    2A8C0000 A            LM,8     0,LINK
     4593   01 01B52    02200020 A            LCI      2
     4594   01 01B53    2B802BBC              STM,8    MMCMSG4B+7        STORE IN MESSAGE BUFFER
     4595   01 01B54    6D000032 A            #HTECON  ADRMMC1           CONVERT EXP INT ADDR
            01 01B55    EA6003C3
            01 01B56    000022C2
            01 01B57    6D000022 A
     4596   01 01B58    328C0001 A            LW,8     1,LINK
     4597   01 01B59    35802BC2              STW,8    MMCMSG4B+13       STORE IN MSG BUF
     4598   01 01B5A    6D000032 A            #HTECON  WORK5             CONVERT ACT INT ADDR
            01 01B5B    EA6003C3
            01 01B5C    000022C6
            01 01B5D    6D000022 A
     4599   01 01B5E    328C0001 A            LW,8     1,LINK
     4600   01 01B5F    35802BC5              STW,8    MMCMSG4B+16       STORE IN MSG BIUF
     4601   01 01B60    6D000032 A            #HTECON  WLLOAD            CONVERT EXP WL
            01 01B61    EA6003C3
            01 01B62    00002449
            01 01B63    6D000022 A
     4602   01 01B64    2A8C0000 A            LM,8     0,LINK
     4603   01 01B65    02200020 A            LCI      2
     4604   01 01B66    2B802BD0              STM,8    MMCMSG4C+10       STORE IN MSG BUF
     4605   01 01B67    6D000032 A            #HTECON  WLREAD            CONVERT ACT WL READ
            01 01B68    EA6003C3
            01 01B69    00002448
            01 01B6A    6D000022 A
     4606   01 01B6B    2A8C0000 A            LM,8     0,LINK
     4607   01 01B6C    02200020 A            LCI      2
     4608   01 01B6D    2B802BD4              STM,8    MMCMSG4C+14       STORE IN MSG BUF
     4609   01 01B6E    EA6003C5              #PRINT   MMCMSG4B,C1       PRINT MESSAGES
            01 01B6F    EA6003CD
            01 01B70    C100AED4 A
            01 01B71    EA6003C6
     4610   01 01B72    EA6003C5              #PRINT   MMCMSG4C
            01 01B73    EA6003CD
            01 01B74    C000AF18 A
            01 01B75    EA6003C6
     4611   01 01B76    68001D8F              B        COMMON
     4612                            *
     4613                            ****     ENTER HERE FOR CONTROL PANEL  INTERRUPT                    *A01
     4614                            ****     FOR THIS TEST
     4615                            *
     4616                                     BOUND    8
     4617   01 01B78    00000000 A   CPINT    DATA     0                                                 *A01
     4618   01 01B79    00000000 A            DATA     0
     4619   01 01B7A    00001B7C              DATA     %+2
     4620   01 01B7B    00000000 A            DATA     0
     4621   01 01B7C    22800010 A            LI,8     X'10'                                             *A01
     4622   01 01B7D    6D801100 A            WD,8     X'1100'           DISARM INT LEVELS
     4623   01 01B7E    02200020 A            LCI      2
     4624   01 01B7F    2B6022A8              STM,R6   SAVRS             SAVE R6 AND R7
     4625   01 01B80    33102447              MTW,1    INTFLAG           SET FLAG
     4626   01 01B81    68001AFF              B        INTXIT            EXIT
     4627                            *
     4628                            *
     4629                            *
     4630                            *
     4631                            ****     CHECK THAT WHEN EXECUTING MMC INSTRUCTION IN
     4632                            ****     MASTER PROTECTED MODE A PROTECTION VIOLATION CHECK
     4633                            ****     IS MADE CORRECTLY AND IF A VIOLATION OCCURS
     4634                            ****     MAP REGISTERS AND GENERAL REGISTERS ARE
     4635                            ****     NOT ALTERED.
     4636                            *
     4637                            *
     4638         01 01B82           TST43MMC EQU      %
     4639   01 01B82    328022EA              LW,8     SIGMA8
     4640   01 01B83    693010B0              BNEZ     TST:CONT                                          *A01
     4641   01 01B84    6AF01DBB              BAL,R15  STSMMC                                            *A01
     4642   01 01B85    6AF01EDA              BAL,R15  ALMAPREG
     4643         01 01B86           LOPT43   EQU      %
     4644   01 01B86    22800000 A            LI,8     0
     4645   01 01B87    358022E9              STW,8    ERRFLAG           CLEAR ERROR FLAG
     4646   01 01B88    22602384              LI,R6    IMGMAP            INITIALLY LOAD MAP REGS 1C,1D
     4647   01 01B89    32702487              LW,R7    Y020038           1E &1F WITH 1C,1D,1E & 1F RESPT.
     4648   01 01B8A    6F6A0000 A            MMC,R6   5                 LOAD 1C,1D,1E AND 1F
     4649   01 01B8B    12801B9A              LD,8     TSTINST4          LOAD TEST INST(MMC)
     4650   01 01B8C    15803BF8 A            STD,8    X'3BF8'           AT X'3BF8'  --PAGE 1D
     4651   01 01B8D    228FFFFF A            LI,8     -1                SET TEST MAP CONTROL IMAGE WORD
     4652   01 01B8E    35803E00 A            STW,8    X'3E00'           AT X'3E00'---PAGE 1F
     4653   01 01B8F    22800003 A            LI,8     3                 SET AC=11 FOR PAGE 1F
     4654   01 01B90    22600008 A            LI,R6    R8                FOR PAGES 10 TO 1E AC=00
     4655   01 01B91    3270247B              LW,R7    Y01002            SET WORD COUNT AND CONTROL START
     4656   01 01B92    6F640000 A            MMC,R6   2                 LOAD AC REGS
     4657   01 01B93    22603E00 A            LI,R6    X'3E00'           LOAD MAP CONTROL IMAGE ADDR
     4658   01 01B94    3270247C              LW,R7    Y01003C           SET R7 TO LOAD MAP REGS 1E & 1F
     4659   01 01B95    356022BE              STW,R6   WORK1             SAVE R6
     4660   01 01B96    357022BF              STW,R7   WORK2             SAVE R7
     4661   01 01B97    0E001B98              LPSD,0   MASTPROT          SET PROGRAM TO MASTER,MAP &
     4662                            *                                   PROTECT MODE
     4663                                     BOUND    8
     4664   01 01B98    00403BF8 A   MASTPROT DATA     X'00403BF8'       PAGE 1D MAPS TO ITSELF
     4665   01 01B99    00800000 A            DATA     X'00800000'       MASTER PROT BIT SET
     4666                            *
     4667                                     BOUND    8
     4668         01 01B9A           TSTINST4 EQU      %
     4669   01 01B9A    6F6A0000 A            MMC,R6   5                 EXECUTE THIS INST IN MAST,MAP,PROT
     4670   01 01B9B    04B00000 A            CAL1,11  0                                                 *A02
     4671                            *
     4672                            *
     4673                            ***************************************************************
     4674                            ****     ENTER HERE WHEN THERE IS AN ACCESS PROTECT
     4675                            ****     VIOLATION WHEN EXECUTING A MMC INST IN MASTER
     4676                            ****     PROTECT MODE.
     4677                            ***************************************************************
     4678                            *
     4679         01 01B9C           T43OKTRP EQU      %
     4680   01 01B9C    32802254              LW,8     YES               LOAD A 'YES' IN MEG BUFFER
     4681   01 01B9D    35802BFE              STW,8    MMCMSG5B+5
     4682   01 01B9E    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     4683   01 01B9F    69801B86              BCS,8    LOPT43            BRANCH FOR SHORT LOOP
     4684   01 01BA0    2210001E A            LI,X1    X'1E'             SET PAGE 1E ADDR IN
     4685   01 01BA1    25100009 A            SLS,X1   9                 BITS 15-22 OF X1 TO READ MAP REG 1E
     4686   01 01BA2    3510229A              STW,1    PAGEADR           STORE VP ADDR                   *A03
     4687   01 01BA3    22800000 A            LI,8     0                 CLEAR LRA REG                   *A04
     4688   01 01BA4    02200080 A            LCI      8                 SET CC FOR WRD ADDR             *A04
     4689   01 01BA5    2C80229A              LRA,8    PAGEADR           READ MAP REG X'1E'              *A04
     4690   01 01BA6    25800077 A            SLS,R8   -9
     4691   01 01BA7    4B80247F              AND,8    X1FFF             SAVE MAP READ
     4692   01 01BA8    2180001E A            CI,R8    X'1E'             SHOUL BE EQUAL IF MAP
     4693   01 01BA9    68301BAB              BE       %+2               NOT CHANGED
     4694   01 01BAA    331022E9              MTW,1    ERRFLAG           OTHERWISE UPDATE ERROR COUNTER
     4695   01 01BAB    358022A0              STW,R8   MAPREAD           SAVE MAP READ
     4696   01 01BAC    328022F9              LW,8     SAVEREGS+6        GET R6 SAVED WHEN TRAPPED
     4697   01 01BAD    318022BE              CW,8     WORK1             TEST OK IF R6 NOT CHANGED
     4698   01 01BAE    68301BB0              BE       %+2
     4699   01 01BAF    331022E9              MTW,1    ERRFLAG           UPDATE ERROR FLAG
     4700   01 01BB0    358022A6              STW,8    STOREAT           SAVE ACTUAL R6
     4701   01 01BB1    328022FA              LW,8     SAVEREGS+7        GET R7
     4702   01 01BB2    318022BF              CW,8     WORK2             TEST OK IF R7 NOT CHANGED
     4703   01 01BB3    68301BB5              BE       %+2
     4704   01 01BB4    331022E9              MTW,1    ERRFLAG
     4705   01 01BB5    3580227A              STW,8    SAVRESLT          SAVE ACTUAL R7
     4706   01 01BB6    328022E9              LW,8     ERRFLAG
     4707   01 01BB7    68301BBA              BEZ      TOK19             NO ERRORS IF ZERO               *A03
     4708   01 01BB8    6AF01BC2              BAL,R15  ERMMC4            OTHERWISE REPORT ERROR
     4709   01 01BB9    68001B86              B        LOPT43            RETURN HERE IF SS1=1;SS3=0      *A03
     4710   01 01BBA    70200392     TOK19    LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     4711   01 01BBB    69401B86              BCS,4    LOPT43            BRANCH FOR LONG LOOP
     4712   01 01BBC    680010B0              B        TST:CONT          NEXT TEST                       *A01
     4713                            *
     4714                            *
     4715                            ****************************************************************
     4716                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     4717                            ****************************************************************
     4718                            *
     4719         01 01BBD           T43CAL1  EQU      %
     4720   01 01BBD    02200000 A            LCI      0
     4721   01 01BBE    2B0022F3              STM,0    SAVEREGS          SAVE ALL REGS
     4722   01 01BBF    32802255              LW,8     NO                STORE A 'NO' IN MSG BUFFER
     4723   01 01BC0    331022E9              MTW,1    ERRFLAG           SET ERROR FLAG
     4724   01 01BC1    68001B9D              B        T43OKTRP+1                                        *A03
     4725                            *
     4726                            *
     4727         01 01BC2           ERMMC4   EQU      %
     4728   01 01BC2    6AD01AD5              BAL,R13  ERRMMC
     4729   01 01BC3    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     4730   01 01BC4    6D000032 A            #HTECON  MAPREAD           CONVERT MAP READ
            01 01BC5    EA6003C3
            01 01BC6    000022A0
            01 01BC7    6D000022 A
     4731   01 01BC8    328C0001 A            LW,8     1,LINK
     4732   01 01BC9    35802C02              STW,8    MMCMSG5B+9        STORE MAP READ
     4733   01 01BCA    6D000032 A            #HTECON  STOREAT           CONVERT ACTUAL R6
            01 01BCB    EA6003C3
            01 01BCC    000022A6
            01 01BCD    6D000022 A
     4734   01 01BCE    2A8C0000 A            LM,8     0,LINK
     4735   01 01BCF    02200020 A            LCI      2
     4736   01 01BD0    2B802C05              STM,8    MMCMSG5B+12       STORE R6
     4737   01 01BD1    6D000032 A            #HTECON  SAVRESLT          CONVERT ACTUAL R7
            01 01BD2    EA6003C3
            01 01BD3    0000227A
            01 01BD4    6D000022 A
     4738   01 01BD5    2A8C0000 A            LM,8     0,LINK
     4739   01 01BD6    02200020 A            LCI      2
     4740   01 01BD7    2B802C09              STM,8    MMCMSG5B+16       STORE R7
     4741   01 01BD8    EA6003C5              #PRINT   MMCMSG5,C1        PRINT ERROR MESSAGES
            01 01BD9    EA6003CD
            01 01BDA    C100AF58 A
            01 01BDB    EA6003C6
     4742   01 01BDC    EA6003C5              #PRINT   MMCMSG5A
            01 01BDD    EA6003CD
            01 01BDE    C000AF9C A
            01 01BDF    EA6003C6
     4743   01 01BE0    EA6003C5              #PRINT   MMCMSG5B
            01 01BE1    EA6003CD
            01 01BE2    C000AFE4 A
            01 01BE3    EA6003C6
     4744   01 01BE4    68001D8F              B        COMMON
     4745                            *
     4746                            ****     CHECK THAT WRITE LOCK STORAGE IS TREATED AS A CIRCULAR SET.
     4747                            *
     4748                            *
     4749         01 01BE5           TST44MMC EQU      %
     4750   01 01BE5    6AF01DBB              BAL,R15  STSMMC
     4751   01 01BE6    6AF01EEA              BAL,R15  ALLWLREG          LOAD ALL WL REG WITH 0'S
     4752   01 01BE7    328022EA              LW,8     SIGMA8
     4753   01 01BE8    69301BEA              BNEZ     %+2
     4754   01 01BE9    6AF01EF9              BAL,R15  MAPSELF
     4755         01 01BEA           LOPT44   EQU      %
     4756   01 01BEA    228FFFFF A            LI,8     -1
     4757   01 01BEB    35802314              STW,8    MAPPTRN+16
     4758   01 01BEC    22602304              LI,R6    MAPPTRN           SET CONTROL IMAGE ADDR
     4759   01 01BED    3270248D              LW,R7    Y11               WORD COUNT=17 WORDS
     4760   01 01BEE    6F620000 A            MMC,R6   1                 LOAD 17 WORDS;REG    0 TO BE
     4761                            *                                   OVERWRITTEN WITH ALL 1'S
     4762   01 01BEF    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     4763   01 01BF0    69801BEA              BCS,8    LOPT44            BRANCH FOR SHORT LOOP
     4764   01 01BF1    22100000 A            LI,X1    0
     4765   01 01BF2    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     4766   01 01BF3    3510229A              STW,1    PAGEADR           STORE VP ADDR                   *A03
     4767   01 01BF4    22800000 A            LI,8     0                 CLEAR LRA REG                   *A04
     4768   01 01BF5    02200080 A            LCI      8                 SET CC FOR WRD ADDR             *A04
     4769   01 01BF6    2C80229A              LRA,8    PAGEADR           READ WL REGS                    *A04
     4770   01 01BF7    25800208 A            SCS,8    8                                                 *A03
     4771   01 01BF8    4B802472              AND,8    X03
     4772   01 01BF9    21800003 A            CI,8     3                 IF EQ. REG 0 OVERWRITTEN
     4773   01 01BFA    68301BFD              BE       TOK20             TEST OK                         *A03
     4774   01 01BFB    6AF01C02              BAL,R15  ERMMC5            OTHERWISE REPORT ERROR
     4775   01 01BFC    68001BEA              B        LOPT44            RETURN HERE IF SS1=1;SS3=0      *A03
     4776   01 01BFD    70200392     TOK20    LC       #SENSE            CHECK FOR SS2.IF SET            *A03
     4777   01 01BFE    69401BEA              BCS,4    LOPT44            BRANCH FOR LONG LOOP
     4778   01 01BFF    22800000 A            LI,8     0
     4779   01 01C00    35802314              STW,8    MAPPTRN+16
     4780   01 01C01    680010B0              B        TST:CONT          NEXT TEST                       *A01
     4781                            *
     4782                            *
     4783         01 01C02           ERMMC5   EQU      %
     4784   01 01C02    6AD01AD5              BAL,R13  ERRMMC
     4785   01 01C03    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     4786   01 01C04    EA6003C5              #PRINT   MMCMSG6,C1        PRINT ERROR MESSAGE
            01 01C05    EA6003CD
            01 01C06    C100B02C A
            01 01C07    EA6003C6
     4787   01 01C08    68001D8F              B        COMMON
     4788                            *
     4789                            *
     4790                            ****     CHECK THAT ON EXECUTING A MMC INSTRUCTION
     4791                            ****     WITH ILLEGAL CONTROL BITS(BITS 12-14) AN INSTRUCTION
     4792                            ****     EXCEPTION TRAP OCCURS TO X'4D' WITH TRAP
     4793                            ****     CONDITION CODE 3 SET.
     4794                            *
     4795         01 01C09           TST45MMC EQU      %
     4796   01 01C09    6AF01DBB              BAL,R15  STSMMC            STATUS
     4797   01 01C0A    32802265              LW,8     IETMMC            SET UP XPSD AT
     4798   01 01C0B    3580004D A            STW,8    X'4D'             X'4D'
     4799   01 01C0C    328022E2              LW,8     SCSL3                                             *A03
     4800   01 01C0D    35801C22              STW,8    SCSL              STORE A SCS,8  3  INST          *A03
     4801   01 01C0E    228000F2 A            LI,8     X'F2'                                             *A03
     4802   01 01C0F    75802C35              STB,8    MMCMSG7B+11       STORE EXP. TCC                  *A03
     4803   01 01C10    328022E0              LW,8     MMCILCB           STORE A MMC INST WITH           *A03
     4804   01 01C11    35801C18              STW,8    MMCINST           ILLEGAL CONTROL BITS=6F600000   *A03
     4805         01 01C12           LOPT45   EQU      %
     4806   01 01C12    22800000 A            LI,8     0
     4807   01 01C13    358022BC              STW,8    TRAPFLG           RESET TRAP FLAG
     4808   01 01C14    358022BD              STW,8    TRAPCC            RESET TRAP CC LOCATION          *A03
     4809   01 01C15    22602304              LI,6     MAPPTRN           SET UP R6 AND R7
     4810   01 01C16    32702484              LW,7     Y01               FOR MMC INST
     4811   01 01C17    02200000 A            LCI      0
     4812   01 01C18    00000000 A   MMCINST  DATA     0                 X'6F600000' OR X'6F720000'*A03
     4813                            ****     RETURN HERE FROM IET ROUTINE FOR THIS TEST
     4814   01 01C19    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     4815   01 01C1A    69801C12              BCS,8    LOPT45            BRANCH FOR SHORT LOOP
     4816   01 01C1B    328022BC              LW,8     TRAPFLG           CHECK FLAG
     4817   01 01C1C    69301C21              BNEZ     TOK21             OK IF SET                       *A03
     4818   01 01C1D    32902253              LW,9     NOT               PUT 'NOT' IN MSG BUFF           *A03
     4819   01 01C1E    6AF01C34     ER12     BAL,R15  ERMMC6            OTHERWISE REPORT ERROR          *A03
     4820   01 01C1F    68001C12              B        LOPT45            RETURN HERE IF SS1=1;SS3=0      *A03
     4821   01 01C20    68001C27              B        SS2CHK1                                           *A03
     4822                            *                                                                   *A03
     4823   01 01C21    328022BD     TOK21    LW,8     TRAPCC            CHECK IF TCC3=1                 *A03
     4824   01 01C22    00000000 A   SCSL     DATA     0                 SCS,8 3  OR SCS,8 4             *A03
     4825   01 01C23    31802479              CW,8     X01               RITE TCC SET(TCC3 OR TCC4)      *A03
     4826   01 01C24    69401C27              BCS,4    SS2CHK1           YES                             *A03
     4827   01 01C25    32902252              LW,9     DID               PUT 'DID' IN MSG BUFF           *A03
     4828   01 01C26    68001C1E              B        ER12              REPORT ERROR                    *A03
     4829                            *
     4830         01 01C27           SS2CHK1  EQU      %
     4831   01 01C27    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     4832   01 01C28    69401C12              BCS,4    LOPT45            BRANCH FOR LONG LOOP
     4833   01 01C29    32802268              LW,8     GUID:4D           RESTORE GUIDE'S XPSD            *A02
     4834   01 01C2A    3580004D A            STW,8    X'4D'             AT X'4D'
     4835   01 01C2B    680010B0              B        TST:CONT          NEXT TEST                       *A01
     4836                            *
     4837                            *
     4838                            ****     ENTER HERE FOR INSTRUCTION EXCEPTION TRAP
     4839                            ****     FOR TESTS 45 AND 46.
     4840                            *
     4841                                     BOUND    8
     4842   01 01C2C    00000000 A   MMCIET   DATA     0                 SAVE OLD PSD
     4843   01 01C2D    00000000 A            DATA     0
     4844   01 01C2E    00001C30              DATA     %+2               LOAD NEW PSD
     4845   01 01C2F    07000000 A            DATA     X'07000000'                                       *A03
     4846   01 01C30    740022BD              STCF     TRAPCC            SAVE TRAP CC
     4847   01 01C31    331022BC              MTW,1    TRAPFLG           SET FLAG
     4848   01 01C32    33201C2C              MTW,2    MMCIET            UPDATE RETURN ADDR BY 2
     4849   01 01C33    0E101C2C              LPSD,1   MMCIET            CLEAR PDF AND EXIT
     4850                            *
     4851                            *
     4852         01 01C34           ERMMC6   EQU      %
     4853   01 01C34    35902C1D              STW,9    MMCMSG7+1                                         *A03
     4854   01 01C35    6AD01AD5              BAL,R13  ERRMMC
     4855   01 01C36    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     4856   01 01C37    6D000032 A            #HTECON  MMCINST           CONVERT TEST INST               *A03
            01 01C38    EA6003C3
            01 01C39    00001C18
            01 01C3A    6D000022 A
     4857   01 01C3B    2A8C0000 A            LM,8     0,LINK
     4858   01 01C3C    02200020 A            LCI      2
     4859   01 01C3D    2B802C26              STM,8    MMCMSG7+10        STORE TEST INST                 *A03
     4860   01 01C3E    22901C18              LI,9     MMCINST           GET MMC INST ADDR               *A03
     4861   01 01C3F    6D000032 A            #HTECON  R9                CONVERT MMC INST ADDR           *A03
            01 01C40    EA6003C3
            01 01C41    00000009 A
            01 01C42    6D000022 A
     4862   01 01C43    328C0001 A            LW,8     1,LINK                                            *A03
     4863   01 01C44    35802C29              STW,8    MMCMSG7+13        STORE MMC INST ADDR             *A03
     4864   01 01C45    EA6003C5              #PRINT   MMCMSG7,C1        PRINT MESSAGE                   *A03
            01 01C46    EA6003CD
            01 01C47    C100B070 A
            01 01C48    EA6003C6
     4865   01 01C49    328022BC              LW,8     TRAPFLG           FLAG SET                        *A03
     4866   01 01C4A    68301D8F              BEZ      COMMON            NO;EXIT                         *A03
     4867   01 01C4B    228FFFFE A            LI,8     -2
     4868   01 01C4C    66801C2C              AWM,8    MMCIET            CORRECT TRAP ADDR
     4869   01 01C4D    6D000032 A            #HTECON  MMCIET            CONVERT PSW1
            01 01C4E    EA6003C3
            01 01C4F    00001C2C
            01 01C50    6D000022 A
     4870   01 01C51    2A8C0000 A            LM,8     0,LINK
     4871   01 01C52    02200020 A            LCI      2
     4872   01 01C53    2B802C2C              STM,8    MMCMSG7B+2        STORE PSW1
     4873   01 01C54    6D000032 A            #HTECON  MMCIET+1          CONVERT PSW2
            01 01C55    EA6003C3
            01 01C56    00001C2D
            01 01C57    6D000022 A
     4874   01 01C58    2A8C0000 A            LM,8     0,LINK
     4875   01 01C59    02200020 A            LCI      2
     4876   01 01C5A    2B802C30              STM,8    MMCMSG7B+6        STORE PSW2
     4877   01 01C5B    6D000032 A            #HTECON  TRAPCC            CONVERT TCC                     *A01
            01 01C5C    EA6003C3
            01 01C5D    000022BD
            01 01C5E    6D000022 A
     4878   01 01C5F    25600002 A            SLS,LINK   2
     4879   01 01C60    728C0000 A            LB,8     0,LINK
     4880   01 01C61    75802C39              STB,8    MMCMSG7B+15       STORE TCC
     4881   01 01C62    EA6003C5              #PRINT   MMCMSG7B
            01 01C63    EA6003CD
            01 01C64    C000B0A8 A
            01 01C65    EA6003C6
     4882   01 01C66    68001D8F              B        COMMON
     4883                            *
     4884                            *
     4885                            *
     4886                            ****     CHECK THAT WHEN A ODD REGISTER IS SPECIFIED
     4887                            ****     IN A MMC INST A INSTRUCTION EXCEPTION TRAP
     4888                            ****     SHOULD OCCUR TO X'4D' WITH TRAP CONDITION
     4889                            ****     CODE 4 SET.
     4890                            *
     4891         01 01C67           TST46MMC EQU      %
     4892   01 01C67    6AF01DBB              BAL,R15  STSMMC            STATUS
     4893   01 01C68    32802265              LW,8     IETMMC            SET UP XPSD AT
     4894   01 01C69    3580004D A            STW,8    X'4D'             X'4D'
     4895   01 01C6A    328022B8              LW,8     SCSL4                                             *A03
     4896   01 01C6B    35801C22              STW,8    SCSL              STORE A SCS,8  4 INST           *A03
     4897   01 01C6C    228000F1 A            LI,8     X'F1'                                             *A03
     4898   01 01C6D    75802C35              STB,8    MMCMSG7B+11       STORE EXP. TCC                  *A03
     4899   01 01C6E    328022E1              LW,8     MMCODDR           STORE A MMC INST WITH           *A03
     4900   01 01C6F    35801C18              STW,8    MMCINST           AN ODD REG                      *A03
     4901   01 01C70    68001C12              B        LOPT45                                            *A03
     4902                            *
     4903                            *
     4904                            ****     CHECK THAT THE OPERATION OF THE MMC INSTRUCTION
     4905                            ****     IS NOT AFFECTED WHEN THERE IS A VALUE IN THE
     4906                            ****     REFERENCE ADDRESS FIELD OF THE INSTRUCTION.
     4907                            *
     4908         01 01C71           TST47MMC EQU      %
     4909   01 01C71    6AF01DBB              BAL,R15  STSMMC            STATUS
     4910   01 01C72    6AF01EEA              BAL,R15  ALLWLREG          LOAD ALL WL REG'S WITH 0'S
     4911   01 01C73    328022EA              LW,8     SIGMA8            SIGMA 8                         *A03
     4912   01 01C74    69301C76              BNEZ     %+2               YES                             *A03
     4913   01 01C75    6AF01EF9              BAL,15   MAPSELF           MAP ONE TO ONE                  *A03
     4914   01 01C76    22800003 A            LI,8     3
     4915   01 01C77    22600008 A            LI,6     R8                SET UP R6 & R7 TO LOAD WL
     4916   01 01C78    3270247B              LW,7     Y01002            REG IF WITH 11
     4917         01 01C79           LOPT47   EQU      %                 MMC TO LOAD WL;ALL  1'S IN REF
     4918   01 01C79    6F63FFFF A            DATA     X'6F63FFFF'       FIELD SHOULD NOT EFFECT MMC
     4919   01 01C7A    70200392              LC       #SENSE
     4920   01 01C7B    69801C79              BCS,8    LOPT47            SHORT LOOP IF SS1 SET
     4921   01 01C7C    22100000 A            LI,X1    0
     4922   01 01C7D    3510229F              STW,1    READVP            RESET READ VP ADDR              *A03
     4923   01 01C7E    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     4924   01 01C7F    3510229A     NWLREG   STW,1    PAGEADR           STORE LRA OPERAND               *A03
     4925                            *                                   NOW READ ALL WL  REG;ALL SHOULD
     4926                            *                                   BE 0'S EXCEPT WL=11
     4927                            *                                   FOR PAGE 1F.
     4928   01 01C80    22800000 A            LI,8     0                 CLEAR LRA REG                   *A04
     4929   01 01C81    02200080 A            LCI      8                 SET CC FOR WRD ADDR             *A04
     4930   01 01C82    2C80229A              LRA,8    PAGEADR           READ WL REGS                    *A04
     4931   01 01C83    25800208 A            SCS,8    8                                                 *A03
     4932   01 01C84    4B802472              AND,8    X03
     4933   01 01C85    35802448              STW,8    WLREAD            SAVE WL READ
     4934   01 01C86    22800000 A            LI,8     0                                                 *A03
     4935   01 01C87    3210229F              LW,1     READVP            IS IT =1F                       *A03
     4936   01 01C88    2110001F A            CI,1     X'1F'                                             *A03
     4937   01 01C89    69301C8B              BNE      %+2               NO                              *A03
     4938   01 01C8A    22800003 A            LI,8     3                 DEFINE EXP WL BITS              *A03
     4939   01 01C8B    35802449              STW,8    WLLOAD            SAVE THEM                       *A03
     4940   01 01C8C    31802448              CW,8     WLREAD            SAME AS READ                    *A03
     4941   01 01C8D    68301C90              BE       TOK22             YES                             *A03
     4942   01 01C8E    6AF01C9A              BAL,R15  ERMMC8            OTHERWISE REPORT ERROR
     4943   01 01C8F    68001C79              B        LOPT47            RETURN HERE IF SS1=1;SS3=0      *A03
     4944   01 01C90    3210229F     TOK22    LW,1     READVP                                            *A03
     4945   01 01C91    3110229C              CW,1     LASTPAGE          CHECK IF LAST WL REG  READ      *A03
     4946   01 01C92    68301C97              BE       SS2CHK3           EXIT
     4947   01 01C93    3210229A              LW,1     PAGEADR           GET OPERAND                     *A03
     4948   01 01C94    20100200 A            AI,1     X'200'            INCR READ VP ADDR               *A03
     4949   01 01C95    3310229F              MTW,1    READVP            INCR READ VP ADDR               *A03
     4950   01 01C96    68001C7F              B        NWLREG            READ NEXT WL REG
     4951                            *
     4952         01 01C97           SS2CHK3  EQU      %
     4953   01 01C97    70200392              LC       #SENSE
     4954   01 01C98    69401C72              BCS,4    TST47MMC+1        LONG LOOP IF SS2 SET            *A01
     4955   01 01C99    680010B0              B        TST:CONT          NEXT TEST                       *A01
     4956                            *
     4957                            *
     4958         01 01C9A           ERMMC8   EQU      %
     4959   01 01C9A    6AD01AD5              BAL,R13  ERRMMC
     4960   01 01C9B    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     4961   01 01C9C    6D000032 A            #HTECON  LOPT47            CONVERT TEST INST
            01 01C9D    EA6003C3
            01 01C9E    00001C79
            01 01C9F    6D000022 A
     4962   01 01CA0    2A8C0000 A            LM,8     0,LINK
     4963   01 01CA1    02200020 A            LCI      2
     4964   01 01CA2    2B802C3C              STM,8    MMCMSG9+2         STORE TEST MMC INST
     4965   01 01CA3    6D000032 A            #HTECON  READVP            CONVERT WL  REG READ            *A03
            01 01CA4    EA6003C3
            01 01CA5    0000229F
            01 01CA6    6D000022 A
     4966   01 01CA7    328C0001 A            LW,8     1,LINK
     4967   01 01CA8    4B802475              AND,8    Y4040
     4968   01 01CA9    35802C45              STW,8    MMCMSG9+11        STORE WL  PAGE READ
     4969   01 01CAA    6D000032 A            #BTECON  WLLOAD            CONVERT WL  BITS LOADED         *A03
            01 01CAB    EA6003C4
            01 01CAC    00002449
            01 01CAD    6D000022 A
     4970   01 01CAE    328C0007 A            LW,8     7,LINK
     4971   01 01CAF    55802C48              STH,8    MMCMSG9+14        STORE EXP DATA
     4972   01 01CB0    6D000032 A            #BTECON  WLREAD            CONVERT ACTUAL DATA
            01 01CB1    EA6003C4
            01 01CB2    00002448
            01 01CB3    6D000022 A
     4973   01 01CB4    328C0007 A            LW,8     7,LINK
     4974   01 01CB5    55802C4B              STH,8    MMCMSG9+17        STORE ACTUAL DATA
     4975   01 01CB6    EA6003C5              #PRINT   MMCMSG9
            01 01CB7    EA6003CD
            01 01CB8    C000B0E8 A
            01 01CB9    EA6003C6
     4976   01 01CBA    68001D8F              B        COMMON
     4977                            *
     4978                            *
     4979                            ****     CHECK THAT IF MMC INDIRECTLY ADDRESSED AND
     4980                            ****     INDIRECT REFERENCE ADDRESS IS NON-EXISTANT
     4981                            ****     THEN A TRAP TO X'40' SHOULD NOT OCCUR .
     4982                            *
     4983         01 01CBB           TST48MMC EQU      %
     4984   01 01CBB    3280246C              LW,8     LSTADRS           SKIP THIS TEST IF
     4985   01 01CBC    31802482              CW,8     X1FFFF            MEM SIZE G.E. TO 128K
     4986   01 01CBD    681010B0              BGE      TST:CONT                                          *A01
     4987   01 01CBE    6AF01DBB              BAL,R15  STSMMC            STATUS
     4988   01 01CBF    6AF01EEA              BAL,R15  ALLWLREG
     4989         01 01CC0           LOPT48   EQU      %
     4990   01 01CC0    22900000 A            LI,9     0
     4991   01 01CC1    359022E9              STW,9    ERRFLAG           RESET FLAG
     4992                            *                                   MMC WITH IND REF ADDR NON-EXIST.
     4993   01 01CC2    EF63FFFF A   NONXMMC  DATA     X'EF63FFFF'       NO TRAP TO X'40';NO EFECT ON MMC*A03
     4994   01 01CC3    70200392              LC       #SENSE
     4995   01 01CC4    69801CC0              BCS,8    LOPT48            SHORT LOOP IS SS1 SET
     4996   01 01CC5    328022E9              LW,8     ERRFLAG           IF FLAG NOT SET
     4997   01 01CC6    68301CC9              BEZ      SW2               NO TRAP TO X'40';TEST OK.       *A03
     4998   01 01CC7    6AF01CCF              BAL,R15  ERMMC9            OTHERWISE REPORT ERROR
     4999   01 01CC8    68001CC0              B        LOPT48            RETURN HERE IF SS1=1;SS3=0      *A03
     5000         01 01CC9           SW2      EQU      %
     5001   01 01CC9    70200392              LC       #SENSE
     5002   01 01CCA    69401CC0              BCS,4    LOPT48
     5003   01 01CCB    680010B0              B        TST:CONT          NEXT TEST                       *A01
     5004                            *
     5005                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     5006                            ****     FOR THIS TEST
     5007                            *
     5008         01 01CCC           T48ERTRP EQU      %
     5009   01 01CCC    22800001 A            LI,8     1
     5010   01 01CCD    358022E9              STW,8    ERRFLAG           SET ERROR FLAG
     5011   01 01CCE    68001CC3              B        NONXMMC+1                                         *A03
     5012                            *
     5013                            *
     5014         01 01CCF           ERMMC9   EQU      %
     5015   01 01CCF    6AD01AD5              BAL,R13  ERRMMC
     5016   01 01CD0    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     5017   01 01CD1    6D000032 A            #HTECON  NONXMMC           CONVERT TEST MMC INST           *A03
            01 01CD2    EA6003C3
            01 01CD3    00001CC2
            01 01CD4    6D000022 A
     5018   01 01CD5    2A8C0000 A            LM,8     0,LINK
     5019   01 01CD6    02200020 A            LCI      2
     5020   01 01CD7    2B802C54              STM,8    MMCMG10+8         STORE MMC INST
     5021   01 01CD8    EA6003C5              #PRINT   MMCMG10,C1        PRINT MESSAGES
            01 01CD9    EA6003CD
            01 01CDA    C100B130 A
            01 01CDB    EA6003C6
     5022   01 01CDC    6AB01E1D              BAL,11   TSTINFO5          OUTPUT TRAP INFO                *A03
     5023   01 01CDD    68001D8F              B        COMMON
     5024                            *
     5025                            *
     5026                            *
     5027                            ****     CHECK THAT WHEN A MMC INST IS TRAPPED
     5028                            ****     (PARITY ERROR IN WL  CONTROL IMAGE WORD)
     5029                            ****     THE FOLLOWING THINGS ARE CORRECT
     5030                            ****     1.  TRAPPED ADDRESS POINTS TO THE MMC INST
     5031                            ****     2.  PSD BIT 60 IS SET.
     5032                            *
     5033         01 01CDE           TST49MMC EQU      %
     5034   01 01CDE    6AF01DBB              BAL,R15  STSMMC
     5035   01 01CDF    3280225E              LW,8     XPSD4C            LOAD NEW XPSD ;MEM PARITY TRAP
     5036   01 01CE0    3580004C A            STW,8    X'4C'
     5037         01 01CE1           LOPT49   EQU      %
     5038   01 01CE1    3280248E              LW,8     X1234567          LOAD DATA IN WL  IMAGE AREA
     5039   01 01CE2    35802427              STW,8    BADPARTY+1        WHERE BAD PARITY TO BE STORED   *A02
     5040   01 01CE3    02200020 A            LCI      2
     5041   01 01CE4    2D802427              LMS,R8   BADPARTY+1        SET BAD PARITY                  *A02
     5042   01 01CE5    22602426              LI,R6    BADPARTY                                          *A02
     5043   01 01CE6    3270248B              LW,R7    Y1
     5044         01 01CE7           MMCTRAP  EQU      %
     5045   01 01CE7    6F620000 A            MMC,R6   1                 LOAD WL  REG;MEM PARITY TRAP
     5046   01 01CE8    70200392              LC       #SENSE
     5047   01 01CE9    69801CE1              BCS,8    LOPT49            BRANCH FOR SHORT LOOP
     5048   01 01CEA    32801CFE              LW,8     MEMPAR
     5049   01 01CEB    4B802482              AND,8    X1FFFF            SAVE TRAPPED ADDR
     5050   01 01CEC    358022C6              STW,8    WORK5
     5051   01 01CED    32801CFF              LW,8     MEMPAR+1
     5052   01 01CEE    4B802480              AND,8    XF
     5053   01 01CEF    358022C7              STW,8    WORK6             SAVE PSD BIT 60 AT TRAP
     5054   01 01CF0    328022C6              LW,8     WORK5             CHECK TRAPPED ADDRESS
     5055   01 01CF1    318022C3              CW,8     EXPADR
     5056   01 01CF2    68301CF6              BE       TOK23             BRANCH IF OK                    *A03
     5057   01 01CF3    6AF01D09     ER13     BAL,R15  ERMMC10           REPORT ERROR                    *A03
     5058   01 01CF4    68001CE1              B        LOPT49            RETURN HERE IF SS1=1;SS3=0      *A03
     5059   01 01CF5    68001CF9              B        LOOPSS2
     5060                            *
     5061   01 01CF6    328022C7     TOK23    LW,8     WORK6             CHECK PSD BIT 60                *A03
     5062   01 01CF7    21800008 A            CI,8     8
     5063   01 01CF8    69301CF3              BNE      ER13              ERROR IF NOT SET                *A03
     5064         01 01CF9           LOOPSS2  EQU      %
     5065   01 01CF9    70200392              LC       #SENSE
     5066   01 01CFA    69401CE1              BCS,4    LOPT49            BRANCH FOR LONG LOOP
     5067   01 01CFB    32802267              LW,8     GUID:4C           RESTORE GUIDE'S XPSD AT X'4C'   *A02
     5068   01 01CFC    3580004C A            STW,8    X'4C'
     5069   01 01CFD    680010B0              B        TST:CONT          NEXT TEST                       *A01
     5070                            *
     5071                            ****     ENTER HERE ON A MEMORY PARITY ERROR
     5072                            ****     FOR THIS TEST.
     5073                            *
     5074                                     BOUND    8
     5075   01 01CFE    00000000 A   MEMPAR   DATA     0
     5076   01 01CFF    00000000 A            DATA     0
     5077   01 01D00    00001D02              DATA     %+2
     5078   01 01D01    07000000 A            DATA     X'07000000'                                       *A03
     5079   01 01D02    3280248E              LW,8     X1234567
     5080   01 01D03    35802427              STW,8    BADPARTY+1        RESTORE CORRECT PARITY          *A02
     5081   01 01D04    022000C0 A            LCI      12                SET CC TO READ STATUS WORD 0
     5082   01 01D05    2D802427              LMS,R8   BADPARTY+1        AND CLEAR ALL STAT. BITS;(MFI)  *A02
     5083   01 01D06    22800400 A            LI,8     X'400'            ARM    MFI                      *A02
     5084   01 01D07    6D801200 A            WD,8     X'1200'                                           *A02
     5085   01 01D08    0E101CFE              LPSD,1   MEMPAR            EXIT
     5086                            *
     5087                            *
     5088         01 01D09           ERMMC10  EQU      %
     5089   01 01D09    6AD01AD5              BAL,R13  ERRMMC
     5090   01 01D0A    68001D95              B        SUPRESP           RETURN HERE IF SS4 SET          *A03
     5091   01 01D0B    6D000032 A            #HTECON  EXPADR            CONVERT EXPECTED TRAP ADDR
            01 01D0C    EA6003C3
            01 01D0D    000022C3
            01 01D0E    6D000022 A
     5092   01 01D0F    328C0001 A            LW,8     1,LINK
     5093   01 01D10    35802C76              STW,8    MMCM12+6
     5094   01 01D11    6D000032 A            #HTECON  WORK5             CONVERT ACT TRAP ADDR
            01 01D12    EA6003C3
            01 01D13    000022C6
            01 01D14    6D000022 A
     5095   01 01D15    328C0001 A            LW,8     1,LINK
     5096   01 01D16    35802C82              STW,8    MMCM13+6
     5097   01 01D17    328022C7              LW,8     WORK6             LOAD PSD 60
     5098   01 01D18    2580007D A            SLS,8    -3
     5099   01 01D19    4980248F              OR,8     XF0
     5100   01 01D1A    75802C87              STB,8    MMCM13+11
     5101   01 01D1B    EA6003C5              #PRINT   MMCMSG11,C1
            01 01D1C    EA6003CD
            01 01D1D    C100B178 A
            01 01D1E    EA6003C6
     5102   01 01D1F    EA6003C5              #PRINT   MMCM12,C1
            01 01D20    EA6003CD
            01 01D21    C100B1C0 A
            01 01D22    EA6003C6
     5103   01 01D23    EA6003C5              #PRINT   MMCM13
            01 01D24    EA6003CD
            01 01D25    C000B1F0 A
            01 01D26    EA6003C6
     5104   01 01D27    68001D8F              B        COMMON            EXIT
     5105                            *
     5106                            *
     5107                            *
     5108                            ***************************************************************
     5109                            ***********************************************************
     5110                            ****     ENTER HERE AFTER EVERY PASS OF THE PROGRAM.
     5111                            ***********************************************************
     5112                            ***********************************************************
     5113                            *
     5114         01 01D28           FINISH   EQU      %
     5115   01 01D28    EA6003C5              BAL,LINK  *#DISUSER%       DISABLE USER                    *A02
     5116   01 01D29    328022D4              LW,8     PASS#
     5117   01 01D2A    21800001 A            CI,8     1                 IF PASS#=1
     5118   01 01D2B    68301D4C              BE       FIRSTPAS          OUTPUT STATUS REPORT
     5119   01 01D2C    318022CA              CW,8     NCOUNT            IF PASS# EQUALS A SPECIFIC VALUE
     5120   01 01D2D    69301D44              BNE      CYCLE             OUTPUT STATUS REPORT
     5121   01 01D2E    6A601D51              BAL,LINK   STATMSGS        FORMAT AND OUTPUT STATUS REPORT
     5122   01 01D2F    32802467              LW,8     SICOUNT
     5123         01 01D30           CHKCM    EQU      %                 CHK IF CM TO BE ALTERED         *A02
     5124   01 01D30    668022CA              AWM,8    NCOUNT
     5125   01 01D31    32802454              LW,8     CMFIXED           IF CM WAS SPECIFIED TO BE FIXED
     5126   01 01D32    69301D44              BNEZ     CYCLE             BY THE USER CYCLE ON PROGRAM    *A02
     5127   01 01D33    6C800045 A            RD,R8    X'45'             READ VM
     5128   01 01D34    31802490              CW,8     Y001              IF SET VOLTAGES NOT MARGINED    *A02
     5129   01 01D35    69401D37              BCS,4    CHNGCM            CHANGE CLOCK MARGIN             *A02
     5130   01 01D36    68001D44              B        CYCLE             EXIT                            *A02
     5131                            *
     5132         01 01D37           CHNGCM   EQU      %
     5133   01 01D37    2580020A A            SCS,R8   10                SET CM BITS 30 AND 31
     5134   01 01D38    35800009 A            STW,R8   R9                SAVE STATUS
     5135   01 01D39    4B802472              AND,8    X03
     5136   01 01D3A    21800002 A            CI,8     2                 IF CM ALREADY EQUALS2(LOW)
     5137   01 01D3B    68301D4A              BE       LOWCM             CHANGE CM TO 0(NORMAL)
     5138   01 01D3C    20900001 A            AI,9     1                 OTHERWISE INCREMENT CM BITS BY 1
     5139         01 01D3D           SHIFTCM  EQU      %
     5140   01 01D3D    32800009 A            LW,8     9
     5141   01 01D3E    4B802472              AND,8    X03
     5142   01 01D3F    4980248F              OR,8     XF0
     5143   01 01D40    22100003 A            LI,X1    3
     5144   01 01D41    75822D11              STB,8    PLINE#J+5,X1      STORE NEW CM VALUE
     5145   01 01D42    25900276 A            SCS,9    -10               SET CM BITS IN POSITION 8 AND 9
     5146   01 01D43    6D900045 A            WD,9     X'45'             WRITE CM
     5147         01 01D44           CYCLE    EQU      %
     5148   01 01D44    331022D4              MTW,1    PASS#             UPDATE PASS COUNT
     5149   01 01D45    328003F0              LW,8     TST:NUM                                           *A01
     5150   01 01D46    208FFFFF A            AI,8     -1                                                *A01
     5151   01 01D47    358003F2              STW,8    TCR:NUM                                           *A01
     5152   01 01D48    EA6003C6              BAL,LINK *#ENUSER%         ENABLE USER                     *A02
     5153   01 01D49    680010B0              B        TST:CONT                                          *A01
     5154                            *
     5155         01 01D4A           LOWCM    EQU      %
     5156   01 01D4A    209FFFFE A            AI,9     -2                SET CM TO 0 (NORMAL)
     5157   01 01D4B    68001D3D              B        SHIFTCM
     5158                            *
     5159         01 01D4C           FIRSTPAS EQU      %                 FIRST PASS
     5160   01 01D4C    6A601D51              BAL,LINK STATMSGS          FORMAT AND PRINT STATUS REPORT
     5161   01 01D4D    32802467              LW,8     SICOUNT                                           *A02
     5162   01 01D4E    21800001 A            CI,8     1                 IF STATUS INTERVAL IS 1
     5163   01 01D4F    68301D30              BE       CHKCM             CHECK IF CM ARE TO BE CHANGED   *A02
     5164   01 01D50    68001D44              B        CYCLE             CYCLE ON PROGRAM
     5165                            *
     5166                            **********************************************************
     5167                            ****     THIS ROUTINE FORMATS AND OUTPUTS THE
     5168                            ****     STATUS REPORT.ALSO,IT SETS UP THE
     5169                            ****     CONTROL WORD FOR STATUS HEADING
     5170                            ****     EXPLANATION MESSAGES.
     5171                            **********************************************************
     5172                            *
     5173         01 01D51           STATMSGS EQU      %
     5174   01 01D51    356022CC              STW,LINK SAVELINK          SAVE RETURN ADDRESS
     5175   01 01D52    32802F1B              LW,8     AMPER%EXPL        SET UP CONTROL WORD FOR STATUS
     5176   01 01D53    B58003CE              STW,8    *#ERRTEXT%        HEADING EXPLAINATION MESSAGES
     5177   01 01D54    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     5178   01 01D55    55802E03              STH,8    STMSG1+1          STORE TEST # IN PRINT BUFFER
     5179   01 01D56    328022CD              LW,8     ERCONTAD          SET UP INITIAL ADRES,CONTENTS OF
     5180   01 01D57    35801D5A              STW,8    HTECON+1          WHICH TO BE CONVERTED TO EBCIDIC
     5181   01 01D58    227FFFF2 A            LI,X7    -14               SET UP INDEX
     5182   01 01D59    EA6003C3     HTECON   BAL,LINK *#HTE%            CONVERT TO EBCIDIC
     5183   01 01D5A    000022CE              GEN,10,22  0,ECLRA
     5184   01 01D5B    2A8C0000 A            LM,8     0,LINK
     5185   01 01D5C    217FFFFE A            CI,7     -2                IF PASS COUNT CONVERTED
     5186   01 01D5D    68301D63              BE       GETMARG           GET MARGINS
     5187   01 01D5E    359E2E14              STW,9    STMSG1+18,X7      STORE CONVERTED VALUE
     5188   01 01D5F    22800001 A            LI,8     1
     5189   01 01D60    66801D5A              AWM,8    HTECON+1          INCREMENT ADDRESS
     5190   01 01D61    20700001 A            AI,X7    1                 INCREMENT INDEX BY 2
     5191   01 01D62    65701D59              BIR,X7   HTECON            AND GET NEXT VALUE
     5192         01 01D63           GETMARG  EQU      %
     5193   01 01D63    55902E12              STH,9    STMSG1+16         STORE LEAST SIG. 2 DIGITS OF PAS#
     5194   01 01D64    25900070 A            SLS,9    -16
     5195   01 01D65    22100001 A            LI,X1    1                 SET INDEX
     5196   01 01D66    55922E11              STH,9    STMSG1+15,X1      STORE 2 MOST SIG. DIGITS OF PAS#
     5197   01 01D67    229000D5 A            LI,9     X'D5'             DEFINE VM='N'(X'D5')
     5198   01 01D68    6C800045 A            RD,8     X'45'             READ CLOCK MARGINS
     5199   01 01D69    31802490              CW,8     Y001              IF BIT 11 SET VM NORMAL         *A02
     5200   01 01D6A    69401D6C              BCS,4    %+2                                               *A02
     5201   01 01D6B    229000D4 A            LI,9     X'D4'             DEFINE VM='M'(X'D4')
     5202   01 01D6C    22100003 A            LI,X1    3                 SET INDEX
     5203   01 01D6D    75922E13              STB,9    STMSG1+17,X1
     5204   01 01D6E    2580020A A            SCS,8    10
     5205   01 01D6F    4B802472              AND,8    X03
     5206   01 01D70    358022CB              STW,8    CLMARG            SAVE CM
     5207   01 01D71    EA6003C3              BAL,LINK *#HTE%            CONVERT CLOCK MARGIN
     5208   01 01D72    000022CB              GEN,10,22  0,CLMARG
     5209   01 01D73    328C0001 A            LW,8     1,LINK
     5210   01 01D74    75802E13              STB,8    STMSG1+17
     5211   01 01D75    22802F00              LI,8     WA(READSTAT+1)                                    *A01
     5212   01 01D76    318022CC              CW,8     SAVELINK          '&' ENTRY                       *A01
     5213   01 01D77    69301D81              BNE      LPSTAT            NO                              *A01
     5214   01 01D78    EA6003C5              #TYPE    STHD1             TYPE STATUS MESSAGE HEADING
            01 01D79    EA6003CC
            01 01D7A    0000B7BC A
            01 01D7B    EA6003C6
     5215   01 01D7C    EA6003C5              #TYPE    STMSG1            TYPE STATUS MESSAGE
            01 01D7D    EA6003CC
            01 01D7E    0000B808 A
            01 01D7F    EA6003C6
     5216   01 01D80    E80022CC              B        *SAVELINK         EXIT
     5217         01 01D81           LPSTAT   EQU      %
     5218   01 01D81    32800393              LW,8     #HDRFLG           IF FLAG = ADDR OF STATUS HDG    *A02
     5219   01 01D82    31802279              CW,8     ADRSTHD           SKIP HEADING OUTPUT             *A02
     5220   01 01D83    68301D88              BE       MSGSTAT                                           *A02
     5221   01 01D84    EA6003C5              #PRINT   STHD1,C1                                          *A02
            01 01D85    EA6003CD
            01 01D86    C100B7BC A
            01 01D87    EA6003C6
     5222   01 01D88    EA6003C5     MSGSTAT  #PRINT   STMSG1                                            *A01
            01 01D89    EA6003CD
            01 01D8A    C000B808 A
            01 01D8B    EA6003C6
     5223   01 01D8C    32802279              LW,8     ADRSTHD           LOAD #HDRFLG                    *A02
     5224   01 01D8D    35800393              STW,8    #HDRFLG                                           *A02
     5225   01 01D8E    E80022CC              B        *SAVELINK                                         *A01
     5226                            *
     5227                            ***********************************************
     5228                            ****     THIS THE ENTRY FROM ERROT ROUTINE IF SS4 IS RESET.
     5229                            ****     ENTER HERE TO SET THE HEADING FLAG
     5230                            ****     AND THEN GO TO 'SUPRESP'.
     5231                            ***********************************************
     5232                            *
     5233         01 01D8F           COMMON   EQU      %
     5234   01 01D8F    328003F2              LW,8     TCR:NUM           SET HEADING FLAG                *A02
     5235   01 01D90    35800393              STW,8    #HDRFLG
     5236   01 01D91    702003AC              LC       #BRKOUT
     5237   01 01D92    69301D94              BCS,3    %+2               SKIP IF NO BREAK KEY
     5238   01 01D93    8F9003CA              XPSD,9   *#RUNADDR%        GOTO GUIDE IDLE
     5239                            *                                   THIS IS DONE TO GET CONTROL
     5240                            *                                   BACK IF SS 2 &3 SET AND BREAK
     5241                            *                                   KEY IS HIT ON OOTPUTTING ERROR
     5242   01 01D94    68001D95              B        SUPRESP           EXIT
     5243                            *
     5244                            ***********************************************
     5245                            ****     ENTER HERE IF ERROR PRINTOUT IS
     5246                            ****     INHIBITED (SS4 SET ) OR AFTER
     5247                            ****     THE ERROR MESSAGES HAVE BEEN
     5248                            ****     PRINTED AND HEADING FLAG HAS
     5249                            ****     BEEN SET IN 'COMMON'.
     5250                            ****     THIS IS A COMMON ENTRY POINT
     5251                            ****     FROM ALL ERROR ROUTINES.EXIT
     5252                            ****     FROM THIS ROUTINE IS TO THE
     5253                            ****     ADDRESS STORED IN R15.
     5254                            ***********************************************
     5255                            *
     5256         01 01D95           SUPRESP  EQU      %
     5257   01 01D95    70200392              LC       #SENSE            CHECK FOR SS3.IF SET            *A01
     5258   01 01D96    69201DA0              BCS,2    INCRET            INHIBIT HALT ON ERROR           *A03
     5259   01 01D97    6AE01DA2              BAL,R14  CONTEST#          CONVERT TEST #
     5260   01 01D98    55802CB2              STH,8    HALTONER+7
     5261   01 01D99    EA6003C5              #TYPE    HALTONER          TYPE HALLT ON ERROR MESSAGE
            01 01D9A    EA6003CC
            01 01D9B    0000B2AC A
            01 01D9C    EA6003C6
     5262   01 01D9D    8F9003CA              XPSD,9   *#RUNADDR%        HALT ON ERROR
     5263   01 01D9E    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     5264   01 01D9F    E980000F A            BCS,8    *R15              BRANCH FOR SHORT LOOP           *A03
     5265   01 01DA0    3310000F A   INCRET   MTW,1    R15               INCR RETURN ADDR                *A03
     5266   01 01DA1    E800000F A            B        *R15              EXIT
     5267                            *
     5268                            ***************************************************
     5269                            ****     THIS ROUTINE CONVERTS TEST NUMBER TO EBCIDIC               *A02
     5270                            ****     AND LEAVES RESULT IN R8.
     5271                            ***************************************************
     5272                            *
     5273         01 01DA2           CONTEST# EQU      %
     5274   01 01DA2    6D000032 A            #HTECON  TCR:NUM           CONVERT TO EBCIDIC              *A01
            01 01DA3    EA6003C3
            01 01DA4    000003F2
            01 01DA5    6D000022 A
     5275   01 01DA6    328C0001 A            LW,8     1,LINK            LOAD RESULT IN R8
     5276   01 01DA7    E800000E A            B        *R14              EXIT
     5277                            *
     5278                            **************************************************************
     5279                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     5280                            ****     BUFFER.ALSO,IT COMPUTES THE EXPECTED REAL ADDRESS
     5281                            ****     (FOR WORD ALIGNMENT).
     5282                            ************************************************************
     5283                            *
     5284         01 01DA8           STSLRA   EQU      %
     5285   01 01DA8    12802244              LD,8     LRA
     5286   01 01DA9    15802E04              STD,8    STMSG1+2          STORE TEST TYPE
     5287   01 01DAA    E800000F A            B        *R15              RETURN
     5288                            *
     5289                            **********************************************************
     5290                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     5291                            ****     BUFFER.
     5292                            **********************************************************
     5293                            *
     5294         01 01DAB           STSMAP   EQU      %
     5295   01 01DAB    12802246              LD,8     MAP
     5296   01 01DAC    15802E04              STD,8    STMSG1+2          STORE TEST TYPE
     5297   01 01DAD    E800000F A            B        *R15              RETURN
     5298                            *
     5299                            *
     5300                            **********************************************************
     5301                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     5302                            ****     BUFFER.
     5303                            **********************************************************
     5304                            *
     5305         01 01DAE           STSAC    EQU      %
     5306   01 01DAE    12802248              LD,8     AC
     5307   01 01DAF    15802E04              STD,8    STMSG1+2          STORE TEST TYPE
     5308   01 01DB0    E800000F A            B        *R15              RETURN
     5309                            *
     5310                            *
     5311         01 01DB1           INSTADR  EQU      %
     5312   01 01DB1    3280246A              LW,8     TESTPAGE
     5313   01 01DB2    25800009 A            SLS,8    9
     5314   01 01DB3    208001FE A            AI,8     X'1FE'
     5315   01 01DB4    E800000B A            B        *R11
     5316                            *
     5317                            *
     5318                            **********************************************************
     5319                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     5320                            ****     BUFFER.
     5321                            **********************************************************
     5322                            *
     5323         01 01DB5           STSMM    EQU      %
     5324   01 01DB5    1280224A              LD,8     MMT
     5325   01 01DB6    15802E04              STD,8    STMSG1+2          STORE TEST TYPE
     5326   01 01DB7    E800000F A            B        *R15              RETURN
     5327                            *
     5328                            *
     5329                            **********************************************************
     5330                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     5331                            ****     BUFFER.
     5332                            **********************************************************
     5333                            *
     5334         01 01DB8           STSWL    EQU      %
     5335   01 01DB8    1280224C              LD,8     WL
     5336   01 01DB9    15802E04              STD,8    STMSG1+2          STORE TEST TYPE
     5337   01 01DBA    E800000F A            B        *R15              RETURN
     5338                            *
     5339                            *
     5340                            **************************************************************
     5341                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     5342                            ****     BUFFER.
     5343                            **************************************************************
     5344                            *
     5345         01 01DBB           STSMMC   EQU      %
     5346   01 01DBB    1280224E              LD,8     MMC
     5347   01 01DBC    15802E04              STD,8    STMSG1+2          STORE TEST TYPE
     5348   01 01DBD    E800000F A            B        *R15              RETURN
     5349                            *
     5350                            ***********************************************************         *A04
     5351                            ****     THIS ROUTINE CONVERTS THE TEST INSTRUCTION                 *A04
     5352                            ****     AND CONDITION CODE 1 & 2 (PRIOR TO LRA)                    *A04
     5353                            ****     TO EBCIDIC,FORMATS THE MESSAGE AND                         *A04
     5354                            ****     THEN PRINTS THE MESSAGE.                                   *A04
     5355                            ***********************************************************         *A04
     5356                            *                                                                   *A04
     5357         01 01DBE           TSTINFOX EQU      %                                                 *A04
     5358   01 01DBE    6D000032 A            #HTECON  TADDR             CONVERT LRA INST ADDR           *A04
            01 01DBF    EA6003C3
            01 01DC0    000022D9
            01 01DC1    6D000022 A
     5359   01 01DC2    328C0001 A            LW,8     1,LINK                                            *A04
     5360   01 01DC3    35802992              STW,8    LRAMSG1+13        STORE ADDR                      *A04
     5361   01 01DC4    6D000032 A            #HTECON  TINST             CONVERT TEST INST.              *A04
            01 01DC5    EA6003C3
            01 01DC6    000022D8
            01 01DC7    6D000022 A
     5362   01 01DC8    2A8C0000 A            LM,R8    0,LINK                                            *A04
     5363   01 01DC9    02200020 A            LCI      2                                                 *A04
     5364   01 01DCA    2B80298F              STM,R8   LRAMSG1+10        STORE INST.                     *A04
     5365   01 01DCB    6D000032 A            #BTECON  C1C2              CONVERT C1C2 BEFORE LRA         *A04
            01 01DCC    EA6003C4
            01 01DCD    00002281
            01 01DCE    6D000022 A
     5366   01 01DCF    328C0000 A            LW,8     0,LINK                                            *A04
     5367   01 01DD0    25800210 A            SCS,8    16                                                *A04
     5368   01 01DD1    55802988              STH,R8   LRAMSG1+3         STORE CC1 AND CC2               *A04
     5369   01 01DD2    EA6003C5              #PRINT   LRAMSG1,C1        PRINT MESSAGE                   *A04
            01 01DD3    EA6003CD
            01 01DD4    C100A614 A
            01 01DD5    EA6003C6
     5370   01 01DD6    E800000B A            B        *R11              EXIT                            *A04
     5371                            *
     5372                            ***********************************************************
     5373                            ****     THIS ROUTINE CONVERTS THE TEST INSTRUCTION
     5374                            ****     TEST INSTRUCTION LOCATION AND THE TEST PAGE
     5375                            ****     AC BITS TO EBCIDIC AND STORES THE VALUES
     5376                            ****     IN ERROR MESSAGE BUFFER 'MAPMSG2'.IT
     5377                            ****     THEN PRINTS THE ERROR MESSAGE.
     5378                            ***********************************************************
     5379                            *
     5380         01 01DD7           TSTINFO2 EQU      %
     5381   01 01DD7    6D000032 A            #HTECON  TINST             CONVERT TEST INST
            01 01DD8    EA6003C3
            01 01DD9    000022D8
            01 01DDA    6D000022 A
     5382   01 01DDB    2A8C0000 A            LM,8     0,LINK
     5383   01 01DDC    02200020 A            LCI      2
     5384   01 01DDD    2B8028DB              STM,8    MAPMSG2+4         STORE INST.
     5385   01 01DDE    6D000032 A            #HTECON  TADDR             CONVERT TEST INST LOCATION
            01 01DDF    EA6003C3
            01 01DE0    000022D9
            01 01DE1    6D000022 A
     5386   01 01DE2    2A8C0000 A            LM,8     0,LINK
     5387   01 01DE3    4B802475              AND,8    Y4040             INSERT TWO BLANKS
     5388   01 01DE4    02200020 A            LCI      2
     5389   01 01DE5    2B8028DE              STM,8    MAPMSG2+7         STORE TEST INST LOCATION
     5390   01 01DE6    6D000032 A            #HTECON  TESTPAGE          CONVERT TEST PAGE ADDRESS
            01 01DE7    EA6003C3
            01 01DE8    0000246A
            01 01DE9    6D000022 A
     5391   01 01DEA    32AC0001 A            LW,10    1,LINK
     5392   01 01DEB    55A028E4              STH,10   MAPMSG2+13        STORE ADDR
     5393   01 01DEC    6D000032 A            #HTECON  MAPBITS           CONVERT MAP BITS FOR TEST PAGE
            01 01DED    EA6003C3
            01 01DEE    000022F1
            01 01DEF    6D000022 A
     5394   01 01DF0    32AC0001 A            LW,10    1,LINK
     5395   01 01DF1    35A028E5              STW,10   MAPMSG2+14        STORE MAP BITS
     5396   01 01DF2    6D000032 A            #BTECON  TPAC              CONVERT TEST PAGE AC BITS
            01 01DF3    EA6003C4
            01 01DF4    000022A2
            01 01DF5    6D000022 A
     5397   01 01DF6    32AC0007 A            LW,10    7,LINK
     5398   01 01DF7    4BA02475              AND,10   Y4040
     5399   01 01DF8    25A00210 A            SCS,10   16
     5400   01 01DF9    35A028E8              STW,10   MAPMSG2+17
     5401   01 01DFA    EA6003C5              #PRINT   MAPMSG2,C1                                        *A03
            01 01DFB    EA6003CD
            01 01DFC    C100A35C A
            01 01DFD    EA6003C6
     5402   01 01DFE    E800000B A            B        *R11              EXIT
     5403                            *
     5404                            ***********************************************************
     5405                            ****     THIS ROUTINE INTERPRETS THE CORRECT TEST
     5406                            ****     INSTRUCTION AND TEST INST. LOCATION.
     5407                            ****     IT THEN USES 'TSTINFO2' TO CONVERT THE ABOVE VALUES
     5408                            ****     AND PRINT THEM.
     5409                            ***********************************************************
     5410                            *
     5411         01 01DFF           TSTINFO3 EQU      %
     5412   01 01DFF    35B022A4              STW,11   SAVEADDR          SAVE RETURN ADDRESS
     5413   01 01E00    32202449              LW,2     ACLOAD
     5414   01 01E01    48202472              EOR,2    X03               INTERPRET TEST INST NUMBER
     5415   01 01E02    32841496              LW,8     ACOPT,X2          LOAD TEST INST
     5416   01 01E03    358022D8              STW,8    TINST             STORE TEST INST
     5417   01 01E04    328022F0              LW,8     MAPEDADR
     5418   01 01E05    30800002 A            AW,8     X2
     5419   01 01E06    358022D9              STW,8    TADDR             STORE TEST INST ADDR
     5420   01 01E07    6AB01DD7              BAL,R11  TSTINFO2
     5421   01 01E08    E80022A4              B        *SAVEADDR         EXIT
     5422                            *
     5423                            ***********************************************************
     5424                            ****     THIS ROUTINE  CONVERTS THE TEST INSTRUCTION AND
     5425                            ****     TEST INSTRUCTION LOCATION TO EBCIDIC AND STORES
     5426                            ****     THE VALUES IN ERROR MESSAGE BUFFER 'PLMSG5'.IT
     5427                            ****     THEN PRINTS THE ERROR MESSAGE.
     5428                            ***********************************************************
     5429                            *
     5430                            *
     5431         01 01E09           TSTINFO4 EQU      %
     5432   01 01E09    6D000032 A            #HTECON  TINST             CONVERT TEST INST
            01 01E0A    EA6003C3
            01 01E0B    000022D8
            01 01E0C    6D000022 A
     5433   01 01E0D    2A8C0000 A            LM,8     0,LINK
     5434   01 01E0E    02200020 A            LCI      2
     5435   01 01E0F    2B802A39              STM,8    PLMSG5+4          STORE INST.
     5436   01 01E10    6D000032 A            #HTECON  TADDR             CONVERT TEST INST LOCATION
            01 01E11    EA6003C3
            01 01E12    000022D9
            01 01E13    6D000022 A
     5437   01 01E14    2A8C0000 A            LM,8     0,LINK
     5438   01 01E15    4B802475              AND,8    Y4040             INSERT TWO BLANKS
     5439   01 01E16    02200020 A            LCI      2
     5440   01 01E17    2B802A3C              STM,8    PLMSG5+7          STORE TEST INST LOCATION
     5441   01 01E18    EA6003C5              #PRINT   PLMSG5,C1         PRINT ERROR MSG                 *A03
            01 01E19    EA6003CD
            01 01E1A    C100A8D4 A
            01 01E1B    EA6003C6
     5442   01 01E1C    E800000B A            B        *R11              EXIT
     5443                            *
     5444                            ******************************************************
     5445                            ****     THIS ROUTINE GETS THE TRAP INFORMATION
     5446                            ****     AND OUTPUTS IT.
     5447                            ******************************************************
     5448         01 01E1D           TSTINFO5 EQU      %                                                 *A03
     5449   01 01E1D    35B0226F              STW,11   RETURN5           SAVE RETURN ADDR                *A03
     5450   01 01E1E    128021AC              LD,8     TRAP40                                            *A03
     5451   01 01E1F    1580221E              STD,8    UNKNPSD                                           *A03
     5452   01 01E20    6AB021E7              BAL,R11  TRAPPSD           GET TRAP INFO AND               *A03
     5453   01 01E21    EA6003C5              #PRINT   UNKNTRP1          PRINT INFO                      *A03
            01 01E22    EA6003CD
            01 01E23    C000B548 A
            01 01E24    EA6003C6
     5454   01 01E25    E800226F              B        *RETURN5          EXIT                            *A03
     5455                            *
     5456                            ***********************************************************
     5457                            ****     THIS ROUTINE CONVERTS THE TINST,TADDR WLTP AND TPWL        *A03
     5458                            ****     AND THEN OUTPUTS THE FORMATTED MESSAGE.                    *A03
     5459                            *                                                                   *A03
     5460         01 01E26           TSTINFO6 EQU      %                                                 *A03
     5461   01 01E26    35B02270              STW,11   RETURN6           SAVE RETURN ADDR                *A03
     5462   01 01E27    6D000032 A            #HTECON  TINST             CONVERT TEST INST               *A03
            01 01E28    EA6003C3
            01 01E29    000022D8
            01 01E2A    6D000022 A
     5463   01 01E2B    2A8C0000 A            LM,8     0,LINK                                            *A03
     5464   01 01E2C    02200020 A            LCI      2                                                 *A03
     5465   01 01E2D    2B802A18              STM,8    PLMSG3+4          STORE TEST INST                 *A03
     5466   01 01E2E    6D000032 A            #HTECON  TADDR             CONVERT TEST INST LOCATION      *A03
            01 01E2F    EA6003C3
            01 01E30    000022D9
            01 01E31    6D000022 A
     5467   01 01E32    2A8C0000 A            LM,8     0,LINK                                            *A03
     5468   01 01E33    4B802475              AND,8    Y4040                                             *A03
     5469   01 01E34    02200020 A            LCI      2                                                 *A03
     5470   01 01E35    2B802A1B              STM,8    PLMSG3+7          STORE TINST ADDR                *A03
     5471   01 01E36    6D000032 A            #HTECON  WLTP              CONVERT WL TEST PAGE #          *A03
            01 01E37    EA6003C3
            01 01E38    000022A3
            01 01E39    6D000022 A
     5472   01 01E3A    328C0001 A            LW,8     1,LINK                                            *A03
     5473   01 01E3B    55802A21              STH,8    PLMSG3+13         STORE PAGE #                    *A03
     5474   01 01E3C    6D000032 A            #BTECON  TPWL              CONVERT WL BITS                 *A03
            01 01E3D    EA6003C4
            01 01E3E    000022A2
            01 01E3F    6D000022 A
     5475   01 01E40    328C0007 A            LW,8     7,LINK                                            *A03
     5476   01 01E41    55802A22              STH,8    PLMSG3+14         STORE WL BITS                   *A03
     5477   01 01E42    EA6003C5              #PRINT   PLMSG3,C1         PRINT TEST INFO                 *A03
            01 01E43    EA6003CD
            01 01E44    C100A850 A
            01 01E45    EA6003C6
     5478   01 01E46    E8002270              B        *RETURN6          EXIT                            *A03
     5479                            *
     5480                            ***********************************************************
     5481                            ****     THIS ROUTINE FORMATS THE ERROR INFORMATIOM
     5482                            ****     WHEN A MAP PARITY ERROR IS DETECTED USING A
     5483                            ****     LRA INST IN DP,DA AND DW DIRECTIVES.
     5484                            *
     5485         01 01E47           TSTINFO7 EQU      %                                                 *A03
     5486   01 01E47    35B02271              STW,11   RETURN7                                           *A03
     5487   01 01E48    6D000032 A            #HTECON  TINST             CONVERT LRA INST                *A03
            01 01E49    EA6003C3
            01 01E4A    000022D8
            01 01E4B    6D000022 A
     5488   01 01E4C    2A8C0000 A            LM,8     0,LINK                                            *A03
     5489   01 01E4D    02200020 A            LCI      2                                                 *A03
     5490   01 01E4E    2B802C9F              STM,8    MPEMSG+1                                          *A03
     5491   01 01E4F    6D000032 A            #HTECON  TADDR             CONVERT LRA INST ADDR           *A03
            01 01E50    EA6003C3
            01 01E51    000022D9
            01 01E52    6D000022 A
     5492   01 01E53    328C0001 A            LW,8     1,LINK                                            *A03
     5493   01 01E54    35802CA2              STW,8    MPEMSG+4                                          *A03
     5494   01 01E55    6D000032 A            #HTECON  SAVRESLT          CONVERT LRA REG CONTENTS        *A03
            01 01E56    EA6003C3
            01 01E57    0000227A
            01 01E58    6D000022 A
     5495   01 01E59    2A8C0000 A            LM,8     0,LINK                                            *A03
     5496   01 01E5A    02200020 A            LCI      2                                                 *A03
     5497   01 01E5B    2B802CA4              STM,8    MPEMSG+6                                          *A03
     5498   01 01E5C    6D000032 A            #BTECON  ACTCC             CONVERT COND CODES(AFTER LRA)   *A03
            01 01E5D    EA6003C4
            01 01E5E    0000227E
            01 01E5F    6D000022 A
     5499   01 01E60    328C0000 A            LW,8     0,LINK                                            *A03
     5500   01 01E61    35802CA7              STW,8    MPEMSG+9                                          *A03
     5501   01 01E62    6D000032 A            #HTECON  PAGEADR           CONVERT VIRTUAL ADDR            *A03
            01 01E63    EA6003C3
            01 01E64    0000229A
            01 01E65    6D000022 A
     5502   01 01E66    2A8C0000 A            LM,8     0,LINK                                            *A03
     5503   01 01E67    02200020 A            LCI      2                                                 *A03
     5504   01 01E68    2B802CA9              STM,8    MPEMSG+11                                         *A03
     5505   01 01E69    E8002271              B        *RETURN7          EXIT                            *A03
     5506                            *
     5507                            *****************************************************************
     5508                            ****     THIS ROUTINE CONVERTS TEST AND READ
     5509                            ****     VIRTUAL PAGE ADDRESSES TO EBCIDIC
     5510                            ****     AND STORES THE CONVERTED VALUES IN
     5511                            ****     THE ERROR MESSAGE BUFFER 'MAPMSG1'.
     5512                            ****     IT ALSO CLEARS BUFFER BEFORE LOADING.
     5513                            ***********************************************************
     5514                            *
     5515                            *
     5516         01 01E6A           GETVPAD  EQU      %
     5517   01 01E6A    72702886              LB,7     MAPMSG1           GET BYTE COUNT                  *A03
     5518   01 01E6B    22800040 A            LI,8     X'40'             GET A BLANK CHARACTER           *A03
     5519   01 01E6C    758E2886              STB,8    MAPMSG1,7         CLEAR BUFFER TO BLANKS          *A03
     5520   01 01E6D    64701E6C              BDR,7    %-1                                               *A03
     5521   01 01E6E    6D000032 A            #HTECON  TESTVP            CONVERT TEST VP
            01 01E6F    EA6003C3
            01 01E70    0000229E
            01 01E71    6D000022 A
     5522   01 01E72    328C0001 A            LW,8     1,LINK
     5523   01 01E73    4B802475              AND,8    Y4040
     5524   01 01E74    35802887              STW,8    MAPMSG1+1         STORE TEST VP ADDRESS
     5525   01 01E75    6D000032 A            #HTECON  READVP            CONVERT READ VP ADDR
            01 01E76    EA6003C3
            01 01E77    0000229F
            01 01E78    6D000022 A
     5526   01 01E79    328C0001 A            LW,8     1,LINK
     5527   01 01E7A    4B802475              AND,8    Y4040
     5528   01 01E7B    3580288A              STW,8    MAPMSG1+4         STORE READ VP ADDRESS
     5529   01 01E7C    E800000B A            B        *R11              EXIT
     5530                            *
     5531                            ***********************************************************
     5532                            ****     THIS ROUTINE CONVERTS ACCESS CONTROL
     5533                            ****     BITS LOADED AND READ TO EBCIDIC
     5534                            ****     AND STORES THE VALUES IN REGISTERS
     5535                            ****     8 AND 9 RESPECTIVELY.BYTE 0 AND 1
     5536                            ****     ARE BLANKS(X'40') AND BYTE 2 AND 3
     5537                            ****     ARE THE CONVERTED VALUES.
     5538                            ****     THIS ROUTINE IS ALSO USED TO CONVERT
     5539                            ****     WRITE LOCK BITS.
     5540                            ***********************************************************
     5541                            *
     5542         01 01E7D           GETAC    EQU      %
     5543   01 01E7D    6D000032 A            #BTECON  ACLOAD            CONVERT AC LOADED
            01 01E7E    EA6003C4
            01 01E7F    00002449
            01 01E80    6D000022 A
     5544   01 01E81    328C0007 A            LW,8     7,LINK
     5545   01 01E82    4B802475              AND,8    Y4040             INSERT TWO BLANKS
     5546   01 01E83    25800210 A            SCS,8    16                SHIFT CIRCULAR LEFT 16 BITS
     5547   01 01E84    6D000032 A            #BTECON  ACREAD            CONVERT AC READ
            01 01E85    EA6003C4
            01 01E86    00002448
            01 01E87    6D000022 A
     5548   01 01E88    329C0007 A            LW,9     7,LINK
     5549   01 01E89    4B902475              AND,9    Y4040             INSERT TWO BLANKS
     5550   01 01E8A    25900210 A            SCS,9    16
     5551   01 01E8B    E800000B A            B        *R11              EXIT
     5552                            *
     5553                            *
     5554                            ***********************************************************
     5555                            ****     THIS ROUTINE SETS UP THE TEST
     5556                            ****     INSTRUCTIONS AT THE MAPPED ADDRESS.
     5557                            ****     THE CALLING SEQUENCE IS
     5558                            ****     BAL,R15  SETINST
     5559                            ****     GEN,8,2,22  X'N',0,ADDRFI
     5560                            ****     WHERE  N=NUMBER OF INSTRUCTIONS
     5561                            ****            ADDRFI=ADDRESS OF FIRST INSTRUCTION
     5562                            ***********************************************************
     5563         01 01E8C           SETINST  EQU      %
     5564   01 01E8C    22200000 A            LI,X2    0                 RESET INDEX
     5565   01 01E8D    F210000F A            LB,X1    *R15              X1=# OF INSTS. TO BE STORED
     5566   01 01E8E    B270000F A            LW,X7    *R15              X7=ADDRESS OF FIRST INST
     5567   01 01E8F    4B702471              AND,X7   XFFFFFF           SAVE ADDRESS
     5568         01 01E90           NEXTINST EQU      %                 NEXT INSTRUCTION
     5569   01 01E90    328E0000 A            LW,8     0,X7              GET INSTRUCTION
     5570   01 01E91    B58422F0              STW,8    *MAPEDADR,X2      STORE INST
     5571   01 01E92    20700001 A            AI,X7    1                 INCR TO GET NEXT INST
     5572   01 01E93    20200001 A            AI,X2    1                 INCR TO STORE NEXT INST
     5573   01 01E94    64101E90              BDR,X1   NEXTINST          GET NEXT INST
     5574   01 01E95    20F00001 A            AI,R15   1                 INCR EXIT ADDRESS
     5575   01 01E96    E800000F A            B        *R15              EXIT
     5576                            *
     5577                            ***********************************************************
     5578                            ****     THIS ROUTINE IS ENTERED WHENEVER THE MAP REGISTERS
     5579                            ****     FOR THE TEST INSTRUCTION PAGE(TINSTP) AND TEST
     5580                            ****     PAGE (TESTPAGE) ARE TO BE LOADED FOR MAP AND
     5581                            ****     ACCESS CONTROL OPERATIONAL TESTS.
     5582                            ****     FOR MAP OPERATIONAL TESTS REGISTER R8 SHOULD BE SET
     5583                            ****     TO ZERO PRIOR TO ENTERING THIS ROUTINE.
     5584                            ****     FOR ACCESS CONTROL OPERATIONAL TESTS R8 SHOULD
     5585                            ****     BE NON-ZERO BEFORE ENTERING THIS ROUTINE.
     5586                            ****     THIS ROUTINE DOES THE FOLLOWING:-
     5587                            ****     1. FOR MAP TESTS ''TINSTP'' IS MAPPED TO ITSELF
     5588                            ****        AND ''TESTPAGE'' IS MAPPED TO THE ''TINSTP''.
     5589                            ****     2.FOR ACCESS CONTROL TESTS ''TINSTP'' AND ''TESTPAGE''
     5590                            ****       ARE MAPPED TO THEMSELVES RESPECTIVELY.
     5591                            ***********************************************************
     5592                            *
     5593         01 01E97           SETMAP   EQU      %
     5594   01 01E97    35901EA2              STW,9    LOADWORD          STORE LW INST
     5595   01 01E98    B2901EA2              LW,9     *LOADWORD
     5596   01 01E99    359022F1              STW,9    MAPBITS           STORE MAP BITS FOR TEST PAGE
     5597   01 01E9A    3290246A              LW,9     TESTPAGE
     5598   01 01E9B    2590007F A            SLS,9    -1
     5599   01 01E9C    2590000A A            SLS,9    10                GET CONTROL START ADDR
     5600   01 01E9D    32A02469              LW,10    TINSTP
     5601   01 01E9E    25A0007F A            SLS,10   -1
     5602   01 01E9F    25A0000A A            SLS,10   10
     5603   01 01EA0    31A00009 A            CW,10    R9                IF ADDR SAME THEN THE TWO
     5604   01 01EA1    68301EAF              BE       SAMEBLK           PAGES ARE ON THE SAME BLOCK
     5605         01 01EA2           LOADWORD EQU      %                 'LW,8 TINSTP' FOR MAP TESTS
     5606   01 01EA2    32802469              LW,8     TINSTP            'LW,8 TESTPAGE' FOR AC  TESTS
     5607   01 01EA3    6AB01ECD              BAL,R11  ODDEVEN           SET UP MAP CONTROL IMAGE WORD
     5608   01 01EA4    25800010 A            SLS,8    16                AS PER ODD/EVEN ADDRESS
     5609   01 01EA5    3270246A              LW,7     TESTPAGE
     5610   01 01EA6    6AB01EC3              BAL,R11  MMCMAP1           LOAD MAP FOR TEST PAGE
     5611   01 01EA7    32802469              LW,8     TINSTP            SET UP MAP CONTROL IMAGE WORD
     5612   01 01EA8    32702469              LW,7     TINSTP            FOR THE TEST INSTRUCTION
     5613   01 01EA9    4B702479              AND,7    X01               PAGE AS PER ODD/EVEN ADDR
     5614   01 01EAA    69301EAC              BNEZ     %+2
     5615   01 01EAB    25800010 A            SLS,8    16
     5616   01 01EAC    32702469              LW,7     TINSTP
     5617   01 01EAD    6AB01EC3              BAL,R11  MMCMAP1           LOAD MAP FOR TEST INST PAGE
     5618   01 01EAE    E800000F A            B        *R15
     5619                            *
     5620                            *
     5621         01 01EAF           SAMEBLK  EQU      %
     5622   01 01EAF    32800008 A            LW,8     8                 IF R8 IS 0 MAP REGS TO BE
     5623   01 01EB0    68301EBF              BEZ      FORMAP            LOADED FOR MAP TESTS
     5624   01 01EB1    6AB01ECD              BAL,R11  ODDEVEN
     5625   01 01EB2    68001EB4              B        EVEN
     5626   01 01EB3    68001EB8              B        ODD
     5627         01 01EB4           EVEN     EQU      %                 FOR AC TESTS SET UP MAP
     5628   01 01EB4    3280246A              LW,8     TESTPAGE          IMAGE WORD SUCH THAT
     5629   01 01EB5    25800010 A            SLS,8    16                TEST INST PAGE AND
     5630   01 01EB6    30802469              AW,8     TINSTP            TEST PAGE MAP THEMSELVES
     5631   01 01EB7    68001EBC              B        BALMMC
     5632                            *
     5633         01 01EB8           ODD      EQU      %
     5634   01 01EB8    32802469              LW,8     TINSTP
     5635   01 01EB9    25800010 A            SLS,8    16
     5636   01 01EBA    3080246A              AW,8     TESTPAGE
     5637   01 01EBB    68001EBC              B        BALMMC
     5638                            *
     5639         01 01EBC           BALMMC   EQU      %
     5640   01 01EBC    3270246A              LW,7     TESTPAGE
     5641   01 01EBD    6AB01EC3              BAL,R11  MMCMAP1
     5642   01 01EBE    E800000F A            B        *R15
     5643                            *
     5644                            *
     5645         01 01EBF           FORMAP   EQU      %                 FOR MAP TESTS SET UP
     5646   01 01EBF    32802469              LW,8     TINSTP            MAP CONTROL IMAGE WORD
     5647   01 01EC0    25800010 A            SLS,8    16                SUCH THAT TESTPAGE MAPS
     5648   01 01EC1    30802469              AW,8     TINSTP            TO TINSTP AND TINSTP MAPS
     5649   01 01EC2    68001EBC              B        BALMMC            TO ITSELF
     5650                            *
     5651                            *
     5652         01 01EC3           MMCMAP1  EQU      %
     5653   01 01EC3    22600008 A            LI,6     R8                LOAD MAP CONT. IMG ADDR
     5654   01 01EC4    2570007F A            SLS,7    -1                SET UP CONTROL START ADDR
     5655   01 01EC5    2570000A A            SLS,7    10                IN BITS 15-21
     5656   01 01EC6    357022AB              STW,7    SAVRS+3
     5657   01 01EC7    73100007 A            MTB,1    R7                SET WORD COUNT TO 1
     5658   01 01EC8    6F6A0000 A            MMC,6    5                 LOAD MAP
     5659   01 01EC9    327022AB              LW,7     SAVRS+3
     5660   01 01ECA    25700076 A            SLS,7    -10               SHIFT TO GET INDEX
     5661   01 01ECB    358E2386              STW,8    IMAGEMAP,X7       STORE MAP IMAGE WORD IN BUFFER
     5662   01 01ECC    E800000B A            B        *R11
     5663                            *
     5664                            *
     5665         01 01ECD           ODDEVEN  EQU      %
     5666   01 01ECD    3220246A              LW,2     TESTPAGE
     5667   01 01ECE    4B202479              AND,2    X01
     5668   01 01ECF    68301ED1              BEZ      %+2
     5669   01 01ED0    20B00001 A            AI,R11   1
     5670   01 01ED1    E800000B A            B        *R11
     5671                            *
     5672                            ****     THIS ROUTINE COMPUTES THE PROGRAM STATUS WORD 1(PSW1)
     5673                            ****     FOR THE LPSD INSTRUCTION USED IN MAP AND ACCESS
     5674                            ****     CONTROL OPERATIONAL TESTS TO INVOKE SLAVE-MAP MODE.
     5675                            ****     THE COMPUTED PSW1 IS STORED IN R8.
     5676                            *
     5677         01 01ED2           SETLPSD  EQU      %
     5678   01 01ED2    32802469              LW,8     TINSTP            COMPUTE MAPPED ADDRESS
     5679   01 01ED3    25800009 A            SLS,8    9
     5680   01 01ED4    208001F8 A            AI,8     X'1F8'
     5681   01 01ED5    358022F0              STW,8    MAPEDADR          SAVE ADDRESS
     5682   01 01ED6    25800010 A            SLS,8    16
     5683   01 01ED7    208000C0 A            AI,8     X'00C0'           INSERT SLAVE-MAP MODE BITS
     5684   01 01ED8    25800210 A            SCS,8    16
     5685   01 01ED9    E800000F A            B        *R15              EXIT
     5686                            *
     5687                            *
     5688                            *
     5689                            ****     THIS ROUTINE LOADS ALL 256 MAP
     5690                            ****     REGISTERS WITH ZEROS.
     5691                            ****     ALSO,IT SAVES THE MAP IMAGE.
     5692                            *
     5693         01 01EDA           ALMAPREG EQU      %
     5694   01 01EDA    32502476              LW,5     Y8                WORD COUNT & CONTROL START
     5695   01 01EDB    22402304              LI,4     MAPIMAGE          MAP CONTROL IMAGE WORD
     5696   01 01EDC    6F4A0000 A            MMC,4    5                 LOAD 256 MAP REG
     5697   01 01EDD    227FFF80 A            LI,7     -128              SET INDEX TO LOAD 128 WORDS
     5698   01 01EDE    328E2384              LW,8     MAPIMAGE+128,X7
     5699   01 01EDF    358E2406              STW,8    IMAGEMAP+128,X7   SAVE MAP IMAGE
     5700   01 01EE0    65701EDE              BIR,X7   %-2
     5701   01 01EE1    E800000F A            B        *R15              EXIT
     5702                            *
     5703                            *
     5704                            *
     5705                            *
     5706                            ****     THIS ROUTINE LOADS ALL 256 ACCESS CONTROL
     5707                            ****     REGISTERS  WITH ZEROS.
     5708                            ****     ALSO,SAVES THE ACCESS CONTROL IMAGE.
     5709                            *
     5710         01 01EE2           ALLACREG EQU      %
     5711   01 01EE2    227FFFF0 A            LI,7     -16               SET INDEX TO LOAD 16 WORDS
     5712   01 01EE3    3250248B              LW,5     Y1                INITIAL COUNT & CONTROL START
     5713   01 01EE4    22402304              LI,4     ACIMAGE           AC CONTROL IMAGE WORD
     5714   01 01EE5    6F440000 A            MMC,4    2                 LOAD 256 AC REG
     5715   01 01EE6    328E2314              LW,8     ACIMAGE+16,X7
     5716   01 01EE7    358E2416              STW,8    IMAGEAC+16,X7     SAVE AC IMAGE
     5717   01 01EE8    65701EE6              BIR,X7   %-2
     5718   01 01EE9    E800000F A            B        *R15              EXIT
     5719                            *
     5720                            ****     THIS ROUTINE LOADS ALL 256 WRITE LOCK REGISTERS
     5721                            ****     WITH 0'S AND SAVES THE CONTROL IMAGE .
     5722                            *
     5723         01 01EEA           ALLWLREG EQU      %
     5724   01 01EEA    227FFFF0 A            LI,7     -16               SET INDEX TO LOAD 16 WORDS
     5725   01 01EEB    3250248B              LW,5     Y1                INITIAL COUNT & CONTROL START
     5726   01 01EEC    22402304              LI,4     WLIMAGE           WL CONTROL IMAGE WORD
     5727   01 01EED    6F420000 A            MMC,4    1                 LOAD 256 WL REG
     5728   01 01EEE    328E2314              LW,8     WLIMAGE+16,X7
     5729   01 01EEF    358E2426              STW,8    IMAGEWL+16,X7     SAVE WL IMAGE
     5730   01 01EF0    65701EEE              BIR,X7   %-2
     5731   01 01EF1    E800000F A            B        *R15              EXIT
     5732                            *
     5733         01 01EF2           INITREGS EQU      %
     5734   01 01EF2    35F0226C              STW,15   RETURN1
     5735   01 01EF3    6AF01EEA              BAL,15   ALLWLREG
     5736   01 01EF4    328022EA              LW,8     SIGMA8
     5737   01 01EF5    E930226C              BNEZ     *RETURN1
     5738   01 01EF6    6AF01EDA              BAL,15   ALMAPREG
     5739   01 01EF7    6AF01EE2              BAL,15   ALLACREG
     5740   01 01EF8    E800226C              B        *RETURN1
     5741                            *
     5742                            ****     THIS ROUTINE LOADS THE MAP REGISTERS
     5743                            ****     00,01,02,...FE AND FF WITH
     5744                            ****     00,01,02,...FE AND FF RESPECTIVELY.
     5745                            *
     5746         01 01EF9           MAPSELF  EQU      %
     5747   01 01EF9    221FFF80 A            LI,1     -128              # OF WORDS TO BE LOADED
     5748   01 01EFA    32802479              LW,8     X01               INITIAL MAP CONTROL IMAGE
     5749   01 01EFB    32702484              LW,7     Y01               INITIAL WORD COUNT & CONTROL START
     5750   01 01EFC    22600008 A            LI,R6    R8
     5751   01 01EFD    6F6A0000 A            MMC,6    5                 LOAD MAP;ONE WORD
     5752   01 01EFE    30802491              AW,8     X20002            CHANGE MAP FOR NEXT TWO PAGES
     5753   01 01EFF    73100007 A            MTB,1    R7                SET WORD COUNT TO 1
     5754   01 01F00    65101EFC              BIR,X1   %-4               LOAD NEXT 2 PAGES
     5755   01 01F01    E800000F A            B        *R15              EXIT
     5756                            *
     5757                            ****     THIS ROUTINE SETS UP THE AC CONTROL IMAGE WORD
     5758                            ****     IN R8 TO LOAD THE 'TESTPAGE' WITH TEST AC BITS.
     5759                            ****     REST OF THE PAGES IN THIS BLOCK HAVE AC=00.
     5760                            *
     5761         01 01F02           SETAC    EQU      %
     5762   01 01F02    3210246A              LW,1     TESTPAGE          SET UP THE AC BITS FOR THE TEST
     5763   01 01F03    48102480              EOR,1    XF                PAGE IN THE CONTROL IMAGE WORD
     5764   01 01F04    4B102480              AND,1    XF                AS PER PAGE ADDRESS
     5765   01 01F05    30100001 A            AW,1     1
     5766   01 01F06    32802449              LW,8     ACLOAD
     5767   01 01F07    25820000 A            SLS,8    0,X1
     5768   01 01F08    3270246A              LW,7     TESTPAGE
     5769   01 01F09    6AB01F0B              BAL,R11  MMCAC1
     5770   01 01F0A    E800000F A            B        *R15              EXIT
     5771                            *
     5772                            *
     5773         01 01F0B           MMCAC1   EQU      %
     5774   01 01F0B    22600008 A            LI,6     R8                R8 HAS THE CONTROL IMAGE WORD
     5775   01 01F0C    2570007C A            SLS,7    -4                SET UP THE CONTROL START BITS
     5776   01 01F0D    2570000D A            SLS,7    13                AS PER 'TESTPAGE'
     5777   01 01F0E    357022AB              STW,7    SAVRS+3
     5778   01 01F0F    73100007 A            MTB,1    R7                SET WORD COUNT TO 1
     5779   01 01F10    6F640000 A            MMC,6    2                 LOAD 1 BLOCK OF AC REGS(16)
     5780   01 01F11    327022AB              LW,7     SAVRS+3
     5781   01 01F12    25700073 A            SLS,7    -13               SHIFT TO GET INDEX
     5782   01 01F13    358E2406              STW,8    IMAGEAC,X7        STORE AC IMAGE WORD IN BUFFER
     5783   01 01F14    E800000B A            B        *R11
     5784                            *
     5785                            *
     5786                            ****     THIS ROUTINE SETS UP THE WL CONTROL IMAGE WORD
     5787                            ****     IN R8 TO LOAD THE 'TESTPAGE' WITH TEST WL BITS.
     5788                            ****     REST OF THE PAGES IN THIS BLOCK HAVE WL=00.
     5789                            *
     5790         01 01F15           SETWL    EQU      %
     5791   01 01F15    3210246A              LW,1     TESTPAGE          SET UP THE WL BITS FOR
     5792   01 01F16    48102480              EOR,1    XF                THE TESTPAGE IN THE CONTROL
     5793   01 01F17    4B102480              AND,1    XF                IMAGE WORD AS PER
     5794   01 01F18    30100001 A            AW,1     1                 TESTPAGE ADDRESS
     5795   01 01F19    32802449              LW,8     WLLOAD
     5796   01 01F1A    25820000 A            SLS,8    0,X1
     5797   01 01F1B    3270246A              LW,7     TESTPAGE
     5798   01 01F1C    6AB01F1E              BAL,R11  MMCWL1
     5799   01 01F1D    E800000F A            B        *R15              EXIT
     5800                            *
     5801                            *
     5802         01 01F1E           MMCWL1   EQU      %
     5803   01 01F1E    22600008 A            LI,6     R8                R8 HAS THE CONTROL IMAGE WORD
     5804   01 01F1F    2570007C A            SLS,7    -4                SET UP CONTROL START BITS
     5805   01 01F20    2570000D A            SLS,7    13                AS PER TEST PAGE ADDR
     5806   01 01F21    357022AB              STW,7    SAVRS+3
     5807   01 01F22    73100007 A            MTB,1    R7                SET WORD COUNT TO 1
     5808   01 01F23    6F620000 A            MMC,6    1                 LOAD 1 BLOCK OF WL REGS(16)
     5809   01 01F24    327022AB              LW,7     SAVRS+3
     5810   01 01F25    25700073 A            SLS,7    -13               SHIFT TO GET INDEX
     5811   01 01F26    358E2416              STW,8    IMAGEWL,X7        SAVE WL IMAGE WORD IN BUFFER
     5812   01 01F27    E800000B A            B        *R11              EXIT
     5813                            *
     5814                            *
     5815                            ****     THIS ROUTINE COMPUTES PROGRAM STATUS WORD 1
     5816                            ****     FOR LPSD INST IN MASTER MODE TESTS.
     5817                            ****     PSW1 IS STORED IN R8.
     5818                            *
     5819                            *
     5820         01 01F28           SETLPSD1 EQU      %
     5821   01 01F28    32802469              LW,8     TINSTP            SET TEST INST PAGE ADDR IN
     5822   01 01F29    25800009 A            SLS,8    9                 BITS 15-22 OF R8
     5823   01 01F2A    208001F8 A            AI,8     X'1F8'            INCREMENT ADDR
     5824   01 01F2B    358022F0              STW,8    MAPEDADR          SAVE MAPPED ADDR
     5825   01 01F2C    25800010 A            SLS,8    16
     5826   01 01F2D    20800040 A            AI,8     X'0040'           INSERT MAP MODE BIT
     5827   01 01F2E    25800210 A            SCS,8    16
     5828   01 01F2F    E800000F A            B        *R15              EXIT
     5829                            *
     5830                            ****     THIS ROUTINE LOADS MAP REG'S 1E AND 1F WITH
     5831                            ****     X'0000' AND X'001F' RESPECTIVELY.
     5832                            *
     5833         01 01F30           MAP1F    EQU      %
     5834   01 01F30    22600008 A            LI,6     8
     5835   01 01F31    2280001F A            LI,8     X'1F'
     5836   01 01F32    3270247C              LW,7     Y01003C
     5837   01 01F33    6F6A0000 A            MMC,6    5                 LOAD MAP REG 1E & 1F
     5838   01 01F34    E800000F A            B        *15
     5839                            *
     5840                            ****     THIS ROUTINE READS MAP REG. X'11'THEN      IT READS
     5841                            ****     AC/WL BITS FOR PAGES 1F OR 2B (LATTER FOR TEST 5)
     5842                            ****     IT IS USED IN TESTS 5,6 AND 7
     5843                            *
     5844         01 01F35           READREGS EQU      %
     5845   01 01F35    35F0226E              STW,15   RETURN3           STORE RETURN ADDR               *A03
     5846   01 01F36    22802200 A            LI,8     X'2200'                                           *A03
     5847   01 01F37    3580229A              STW,8    PAGEADR           STORE VP ADDR                   *A03
     5848   01 01F38    02200080 A            LCI      8                 SET CC FOR WORD ALIGNMENT       *A04
     5849   01 01F39    2C80229A              LRA,8    PAGEADR           READ MAP FOR REG X'11'          *A04
     5850   01 01F3A    25800077 A            SLS,8    -9
     5851   01 01F3B    4B80247F              AND,8    X1FFF             SAVE MAP BITS
     5852   01 01F3C    358022A0              STW,8    MAPREAD           SAVE MAP READ
     5853   01 01F3D    22805600 A            LI,8     X'5600'           READ AC/WL FOR PAGE 2B
     5854   01 01F3E    329003F2              LW,9     TCR:NUM                                           *A01
     5855   01 01F3F    21900005 A            CI,9     TNUM5                                             *A03
     5856   01 01F40    68301F42              BE       %+2               BRANCH IF MAP CHK
     5857   01 01F41    22803E00 A            LI,8     X'3E00'           READ AC/WL FOR PAGE 1F
     5858   01 01F42    3580229A              STW,8    PAGEADR           STORE VP ADDR                   *A03
     5859   01 01F43    02200080 A            LCI      8                 READ WL AND AC REG7S            *A04
     5860   01 01F44    2C80229A              LRA,8    PAGEADR           X72B' OR X'1F'                  *A04
     5861   01 01F45    7400227E              STCF     ACTCC             SAVE CC AFTER LRA               *A04
     5862   01 01F46    25800208 A            SCS,8    8                                                 *A03
     5863   01 01F47    4B802472              AND,8    X03               SAVE WL BITS                    *A03
     5864   01 01F48    3580244A              STW,8    WLRED             SAVE WL BITS READ               *A03
     5865   01 01F49    3280227E              LW,8     ACTCC             GET CC                          *A03
     5866   01 01F4A    25800204 A            SCS,8    4                                                 *A03
     5867   01 01F4B    4B802472              AND,8    X03               SAVE AC BITS                    *A03
     5868   01 01F4C    35802448              STW,8    ACREAD            SAVE AC BITS READ               *A03
     5869   01 01F4D    E800226E              B        *RETURN3          EXIT                            *A03
     5870                            *                                                                   *A03
     5871                            ****     THIS ROUTINE IS ENTERED WHEN THE USER HAS                  *A04
     5872                            ****     INVOKED DP,DA AND DW DIRECTIVES.                           *A04
     5873                            *                                                                   *A03
     5874         01 01F4E           LRAREAD  EQU      %                                                 *A03
     5875   01 01F4E    35F01F6D              STW,15   RETRY             SAVE RETURN ADDR                *A03
     5876   01 01F4F    35F02272              STW,15   LRARETURN                                         *A03
     5877   01 01F50    22800000 A            LI,8     0                 RESET REG USED IN LRA INST1     *A03
     5878   01 01F51    02200080 A            LCI      8                 SET C1C2 FOR WRD ADDR           *A04
     5879   01 01F52    2C80229A     LRAINST2 LRA,8    PAGEADR           READ MAP REG AND WL REG         *A03
     5880   01 01F53    7400227E              STCF     ACTCC             SAVE CC                         *A03
     5881   01 01F54    3580227A              STW,8    SAVRESLT          SAVE CONTENTS OF LRA INST REG   *A03
     5882   01 01F55    22901F52              LI,9     LRAINST2                                          *A03
     5883   01 01F56    35902273              STW,9    LRAINSTX          STORE LRA INST ADDR             *A03
     5884   01 01F57    31802473              CW,8     Y2                MAP PARITY ERROR                *A03
     5885   01 01F58    69401F5A              BCS,4    MAPPE             YES                             *A03
     5886   01 01F59    E8002272              B        *LRARETURN        EXIT
     5887                            *
     5888                            ****     THIS ROUTINE IS ENTERED WHENEVER THER IS A                 *A03
     5889                            ****     MAP PARITY ERROR DETECTED ON USING A                       *A03
     5890                            ****     LRA INSTRUCTION ABOVE.AFTER REPORTING THE ERROR            *A03
     5891                            ****     PROGRAM WILL GO TO GUIDE IDLE.ON ENTERING                  *A03
     5892                            ****     A '#' PROGRAM WILL CONTINUE TO EXECUTE LRA
     5893                            ****     TILL ALL THE REMAINING PAGES HAVE BEEN READ.
     5894                            *
     5895                            *                                                                   *A03
     5896         01 01F5A           MAPPE    EQU      %                                                 *A03
     5897   01 01F5A    EA6003C5              #TYPE    MPEHDG            PRINT HEADING                   *A03
            01 01F5B    EA6003CC
            01 01F5C    0000B220 A
            01 01F5D    EA6003C6
     5898   01 01F5E    EA6003C5              #TYPE    MPEMSGX           PRINT HEADING                   *A03
            01 01F5F    EA6003CC
            01 01F60    0000B240 A
            01 01F61    EA6003C6
     5899   01 01F62    B2902273              LW,9     *LRAINSTX                                         *A03
     5900   01 01F63    359022D8              STW,9    TINST             STORE LRA INST                  *A03
     5901   01 01F64    32902273              LW,9     LRAINSTX                                          *A03
     5902   01 01F65    359022D9              STW,9    TADDR             STORE LRA INST ADDR             *A03
     5903   01 01F66    6AB01E47              BAL,11   TSTINFO7          FORMAT ERR MSG                  *A03
     5904   01 01F67    EA6003C5              #TYPE    MPEMSG                                            *A03
            01 01F68    EA6003CC
            01 01F69    0000B278 A
            01 01F6A    EA6003C6
     5905   01 01F6B    8F9003CA              XPSD,9   *#RUNADDR%        GO TO GUIDE IDLE.               *A04
     5906   01 01F6C    E8001F6D              B        *RETRY            RETURN HERE WHEN A '#' IS KEYED *A04
     5907   01 01F6D    00000000 A   RETRY    DATA     0                                                 *A03
     5908                            *
     5909                            *
     5910                            *
     5911                            *
     5912                            *  THIS ROUTINE IS ENTERED BY USER KEYIN OF   DP
     5913                            *
     5914                            *        IT DISPLAYS MAP REGISTER(S) ADDRESS
     5915                            *        AND ITS CONTENTS.THE VALUES DISPLAYED
     5916                            *        ARE IN HEX.IF THIS ROUTINE IS ENTERED
     5917                            *        AND MAP OPTION IS NOT PRESENT
     5918                            *        THEN AN APPROPRIATE MESSAGE IS TYPED OUT.
     5919                            **************************************************************
     5920                            **************************************************************
     5921                            *
     5922                            *
     5923         01 01F6E           DISMAP   EQU      %
     5924   01 01F6E    6AB02089              BAL,11   SAVINFO           SAVE INFO                       *A03
     5925   01 01F6F    32802450              LW,8     IMAP
     5926   01 01F70    35801F95              STW,8    HTE1+1            INITIALISE ADDR
     5927   01 01F71    328022EA              LW,8     SIGMA8            IF MAP NOT PRESENT
     5928   01 01F72    69301FD1              BNEZ     PRINTNO           INDICATE VIA A MESSAGE
     5929   01 01F73    EA6003C5              #PRINT   BFHDG1,C1         PRINT HEADING
            01 01F74    EA6003CD
            01 01F75    C100B334 A
            01 01F76    EA6003C6
     5930   01 01F77    6AF02063              BAL,15   VALPARAM          VERIFY PARAMETERS               *A03
     5931   01 01F78    68001FC5              B        EXITDP            PARAM ERROR RETURN              *A03
     5932                            *                                   NORMAL RETURN                   *A03
     5933   01 01F79    22100008 A            LI,X1    8                 DEFINE MAX # OF REG PER LINE
     5934   01 01F7A    22200000 A            LI,X2    0                 RESET INDEX USED TO STORE IN BUFF
     5935   01 01F7B    6AB01FC0              BAL,R11  CLRBUF            CLEAR BUFFER
     5936   01 01F7C    32A003F2              LW,10    TCR:NUM                                           *A01
     5937   01 01F7D    21A00005 A            CI,10    TNUM5             IF FROM LRA TESTS               *A03
     5938   01 01F7E    69101F8C              BL       DISPLAY1          DO NOT READ REGS VIA LRA        *A03
     5939         01 01F7F           SETPAD1  EQU      %
     5940   01 01F7F    35702299              STW,7    VPREAD            STORE VP TO BE READ             *A03
     5941   01 01F80    25700009 A            SLS,7    9                 SET PAGE ADDR IN BITS 15-22
     5942   01 01F81    20700010 A            AI,7     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     5943   01 01F82    3570229A              STW,7    PAGEADR           STPRE VP ADDR                   *A03
     5944   01 01F83    6AF01F4E              BAL,15   LRAREAD           GO TO LRA ROUTIN W/0 SS1 LOOP   *A03
     5945   01 01F84    3280227A              LW,8     SAVRESLT          GET LRA REG CONTENTS            *A04
     5946   01 01F85    25800077 A            SLS,8    -9
     5947   01 01F86    4B80247F              AND,8    X1FFF             SAVE MAP BITS READ
     5948   01 01F87    32702299              LW,7     VPREAD            SET INDEX TO STORE IN IMAGE BUF *A03
     5949   01 01F88    558E2386              STH,8    IMAGEMAP,X7       STORE IMAGE
     5950   01 01F89    20700001 A            AI,7     1                 INCR PAGE ADDR
     5951   01 01F8A    3170244F              CW,7     ERA
     5952   01 01F8B    68201F7F              BLE      SETPAD1           READ MAP FOR NEXT PAGE          *A03
     5953         01 01F8C           DISPLAY1 EQU      %
     5954   01 01F8C    3230244F              LW,3     ERA               GET ERA
     5955   01 01F8D    3830244C              SW,3     P1#
     5956   01 01F8E    20300001 A            AI,X3    1                 X3= #OF REG TO BE DISPLAYED
     5957   01 01F8F    3240244C              LW,X4    P1#
     5958   01 01F90    4B402479              AND,X4   X01               SAVE BIT TO DEFINE EVEN/ODD REG
     5959   01 01F91    3280244C              LW,8     P1#
     5960   01 01F92    2580007F A            SLS,8    -1                STORE ADDR OF FIRST
     5961   01 01F93    66801F95              AWM,8    HTE1+1            MAP IMAGE WORD TO BE DISPLAYED
     5962   01 01F94    EA6003C3     HTE1     BAL,LINK *#HTE%            CONVERT TO EBCIDIC
     5963   01 01F95    00002386              GEN,10,22  0,IMAGEMAP
     5964         01 01F96           LW       EQU      %
     5965   01 01F96    B2880006 A            LW,8     *LINK,X4          LOAD MAP REG CONTENTS
     5966   01 01F97    35842CDC              STW,8    BUF1+3,X2         STORE IN BUFFER
     5967   01 01F98    203FFFFF A            AI,X3    -1                DECR REG COUNT
     5968   01 01F99    20200002 A            AI,X2    2                 UPDATE STORAGE LOCATION
     5969   01 01F9A    201FFFFF A            AI,X1    -1                DECR # OF REG DISPL./LINE
     5970   01 01F9B    68301FA2              BEZ      LINFUL1           BRANCH IF OUTPUT BUFF FILLED
     5971   01 01F9C    32300003 A            LW,X3    X3
     5972   01 01F9D    68301FCF              BEZ      PRXITDP           PRINT LINE AND EXIT
     5973   01 01F9E    21400001 A            CI,X4    1                 IF ODD REG ADDR DISPLAYED
     5974   01 01F9F    68301FAB              BE       NXTBLK1           BRANCH TO GET NXT BLK OF MAP REG
     5975   01 01FA0    20400001 A            AI,X4    1                 INCR INDEX TO STORE NEXT REG
     5976   01 01FA1    68001F96              B        LW
     5977                            *
     5978         01 01FA2           LINFUL1  EQU      %
     5979   01 01FA2    22200000 A            LI,X2    0                 RESET X2
     5980   01 01FA3    22100008 A            LI,X1    8                 INITIALISE X1
     5981   01 01FA4    6AF01FAE              BAL,R15  PRBUF             PRINT DATA LINE
     5982   01 01FA5    32300003 A            LW,X3    X3
     5983   01 01FA6    68301FC5              BEZ      EXITDP            EXIT IF ALL REG DISPLAYED
     5984   01 01FA7    21400001 A            CI,X4    1                 IF X4=1 GET NXT BLK OF MAP REG
     5985   01 01FA8    68301FAB              BE       NXTBLK1
     5986   01 01FA9    20400001 A            AI,X4    1
     5987   01 01FAA    68001F96              B        LW
     5988                            *
     5989         01 01FAB           NXTBLK1  EQU      %
     5990   01 01FAB    33101F95              MTW,1    HTE1+1            INCR ADDR                       *A03
     5991   01 01FAC    22400000 A            LI,X4    0                 RESET X4
     5992   01 01FAD    68001F94              B        HTE1              CONVERT NEXT MAP IMAGE WORD
     5993                            *
     5994                            *
     5995         01 01FAE           PRBUF    EQU      %
     5996   01 01FAE    3560000A A            STW,LINK  R10              SAVE CONTENTS OF LINK
     5997   01 01FAF    329C0001 A            LW,9     1,LINK
     5998   01 01FB0    359022B0              STW,9    XSAVE                                             *A03
     5999   01 01FB1    EA6003C3              BAL,LINK *#HTE%            CONVERT FIRST REG ADR ON CUR. LIN
     6000   01 01FB2    0000244E              GEN,10,22  0,CRA
     6001   01 01FB3    328C0001 A            LW,8     1,LINK
     6002   01 01FB4    55802CDA              STH,8    BUF1+1            STORE REG ADDR
     6003   01 01FB5    EA6003C5              #PRINT   BUF1              PRINT DATA LINE
            01 01FB6    EA6003CD
            01 01FB7    C000B364 A
            01 01FB8    EA6003C6
     6004   01 01FB9    22800008 A            LI,8     8
     6005   01 01FBA    6680244E              AWM,8    CRA               INCR CRA FOR NEXT LINE
     6006   01 01FBB    6AB01FC0              BAL,R11  CLRBUF            CLEAR BUFFER
     6007   01 01FBC    3260000A A            LW,LINK  R10               RESTORE VALUE SAVED EARLIER
     6008   01 01FBD    329022B0              LW,9     XSAVE                                             *A03
     6009   01 01FBE    359C0001 A            STW,9    1,LINK
     6010   01 01FBF    E800000F A            B        *R15              EXIT
     6011                            *
     6012         01 01FC0           CLRBUF   EQU      %
     6013   01 01FC0    225FFFEF A            LI,X5    -17               SET INDEX TO CLEAR
     6014   01 01FC1    32802455              LW,8     EBCBLNKS          BUFFER TO BLANKS
     6015   01 01FC2    358A2CEB              STW,8    BUF1+18,X5
     6016   01 01FC3    65501FC2              BIR,X5   %-1
     6017   01 01FC4    E800000B A            B        *R11              EXIT
     6018                            *
     6019         01 01FC5           EXITDP   EQU      %
     6020   01 01FC5    3280229B              LW,8     SAVPAG
     6021   01 01FC6    3580229A              STW,8    PAGEADR           RESTORE VP ADDR VALUE           *A03
     6022   01 01FC7    328022AF              LW,8     SAV4C             RESTORE XPSD SAVED EARLIER      *A03
     6023   01 01FC8    3580004C A            STW,8    X'4C'                                             *A03
     6024   01 01FC9    3280244B              LW,8     WLFLAG            WL DIRECTIVE                    *A01
     6025   01 01FCA    6930205F              BNEZ     EXITDW            YES                             *A01
     6026   01 01FCB    02200000 A   EXITDP1  LCI      0                                                 *A01
     6027   01 01FCC    2A0022F3              LM,0     SAVEREGS          RESTORE REGISTERS
     6028   01 01FCD    02200010 A            LCI      1
     6029   01 01FCE    E80003C9              B        *#FIDLE%
     6030                            *
     6031         01 01FCF           PRXITDP  EQU      %
     6032   01 01FCF    6AF01FAE              BAL,R15  PRBUF             PRINT LINE
     6033   01 01FD0    68001FC5              B        EXITDP            EXIT
     6034                            *
     6035                            *
     6036                            *
     6037         01 01FD1           PRINTNO  EQU      %
     6038   01 01FD1    EA6003C5              #PRINT   NOMAP#,C1
            01 01FD2    EA6003CD
            01 01FD3    C100B308 A
            01 01FD4    EA6003C6
     6039   01 01FD5    68001FC5              B        EXITDP
     6040                            *
     6041                            **************************************************************
     6042                            **************************************************************
     6043                            ****     THIS ROUTINE IS ENTERED BY USER KEYIN OF  DA.
     6044                            ****
     6045                            **************************************************************
     6046                            **************************************************************
     6047                            *
     6048                            *
     6049                            *
     6050         01 01FD6           DISAC    EQU      %
     6051   01 01FD6    6AB02089              BAL,11   SAVINFO           SAVE INFO                       *A03
     6052   01 01FD7    32802451              LW,8     IAC
     6053   01 01FD8    35802016              STW,8    BTE1+1            INITIALISE ADDR
     6054   01 01FD9    358022B6              STW,8    IMAGE
     6055   01 01FDA    02200020 A            LCI      2                                                 *A03
     6056   01 01FDB    2A8022B7              LM,8     ACBITS                                            *A03
     6057   01 01FDC    02200020 A            LCI      2                                                 *A03
     6058   01 01FDD    2B801FF8              STM,8    SLSX                                              *A03
     6059   01 01FDE    328022EA              LW,8     SIGMA8            IF MAP NOT PRESENT
     6060   01 01FDF    69301FD1              BNEZ     PRINTNO           INDICATE VIA A MESSAGE
     6061   01 01FE0    EA6003C5              #PRINT   BFHDG2,C1         PRINT HEADING
            01 01FE1    EA6003CD
            01 01FE2    C100B3AC A
            01 01FE3    EA6003C6
     6062         01 01FE4           SCAN     EQU      %
     6063   01 01FE4    6AF02063              BAL,15   VALPARAM          VALIDATE PARAMETERS             *A03
     6064   01 01FE5    68001FC5              B        EXITDP            PARAM ERROR RETURN              *A03
     6065                            *                                   NORMAL RETURN                   *A03
     6066   01 01FE6    22100010 A            LI,X1    16                DEFINE MAX # OF REG PER LINE
     6067   01 01FE7    22200001 A            LI,X2    1                 RESET INDEX USED TO STORE IN BUFF
     6068   01 01FE8    6AB01FC0              BAL,R11  CLRBUF            CLEAR BUFFER
     6069   01 01FE9    32A003F2              LW,10    TCR:NUM                                           *A01
     6070   01 01FEA    21A00005 A            CI,10    TNUM5             IF FROM LRA TESTS               *A03
     6071   01 01FEB    6910200D              BL       DISPLAY2          DO NOT READ REGS VIA LRA        *A03
     6072   01 01FEC    2250001E A   SPAD2B   LI,5     30                RESET INDEX                     *A01
     6073   01 01FED    22800000 A            LI,8     0
     6074   01 01FEE    358022B5              STW,8    TEMP1             RESET TEMP STORAGE
     6075         01 01FEF           SETPAD2  EQU      %
     6076   01 01FEF    3270244E              LW,7     CRA               GET PAGE ADDR
     6077   01 01FF0    4B70248F              AND,7    XF0               CLEAR LOW ORDER BITS
     6078         01 01FF1           SPAD2A   EQU      %                                                 *A03
     6079   01 01FF1    35702299              STW,7    VPREAD            STORE VP TO BE READ             *A03
     6080   01 01FF2    25700009 A            SLS,7    9                 SUCH THAT ALWAYS READ REG 0     *A03
     6081   01 01FF3    20700010 A            AI,7     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     6082   01 01FF4    3570229A              STW,7    PAGEADR           STORE VP ADDR                   *A03
     6083   01 01FF5    6AF01F4E              BAL,15   LRAREAD           GO TO LRA ROUTIN W/0 SS1 LOOP   *A03
     6084   01 01FF6    3280227A              LW,8     SAVRESLT          GET LRA REG CONTENTS            *A04
     6085   01 01FF7    32702299              LW,7     VPREAD            GET VP READ                     *A03
     6086         01 01FF8           SLSX     EQU      %
     6087   01 01FF8    02000000 A            NOP                                                        *A03
     6088   01 01FF9    02000000 A            NOP                                                        *A03
     6089   01 01FFA    4B802472              AND,8    X03               SAVE BITS READ
     6090   01 01FFB    258A0000 A            SLS,8    0,5               SHIFT BY APPROPIATE BIT POSITIONS
     6091   01 01FFC    33E00005 A            MTW,-2   5                 DECR SHIFT COUNT
     6092   01 01FFD    668022B5              AWM,8    TEMP1             SAVE IMAGE
     6093   01 01FFE    21500000 A            CI,5     0                 IF SHIFT COUNT NEGATIVE ALL 16 REGS
     6094   01 01FFF    69102002              BLZ      %+3               IN A BLOCK HAVE BEEN READ
     6095   01 02000    20700001 A            AI,7     1                 INCR PAGE ADDR
     6096   01 02001    68001FF1              B        SPAD2A            READ NEXT REG                   *A01
     6097   01 02002    328022B5              LW,8     TEMP1             GET IMAGE
     6098   01 02003    2570007C A            SLS,7    -4                SET UP INDEX
     6099   01 02004    B58E22B6              STW,8    *IMAGE,7          STORE IMAGE OF 1 BLOCK OF REGS
     6100   01 02005    3270244E              LW,7     CRA
     6101   01 02006    20700010 A            AI,7     X'10'             INCR REG ADR
     6102   01 02007    3570244E              STW,7    CRA
     6103   01 02008    4B702492              AND,7    X1F0                                              *A01
     6104   01 02009    3170244F              CW,7     ERA
     6105   01 0200A    68201FEC              BLE      SPAD2B            READ NEXT REG                   *A01
     6106   01 0200B    3230244C              LW,3     P1#
     6107   01 0200C    3530244E              STW,3    CRA               RESET CRA
     6108         01 0200D           DISPLAY2 EQU      %
     6109   01 0200D    3230244F              LW,3     ERA               GET END REG ADDR
     6110   01 0200E    3830244C              SW,3     P1#
     6111   01 0200F    20300001 A            AI,X3    1                 X3= #OF REG TO BE DISPLAYED
     6112   01 02010    3240244C              LW,X4    P1#
     6113   01 02011    4B402480              AND,X4   XF                SAVE ADDR TO DEFINE REG FOR CUR BLK
     6114   01 02012    3280244C              LW,8     P1#
     6115   01 02013    2580007C A            SLS,8    -4                STORE ADDR OF FIRST
     6116   01 02014    66802016              AWM,8    BTE1+1            AC  IMAGE WORD TO BE DISPLAYED
     6117   01 02015    EA6003C4     BTE1     BAL,LINK *#BTE%            CONVERT TO EBCIDIC
     6118   01 02016    00002406              GEN,10,22  0,IMAGEAC
     6119         01 02017           LH       EQU      %
     6120   01 02017    D2880006 A            LH,8     *LINK,X4          LOAD AC  REG CONTENTS
     6121   01 02018    55842CDB              STH,8    BUF1+2,X2         STORE IN BUFFER
     6122   01 02019    203FFFFF A            AI,X3    -1                DECR REG COUNT
     6123   01 0201A    20200002 A            AI,X2    2                 UPDATE STORAGE LOCATION
     6124   01 0201B    201FFFFF A            AI,X1    -1                DECR # OF REG DISPL./LINE
     6125   01 0201C    68302023              BEZ      LINFUL2           BRANCH IF OUTPUT BUFF FILLED
     6126   01 0201D    32300003 A            LW,X3    X3
     6127   01 0201E    6830203D              BEZ      PRXITDA           PRINT LINE AND EXIT
     6128   01 0201F    2140000F A            CI,X4    X'F'              IF ODD REG ADDR DISPLAYED
     6129   01 02020    6830202C              BE       NXTBLK2           BRANCH TO GET NXT BLK OF AC OR WL REG
     6130   01 02021    20400001 A            AI,X4    1                 INCR INDEX TO STORE NEXT REG
     6131   01 02022    68002017              B        LH
     6132                            *
     6133         01 02023           LINFUL2  EQU      %
     6134   01 02023    22200001 A            LI,X2    1                 RESET X2
     6135   01 02024    22100010 A            LI,X1    16                INITIALISE X1
     6136   01 02025    6AF0202F              BAL,R15  PRBUF1            PRINT DATA LINE
     6137   01 02026    32300003 A            LW,X3    X3
     6138   01 02027    68301FC5              BEZ      EXITDA            EXIT IF ALL REG DISPLAYED
     6139   01 02028    2140000F A            CI,X4    X'F'              IF X4=1 GET NXT BLK OF AC OR WL REG
     6140   01 02029    6830202C              BE       NXTBLK2
     6141   01 0202A    20400001 A            AI,X4    1
     6142   01 0202B    68002017              B        LH
     6143                            *
     6144         01 0202C           NXTBLK2  EQU      %
     6145   01 0202C    33102016              MTW,1    BTE1+1            INCR ADDR                       *A03
     6146   01 0202D    22400000 A            LI,X4    0                 RESET X4
     6147   01 0202E    68002015              B        BTE1              CONVERT NEXT AC OR WL IMAGE WORD
     6148                            *
     6149                            *
     6150         01 0202F           PRBUF1   EQU      %
     6151   01 0202F    3560000A A            STW,LINK  R10              SAVE CONTENTS OF LINK
     6152   01 02030    EA6003C3              BAL,LINK *#HTE%            CONVERT FIRST REG ADDR ON CUR. LIN
     6153   01 02031    0000244E              GEN,10,22  0,CRA
     6154   01 02032    328C0001 A            LW,8     1,LINK
     6155   01 02033    55802CDA              STH,8    BUF1+1            STORE REG ADDR
     6156   01 02034    EA6003C5              #PRINT   BUF1              PRINT DATA LINE
            01 02035    EA6003CD
            01 02036    C000B364 A
            01 02037    EA6003C6
     6157   01 02038    22800010 A            LI,8    16
     6158   01 02039    6680244E              AWM,8    CRA               INCR CRA FOR NEXT LINE
     6159   01 0203A    6AB01FC0              BAL,R11  CLRBUF            CLEAR BUFFER
     6160   01 0203B    3260000A A            LW,LINK  R10               RESTORE VALUE SAVED EARLIER
     6161   01 0203C    E800000F A            B        *R15              EXIT
     6162                            *
     6163         01 0203D           PRXITDA  EQU      %
     6164   01 0203D    6AF0202F              BAL,R15  PRBUF1
     6165   01 0203E    68001FC5              B        EXITDA
     6166                            *
     6167         01 01FC5           EXITDA   EQU      EXITDP
     6168                            *
     6169                            **************************************************************
     6170                            **************************************************************
     6171                            *
     6172                            *        THIS ROUTINE IS ENTERED BY USER KEYIN OF DW.
     6173                            **************************************************************
     6174                            **************************************************************
     6175                            *
     6176                            *
     6177                            *
     6178         01 0203F           DISWL    EQU      %
     6179   01 0203F    6AB02089              BAL,11   SAVINFO           SAVE INFO                       *A03
     6180   01 02040    32802452              LW,8     IWL
     6181   01 02041    35802016              STW,8    BTE1+1            INITIALISE ADDRES
     6182   01 02042    358022B6              STW,8    IMAGE
     6183   01 02043    02200020 A            LCI      2                                                 *A03
     6184   01 02044    2A8022B9              LM,8     NOP                                               *A03
     6185   01 02045    02200020 A            LCI      2                                                 *A03
     6186   01 02046    2B801FF8              STM,8    SLSX                                              *A03
     6187   01 02047    EA6003C5              #PRINT   BFHDG3,C1         PRINT HEADING
            01 02048    EA6003CD
            01 02049    C100B3E4 A
            01 0204A    EA6003C6
     6188   01 0204B    328022EA              LW,8     SIGMA8            IF SIGMA 8                      *A01
     6189   01 0204C    69301FE4              BNEZ     SCAN              OUTPUT WL REG'S                 *A01
     6190   01 0204D    22800001 A            LI,8     1                                                 *A01
     6191   01 0204E    3580244B              STW,8    WLFLAG            SET WL DIRECTIVE FLAG           *A01
     6192   01 0204F    22CFFF00 A            LI,12    -256                                              *A01
     6193   01 02050    22700000 A            LI,7     0                 SET PAGE ADDR TO 0              *A01
     6194         01 02051           SETPADX  EQU      %                                                 *A01
     6195   01 02051    35702299              STW,7    VPREAD            STORE VP TO BE READ             *A03
     6196   01 02052    25700009 A            SLS,7    9                 SET PAG ADR IN BITS 15-22       *A01
     6197   01 02053    20700010 A            AI,7     X'10'             ADD VALUE TO BYPASS CROSSOVER   *A03
     6198   01 02054    3570229A              STW,7    PAGEADR           STORE VP #                      *A03
     6199   01 02055    6AF01F4E              BAL,15   LRAREAD           GO TO LRA ROUTIN W/0 SS1 LOOP   *A03
     6200   01 02056    3280227A              LW,8     SAVRESLT          GET LRA REG CONTENTS            *A04
     6201   01 02057    25800077 A            SLS,8    -9                                                *A01
     6202   01 02058    4B80247F              AND,8    X1FFF             SAVE MAP READ                   *A01
     6203   01 02059    32702299              LW,7     VPREAD                                            *A03
     6204   01 0205A    558E2386              STH,8    IMAGEMAP,X7       SAVE MAP IMAGE                  *A01
     6205   01 0205B    20700001 A            AI,7     1                 INCR PAGE ADDR                  *A01
     6206   01 0205C    65C02051              BIR,12   SETPADX           READ MAP FOR NEXT PAGE          *A01
     6207   01 0205D    6AF01EF9              BAL,15   MAPSELF           MAP EACH PAGE TO ITSELF         *A01
     6208   01 0205E    68001FE4              B        SCAN              OUTPUT WL REGS                  *A01
     6209                            *                                                                   *A01
     6210         01 0205F           EXITDW   EQU      %                                                 *A01
     6211   01 0205F    32702476              LW,7     Y8                LOAD ALL MAP REGS               *A01
     6212   01 02060    22602386              LI,6     IMAGEMAP          WITH THE MAP IMAGES             *A01
     6213   01 02061    6F6A0000 A            MMC,6    5                 SAVED EARLIER                   *A01
     6214   01 02062    68001FCB              B        EXITDP1           EXIT                            *A01
     6215                            *                                                                   *A01
     6216                            *                                                                   *A03
     6217                            ****     THIS ROUTINE CHECKS THE PARAMETERS FOR                     *A03
     6218                            ****     DP,DA AND DW ROUTINES.                                     *A03
     6219                            *                                                                   *A03
     6220         01 02063           VALPARAM EQU      %                                                 *A03
     6221   01 02063    35F0226D              STW,15   RETURN2           SAVE RETURN ADDR                *A03
     6222   01 02064    3260039C              LW,LINK  #PARAM%H1         GET PARAM 1                     *A03
     6223   01 02065    21600100 A            CI,LINK  256                                               *A03
     6224   01 02066    68102080              BGE      DPER1             ERROR IF .GTE. TO 256           *A03
     6225   01 02067    3560244C              STW,LINK  P1#              SAVE P1#                        *A03
     6226   01 02068    3260039D              LW,LINK  #PARAM%H2         GET PARAM 2                     *A03
     6227   01 02069    6830207B              BEZ      DISONE            BRANCH IF P2# NOT KEYED IN      *A03
     6228   01 0206A    21600100 A            CI,LINK  256                                               *A03
     6229   01 0206B    68102082              BGE      DPER2             ERROR IF .GTE.TO 256            *A03
     6230   01 0206C    3560244D              STW,LINK  P2#              SAVE #P2                        *A03
     6231   01 0206D    3270244C              LW,7     P1#                                               *A03
     6232   01 0206E    3160244C              CW,LINK  P1#               IF P2 G.T. P1                   *A03
     6233   01 0206F    69202074              BG       INITDP            BRANCH                          *A03
     6234   01 02070    3060244C              AW,LINK  P1#               ADD P1 TO P2                    *A03
     6235   01 02071    21600100 A            CI,LINK  X'100'            IF SUM GREATER THAN MAK         *A03
     6236   01 02072    69202082              BG       DPER2             #OF REGS REPORT ERROR           *A03
     6237   01 02073    206FFFFF A            AI,LINK  -1                SUBTRACT 1                      *A03
     6238         01 02074           INITDP   EQU      %                                                 *A03
     6239   01 02074    3570244E              STW,7    CRA               STORE CURRENT REG ADDR          *A03
     6240   01 02075    3560244F              STW,LINK ERA               STORE END REG ADDR              *A03
     6241   01 02076    3310226D              MTW,1    RETURN2           INCR RETURN ADDR                *A03
     6242   01 02077    E800226D              B        *RETURN2          EXIT                            *A03
     6243                            *                                                                   *A03
     6244         01 02078           DISALL   EQU      %                 DISPLAY ALL REG                 *A03
     6245   01 02078    226000FF A            LI,LINK  X'FF'                                             *A03
     6246   01 02079    3560244D              STW,LINK P2#               SET P2# = X'FF'                 *A03
     6247   01 0207A    68002074              B        INITDP                                            *A03
     6248                            *                                                                   *A03
     6249         01 0207B           DISONE   EQU      %                 DISPLAY ONE REG                 *A03
     6250   01 0207B    3560244D              STW,LINK P2#               SET P2 TO 0                     *A03
     6251   01 0207C    3270244C              LW,7     P1#                                               *A03
     6252   01 0207D    68302078              BEZ      DISALL            DISPLAY ALLREGS IF P1=0         *A03
     6253   01 0207E    35700006 A            STW,7    LINK              SET ERA =P1#                    *A03
     6254   01 0207F    68002074              B        INITDP                                            *A03
     6255                            *                                                                   *A03
     6256                            *                                                                   *A03
     6257         01 02080           DPER1    EQU      %                 PARAM1 ERROR                    *A03
     6258   01 02080    128003A2              LD,8     #PARAM1                                           *A03
     6259   01 02081    68002083              B        %+2                                               *A03
     6260                            *                                                                   *A03
     6261         01 02082           DPER2    EQU      %                 PARAM2 ERROR                    *A03
     6262   01 02082    128003A4              LD,8     #PARAM2                                           *A03
     6263   01 02083    15802CC0              STD,8    PARAMER+6                                         *A03
     6264   01 02084    EA6003C5              #TYPE    PARAMER           TYPE PARAMETER ERROR MESSAGE    *A03
            01 02085    EA6003CC
            01 02086    0000B2E8 A
            01 02087    EA6003C6
     6265   01 02088    E800226D              B        *RETURN2          EXIT FOR ERROR RETURN           *A03
     6266                            *                                                                   *A03
     6267                            *
     6268                            ****     THIS ROUTINE SAVES ALL THE REGISTERS;ALSO                  *A03
     6269                            ****     IT SAVES EXISTING XPSD AT X'4C' AND REPLACES IT            *A03
     6270                            ****     WITH GUIDE'S XPSD .                                        *A03
     6271                            *                                                                   *A03
     6272         01 02089           SAVINFO  EQU      %                                                 *A03
     6273   01 02089    02200000 A            LCI      0                                                 *A03
     6274   01 0208A    2B0022F3              STM,0    SAVEREGS          SAVE ALL REGS                   *A03
     6275   01 0208B    3280004C A            LW,8     X'4C'                                             *A03
     6276   01 0208C    358022AF              STW,8    SAV4C             SAVE EXISTING XPSD              *A03
     6277   01 0208D    3280229A              LW,8     PAGEADR                                           *A03
     6278   01 0208E    3580229B              STW,8    SAVPAG            SAVE TEST VP ADDR VALUE         *A03
     6279   01 0208F    32802267              LW,8     GUID:4C                                           *A03
     6280   01 02090    3580004C A            STW,8    X'4C'             REPLACE IT WITH GUIDE7S XPSD    *A03
     6281   01 02091    E800000B A            B        *11               EXIT                            *A03
     6282                            *                                                                   *A03
     6283                            **************************************************************
     6284                            **************************************************************
     6285                            ****     THIS ROUTINE IS ENTERED ON USER KEYIN
     6286                            ****     OF J.
     6287                            **************************************************************
     6288                            **************************************************************
     6289                            *
     6290                            *
     6291   01 02092    0000B430              DATA     BA(PLINE#J),BA(PL#JHDR)
            01 02093    0000B418
     6292                            *
     6293         01 02094           PARAMJ   EQU      %
     6294   01 02094    02200000 A            LCI      0
     6295   01 02095    2B002457              STM,0    SAVE              SAVE REGISTERS
     6296   01 02096    70200006 A            LC       LINK              CHECK IF ANY CHANGES
     6297   01 02097    683020D1              BEZ      PARAMJ#Y          EXIT IF NONE
     6298   01 02098    22800000 A            LI,R8    0
     6299   01 02099    35802456              STW,R8   PARAM%RET         ZERO RETURN STORE
     6300   01 0209A    32802F02              LW,R8     PLINEIN+1        IS MSGDEV=COMDEV
     6301   01 0209B    31802D0F              CW,R8    PLINE#J+3
     6302   01 0209C    683020A7              BE       PARAMJ#A          BRANCH IF YES
     6303   01 0209D    EA6003C2              BAL,LINK  *#ETH%           IS DEVICE RECOG. AND AVAIL.
     6304   01 0209E    04000020 A            GEN,8,24 4,X'20'
     6305   01 0209F    CD000006 A            TIO,0    *LINK
     6306   01 020A0    68C020A7              BCR,12   PARAMJ#A          BRANCH IF YES
     6307   01 020A1    EA6003C5              #TYPE    NOTAVAIL
            01 020A2    EA6003CC
            01 020A3    0000B460 A
            01 020A4    EA6003C6
     6308   01 020A5    33102456              MTW,1    PARAM%RET         SET PARAM FIELD 1 AS ERROR
     6309   01 020A6    680020DC              B        PARAMJ#E
     6310                            *
     6311                            *
     6312   01 020A7    EA6003C2     PARAMJ#A BAL,LINK  *#ETH%           FIND CM
     6313   01 020A8    0100BC1B              GEN,8,24 1,BA(PLINEIN+5)+3
     6314   01 020A9    21600002 A            CI,LINK  2
     6315   01 020AA    682020B2              BLE      PJ#X              BRANCH IF 0 THRU 2 (OK)         *A02
     6316   01 020AB    21600009 A            CI,LINK  9
     6317   01 020AC    692020B0              BG       PJ#Y              BRANCH IF A THRU F              *A02
     6318   01 020AD    33302456     PJ#Z     MTW,3    PARAM%RET         SET PARAM FIELD 3 AS ERROR      *A02
     6319   01 020AE    32802F06              LW,R8     PLINEIN+5        FIND BAD KEYIN
     6320   01 020AF    680020DC              B        PARAMJ#E
     6321                            *
     6322   01 020B0    2160000D A   PJ#Y     CI,LINK   X'D'                                             *A02
     6323   01 020B1    681020AD              BGE      PJ#Z              BRANCH IF D THRU F (ERROR)      *A02
     6324   01 020B2    22900000 A   PJ#X     LI,9     0                                                 *A02
     6325   01 020B3    35902454              STW,9    CMFIXED
     6326   01 020B4    32A00006 A            LW,LOG   LINK              SAVE CM IN LOG REGISTER
     6327                            *
     6328   01 020B5    72602D0C     PARAMJ#X LB,LINK  PLINE#J           COPY UPDATED LINE
     6329   01 020B6    728C2F01              LB,R8     PLINEIN,LINK
     6330   01 020B7    758C2D0C              STB,R8   PLINE#J,LINK
     6331   01 020B8    646020B6              BDR,LINK   %-2
     6332   01 020B9    EA6003C2              BAL,LINK   *#ETH%          FIND NEW MSGDEV
     6333   01 020BA    0400B434              GEN,8,24 4,BA(PLINE#J+1)
     6334   01 020BB    35600397              STW,LINK   #PRTADDR
     6335   01 020BC    EA6003C2              BAL,LINK *#ETH%            FIND SI COUNT
     6336   01 020BD    0300B441              GEN,8,24 3,BA(PLINE#J+4)+1
     6337   01 020BE    35A022CB              STW,LOG  CLMARG
     6338   01 020BF    31602467              CW,LINK  SICOUNT           ALUE CHANGED                    *A02
     6339   01 020C0    683020C7              BE       READCM            NO                              *A02
     6340   01 020C1    35602467              STW,LINK   SICOUNT
     6341   01 020C2    328022D4              LW,8     PASS#             GET PASS#                       *A03
     6342   01 020C3    21800001 A            CI,8     1                 IS IT THE FIRST PASS            *A03
     6343   01 020C4    683020C6              BE       %+2               YES                             *A03
     6344   01 020C5    306022D4              AW,LINK  PASS#             ADD PASS# TO NEW SI COUNT
     6345   01 020C6    356022CA              STW,LINK  NCOUNT           SAVE VALUE
     6346   01 020C7    6C800045 A   READCM   RD,R8    X'45'             FIND EXISTING STATUS            *A02
     6347   01 020C8    4B802453              AND,R8   MARGINMASK        CLEAR MARGIN FIELDS
     6348   01 020C9    21A00002 A            CI,LOG   2                 IS CM A FIXED MARGIN
     6349   01 020CA    682020CE              BLE      %+4               BRANCH IF NO
     6350   01 020CB    22900001 A            LI,9     1
     6351   01 020CC    35902454              STW,9    CMFIXED           SET FLAG
     6352   01 020CD    20AFFFF6 A            AI,LOG   -10               CONVERT A,B,C TO 0,1,2 RESP.
     6353   01 020CE    25A00016 A            SLS,LOG  22                ALIGN CM
     6354   01 020CF    49A00008 A            OR,LOG   R8                NEW CM TO CONTROL LINE
     6355   01 020D0    6DA00045 A            WD,LOG   X'45'             SET MARGINS
     6356         01 020D1           PARAMJ#Y EQU      %
     6357   01 020D1    6C800045 A            RD,8     X'45'             READ VM
     6358   01 020D2    31802490              CW,8     Y001              IF BIT 11 SET                   *A02
     6359   01 020D3    694020D8              BCS,4    GOTO%             VOLTAGES NOT MARGINED           *A02
     6360   01 020D4    EA6003C5              #TYPE    VMMSG2            OUTPUT VOLTAGES ON MARGIN MSG
            01 020D5    EA6003CC
            01 020D6    0000B2CC A
            01 020D7    EA6003C6
     6361         01 020D8           GOTO%    EQU      %
     6362   01 020D8    02200000 A            LCI      0
     6363   01 020D9    2A002457              LM,0     SAVE              RESTORE REGISTERS
     6364   01 020DA    02200010 A            LCI      1                 RETURN TO SAME GO-TO ADDRESS
     6365   01 020DB    E80003C9              B        *#FIDLE%
     6366                            *
     6367   01 020DC    32902455     PARAMJ#E LW,R9    EBCBLNKS
     6368   01 020DD    15802CC0              STD,R8   PARAMER+6
     6369   01 020DE    EA6003C5              #TYPE    PARAMER
            01 020DF    EA6003CC
            01 020E0    0000B2E8 A
            01 020E1    EA6003C6
     6370   01 020E2    02200000 A            LCI      0
     6371   01 020E3    2A002457              LM,0     SAVE              RESTORE REGISTERS
     6372   01 020E4    46602456              XW,LINK   PARAM%RET        ERROR FIELD NO. TO LINK
     6373   01 020E5    E8002456              B        *PARAM%RET
     6374                            *
     6375                            **************************************************************
     6376                            **************************************************************
     6377                            ****     THIS ROUTINE IS ENTERED ON USER KEYIN OF 'T'
     6378                            **************************************************************
     6379                            **************************************************************
     6380                            *
     6381                            *
     6382   01 020E6    0000B49C              DATA     BA(PLIN#T),BA(PL#THDR)
            01 020E7    0000B480
     6383                            *
     6384         01 020E8           PARAMT   EQU      %
     6385   01 020E8    02200000 A            LCI      0
     6386   01 020E9    2B002457              STM,0    SAVE              SAVE REGS
     6387   01 020EA    70200006 A            LC       LINK
     6388   01 020EB    68302109              BEZ      PT#XIT            EXIT IF NO CHANGES
     6389   01 020EC    22800000 A            LI,8     0
     6390   01 020ED    35802456              STW,8    PARAM%RET         RESET ERROR #
     6391   01 020EE    EA6003C2              BAL,LINK *#ETH%            CONVERT PARAM 1
     6392   01 020EF    0400BC0C              GEN,8,24 4,BA(PLINEIN+2)
     6393   01 020F0    21601FFF A            CI,LINK  X'1FFF'
     6394   01 020F1    6920210D              BG       PT#ER1            ERROR IF .GT. 1FFF
     6395   01 020F2    35602468              STW,LINK   TPMAP           STORE MAP TEST PATTERN
     6396   01 020F3    EA6003C2              BAL,LINK *#ETH%            CONVERT PARAM 2
     6397   01 020F4    0200BC16              GEN,8,24 2,BA(PLINEIN+4)+2
     6398   01 020F5    3160246F              CW,LINK  MAPEDPAG          THIS ENTRY CANNOT DEFINE A
     6399   01 020F6    69102110              BL       PT#ER2            PAGE IN PROGRAM REGION
     6400   01 020F7    31602488              CW,LINK  XFF               ALSO CANNOT BE GREATER THAN
     6401   01 020F8    69202110              BG       PT#ER2            MAX VIRTUAL PAGE ADDRESS
     6402   01 020F9    3160246E              CW,LINK  PGMAX             ALSO CANNOT BE GREATER THAN
     6403   01 020FA    69202110              BG       PT#ER2            MAX PAGE IN MEM
     6404   01 020FB    35602469              STW,LINK   TINSTP          SAVE VALUE
     6405   01 020FC    EA6003C2              BAL,LINK *#ETH%            CONVERT PARAM 3
     6406   01 020FD    0200BC1E              GEN,8,24 2,BA(PLINEIN+6)+2
     6407   01 020FE    3160246F              CW,LINK  MAPEDPAG          SAME CHECKS AS FOR PARAM 2
     6408   01 020FF    69102113              BL       PT#ER3
     6409   01 02100    31602488              CW,LINK  XFF
     6410   01 02101    69202113              BG       PT#ER3
     6411   01 02102    3160246E              CW,LINK  PGMAX             ALSO CANNOT BE GREATER THAN
     6412   01 02103    69202113              BG       PT#ER3            MAX PAGE IN MEM
     6413   01 02104    3560246A              STW,LINK   TESTPAGE        SAVE TEST PAGE ADDRESS
     6414   01 02105    72602D27              LB,LINK  PLIN#T            COPY UPDATED LINE
     6415   01 02106    728C2F01              LB,8      PLINEIN,LINK
     6416   01 02107    758C2D27              STB,8    PLIN#T,LINK
     6417   01 02108    64602106              BDR,LINK   %-2
     6418         01 02109           PT#XIT   EQU      %
     6419   01 02109    02200000 A            LCI      0
     6420   01 0210A    2A002457              LM,0     SAVE
     6421   01 0210B    02200010 A            LCI      1
     6422   01 0210C    E80003C9              B        *#FIDLE%          EXIT
     6423                            *
     6424         01 0210D           PT#ER1   EQU      %
     6425   01 0210D    33102456              MTW,1    PARAM%RET         SET PARAM FIELD 1 AS ERROR
     6426   01 0210E    32802F03              LW,8      PLINEIN+2
     6427   01 0210F    68002115              B        PT#ERR
     6428                            *
     6429         01 02110           PT#ER2   EQU      %
     6430   01 02110    33202456              MTW,2    PARAM%RET
     6431   01 02111    32802F05              LW,8      PLINEIN+4
     6432   01 02112    68002115              B        PT#ERR
     6433                            *
     6434         01 02113           PT#ER3   EQU      %
     6435   01 02113    33302456              MTW,3    PARAM%RET
     6436   01 02114    32802F07              LW,8      PLINEIN+6
     6437         01 02115           PT#ERR   EQU      %
     6438   01 02115    32902455              LW,9     EBCBLNKS
     6439   01 02116    15802CC0              STD,8    PARAMER+6
     6440   01 02117    EA6003C5              #TYPE    PARAMER
            01 02118    EA6003CC
            01 02119    0000B2E8 A
            01 0211A    EA6003C6
     6441   01 0211B    02200000 A            LCI      0
     6442   01 0211C    2A002457              LM,0     SAVE
     6443   01 0211D    46602456              XW,LINK  PARAM%RET
     6444   01 0211E    E8002456              B        *PARAM%RET
     6445                            *                                                                   *A01
     6446                            *****************************************************               *A01
     6447                            *****************************************************               *A01
     6448                            ****     THIS ROUTINE IS ENTERED ON USER KEY-IN OF 'K'              *A01
     6449                            *****************************************************               *A01
     6450                            *****************************************************               *A01
     6451                            *                                                                   *A01
     6452   01 0211F    0000B4EC              DATA     BA(PLIN#K)                                        *A01
     6453   01 02120    0000B4D4              DATA     BA(PL#KHDR)                                       *A01
     6454                            *                                                                   *A01
     6455         01 02121           PARAMK   EQU      %                                                 *A01
     6456   01 02121    02200000 A            LCI      0                                                 *A01
     6457   01 02122    2B002457              STM,0    SAVE              SAVE ALL REGS                   *A01
     6458   01 02123    22800010 A            LI,8     X'10'             INIT BYTE 0 OF NEW:TST          *A01
     6459   01 02124    75802297              STB,8    NEW:TST                                           *A01
     6460   01 02125    70200006 A            LC       LINK              IF NONE OF THE FIELDS           *A01
     6461   01 02126    6830216A              BEZ      PK#XIT            CHANGED THEN EXIT               *A01
     6462   01 02127    22800000 A            LI,8     0                                                 *A01
     6463   01 02128    35802456              STW,8    PARAM%RET         CLEAR PARAM ERR FLAG            *A01
     6464   01 02129    32802D3C              LW,8     PLIN#K+1          GET OLD VAL OF TST:NUM          *A01
     6465   01 0212A    31802F02              CW,8     PLINEIN+1         IF NOT CHANGED                  *A01
     6466   01 0212B    68302136              BE       CHK:TSP           CHECK TSP:NUM                   *A01
     6467   01 0212C    EA6003C2              BAL,LINK *#ETH%            CONVERT VALUE                   *A01
     6468   01 0212D    0400BC08              GEN,8,24  4,BA(PLINEIN+1)                                  *A01
     6469   01 0212E    4B602488              AND,LINK XFF                                               *A01
     6470   01 0212F    21600000 A            CI,LINK  0                 IF TST:NUM ZERO                 *A01
     6471   01 02130    6830219C              BE       PK#ER1            REPORT PARAM ERR                *A01
     6472   01 02131    31602298              CW,LINK  LST:TST           IF TST:NUM GREATER THAN         *A01
     6473   01 02132    6920219C              BG       PK#ER1            LAST TEST # REPORT ERR          *A01
     6474   01 02133    356003F0              STW,LINK TST:NUM           STORE NEW VAL OF TST:NUM        *A01
     6475   01 02134    32902F02              LW,9     PLINEIN+1         COPY VAL IN K CONTROL LINE      *A01
     6476   01 02135    35902D3C              STW,9    PLIN#K+1                                          *A01
     6477         01 02136           CHK:TSP  EQU      %                                                 *A01
     6478   01 02136    32802D3E              LW,8     PLIN#K+3          GET OLD VAL OF TSP:NUM          *A01
     6479   01 02137    31802F04              CW,8     PLINEIN+3         IF NOT CHANGED                  *A01
     6480   01 02138    68302145              BE       CHK:TCR           CHECK TCR:NUM                   *A01
     6481   01 02139    EA6003C2              BAL,LINK *#ETH%            CONVERT VALUE                   *A01
     6482   01 0213A    0400BC10              GEN,8,24  4,BA(PLINEIN+3)                                  *A01
     6483   01 0213B    4B602488              AND,LINK XFF                                               *A01
     6484   01 0213C    21600000 A            CI,LINK  0                 IF TSP:NUM ZERO                 *A01
     6485   01 0213D    6830219F              BE       PK#ER2            REPORT PARAM ERR.               *A01
     6486   01 0213E    2160002F A            CI,LINK  LAST:TST          IF GREATER THAN LAST TEST #     *A01
     6487   01 0213F    6920219F              BG       PK#ER2            REPORT PARAM ERR.               *A01
     6488   01 02140    316003F0              CW,LINK  TST:NUM           IF LESS THAN TST:NUM            *A01
     6489   01 02141    6910219F              BL       PK#ER2            REPORT PARAM ERR.               *A01
     6490   01 02142    356003F1              STW,LINK TSP:NUM           STORE NEW VAL OF TSP:NUM        *A01
     6491   01 02143    32902F04              LW,9     PLINEIN+3         COPY VAL IN K CONTROL LINE      *A01
     6492   01 02144    35902D3E              STW,9    PLIN#K+3                                          *A01
     6493         01 02145           CHK:TCR  EQU      %                                                 *A01
     6494   01 02145    32802D40              LW,8     PLIN#K+5          GET OLD VAL OF TCR:NUM          *A01
     6495   01 02146    31802F06              CW,8     PLINEIN+5         IF NOT CHANGED CHECK THAT       *A01
     6496   01 02147    68302159              BE       TCR:SET           IT IS BETWEEN FIRST & LAST      *A01
     6497   01 02148    22800000 A            LI,8     0                 SET BYTE 0 OF NEW:TST           *A01
     6498   01 02149    75802297              STB,8    NEW:TST           TO ZERO                         *A01
     6499   01 0214A    EA6003C2              BAL,LINK *#ETH%            CONVERT VALUE                   *A01
     6500   01 0214B    0400BC18              GEN,8,24  4,BA(PLINEIN+5)                                  *A01
     6501   01 0214C    4B602488              AND,LINK XFF                                               *A01
     6502   01 0214D    316003F0              CW,LINK  TST:NUM           IF LESS THAN TST:NUM FORCE      *A01
     6503   01 0214E    69102155              BL       SET:TCR           IT TO TST:NUM                   *A01
     6504   01 0214F    316003F1              CW,LINK  TSP:NUM           IF GREATER THAN TSP:NUM         *A01
     6505   01 02150    69202155              BG       SET:TCR           FORCE IT TO TST:NUM             *A01
     6506   01 02151    356003F2              STW,LINK TCR:NUM           STORE NEW VAL OF TCR:NUM        *A01
     6507   01 02152    32902F06              LW,9     PLINEIN+5         COPY VAL IN K CONTROL LINE      *A01
     6508   01 02153    35902D40              STW,9    PLIN#K+5                                          *A01
     6509   01 02154    68002159              B        TCR:SET                                           *A01
     6510                            *                                                                   *A01
     6511         01 02155           SET:TCR  EQU      %                                                 *A01
     6512   01 02155    32902D3C              LW,9     PLIN#K+1          FORCE TCR:NUM TO TST:NUM        *A01
     6513   01 02156    35902D40              STW,9    PLIN#K+5          CHANGE CONTROL LINE ACCORD.     *A01
     6514   01 02157    329003F0              LW,9     TST:NUM                                           *A01
     6515   01 02158    359003F2              STW,9    TCR:NUM                                           *A01
     6516         01 02159           TCR:SET  EQU      %                                                 *A01
     6517   01 02159    328003F0              LW,8     TST:NUM           GET TST:NUM                     *A01
     6518   01 0215A    318003F2              CW,8     TCR:NUM           IF L.T.E TO TCR:NUM             *A01
     6519   01 0215B    68202164              BLE      LROK              LOWER RANGE OK                  *A01
     6520         01 0215C           COR:HR   EQU      %                                                 *A01
     6521   01 0215C    328003F0              LW,8     TST:NUM           GET TST:NUM                     *A01
     6522   01 0215D    358003F2              STW,8    TCR:NUM           STORE IT IN TCR:NUM             *A01
     6523   01 0215E    32802D3C              LW,8     PLIN#K+1          CHANGE CONTROL ALSO             *A01
     6524   01 0215F    35802D40              STW,8    PLIN#K+5                                          *A01
     6525   01 02160    22800000 A            LI,8     0                 SET BYTE0 TO ZERO               *A01
     6526   01 02161    75802297              STB,8    NEW:TST                                           *A01
     6527   01 02162    328003F1              LW,8     TSP:NUM           CHECK IF TSP:NUM                *A01
     6528   01 02163    68002167              B        LROK+3            G.T.E.TO TST:NUM                *A01
     6529                            *                                                                   *A01
     6530         01 02164           LROK     EQU      %                                                 *A01
     6531   01 02164    328003F1              LW,8     TSP:NUM           GET TSP:NUM                     *A01
     6532   01 02165    318003F2              CW,8     TCR:NUM           IF LESS THAN TCR:NUM            *A01
     6533   01 02166    6910215C              BL       COR:HR            CORRECT TCR:NUM                 *A01
     6534   01 02167    318003F0              CW,8     TST:NUM           IF TSP:NUM G.T.E.TO             *A01
     6535   01 02168    6810216A              BGE      PK#XIT            TST:NUM,EXIT                    *A01
     6536   01 02169    6800219C              B        PK#ER1            REPORT PARAM ERR.               *A01
     6537                            *                                                                   *A01
     6538         01 0216A           PK#XIT   EQU      %                                                 *A01
     6539   01 0216A    328022EA              LW,8     SIGMA8            IF NOT SIGMA 8                  *A01
     6540   01 0216B    68302176              BEZ      K#XIT             EXIT                            *A01
     6541   01 0216C    328003F0              LW,8     TST:NUM           GET TST:NUM                     *A01
     6542   01 0216D    21800005 A            CI,8     TNUM5             IF LESS THAN X'5'               *A03
     6543   01 0216E    69102192              BL       CHK:LTST          CHECK LAST TEST                 *A01
     6544   01 0216F    21800020 A            CI,8     TNUM31            IF G.T. X'20'                   *A03
     6545   01 02170    69202176              BG       K#XIT             EXIT                            *A01
     6546   01 02171    EA6003C5              #TYPE    TRNG2             OUTPUT OUT OF RANGE MSG         *A02
            01 02172    EA6003CC
            01 02173    0000B5D0 A
            01 02174    EA6003C6
     6547   01 02175    6800219C              B        PK#ER1            REPORT ERROR                    *A01
     6548         01 02176           K#XIT    EQU      %                                                 *A01
     6549   01 02176    32802297              LW,8     NEW:TST           TCR:NUM CHANGED                 *A02
     6550   01 02177    6930218B              BNEZ     SAM:TCR           NO
     6551   01 02178    22800000 A            LI,8     0                                                 *A02
     6552   01 02179    35802314              STW,8    MAPPTRN+16                                        *A02
     6553   01 0217A    6AF01EF2              BAL,15   INITREGS
     6554   01 0217B    32802258              LW,8     X40TRAP           SET UP XPSD                     *A02
     6555   01 0217C    35800040 A            STW,8    X'40'             AT X'40'                        *A02
     6556   01 0217D    32802259              LW,8     CAL1TRAP          SET UP XPSD                     *A02
     6557   01 0217E    35800048 A            STW,8    X'48'             AT X'48'                        *A02
     6558   01 0217F    3280225A              LW,8     CAL2TRAP          SET UP XPSD                     *A02
     6559   01 02180    35800049 A            STW,8    X'49'             AT X'49'                        *A02
     6560   01 02181    32802267              LW,8     GUID:4C           RESTORE GUID'S XPSD'S           *A02
     6561   01 02182    3580004C A            STW,8    X'4C'                                             *A02
     6562   01 02183    32802268              LW,8     GUID:4D                                           *A02
     6563   01 02184    3580004D A            STW,8    X'4D'                                             *A02
     6564   01 02185    32802269              LW,8     GUID:55                                           *A02
     6565   01 02186    35800055 A            STW,8    X'55'                                             *A02
     6566   01 02187    3280226A              LW,8     GUID:5B                                           *A02
     6567   01 02188    3580005B A            STW,8    X'5B'                                             *A02
     6568   01 02189    3280226B              LW,8     GUID:5D                                           *A02
     6569   01 0218A    3580005D A            STW,8    X'5D'                                             *A02
     6570         01 0218B           SAM:TCR  EQU      %                                                 *A02
     6571   01 0218B    02200000 A            LCI      0                 RESTORE REGS                    *A01
     6572   01 0218C    2A002457              LM,0     SAVE                                              *A01
     6573   01 0218D    70302297              LCF      NEW:TST           GO TO GUIDE 'IDLE'              *A01
     6574   01 0218E    EA6003C9              BAL,LINK *#FIDLE%          IF CC NOT EQUAL TO 0            *A01
     6575   01 0218F    00002190              DATA     RESTART           RESUME FROM INT. POINT          *A01
     6576                            *                                   OTHERWISE START FROM 'TST:CONTA'*A01
     6577                                     BOUND    8                                                 *A01
     6578   01 02190    000010B1     RESTART  DATA     TST:CONTA                                         *A01
     6579   01 02191    00000000 A            DATA     0                                                 *A01
     6580                            *                                                                   *A01
     6581         01 02192           CHK:LTST EQU      %                                                 *A01
     6582   01 02192    328003F1              LW,8     TSP:NUM           IF LAST TEST #                  *A01
     6583   01 02193    21800005 A            CI,8     TNUM5             IF LESS THAN X'5'               *A03
     6584   01 02194    69102176              BL       K#XIT             EXIT                            *A01
     6585   01 02195    21800020 A            CI,8     TNUM31            IF G.T. X'20'                   *A03
     6586   01 02196    69202176              BG       K#XIT             EXIT                            *A01
     6587   01 02197    EA6003C5              #TYPE    TRNG2             OUTPUT OUT OF RANGE MSG         *A02
            01 02198    EA6003CC
            01 02199    0000B5D0 A
            01 0219A    EA6003C6
     6588   01 0219B    6800219F              B        PK#ER2            REPORT ERROR                    *A01
     6589                            *                                                                   *A01
     6590         01 0219C           PK#ER1   EQU      %                                                 *A01
     6591   01 0219C    33102456              MTW,1    PARAM%RET                                         *A01
     6592   01 0219D    32802F02              LW,8     PLINEIN+1                                         *A01
     6593   01 0219E    680021A1              B        PK#ERR                                            *A01
     6594                            *                                                                   *A01
     6595         01 0219F           PK#ER2   EQU      %                                                 *A01
     6596   01 0219F    33202456              MTW,2    PARAM%RET                                         *A01
     6597   01 021A0    32802F04              LW,8     PLINEIN+3                                         *A01
     6598         01 021A1           PK#ERR   EQU      %                                                 *A01
     6599   01 021A1    32902455              LW,9     EBCBLNKS                                          *A01
     6600   01 021A2    15802CC0              STD,8    PARAMER+6                                         *A01
     6601   01 021A3    EA6003C5              #TYPE    PARAMER                                           *A01
            01 021A4    EA6003CC
            01 021A5    0000B2E8 A
            01 021A6    EA6003C6
     6602   01 021A7    02200000 A            LCI      0                                                 *A01
     6603   01 021A8    2A002457              LM,0     SAVE                                              *A01
     6604   01 021A9    46602456              XW,LINK  PARAM%RET                                         *A01
     6605   01 021AA    E8002456              B        *PARAM%RET                                        *A01
     6606                            *                                                                   *A01
     6607                            *                                                                   *A01
     6608                            *                                                                   *A01
     6609                            **********************************************************          *A01
     6610                            ******************************************************
     6611                            ****     ENTER HERE WHENEVER THERE IS A
     6612                            ****     NON-ALLOWED OPERATION TRAP TO X'40'.
     6613                            **************************************************************
     6614                            **************************************************************
     6615                            *
     6616                            *
     6617                                     BOUND    8
     6618   01 021AC    00000000 A   TRAP40   DATA     0
     6619   01 021AD    00000000 A            DATA     0
     6620   01 021AE    000021B0              DATA     %+2
     6621   01 021AF    00000000 A            DATA     0
     6622   01 021B0    740022ED              STCF     SAVECC            SAVE CONDITION CODES
     6623   01 021B1    02200000 A            LCI      0
     6624   01 021B2    2B0022F3              STM,0    SAVEREGS          SAVE ALL REGISTERS
     6625   01 021B3    321022ED              LW,1     SAVECC            GET TRAP CC                     *A02
     6626   01 021B4    3110248B              CW,1     Y1                PROTECT VIOLATION TRAP          *A02
     6627   01 021B5    68402205              BCR,4    UNXTRAP           NO                              *A02
     6628   01 021B6    321003F2              LW,X1    TCR:NUM           LOAD TEST# IN X1                *A01
     6629   01 021B7    680221B7              B        %,X1
     6630   01 021B8    68002205              B        UNXTRAP           FOR TEST 1
     6631   01 021B9    68002205              B        UNXTRAP           FOR TEST 2                      *A03
     6632   01 021BA    68002205              B        UNXTRAP           FOR TEST 3
     6633   01 021BB    68002205              B        UNXTRAP           FOR TEST 5
     6634   01 021BC    68002205              B        UNXTRAP           FOR TEST 6
     6635   01 021BD    68002205              B        UNXTRAP           FOR TEST 7
     6636   01 021BE    68002205              B        UNXTRAP           FOR TEST 8
     6637   01 021BF    68002205              B        UNXTRAP           FOR TEST 9
     6638   01 021C0    68002205              B        UNXTRAP           FOR TEST 10
     6639   01 021C1    68002205              B        UNXTRAP           FOR TEST 11
     6640   01 021C2    68002205              B        UNXTRAP           FOR TEST 12
     6641   01 021C3    68002205              B        UNXTRAP           FOR TEST 13
     6642   01 021C4    68001456              B        ACMEMPR           FOR TEST 14
     6643   01 021C5    680014BC              B        T15ERTRP          FOR TEST 15
     6644   01 021C6    680014FE              B        T16OKTRP          FOR TEST 16
     6645   01 021C7    680014FE              B        T17OKTRP          FOR TEST 17
     6646   01 021C8    680014FE              B        T18OKTRP          FOR TEST 18
     6647   01 021C9    680014FE              B        T19OKTRP          FOR TEST 19
     6648   01 021CA    68001555              B        T20OKTRP          FOR TEST 20
     6649   01 021CB    68001590              B        T21ERTRP          FOR TEST 21
     6650   01 021CC    680015C0              B        T22ERTRP          FOR TEST 22
     6651   01 021CD    680015F7              B        T23ERTRP          FOR TEST 23
     6652   01 021CE    6800165E              B        T24OKTRP          FOR TEST 24
     6653   01 021CF    6800179B              B        T25ERTRP          FOR TEST 25
     6654   01 021D0    68002205              B        UNXTRAP           FOR TEST 26
     6655   01 021D1    68002205              B        UNXTRAP           FOR TEST 27
     6656   01 021D2    68002205              B        UNXTRAP           FOR TEST 28
     6657   01 021D3    68001800              B        T29ERTRP          FOR TEST 29
     6658   01 021D4    68001824              B        T30OKTRP          FOR TEST 30
     6659   01 021D5    68002205              B        UNXTRAP           FOR TEST 31
     6660   01 021D6    68001884              B        T32ERTRP          FOR TEST 32                     *A03
     6661   01 021D7    68002205              B        UNXTRAP           FOR TEST 33
     6662   01 021D8    68002205              B        UNXTRAP           FOR TEST 34
     6663   01 021D9    68001972              B        WLWKTRP           FOR TEST 35
     6664   01 021DA    68001A0A              B        T36ERTRP          FOR TEST 36
     6665   01 021DB    68001A44              B        T37ERTRP          FOR TEST 37
     6666   01 021DC    68001A6C              B        T38ERTRP          FOR TEST 38
     6667   01 021DD    6800165E              B        T39OKTRP          FOR TEST 39
     6668   01 021DE    68002205              B        UNXTRAP           FOR TEST 40
     6669   01 021DF    68002205              B        UNXTRAP           FOR TEST 42
     6670   01 021E0    68001B9C              B        T43OKTRP          FOR TEST 43
     6671   01 021E1    68002205              B        UNXTRAP           FOR TEST 44
     6672   01 021E2    68002205              B        UNXTRAP           FOR TEST 45
     6673   01 021E3    68002205              B        UNXTRAP           FOR TEST 46
     6674   01 021E4    68002205              B        UNXTRAP           FOR TEST 47
     6675   01 021E5    68001CCC              B        T48ERTRP          FOR TEST 48
     6676   01 021E6    68002205              B        UNXTRAP           FOR TEST 49
     6677                            *
     6678                            *
     6679                            ****     THIS ROUTINE FORMATS PSW1,PSW2 AND TRAP
     6680                            ****     CONDITION CODES .
     6681                            *
     6682         01 021E7           TRAPPSD  EQU      %
     6683   01 021E7    6D000032 A            #HTECON  UNKNPSD           CONVERT PSW1
            01 021E8    EA6003C3
            01 021E9    0000221E
            01 021EA    6D000022 A
     6684   01 021EB    2A8C0000 A            LM,8     0,LINK
     6685   01 021EC    02200020 A            LCI      2
     6686   01 021ED    2B802D55              STM,8    UNKNTRP1+3        STORE PSW1
     6687   01 021EE    6D000032 A            #HTECON  UNKNPSD+1         CONVERT PSW2
            01 021EF    EA6003C3
            01 021F0    0000221F
            01 021F1    6D000022 A
     6688   01 021F2    2A8C0000 A            LM,8     0,LINK
     6689   01 021F3    02200020 A            LCI      2
     6690   01 021F4    2B802D59              STM,8    UNKNTRP1+7        STORE PSW2
     6691   01 021F5    6D000032 A            #HTECON  SAVECC            CONVERT CONDITION CODES
            01 021F6    EA6003C3
            01 021F7    000022ED
            01 021F8    6D000022 A
     6692   01 021F9    25600002 A            SLS,LINK   2               GET BYTE ADDR
     6693   01 021FA    728C0000 A            LB,8     0,LINK
     6694   01 021FB    75802D5D              STB,8    UNKNTRP1+11       STORE CC
     6695   01 021FC    6D000032 A            #HTECON  REGSAVE           CONVERT ADDR WHERE REGS SAVED
            01 021FD    EA6003C3
            01 021FE    000022EE
            01 021FF    6D000022 A
     6696   01 02200    2A8C0000 A            LM,8     0,LINK
     6697   01 02201    4B802475              AND,8    Y4040             INSERT TWO BLANKS
     6698   01 02202    02200020 A            LCI      2
     6699   01 02203    2B802D61              STM,8    UNKNTRP1+15       STORE ADDR
     6700   01 02204    E800000B A            B        *R11              EXIT
     6701                            *
     6702                            *
     6703         01 02205           UNXTRAP  EQU      %
     6704   01 02205    128021AC              LD,8     TRAP40
     6705   01 02206    1580221E              STD,8    UNKNPSD           SAVE PSD
     6706   01 02207    6AB021E7              BAL,R11  TRAPPSD           GET TRAP INFO
     6707   01 02208    6D000032 A            #HTECON  TCR:NUM                                           *A01
            01 02209    EA6003C3
            01 0220A    000003F2
            01 0220B    6D000022 A
     6708   01 0220C    328C0001 A            LW,8     1,LINK
     6709   01 0220D    55802D51              STH,8    UNKNTRP+10
     6710   01 0220E    EA6003C5              #TYPE    UNKNTRP           PRINT UNKNOWN TRAP MESSAGE
            01 0220F    EA6003CC
            01 02210    0000B51C A
            01 02211    EA6003C6
     6711   01 02212    EA6003C5              #TYPE    UNKNTRP1
            01 02213    EA6003CC
            01 02214    0000B548 A
            01 02215    EA6003C6
     6712   01 02216    02200000 A            LCI      0                                                 *A02
     6713   01 02217    2A0022F3              LM,0     SAVEREGS          RESTORE REGISTERS               *A02
     6714   01 02218    02200000 A            LCI      0                 SET CC=0 TO START               *A02
     6715   01 02219    EA6003C9              BAL,LINK *#FIDLE%          AT BEGINNING OF TEST            *A02
     6716   01 0221A    0000221C              DATA     TRAPRET                                           *A02
     6717                                     BOUND    8                                                 *A02
     6718   01 0221C    000003F4     TRAPRET  DATA     TST:ADR                                           *A02
     6719   01 0221D    00000000 A            DATA     0                                                 *A02
     6720                            *
     6721                                     BOUND    8
     6722   01 0221E    00000000 A   UNKNPSD  DATA     0
     6723   01 0221F    00000000 A            DATA     0
     6724                            *
     6725                            ****************************************************************
     6726                            ****************************************************************
     6727                            ****     ENTER HERE WHENEVER THERE IS A CAL1
     6728                            ****     TRAP TO X'48'.
     6729                            ****************************************************************
     6730                            ****************************************************************
     6731                            *
     6732                            *
     6733                                     BOUND    8
     6734   01 02220    00000000 A   TRAPCAL1 DATA     0
     6735   01 02221    00000000 A            DATA     0
     6736   01 02222    00002224              DATA     %+2
     6737   01 02223    00000000 A            DATA     0
     6738   01 02224    680013E4              B        MAPCAL1           GO TO MAP OPERATIONAL TEST
     6739   01 02225    680014B0              B        T15CAL1           PROTECT LOGIC TEST1
     6740   01 02226    680015B6              B        T22CAL1           PROTECT LOGIC TEST 5
     6741   01 02227    680015EA              B        T23CAL1           PROTECT LOGIC TEST 6
     6742   01 02228    6800167E              B        T24CAL1           PROTECT LOGIC TEST 7
     6743   01 02229    680017C4              B        T28CAL1           MASTER MODE TEST 1
     6744   01 0222A    680017F6              B        T29CAL1           MASTER MODE TEST 2
     6745   01 0222B    68001835              B        T30CAL1           MASTER MODE TEST3
     6746   01 0222C    68001852              B        T31CAL1           MASTER MODE TEST 4
     6747   01 0222D    68001A3A              B        T37CAL1           WRITE LOCK PROTECT TEST 2
     6748   01 0222E    68001A60              B        T38CAL1           WRITE LOCK PROTECT TEST 3
     6749   01 0222F    68001BBD              B        T43CAL1           MMC INST TEST 4;MASTER PROTECT MODE
     6750   01 02230    6800187A              B        T32CAL1           LRA INST;MASTER PROTECT MODE    *A03
     6751                            *
     6752                            *
     6753                            **************************************************************
     6754                            **************************************************************
     6755                            ****     ENTER HERE WHENEVER THERE IS A CAL2
     6756                            ****     TRAP TO X'49'.
     6757                            **************************************************************
     6758                            **************************************************************
     6759                            *
     6760                            *
     6761                                     BOUND    8
     6762   01 02232    00000000 A   TRAPCAL2 DATA     0
     6763   01 02233    00000000 A            DATA     0
     6764   01 02234    00002236              DATA     %+2
     6765   01 02235    00000000 A            DATA     0
     6766   01 02236    68001478              B        ACCAL2            ACCESS CONTROL OPERATIONAL TEST
     6767   01 02237    6800185B              B        T31CAL2           MASTER MODE TEST 4
     6768                            *
     6769         01 02238           ADMODCHK EQU      %
     6770   01 02238    00002EC4              DATA     CHK1
     6771   01 02239    00002ECE              DATA     CHK2
     6772   01 0223A    00002EDA              DATA     CHK3
     6773   01 0223B    00002EE3              DATA     CHK4
     6774   01 0223C    00002EC4              DATA     CHK1
     6775   01 0223D    00002EDA              DATA     CHK3
     6776   01 0223E    00002EEE              DATA     CHK5
     6777   01 0223F    00002EF6              DATA     CHK6
     6778   01 02240    00002EEE              DATA     CHK5
     6779   01 02241    00002EF6              DATA     CHK6
     6780                            *
     6781   01 02242    00000000 A   MODULE#  DATA     0
     6782                            *
     6783                            *
     6784                                     BOUND    8
     6785         01 02244           LRA      TEXTS    '   LRA  '
     6786         01 02246           MAP      TEXTS    '   MAP  '
     6787         01 02248           AC       TEXTS    '    AC  '
     6788         01 0224A           MMT      TEXTS    '   MMT  '
     6789         01 0224C           WL       TEXTS    '    WL  '
     6790         01 0224E           MMC      TEXTS    '   MMC  '
     6791                            *
     6792         01 02250           AC#      TEXTS    'AC= '
     6793         01 02251           WL#      TEXTS    'WL= '
     6794         01 02252           DID      TEXTS    ' DID'
     6795         01 02253           NOT      TEXTS    ' NOT'
     6796                            *
     6797         01 02254           YES      TEXTS    ' YES'
     6798         01 02255           NO       TEXTS    '  NO'
     6799                            *
     6800         01 02256           AC%      TEXTS    'AC  '
     6801         01 02257           WL%      TEXTS    'WL  '
     6802                            *
     6803                            *
     6804   01 02258    0F0021AC     X40TRAP  XPSD,0   TRAP40
     6805                            *
     6806   01 02259    0F402220     CAL1TRAP XPSD,4   TRAPCAL1
     6807   01 0225A    0F402232     CAL2TRAP XPSD,4   TRAPCAL2
     6808   01 0225B    33F02260     MTW55    MTW,-1   COUNTER4
     6809   01 0225C    33F03C00 A   MTW55A   MTW,-1   X'3C00'
     6810   01 0225D    0F001788     INT5D    XPSD,0   CPINTA                                            *A02
     6811   01 0225E    0F001CFE     XPSD4C   XPSD,0   MEMPAR
     6812   01 0225F    0F0011E8     XPSD4CX  XPSD,0   LRATRAP                                           *A03
     6813   01 02260    00000001 A   COUNTER4 DATA     1
     6814   01 02261    0F0018B0     INTCNT4Z XPSD,0   CNT4ZRO
     6815   01 02262    0F001B78     INTX5D   XPSD,0   CPINT                                             *A01
     6816   01 02263    20801AFC N   SNAP:INT GEN,8,1,7,16  X'20',1,0,MMC1                               *A01
     6817   01 02264    08803DFF A   SNAP:WAT GEN,8,1,7,16  8,1,0,X'3DFF'                                *A02
     6818   01 02265    0F001C2C     IETMMC   XPSD,0   MMCIET
     6819   01 02266    20000000 A   MPEBIT   DATA     X'20000000'
     6820                            *
     6821   01 02267    00000000 A   GUID:4C  DATA     0
     6822   01 02268    00000000 A   GUID:4D  DATA     0
     6823   01 02269    00000000 A   GUID:55  DATA     0
     6824   01 0226A    00000000 A   GUID:5B  DATA     0
     6825   01 0226B    00000000 A   GUID:5D  DATA     0
     6826                            *
     6827   01 0226C    00000000 A   RETURN1  DATA     0                                                 *A03
     6828   01 0226D    00000000 A   RETURN2  DATA     0                                                 *A03
     6829   01 0226E    00000000 A   RETURN3  DATA     0                                                 *A03
     6830   01 0226F    00000000 A   RETURN5  DATA     0                                                 *A03
     6831   01 02270    00000000 A   RETURN6  DATA     0                                                 *A03
     6832   01 02271    00000000 A   RETURN7  DATA     0                                                 *A03
     6833   01 02272    00000000 A   LRARETURN DATA    0                                                 *A03
     6834   01 02273    00000000 A   LRAINSTX DATA     0                                                 *A03
     6835                            *
     6836                            *
     6837   01 02274    04000000 A   CALL1    CAL1,0   0
     6838   01 02275    0F000000 A   OPCXPSD  XPSD,0   0
     6839                            *
     6840   01 02276    04800000 A   CAL1INST CAL1,8   0
     6841   01 02277    05100000 A   CAL2INST CAL2,1   0
     6842                            *
     6843   01 02278    00000000 A   REMOT:GD DATA     0                                                 *A02
     6844   01 02279    00002DEF     ADRSTHD  DATA     STHD1                                             *A02
     6845                            *
     6846   01 0227A    00000000 A   SAVRESLT DATA     0
     6847                            *
     6848                                     BOUND    8                                                 *A03
     6849   01 0227C    00000000 A   CONSTANT DATA     0                                                 *A03
     6850   01 0227D    00000000 A   EXPCC    DATA     0                                                 *A03
     6851   01 0227E    00000000 A   ACTCC    DATA     0                                                 *A03
     6852                            *
     6853   01 0227F    00000000 A   ACTLRA   DATA     0                 REAL ADRS OBTAINED BY USING LRA.*A04
     6854   01 02280    00000000 A   EXPLRA   DATA     0                 REAL ADRS EXPECTED              *A04
     6855   01 02281    00000000 A   C1C2     DATA     0                 TOP 2 BITS CC1,2 SETTINGS FOR LRA TEST
     6856   01 02282    0300B60C     XELRA1   GEN,8,2,22  3,0,BA(ELRA1)
     6857   01 02283    0100B6B4     XELRA2   GEN,8,2,22  1,0,BA(ELRA2)
     6858                            *
     6859   01 02284    0200B6FC     XEMAPF   GEN,8,2,22  2,0,BA(VP)
     6860                            *
     6861   01 02285    0300B6FC     XEACF    GEN,8,2,22  3,0,BA(VP)
     6862         01 02284           XEWLF1   EQU      XEMAPF
     6863   01 02286    0100B740     XEWLF2   GEN,8,2,22  1,0,BA(WLX)
     6864                            *
     6865   01 02287    69801619     T24LUPAD BCS,8    LOPT24
     6866   01 02288    69801A89     T39LUPAD BCS,8    LOPT39
     6867                            *
     6868   01 02289    0000AC28     BA:MHD1  DATA     BA(MHD1)
     6869   01 0228A    0000AC64     BA:MHD2  DATA     BA(MHD2)
     6870   01 0228B    0000ACAC     BA:MHD3  DATA     BA(MHD3)
     6871   01 0228C    0000ACF4     BA:MMCX1 DATA     BA(MMCX1)
     6872   01 0228D    0000AD3C     BA:MMCX2 DATA     BA(MMCX2)
     6873   01 0228E    0000AD84     BA:MMCX3 DATA     BA(MMCX3)
     6874                            *
     6875         01 0228F           MPEPATT  EQU      %
     6876   01 0228F    00001400 A            DATA     X'1400'
     6877   01 02290    00001FFD A            DATA     X'1FFD'
     6878   01 02291    000002AF A            DATA     X'02AF'
     6879   01 02292    00000952 A            DATA     X'0952'
     6880   01 02293    00000049 A            DATA     X'0049'
     6881   01 02294    00000BB4 A            DATA     X'0BB4'
     6882   01 02295    000008E6 A            DATA     X'08E6'
     6883   01 02296    0000031B A            DATA     X'031B'
     6884                            *
     6885                            *
     6886   01 02297    00000000 A   NEW:TST  DATA     0                                                 *A01
     6887   01 02298    00000000 A   LST:TST  DATA     0                                                 *A01
     6888         0000002F           LAST:TST EQU      X'2F'                                             *A03
     6889                            *                                                                   *A01
     6890                            ****
     6891                            ****
     6892                            *
     6893   01 02299    00000000 A   VPREAD   DATA     0                                                 *A03
     6894   01 0229A    00000000 A   PAGEADR  DATA     0                                                 *A03
     6895   01 0229B    00000000 A   SAVPAG   DATA     0                                                 *A03
     6896   01 0229C    000000FF A   LASTPAGE DATA     X'FF'                                             *A03
     6897   01 0229D    00000000 A   TESTPATN DATA     0                 TEST PATTERN FOR 2 REGS OF MAP
     6898   01 0229E    00000000 A   TESTVP   DATA     0
     6899   01 0229F    00000000 A   READVP   DATA     0
     6900   01 022A0    00000000 A   MAPREAD  DATA     0
     6901   01 022A1    00000000 A   MAPLOAD  DATA     0
     6902                            *
     6903   01 022A2    00000000 A   TPAC     DATA     0                 TEST PAGE AC
     6904         01 022A2           TPWL     EQU      TPAC
     6905   01 022A3    00000000 A   WLTP     DATA     0                                                 *A03
     6906   01 022A4    00000000 A   SAVEADDR DATA     0
     6907                            *
     6908   01 022A5    68000000 A   HEX68    DATA     X'68000000'
     6909   01 022A6    00000000 A   STOREAT  DATA     0
     6910                            *
     6911   01 022A7    67000000 A   EXU67    DATA     X'67000000'       EXU INST OP CODE
     6912                            *
     6913                                     BOUND    8
     6914   01 022A8                 SAVRS    RES      4
     6915                            *
     6916                            *
     6917                            *
     6918   01 022AC    00000000 A   WLWKFLG  DATA     0                 SET IF TRAP EXPECTED
     6919   01 022AD    00000000 A   EXPDATA  DATA     0
     6920   01 022AE    00000000 A   ACTDATA  DATA     0
     6921   01 022AF    00000000 A   SAV4C    DATA     0                                                 *A03
     6922   01 022B0    00000000 A   XSAVE    DATA     0                                                 *A03
     6923   01 022B1    00000000 A   SAVR6    DATA     0
     6924   01 022B2    00000000 A   SAVR8    DATA     0
     6925   01 022B3    00000000 A   SAVR9    DATA     0
     6926   01 022B4    00000000 A   SAVCNT   DATA     0
     6927                            *
     6928   01 022B5    00000000 A   TEMP1    DATA     0
     6929   01 022B6    00000000 A   IMAGE    DATA     0
     6930   01 022B7    3280227E     ACBITS   LW,8     ACTCC                                             *A03
     6931   01 022B8    25800204 A   SCSL4    SCS,8    4                                                 *A03
     6932   01 022B9    02000000 A   NOP      NOP                                                        *A03
     6933   01 022BA    25800208 A   SCSL8    SCS,8    8                                                 *A03
     6934                            *
     6935   01 022BB    00000000 A   FIRSTLOD DATA     0
     6936   01 022BC    00000000 A   TRAPFLG  DATA     0
     6937   01 022BD    00000000 A   TRAPCC   DATA     0
     6938   01 022BE    00000000 A   WORK1    DATA     0
     6939   01 022BF    00000000 A   WORK2    DATA     0
     6940   01 022C0    00000000 A   WORK3    DATA     0
     6941   01 022C1    33100000 A   MTWI     MTW,1    0
     6942                            *
     6943   01 022C2    00001AFC     ADRMMC1  DATA     WA(MMC1)
     6944                            *
     6945   01 022C3    00001CE7     EXPADR   DATA     WA(MMCTRAP)
     6946   01 022C4    01234567 A   EXPWL    DATA     X'01234567'
     6947   01 022C5    00000000 A   WORK4    DATA     0
     6948   01 022C6    00000000 A   WORK5    DATA     0
     6949   01 022C7    00000000 A   WORK6    DATA     0
     6950   01 022C8    00000000 A   WORK7    DATA     0                                                 *A02
     6951   01 022C9    00000000 A   WORK8    DATA     0                                                 *A02
     6952   01 022CA    00000000 A   NCOUNT   DATA     0
     6953   01 022CB    00000000 A   CLMARG   DATA     0
     6954   01 022CC    00000000 A   SAVELINK DATA     0
     6955   01 022CD    000022CE     ERCONTAD DATA     WA(ECLRA)
     6956                            *
     6957                            *
     6958   01 022CE    00000000 A   ECLRA    DATA     0
     6959   01 022CF    00000000 A   ECMAP    DATA     0
     6960   01 022D0    00000000 A   ECAC     DATA     0
     6961   01 022D1    00000000 A   ECWL     DATA     0
     6962   01 022D2    00000000 A   ECMM     DATA     0
     6963   01 022D3    00000000 A   ECMMC    DATA     0
     6964   01 022D4    00000001 A   PASS#    DATA     1
     6965                            *
     6966                                     BOUND    8
     6967   01 022D6    00000000 A   ZEROS    DATA     0
     6968   01 022D7    00000000 A            DATA     0
     6969   01 022D8    00000000 A   TINST    DATA     0                 TEST INSTRUCTION
     6970   01 022D9    00000000 A   TADDR    DATA     0                 TEST INSTRUCTION ADDRESS
     6971                            *
     6972   01 022DA    E5800000 A   IBIR     DATA     X'E5800000'
     6973   01 022DB    E4800000 A   IBDR     DATA     X'E4800000'
     6974   01 022DC    65800000 A   DBIR     DATA     X'65800000'
     6975   01 022DD    64800000 A   DBDR     DATA     X'64800000'
     6976                            *
     6977   01 022DE    00000000 A   INST     DATA     0
     6978   01 022DF    32800008 A   LWINST   LW,8     8
     6979                            *
     6980   01 022E0    6F600000 A   MMCILCB  DATA     X'6F600000'                                       *A03
     6981   01 022E1    6F720000 A   MMCODDR  DATA     X'6F720000'                                       *A03
     6982   01 022E2    25800203 A   SCSL3    SCS,8    3                                                 *A03
     6983                            *
     6984   01 022E3    228FFFF8 A   LIN      LI,8     -8
     6985   01 022E4    22800008 A   LIP      LI,8     8
     6986   01 022E5    218FFFF8 A   CIN      CI,8     -8
     6987   01 022E6    21800008 A   CIP      CI,8     8
     6988                            *
     6989   01 022E7    E9800000 A   IBCS     DATA     X'E9800000'       BCS,8 INDIRECTLY ADDRESSED
     6990   01 022E8    69800000 A   BCS      BCS,8    0
     6991                            *
     6992   01 022E9    00000000 A   ERRFLAG  DATA     0
     6993   01 022EA    00000000 A   SIGMA8   DATA     0                 SET TO A 1 IF SIGMA 8 CPU
     6994   01 022EB    00200000 A   SIG8BIT  DATA     X'00200000'                                       *A02
     6995                            *
     6996   01 022EC    32802469     LWTIP    LW,8     TINSTP
     6997   01 022ED    00000000 A   SAVECC   DATA     0                 SAVE CONDITION CODE
     6998   01 022EE    000022F3     REGSAVE  DATA     WA(SAVEREGS)
     6999   01 022EF    3280246A     LWTP     LW,8     TESTPAGE
     7000                            *
     7001   01 022F0    00000000 A   MAPEDADR DATA     0
     7002   01 022F1    00000000 A   MAPBITS  DATA     0
     7003   01 022F2    00000000 A   RESULTAT DATA     0
     7004   01 022F3                 SAVEREGS RES      16
     7005                            *
     7006                                     BOUND    8
     7007   01 02304                 MAPPTRN  RES      128               RESERVE 128 WORDS FOR MAP PATRN
     7008   01 02384    001C001D A   IMGMAP   DATA     X'001C001D'
     7009   01 02385    001E001F A            DATA     X'001E001F'
     7010                            *
     7011   01 02386                 IMAGEMAP RES      128               RESERVE FOR MAP CONTROL IMAGE
     7012                            *
     7013   01 02406                 IMAGEAC  RES      16                RESERVE FOR ACCESS CONTROL IMAGE
     7014                            *
     7015   01 02416                 IMAGEWL  RES      16                RESERVE FOR WRITE LOCK CONTROL IMAGE
     7016   01 02426                 BADPARTY RES      16                                                *A02
     7017                            *
     7018                                     BOUND    8
     7019   01 02436    00000000 A   WLPATRN  DATA     0                                                 *A01
     7020   01 02437    11111111 A            DATA     X'11111111'
     7021   01 02438    22222222 A            DATA     X'22222222'
     7022   01 02439    33333333 A            DATA     X'33333333'
     7023   01 0243A    44444444 A            DATA     X'44444444'
     7024   01 0243B    55555555 A            DATA     X'55555555'
     7025   01 0243C    66666666 A            DATA     X'66666666'
     7026   01 0243D    77777777 A            DATA     X'77777777'
     7027   01 0243E    88888888 A            DATA     X'88888888'                                       *A01
     7028   01 0243F    99999999 A            DATA     X'99999999'                                       *A01
     7029   01 02440    AAAAAAAA A            DATA     X'AAAAAAAA'                                       *A01
     7030   01 02441    BBBBBBBB A            DATA     X'BBBBBBBB'                                       *A01
     7031   01 02442    CCCCCCCC A            DATA     X'CCCCCCCC'                                       *A01
     7032   01 02443    DDDDDDDD A            DATA     X'DDDDDDDD'                                       *A01
     7033   01 02444    EEEEEEEE A            DATA     X'EEEEEEEE'                                       *A01
     7034   01 02445    FFFFFFFF A            DATA     X'FFFFFFFF'                                       *A01
     7035                            *
     7036   01 02446    00002436     ADRWLPAT DATA     WA(WLPATRN)
     7037   01 02447    00000000 A   INTFLAG  DATA     0
     7038                            *
     7039                            *
     7040   01 02448    00000000 A   ACREAD   DATA     0
     7041   01 02449    00000000 A   ACLOAD   DATA     0
     7042         01 02304           ACIMAGE  EQU      MAPPTRN
     7043                            *
     7044         01 02448           WLREAD   EQU      ACREAD
     7045   01 0244A    00000000 A   WLRED    DATA     0
     7046         01 02449           WLLOAD   EQU      ACLOAD
     7047         01 01E7D           GETWL    EQU      GETAC
     7048         01 02304           WLIMAGE  EQU      MAPPTRN
     7049   01 0244B    00000000 A   WLFLAG   DATA     0                                                 *A01
     7050                            *
     7051   01 0244C    00000000 A   P1#      DATA     0                 PARAM 1
     7052   01 0244D    00000000 A   P2#      DATA     0                 PARAM 2
     7053   01 0244E    00000000 A   CRA      DATA     0                 CURRENT REG ADDR
     7054   01 0244F    00000000 A   ERA      DATA     0                 END REG ADDR
     7055   01 02450    00002386     IMAP     DATA     WA(IMAGEMAP)
     7056                            *
     7057   01 02451    00002406     IAC      DATA     WA(IMAGEAC)
     7058                            *
     7059   01 02452    00002416     IWL      DATA     WA(IMAGEWL)
     7060                            *
     7061   01 02453    FF3FFFFF A   MARGINMASK  DATA  X'FF3FFFFF'       MASK FOR CLEARING CM
     7062   01 02454    00000000 A   CMFIXED  DATA     0
     7063                            *
     7064   01 02455    40404040 A   EBCBLNKS DATA     X'40404040'
     7065   01 02456    00000000 A   PARAM%RET  DATA   0
     7066   01 02457                 SAVE     RES      16
     7067   01 02467    00000005 A   SICOUNT  DATA     5                 HEX COUNT OF EXPECTED INTERVALS
     7068                            *                                   BEFORE AN AUTO STATUS REPORT
     7069         0000000A           LOG      EQU      10
     7070                            *
     7071   01 02468    00001FFF A   TPMAP    DATA     X'00001FFF'
     7072   01 02469    0000001E A   TINSTP   DATA     X'0000001E'
     7073   01 0246A    0000001F A   TESTPAGE DATA     X'0000001F'
     7074                            *
     7075                            *
     7076   01 0246B    00000000 A   NOMAP    DATA     0
     7077         01 02448           WKDATA   EQU      ACREAD
     7078         01 02304           MAPIMAGE EQU      MAPPTRN
     7079                            *
     7080                            *
     7081   01 0246C    00003FFF A   LSTADRS  DATA     X'3FFF'           MIN SIZE MEM IS 16K
     7082   01 0246D    00000000 A   MAXADR   DATA     0                 MAX ADDR;7FFFF-SIG9;1FFFF-SIG8  *A01
     7083   01 0246E    00000000 A   PGMAX    DATA     0                 MAX PAGE SIZE FOR ACTL. MEM. 13 BITS
     7084   01 0246F    00000000 A   MAPEDPAG DATA     0                 DEFINES THE MIN PAGE ADDR FOR TST
     7085                            *
     7086   01 02470    000007FF A   X7FF     DATA     X'7FF'                                            *A03
     7087   01 02471    00FFFFFF A   XFFFFFF  DATA     X'FFFFFF'                                         *A02
     7088   01 02472    00000003 A   X03      DATA     3                                                 *A02
     7089   01 02473    20000000 A   Y2       DATA     X'20000000'                                       *A03
     7090   01 02474    40000000 A   Y4       DATA     X'40000000'                                       *A02
     7091   01 02475    4040FFFF A   Y4040    DATA     X'4040FFFF'                                       *A02
     7092   01 02476    80000000 A   Y8       DATA     X'80000000'                                       *A02
     7093   01 02477    C0000000 A   YC       DATA     X'C0000000'                                       *A02
     7094   01 02478    C1000000 A   YC1      DATA     X'C1000000'                                       *A03
     7095   01 02479    00000001 A   X01      DATA     1                                                 *A02
     7096   01 0247A    01005400 A   Y010054  DATA     X'01005400'                                       *A02
     7097   01 0247B    01002000 A   Y01002   DATA     X'01002000'                                       *A02
     7098   01 0247C    01003C00 A   Y01003C  DATA     X'01003C00'                                       *A02
     7099   01 0247D    43000000 A   Y43      DATA     X'43000000'       HSBB=1;WL=11                    *A04
     7100   01 0247E    30000000 A   Y3       DATA     X'30000000'                                       *A04
     7101   01 0247F    00001FFF A   X1FFF    DATA     X'1FFF'                                           *A02
     7102   01 02480    0000000F A   XF       DATA     X'F'                                              *A02
     7103   01 02481    B5320000 A   YB532    DATA     X'B5320000'                                       *A02
     7104   01 02482    0001FFFF A   X1FFFF   DATA     X'1FFFF'                                          *A02
     7105   01 02483    1FFF0000 A   Y1FFF    DATA     X'1FFF0000'                                       *A02
     7106   01 02484    01000000 A   Y01      DATA     X'01000000'                                       *A02
     7107   01 02485    001E001F A   X1E001F  DATA     X'1E001F'                                         *A02
     7108   01 02486    001C001D A   X1C001D  DATA     X'1C001D'                                         *A02
     7109   01 02487    02003800 A   Y020038  DATA     X'02003800'                                       *A02
     7110   01 02488    000000FF A   XFF      DATA     X'FF'                                             *A02
     7111   01 02489    08000000 A   Y08      DATA     X'08000000'                                       *A02
     7112   01 0248A    01010000 A   Y0101    DATA     X'01010000'                                       *A02
     7113   01 0248B    10000000 A   Y1       DATA     X'10000000'                                       *A02
     7114   01 0248C    0001FE00 A   X1FE00   DATA     X'1FE00'                                          *A02
     7115   01 0248D    11000000 A   Y11      DATA     X'11000000'                                       *A02
     7116   01 0248E    01234567 A   X1234567 DATA     X'01234567'                                       *A02
     7117   01 0248F    000000F0 A   XF0      DATA     X'F0'                                             *A02
     7118   01 02490    00100000 A   Y001     DATA     X'00100000'                                       *A02
     7119   01 02491    00020002 A   X20002   DATA     X'20002'                                          *A02
     7120   01 02492    000001F0 A   X1F0     DATA     X'1F0'                                            *A02
     7121   01 02493    00003E00 A   X3E00    DATA     X'3E00'           PAGE 1F                         *A03
     7122   01 02494    000000FE A   XFE      DATA     X'FE'                                             *A03
     7123   01 02495    00000002 A   X02      DATA     2                                                 *A03
     7124                            *                                                                   *A03
     7125         00000005           TNUM5    EQU      5                                                 *A03
     7126         00000020           TNUM31   EQU      X'20'                                             *A03
     7127         00000026           TNUM39   EQU      X'26'                                             *A03
     7128                            *
     7129                            *
     7130                            *
     7131                            *
     7132                            *
     7133                            *
     7134                            *
     7135                            *
     7136                            *
     7137                            *
     7138                            SYNTAX%EXPL TEXTCS      ;
     7139                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
     7140         01 02496            ' EXPLANATION,'
     7141                                     TEXTCS   ;
     7142         01 024A8            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
     7143         01 024B4                    TEXTCS   ' '
     7144                                     TEXTCS   ;
     7145         01 024B5            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
     7146         01 024C5                    TEXTCS   ' '
     7147                                     TEXTCS   ;
     7148         01 024C6            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
     7149                                     TEXTCS   ;
     7150         01 024D5            'THE SPECIFIED ACTION.'
     7151         01 024DB                    TEXTCS   ' '
     7152                                     TEXTCS   ;
     7153         01 024DC            '(1) ''@''-ABSOLUTE RECOVERY,DOES SAME AS ''SYSTEM RESET'' FROM PCP'
     7154         01 024EC                    TEXTCS   ' '
     7155                                     TEXTCS   ;
     7156         01 024ED            '(2) ''%''-FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING PCP'
     7157                                     TEXTCS   ;
     7158         01 024FD            '     ''COMPUTE'' SWITCH TO ''IDLE''. WHEN OUTPUT TO KSR, IT MEANS'
     7159                                     TEXTCS   ;
     7160         01 0250D            '     THE PROGRAM IS WAITING FOR INPUT.'
     7161         01 02517                    TEXTCS   ' '
     7162                                     TEXTCS   ;
     7163         01 02518            '(3) ''#''-FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
     7164                                     TEXTCS   ;
     7165         01 02528            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
     7166         01 02533                    TEXTCS   ' '
     7167                                     TEXTCS   ;
     7168         01 02534            '(4) ''QUEST. MARK''-OUTPUTS A) SYNTAX GLOSS.  (AFTER ''@'' PROMPT),'
     7169                                     TEXTCS   ;
     7170         01 02544            '          OR  B) CURRENT DIRECTIVE EXPL. (AFTER DIRECT. KEYIN),'
     7171                                     TEXTCS   ;
     7172         01 02554            '          OR  C) ERROR MSG EXPL. (AFTER ERROR MSG OUTPUT)'
     7173         01 02563                    TEXTCS   ' '
     7174                                     TEXTCS   ;
     7175         01 02564            '(5) '',''-TERMINATES PARAMETER FIELD'
     7176         01 0256D                    TEXTCS   ' '
     7177                                     TEXTCS   ;
     7178         01 0256E            '(6) ''NEW LINE''-TERMINATES PARAMETER LINE'
     7179         01 02579           DM%EXPL  TEXTCS   ' '
     7180                                     TEXTCS   ;
     7181         01 0257A            '(7) ''DM>X,Y''-DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
     7182         01 0258B           RM%EXPL  TEXTCS   ' '
     7183                                     TEXTCS   ;
     7184         01 0258C            '(8) ''RM>X,Y''-DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
     7185                                     TEXTCS   ;
     7186         01 0259A             '      REPLACEMENT OF WORD DISPLAYED.'
     7187         01 025A4                    TEXTCS   ' '
     7188         01 025A5           S%EXPL   EQU      %
     7189                                     TEXTCS   ;
     7190         01 025A5            '(9) ''SS''- SENSE SWITCH OPTIONS. DISPLAY TO MSG. DEV.THE CURRENT'
     7191                                     TEXTCS   ;
     7192         01 025B5            '     SENSE SWITCH  STATUS(SOFTWARE IF ''M''=0,PCP IF ''M''=1).'   *A03
     7193                                     TEXTCS   ;                                                 *A03
     7194         01 025C4             '     ALSO ALLOWS ALTERATION OF  STATUS FROM TERMINAL IF'         *A03
     7195                                     TEXTCS   ;                                                 *A03
     7196         01 025D2            '     ''M'' FIELD SET  TO 1.'                                      *A03
     7197                                     TEXTCS   ;
     7198         01 025D9            '      SW1=1 SHORT LOOP'
     7199                                     TEXTCS   ;
     7200         01 025DF            '      SW1=0 NO SHORT LOOP'
     7201                                     TEXTCS   ;
     7202         01 025E6            '      SW2=1 LONG LOOP'
     7203                                     TEXTCS   ;
     7204         01 025EC            '      SW2=0 NO LONG LOOP'
     7205                                     TEXTCS   ;
     7206         01 025F3            '      SW3=1 NO HALT ON ERROR'                                     *A02
     7207                                     TEXTCS   ;
     7208         01 025FB            '      SW3=0 HALT ON ERROR'                                        *A02
     7209                                     TEXTCS   ;
     7210         01 02602            '      SW4=1 SUPPRESS ERROR MSG.'
     7211                                     TEXTCS   ;
     7212         01 0260A            '      SW4=0 PRINT ERROR MSGS.'
     7213         01 02612                    TEXTCS   ' '
     7214                            *
     7215                            *
     7216                            *
     7217                            ****************************************************************
     7218                            *  SYNTAX GLOSSARY
     7219                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER INITIALIZING)
     7220                            ****************************************************************
     7221                            *
     7222         01 02613                    TEXTCS        '  '          UPSPACE ONE LINE
     7223         01 02614                    TEXTCS        '  '          UPSPACE ONE LINE
     7224                                     TEXTCS        ;
     7225         01 02615            '(10) ''&''- CAUSES OUTPUT OF THE CURRENT TESTING STATUS'
     7226         01 02623                    TEXTCS        '  '          UPSPACE ONE LINE
     7227                                     TEXTCS           ;
     7228         01 02624            '(11) ''DP''- DISPLAY MAP REGISTERS'
     7229                                     TEXTCS           ;
     7230         01 0262D            '(12) ''DA''- DISPLAY ACCESS CONTROL REGISTERS'
     7231                                     TEXTCS           ;
     7232         01 02638            '(13) ''DW''- DISPLAY WRITE LOCK REGISTERS'
     7233                            *
     7234         01 02642                    TEXTCS        '  '         UPSPACE ONE LINE
     7235                                     TEXTCS         ;
     7236         01 02643            '(14) ''J''- SELECTS PROGRAM CONTROL PARAMETERS'
     7237                            *
     7238         01 0264F                    TEXTCS        '  '          UPSPACE ONE LINE
     7239                                     TEXTCS         ;
     7240         01 02650            '(15) ''T''- SELECTS TEST CONTROL PARAMETERS'
     7241                            *                                                                   *A01
     7242         01 0265B                    TEXTCS   '  '                                              *A01
     7243                                     TEXTCS   ;                                                 *A01
     7244         01 0265C            '(16) ''K''- SELECTS TEST CONTROL PARAMETERS'                      *A01
     7245         01 02667                    TEXTCS   '  '                                              *A01
     7246                            *
     7247                            ****************************************************************
     7248                            *  REQUEST CHARACTER EXPLANATIONS
     7249                            ****************************************************************
     7250                            *
     7251                            ***************************************
     7252                            *REQUEST CHARACTER  DP  EXPLANATIONS
     7253                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DP' )
     7254                            ***************************************
     7255         01 02668           DP%EXPL  EQU      %
     7256         01 02668                    TEXTCS            ' '
     7257                                     TEXTCS           ;
     7258         01 02669            'DP>,,           CAUSES DISPLAY OF ALL 256 MAP REGISTERS'
     7259         01 02677                    TEXTCS            ' '
     7260                                     TEXTCS           ;
     7261         01 02678            'DP>XX,YY,       CAUSES A DISPLAY OF REGISTERS:'
     7262                                     TEXTCS           ;
     7263         01 02684            '                BETWEEN XX AND YY FOR YY>XX;'
     7264                                     TEXTCS           ;
     7265         01 02690            '                OF YY REGISTERS STARTING AT XX FOR XX = OR > YY'
     7266         01 026A0                    TEXTCS            ' '
     7267                                     TEXTCS           ;
     7268         01 026A1            'DP>XX,,         CAUSES A DISPLAY OF REGISTER XX ONLY.'
     7269                                     TEXTCS           ;
     7270         01 026AF            '*******************'
     7271         01 026B4                    TEXTCS            ' '
     7272                            *
     7273                            ************************************
     7274                            *  REQUEST CHARACTER   DA  EXPLANATION
     7275                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DA')
     7276                            ************************************
     7277         01 026B5           DA%EXPL  EQU      %
     7278         01 026B5                    TEXTCS            ' '
     7279                                     TEXTCS           ;
     7280         01 026B6            'DA>,,           CAUSES DISPLAY OF ALL 256 ACCESS CONTROL REGISTERS'
     7281         01 026C7                    TEXTCS            ' '
     7282                                     TEXTCS           ;
     7283         01 026C8            'DA>XX,YY,       CAUSES A DISPLAY OF ACCESS CONTROL REGISTERS:'
     7284                                     TEXTCS           ;
     7285         01 026D8            '                BETWEEN XX AND YY FOR YY>XX;'
     7286                                     TEXTCS           ;
     7287         01 026E4            '                OF YY REGISTERS STARTING AT XX FOR XX = OR > YY'
     7288         01 026F4                    TEXTCS            ' '
     7289                                     TEXTCS           ;
     7290         01 026F5            'DA>XX,,         CAUSES A DISPLAY OF REGISTER XX ONLY.'
     7291                                     TEXTCS           ;
     7292         01 02703            '*******************'
     7293         01 02708                    TEXTCS            ' '
     7294                            *
     7295                            ************************************
     7296                            *  REQUEST CHARACTER   DW  EXPLANATION
     7297                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DW')
     7298                            ************************************
     7299         01 02709           DW%EXPL  EQU      %
     7300         01 02709                    TEXTCS            ' '
     7301                                     TEXTCS           ;
     7302         01 0270A            'DW>,,           CAUSES DISPLAY OF ALL 256 WRITE LOCK REGISTERS'
     7303         01 0271A                    TEXTCS            ' '
     7304                                     TEXTCS           ;
     7305         01 0271B            'DW>XX,YY,       CAUSES A DISPLAY OF WRITE LOCK REGISTERS:'
     7306                                     TEXTCS           ;
     7307         01 0272A            '                BETWEEN XX AND YY FOR YY>XX;'
     7308                                     TEXTCS           ;
     7309         01 02736            '                OF YY REGISTERS STARTING AT XX FOR XX = OR > YY'
     7310         01 02746                    TEXTCS            ' '
     7311                                     TEXTCS           ;
     7312         01 02747            'DW>XX,,         CAUSES A DISPLAY OF REGISTER XX ONLY.'
     7313                                     TEXTCS           ;
     7314         01 02755            '*******************'
     7315         01 0275A                    TEXTCS            ' '
     7316                            *
     7317                            ************************************
     7318                            *  REQUEST CHARACTER   J   EXPLANATION
     7319                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'J')
     7320                            ************************************
     7321         01 0275B           J%EXPL   EQU      %
     7322         01 0275B                    TEXTCS        '  '         UPSPACE ONE LINE
     7323                                     TEXTCS        ;
     7324         01 0275C            '** PARAMETER LINE J (CONTROL  LINE) EXPLANATION'
     7325         01 02768                    TEXTCS        '  '         UPSPACE ONE LINE
     7326                                     TEXTCS        ;
     7327         01 02769            'MSGDEV          MESSAGE OUTPUT DEVICE NUMBER'
     7328         01 02775                    TEXTCS        '  '         UPSPACE ONE LINE
     7329                                     TEXTCS        ;
     7330         01 02776            'COMDEV          COMMUNICATION DEVICE NUMBER'
     7331                                     TEXTCS        ;
     7332         01 02781            '                  (INPUT FROM AND OUTPUT TO USER)'
     7333         01 0278E                    TEXTCS        '  '         UPSPACE ONE LINE
     7334                                     TEXTCS        ;
     7335         01 0278F            'SI              STATUS INTERVAL'
     7336                                     TEXTCS        ;
     7337         01 02797            '                  THE INTERVAL (TIME OR PASSES) BETWEEN AUTOMATIC'
     7338                                     TEXTCS        ;
     7339         01 027A8            '                      STATUS REPORTS'
     7340         01 027B2                    TEXTCS        '  '         UPSPACE ONE LINE
     7341                                     TEXTCS        ;
     7342         01 027B3            'CM              CLOCK MARGIN'
     7343         01 027BB                    TEXTCS        '  '
     7344                                     TEXTCS        ;
     7345         01 027BC            'MARGIN LIMITS:'
     7346         01 027C0                    TEXTCS        '  '
     7347                                     TEXTCS        ;
     7348         01 027C1            '     PROGRAM CONTROLLED    USER CONTROLLED (FIXED)'
     7349                                     TEXTCS        ;
     7350         01 027CE            '       0 = NORMAL             A = NORMAL'
     7351                                     TEXTCS        ;
     7352         01 027D9            '       1 = HIGH               B = HIGH'
     7353                                     TEXTCS        ;
     7354         01 027E3            '       2 = LO                 C = LO'
     7355         01 027ED                    TEXTCS        '  '
     7356                                     TEXTCS        ;
     7357         01 027EE            'NOTE:'
     7358                                     TEXTCS        ;
     7359         01 027F0            '       THE COMDEV IS FOR INFO ONLY (UNALTERABLE BY USER)'
     7360                            *
     7361                            ************************************************
     7362                            *  REQUEST CHARACTER   T   EXPLANATION
     7363                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'T' )
     7364                            *************************************************
     7365         01 027FF           T%EXPL   EQU      %
     7366         01 027FF                    TEXTCS        '  '         UPSPACE ONE LINE
     7367                                     TEXTCS        ;
     7368         01 02800            '** PARAMETER LINE T (CONTROL LINE) EXPLANATION'
     7369         01 0280C                    TEXTCS        '  '         UPSPACE ONE LINE
     7370                                     TEXTCS        ;
     7371         01 0280D            'TPMF   TEST MAP PATTERN FOR MAP FUNCTIONAL TESTS'
     7372         01 0281A                    TEXTCS        '  '
     7373                                     TEXTCS        ;
     7374         01 0281B            'TVIP   VIRTUAL PAGE ADDRESS FROM WHICH TEST INSTRUCTIONS'
     7375                                     TEXTCS        ;
     7376         01 0282A            '       ARE EXECUTED FOR OPERATIONAL TYPE TESTS'
     7377         01 02836                    TEXTCS        '  '
     7378                                     TEXTCS        ;
     7379         01 02837            'TVP    ADDRESS OF VIRTUAL PAGE BEING TESTED'
     7380         01 02842                    TEXTCS        '  '
     7381                            *
     7382                            *******************************************************             *A01
     7383                            *        REQUEST CHARACTER  K  EXPLANATION                          *A01
     7384                            *        (OUTPUT OF KEYIN OF QUESTION MARK AFTER KEYIN OF 'K')      *A01
     7385                            *******************************************************             *A01
     7386         01 02843           K%EXPL   EQU      %                                                 *A01
     7387         01 02843                    TEXTCS   '  '              UPSPACE ONE LINE                *A01
     7388                                     TEXTCS   ;                                                 *A01
     7389         01 02844            '**PARAMETER LINE K (CONTROL LINE) EXPLANATION'                    *A01
     7390         01 02850                    TEXTCS   '  '              UPSPACE ONE LINE                *A01
     7391                                     TEXTCS   ;                                                 *A01
     7392         01 02851            'FTST   FIRST TEST '                                               *A01
     7393         01 02856                    TEXTCS   '  '                                              *A01
     7394                                     TEXTCS   ;                                                 *A01
     7395         01 02857            'LTST   LAST TEST '                                                *A01
     7396         01 0285C                    TEXTCS   '  '              UPSPACE ONE LINE                *A01
     7397                                     TEXTCS   ;                                                 *A01
     7398         01 0285D            'CTST   CURRENT TEST '                                             *A01
     7399         01 02863                    TEXTCS   '  '                                              *A01
     7400                            *                                                                   *A01
     7401                            *************************************
     7402                            *
     7403                            *
     7404                            *********************************************************
     7405                            *        THE FOLLOWING TEXTC'S ARE THE
     7406                            *        ERROR MESSAGES.
     7407                            *********************************************************
     7408                            MAPHEAD1 TEXTCS   '   MAP FUNCTIONAL TEST ERROR';
     7409         01 02864                             ,'     TEST  XX  '
     7410                            *
     7411         01 0286F           MAPHEAD2 TEXTCS   '   TEST VP    MAP REG      LRA REG CONTENTS'
     7412                            *
     7413         01 0287A           MAPHEAD3 TEXTCS   '   ADDRESS     LOADED      EXPECT      ACTUAL '
     7414                            *
     7415         01 02886           MAPMSG1  TEXTCS   '     YY          YY        YYYYYYYY    YYYYYYYY' *A01
     7416                            *
     7417                            ACHEAD1  TEXTCS   '   ACCESS CONTROL FUNCTIONAL TEST ERROR';
     7418         01 02892                             ,'  TEST  XX  '
     7419                            *
     7420         01 0289F           ACHEAD2  TEXTCS   '   TEST VP    AC  REG      AC  CONTENTS '
     7421                            *
     7422         01 028AA           ACHEAD3  TEXTCS   '   ADDRESS     LOADED      LOAD    READ '
     7423                            *
     7424         01 02886           ACMSG1   EQU      MAPMSG1
     7425                            *
     7426                            WLHEAD1  TEXTCS   '   WRITE LOCK FUNCTIONAL TEST ERROR';
     7427         01 028B5                             ,'  TEST  XX  '
     7428                            *
     7429         01 028C1           WLHEAD2  TEXTCS   '   TEST VP    WL  REG      LRA REG CONTENTS'
     7430                            *
     7431         01 0287A           WLHEAD3  EQU      MAPHEAD3
     7432         01 02886           WLMSG1   EQU      ACMSG1
     7433                            *
     7434                            MAPOPHD1 TEXTCS   '   MAP OPERATIONAL TEST ERROR';
     7435         01 028CC                             ,'    TEST  XX  '
     7436                            *
     7437                            MAPMSG2  TEXTCS   '   TEST INST.  YYYYYYYY AT   YYYYYY    ';
     7438         01 028D7                             ,'MAP FOR PAG 1F =001F    AC= 00  '
     7439                            *
     7440         01 028E9           MAPMSG3  TEXTCS   '   DATA AT MAPPED ADDRS  YYYYYY TO BE IN REGISTER 3.'
     7441                            *
     7442         01 028F7           MAPMSG4  TEXTCS   '   EXPECTED DATA = YYYYYYYY  ACTUAL DATA = YYYYYYYY'
     7443                            *
     7444                            MAPMSG5  TEXTCS   '   DATA FROM REGISTER 3 TO BE STORED AT MAPPED ';
     7445         01 02904                             ,'ADDRESS=  YYYYYY'
     7446                            *
     7447                            MAPMSG6  TEXTCS   '   REFERENCE ADDRESS OF MTW INST AT';
     7448         01 02914                             ,' X''55'' DID NOT GET MAPPED'
     7449                            *
     7450                            ACOPHD1  TEXTCS   '   ACCESS CONTROL OPERATIONAL TEST ERROR';
     7451         01 02924                             ,'     TEST  XX  '
     7452                            *
     7453         01 028D7           ACOPHD2  EQU      MAPMSG2
     7454                            *
     7455                            ACMSG2   TEXTCS   '   AC PATERN STORED    YY  READ AS YY  ';
     7456         01 02932                             ,'CHECK TRAP LOGIC'
     7457                            *
     7458         01 02940           ACMSG3   TEXTCS   '   WRITE ABORT LOGIC MALFUNCTION WITH AC = YY  '
     7459                            *
     7460                            WLOPHD1  TEXTCS   '   WRITE LOCK OPERATIONAL TEST ERROR';
     7461         01 0294C                             ,'     TEST  XX  '
     7462                            *
     7463                            WLOPHD2  TEXTCS   '   TRAP  TST PAG  KEY  LOCK    WRITE ';
     7464         01 02959                             ,'EXPECTED DATA   ACTUAL DATA'
     7465                            *
     7466                            WLMSG2   TEXTCS   '   XXXX    YY      XX  XX      XXXX    ';
     7467         01 0296A                             ,'YYYYYYYY        YYYYYYYY'
     7468                            *
     7469                            LRAHD1   TEXTCS   '   LRA INSTRUCTION TEST ERROR';
     7470         01 0297A                             ,'    TEST  XX  '
     7471                            *
     7472                            LRAMSG1  TEXTCS   '   CC1-CC2=XX  PRIOR TO LRA TEST INST  ';        *A03
     7473         01 02985                             ,'YYYYYYYY AT YYYY'                               *A03
     7474                            *
     7475                            LRAMSG1A TEXTCS   '   EXPECT  LRA REG CONTENT YYYYYYYY    ';
     7476         01 02993                             ,'CC= XXXX'                                       *A04
     7477                            *
     7478                            LRAMSG1B TEXTCS   '   ACTUAL  LRA REG CONTENT YYYYYYYY    ';
     7479         01 0299F                             ,'CC= XXXX'                                       *A04
     7480                            *
     7481                            LRAMSG3  TEXTCS   '    XXX TRAP TO X''4C'' WHEN BAD PARITY IN ';    *A03
     7482         01 029AB                             ,'OPERAND OF LRA INST.'                           *A03
     7483                            *                                                                   *A03
     7484         01 029BB           LRAMSG3A TEXTCS   '   EXP TRAP ADDR   YYYY  ACT TRAP ADDR YYYY'     *A03
     7485                            *
     7486                            LRAMSG5  TEXTCS   '   WHEN OPERAND OF LRA INST IS A REG ADDR  ';    *A03
     7487         01 029C6                             ,'CC S/B =1100   WAS =XXXX'                       *A03
     7488                            *
     7489                            PLHD1    TEXTCS   '   PROTECT LOGIC TEST ERROR';
     7490         01 029D7                             ,'  TEST  XX  '
     7491                            *
     7492         01 028D7           PLHD2    EQU      MAPMSG2
     7493                            *
     7494                            PLMSG1   TEXTCS   '   ACCESS PROTECT VIOLATION WHEN BRANCH ';
     7495         01 029E1                             ,'CONDITION NOT SATISFIED'
     7496                            *
     7497         01 029F1           PLMSGX1  TEXTCS   '   EXPECT  TRAP ADDR   YYYY  REG. 8 =  8   '
     7498                            *
     7499         01 029FC           PLMSGX2  TEXTCS   '   ACTUAL  TRAP ADDR   YYYY  REG. 8 =  X   '
     7500                            *
     7501                            PLMSG2   TEXTCS   '   TRAPED ADRESS WAS   YYYYYYYY  SHOULD BE ';
     7502         01 02A07                             ,'YYYYYYYY'
     7503                            *
     7504                            PLMSG3   TEXTCS   '   TEST INST.  YYYYYYYY AT   YYYYYY    ';        *A03
     7505         01 02A14                             ,'WL FOR PAGE XX =XX  '                           *A03
     7506                            *
     7507                            PLMSG4   TEXTCS   '   ACCESS PROTECT VIOLATION WHEN EXECUTING ';
     7508         01 02A23                             ,'XPSD IN TRAP LOCATION(X''48'')'                 *A03
     7509                            *
     7510         01 02A35           PLMSG5   TEXTCS   '   TEST INST.  YYYYYYYY AT   YYYYYY'
     7511                            *
     7512                            PLMSG6   TEXTCS   '   WRITE PROTECT VIOLATION NOT INHIBITED ';
     7513         01 02A3E                             ,'ON WRITING IN REG. 1'
     7514                            *
     7515                            PLMSG7   TEXTCS   '   WRITE LOCK PROTECT VIOLATION WHEN EXECUTING ';
     7516         01 02A4E                             ,'XPSD IN TRAP LOC.(X''48'')'                     *A03
     7517                            *
     7518                            PLMSG8   TEXTCS   '   ACC. PROT. VIOL. NOT INHIBITED ON WRITING INTO';
     7519         01 02A60                             ,' X''20'' VIA A TIO.'                            *A03
     7520                            *
     7521                            PLMSG9   TEXTCS   '   INST    YYYYYYYY XXX TRAP WITH  AC= XX  ';
     7522         01 02A71                             ,'R8= YYYYYYYY    R9= YYYYYYYY'
     7523                            *
     7524                            PLMSG10  TEXTCS   '   EXP DATA    YYYYYYYY    YYYYYYYY    ';
     7525         01 02A83                             ,'ACTUAL DATA YYYYYYYY    YYYYYYYY'
     7526                            *
     7527                            PLMSG11  TEXTCS   'ACC. PROT. VIOL. NOT INHIBITED WHEN INS';
     7528         01 02A95                             ,'T AFTER WAIT IS IN ACC PROT PAGE'
     7529                            *
     7530                            PLMSG12  TEXTCS   '   WRITE PROT. VIOL. NOT INHIBITED ON WRITING INTO';
     7531         01 02AA7                             ,' X''20'' VIA A TIO.'                            *A03
     7532                            *
     7533                            MMHD1    TEXTCS   '   MASTER MODE TEST ERROR';
     7534         01 02AB8                             ,'    TEST  XX  '
     7535                            *
     7536         01 028D7           MMHD2    EQU      MAPMSG2
     7537                            *
     7538                            MMSG1    TEXTCS   '   AC VIOLATION NOT INHIBITED IN MASTER MAPPED ';
     7539         01 02AC2                             ,'UNPROTECTED MODE'
     7540                            *
     7541         01 02AD2           MMSG2    TEXTCS   '   NO AC VIOLATION IN MASTER PROTECTED MODE'
     7542                            *
     7543                            MMSG3    TEXTCS   '   ACCESS PROTECT VIOLATION FOR LRA INST ';
     7544         01 02ADD                             ,'IN MASTER PROTECT MODE.'                        *A03
     7545                            MMSG4    TEXTCS   '   NO REA MUST OCCUR WITH PSD40=1 AS PR';
     7546         01 02AEE                             ,'OGRAM IS MASTER,MAPED& PROTECTED'
     7547                            *
     7548                            MMCHD1   TEXTCS   '   MMC INSTRUCTION ERROR';
     7549         01 02B00                             ,'     TEST  XX  '
     7550                            *
     7551                            MHD1     TEXTCS   'LOADED ALL WL & AC REGS WITH 0''S;THEN ';
     7552         01 02B0A                             ,'MAP REG 1F WITH 1F'
     7553                            *
     7554                            MHD2     TEXTCS   'LOADED ALL WL REGS WITH 0''S,MAP REG 1F WITH ';
     7555         01 02B19                             ,'1F;THEN AC REG 1F WITH 11'
     7556                            *
     7557                            MHD3     TEXTCS   'LOADED ALL AC REGS WITH 0''S,MAP REG 1F WITH ';
     7558         01 02B2B                             ,'1F;THEN WL REG 1F WITH 11'
     7559                            *
     7560                            MMCX1    TEXTCS   '   XX  REGS 1C-2B GOT LOADED WITH MAP IMAGE ';
     7561         01 02B3D                             ,'0000001F OF PAGES 1E &1F'
     7562                            *
     7563                            MMCX2    TEXTCS   '   MAP REGS 1E-1F GOT LOADED WITH  XX  IMAGE ';
     7564         01 02B4F                             ,' 00000003 OF PAGES 10-1F'
     7565                            *
     7566                            MMCX3    TEXTCS   '   XX  REGS 10-1F GOT LOADED WITH  XX  IMAGE ';
     7567         01 02B61                             ,' 00000003 OF PAGES 10-1F'
     7568                            *
     7569         01 02B73           MMCMSG1  TEXTCS   '   MMC INST TO LOAD MAP REG IN 8 BIT FORM NOT OK'
     7570                            *
     7571                            MMCMSG2  TEXTCS   '   MAP REG YY CONTENTS INITIALLY= 1FFF  EXPECT';
     7572         01 02B80                             ,'ED =00FF   ACTUAL =  YYYY'                      *A02
     7573                            *
     7574                            *
     7575                            MMCMSG4  TEXTCS   '   COULD NOT INTERRUPT MMC USING SNAPSHOT ';
     7576         01 02B92                             ,'WITH THESE SET OF INSTR'
     7577                            *
     7578                            MMCMSG4A TEXTCS   '   YYYYYYYY    YYYYYYYY    YYYYYYYY    YYYYYYYY';
     7579         01 02BA3                             ,'    YYYYYYYY    YYYYYYYY'
     7580                            *
     7581                            MMCMSG4B TEXTCS   '   AT INTERUPT OF MMC INST YYYYYYYY INT. ADDR ';
     7582         01 02BB5                             ,'S/B  YYYY  WAS   YYYY'
     7583                            *
     7584                            MMCMSG4C TEXTCS   '   LAST CONTROL IMAGE WORD LOADED S/B  YYYYYYYY';
     7585         01 02BC6                             ,'   WAS  YYYYYYYY'
     7586                            *
     7587                            MMCMSG5  TEXTCS   '   MMC INST (MMC,R6  5) PROTECT VIOLATION IN ';
     7588         01 02BD6                             ,'MASTER PROTECT MODE'
     7589                            *
     7590                            MMCMSG5A TEXTCS   '   EXPECT   TRAP =  YES  MAP BITS= 001E    ';
     7591         01 02BE7                             ,'R6= 00003E00    R7= 01003C00'
     7592                            *
     7593                            MMCMSG5B TEXTCS   '   ACTUAL   TRAP = XXXX  MAP BITS= YYYY    ';
     7594         01 02BF9                             ,'R6= YYYYYYYY    R7= YYYYYYYY'
     7595                            *
     7596                            MMCMSG6  TEXTCS   '   WL  REG 00 NOT OVERWRITTEN WHEN MMC ';
     7597         01 02C0B                             ,'INST EXECUTED WITH COUNT=17'
     7598                            *
     7599                            MMCMSG7  TEXTCS   '    XXX TRAP TO X''4D'' WITH MMC INST    ';      *A03
     7600         01 02C1C                             ,'YYYYYYYY AT YYYY'                               *A03
     7601                            *
     7602                            MMCMSG7B TEXTCS   ' PSW1= YYYYYYYY  PSW2= YYYYYYYY   EXP T';
     7603         01 02C2A                             ,'CC= X   ACTUAL TCC= X'
     7604                            *
     7605                            MMCMSG9  TEXTCS   '   MMC YYYYYYYY TO LOAD WL  REG  1F. WL';
     7606         01 02C3A                             ,' FOR  YY   S/B  YY     WAS  YY  '
     7607                            *
     7608                            MMCMG10  TEXTCS   'TRAPPED TO X''40'' ON DOING MMC  YYYYYYYY';
     7609         01 02C4C                             ,':IND. REF. ADDR. NON-EXISTANT'
     7610                            *
     7611                            MMCMSG11 TEXTCS   '   MMC TRAPED DUE TO PARITY ERROR IN WL  ';
     7612         01 02C5E                             ,'IMAGE WORD FOR PAGES 10 TO 1F'
     7613                            *
     7614         01 02C70           MMCM12   TEXTCS   '   EXPECT :TRAP ADDR   YYYY   PSD BIT 60 = 1'
     7615                            *
     7616         01 02C7C           MMCM13   TEXTCS   '   ACTUAL :TRAP ADDR   YYYY   PSD BIT 60 = X'
     7617                            *
     7618         01 02C88           MPEHDG   TEXTCS   '   UNEXPECTED MAP PARITY ERROR '
     7619                            *                                                                   *A03
     7620                            MPEMSGX  TEXTCS   '   LRA INST    AT      LRA REG  COND CODE  ';
     7621         01 02C90                             ,'VIRT ADDR'
     7622                            *
     7623                            MPEMSG   TEXTCS   '   YYYYYYYY    YYYY    YYYYYYYY    XXXX    ';
     7624         01 02C9E                             ,'YYYYYYYY'
     7625                            *
     7626                            *
     7627         01 02CAB           HALTONER TEXTCS   '   HALT ON ERROR.    TEST  YY  '
     7628                            *
     7629         01 02CB3           VMMSG2   TEXTCS   '***VOLTAGES ON MARGIN.***'
     7630                            *
     7631                                     BOUND    8
     7632         01 02CBA           PARAMER  TEXTCS   '****PARAMETER ERROR****        '
     7633                            *
     7634         01 02CC2           NOMAP#   TEXTCS   '   MAP OPTION NOT PRESENT ON THIS SYSTEM'
     7635                            *
     7636         01 02CCD           BFHDG1   TEXTCS   'MAP REG    CONTENTS OF MAP REGISTERS (IN HEX)'
     7637                            *
     7638                            BUF1     TEXTCS   '   YY      YYYY    YYYY    YYYY    YYYY';
     7639         01 02CD9                             ,'    YYYY    YYYY    YYYY    YYYY'
     7640                            *
     7641                            BFHDG2   TEXTCS   'AC REG   CONTENTS OF ACCESS CONTROL REGISTERS ';
     7642         01 02CEB                             ,'(IN BIN)'
     7643                            *
     7644                            BFHDG3   TEXTCS   'WL REG   CONTENTS OF WRITE LOCK REGISTERS';
     7645         01 02CF9                             ,' (IN BIN)'
     7646                            *
     7647                            **********************************************************************
     7648                            *   THE FOLLOWING LOCATIONS CONTAIN THE CONTROL OPTIONS IN EBCDIC
     7649                            *       FORMAT READY FOR DISPLAY AT USERS REQUEST ( PARAMETER LINE J)
     7650                            **********************************************************************
     7651         01 02D06           PL#JHDR  TEXTCS   '  MSGDEV COMDEV  SI  CM'
     7652                            *
     7653         01 02D0C           PLINE#J  TEXTCS   '*J 0002   *0001 005   0'
     7654                            *
     7655         01 02D12           PLINE#JRES TEXTCS '*J 0002   *0001 005   0'
     7656                            *
     7657         01 02D18           NOTAVAIL  TEXTCS  '****DEVICE NOT AVAILABLE****'
     7658                            *
     7659                            ****     FOLLOWING LOCATIONS CONTAIN THE CONTROL OPTIONS
     7660                            ****     IN EBCIDIC FORMAT READY FOR DISPLAY AT USERS REQUEST.
     7661                            *
     7662         01 02D20           PL#THDR  TEXTCS   '       TPMF    TVIP     TVP'
     7663                            *
     7664         01 02D27           PLIN#T   TEXTCS   '*T     1FFF      1E      1F'
     7665                            *
     7666         01 02D2E           PLIN#TR  TEXTCS   '*T     1FFF      1E      1F'
     7667                            *
     7668         01 02D35           PL#KHDR  TEXTCS   '   FTST    LTST    CTST'                         *A01
     7669                            *                                                                   *A01
     7670         01 02D3B           PLIN#K   TEXTCS   '   XXXX    XXXX    XXXX'                         *A01
     7671                            *                                                                   *A01
     7672         01 02D41           PLIN#KR  TEXTCS   '   0001    002F    0001'                         *A03
     7673                            *                                                                   *A01
     7674         01 02D47           UNKNTRP  TEXTCS   '   UNEXPECTED TRAP TO HEX 40.    TEST  YY  '
     7675                            *
     7676                            UNKNTRP1 TEXTCS   '      PSW1=YYYYYYYY   PSW2=YYYYYYYY    ';
     7677         01 02D52                             ,'TCC=X   REG SAVED AT  YYYYYY'                   *A03
     7678                            *
     7679         01 02D63           SIG9MSG  TEXTCS   '   SIGMA 9 CPU'                                  *A02
     7680         01 02D67           TRNG1    TEXTCS   '   TEST RANGE(IN HEX.)--1 THRU 2F'               *A03
     7681                            *                                                                   *A02
     7682         01 02D70           SIG8MSG  TEXTCS   '   SIGMA 8 CPU'                                  *A02
     7683                            TRNG2    TEXTCS   '   TEST RANGE(IN HEX.)--1 THRU 4,21 THRU 26,';   *A03
     7684         01 02D74                             ,'28,2A THRU 2F.'                                 *A03
     7685                            *                                                                   *A02
     7686                            **********************************************************
     7687                            *        THE FOLLOWING TEXTC'S ARE THE ERROR
     7688                            *        EXPLANATION MESSAGES.
     7689                            **********************************************************
     7690                            ELRA1    TEXTCS   '   CC1-CC2=DEFINES CONDITION CODES 1 AN';
     7691         01 02D83                             ,'D 2 WHICH CAN HAVE VALUES OF    '
     7692                                     TEXTCS   '   00,01,10 AND 11 FOR BYTE,HALFWORD,WORD A';    *A03
     7693         01 02D95                             ,'ND DOUBLEWORD INDEX ALIGNMENT   '
     7694         01 02DA8                    TEXTCS   '   RESPECTIVELY.'
     7695                            *
     7696                            ELRA2    TEXTCS   '   CC=DEFINES CONDITION CODES 1 TO 4 AFT';
     7697         01 02DAD                             ,'ER LRA INSTRUCTION IS EXECUTED.'
     7698                            *
     7699         01 02DBF           VP       TEXTCS   '   VP = VIRTUAL PAGE'
     7700         01 02DC5           REG      TEXTCS   '   REG = REGISTER'
     7701         01 02DCA           ACX      TEXTCS   '   AC = ACCESS CONTROL'
     7702         01 02DD0           WLX      TEXTCS   '   WL = WRITE LOCK'
     7703         01 02DD5           WK       TEXTCS   '   WK = WRITE KEY'
     7704                            *
     7705         01 02DDA           CC4X     TEXTCS   '   CC4 = CONDITION CODE 4'                       *A01
     7706                            *
     7707                            EMM1     TEXTCS   '   REA=REAL EXTENDED ADDRESSING ;  PSD4';
     7708         01 02DE1                             ,'0=PSD BIT 40.'
     7709                            *
     7710                            *
     7711                            STHD1    TEXTCS   '   TST#  TYPE  ECLRA  ECMAP    ECAC    ';
     7712         01 02DEF                             ,'ECWL    ECMM    ECMMC PAS# CM VM'
     7713                            *
     7714                                     BOUND    8
     7715                            STMSG1   TEXTCS   '   YY          YYYY    YYYY    YYYY    ';
     7716         01 02E02                             ,'YYYY    YYYY    YYYY  YYYY  X  X'
     7717                            *
     7718         01 02E14           STAT%XPL TEXTCS   '   TST# = LAST TEST UNDER CONSIDERATION'
     7719         01 02E1E                    TEXTCS   '   TYPE = LAST TEST TYPE EXECUTED(ONE OF FOLLOWING)'
     7720         01 02E2B                    TEXTCS   '   LRA = LOAD REAL ADDRESS TEST'
     7721         01 02E33                    TEXTCS   '   MAP =  MAP FUNCTIONAL/OPERATIONAL TEST'
     7722         01 02E3E                    TEXTCS   '   AC  = ACCESS CONTROL FUNCTIONAL/OPERATIONAL TEST'
     7723         01 02E4B                    TEXTCS   '   MMT = MASTER MODE OPERATIONAL TEST'
     7724         01 02E55                    TEXTCS   '   WL  = WRITE LOCK FUNCTIONAL/OPERATIONAL TEST'
     7725         01 02E61                    TEXTCS   '   MMC = MOVE TO MEMORY CONTROL INSTRUCTION TEST'
     7726         01 02E6E                    TEXTCS   '   ECLRA = ERROR COUNT FOR LRA TESTS'
     7727         01 02E78                    TEXTCS   '   ECMAP = ERROR COUNT FOR MAP TESTS'
     7728         01 02E82                    TEXTCS   '   ECAC  = ERROR COUNT FOR AC TESTS'
     7729         01 02E8B                    TEXTCS   '   ECWL  = ERROR COUNT FOR WL TESTS'
     7730         01 02E94                    TEXTCS   '   ECMM  = ERROR COUNT FOR MASTER MODE TESTS'
     7731         01 02EA0                    TEXTCS   '   ECMMC = ERROR COUNT FOR MMC TESTS'
     7732         01 02EAA                    TEXTCS   '   PASS# = TOTAL NUMBER OF PASSES'
     7733         01 02EB3                    TEXTCS   '   CM = CLOCK MARGIN'
     7734         01 02EB9                    TEXTCS   '   VM = VOLTAGE MARGIN.N=NORMAL ,M=MARGINED'
     7735                            *
     7736                            *
     7737         01 02EC4           CHK1     TEXTCS   '   MODULE  X --DESTINATION+COUNT CHECK'
     7738         01 02ECE           CHK2     TEXTCS   '   MODULE  X --SOURCE+DISPLACEMENT+COUNT CHECK'
     7739         01 02EDA           CHK3     TEXTCS   '   MODULE  X --DESTINATION CHECK'
     7740         01 02EE3           CHK4     TEXTCS   '   MODULE  X --SOURCE+DISPLACEMENT CHECK'
     7741         01 02EEE           CHK5     TEXTCS   '   MODULE  X --LOCATION CHECK'
     7742         01 02EF6           CHK6     TEXTCS   '   MODULE  X --LOCATION+CC-1 CHECK'
     7743                            *
     7744                            *
     7745                            *
     7746                            *
     7747   01 02EFF    6A601D51     READSTAT BAL,LINK STATMSGS          OUTPUT STATUS MESSAGE ON & KEYIN
     7748   01 02F00    E80003CB              B        *#RETURN%         RETURN TO POINT OF INTERRUPT
     7749                            *
     7750                            *
     7751   01 02F01                 PLINEIN  RES      19
     7752                            *
     7753                            *
     7754                            *
     7755                            *************
     7756                            *
     7757         00000004           H          COM,8,8,8,8   AF
     7758         00000004           E          COM,8,8,16    AF
     7759         00000004           L          COM,3,2,3,5,3,1,3,3,3,3,3  AF
     7760         00000004           P          COM,8,2,6,16  AF
     7761                            **********************
     7762                            *        TABLE 3
     7763                            **********************
     7764                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     7765                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     7766                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     7767                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     7768                            *
     7769                            *  FORMAT
     7770                            *        WORD 1 = DIRECTIVE POINTER
     7771                            *         ***********
     7772                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     7773                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     7774                            *            AF(3)   BYTE 2 = SECOND CHAR.
     7775                            *            AF(4)   BYTE 3 = THIRD CHAR.
     7776                            *
     7777                            *
     7778                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     7779                            *         ***********
     7780                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     7781                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     7782                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     7783                            *                                       DIRECTIVE ROUTINE
1 C00   00:20 JUN 21,'83    SIGMA 8/9 MAP & WRITE LOCK PROGRAM(MAP/WL) 706138-11/51A05 03/15/74   PAGE    4
A    7784                                     PAGE
     7785                            *
     7786                            *        WORD 3 = CONTROL WORD
     7787                            *         ***********
     7788                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     7789                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     7790                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     7791                            *             AF(4)   BITS 8-12= NOT USED
     7792                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     7793                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     7794                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     7795                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     7796                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     7797                            *                    OR INDEX PARAM #1 (MODE 6)
     7798                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     7799                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     7800                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     7801                            *
     7802                            *                 MODE:  0= UNCONDITIONAL (&)
     7803                            *                        1= IMMEDIATE     (DM)
     7804                            *                        2= PARAMETER LINE (S)
     7805                            *                        6= INDEXED PARAMETER LINE
     7806                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     7807                            *                            0 = HEX, 1 = BIN, AND
     7808                            *                            4-7 = DESIGNER DEFINED
     7809                            *
     7810                            *         WORD 4 = EXPLANATION POINTER
     7811                            *         ***********
     7812                            *  P          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     7813                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     7814                            *                             = 1 IF TEXT IS COMPRESSED
     7815                            *                             = 2,3   ** NOT ALLOWED **
     7816                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     7817                            *                   TO CHARACTER #1 (REQUEST)
     7818                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     7819                            *
1 C00   00:20 JUN 21,'83    SIGMA 8/9 MAP & WRITE LOCK PROGRAM(MAP/WL) 706138-11/51A05 03/15/74   PAGE    5
A    7820                                     PAGE
     7821         01 02F14           TABLE3            EQU      %
     7822                            *
     7823   01 02F14    017C0000 A            H        1,'@'
     7824   01 02F15    00000000 A            E        0
     7825   01 02F16    00000000 A            L        0
     7826   01 02F17    39009258 N            P        57,,0,BA(SYNTAX%EXPL)                             *A03
     7827                            *
     7828   01 02F18    01500000 A            H        1,'&'
     7829   01 02F19    00002EFF N            E        ,,READSTAT
     7830   01 02F1A    00000000 A            L        0
     7831   01 02F1B    1100B850 N   AMPER%EXPL P      17,,,BA(STAT%XPL)
     7832                            *
     7833                            *
     7834   01 02F1C    02C4D400 A            H        2,'D','M'
     7835   01 02F1D    00000000 A            E        0
     7836   01 02F1E    00000000 A            L        0
     7837   01 02F1F    020195E4 N            P        2,,1,BA(DM%EXPL)
     7838                            *
     7839   01 02F20    02D9D400 A            H        2,'R','M'
     7840   01 02F21    00000000 A            E        0
     7841   01 02F22    00000000 A            L        0
     7842   01 02F23    0201962C N            P        2,,1,BA(RM%EXPL)
     7843                            *
     7844   01 02F24    02E2E200 A            H        2,'S','S'                                         *A03
     7845   01 02F25    00000000 A            E        0                                                 *A01
     7846   01 02F26    00000000 A            L        0                                                 *A01
     7847   01 02F27    0D009694 N            P        13,,,BA(S%EXPL)                                   *A03
     7848                            *                                                                   *A01
     7849   01 02F28    02C4D700 A            H        2,'D','P'
     7850   01 02F29    00001F6E N            E        ,,DISMAP
     7851   01 02F2A    22000000 A            L        1,,2
     7852   01 02F2B    0A0299A0 N            P        10,,2,BA(DP%EXPL)
     7853                            *
     7854   01 02F2C    02C4C100 A            H        2,'D','A'
     7855   01 02F2D    00001FD6 N            E        ,,DISAC
     7856   01 02F2E    22000000 A            L        1,,2
     7857   01 02F2F    0A029AD4 N            P        10,,2,BA(DA%EXPL)
     7858                            *
     7859   01 02F30    02C4E600 A            H        2,'D','W'
     7860   01 02F31    0000203F N            E        ,,DISWL
     7861   01 02F32    22000000 A            L        1,,2
     7862   01 02F33    0A029C24 N            P        10,,2,BA(DW%EXPL)
     7863                            *
     7864   01 02F34    01D10000 A            H        1,'J'
     7865   01 02F35    00002094 N            E        ,,PARAMJ
     7866   01 02F36    40000000 A            L        2
     7867   01 02F37    17009D6C N            P        23,,,BA(J%EXPL)
     7868                            *
     7869   01 02F38    01E30000 A            H        1,'T'
     7870   01 02F39    000020E8 N            E        ,,PARAMT
     7871   01 02F3A    40000000 A            L        2
     7872   01 02F3B    0A009FFC N            P        10,,,BA(T%EXPL)
     7873                            *
     7874   01 02F3C    01D20000 A            H        1,'K'                                             *A01
     7875   01 02F3D    00002121 N            E        ,,PARAMK                                          *A01
     7876   01 02F3E    40000000 A            L        2                                                 *A01
     7877   01 02F3F    0900A10C N            P        9,,,BA(K%EXPL)                                    *A01
     7878                            *                                                                   *A01
     7879                            *
     7880                            *
     7881   01 02F40    FF000000 A   TABLE3END DATA  X'FF000000'
     7882                            *
     7883                            ************
     7884                            *
     7885                            *
     7886                            *
     7887   01 02F41    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
     7888   01 02F42    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
     7889   01 02F43    EA6003C8              BAL,X6   *#GUIDE%
     7890   01 02F44    0320BD18 N            GEN,8,2,1,1,4,16  3,0,1,0,0,BA(PROGTEXT)                   *A02
     7891   01 02F45    2F20BD64 N            GEN,8,2,1,1,4,16  47,0,1,0,0,BA(PROGMOD)                   *A05
     7892                            *
     7893         01 02F46           PROGTEXT TEXTCS   'MAP/WL-*A05'
     7894                                     TEXTCS   'SIGMA 8/9 MAP & WRITE LOCK PROGRAM 706138-';
     7895         01 02F49                             ,'A05 MANUAL 901878'                              *A04
     7896         01 02F58                    TEXTCS   ' '
     7897                            PROGMOD  TEXTCS   ;                                                 *A02
     7898         01 02F59                    'PROGRAM MODIFICATIONS'                                    *A02
     7899                                     TEXTCS   ;                                                 *A02
     7900         01 02F5F                    '---------------------'                                    *A02
     7901                                      TEXTCS  ;                                                 *A05
     7902         01 02F65                    '*  REVISION A05'                                          *A05
     7903                                     TEXTCS   ;                                                 *A05
     7904         01 02F69               '    1. BYPASS BYTE STRING TESTS IF SIGMA9 MOD3'                *A05
     7905                                     TEXTCS   ;                                                 *A04
     7906         01 02F75                    '*  REVISION A04'                                          *A04
     7907         01 02F79                    TEXTCS   ' '                                               *A04
     7908                                     TEXTCS   ;                                                 *A04
     7909         01 02F7A                '    1. SHORT LOOP FOR MAP FUNCTIONAL TST CORRECTED.TAR#10862' *A04
     7910                                     TEXTCS   ;                                                 *A04
     7911         01 02F8A                '    2. CHANGED THE MSG FORMAT FOR MAP & WL FUNCTIONAL TESTS'  *A04
     7912                                     TEXTCS   ;                                                 *A04
     7913         01 02F99                '    3. MAP PARITY ERR BIT CHECKED IN FUNCTIONAL TESTS.'       *A04
     7914         01 02FA7                    TEXTCS   ' '                                               *A04
     7915                                     TEXTCS   ;
     7916         01 02FA8                    '*  REVISION A03'
     7917         01 02FAC                    TEXTCS   ' '
     7918                                     TEXTCS   ;
     7919         01 02FAD                '    1. MODIFIED ALL LRA TESTS TO REFLECT CHANGES IN LRA INST.'
     7920                                     TEXTCS   ;
     7921         01 02FBD                '    2. MODIFIED  CODE WHEREVER LRA INST WAS USED.'
     7922                                     TEXTCS   ;
     7923         01 02FCA                '    3. CORRECTED ENTRY & EXIT POINTS FROM ERROR ROUTINES.'
     7924                                     TEXTCS   ;
     7925         01 02FD9                '    4. MADE APPROPRIATE CHANGES TO BE COMPATIBLE WITH'        *A03
     7926                                     TEXTCS   ;
     7927         01 02FE7                '       GUIDE--B00.'
     7928                                     TEXTCS   ;                                                 *A03
     7929         01 02FEC                '    5. ADDED MASTER PROTECT MODE TEST FOR LRA INST.'          *A03
     7930         01 02FF9                    TEXTCS   ' '
     7931                                     TEXTCS   ;                                                 *A02
     7932         01 02FFA                    '*  REVISION A02'                                          *A02
     7933         01 02FFE                    TEXTCS   ' '                                               *A02
     7934                                     TEXTCS   ;                                                 *A02
     7935         01 02FFF               '     1. EXPLANATION MESSAGE FOR SW 3 CORRECTED. TAR#11550'     *A02
     7936                                     TEXTCS   ;                                                 *A02
     7937         01 0300E               '     2. CLOCK MARGIN INITIALISED TO NORMAL. TAR#11549'         *A02
     7938                                     TEXTCS   ;                                                 *A02
     7939         01 0301C               '     3. RECOVERY FROM UNEXPECTED TRAP TO X''40'' CORRECTED'    *A02
     7940                                     TEXTCS   ;                                                 *A02
     7941         01 0302B               '        AFTER THE UNEXPECTED TRAP MESSAGE IS OUTPUT'           *A02
     7942                                     TEXTCS   ;                                                 *A02
     7943         01 03038               '        THE  PROGRAM IS IN IDLE STATE(%).ON INSERTING A ''#'' ' *A02
     7944                                     TEXTCS   ;                                                 *A02
     7945         01 03048               '        PROGRAM WILL EXECUTE THE TEST FROM THE BEGINNING'      *A02
     7946                                     TEXTCS   ;                                                 *A02
     7947         01 03057               '     4. MODIFIED TEST X''18'' TO GET CPU OUT OF WAIT STATE'    *A02
     7948                                     TEXTCS   ;                                                 *A02
     7949         01 03066               '        BY TRIGGERING CNT PANEL INT VIA SNAP'                  *A02
     7950                                     TEXTCS   ;                                                 *A02
     7951                                '     5. MODIFIED TEST X''20'' TO USE COUNTER 4 WITH REMOTE ';  *A02
     7952         01 03072                    ,'GUIDE'                                                   *A02
     7953                                     TEXTCS   ;                                                 *A02
     7954         01 03082               '     6. MODIFIED THE USE OF ''#HDRFLG'' TO CONFORM TO THE'     *A02
     7955                                     TEXTCS   ;                                                 *A02
     7956         01 03090               '        REST OF THE CPU PROGRAMS.'                             *A02
     7957                                     TEXTCS   ;                                                 *A02
     7958         01 03099               '     7. CPU TYPE AND TEST RANGE IS OUTPUT WHEN THE '           *A02
     7959                                     TEXTCS   ;                                                 *A02
     7960         01 030A6               '        PROGRAM IS FIRST LOADED.ALSO,IF VOLTAGE MARGIN'        *A02
     7961                                     TEXTCS   ;                                                 *A02
     7962         01 030B4               '         IS NOT NORMAL A MESSAGE IS OUTPUT.'                   *A02
     7963                                     TEXTCS   ;                                                 *A02
     7964         01 030BF               '     8. INSERTED CONSTANTS FOR LITERALS.'                      *A02
     7965         01 030CA                    TEXTCS   ' '                                               *A02
     7966                                     TEXTCS   ;                                                 *A02
     7967         01 030CB                    '*  REVISION A01'                                          *A02
     7968         01 030CF                    TEXTCS   ' '                                               *A02
     7969                                     TEXTCS   ;                                                 *A02
     7970         01 030D0               '     1. ''K'' PARAMETER HAS BEEN INCORPORATED IN THE PROGRAM'  *A02
     7971                                     TEXTCS   ;                                                 *A02
     7972         01 030DF               '     2.  STATUS REPORT WILL ALWAYS GO TO THE MSGDEV.'          *A02
     7973                                     TEXTCS   ;                                                 *A02
     7974         01 030ED               '        ''&'' -STATUS TO THE COMDEV.'                          *A02
     7975                                     TEXTCS   ;                                                 *A02
     7976         01 030F6               '     3. EXPLANATION MESSAGE INCLUDED FOR ''S'' PARAMETER'      *A02
     7977                                     TEXTCS   ;                                                 *A02
     7978         01 03104               '     4. TEST NUMBER IS OUTPUT IN HEX INSTEAD OF DECIMAL'       *A02
     7979                                     TEXTCS   ;                                                 *A02
     7980         01 03112               '     5. CHANGED LRA TESTS TO INCLUDE LRA TESTING FOR SIGMA 8'  *A02
     7981                                     TEXTCS   ;                                                 *A02
     7982         01 03122               '     6. MODIFIED MMC INTERRUPT TEST'                           *A02
     7983         01 0312B                    TEXTCS   ' '                                               *A02
     7984         01 02F42           ENDADDR  END      GUIDE             GO TO GUIDE

  CONTROL SECTION SUMMARY: 01 0312C   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   00:20 JUN 21,'83    SIGMA 8/9 MAP & WRITE LOCK PROGRAM(MAP/WL) 706138-11/51A05 03/15/74   PAGE    6
A  AC              5306/LD      6787-TEXTS
   AC%             1489/LW      1541/LW      1554/LW      1598/LW      6800-TEXTS
   AC#             2988/LW      6792-TEXTS
   ACBITS          6056/LM      6930-LW
   ACCAL2          2218-EQU     6766/B
   ACCHK1          1861-EQU     1886/B
   ACEND           2198/BEZ     2203-RES
   ACFTST          1882/BE      1888-EQU
   ACHEAD1         1965/STH     1966/#PRINT  7417-TEXTCS
   ACHEAD2         1967/#PRINT  7420-TEXTCS
   ACHEAD3         1968/#PRINT  7422-TEXTCS
   ACIMAGE         5713/LI      5715/LW      7042-EQU
   ACLOAD          1858/STW     1917/STW     2133/STW     2176/CW      2197/LW      2200/STW     2238/LW
      2303/STW     2412/STW     2524/STW     2604/STW     2828/STW     3015/#BTECON 3409/STW     3479/STW
      3616/STW     5413/LW      5543/#BTECON 5766/LW      7041-DATA    7046/EQU
   ACMEMPR         2169-EQU     2221/B       6642/B
   ACMSG1          1972/STW     1973/STW     1974/#PRINT  7424-EQU     7432/EQU
   ACMSG2          2179/STW     2180/STW     2181/LI      2232/#PRINT  7455-TEXTCS
   ACMSG3          2192/STW     2193/LI      7458-TEXTCS
   ACOPHD1         2247/STH     2248/#PRINT  7450-TEXTCS
   ACOPHD2         7453-EQU
   ACOPLOP         2152-EQU     2171/BCS     2183/B
   ACOPT           2139/GEN     2251-RES     5415/LW
   ACOPXIT         2184/B       2188/BNE     2190/BNEZ    2196-EQU
   ACREAD          1487/LW      1596/LW      1874/STW     1911/STW     1918/CW      2175/STW     2186/LW
      5547/#BTECON 5868/STW     7040-DATA    7044/EQU     7077/EQU
   ACTCC           1184/STCF    1196/LW      1240/LW      1306/STCF    1318/LW      1439/STCF    1443/CW
      1464/#BTECON 1648/STCF    1666/LW      1728/STCF    1779/STCF    1868/STCF    1871/LW      1905/STCF
      1908/LW      3797/STCF    3834/STCF    4430/STCF    5498/#BTECON 5861/STCF    5865/LW      5880/STCF
      6851-DATA    6930/LW
   ACTDATA         2042/STW     2052/STW     2076/#HTECON 2563/STW     2572/#HTECON 3370/STW     3984/STW
      4013/STW     4077/#HTECON 6920-DATA
   ACTLRA          1187/STW     1235/#HTECON 1309/STW     1651/STW     1731/STW     1782/STW
      1839/#HTECON 3800/STW     3837/STW     6853-DATA
   ACX             7701-TEXTCS
   ADMODCHK        2994/LW      6769-EQU
   ADRMMC1         4523/CW      4573/LW      4595/#HTECON 6943-DATA
   ADRSTHD         5219/CW      5223/LW      6844-DATA
   ADRWLPAT        4529/SW      7036-DATA
   ALLACREG        1478/BAL     1572/BAL     1620/BAL     1713/BAL     1860/BAL     1951/BAL     1994/BAL
      2206/BAL     2783/BAL     2970/BAL     3268/BAL     3333/BAL     3556/BAL     3674/BAL     5710-EQU
      5739/BAL
   ALLWLREG        1141/BAL     1477/BAL     1525/BAL     1621/BAL     3557/BAL     3788/BAL     3887/BAL
      4324/BAL     4489/BAL     4751/BAL     4910/BAL     4988/BAL     5723-EQU     5735/BAL
   ALMAPREG        1291/BAL     1429/BAL     1712/BAL     1719/BAL     1815/BAL     1854/BAL     1993/BAL
      2782/BAL     2969/BAL     3267/BAL     3890/BAL     4642/BAL     5693-EQU     5738/BAL
   AMOD            2813/LW      3196-DATA    4354/LW
   AMPER%EXPL      5175/LW      7831-P
   ANLCNT          2174-EOR
   ATEMP           2811/LW      3199-DATA    4352/LW
   BA:MHD1         1506/LW      6868-DATA
   BA:MHD2         1544/LW      6869-DATA
   BA:MHD3         1590/LW      6870-DATA
   BA:MMCX1        1507/LW      6871-DATA
   BA:MMCX2        1543/LW      1589/LW      6872-DATA
   BA:MMCX3        1556/LW      1602/LW      6873-DATA
   BADPARTY        5039/STW     5041/LMS     5042/LI      5080/STW     5082/LMS     7016-RES
   BALMMC          5631/B       5637/B       5639-EQU     5649/B
   BCS             6990-BCS
   BFHDG1          5929/#PRINT  7636-TEXTCS
   BFHDG2          6061/#PRINT  7641-TEXTCS
   BFHDG3          6187/#PRINT  7644-TEXTCS
   BTE1            6053/STW     6116/AWM     6117-BAL     6145/MTW     6147/B       6181/STW
   BUF1            5966/STW     6002/STH     6003/#PRINT  6015/STW     6121/STH     6155/STH
      6156/#PRINT  7638-TEXTCS
   CA               676/SET      735-EQU
   CALL1           2611/GEN     4152/GEN     6837-CAL1
   CAL1INST        3552/LW      6840-CAL1
   CAL1TRAP        1046/LW      6556/LW      6806-XPSD
   CAL2INST        3554/LW      6841-CAL2
   CAL2TRAP        1048/LW      6558/LW      6807-XPSD
   CB               676/SET      736-EQU
   CC               676/SET      737-EQU
   CC4X            7705-TEXTCS
   CD               676/SET      738-EQU
   CE               676/SET      739-EQU
   CHK:LTST        6543/BL      6581-EQU
   CHK:TCR         6480/BE      6493-EQU
   CHK:TSP         6466/BE      6477-EQU
   CHKAC1          1586/BEZ     1595-EQU
   CHKCM           5123-EQU     5163/BE
   CHKDATA         2948-EQU
   CHKINST1        2311/STW     2313/GEN     2320-EQU
   CHKINST3        2536/STW     2538/GEN     2545-EQU
   CHKINST5        2675/GEN     2731-EQU
   CHKINST6        4231/GEN     4275-EQU
   CHKLL           2456/B       2461-EQU
   CHKLONG         1492/B       1495/BEZ     1499-EQU
   CHKLONG1        1547/B       1551/BEZ     1559-EQU
   CHKLONG2        1593/B       1597/BEZ     1605-EQU
   CHKSS2          1315/B       1321-EQU
   CHKSS2A         1363/B       1371-EQU
   CHKWK00         4041/BEZ     4045-EQU
   CHKWL1          1488/BEZ     1493-EQU
   CHKWL2          1540/BCR     1549-EQU
   CHK1            3002/#PRINT  6770/DATA    6774/DATA    7737-TEXTCS
   CHK2            6771/DATA    7738-TEXTCS
   CHK3            6772/DATA    6775/DATA    7739-TEXTCS
   CHK4            6773/DATA    7740-TEXTCS
   CHK5            6776/DATA    6778/DATA    7741-TEXTCS
   CHK6            6777/DATA    6779/DATA    7742-TEXTCS
   CHNGCM          5129/BCS     5132-EQU
   CIN             2404/LW      2509/LW      6986-CI
   CIP             2497/LW      2516/LW      6987-CI
   CLEARCNT         940-EQU      942/BIR
   CLMARG          1028/STW     5206/STW     5208/GEN     6337/STW     6953-DATA
   CLRBUF          5935/BAL     6006/BAL     6012-EQU     6068/BAL     6159/BAL
   CMFIXED         5125/LW      6325/STW     6351/STW     7062-DATA
   CNT4ZRO         3725-DATA    6814/XPSD
   COMERR          1508-EQU     1545/BAL     1591/BAL
   COMMON          1249/B       1395/BCR     1397/B       1468/B       1516/B       1844/B       1975/B
      2081/B       2233/B       2373/B       2491/B       2729/B       3043/B       3287/B       3468/B
      3523/B       3609/B       3769/B       4093/B       4457/B       4586/B       4611/B       4744/B
      4787/B       4866/BEZ     4882/B       4976/B       5023/B       5104/B       5233-EQU
   COMPWL          4549/BE      4554-EQU
   CONSTANT        1154/STD     1163/LW      6849-DATA
   CONTEST#        1260/BAL     1678/BAL     1828/BAL     1964/BAL     2094/BAL     2246/BAL     2389/BAL
      3397/BAL     3761/BAL     3908/BAL     4087/BAL     4468/BAL     5177/BAL     5259/BAL     5273-EQU
   CONTINU1        1784/BE      1787/B       1789-EQU
   CONTINU2        1919/BE      1922/B       1924-EQU
   CONTINU3        3839/BE      3842/B       3860-EQU
   COR:HR          6520-EQU     6533/BL
   COUNTER4        6808/MTW     6813-DATA
   CPINT           4521/LW      4617-DATA    6815/XPSD
   CPINTA          3253-DATA    6810/XPSD
   CPUTYPE         1056/BLE     1061-EQU
   CRA             6000/GEN     6005/AWM     6076/LW      6100/LW      6102/STW     6107/STW     6153/GEN
      6158/AWM     6239/STW     7053-DATA
   CYCLE           5120/BNE     5126/BNEZ    5130/B       5147-EQU     5164/B
   C0               702/GEN      725-EQU
   C1               676/SET      726-EQU     1262/#PRINT  1514/#PRINT  1680/#PRINT  1830/#PRINT
      1831/#PRINT  1843/#PRINT  1966/#PRINT  1967/#PRINT  1974/#PRINT  2096/#PRINT  2248/#PRINT
      2391/#PRINT  3002/#PRINT  3285/#PRINT  3399/#PRINT  3608/#PRINT  3763/#PRINT  3910/#PRINT
      3911/#PRINT  4089/#PRINT  4090/#PRINT  4455/#PRINT  4470/#PRINT  4584/#PRINT  4609/#PRINT
      4741/#PRINT  4786/#PRINT  4864/#PRINT  5021/#PRINT  5101/#PRINT  5102/#PRINT  5221/#PRINT
      5369/#PRINT  5401/#PRINT  5441/#PRINT  5477/#PRINT  5929/#PRINT  6038/#PRINT  6061/#PRINT
      6187/#PRINT
   C1C2            1158/STW     1181/LC      1200/LW      1300/STW     1303/LC      1352/STW     1354/LC
      1433/STW     1436/LC      1644/STW     1646/LC      5365/#BTECON 6855-DATA
   C2               676/SET      727-EQU
   C3               676/SET      728-EQU
   C4               676/SET      729-EQU
   C5               676/SET      730-EQU
   C6               676/SET      731-EQU
   C7               676/SET      732-EQU
   C8               676/SET      733-EQU
   C9               676/SET      734-EQU
   DA%EXPL         7277-EQU     7857/P
   DBA             2903/STM*    2920/LW      2951/LM*     3019/LW*     3025/LW*     3210-DATA
   DBDR            2514/LW      6975-DATA
   DBIR            2507/LW      6974-DATA
   DCA              843-ORG
   DEFEXP          1725/BAL     1745-EQU     1776/BAL
   DEFEXP1         3794/BAL     3831/BAL     3844-EQU
   DID             1384/LW      2942/LW      4827/LW      6794-TEXTS
   DIROPCOD        2420/BGEZ    2438-EQU
   DISAC           6050-EQU     7855/E
   DISALL          6244-EQU     6252/BEZ
   DISMAP          5923-EQU     7850/E
   DISONE          6227/BEZ     6249-EQU
   DISP            2906/LW      3216-DATA
   DISPLAY1        5938/BL      5953-EQU
   DISPLAY2        6071/BL      6108-EQU
   DISWL           6178-EQU     7860/E
   DM%EXPL         7179-TEXTCS  7837/P
   DP%EXPL         7255-EQU     7852/P
   DPER1           6224/BGE     6257-EQU
   DPER2           6229/BGE     6236/BG      6261-EQU
   DRIVER          2833/BAL     2849-EQU     2878/B       4370/BAL
   DW%EXPL         7299-EQU     7862/P
   E               7758-COM
   EBCBLNKS        6014/LW      6367/LW      6438/LW      6599/LW      7064-DATA
   ECAC            1958/MTW     2237/MTW     2377/MTW     2987/MTW     6960-DATA
   ECLRA           1253/MTW     5183/GEN     6955/DATA    6958-DATA
   ECMAP           1672/MTW     1822/MTW     2085/MTW     3755/MTW     6959-DATA
   ECMM            3386/MTW     6962-DATA
   ECMMC           4461/MTW     6963-DATA
   ECWL            3902/MTW     4065/MTW     4203/MTW     4394/MTW     6961-DATA
   ELRA1           6856/GEN     7690-TEXTCS
   ELRA2           6857/GEN     7696-TEXTCS
   EMMC6           1490/BAL     1504-EQU
   EMM1            7707-TEXTCS
   ENDADDR          991/LI      7984-END
   EPL1            2454/BAL     2467-EQU
   ERA             5951/CW      5954/LW      6104/CW      6109/LW      6240/STW     7054-DATA
   ERACOP1         2182/BAL     2224-EQU
   ERCONTAD        5179/LW      6955-DATA
   ERMAPF          1654/BAL     1671-EQU
   ERMAPOP1        2045/BAL     2061-EQU
   ERMAPOP2        2053/BAL     2101-EQU
   ERMAST1         3373/BAL     3380-EQU
   ERMAST2         3438/BAL     3459-EQU     3647/BAL
   ERMAST3         3512/BAL     3518-EQU
   ERMAST4         3584/BAL     3605-EQU
   ERMMC1          4437/BAL     4443-EQU
   ERMMC10         5057/BAL     5088-EQU
   ERMMC3          4516/BAL     4570-EQU
   ERMMC3A         4561/BAL     4588-EQU
   ERMMC4          4708/BAL     4727-EQU
   ERMMC5          4774/BAL     4783-EQU
   ERMMC6          4819/BAL     4852-EQU
   ERMMC8          4942/BAL     4958-EQU
   ERMMC9          4998/BAL     5014-EQU
   ERPLT5          2699/BAL     2719-EQU     2778/BAL
   ERPLT7          2957/BAL     2983-EQU
   ERPLT8          3263/BAL     3282-EQU
   ERPL1           2341/BAL     2363-EQU     2578/BAL     2648/BAL
   ERRAC           1877/BAL     1920/BAL     1955-EQU
   ERRACOP         2228/BAL     2236-EQU
   ERRFLAG         2300/STW     2336/LW      2339/STW     2358/STW     2614/STW     2631/STW     2645/LW
      2679/STW     2696/LW      2716/STW     2763/STW     2775/LW      2790/MTW     2899/STW     2945/MTW
      2954/MTW     2955/LW      3244/STW     3261/LW      3279/MTW     3419/STW     3435/LW      3455/STW
      3489/STW     3510/LW      3534/STW     3565/STW     3582/LW      3601/STW     3627/STW     3644/LW
      3660/STW     3937/STW     3987/MTW     3995/MTW     4016/MTW     4024/MTW     4035/LW      4155/STW
      4173/STW     4187/LW      4235/STW     4252/LW      4272/STW     4305/STW     4317/LW      4331/MTW
      4495/STW     4525/MTW     4558/MTW     4559/LW      4645/STW     4694/MTW     4699/MTW     4704/MTW
      4706/LW      4723/MTW     4991/STW     4996/LW      5010/STW     6992-DATA
   ERRMAP          1734/BAL     1785/BAL     1819-EQU
   ERRMAPOP        2062/BAL     2084-EQU     2102/BAL
   ERRMAST         3381/BAL     3385-EQU     3463/BAL     3519/BAL     3606/BAL
   ERRMMC          1509/BAL     4445/BAL     4460-EQU     4571/BAL     4589/BAL     4728/BAL     4784/BAL
      4854/BAL     4959/BAL     5015/BAL     5089/BAL
   ERRPL           2367/BAL     2376-EQU     2468/BAL     2723/BAL     3283/BAL     4204/BAL
   ERRPL:5         2382-EQU     2991/BAL
   ERRTC1          3741/BAL     3754-EQU
   ERRWL           3803/BAL     3840/BAL     3894-EQU
   ERRWLOP         4037/BAL     4064-EQU
   ERWLP1          4190/BAL     4199-EQU     4255/BAL     4320/BAL
   ERWLP4          2986/BE      4393-EQU
   ER1             1190-BAL     1198/BNE
   ER10            2454-BAL     2460/BNE
   ER11            3840-BAL
   ER12            4819-BAL     4828/B
   ER13            5057-BAL     5063/BNE
   ER2             1312-BAL     1320/BNE
   ER3             1361-BAL     1370/BCS
   ER4             1490-BAL     1497/B
   ER5             1544-LW      1557/B
   ER6             1590-LW      1603/B
   ER7             1785-BAL
   ER8             1920-BAL
   ER9             2182-BAL     2194/B
   EVEN            5625/B       5627-EQU
   EXITDA          6138/BEZ     6165/B       6167-EQU
   EXITDP          5931/B       5983/BEZ     6019-EQU     6033/B       6039/B       6064/B       6167/EQU
   EXITDP1         6026-LCI     6214/B
   EXITDW          6025/BNEZ    6210-EQU
   EXPADR          5055/CW      5091/#HTECON 6945-DATA
   EXPCC           1197/CW      1239/LW      1297/STW     1319/CW      1642/STW     1667/CW      6850-DATA
   EXPDATA         2044/STW     2050/STW     2072/#HTECON 3372/STW     3977/STW     4006/STW
      4073/#HTECON 6919-DATA
   EXPLRA          1173/STW     1188/CW      1231/#HTECON 1282/STW     1310/CW      1637/STW     1652/CW
      1732/CW      1756/STW     1783/CW      1835/#HTECON 3801/CW      3838/CW      3856/STW     6854-DATA
   EXPWL           6946-DATA
   EXU67           2535/AW      6911-DATA
   FINISH          1059/B       5114-EQU
   FIRSTLOD         945/MTW      947/MTW     6935-DATA
   FIRSTPAS        5118/BE      5159-EQU
   FORMAP          5623/BEZ     5645-EQU
   F0               676/SET      741-EQU
   F1               676/SET      742-EQU
   GETAC           1971/BAL     2178/BAL     2191/BAL     5542-EQU     7047/EQU
   GETMARG         5186/BE      5192-EQU
   GETNMOD1        2826-EQU     2966/B
   GETNMOD2        4362-EQU     4387/B
   GETVPAD         1834/BAL     1970/BAL     5516-EQU
   GETWL           4081/BAL     7047-EQU
   GOTO%           6359/BCS     6361-EQU
   GUID:4C          954/STW     1374/LW      5067/LW      6279/LW      6560/LW      6821-DATA
   GUID:4D          956/STW     4833/LW      6562/LW      6822-DATA
   GUID:5B          960/STW     6566/LW      6824-DATA
   GUID:5D          962/STW     3269/LW      4566/LW      6568/LW      6825-DATA
   GUID:55          958/STW     6564/LW      6823-DATA
   GUIDE           7888-STW     7984/END
   H               7757-COM
   HALTONER        5260/STH     5261/#TYPE   7627-TEXTCS
   HDSKIP          3760/BE      3764-EQU
   HEX68           2148/AW      2532/AW      2809/OR      3685/AW      4350/OR      6908-DATA
   HTE:TCR         1063/BEZ     1065/BL      1068-#HTECON
   HTECON          5180/STW     5182-BAL     5189/AWM     5191/BIR
   HTECON1         4574/STW     4577-#HTECON 4582/MTW     4583/BIR
   HTE1            5926/STW     5961/AWM     5962-BAL     5990/MTW     5992/B
   IAC             6052/LW      7057-DATA
   IBCS            2310/AW      6989-DATA
   IBDR            2495/LW      6973-DATA
   IBIR            2402/LW      6972-DATA
   IETMMC          4797/LW      4893/LW      6818-XPSD
   IMAGE           6054/STW     6099/STW*    6182/STW     6929-DATA
   IMAGEAC          930/STW     5716/STW     5782/STW     6118/GEN     7013-RES     7057/DATA
   IMAGEMAP         926/STW     5661/STW     5699/STW     5949/STH     5963/GEN     6204/STH     6212/LI
      7011-RES     7055/DATA
   IMAGEWL          931/STW     5729/STW     5811/STW     7015-RES     7059/DATA
   IMAP            5925/LW      7055-DATA
   IMGMAP          4646/LI      7008-DATA
   INCRCC          1193/B       1199-EQU
   INCRET          5258/BCS     5265-MTW
   INCRX1          1657-EQU     1668/BE
   INITDP          6233/BG      6238-EQU     6247/B       6254/B
   INITIAL          859/DATA     910-EQU
   INITREGS         935/BAL     5733-EQU     6553/BAL
   INITSTOR        2836/BAL     2897-EQU     4373/BAL
   INST            2406/STW     2419/LW      2427/AW      6977-DATA
   INSTAD          2885/LB      2887/LW*     3211-DATA
   INSTADR         2309/BAL     2418/BAL     2530/BAL     5311-EQU
   INTCNT4Z        3704/LW      6814-XPSD
   INTFLAG         4494/STW     4514/LW      4625/MTW     7037-DATA
   INTOK           4515/BNEZ    4520-EQU
   INTXIT          4511-EQU     4626/B
   INTX5D          4490/LW      6815-XPSD
   INT5D           3231/LW      6810-XPSD
   IWL             6180/LW      7059-DATA
   J%EXPL          7321-EQU     7867/P
   K%EXPL          7386-EQU     7877/P
   K#XIT           6540/BEZ     6545/BG      6548-EQU     6584/BL      6586/BG
   L               7759-COM
   LABEL            911/STW     1037/BAL*    1039-DATA
   LAST:TST        1013/LI      6486/CI      6888-EQU
   LASTPAGE        1738/CW      1791/CW      1800/CW      1881/CW      1926/CW      1936/CW      3807/CW
      3862/CW      3872/CW      4945/CW      6896-DATA
   LASTPAG1        1801/BE      1812-EQU
   LASTPAG2        1937/BE      1948-EQU
   LASTPAG3        3873/BE      3884-EQU
   LASTRVP1        1792/BE      1796-EQU
   LASTRVP2        1927/BE      1932-EQU
   LASTRVP3        3863/BE      3868-EQU
   LH              6119-EQU     6131/B       6142/B
   LIN             2403/LW      2508/LW      6984-LI
   LINFUL1         5970/BEZ     5978-EQU
   LINFUL2         6125/BEZ     6133-EQU
   LINK             885-EQU      911/STW      964/LW       967/LW      1004/BAL     1006/STW     1007/BAL
      1009/STW     1010/BAL     1012/STW     1017/LW      1030/STW     1031/AWM     1035/STW     1037/BAL
      1069/LW      1232/LM      1236/LM      1244/LM      1388/LW      1391/LW      1465/LW      1836/LM
      1840/LM      2073/LM      2077/LM      2474/LW      2477/LW      2568/LM      2573/LM      2761/BAL
      2772/BAL     2996/LW      3004/LM      3008/LM      3012/LM      3016/LW      3021/LM      3027/LM
      3031/LM      3035/LM      4069/LW      4074/LM      4078/LM      4303/BAL     4314/BAL     4448/SLS
      4449/AI      4450/LH      4453/LW      4578/LM      4592/LM      4596/LW      4599/LW      4602/LM
      4606/LM      4731/LW      4734/LM      4738/LM      4857/LM      4862/LW      4870/LM      4874/LM
      4878/SLS     4879/LB      4962/LM      4966/LW      4970/LW      4973/LW      5018/LM      5092/LW
      5095/LW      5115/BAL     5121/BAL     5152/BAL     5160/BAL     5174/STW     5182/BAL     5184/LM
      5207/BAL     5209/LW      5275/LW      5359/LW      5362/LM      5366/LW      5382/LM      5386/LM
      5391/LW      5394/LW      5397/LW      5433/LM      5437/LM      5463/LM      5467/LM      5472/LW
      5475/LW      5488/LM      5492/LW      5495/LM      5499/LW      5502/LM      5522/LW      5526/LW
      5544/LW      5548/LW      5962/BAL     5965/LW*     5996/STW     5997/LW      5999/BAL     6001/LW
      6007/LW      6009/STW     6117/BAL     6120/LH*     6151/STW     6152/BAL     6154/LW      6160/LW
      6222/LW      6223/CI      6225/STW     6226/LW      6228/CI      6230/STW     6232/CW      6234/AW
      6235/CI      6237/AI      6240/STW     6245/LI      6246/STW     6250/STW     6253/STW     6296/LC
      6303/BAL     6305/TIO*    6312/BAL     6314/CI      6316/CI      6322/CI      6326/LW      6328/LB
      6329/LB      6330/STB     6331/BDR     6332/BAL     6334/STW     6335/BAL     6338/CW      6340/STW
      6344/AW      6345/STW     6372/XW      6387/LC      6391/BAL     6393/CI      6395/STW     6396/BAL
      6398/CW      6400/CW      6402/CW      6404/STW     6405/BAL     6407/CW      6409/CW      6411/CW
      6413/STW     6414/LB      6415/LB      6416/STB     6417/BDR     6443/XW      6460/LC      6467/BAL
      6469/AND     6470/CI      6472/CW      6474/STW     6481/BAL     6483/AND     6484/CI      6486/CI
      6488/CW      6490/STW     6499/BAL     6501/AND     6502/CW      6504/CW      6506/STW     6574/BAL
      6604/XW      6684/LM      6688/LM      6692/SLS     6693/LB      6696/LM      6708/LW      6715/BAL
      7747/BAL
   LINK1           1733/BE      1736-EQU
   LINK2           1876/BE      1879-EQU
   LINK3           3802/BE      3805-EQU
   LIP             2496/LW      2515/LW      6985-LI
   LIST            2814/STW     2827/LB*     2851/LW*     2855/LB*     2862/LB*     2865/LW*     2867/MTW
      2877/AWM     2963/LW*     3195-DATA    4355/STW     4363/LB*     4384/LW*
   LOADAC          1894-EQU     1907/BCS     1921/B       1946/B
   LOADINST        2834/BAL     2884-EQU     4371/BAL
   LOADMAP         1767-EQU     1781/BCS     1786/B       1810/B
   LOADNW          2864-EQU     2869/BDR
   LOADPSD1        3343-EQU     3367/BCS     3374/B       3376/BCS
   LOADPSD2        3417-EQU     3434/BCS     3439/B       3441/BCS
   LOADPSD3        3487-EQU     3509/BCS     3513/B       3515/BCS
   LOADPSD4        3563-EQU     3581/BCS     3585/B       3587/BCS
   LOADPSD5        3624-EQU     3643/BCS     3648/B       3651/BCS
   LOADWL          3822-EQU     3836/BCS     3841/B       3882/B
   LOADWORD        5594/STW     5595/LW*     5605-EQU
   LODSTAT         2405-EQU     2498/B       2510/B       2517/B
   LODTINST        2426-EQU     2440/B
   LOG             6326/LW      6337/STW     6348/CI      6352/AI      6353/SLS     6354/OR      6355/WD
      7069-EQU
   LOOPSS2         5059/B       5064-EQU
   LOPLPSD1        4153-EQU     4186/BCS     4191/B       4193/BCS
   LOPLPSD2        4232-EQU     4251/BCS     4256/B       4258/BCS
   LOPT10          1645-EQU
   LOPT11          1718-EQU     1730/BCS     1735/B
   LOPT12          1859-EQU     1870/BCS     1878/B
   LOPT16          2407/STW     2431-EQU     2447/BCS     2455/B       2463/BCS
   LOPT23          2760-EQU     2774/BCS     2779/B       2781/BCS
   LOPT24          2808/LI      2835-EQU     6865/BCS
   LOPT25          3242-EQU     3260/BCS     3264/B       3266/BCS
   LOPT34          3787-EQU     3799/BCS     3804/B
   LOPT38          4302-EQU     4316/BCS     4321/B       4323/BCS
   LOPT39          4349/LI      4372-EQU     6866/BCS
   LOPT40          4413-EQU     4432/BCS
   LOPT42          4492-EQU     4513/BCS     4517/B       4562/B       4565/BCS
   LOPT43          4643-EQU     4683/BCS     4709/B       4711/BCS
   LOPT44          4755-EQU     4763/BCS     4775/B       4777/BCS
   LOPT45          4805-EQU     4815/BCS     4820/B       4832/BCS     4901/B
   LOPT47          4917-EQU     4920/BCS     4943/B       4961/#HTECON
   LOPT48          4989-EQU     4995/BCS     4999/B       5002/BCS
   LOPT49          5037-EQU     5047/BCS     5058/B       5066/BCS
   LOPT6           1476-EQU     1485/BCS     1491/B       1501/BCS
   LOPT7           1524-EQU     1536/BCS     1546/B       1561/BCS
   LOPT8           1571-EQU     1583/BCS     1592/B       1607/BCS
   LOWCM           5137/BE      5155-EQU
   LPSDACOP        2137/STW     2157/LPSD    2159-DATA
   LPSDLOP1        2314-LPSD    2335/BCS     2342/B       2344/BCS
   LPSDLOP3        2539-LPSD    2560/BCS     2579/B       2583/BCS
   LPSDLOP4        2612-EQU     2644/BCS     2649/B       2651/BCS
   LPSDLOP5        2676-EQU     2695/BCS     2700/B       2702/BCS
   LPSDMOP         2002/STW     2022/LPSD    2024-DATA
   LPSTAT          5213/BNE     5217-EQU
   LRA             5285/LD      6785-TEXTS
   LRAERR          1224/BAL     1252-EQU     1379/BAL     1461/BAL
   LRAER1          1190/BAL     1216-EQU     1312/BAL
   LRAER1X         1230-EQU     1677/BE      1682/B
   LRAER3          1361/BAL     1378-EQU
   LRAER5          1445/BAL     1453-EQU
   LRAHD1          1261/STH     1262/#PRINT  7469-TEXTCS
   LRAINSTX        5883/STW     5899/LW*     5901/LW      6834-DATA
   LRAINST2        5879-LRA     5882/LI
   LRALOOP1        1179-EQU     1186/BCS     1191/B
   LRALOOP2        1301-EQU     1308/BCS     1313/B
   LRALOOP3        1339-EQU     1358/BCS     1362/B       1373/BCS
   LRALOOP5        1434-EQU     1441/BCS     1446/B       1449/BCS
   LRAMPE          1622/LI      1624/LW      1647-LRA
   LRAMSG1         5360/STW     5364/STM     5368/STH     5369/#PRINT  7472-TEXTCS
   LRAMSG1A        1234/STM     1245/STW     1247/#PRINT  7475-TEXTCS
   LRAMSG1B        1238/STM     1246/STW     1248/#PRINT  7478-TEXTCS
   LRAMSG3         1385/STW     1393/#PRINT  7481-TEXTCS
   LRAMSG3A        1389/STW     1392/STW     1396/#PRINT  7484-TEXTCS
   LRAMSG5         1466/STW     1467/#PRINT  7486-TEXTCS
   LRAOK1          1189/BE      1195-EQU
   LRAOK2          1311/BE      1317-EQU
   LRAOK4          1360/BCS     1365-EQU
   LRAREAD         5874-EQU     5944/BAL     6083/BAL     6199/BAL
   LRARETURN       5876/STW     5886/B*      6833-DATA
   LRATRAP         1366/LW      1390/#HTECON 1403-DATA    1412/LPSD    6812/XPSD
   LRA1            1142/LI      1144/LW      1182-EQU
   LRA2            1276/LI      1278/LW      1304-EQU
   LRA3            1333/LI      1335/LW      1355-EQU     1368/LI      1386/LI
   LRA4            1423/LI      1425/LW      1437-EQU
   LROK            6519/BLE     6528/B       6530-EQU
   LST:TST         1014/STW     6472/CW      6887-DATA
   LSTADRS          988/STW     3545/LW      4984/LW      7081-DATA
   LW              5964-EQU     5976/B       5987/B
   LWINST          2429/LW      6978-LW
   LWTIP           1998/LW      3336/LW      3677/LW      6996-LW
   LWTP            2134/LW      2304/LW      2413/LW      2525/LW      2605/LW      2665/LW      3410/LW
      3480/LW      3617/LW      6999-LW
   MAP             5295/LD      6786-TEXTS
   MAPBITS         5393/#HTECON 5596/STW     7002-DATA
   MAPCAL1         2037-EQU     6738/B
   MAPCHK1         1720-EQU     1743/B
   MAPEDADR        2066/LW      2146/LW      2378/LW*     2380/LW      2428/STW*    2473/#HTECON
      2567/#HTECON 2759/STW     3371/LW*     3387/LW*     3389/LW      4149/STW     4228/STW     4301/STW
      5417/LW      5570/STW*    5681/STW     5824/STW     7001-DATA
   MAPEDPAG         994/STW     6398/CW      6407/CW      7084-DATA
   MAPFTST         1739/BE      1759-EQU
   MAPHEAD1        1679/STH     1680/#PRINT  1829/STH     1830/#PRINT  7408-TEXTCS
   MAPHEAD2        1831/#PRINT  7411-TEXTCS
   MAPHEAD3        1832/#PRINT  7413-TEXTCS  7431/EQU
   MAPIMAGE        5695/LI      5698/LW      7078-EQU
   MAPLOAD         1717/STW     1746/LW      1764/STW     6901-DATA
   MAPMP           3245/LPSD    3247-DATA
   MAPMP1          2764/LPSD    2766-DATA
   MAPMSG1         1838/STM     1842/STM     1843/#PRINT  5517/LB      5519/STB     5524/STW     5528/STW
      7415-TEXTCS  7424/EQU
   MAPMSG2         5384/STM     5389/STM     5392/STH     5395/STW     5400/STW     5401/#PRINT
      7437-TEXTCS  7453/EQU     7492/EQU     7536/EQU
   MAPMSG3         2070/STM     2071/#PRINT  7440-TEXTCS
   MAPMSG4         2075/STM     2079/STM     2080/#PRINT  7442-TEXTCS
   MAPMSG5         2110/STM     2111/#PRINT  7444-TEXTCS
   MAPMSG6         3768/#PRINT  7447-TEXTCS
   MAPOPHD1        2095/STH     2096/#PRINT  3762/STH     3763/#PRINT  7434-TEXTCS
   MAPOPT          2013-EQU     2039/BCS     2046/B       2054/B
   MAPPE           5885/BCS     5896-EQU
   MAPPTRN          925/STW     4757/STW     4758/LI      4779/STW     4809/LI      6552/STW     7007-RES
      7042/EQU     7048/EQU     7078/EQU
   MAPREAD         1538/LW      1585/LW      4695/STW     4730/#HTECON 5852/STW     6900-DATA
   MAPSELF         1344/BAL     3233/BAL     3625/BAL     3782/BAL     4488/BAL     4754/BAL     4913/BAL
      5746-EQU     6207/BAL
   MAPSMOD         2837/LPSD    2840-DATA
   MAP1F           1483/BAL     1526/BAL     1573/BAL     5833-EQU
   MARGINMASK       918/AND     6347/AND     7061-DATA
   MASTMOD1        4150/STW     4156/LPSD    4159-DATA
   MASTMOD2        4229/STW     4236/LPSD    4238-DATA
   MASTMOD3        4306/LPSD    4308-DATA
   MASTMOD4        4374/LPSD    4377-DATA
   MASTPROT        4661/LPSD    4664-DATA
   MAXADR           981/STW     1210/CW      7082-DATA
   MEMPAR          5048/LW      5051/LW      5075-DATA    5085/LPSD    6811/XPSD
   MHD1            1514/#PRINT  6868/DATA    7551-TEXTCS
   MHD2            6869/DATA    7554-TEXTCS
   MHD3            6870/DATA    7557-TEXTCS
   MMC             5346/LD      6790-TEXTS
   MMCAC1          1294/BAL     1897/BAL     1941/BAL     2669/BAL     5769/BAL     5773-EQU
   MMCHD1          4469/STH     4470/#PRINT  7548-TEXTCS
   MMCIET          4842-DATA    4848/MTW     4849/LPSD    4868/AWM     4869/#HTECON 4873/#HTECON 6818/XPSD
   MMCILCB         4803/LW      6980-DATA
   MMCINST         4804/STW     4812-DATA    4856/#HTECON 4860/LI      4900/STW
   MMCMAP1         1151/BAL     1770/BAL     1805/BAL     4412/BAL     5610/BAL     5617/BAL     5641/BAL
      5652-EQU
   MMCMG10         5020/STM     5021/#PRINT  7608-TEXTCS
   MMCMSG1         4455/#PRINT  7569-TEXTCS
   MMCMSG11        5101/#PRINT  7611-TEXTCS
   MMCMSG2         4451/STH     4454/STW     4456/#PRINT  7571-TEXTCS
   MMCMSG4         4584/#PRINT  7575-TEXTCS
   MMCMSG4A        4580/STM     4585/#PRINT  7578-TEXTCS
   MMCMSG4B        4594/STM     4597/STW     4600/STW     4609/#PRINT  7581-TEXTCS
   MMCMSG4C        4604/STM     4608/STM     4610/#PRINT  7584-TEXTCS
   MMCMSG5         4741/#PRINT  7587-TEXTCS
   MMCMSG5A        4742/#PRINT  7590-TEXTCS
   MMCMSG5B        4681/STW     4732/STW     4736/STM     4740/STM     4743/#PRINT  7593-TEXTCS
   MMCMSG6         4786/#PRINT  7596-TEXTCS
   MMCMSG7         4853/STW     4859/STM     4863/STW     4864/#PRINT  7599-TEXTCS
   MMCMSG7B        4802/STB     4872/STM     4876/STM     4880/STB     4881/#PRINT  4898/STB
      7602-TEXTCS
   MMCMSG9         4964/STM     4968/STW     4971/STH     4974/STH     4975/#PRINT  7605-TEXTCS
   MMCM12          5093/STW     5102/#PRINT  7614-TEXTCS
   MMCM13          5096/STW     5100/STB     5103/#PRINT  7616-TEXTCS
   MMCODDR         4899/LW      6981-DATA
   MMCTRAP         5044-EQU     6945/DATA
   MMCWL1          1287/BAL     3825/BAL     3877/BAL     4222/BAL     4290/BAL     5798/BAL     5802-EQU
   MMCX1           1505/STW     1515/#PRINT  6871/DATA    7560-TEXTCS
   MMCX2           1542/STW     1588/STW     6872/DATA    7563-TEXTCS
   MMCX3           1553/STW     1555/STW     1599/STW     1601/STW     6873/DATA    7566-TEXTCS
   MMC1            4507-EQU     4577/#HTECON 4591/#HTECON 6816/GEN     6943/DATA
   MMHD1           3398/STH     3399/#PRINT  7533-TEXTCS
   MMHD2           7536-EQU
   MMLPSD          3340/STW     3347/LPSD    3349-DATA    3414/STW     3423/LPSD
   MMLPSD3         3484/STW     3493/LPSD    3495-DATA    3621/STW
   MMLPSD4         3566/LPSD    3568-DATA
   MMLPSD5         3632/LPSD    3634-DATA
   MMSG1           3437/LI      3466/#PRINT  7538-TEXTCS
   MMSG2           3522/#PRINT  7541-TEXTCS
   MMSG3           3646/LI      7543-TEXTCS
   MMSG4           3608/#PRINT  7545-TEXTCS
   MMT             5324/LD      6788-TEXTS
   MODLAST         3192-EQU
   MODLOC          3199/DATA    3202-EQU
   MODULE#         2820/STW     2850/MTW     2993/LW      2995/#HTECON 4361/STW     6781-DATA
   MOD0            3052-EQU     3196/DATA
   MOD1            2817/STB     3065-EQU     4358/STB
   MOD2            3078-EQU
   MOD3            2818/STB     3091-EQU     4359/STB
   MOD4            3104-EQU
   MOD5            3117-EQU
   MOD6            3130-EQU
   MOD7            3147-EQU
   MOD8            3164-EQU
   MOD9            3178-EQU
   MOPLOP1         1997-EQU     2057/BCS
   MPE             1654-BAL     1669/B
   MPEBIT          6819-DATA
   MPEHDG          5897/#TYPE   7618-TEXTCS
   MPEMSG          5490/STM     5493/STW     5497/STM     5500/STW     5504/STM     5904/#TYPE
      7623-TEXTCS
   MPEMSGX         5898/#TYPE   7620-TEXTCS
   MPEOK           1653/BE      1665-EQU
   MPEPATT         1629/LW      1635/LW      6875-EQU
   MPOPRT          2010/STW     2012/GEN     2040/CW      2043/LW      2064/LW      2104/LW      2115-LW
   MSGSTAT         5220/BE      5222-#PRINT
   MTWI            3696/AW      6941-MTW
   MTW55           6808-MTW
   MTW55A          6809-MTW
   NCOUNT          1027/STW     1031/AWM     5119/CW      5124/AWM     6345/STW     6952-DATA
   NEW:TST         6459/STB     6498/STB     6526/STB     6549/LW      6573/LCF     6886-DATA
   NEWPSD          2599/LM      2656-DATA
   NEWPSD1         4139/LM      4209-DATA
   NEXTAC          2150-LI      2201/B
   NEXTCC          1158-STW     1202/BCR     1204/BCS
   NEXTINST        5568-EQU     5573/BDR
   NEXTWL          3932-EQU     3966/BCS     4038/B       4043/B       4055/B
   NO              3993/LW      3999/LW      4009/LW      4017/LW      4722/LW      6798-TEXTS
   NOMAP           7076-DATA
   NOMAP#          6038/#PRINT  7634-TEXTCS
   NONXMMC         4993-DATA    5011/B       5017/#HTECON
   NOP             6184/LM      6932-NOP
   NOT             1381/LW      2946/LW      4818/LW      6795-TEXTS
   NOTADD          1167/BCS     1170/BCS     1172-AW
   NOTAVAIL        6307/#TYPE   7657-TEXTCS
   NOTOK1          3979/BEZ     3992-EQU
   NOTOK2          4008/BNEZ    4021-EQU
   NOTRAPX         3971/BEZ     3973/BEZ     3975/BE      4004-EQU
   NWLREG          4924-STW     4950/B
   NXTBLK1         5974/BE      5985/BE      5989-EQU
   NXTBLK2         6129/BE      6140/BE      6144-EQU
   NXTMPE          1627-EQU     1650/BCS     1655/B       1660/BL
   NXTTEST         2464-EQU
   ODD             5626/B       5633-EQU
   ODDEVEN         4409/BAL     5607/BAL     5624/BAL     5665-EQU
   OPCXPSD         2594/AW      4134/AW      6838-XPSD
   P               7760-COM
   PAGEADR         1178/STW     1183/LRA     1284/STW     1305/LRA     1347/STW     1348/STW*    1350/LMS*
      1356/LRA     1406/STW*    1408/LMS*    1431/STW     1438/LRA     1634/STW     1647/LRA     1724/STW
      1727/LRA     1775/STW     1778/LRA     1865/STW     1867/LRA     1902/STW     1904/LRA     3630/STW
      3663/LRA     3793/STW     3796/LRA     3830/STW     3833/LRA     3851/LW      4426/STW     4429/LRA
      4540/STW     4543/LRA     4686/STW     4689/LRA     4766/STW     4769/LRA     4924/STW     4930/LRA
      4947/LW      5501/#HTECON 5847/STW     5849/LRA     5858/STW     5860/LRA     5879/LRA     5943/STW
      6021/STW     6082/STW     6198/STW     6277/LW      6894-DATA
   PARAM%RET       6299/STW     6308/MTW     6318/MTW     6372/XW      6373/B*      6390/STW     6425/MTW
      6430/MTW     6435/MTW     6443/XW      6444/B*      6463/STW     6591/MTW     6596/MTW     6604/XW
      6605/B*      7065-DATA
   PARAMER         6263/STD     6264/#TYPE   6368/STD     6369/#TYPE   6439/STD     6440/#TYPE   6600/STD
      6601/#TYPE   7632-TEXTCS
   PARAMJ          6293-EQU     7865/E
   PARAMJ#A        6302/BE      6306/BCR     6312-BAL
   PARAMJ#E        6309/B       6320/B       6367-LW
   PARAMJ#X        6328-LB
   PARAMJ#Y        6297/BEZ     6356-EQU
   PARAMK          6455-EQU     7875/E
   PARAMT          6384-EQU     7870/E
   PASS#            941/STW      944/STW     5116/LW      5148/MTW     6341/LW      6344/AW      6964-DATA
   PGMAX            990/STW     6402/CW      6411/CW      7083-DATA
   PJ#X            6315/BLE     6324-LI
   PJ#Y            6317/BG      6322-CI
   PJ#Z            6318-MTW     6323/BGE
   PK#ERR          6593/B       6598-EQU
   PK#ER1          6471/BE      6473/BG      6536/B       6547/B       6590-EQU
   PK#ER2          6485/BE      6487/BG      6489/BL      6588/B       6595-EQU
   PK#XIT          6461/BEZ     6535/BGE     6538-EQU
   PL#JHDR         6291/DATA    7651-TEXTCS
   PL#KHDR         6453/DATA    7668-TEXTCS
   PL#THDR         6382/DATA    7662-TEXTCS
   PLHD1           2390/STH     2391/#PRINT  7489-TEXTCS
   PLHD2           7492-EQU
   PLIN#K          1024/STB     1070/STW     6452/DATA    6464/LW      6476/STW     6478/LW      6492/STW
      6494/LW      6508/STW     6512/LW      6513/STW     6523/LW      6524/STW     7670-TEXTCS
   PLIN#KR         1018/STW     1022/LB      1023/LB      7672-TEXTCS
   PLIN#T          1002/STB     6382/DATA    6414/LB      6416/STB     7664-TEXTCS
   PLIN#TR         1000/LB      1001/LB      1005/GEN     1008/GEN     1011/GEN     7666-TEXTCS
   PLINE#J          922/STB      998/STB     1034/#ETHCON 5144/STB     6291/DATA    6301/CW      6328/LB
      6330/STB     6333/GEN     6336/GEN     7653-TEXTCS
   PLINE#JRES       965/STW      968/STW      996/LB       997/LB      1029/#ETHCON 7655-TEXTCS
   PLINEIN          861/DATA    6300/LW      6313/GEN     6319/LW      6329/LB      6392/GEN     6397/GEN
      6406/GEN     6415/LB      6426/LW      6431/LW      6436/LW      6465/CW      6468/GEN     6475/LW
      6479/CW      6482/GEN     6491/LW      6495/CW      6500/GEN     6507/LW      6592/LW      6597/LW
      7751-RES
   PLMSGX1         2475/STW     2484/STB     2489/#PRINT  7497-TEXTCS
   PLMSGX2         2478/STW     2485/STB     2488/STB     2490/#PRINT  7499-TEXTCS
   PLMSG1          2340/LI      2371/#PRINT  7494-TEXTCS
   PLMSG10         3023/STM     3029/STM     3033/STM     3037/STM     3042/#PRINT  7524-TEXTCS
   PLMSG11         3285/#PRINT  7527-TEXTCS
   PLMSG12         4319/LI      7530-TEXTCS
   PLMSG2          2571/STM     2576/STM     2577/LI      7501-TEXTCS
   PLMSG3          5465/STM     5470/STM     5473/STH     5476/STH     5477/#PRINT  7504-TEXTCS
   PLMSG4          2647/LI      7507-TEXTCS
   PLMSG5          5435/STM     5440/STM     5441/#PRINT  7510-TEXTCS
   PLMSG6          2698/LI      2727/#PRINT  4254/LI      7512-TEXTCS
   PLMSG7          4189/LI      7515-TEXTCS
   PLMSG8          2777/LI      7518-TEXTCS
   PLMSG9          2947/STW     2990/STW     3006/STM     3010/STM     3014/STM     3017/STH
      3018/#PRINT  7521-TEXTCS
   PRBUF           5981/BAL     5995-EQU     6032/BAL
   PRBUF1          6136/BAL     6150-EQU     6164/BAL
   PRINTNO         5928/BNEZ    6037-EQU     6060/BNEZ
   PRNT1           1512/STH     1514-#PRINT
   PRNT2           1513/STH     1515-#PRINT
   PROGMOD         7891/GEN     7897-TEXTCS
   PROGTEXT        7890/GEN     7893-TEXTCS
   PRXITDA         6127/BEZ     6163-EQU
   PRXITDP         5972/BEZ     6031-EQU
   PSDWK0          3948/LPSD    3951-DATA
   PSMINST         2915/BE      2928-EQU
   PT#ERR          6427/B       6432/B       6437-EQU
   PT#ER1          6394/BG      6424-EQU
   PT#ER2          6399/BL      6401/BG      6403/BG      6429-EQU
   PT#ER3          6408/BL      6410/BG      6412/BG      6434-EQU
   PT#XIT          6388/BEZ     6418-EQU
   P1#             5955/SW      5957/LW      5959/LW      6106/LW      6110/SW      6112/LW      6114/LW
      6225/STW     6231/LW      6232/CW      6234/AW      6251/LW      7051-DATA
   P2#             6230/STW     6246/STW     6250/STW     7052-DATA
   READAC          1898-EQU     1929/B
   READCM          6339/BE      6346-RD
   READMAP         1771-EQU     1794/B
   READNWL         4539-EQU     4552/B
   READREGS        1486/BAL     1537/BAL     1584/BAL     5844-EQU
   READSTAT        5211/LI      7747-BAL     7829/E
   READVP          1716/STW     1721/LW      1737/LW      1742/AWM     1748/CW      1762/STW     1772/LW
      1790/LW      1793/MTW     1798/STW     1857/STW     1862/LW      1880/LW      1885/AWM     1891/STW
      1899/LW      1913/LW      1925/LW      1928/MTW     1934/STW     3785/STW     3790/LW      3806/LW
      3811/AWM     3817/STW     3827/LW      3846/LW      3861/LW      3864/MTW     3870/STW     4922/STW
      4935/LW      4944/LW      4949/MTW     4965/#HTECON 5525/#HTECON 6899-DATA
   READWL          3826-EQU     3865/B
   REG             7700-TEXTCS
   REGSAVE         6695/#HTECON 6998-DATA
   REMOT:GD         952/STW     3733/LW      6843-DATA
   RESTART         6575/DATA    6578-DATA
   RESULTAT        2017/STW     2019/STW*    2048/CW*     2051/LW*     2106/LW      2145/STW     2156/STW*
      2189/LW*     7003-DATA
   RETRY           5875/STW     5906/B*      5907-DATA
   RETURN1         5734/STW     5737/BNEZ*   5740/B*      6827-DATA
   RETURN2         6221/STW     6241/MTW     6242/B*      6265/B*      6828-DATA
   RETURN3         5845/STW     5869/B*      6829-DATA
   RETURN5         5449/STW     5454/B*      6830-DATA
   RETURN6         5461/STW     5478/B*      6831-DATA
   RETURN7         5486/STW     5505/B*      6832-DATA
   RM%EXPL         7182-TEXTCS  7842/P
   RTCLPSD         3681/STW     3710/LPSD    3712-DATA
   RTINST          3686/STW     3688/GEN     3748-EQU
   S%EXPL          7188-EQU     7847/P
   S:INT            492/ERROR    541/ERROR    595/SET      604/SET      614/ERROR    618/SET      620/SET
       629/DO
   S:RAD            618/SET      671/ERROR
   S:UFV            671/ERROR
   SAM:TCR         6550/BNEZ    6570-EQU
   SAMEBLK         5604/BE      5621-EQU
   SAVCNT          2853/STW     2871/SW      2876/LW      6926-DATA
   SAVE            6295/STM     6363/LM      6371/LM      6386/STM     6420/LM      6442/LM      6457/STM
      6572/LM      6603/LM      7066-RES
   SAVEADDR        5412/STW     5421/B*      6906-DATA
   SAVECC          6622/STCF    6625/LW      6691/#HTECON 6997-DATA
   SAVELINK        5174/STW     5212/CW      5216/B*      5225/B*      6954-DATA
   SAVER           2917/BE      2923-EQU     2931/B
   SAVEREGS        4696/LW      4701/LW      4721/STM     6027/LM      6274/STM     6624/STM     6713/LM
      6998/DATA    7004-RES
   SAVINFO         5924/BAL     6051/BAL     6179/BAL     6272-EQU
   SAVPAG          6020/LW      6278/STW     6895-DATA
   SAVRESLT        4444/STW     4452/#HTECON 4705/STW     4737/#HTECON 5494/#HTECON 5881/STW     5945/LW
      6084/LW      6200/LW      6846-DATA
   SAVRS           4527/LW      4532/LW      4624/STM     5656/STW     5659/LW      5777/STW     5780/LW
      5806/STW     5809/LW      6914-RES
   SAVR6           4498/STW     6923-DATA
   SAVR8           2448/STW     2458/LW      2480/LW      2924/STW     3007/#HTECON 6924-DATA
   SAVR9           2925/STW     3011/#HTECON 6925-DATA
   SAV4C           6022/LW      6276/STW     6921-DATA
   SBA             2904/LW      2918/LW      3209-DATA
   SCAN            6062-EQU     6189/BNEZ    6208/B
   SCSL            4800/STW     4824-DATA    4896/STW
   SCSL3           4799/LW      6982-SCS
   SCSL4           4895/LW      6931-SCS
   SCSL8           6933-SCS
   SET:TCR         6503/BL      6505/BG      6511-EQU
   SETAC           2151/BAL     2306/BAL     2415/BAL     2527/BAL     2607/BAL     3412/BAL     3482/BAL
      3619/BAL     5761-EQU
   SETC1C2         1298-EQU     1323/BCS
   SETINST         2011/BAL     2138/BAL     2312/BAL     2537/BAL     2610/BAL     2674/BAL     3341/BAL
      3415/BAL     3485/BAL     3622/BAL     3687/BAL     4151/BAL     4230/BAL     5563-EQU
   SETLPSD         2001/BAL     2136/BAL     2307/BAL     2416/BAL     2528/BAL     2608/BAL     2672/BAL
      5677-EQU
   SETLPSD1        3339/BAL     3413/BAL     3483/BAL     3620/BAL     3680/BAL     5820-EQU
   SETMAP          2000/BAL     2135/BAL     2305/BAL     2414/BAL     2526/BAL     2606/BAL     2666/BAL
      3338/BAL     3411/BAL     3481/BAL     3618/BAL     3679/BAL     5593-EQU
   SETPADX         6194-EQU     6206/BIR
   SETPAD1         5939-EQU     5952/BLE
   SETPAD2         6075-EQU
   SETWL           3938/BAL     4145/BAL     5790-EQU
   SHIFTCM         5139-EQU     5157/B
   SHIFTR8         4417/EXU     4474-SLS
   SICOUNT         1030/STW     5122/LW      5161/LW      6338/CW      6340/STW     7067-DATA
   SIGMA8           917/STW      969/LW      1062/LW      1147/MTW     1289/LW      1342/LW      1427/LW
      3780/LW      3888/LW      4405/LW      4486/LW      4639/LW      4752/LW      4911/LW      5736/LW
      5927/LW      6059/LW      6188/LW      6539/LW      6993-DATA
   SIG8BIT          914/CW      6994-DATA
   SIG8MSG          972/#TYPE   7682-TEXTCS
   SIG9MSG          978/#TYPE   7679-TEXTCS
   SKIPHDG1        1683-EQU
   SKIPINIT         937/BNEZ    1032-EQU
   SKIPMOD         2857/BE      2863/BCR     2875-EQU
   SKIPRESJ         946/BNEZ     995-EQU
   SKIPTI          3039/BNEZ    3041-EQU
   SLAVMAP1        2308/STW     2314/LPSD    2316-DATA
   SLAVMAP3        2529/STW     2539/LPSD    2541-DATA
   SLAVMAP4        2609/STW     2615/LPSD    2617-DATA
   SLAVMAP5        2673/STW     2680/LPSD    2682-DATA
   SLMAP1          2417/STW     2433/LPSD    2435-DATA
   SLOOP           2810/STW     2958-NOP     4351/STW
   SLSX            6058/STM     6086-EQU     6186/STM
   SNAP:INT        4502/LW      6816-GEN
   SNAP:WAT        3292/LW      6817-GEN
   SORCDATA        2909/LD      3214-DATA
   SPAD2A          6078-EQU     6096/B
   SPAD2B          6072-LI      6105/BLE
   SS1CHK          3259-LC      3280/B
   SS2CHK1         4821/B       4826/BCS     4830-EQU
   SS2CHK3         4946/BE      4952-EQU
   SS2LOOP         4518/B       4560/BEZ     4563-EQU
   START           1038/DATA    1041-DATA
   STAT%XPL        7718-TEXTCS  7831/P
   STATMSGS        5121/BAL     5160/BAL     5173-EQU     7747/BAL
   STHD1           5214/#TYPE   5221/#PRINT  6844/DATA    7711-TEXTCS
   STMSG1          5178/STH     5187/STW     5193/STH     5196/STH     5203/STB     5210/STB     5215/#TYPE
      5222/#PRINT  5286/STD     5296/STD     5307/STD     5325/STD     5336/STD     5347/STD
      7715-TEXTCS
   STORCON         1152-SLS     1211/BNE     1213/B
   STOREAT         2143/STW     2149/STW*    2425/STW     2430/STW*    2439/STW     2531/STW     2533/STW*
      2534/LW      2593/STW     2601/STM*    3551/STW     3553/STW*    3931/STW     3934/STW*    3947/STW*
      3983/LW*     4012/LW*     4133/STW     4141/STM*    4700/STW     4733/#HTECON 6909-DATA
   STORMAX          974/B        980-EQU
   STORXPSD        1041/DATA    1043-EQU
   STREXPCC        1290/BNEZ    1296-EQU
   STRT:TST        1071/LW      1074/B       1077-EQU
   STSAC           1853/BAL     2131/BAL     2298/BAL     2409/BAL     2521/BAL     2589/BAL     2663/BAL
      2742/BAL     2805/BAL     3230/BAL     5305-EQU
   STSLRA          1140/BAL     1275/BAL     1332/BAL     1422/BAL     5284-EQU
   STSMAP          1619/BAL     1711/BAL     1992/BAL     3673/BAL     5294-EQU
   STSMM           3332/BAL     3406/BAL     3476/BAL     3544/BAL     3613/BAL     5323-EQU
   STSMMC          1475/BAL     1523/BAL     1570/BAL     4407/BAL     4485/BAL     4641/BAL     4750/BAL
      4796/BAL     4892/BAL     4909/BAL     4987/BAL     5034/BAL     5345-EQU
   STSWL           3779/BAL     3922/BAL     4128/BAL     4218/BAL     4286/BAL     4346/BAL     5334-EQU
   SUPHEAD1        1827/BE      1833-EQU     3907/BE      3913/B
   SUPHEAD2        1963/BE      1969-EQU
   SUPRESP         1225/B       1380/B       1462/B       1510/B       1674/BCS     1824/BCS     1960/BCS
      2063/B       2103/B       2229/B       2368/B       2469/B       2724/B       2992/B       3284/B
      3382/B       3464/B       3520/B       3607/B       3757/BCS     3904/BCS     4067/BCS     4205/B
      4446/B       4572/B       4590/B       4729/B       4785/B       4855/B       4960/B       5016/B
      5090/B       5242/B       5256-EQU
   SUPWLHD         4086/BE      4091-EQU
   SW2             4997/BEZ     5000-EQU
   SYNTAX%EXPL     7138-TEXTCS  7826/P
   T%EXPL          7365-EQU     7872/P
   TABLE3           860/DATA    7821-EQU
   TABLE3END       7881-DATA
   TADDR           1143/STW     1277/STW     1334/STW     1424/STW     1623/STW     2067/STW     2107/STW
      2381/STW     3390/STW     3766/STW     5358/#HTECON 5385/#HTECON 5419/STW     5436/#HTECON
      5466/#HTECON 5491/#HTECON 5902/STW     6970-DATA
   TADROK          2408/STW     2453/BE      2457-EQU
   TCR:NUM          846-DATA    1021/STW     1033/MTW     1051/MTW     1054/LW      1057/MTW
      1068/#HTECON 1227/CW      1258/CW      1676/CW      1826/CW      1962/CW      2092/CW      2244/CW
      2387/CW      2960/LW      2984/LW      3395/CW      3759/CW      3906/CW      4085/CW      4466/CW
      5151/STW     5234/LW      5274/#HTECON 5854/LW      5936/LW      6069/LW      6506/STW     6515/STW
      6518/CW      6522/STW     6532/CW      6628/LW      6707/#HTECON
   TCR:SET         6496/BE      6509/B       6516-EQU
   TEMP            2812/STW     2866/STW*    2868/MTW     2870/LW      2872/STW     2913/LB*     3198-DATA
      4353/STW
   TEMP1           6074/STW     6092/AWM     6097/LW      6928-DATA
   TESTOK3         2566/BE      2581-EQU
   TESTPAGE        1012/STW     1345/LW      2007/LW      2020/LW      2140/LW      2153/LW      2421/LW
      2590/LW      3344/LW      3420/LW      3490/LW      3548/LW      3558/LW      3628/LW      3692/LW
      3928/LW      4068/#HTECON 4129/LW      4411/LW      4415/LW      4419/LW      4424/LW
      4447/#HTECON 5312/LW      5390/#HTECON 5597/LW      5609/LW      5628/LW      5636/AW      5640/LW
      5666/LW      5762/LW      5768/LW      5791/LW      5797/LW      6413/STW     6999/LW      7073-DATA
   TESTPATN        1766/STW     1768/LW      1807/LW      1809/STW     1893/STW     1895/LW      1943/LW
      1945/STW     3819/STW     3823/LW      3879/LW      3881/STW     6897-DATA
   TESTVP          1715/STW     1741/AWM     1747/LW      1761/STW     1769/LW      1799/LW      1803/LW
      1806/MTW     1856/STW     1884/AWM     1890/STW     1896/LW      1914/CW      1935/LW      1939/LW
      1942/MTW     3784/STW     3810/AWM     3816/STW     3824/LW      3847/CW      3871/LW      3875/LW
      3878/MTW     5521/#HTECON 6898-DATA
   TEST39          2962/BE      4383-EQU
   TEXTCS           746-CNAME
   TEXTS            754-CNAME
   TINST           1145/STW     1279/STW     1336/STW     1426/STW     1625/STW     2065/STW     2105/STW
      2379/STW     2941/STW     3003/#HTECON 3388/STW     3697/STW     5361/#HTECON 5381/#HTECON 5416/STW
      5432/#HTECON 5462/#HTECON 5487/#HTECON 5900/STW     6969-DATA
   TINSTP          1009/STW     2003/LW      2014/LW      2452/CW      2565/CW      3682/LW      3700/LW
      4146/LW      4225/LW      5600/LW      5606/LW      5611/LW      5612/LW      5616/LW      5630/AW
      5634/LW      5646/LW      5648/AW      5678/LW      5821/LW      6404/STW     6996/LW      7072-DATA
   TIOACT          2756/LD      2794-EQU
   TIOWLT          4298/LD      4335-EQU
   TNUM31          1066/CI      6544/CI      6585/CI      7126-EQU
   TNUM39          2961/CI      2985/CI      7127-EQU
   TNUM5           1064/CI      5855/CI      5937/CI      6070/CI      6542/CI      6583/CI      7125-EQU
   TOK             1444/BCR     1447-EQU
   TOK1            2041/BE      2048-CW
   TOK10           3436/BEZ     3440-LC
   TOK11           3511/BEZ     3514-LC
   TOK12           3583/BEZ     3586-LC
   TOK12A          3645/BEZ     3649-EQU
   TOK13           3740/BEZ     3743-LC
   TOK14           4036/BEZ     4040-LW
   TOK15           4188/BEZ     4192-LC
   TOK16           4253/BEZ     4257-LC
   TOK17           4318/BEZ     4322-LC
   TOK18           4436/BE      4438-LC
   TOK19           4707/BEZ     4710-LC
   TOK2            2049/BE      2056-LC
   TOK20           4773/BE      4776-LC
   TOK21           4817/BNEZ    4823-LW
   TOK22           4941/BE      4944-LW
   TOK23           5056/BE      5061-LW
   TOK3            2337/BEZ     2343-LC
   TOK4            2646/BEZ     2650-LC
   TOK5            2697/BEZ     2701-LC
   TOK6            2776/BEZ     2780-LC
   TOK7            2956/BEZ     2960-LW
   TOK8            3262/BEZ     3265-LC
   TOK9            3369/BE      3375-LC
   TPAC            1996/STW     2087/STW     2239/STW     2302/STW     2411/STW     2523/STW     2603/STW
      2671/STW     3335/STW     3408/STW     3478/STW     3615/STW     3676/STW     5396/#BTECON 6903-DATA
      6904/EQU
   TPMAP           1006/STW     1763/LW      6395/STW     7071-DATA
   TPWL            4143/STW     4224/STW     4292/STW     5474/#BTECON 6904-EQU
   TRAPCAL1        2978/MTW     2979/LD      6734-DATA    6806/XPSD
   TRAPCAL2        2219/LD      6762-DATA    6807/XPSD
   TRAPCC          4808/STW     4823/LW      4846/STCF    4877/#HTECON 6937-DATA
   TRAPFLG         1341/STW     1359/MTW     1382/MTW     1394/MTW     1411/MTW     2900/STW     2943/LW
      2977/MTW     3038/LW      4807/STW     4816/LW      4847/MTW     4865/LW      6936-DATA
   TRAPPSD         5452/BAL     6682-EQU     6706/BAL
   TRAPRET         6716/DATA    6718-DATA
   TRAP40          2172/LW      2220/STD     2449/LW      2476/#HTECON 2561/LW      2940/LW*     2980/STD
      5450/LD      6618-DATA    6704/LD      6804/XPSD
   TRNG1            979/#TYPE   7680-TEXTCS
   TRNG2            973/#TYPE   6546/#TYPE   6587/#TYPE   7683-TEXTCS
   TSP:NUM          845-DATA    1015/STW     1055/CW      6490/STW     6504/CW      6527/LW      6531/LW
      6582/LW
   TST:ADR          848-DATA    1072/STW     6718/DATA
   TST:CONT        1050-EQU     1067/BLE     1205/B       1324/B       1376/B       1450/B       1502/B
      1562/B       1608/B       1611/B       1663/B       1816/B       1952/B       2058/B       2207/B
      2345/B       2465/B       2584/B       2654/B       2703/B       2784/B       2971/B       3271/B
      3301/B       3305/B       3377/B       3442/B       3516/B       3547/BLE     3588/B       3652/B
      3745/B       3891/B       4061/B       4196/B       4259/B       4325/B       4390/B       4406/BNEZ
      4440/B       4568/B       4640/BNEZ    4712/B       4780/B       4835/B       4955/B       4986/BGE
      5003/B       5069/B       5153/B
   TST:CONTA       1052-EQU     6578/DATA
   TST:NUM          844-DATA    1020/STW     5149/LW      6474/STW     6488/CW      6502/CW      6514/LW
      6517/LW      6521/LW      6534/CW      6541/LW
   TSTEXIT         4047/BEZ     4049/BEZ     4058-EQU
   TSTINFOX        1229/BAL     1263/BAL     1681/BAL     5357-EQU
   TSTINFO2        2068/BAL     2108/BAL     2370/BAL     2471/BAL     3465/BAL     3521/BAL     3767/BAL
      5380-EQU     5420/BAL
   TSTINFO3        2231/BAL     5411-EQU
   TSTINFO4        2726/BAL     5431-EQU
   TSTINFO5        2372/BAL     2472/BAL     2728/BAL     3040/BAL     3286/BAL     3467/BAL     5022/BAL
      5448-EQU
   TSTINFO6        4206/BAL     5460-EQU
   TSTINFO7        5485-EQU     5903/BAL
   TSTINST1        3342/GEN     3353-EQU     3368/CW
   TSTINST2        3416/GEN     3470-EQU
   TSTINST3        3486/GEN     3538-EQU
   TSTINST4        4649/LD      4668-EQU
   TSTINST5        3623/GEN     3663-LRA
   TSTOK           3990/B       4001/B       4019/B       4030/B       4034-EQU
   TST1LRA         1079/B       1139-EQU
   TST10MF         1087/B       1618-EQU     1662/BCS
   TST12ACF        1089/B       1852-EQU     1950/BCS
   TST14ACOP       1091/B       2130-EQU     2205/BCS
   TST15PL         1092/B       2297-EQU
   TST16PL         1093/B       2401-EQU
   TST17PL         1094/B       2494-EQU
   TST18PL         1095/B       2506-EQU
   TST19PL         1096/B       2513-EQU
   TST2LRA         1080/B       1274-EQU
   TST20PL         1097/B       2520-EQU
   TST21PL         1098/B       2588-EQU
   TST22PL         1099/B       2662-EQU
   TST23PL         1100/B       2741-EQU
   TST24PL         1101/B       2804-EQU     2968/BCS
   TST25PL         1102/B       3229-EQU
   TST26           1103/B       3300-EQU
   TST27           1104/B       3304-EQU
   TST28MM         1105/B       3331-EQU
   TST29MM         1106/B       3405-EQU
   TST3LRA         1081/B       1331-EQU
   TST30MM         1107/B       3475-EQU
   TST31MM         1108/B       3543-EQU
   TST32MM         1109/B       3612-EQU
   TST33LOP        3689-EQU     3738/BCS     3742/B       3744/BCS
   TST33RTC        1110/B       3672-EQU
   TST34WLF        1111/B       3778-EQU     3886/BCS
   TST35WLOP       1112/B       3921-EQU
   TST36WLP1       1113/B       4127-EQU
   TST37WLP2       1114/B       4217-EQU
   TST38WLP3       1115/B       4285-EQU
   TST39WLP4       1116/B       4345-EQU     4389/BCS
   TST40MMC        1117/B       4404-EQU     4439/BCS
   TST42MMC        1118/B       4484-EQU
   TST43MMC        1119/B       4638-EQU
   TST44MMC        1120/B       4749-EQU
   TST45MMC        1121/B       4795-EQU
   TST46MMC        1122/B       4891-EQU
   TST47MMC        1123/B       4908-EQU     4954/BCS
   TST48MMC        1124/B       4983-EQU
   TST49MMC        1125/B       5033-EQU
   TST5LRA         1082/B       1421-EQU
   TST6MMC         1083/B       1474-EQU
   TST7MMC         1084/B       1522-EQU
   TST8MMC         1085/B       1569-EQU
   TST9            1086/B       1610-EQU
   T11MAPF         1088/B       1710-EQU     1814/BCS
   T13MAPOP        1090/B       1991-EQU
   T15CAL1         2333-EQU     2359/B       6739/B
   T15ERTRP        2356-EQU     6643/B
   T16OKTRP        2445-EQU     2500/EQU     2501/EQU     2503/EQU     6644/B
   T17OKTRP        2500-EQU     6645/B
   T18OKTRP        2501-EQU     6646/B
   T19OKTRP        2503-EQU     6647/B
   T20OKTRP        2558-EQU     6648/B
   T21CAL1         2632/B       2642-EQU     2658/DATA
   T21ERTRP        2629-EQU     6649/B
   T22CAL1         2693-EQU     2717/B       6740/B
   T22ERTRP        2714-EQU     6650/B
   T23CAL1         2771-EQU     2791/B       6741/B
   T23ERTRP        2789-EQU     6651/B
   T24CAL1         2976-EQU     6742/B
   T24LUPAD        2806/LW      6865-BCS
   T24OKTRP        2807/STW     2937-EQU     2981/B       4348/STW     4381/EQU     6652/B
   T25ERTRP        3276-EQU     6653/B
   T28CAL1         3365-EQU     6743/B
   T29CAL1         3432-EQU     3456/B       6744/B
   T29ERTRP        3453-EQU     6657/B
   T30CAL1         3532-EQU     6745/B
   T30OKTRP        3507-EQU     3535/B       6658/B
   T31CAL1         3579-EQU     3602/B       6746/B
   T31CAL2         3599-EQU     6767/B
   T32CAL1         3641-EQU     3661/B       6750/B
   T32ERTRP        3658-EQU     6660/B
   T36CAL1         4174/B       4184-EQU     4211/DATA
   T36ERTRP        4171-EQU     6664/B
   T37CAL1         4249-EQU     4273/B       6747/B
   T37ERTRP        4270-EQU     6665/B
   T38CAL1         4313-EQU     4332/B       6748/B
   T38ERTRP        4330-EQU     6666/B
   T39LUPAD        4347/LW      6866-BCS
   T39OKTRP        4381-EQU     6667/B
   T43CAL1         4719-EQU     6749/B
   T43OKTRP        4679-EQU     4724/B       6670/B
   T48ERTRP        5008-EQU     6675/B
   UNKNPSD         5451/STD     6683/#HTECON 6687/#HTECON 6705/STD     6722-DATA
   UNKNTRP         6709/STH     6710/#TYPE   7674-TEXTCS
   UNKNTRP1        5453/#PRINT  6686/STM     6690/STM     6694/STB     6699/STM     6711/#TYPE
      7676-TEXTCS
   UNXTRAP         6627/BCR     6630/B       6631/B       6632/B       6633/B       6634/B       6635/B
      6636/B       6637/B       6638/B       6639/B       6640/B       6641/B       6654/B       6655/B
      6656/B       6659/B       6661/B       6662/B       6668/B       6669/B       6671/B       6672/B
      6673/B       6674/B       6676/B       6703-EQU
   VALBIT           828-DATA
   VALDEX           832-EQU
   VALPARAM        5930/BAL     6063/BAL     6220-EQU
   VALTYPE          836-EQU
   VMMSG2           985/#TYPE   6360/#TYPE   7629-TEXTCS
   VMNORMAL         984/BCS      986-EQU
   VP              6859/GEN     6861/GEN     7699-TEXTCS
   VPREAD          5940/STW     5948/LW      6079/STW     6085/LW      6195/STW     6203/LW      6893-DATA
   WAITINST        3239/LM      3289-EQU
   WK              7703-TEXTCS
   WKDATA          3969/STW     3974/CW      4048/LW      4050/MTW     4051/LW      7077-EQU
   WL              5335/LD      6789-TEXTS
   WL%             1496/LW      1552/LW      1587/LW      1600/LW      6801-TEXTS
   WL#             4395/LW      6793-TEXTS
   WLCHK1          3789-EQU     3812/B
   WLFLAG          6024/LW      6191/STW     7049-DATA
   WLFUNTST        3808/BE      3814-EQU
   WLHEAD1         3909/STH     3910/#PRINT  7426-TEXTCS
   WLHEAD2         3911/#PRINT  7429-TEXTCS
   WLHEAD3         3912/#PRINT  7431-EQU
   WLIMAGE         5726/LI      5728/LW      7048-EQU
   WLLOAD          3786/STW     3821/STW     3845/LW      3927/STW     3972/LW      4040/LW      4042/MTW
      4054/MTW     4144/STW     4364/STW     4531/STW     4555/LW      4601/#HTECON 4939/STW
      4969/#BTECON 5795/LW      7046-EQU
   WLLPSD          3925/STB     3940/LPSD    3943-DATA    3967/LH      4046/LW      4053/STH
   WLMSG1          7432-EQU
   WLMSG2          3981/STW     3989/STW     3994/STW     4000/STW     4010/STW     4018/STW     4023/STW
      4029/STW     4072/STW     4076/STM     4080/STM     4082/STW     4083/STW     4092/#PRINT
      7466-TEXTCS
   WLOPHD1         4088/STH     4089/#PRINT  7460-TEXTCS
   WLOPHD2         4090/#PRINT  7463-TEXTCS
   WLOPLOP         3923-EQU     4060/BCS
   WLPATRN         4497/LI      4530/LW      7019-DATA    7036/DATA
   WLREAD          4496/STW     4547/AWM     4556/CW      4605/#HTECON 4933/STW     4940/CW
      4972/#BTECON 7044-EQU
   WLRED           1494/LW      1550/LW      5864/STW     7045-DATA
   WLTP            4130/STW     4221/STW     4289/STW     5471/#HTECON 6905-DATA
   WLWKFLG         3936/STW     3964/MTW     3978/LW      4007/LW      6918-DATA
   WLWKTRP         3951/DATA    3963-EQU     6663/B
   WLWKTST         3943/DATA    3946-EQU
   WLX             6863/GEN     7702-TEXTCS
   WORK1           2596/STW     2652/LW      3695/STW     3708/STW*    4136/STW     4194/LW      4659/STW
      4697/CW      6938-DATA
   WORK2           2905/STW     2908/AWM     2911/STM*    3703/STW     3709/STW*    3739/LW*     4660/STW
      4702/CW      6939-DATA
   WORK3           6940-DATA
   WORK4           4536/STW     4548/CW      6947-DATA
   WORK5           4526/STW     4598/#HTECON 5050/STW     5054/LW      5094/#HTECON 6948-DATA
   WORK6           5053/STW     5061/LW      5097/LW      6949-DATA
   WORK7           3699/STW     3729/LW      6950-DATA
   WORK8           3706/STW     3731/LW      6951-DATA
   WRTABRT         2177/BE      2185-EQU
   WRTCHK1         3982-EQU     3996/B
   WRTCHK2         4011-EQU     4025/B
   WRTNO           3986/BE      3998-EQU
   WRTYES          4015/BE      4027-EQU
   XDATA           2901/LD      2929/LD      2952/CD      3030/#HTECON 3034/#HTECON 3212-DATA
   XEACF           1956/LW      6861-GEN
   XELRA1          1217/LW      1454/LW      6856-GEN
   XELRA2          1218/LW      1455/LW      6857-GEN
   XEMAPF          1820/LW      6859-GEN     6862/EQU
   XERMAPOP        2072-#HTECON 2112/B
   XERMAP1         2068-BAL     3383/B
   XERPLT7         2989-EQU     4396/B
   XERPL1          2369-EQU
   XEWLF1          3895/LW      6862-EQU
   XEWLF2          3896/LW      6863-GEN
   XF              2486/AND     5052/AND     5763/EOR     5764/AND     5792/EOR     5793/AND     6113/AND
      7102-DATA
   XFE             1804/AND     7122-DATA
   XFF             1150/LW      1175/LW      1208/LW      2852/AND     4414/LW      6400/CW      6409/CW
      6469/AND     6483/AND     6501/AND     7110-DATA
   XFFFFFF         5567/AND     7087-DATA
   XF0             1940/AND     3876/AND     5099/OR      5142/OR      6077/AND     7117-DATA
   XPRNT           2227/STW     2232-#PRINT
   XPRNT1          2366/STW     2371-#PRINT  4202/STW     4207/B
   XPRNT2          3001/STW     3002-#PRINT
   XPRNT5          2722/STW     2727-#PRINT
   XPRNT7          3462/STW     3466-#PRINT
   XPSD4C          5035/LW      6811-XPSD
   XPSD4CX         1337/LW      6812-XPSD
   XSAVE           5998/STW     6008/LW      6922-DATA
   X01             1166/CW      4825/CW      5613/AND     5667/AND     5748/LW      5958/AND     7095-DATA
   X02             1169/CW      7123-DATA
   X03             1160/EOR     1873/AND     1910/AND     2173/AND     2174/EOR     4416/AND     4545/AND
      4771/AND     4932/AND     5135/AND     5141/AND     5205/AND     5414/EOR     5863/AND     5867/AND
      6089/AND     7088-DATA
   X1C001D         2821/LW      7108-DATA
   X1E001F         2747/LW      2822/LW      7107-DATA
   X1FE00          4533/AND     7114-DATA
   X1FFF           4434/AND     4691/AND     5851/AND     5947/AND     6202/AND     7101-DATA
   X1FFFF          1367/AND     2450/AND     2562/AND     4522/AND     4985/CW      5049/AND     7104-DATA
   X1F0            6103/AND     7120-DATA
   X1234567        5038/LW      5079/LW      7116-DATA
   X20002          5752/AW      7119-DATA
   X3E00           7121-DATA
   X40TRAP         1044/LW      6554/LW      6804-XPSD
   X7FF            1161/LW      7086-DATA
   YB532           2009/OR      7103-DATA
   YC              1146/LW      1285/LW      1292/LW      1442/LW      1641/LW      1892/LW      2226/OR
      2365/OR      2721/OR      2751/LW      3461/OR      3818/LW      4201/OR      4219/LW      4287/LW
      7093-DATA
   YC1             3000/OR      7094-DATA
   YES             3980/LW      3988/LW      4022/LW      4028/LW      4680/LW      6797-TEXTS
   YESSIG9          970/BEZ      976-EQU
   YES8            1148/BCS     1207-EQU
   Y001             983/CW      5128/CW      5199/CW      6358/CW      7118-DATA
   Y01             2745/LW      2753/LW      4810/LW      5749/LW      7106-DATA
   Y01002          1529/LW      1533/LW      1576/LW      1580/LW      2831/LW      3236/LW      4295/LW
      4368/LW      4655/LW      4916/LW      7097-DATA
   Y01003C         1630/LW      2749/LW      4658/LW      5836/LW      7098-DATA
   Y010054         1481/LW      7096-DATA
   Y0101           3561/LW      7112-DATA
   Y020038         2823/LW      4647/LW      7109-DATA
   Y08             2922/AW      7111-DATA
   Y1              4499/LW      5043/LW      5712/LW      5725/LW      6626/CW      7113-DATA
   Y1FFF           2743/LW      7105-DATA
   Y11             4759/LW      7115-DATA
   Y2              5884/CW      7089-DATA
   Y3              1295/LW      7100-DATA
   Y4              1201/AW      1755/OR      2667/LW      3854/OR      7090-DATA
   Y4040           2569/AND     2574/AND     4070/AND     4967/AND     5387/AND     5398/AND     5438/AND
      5468/AND     5523/AND     5527/AND     5545/AND     5549/AND     6697/AND     7091-DATA
   Y43             1280/LW      7099-DATA
   Y8              1299/LW      1351/LW      1432/LW      1643/LW      5694/LW      6211/LW      7092-DATA
   ZEROS           6967-DATA
   #ABSZERO         769-EQU
   #BRKOUT          794-EQU     5236/LC
   #BTE%            548/BAL*     805-EQU     6117/BAL*
   #BTECON          537-CNAME
   #DIAG@           862-DATA
   #DISUSER%        691/BAL*     806-EQU     2761/BAL*    4303/BAL*    5115/BAL*
   #DM%END          796-EQU
   #DM%START        795-EQU
   #DMENTRY%        818-EQU
   #ENUSER%         721/BAL*     807-EQU     2772/BAL*    4314/BAL*    5152/BAL*
   #ERRTEXT%        815-EQU     1220/LW      1457/LW      1821/STW*    1957/STW*    3898/LW      5176/STW*
   #ERR1PTR%        816-EQU
   #ETH%            628/BAL*     803-EQU     1004/BAL*    1007/BAL*    1010/BAL*    6303/BAL*    6312/BAL*
      6332/BAL*    6335/BAL*    6391/BAL*    6396/BAL*    6405/BAL*    6467/BAL*    6481/BAL*    6499/BAL*
   #ETHCON          592-CNAME
   #FIDLE%          810-EQU     6029/B*      6365/B*      6422/B*      6574/BAL*    6715/BAL*
   #GUIDE%          809-EQU     7889/BAL*
   #HDRFLG          773-EQU      934/STW     1226/LW      1257/LW      1675/LW      1825/LW      1961/LW
      2091/LW      2243/LW      2386/LW      3394/LW      3758/LW      3905/LW      4084/LW      4465/LW
      5218/LW      5224/STW     5235/STW
   #HTE%            499/BAL*     804-EQU     5182/BAL*    5207/BAL*    5962/BAL*    5999/BAL*    6152/BAL*
   #HTECON          489-CNAME
   #INDEX           780-EQU
   #INITIAL@        859-DATA
   #LOADER@         863-DATA    7888/STW
   #LOADFLAG        774-EQU      936/LW
   #MAXMEM          792-EQU      987/LW      1209/LW      1639/CW
   #MTLFLAG         775-EQU
   #OUTPTR          778-EQU
   #P%MODE%         819-EQU
   #PAKDEX          779-EQU
   #PARAM%H1        781-EQU     6222/LW
   #PARAM%H2        782-EQU     6226/LW
   #PARAM%H3        783-EQU
   #PARAM%H4        784-EQU
   #PARAM1          788-EQU     6258/LD
   #PARAM2          789-EQU     6262/LD
   #PARAM3          790-EQU
   #PARAM4          791-EQU
   #PLINEIN@        861-DATA
   #PRINT           655-CNAME
   #PRINTER%        655/CNAME    814-EQU
   #PRTADDR         777-EQU      966/#HTECON 1035/STW     2755/LW      4297/LW      6334/STW
   #RETURN%         812-EQU     7748/B*
   #RUNADDR%        811-EQU     5238/XPSD*   5262/XPSD*   5905/XPSD*
   #SAMPLE          793-EQU
   #SENSE           772-EQU     1185/LC      1203/LC      1254/LC      1307/LC      1322/LC      1357/LC
      1372/LC      1440/LC      1448/LC      1484/LC      1500/LC      1535/LC      1560/LC      1582/LC
      1606/LC      1649/LC      1661/LC      1673/LC      1729/LC      1780/LC      1813/LC      1823/LC
      1869/LC      1906/LC      1949/LC      1959/LC      2038/LC      2056/LC      2088/LC      2170/LC
      2204/LC      2240/LC      2334/LC      2343/LC      2383/LC      2446/LC      2462/LC      2559/LC
      2582/LC      2643/LC      2650/LC      2694/LC      2701/LC      2773/LC      2780/LC      2938/LC
      2967/LC      3259/LC      3265/LC      3366/LC      3375/LC      3391/LC      3433/LC      3440/LC
      3508/LC      3514/LC      3580/LC      3586/LC      3642/LC      3650/LC      3737/LC      3743/LC
      3756/LC      3798/LC      3835/LC      3885/LC      3903/LC      3965/LC      4059/LC      4066/LC
      4185/LC      4192/LC      4250/LC      4257/LC      4315/LC      4322/LC      4388/LC      4431/LC
      4438/LC      4462/LC      4512/LC      4564/LC      4682/LC      4710/LC      4762/LC      4776/LC
      4814/LC      4831/LC      4919/LC      4953/LC      4994/LC      5001/LC      5046/LC      5065/LC
      5257/LC      5263/LC
   #STATUS          786-EQU
   #TABLE1A         771-ORG
   #TABLE1B         802-ORG
   #TABLE2@         858-ORG
   #TABLE3@         860-DATA
   #TESTINIT        785-EQU     1036/LC
   #TOADDR          776-EQU      963/#HTECON
   #TYPE            656-CNAME
   #TYPER%          656/CNAME    813-EQU
   #VALTAB%         817-EQU
