1 C00   22:50 JUN 20,'83                                                                          PAGE    1
A      1                     1.000  +1,6                                                                *H01
       2                     1.010  CATALOG  EQU      C'0106'                                           *H01
       3                     1.020  VERSION  EQU      C'H01'                                            *H01
       4                     1.030  TITLE    EQU      S:PT('T-SERIES CPU DIAGNOSTIC, MAP/WRITE-LOCK ',; *H01
       5                     1.040                    '960-',CATALOG,'-',VERSION)                       *H01
       6                     1.050           PCC                                                        *H01
       7                     1.060           SPACE                                                      *H01
       8                  7417.000  +7417,7417                                                          *H01
       9                  7417.010           P        3,,1,BA(RM%EXPL)                                  *H01
      10                  7465.000  +7465,7472                                                          *H01
      11                  7465.010           GEN,8,3,21 1,1,BA(PROGTEXT)                                *H01
      12                  7465.020           DATA       0                                               *H01
      13                  7465.030           SPACE                                                      *H01
      14                  7465.040  PROGTEXT TEXTCS   TITLE                                             *H01
      15                  7465.050           SPACE                                                      *H01
      16                  9999.999  +END
1 C00   22:50 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   22:50 JUN 20,'83                                                                          PAGE    3
A       1*        TEXT               CATALOG  EQU      C'0106'                                           *H01
        2*        TEXT               VERSION  EQU      C'H01'                                            *H01
        3*                           TITLE    EQU      S:PT('T-SERIES CPU DIAGNOSTIC, MAP/WRITE-LOCK ',; *H01
        4*        TEXT                                 '960-',CATALOG,'-',VERSION)                       *H01
        5*                                    PCC                                                        *H01

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

      574                            *
      575         00000002           #PRINT   CNAME    2,#PRINTER%
      576         00000001           #TYPE    CNAME    1,#TYPER%
      577                                     PROC
      578                            *
      579                            *
      580                                     LOCAL    A
      581                            *
      582                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      583                             '**CF(2) MUST BE POSITIVE INTEGER**'
      584                            *
      585                                     ERROR,0,NUM(CF)>3 ;
      586                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      587                            *
      588                                     ERROR,0,NUM(AF)>NAME(1) ;
      589                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      590                            *
      591                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      592                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      593                            *
      594                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      595                            *
      596                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      597                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      598                            *
      599                                     ERROR,0,A=0  ;
      600                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      601                            *
      602                                     ELSE
      603                            *
      604                            A        SET      0
      605                            *
      606                                     FIN
      607                            *
      608                            *
      609                            *
      610                            *
      611                            LF       BAL,X6   *#DISUSER%
      612                                     BAL,X6   *NAME(2)
      613                            *
      614                            *
      615                                     DO       NUM(CF)=1&NAME(1)=1
      616                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      617                                     ELSE
      618                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      619                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      620                                     ELSE
      621                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      622                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      623                                     ELSE
      624                                     DO       NUM(CF)=2&CF(2)>0
      625                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      626                                     ELSE
      627                                     DO       NUM(CF)=2&CF(2)=0
      628                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      629                                     ELSE
      630                                     DO       NUM(CF)>2&CF(2)>0
      631                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      632                                     ELSE
      633                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      634                                     FIN
      635                                     FIN
      636                                     FIN
      637                                     FIN
      638                                     FIN
      639                                     FIN
      640                            *
      641                                     BAL,X6   *#ENUSER%
      642                            *
      643                                     PEND
      644                            *
      645         000000C0           C0       EQU      X'C0'
      646         000000C1           C1       EQU      X'C1'
      647         000000C2           C2       EQU      X'C2'
      648         000000C3           C3       EQU      X'C3'
      649         000000C4           C4       EQU      X'C4'
      650         000000C5           C5       EQU      X'C5'
      651         000000C6           C6       EQU      X'C6'
      652         000000C7           C7       EQU      X'C7'
      653         000000C8           C8       EQU      X'C8'
      654         000000C9           C9       EQU      X'C9'
      655         000000CA           CA       EQU      X'CA'
      656         000000CB           CB       EQU      X'CB'
      657         000000CC           CC       EQU      X'CC'
      658         000000CD           CD       EQU      X'CD'
      659         000000CE           CE       EQU      X'CE'
      660         000000CF           CF       EQU      X'CF'
      661         000000F0           F0       EQU      X'F0'
      662         000000F1           F1       EQU      X'F1'
      663                            *
      664                            *
      665                            *
      666         00000000           TEXTCS   CNAME
      667                                     PROC
      668                                     DISP     %
      669                                     LIST     0
      670                            LF       TEXTC    AF
      671                                     LIST     1
      672                                     PEND
      673                            *
      674         00000000           TEXTS    CNAME
      675                                     PROC
      676                                     DISP     %
      677                                     LIST     0
      678                            LF       TEXT     AF
      679                                     LIST     1
      680                                     PEND
      681                            *
      682                            *
      683                            *********************************************
      684                                     SYSTEM   SIG9P
      685                            *
      686                            *********************************************
      687                            *
      688                            *
      689         00000000           #ABSZERO EQU      0
      690                            *
      691   01 00392                 #TABLE1A   ORG    X'392'          THIS TABLE IS USED BY THE USER
            01 00392
      692         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      693         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      694         01 00394           #LOADFLAG  EQU    %+2
      695         01 00395           #MTLFLAG   EQU    %+3
      696         01 00396           #TOADDR    EQU    %+4
      697         01 00397           #PRTADDR   EQU    %+5
      698         01 00399           #OUTPTR    EQU    %+7
      699         01 0039A           #PAKDEX    EQU    %+8
      700         01 0039B           #INDEX     EQU    %+9
      701         01 0039C           #PARAM%H1 EQU     %+10
      702         01 0039D           #PARAM%H2 EQU     %+11
      703         01 0039E           #PARAM%H3 EQU     %+12
      704         01 0039F           #PARAM%H4 EQU     %+13
      705         01 003A0           #TESTINIT EQU     %+14
      706         01 003A1           #STATUS   EQU     %+15
      707                            *
      708         01 003A2           #PARAM1  EQU      %+16
      709         01 003A4           #PARAM2  EQU      %+18
      710         01 003A6           #PARAM3  EQU      %+20
      711         01 003A8           #PARAM4  EQU      %+22
      712         01 003AA           #MAXMEM   EQU     %+24
      713         01 003AB           #SAMPLE  EQU      %+25
      714         01 003AC           #BRKOUT  EQU      %+26
      715         01 003AD           #DM%START EQU     %+27
      716         01 003AE           #DM%END  EQU      %+28
      717                            *
      718                            *
      719                            ************
      720                            *
      721                            *
      722   01 003C2                 #TABLE1B   ORG    X'3C2'            THIS TABLE IS USED BY USER
            01 003C2
      723         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      724         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      725         01 003C4           #BTE%      EQU    %+2
      726         01 003C5           #DISUSER%  EQU    %+3
      727         01 003C6           #ENUSER%   EQU    %+4
      728                            *
      729         01 003C8           #GUIDE%    EQU    %+6
      730         01 003C9           #FIDLE%    EQU    %+7
      731         01 003CA           #RUNADDR%  EQU    %+8
      732         01 003CB           #RETURN%   EQU    %+9
      733         01 003CC           #TYPER%    EQU    %+10
      734         01 003CD           #PRINTER%  EQU    %+11
      735         01 003CE           #ERRTEXT%  EQU    %+12
      736         01 003D0           #ERR1PTR%  EQU    %+14
      737         01 003D2           #VALTAB% EQU      %+16
      738         01 003D3           #DMENTRY% EQU     %+17
      739         01 003D4           #P%MODE% EQU      %+18
      740                            *
      741                            *
      742                            **************:
      743                            *
      744                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      745                            *
      746   01 003E5                          ORG      X'3E5'
            01 003E5
      747                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      748   01 003E5    00       A   VALBIT   DATA,1   0                      (1 BYTE EACH)
      749                            *
      750   01 003E7                          ORG      X'3E7'
            01 003E7
      751                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      752         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      753   01 003E7    00       A            DATA,1   0
      754                            *
      755   01 003EC                          ORG      X'3EC'
            01 003EC
      756         01 003EC           VALTYPE  EQU      %
      757                            *
      758   01 003EC    00000000 A            GEN,8,24  0
      759                            *
      760                            *
      761                            ************
      762                            *
      763   01 003F0                            ORG    X'3F0'
            01 003F0
      764   01 003F0    00000000 A   TST:NUM  DATA     0
      765   01 003F1    00000000 A   TSP:NUM  DATA     0
      766   01 003F2    00000000 A   TCR:NUM  DATA     0
      767   01 003F3    00000000 A            DATA     0
      768   01 003F4    00000000 A   TST:ADR  DATA     0
      769                            *                 **********
      770                            *
      771                            *
      772                            *
      773                            *                **********
      774                            *
      775                            ************
      776                            *
      777                            *
      778   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      779   01 01000    00001010     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      780   01 01001    00002DB4     #TABLE3@   DATA   TABLE3
      781   01 01002    00002DA1     #PLINEIN@  DATA   PLINEIN
      782   01 01003    00000000 A   #DIAG@   DATA     0
      783   01 01004    00000000 A   #LOADER@ DATA     0
      784                            *
      785                            *
      786                            *
      787                            *
      788                            ************
      789                            *
      790                            *
      791                            *                **********
      792         00000000           R0         EQU    0
      793         00000001           R1         EQU    1
      794         00000001           X1         EQU    1
      795         00000002           R2         EQU    2
      796         00000002           X2         EQU    2
      797         00000003           R3         EQU    3
      798         00000003           X3         EQU    3
      799         00000004           R4         EQU    4
      800         00000004           X4         EQU    4
      801         00000005           R5         EQU    5
      802         00000005           X5         EQU    5
      803         00000006           R6         EQU    6
      804         00000006           X6         EQU    6
      805         00000006           LINK       EQU    6
      806         00000007           R7         EQU    7
      807         00000007           X7         EQU    7
      808         00000008           R8         EQU    8
      809         00000009           R9         EQU    9
      810         0000000A           R10        EQU    10
      811         0000000B           R11        EQU    11
      812         0000000C           R12        EQU    12
      813         0000000D           R13        EQU    13
      814         0000000E           R14        EQU    14
      815         0000000F           R15        EQU    15
      816                            *
      817                            *
      818                            *
      819                            *
      820                            *
      821                            *
      822                            ************                 **********
      823                            *
      824                            **************************************************************
      825                            **************************************************************
      826                            ****     START OF T-85 MAP & WRITE LOCKS PROGRAM         *****
      827                            **************************************************************
      828                            **************************************************************
      829   01 01010                          ORG      X'1010'
            01 01010
      830         01 01010           INITIAL  EQU      %                 START OF MAP PROGRAM
      831   01 01010    35601094              STW,LINK  LABEL            STORE CONTENTS OF LINK
      832   01 01011    6C800045 A            RD,8     X'45'             READ CM
      833   01 01012    4B802316              AND,8    MARGINMASK        SET CM BITS TO 00 FOR NORMAL CM
      834   01 01013    6D800045 A            WD,8     X'45'             INITIALISE CM TO NORMAL
      835   01 01014    228000F0 A            LI,8     X'F0'             SET CM TO NORMAL
      836   01 01015    22100003 A            LI,1     3                 IN J LINE
      837   01 01016    75822BC6              STB,8    PLINE#J+5,1
      838   01 01017    227FFF80 A            LI,7     -128              SET INDEX TO CLEAR MAP IMAGE BUFF
      839   01 01018    22800000 A            LI,8     0
      840   01 01019    358E2248              STW,8    MAPPTRN+128,X7    STORE 0'S
      841   01 0101A    358E22CA              STW,8    IMAGEMAP+128,X7
      842   01 0101B    65701019              BIR,X7   %-2
      843   01 0101C    227FFFF0 A            LI,7     -16
      844   01 0101D    22800000 A            LI,8     0
      845   01 0101E    358E22DA              STW,8    IMAGEAC+16,X7     CLEAR BUFFER TO 0'S
      846   01 0101F    358E22EA              STW,8    IMAGEWL+16,X7     CLEAR BUFFER TO 0'S
      847   01 01020    6570101E              BIR,X7   %-2
      848   01 01021    22800000 A            LI,8     0
      849   01 01022    35800393              STW,8    #HDRFLG           RESET HEADER FLAG
      850   01 01023    6AF01DEC              BAL,15   INITREGS          INITIALISE MAP,AC AND WL REGS
      851   01 01024    32800394              LW,8     #LOADFLAG         IF THIS FLAG SET
      852   01 01025    6930108B              BNEZ     SKIPINIT          SKIP INITIALISATION
      853   01 01026    227FFFFA A            LI,7     -6                SET INDEX
      854   01 01027    22800000 A            LI,8     0                 LOAD 0'S IN R8 TO RESET COUNTERS
      855         01 01028           CLEARCNT EQU      %
      856   01 01028    358E219D              STW,8    PASS#,X7          CLEAR COUNTERS TO ZERO
      857   01 01029    65701028              BIR,X7   CLEARCNT
      858   01 0102A    22700001 A            LI,7     1
      859   01 0102B    3570219D              STW,7    PASS#             INIT PASS#
      860   01 0102C    33002188              MTW,0    FIRSTLOD
      861   01 0102D    69301061              BNEZ     SKIPRESJ          SKIP IF NOT FIRST PASS
      862   01 0102E    33102188              MTW,1    FIRSTLOD
      863   01 0102F    22800000 A            LI,8     0
      864   01 01030    6C801100 A            RD,8     X'1100'           READ ALL ARMED LEVELS IN GRP 0
      865   01 01031    21800040 A            CI,8     X'40'             IF COUNTER 4 IS DISARMED
      866   01 01032    68401034              BCR,4    %+2               NOT AREMOTE GUIDE
      867   01 01033    35802147              STW,8    REMOT:GD          SET REMOT GUIDE FLAG
      868   01 01034    3280004C A            LW,8     X'4C'
      869   01 01035    35802136              STW,8    GUID:4C           VE GUIDE'S XPSD'S
      870   01 01036    3280004D A            LW,8     X'4D'
      871   01 01037    35802137              STW,8    GUID:4D
      872   01 01038    32800055 A            LW,8     X'55'
      873   01 01039    35802138              STW,8    GUID:55
      874   01 0103A    3280005B A            LW,8     X'5B'
      875   01 0103B    35802139              STW,8    GUID:5B
      876   01 0103C    3280005D A            LW,8     X'5D'
      877   01 0103D    3580213A              STW,8    GUID:5D
      878   01 0103E    6D000032 A            #HTECON  #TOADDR           CONVERT KSR ADDR
            01 0103F    EA6003C3
            01 01040    00000396
            01 01041    6D000022 A
      879   01 01042    328C0001 A            LW,8     1,LINK
      880   01 01043    35802BCA              STW,8    PLINE#JRES+3
      881   01 01044    6D000032 A            #HTECON  #PRTADDR
            01 01045    EA6003C3
            01 01046    00000397
            01 01047    6D000022 A
      882   01 01048    328C0001 A            LW,8     1,LINK
      883   01 01049    35802BC8              STW,8    PLINE#JRES+1
      884   01 0104A    EA6003C5              #TYPE    T85MSG
            01 0104B    EA6003CC
            01 0104C    0000B060 A
            01 0104D    EA6003C6
      885   01 0104E    EA6003C5              #TYPE    TRNG1
            01 0104F    EA6003CC
            01 01050    0000B06C A
            01 01051    EA6003C6
      886   01 01052    6C800045 A            RD,8     X'45'             READ VOLTAGE MARGIN
      887   01 01053    31802350              CW,8     Y001              IF BIT 11 SET
      888   01 01054    69401059              BCS,4    VMNORMAL          VM NORMAL
      889   01 01055    EA6003C5              #TYPE    VMMSG2            TYPE VM MARGINED MESSAGE
            01 01056    EA6003CC
            01 01057    0000ADC8 A
            01 01058    EA6003C6
      890         01 01059           VMNORMAL EQU      %
      891   01 01059    321003AA              LW,1     #MAXMEM           GET MEMORY SIZE
      892   01 0105A    3510232E              STW,1    LSTADRS           SAVE IT
      893   01 0105B    25100077 A            SLS,1    -9                MAX PAGE SIZE RT ALIGNED
      894   01 0105C    3510232F              STW,1    PGMAX             SAVE MAX PAGE ADDRS.
      895   01 0105D    22802DF4              LI,8     ENDADDR
      896   01 0105E    20800200 A            AI,8     X'200'
      897   01 0105F    25800077 A            SLS,8    -9
      898   01 01060    35802330              STW,8    MAPEDPAG
      899         01 01061           SKIPRESJ EQU      %
      900   01 01061    72102BC7              LB,X1    PLINE#JRES        RESTORE PARAM J CONTROL LINE
      901   01 01062    72822BC7              LB,8     PLINE#JRES,X1
      902   01 01063    75822BC1              STB,8    PLINE#J,X1
      903   01 01064    64101062              BDR,X1   %-2
      904   01 01065    72102BE3              LB,X1    PLIN#TR           RESTORE PARAM T CONTROL LINE
      905   01 01066    72822BE3              LB,8     PLIN#TR,X1
      906   01 01067    75822BDC              STB,8    PLIN#T,X1
      907   01 01068    64101066              BDR,X1   %-2
      908   01 01069    EA6003C2              BAL,LINK *#ETH%            CONVERT TPMAP
      909   01 0106A    0400AF94              GEN,8,24 4,BA(PLIN#TR+2)
      910   01 0106B    3560232B              STW,LINK TPMAP
      911   01 0106C    EA6003C2              BAL,LINK *#ETH%            CONVERT TINSTP
      912   01 0106D    0200AF9E              GEN,8,24 2,BA(PLIN#TR+4)+2
      913   01 0106E    3560232C              STW,LINK TINSTP
      914   01 0106F    EA6003C2              BAL,LINK *#ETH%            CONVERT TESTPAGE
      915   01 01070    0200AFA6              GEN,8,24 2,BA(PLIN#TR+6)+2
      916   01 01071    3560232D              STW,LINK TESTPAGE
      917   01 01072    2280002F A            LI,8     LAST:TST
      918   01 01073    35802166              STW,8    LST:TST           INITIALISE LAST TEST #
      919   01 01074    358003F1              STW,8    TSP:NUM
      920   01 01075    6D000032 A            #HTECON  R8                CONVERT LAST TEST #
            01 01076    EA6003C3
            01 01077    00000008 A
            01 01078    6D000022 A
      921   01 01079    328C0001 A            LW,8     1,LINK
      922   01 0107A    35802BF9              STW,8    PLIN#KR+3         STORE IT IN RESET LINE FOR K LIN
      923   01 0107B    22800001 A            LI,8     1
      924   01 0107C    358003F0              STW,8    TST:NUM           INIT FIRST TEST #
      925   01 0107D    358003F2              STW,8    TCR:NUM           INIT CURRENT TEST #
      926   01 0107E    72102BF6              LB,X1    PLIN#KR           RESTORE PARAM K CONTROL LINE
      927   01 0107F    72822BF6              LB,8     PLIN#KR,X1
      928   01 01080    75822BF0              STB,8    PLIN#K,X1
      929   01 01081    6410107F              BDR,X1   %-2
      930   01 01082    22800000 A            LI,8     0
      931   01 01083    35802193              STW,8    NCOUNT
      932   01 01084    35802194              STW,8    CLMARG
      933   01 01085    6D000032 A            #ETHCON,3  PLINE#JRES+4,1  CONCERT SI COUNT(INITIAL)
            01 01086    EA6003C2
            01 01087    0300AF2D
            01 01088    6D000022 A
      934   01 01089    3560232A              STW,LINK   SICOUNT         SAVE IT
      935   01 0108A    66602193              AWM,LINK   NCOUNT          SET INIT VALUE OF NCOUNT
      936         01 0108B           SKIPINIT EQU      %
      937   01 0108B    33F003F2              MTW,-1   TCR:NUM           DECR CURRENT TEST #
      938   01 0108C    6D000032 A            #ETHCON,4 PLINE#J+1
            01 0108D    EA6003C2
            01 0108E    0400AF08
            01 0108F    6D000022 A
      939   01 01090    35600397              STW,LINK   #PRTADDR
      940   01 01091    702003A0              LC       #TESTINIT
      941   01 01092    EA601094              BAL,LINK  *LABEL
      942   01 01093    00001096              DATA     START
      943   01 01094    00000000 A   LABEL    DATA     0
      944                                     BOUND    8
      945   01 01096    00001098     START    DATA     STORXPSD
      946   01 01097    00000000 A            DATA     0
      947         01 01098           STORXPSD EQU      %
      948   01 01098    3280212E              LW,8     X40TRAP           SET UP XPSD
      949   01 01099    35800040 A            STW,8    X'40'             AT X'40'
      950   01 0109A    3280212F              LW,8     CAL1TRAP          SET UP XPSD
      951   01 0109B    35800048 A            STW,8    X'48'             AT X'48'
      952   01 0109C    32802130              LW,8     CAL2TRAP          SET UP XPSD
      953   01 0109D    35800049 A            STW,8    X'49'             AT X'49'
      954         01 0109E           TST:CONT EQU      %
      955   01 0109E    331003F2              MTW,1    TCR:NUM           INCR CURRENT TEST #
      956         01 0109F           TST:CONTA EQU     %
      957   01 0109F    6D000037 A            WD,0     X'37'             DISABLE USER
      958   01 010A0    321003F2              LW,1     TCR:NUM
      959   01 010A1    311003F1              CW,1     TSP:NUM           IF LAST TEST EXECUTED
      960   01 010A2    682010A6              BLE      CPUTYPE           NOT DONE YET
      961   01 010A3    33F003F2              MTW,-1   TCR:NUM           DECR BY 1
      962   01 010A4    6D000027 A            WD,0     X'27'             ENABLE USER
      963   01 010A5    68001C22              B        FINISH            OUTPUT STATUS REPORT
      964                            *
      965         01 010A6           CPUTYPE  EQU      %
      966   01 010A6    6D000032 A            #HTECON TCR:NUM            CONVERT CURRENT TEST #
            01 010A7    EA6003C3
            01 010A8    000003F2
            01 010A9    6D000022 A
      967   01 010AA    328C0001 A            LW,8     1,LINK
      968   01 010AB    35802BF5              STW,8    PLIN#K+5          STORE IT IN K CONTROL LINE
      969   01 010AC    329210B0              LW,9     STRT:TST,X1       GET BEGIN ADR OF TEST
      970   01 010AD    359003F4              STW,9    TST:ADR           SAVE IT
      971   01 010AE    6D000027 A            WD,0     X'27'             ENABLE USER
      972   01 010AF    680210B0              B        STRT:TST,X1       EXECUTE TEST
      973                            *
      974                            *
      975         01 010B0           STRT:TST EQU      %
      976   01 010B0    02000000 A            NOP      0
      977   01 010B1    680010DE              B        TST1LRA           01
      978   01 010B2    68001154              B        TST2LRA           02
      979   01 010B3    6800117C              B        TST3LRA           03
      980   01 010B4    680011CD              B        TST5LRA           04
      981   01 010B5    680011F9              B        TST6MMC           05
      982   01 010B6    68001222              B        TST7MMC           06
      983   01 010B7    68001245              B        TST8MMC           07
      984   01 010B8    68001267              B        TST9              08
      985   01 010B9    68001268              B        TST10MF           09
      986   01 010BA    680012A3              B        T11MAPF           0A
      987   01 010BB    68001328              B        TST12ACF          0B
      988   01 010BC    6800139D              B        T13MAPOP          0C
      989   01 010BD    68001411              B        TST14ACOP         0D
      990   01 010BE    68001472              B        TST15PL           0E
      991   01 010BF    680014B5              B        TST16PL           0F
      992   01 010C0    6800150A              B        TST17PL           10
      993   01 010C1    6800150E              B        TST18PL           11
      994   01 010C2    68001512              B        TST19PL           12
      995   01 010C3    68001516              B        TST20PL           13
      996   01 010C4    6800154B              B        TST21PL           14
      997   01 010C5    6800157B              B        TST22PL           15
      998   01 010C6    680015A9              B        TST23PL           16
      999   01 010C7    680015D4              B        TST24PL           17
     1000   01 010C8    6800174E              B        TST26             18
     1001   01 010C9    6800174F              B        TST27             19
     1002   01 010CA    68001750              B        TST28MM           1A
     1003   01 010CB    68001785              B        TST29MM           1B
     1004   01 010CC    680017B1              B        TST30MM           1C
     1005   01 010CD    680017DA              B        TST31MM           1D
     1006   01 010CE    68001805              B        TST32MM           1E
     1007   01 010CF    68001829              B        TST33RTC          1F
     1008   01 010D0    6800187E              B        TST34WLF          20
     1009   01 010D1    680018F7              B        TST35WLOP         21
     1010   01 010D2    68001987              B        TST36WLP1         22
     1011   01 010D3    680019C1              B        TST37WLP2         23
     1012   01 010D4    680019E5              B        TST38WLP3         24
     1013   01 010D5    68001A0C              B        TST39WLP4         25
     1014   01 010D6    68001A34              B        TST40MMC          26
     1015   01 010D7    68001A81              B        TST43MMC          27
     1016   01 010D8    68001AE3              B        TST44MMC          28
     1017   01 010D9    68001B05              B        TST45MMC          29
     1018   01 010DA    68001B63              B        TST46MMC          2A
     1019   01 010DB    68001B6D              B        TST47MMC          2B
     1020   01 010DC    68001BB5              B        TST48MMC          2C
     1021   01 010DD    68001BD8              B        TST49MMC          2D
     1022                            *
     1023                            *
     1024                            *
     1025                            ****     LRA TESTS:-
     1026                            ****     TEST 1:- CHECKS THE FOLLOWING
     1027                            ****              1. REAL ADDRESS OBTAINED IS CORRECT WHEN C1C2 IS
     1028                            ****                 00,01,10 AND 11 FOR BYTE ,HALFWORD
     1029                            ****                 WORD AND DOUBLEWORD ALIGNMENT RESPECTIVELY.
     1030                            ****              2. C1C2=11 (AFTER LRA) IF REAL ADDRESS IS
     1031                            ****                 NON-EXISTANT.FOR SIGMA 8 ,IF MEMORY SIZE
     1032                            ****                 IS X'1FFFF' C1C2 SHOULD BE =00.
     1033                            ****
     1034                            *
     1035         01 010DE           TST1LRA  EQU      %                 LRA TEST 1
     1036   01 010DE    6AF01CA2              BAL,R15  STSLRA            LRA STATUS
     1037   01 010DF    6AF01DE4              BAL,15   ALLWLREG          CLEAR WL REG'S TO 07S
     1038   01 010E0    22801103              LI,8     LRA1
     1039   01 010E1    358021A1              STW,8    TADDR             STORE TEST INST ADDR
     1040   01 010E2    32801103              LW,8     LRA1
     1041   01 010E3    358021A0              STW,8    TINST             STORE LRA INST
     1042   01 010E4    32902338              LW,9     YC                GET EXPECTED C1C2
     1043   01 010E5    22801FFF A            LI,8     X'1FFF'           GET MAP IMAGE
     1044   01 010E6    32702349              LW,7     XFF               TO LOAD IN MAP REG X'FF'
     1045   01 010E7    6AB01DBD              BAL,11   MMCMAP1           LOAD MAP REG'S FE & FF
     1046   01 010E8    25800009 A   STORCON  SLS,8    9                 COMPUTE VALUE WHICH WILL BE
     1047   01 010E9    208001FF A            AI,8     X'1FF'            CONCATANATED TO LOW ORDER 9 BITS
     1048   01 010EA    1580214A              STD,8    CONSTANT          TO GIVE EXP REAL ADDR FOR
     1049                            *                                   C1C2=10.ALSO STORE EXP C1C2
     1050                            *                                   (AFTER LRA INST. IS EXECUTED)
     1051   01 010EB    22100000 A            LI,1     0
     1052   01 010EC    3510214F     NEXTCC   STW,1    C1C2              STOR C1C2 BEFORE LRA INST
     1053   01 010ED    25100202 A            SCS,1    2
     1054   01 010EE    48102333              EOR,1    X03
     1055   01 010EF    32902331              LW,9     X7FF              COMPUTE THE LOW ORDER 9 BITS
     1056   01 010F0    2592007D A            SLS,9    -3,1              FOR THE LRA INST OPERAND
     1057   01 010F1    3280214A              LW,8     CONSTANT          GET VALUE COMPUTED EARLIER
     1058   01 010F2    2582007F A            SLS,8    -1,1              AND DETERMINE THE EXPECTED
     1059   01 010F3    22B00000 A            LI,11    0
     1060   01 010F4    3180233A              CW,8     X01
     1061   01 010F5    694010FA              BCS,4    NOTADD
     1062   01 010F6    22B00001 A            LI,11    1
     1063   01 010F7    31802354              CW,8     X02
     1064   01 010F8    694010FA              BCS,4    NOTADD
     1065   01 010F9    22B00003 A            LI,11    3
     1066   01 010FA    3080000B A   NOTADD   AW,8     R11
     1067   01 010FB    3580214E              STW,8    EXPLRA            REAL ADDRESS
     1068   01 010FC    20100008 A            AI,1     8
     1069   01 010FD    32802349              LW,8     XFF               COMPUTE OPERAND FOR
     1070   01 010FE    25820000 A            SLS,8    0,1               LRA INST
     1071   01 010FF    30800009 A            AW,8     9
     1072   01 01100    35802168              STW,8    PAGEADR
     1073         01 01101           LRALOOP1 EQU      %
     1074   01 01101    22800000 A            LI,8     0                 CLEAR REG USED IN LRA INST
     1075   01 01102    7020214F              LC       C1C2              LOAD CC
     1076         01 01103           LRA1     EQU      %
     1077   01 01103    2C802168              LRA,8    PAGEADR           EXECUTE LRA
     1078   01 01104    7400214C              STCF     ACTCC             SAVE CC AFTER LRA
     1079   01 01105    70200392              LC       #SENSE            SS1 SET
     1080   01 01106    69801101              BCS,8    LRALOOP1          SHORT LOOP IF SET
     1081   01 01107    3580214D              STW,8    ACTLRA            STORE REAL ADDR OBTAINED
     1082   01 01108    3180214E              CW,8     EXPLRA            SAME AS EXPECTED
     1083   01 01109    6830110D              BE       LRAOK1            YES
     1084   01 0110A    6AF01116     ER1      BAL,15   LRAER1            REPORT ERROR
     1085   01 0110B    68001101              B        LRALOOP1          RETURN HERE IF SS1=1;SS3=0
     1086                            *                                   NORMAL RETURN
     1087   01 0110C    68001110              B        INCRCC            SET NEW VALUE OF C1C2
     1088                            *
     1089         01 0110D           LRAOK1   EQU      %
     1090   01 0110D    3280214C              LW,8     ACTCC             GET CC AFTER LRA
     1091   01 0110E    3180214B              CW,8     EXPCC             SAME AS EXPECTED
     1092   01 0110F    6930110A              BNE      ER1               YES
     1093         01 01110           INCRCC   EQU      %
     1094   01 01110    3210214F              LW,1     C1C2              GET PRESENT VAL OF C1C2
     1095   01 01111    30102335              AW,1     Y4                INCR C1C2
     1096   01 01112    688010EC              BCR,8    NEXTCC            BRANCH IF NOT ZERO
     1097   01 01113    70200392              LC       #SENSE            LONG LOOP
     1098   01 01114    694010EC              BCS,4    NEXTCC            YES
     1099   01 01115    6800109E              B        TST:CONT          EXIT
     1100                            *
     1101                            *
     1102         01 01116           LRAER1   EQU      %
     1103   01 01116    32802150              LW,8     XELRA1            FORMAT CONTROL WORDS
     1104   01 01117    32902151              LW,9     XELRA2            FOR ERROR EXPLAINATION
     1105   01 01118    22AFFFFE A            LI,10    -2                MESSAGES
     1106   01 01119    321003CE              LW,X1    #ERRTEXT%
     1107   01 0111A    201FFFFE A            AI,X1    -2
     1108   01 0111B    02200030 A            LCI      3
     1109   01 0111C    AB800001 A            STM,8    *X1
     1110   01 0111D    6AD01145              BAL,R13  LRAERR
     1111   01 0111E    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     1112   01 0111F    32800393              LW,8     #HDRFLG           NORMAL RETURN
     1113   01 01120    318003F2              CW,8     TCR:NUM           IF FLAG RESET
     1114   01 01121    69301123              BNE      %+2               SKIP
     1115   01 01122    6AB01CB8              BAL,R11  TSTINFOX          GET TEST INST,C1C2 & THEN PRINT
     1116         01 01123           LRAER1X  EQU      %
     1117   01 01123    6D000032 A            #HTECON  EXPLRA            CONVERT REAL ADDR EXPECTED
            01 01124    EA6003C3
            01 01125    0000214E
            01 01126    6D000022 A
     1118   01 01127    2A8C0000 A            LM,R8    0,LINK
     1119   01 01128    02200020 A            LCI      2
     1120   01 01129    2B802859              STM,R8   LRAMSG1A+7        STORE ADDRESS
     1121   01 0112A    6D000032 A            #HTECON  ACTLRA            CONVERT REAL ADDR OBTAINED
            01 0112B    EA6003C3
            01 0112C    0000214D
            01 0112D    6D000022 A
     1122   01 0112E    2A8C0000 A            LM,R8    0,LINK
     1123   01 0112F    02200020 A            LCI      2
     1124   01 01130    2B802865              STM,R8   LRAMSG1B+7        STORE ADDRESS
     1125   01 01131    3280214B              LW,8     EXPCC             CONVERT EXP. CC
     1126   01 01132    3290214C              LW,9     ACTCC             AND ACTUAL CC
     1127   01 01133    25800204 A            SCS,8    4
     1128   01 01134    2580017C A            SLD,8    -4
     1129   01 01135    6D000032 A            #BTECON  R9                CONVERT EXP. AND ACTUAL CC'S
            01 01136    EA6003C4
            01 01137    00000009 A
            01 01138    6D000022 A
     1130   01 01139    2A8C0000 A            LM,8     0,LINK
     1131   01 0113A    3580285D              STW,8    LRAMSG1A+11       STORE EXP. CC
     1132   01 0113B    35902869              STW,9    LRAMSG1B+11       STORE ACTUAL CC
     1133   01 0113C    EA6003C5              #PRINT   LRAMSG1A          PRINT EXPECTED DATA
            01 0113D    EA6003CD
            01 0113E    C000A148 A
            01 0113F    EA6003C6
     1134   01 01140    EA6003C5              #PRINT   LRAMSG1B          PRINT ACTUAL DATA
            01 01141    EA6003CD
            01 01142    C000A178 A
            01 01143    EA6003C6
     1135   01 01144    68001C89              B        COMMON            SET HEADING FLAG
     1136                            *
     1137                            *
     1138         01 01145           LRAERR   EQU      %
     1139   01 01145    33102197              MTW,1    ECLRA             UPDATE ERROR COUNTER
     1140   01 01146    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     1141   01 01147    E910000D A            BCS,1    *R13              INHIBIT PRINTOUT
     1142   01 01148    3310000D A            MTW,1    R13               INCR RETURN ADDR
     1143   01 01149    32800393              LW,8     #HDRFLG
     1144   01 0114A    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #
     1145   01 0114B    E830000D A            BE       *R13              SKIP HEADING OUTPUT
     1146   01 0114C    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     1147   01 0114D    55802843              STH,8    LRAHD1+10         STORE IN BUFFER
     1148   01 0114E    EA6003C5              #PRINT   LRAHD1,C1         PRINT HEADING
            01 0114F    EA6003CD
            01 01150    C100A0E4 A
            01 01151    EA6003C6
     1149   01 01152    6AB01CB8              BAL,11   TSTINFOX          PRINT C1C2(BEFORE LRA)&LRA INST
     1150   01 01153    E800000D A            B        *R13              EXIT
     1151                            *
     1152                            *
     1153                            *
     1154                            ****     TEST 2:- CHECKS THE FOLLOWING
     1155                            ****              1.BIT 1 OF LRA REG SET WHEN HOME SPACE
     1156                            ****                BIAS USED IN THE REAL ADDRESS.
     1157                            ****              2.LRA CAN READ WRITE LOCK REGISTERS.
     1158                            ****              3.LRA CAN READ ACCESS CONTROL REGISTERS.
     1159                            *
     1160         01 01154           TST2LRA  EQU      %
     1161   01 01154    6AF01CA2              BAL,15   STSLRA
     1162   01 01155    2280116C              LI,8     LRA2
     1163   01 01156    358021A1              STW,8    TADDR             STORE TEST INST ADDR
     1164   01 01157    3280116C              LW,8     LRA2
     1165   01 01158    358021A0              STW,8    TINST             STORE TEST INST
     1166   01 01159    3280233E              LW,8     Y43               HSBB=1;WL=11
     1167   01 0115A    20800010 A            AI,8     X'10'             ADD CROSSOVER BIAS
     1168   01 0115B    3580214E              STW,8    EXPLRA            DEFINE EXP LRA REG CONTENTS
     1169   01 0115C    22800010 A            LI,8     X'10'
     1170   01 0115D    35802168              STW,8    PAGEADR           STORE VP ADDR
     1171   01 0115E    32802338              LW,8     YC                GET WL IMAGE WORD
     1172   01 0115F    22700000 A            LI,7     0                 LOAD WL=11 FOR PAGE 0
     1173   01 01160    6AB01E16              BAL,11   MMCWL1            0'S FOR PAGES 01 TO 0F
     1174   01 01161    22900000 A            LI,9     0
     1175   01 01162    6AF01DD4              BAL,15   ALMAPREG          CLEAR MAP REGS TO ZERO7S
     1176   01 01163    32802338              LW,8     YC                GET AC IMAGE WORD
     1177   01 01164    22700000 A            LI,7     0                 LOAD AC=11
     1178   01 01165    6AB01E03              BAL,11   MMCAC1            FOR VP 0.REST     0'S
     1179   01 01166    3290233F              LW,9     Y3                DEFINE EXP CC FOR SIG 9
     1180         01 01167           STREXPCC EQU      %
     1181   01 01167    3590214B              STW,9    EXPCC             STORE EXP CC
     1182         01 01168           SETC1C2  EQU      %
     1183   01 01168    32802337              LW,8     Y8
     1184   01 01169    3580214F              STW,8    C1C2              SET C1C2=10
     1185         01 0116A           LRALOOP2 EQU      %
     1186   01 0116A    22800000 A            LI,8     0                 CLEAR REG USED IN LRA INST
     1187   01 0116B    7020214F              LC       C1C2              LOAD CC
     1188         01 0116C           LRA2     EQU      %
     1189   01 0116C    2C802168              LRA,8    PAGEADR           EXECUTE LRA
     1190   01 0116D    7400214C              STCF     ACTCC             SAVE CC AFTER LRA
     1191   01 0116E    70200392              LC       #SENSE            SS1 SET
     1192   01 0116F    6980116A              BCS,8    LRALOOP2          SHORT LOOP IF SET
     1193   01 01170    3580214D              STW,8    ACTLRA            SAVE RESULT
     1194   01 01171    3180214E              CW,8     EXPLRA            SAME AS EXPECTED
     1195   01 01172    68301176              BE       LRAOK2            YES
     1196   01 01173    6AF01116     ER2      BAL,15   LRAER1            REPORT ERROR
     1197   01 01174    6800116A              B        LRALOOP2          RETURN HERE IF SS1=1;SS3=0
     1198                            *                                   NORMAL RETURN
     1199   01 01175    68001179              B        CHKSS2
     1200                            *
     1201         01 01176           LRAOK2   EQU      %
     1202   01 01176    3290214C              LW,9     ACTCC             CHK CC
     1203   01 01177    3190214B              CW,9     EXPCC             SAME AS EXPECTED
     1204   01 01178    69301173              BNE      ER2               NO;REPORT ERROR
     1205         01 01179           CHKSS2   EQU      %
     1206   01 01179    70200392              LC       #SENSE            LONG LOOP
     1207   01 0117A    69401168              BCS,4    SETC1C2           YES
     1208   01 0117B    6800109E              B        TST:CONT          EXIT
     1209                            *
     1210                            *
     1211                            ****     TEST 3:- CHECKS THAT A TRAP TO X'4C' OCCURS
     1212                            ****              WHEN A PARITY ERROR IN OPERAND OF
     1213                            ****              LRA INSTRUCTION.
     1214                            *
     1215         01 0117C           TST3LRA  EQU      %
     1216   01 0117C    6AF01CA2              BAL,15   STSLRA
     1217   01 0117D    22801190              LI,8     LRA3
     1218   01 0117E    358021A1              STW,8    TADDR             STORE TEST INST ADDR
     1219   01 0117F    32801190              LW,8     LRA3
     1220   01 01180    358021A0              STW,8    TINST             STORE TEST INST
     1221   01 01181    32802132              LW,8     XPSD4CX
     1222   01 01182    3580004C A            STW,8    X'4C'             STORE XPSD AT X'4C'
     1223         01 01183           LRALOOP3 EQU      %
     1224   01 01183    22800000 A            LI,8     0
     1225   01 01184    35802189              STW,8    TRAPFLG           CLEAR FLAG
     1226   01 01185    6AF01DF1              BAL,15   MAPSELF           LOAD MAPS 1 TO 1
     1227   01 01186    3290232D              LW,9     TESTPAGE
     1228   01 01187    25900009 A            SLS,9    9
     1229   01 01188    35902168              STW,9    PAGEADR           STORE VP ADDR
     1230   01 01189    B5902168              STW,9    *PAGEADR          STORE ITS ADDR
     1231   01 0118A    02200020 A            LCI      2                 SET BAD PARITY
     1232   01 0118B    AD802168              LMS,8    *PAGEADR          IN LRA OPERAND
     1233   01 0118C    32802337              LW,8     Y8
     1234   01 0118D    3580214F              STW,8    C1C2              DEFINE C1C2 FOR WA
     1235   01 0118E    22800000 A            LI,8     0                 CLEAR REG USED IN LRA INST
     1236   01 0118F    7020214F              LC       C1C2              LOAD CC
     1237         01 01190           LRA3     EQU      %
     1238   01 01190    2C802168              LRA,8    PAGEADR           EXECUTE LRA
     1239   01 01191    70200392              LC       #SENSE            SS1 SET
     1240   01 01192    69801183              BCS,8    LRALOOP3          SHORT LOOP IF SET
     1241   01 01193    33002189              MTW,0    TRAPFLG           TRAP FLAG SET
     1242   01 01194    69201198              BCS,2    LRAOK4            YES
     1243   01 01195    6AF011A2     ER3      BAL,15   LRAER3            REPORT ERROR
     1244   01 01196    68001183              B        LRALOOP3          RETURN HERE IF SS=1;SS3=0
     1245   01 01197    6800119D              B        CHKSS2A           NORMAL RETURN
     1246                            *
     1247         01 01198           LRAOK4   EQU      %
     1248   01 01198    328011C2              LW,8     LRATRAP
     1249   01 01199    4B802343              AND,8    X1FFFF            MASK ADDR BITS
     1250   01 0119A    22901190              LI,9     LRA3
     1251   01 0119B    31900008 A            CW,9     8                 TRAPPED AT LRA INST
     1252   01 0119C    69301195              BCS,3    ER3               NO
     1253         01 0119D           CHKSS2A  EQU      %
     1254   01 0119D    70200392              LC       #SENSE            LONG
     1255   01 0119E    69401183              BCS,4    LRALOOP3          YES
     1256   01 0119F    32802136              LW,8     GUID:4C           RESTORE GUIDE'S XPSD
     1257   01 011A0    3580004D A            STW,8    X'4D'
     1258   01 011A1    6800109E              B        TST:CONT
     1259                            *
     1260         01 011A2           LRAER3   EQU      %
     1261   01 011A2    6AD01145              BAL,13   LRAERR
     1262   01 011A3    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     1263   01 011A4    32802129              LW,8     NOT
     1264   01 011A5    33002189              MTW,0    TRAPFLG
     1265   01 011A6    682011A8              BCR,2    %+2
     1266   01 011A7    32802128              LW,8     DID
     1267   01 011A8    3580286B              STW,8    LRAMSG3+1
     1268   01 011A9    22801190              LI,8     LRA3              GET LRA INST ADDR
     1269   01 011AA    6D000032 A            #HTECON  R8
            01 011AB    EA6003C3
            01 011AC    00000008 A
            01 011AD    6D000022 A
     1270   01 011AE    328C0001 A            LW,8     1,LINK
     1271   01 011AF    3580287F              STW,8    LRAMSG3A+5
     1272   01 011B0    6D000032 A            #HTECON  LRATRAP
            01 011B1    EA6003C3
            01 011B2    000011C2
            01 011B3    6D000022 A
     1273   01 011B4    328C0001 A            LW,8     1,LINK
     1274   01 011B5    35802884              STW,8    LRAMSG3A+10
     1275   01 011B6    EA6003C5              #PRINT   LRAMSG3
            01 011B7    EA6003CD
            01 011B8    C000A1A8 A
            01 011B9    EA6003C6
     1276   01 011BA    33002189              MTW,0    TRAPFLG
     1277   01 011BB    68201C89              BCR,2    COMMON
     1278   01 011BC    EA6003C5              #PRINT   LRAMSG3A
            01 011BD    EA6003CD
            01 011BE    C000A1E8 A
            01 011BF    EA6003C6
     1279   01 011C0    68001C89              B        COMMON
     1280                            *
     1281                            ****     ENTER HERE FOR MEMORY PARITY TRAP
     1282                            ****     FOR THIS TEST.
     1283                            *
     1284                                     BOUND    8
     1285   01 011C2    00000000 A   LRATRAP  DATA     0,0
            01 011C3    00000000 A
     1286   01 011C4    000011C6              DATA     %+2
     1287   01 011C5    07000000 A            DATA     X'07000000'
     1288   01 011C6    B5902168              STW,9    *PAGEADR          RESTORE CORRECT PARITY
     1289   01 011C7    022000C0 A            LCI      12
     1290   01 011C8    AD802168              LMS,8    *PAGEADR          CLEAR MFI
     1291   01 011C9    22800400 A            LI,8     X'400'
     1292   01 011CA    6D801200 A            WD,8     X'1200'
     1293   01 011CB    33102189              MTW,1    TRAPFLG           SET FLAG
     1294   01 011CC    0E1011C2              LPSD,1   LRATRAP           EXIT
     1295                            *
     1296                            ****
     1297                            ****     TEST 5:- CHECKS THAT WHENEVER THE OPERAND
     1298                            ****              IN A LRA INST IS WITHIN '0 TO F' THEN
     1299                            ****              CONDITION CODE = 1100.
     1300                            ****
     1301                            *
     1302                            *
     1303         01 011CD           TST5LRA  EQU      %                 LRA TEST 5
     1304   01 011CD    6AF01CA2              BAL,R15  STSLRA            LRA STATUS
     1305   01 011CE    228011D9              LI,8     LRA4
     1306   01 011CF    358021A1              STW,8    TADDR             STORE TEST INST ADDR
     1307   01 011D0    328011D9              LW,8     LRA4
     1308   01 011D1    358021A0              STW,8    TINST             STORE TEST INST
     1309   01 011D2    6AF01DD4              BAL,15   ALMAPREG          LOAD ALL MAP REGS WITH 0'S
     1310   01 011D3    2280000A A            LI,8     X'A'
     1311   01 011D4    35802168              STW,8    PAGEADR           STORE OPERAND
     1312   01 011D5    32802337              LW,8     Y8
     1313   01 011D6    3580214F              STW,8    C1C2
     1314         01 011D7           LRALOOP5 EQU      %
     1315   01 011D7    22800000 A            LI,8     0                 CLEAR REG USED IN LRA INST
     1316   01 011D8    7020214F              LC       C1C2              LOAD CC
     1317         01 011D9           LRA4     EQU      %
     1318   01 011D9    2C802168              LRA,8    PAGEADR           EXECUTE LRA
     1319   01 011DA    7400214C              STCF     ACTCC             SAVE CC AFTER LRA
     1320   01 011DB    70200392              LC       #SENSE            SS1 SET
     1321   01 011DC    698011D7              BCS,8    LRALOOP5          SHORT LOOP IF SET
     1322   01 011DD    32802338              LW,8     YC
     1323   01 011DE    3180214C              CW,8     ACTCC             C1 AND C2 SET
     1324   01 011DF    683011E2              BCR,3    TOK               YES
     1325   01 011E0    6AF011E5              BAL,R15  LRAER5            REPORT ERROR
     1326   01 011E1    680011D7              B        LRALOOP5          RETURN HERE IF SS1=1;SS3=0
     1327         01 011E2           TOK      EQU      %                 NORMAL RETURN
     1328   01 011E2    70200392              LC       #SENSE            CHECK FOR SS2. IF SET
     1329   01 011E3    694011D7              BCS,4    LRALOOP5          BRANCH FOR LONG LOOP
     1330   01 011E4    6800109E              B        TST:CONT
     1331                            *
     1332                            *
     1333         01 011E5           LRAER5   EQU      %
     1334   01 011E5    32802150              LW,8     XELRA1            FORMAT CONTROL WORDS
     1335   01 011E6    32902151              LW,9     XELRA2            FOR ERROR EXPLAINATION
     1336   01 011E7    22AFFFFE A            LI,10    -2                MESSAGES
     1337   01 011E8    321003CE              LW,X1    #ERRTEXT%
     1338   01 011E9    201FFFFE A            AI,X1    -2
     1339   01 011EA    02200030 A            LCI      3
     1340   01 011EB    AB800001 A            STM,8    *X1
     1341   01 011EC    6AD01145              BAL,R13  LRAERR
     1342   01 011ED    68001C8F              B        SUPRESP           RETURN HERE IF SS4=1
     1343                            *                                   NORMAL RETURN
     1344   01 011EE    6D000032 A            #BTECON  ACTCC             CONVERT CC AFTER LRA INST
            01 011EF    EA6003C4
            01 011F0    0000214C
            01 011F1    6D000022 A
     1345   01 011F2    328C0000 A            LW,8     0,LINK
     1346   01 011F3    35802895              STW,8    LRAMSG5+16        STORE CONVERTED VALUE
     1347   01 011F4    EA6003C5              #PRINT   LRAMSG5
            01 011F5    EA6003CD
            01 011F6    C000A214 A
            01 011F7    EA6003C6
     1348   01 011F8    68001C89              B        COMMON
     1349                            *
     1350                            ****     TEST 6:- CHECKS THAT WHEN A MMC INSTRUCTION
     1351                            ****              IS EXECUTED TO LOAD MAP REGISTERS
     1352                            ****              AC OR WL REGISTERS ARE NOT AFFECTED.
     1353                            *
     1354         01 011F9           TST6MMC  EQU      %
     1355   01 011F9    6AF01CB5              BAL,15   STSMMC
     1356         01 011FA           LOPT6    EQU      %
     1357   01 011FA    6AF01DE4              BAL,15   ALLWLREG          LOAD ALL WL REG WITH 0'S
     1358   01 011FB    6AF01DDC              BAL,15   ALLACREG          LOAD ALL AC REGS WITH 0'S
     1359   01 011FC    22600008 A            LI,6     8                 LOAD MAP REG 2B WITH 2B
     1360   01 011FD    2280002B A            LI,8     X'2B'             SO THAT WL REG 2B CAN BE
     1361   01 011FE    3270233B              LW,7     Y010054           READ VIA LRA IF WL REG'S
     1362   01 011FF    6F6A0000 A            MMC,6    5                 ARE AFFECTED WHEN MAP REG 1F IS WRITEN
     1363   01 01200    6AF01E28              BAL,15   MAP1F             LOAD MAP REG 1F WITH 1F
     1364   01 01201    70200392              LC       #SENSE
     1365   01 01202    698011FA              BCS,8    LOPT6             SHORT LOOP IF SS1 SET
     1366   01 01203    6AF01E2D              BAL,15   READREGS          READ MAP,AC AND WL REGS
     1367   01 01204    3290230B              LW,9     ACREAD            IF AC REG 2B = 00
     1368   01 01205    6830120A              BEZ      CHKWL1            AC REG NOT AFFECTED
     1369   01 01206    3280212C              LW,8     AC%
     1370   01 01207    6AF01211     ER4      BAL,15   EMMC6             REPORT ERROR
     1371   01 01208    680011FA              B        LOPT6             RETURN HERE IF SS1=1;SS3=0
     1372   01 01209    6800120E              B        CHKLONG           NORMAL RETURN
     1373         01 0120A           CHKWL1   EQU      %
     1374   01 0120A    3290230D              LW,9     WLRED             IF WL REG 2B = 00
     1375   01 0120B    6830120E              BEZ      CHKLONG           WL REG NOT AFFECTED
     1376   01 0120C    3280212D              LW,8     WL%
     1377   01 0120D    68001207              B        ER4               REPORT ERROR
     1378                            *
     1379         01 0120E           CHKLONG  EQU      %
     1380   01 0120E    70200392              LC       #SENSE
     1381   01 0120F    694011FA              BCS,4    LOPT6             LONG LOOP IF SS2 SET
     1382   01 01210    6800109E              B        TST:CONT
     1383                            *
     1384         01 01211           EMMC6    EQU      %
     1385   01 01211    358029FD              STW,8    MMCX1+1
     1386   01 01212    32202157              LW,2     BA:MHD1
     1387   01 01213    3230215A              LW,3     BA:MMCX1
     1388         01 01214           COMERR   EQU      %
     1389   01 01214    6AD01A6F              BAL,13   ERRMMC            PRINT HEADING
     1390   01 01215    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     1391   01 01216    22100001 A            LI,X1    1
     1392   01 01217    5522121B              STH,2    PRNT1+2,X1
     1393   01 01218    5532121F              STH,3    PRNT2+2,X1
     1394   01 01219    EA6003C5     PRNT1    #PRINT   MHD1,C1
            01 0121A    EA6003CD
            01 0121B    C100A724 A
            01 0121C    EA6003C6
     1395   01 0121D    EA6003C5     PRNT2    #PRINT   MMCX1
            01 0121E    EA6003CD
            01 0121F    C000A7F0 A
            01 01220    EA6003C6
     1396   01 01221    68001C89              B        COMMON
     1397                            *
     1398                            ****     TEST 7:- CHECKS THAT WHEN A MMC INSTRUCTION
     1399                            ****              IS EXECUTED TO LOAD AC REGISTERS
     1400                            ****              MAP OR WL REGISTERS ARE NOT AFFECTED.
     1401                            *
     1402         01 01222           TST7MMC  EQU      %
     1403   01 01222    6AF01CB5              BAL,15   STSMMC
     1404         01 01223           LOPT7    EQU      %
     1405   01 01223    6AF01DE4              BAL,15   ALLWLREG          LOAD ALL WL REGS WITH 0'S
     1406   01 01224    6AF01E28              BAL,15   MAP1F             LOAD MAP REG 1F WITH 1F
     1407   01 01225    22600008 A            LI,6     8                 LOAD 0'S IN MAP REG'S
     1408   01 01226    22800000 A            LI,8     0                 X'10' AND X'11'
     1409   01 01227    3270233C              LW,7     Y01002
     1410   01 01228    6F6A0000 A            MMC,6    5
     1411   01 01229    22600008 A            LI,6     8
     1412   01 0122A    22800003 A            LI,8     3                 LOAD AC REGS 10-1F
     1413   01 0122B    3270233C              LW,7     Y01002            REG 1F WITH 11;REST ALL 0'S
     1414   01 0122C    6F640000 A            MMC,6    2                 LOAD AC REGS
     1415   01 0122D    70200392              LC       #SENSE
     1416   01 0122E    69801223              BCS,8    LOPT7             SHORT LOOP IF SS1 SET
     1417   01 0122F    6AF01E2D              BAL,15   READREGS          READ MAP AND WL REGS
     1418   01 01230    3290216E              LW,9     MAPREAD           IF MAP REG 11=0000
     1419   01 01231    21900000 A            CI,9     0
     1420   01 01232    6830123A              BCR,3    CHKWL2            MAP REG NOT AFFECTED
     1421   01 01233    3280212C              LW,8     AC%
     1422   01 01234    35802A17              STW,8    MMCX2+9
     1423   01 01235    3230215B              LW,3     BA:MMCX2
     1424   01 01236    32202158     ER5      LW,2     BA:MHD2
     1425   01 01237    6AF01214              BAL,15   COMERR            REPORT ERROR
     1426   01 01238    68001223              B        LOPT7             RETURN HERE IF SS1=1;SS3=0
     1427   01 01239    68001242              B        CHKLONG1          NORMAL RETURN
     1428                            *
     1429         01 0123A           CHKWL2   EQU      %
     1430   01 0123A    3290230D              LW,9     WLRED             IF WL REG 1F=00
     1431   01 0123B    68301242              BEZ      CHKLONG1          WL REG NOT AFFECTED
     1432   01 0123C    3280212D              LW,8     WL%
     1433   01 0123D    35802A21              STW,8    MMCX3+1
     1434   01 0123E    3280212C              LW,8     AC%
     1435   01 0123F    35802A29              STW,8    MMCX3+9
     1436   01 01240    3230215C              LW,3     BA:MMCX3
     1437   01 01241    68001236              B        ER5
     1438                            *
     1439         01 01242           CHKLONG1 EQU      %
     1440   01 01242    70200392              LC       #SENSE
     1441   01 01243    69401223              BCS,4    LOPT7             LONG LOOP IF SS2 SET
     1442   01 01244    6800109E              B        TST:CONT
     1443                            *
     1444                            *
     1445                            ****     TEST 8:- CHECKS THAT WHEN A MMC INSTRUCTION
     1446                            ****              IS EXECUTED TO LOAD WL REGISTERS
     1447                            ****              MAP OR AC REGISTERS ARE NOT AFFECTED.
     1448                            *
     1449         01 01245           TST8MMC  EQU      %
     1450   01 01245    6AF01CB5              BAL,15   STSMMC
     1451         01 01246           LOPT8    EQU      %
     1452   01 01246    6AF01DDC              BAL,15   ALLACREG          LOAD ALL AC REG WITH 0'S
     1453   01 01247    6AF01E28              BAL,15   MAP1F             LOAD MAP REG 1F WITH 1F
     1454   01 01248    22600008 A            LI,6     8                 LOAD 0'S IN MAP REG'S
     1455   01 01249    22800000 A            LI,8     0                 X'10' AND X'11'
     1456   01 0124A    3270233C              LW,7     Y01002
     1457   01 0124B    6F6A0000 A            MMC,6    5
     1458   01 0124C    22600008 A            LI,6     8
     1459   01 0124D    22800003 A            LI,8     3                 LOAD WL REGS 10-1F
     1460   01 0124E    3270233C              LW,7     Y01002            REG 1F WITH 11;REST WITH 0'S
     1461   01 0124F    6F620000 A            MMC,6    1                 LOAD WL REGS
     1462   01 01250    70200392              LC       #SENSE
     1463   01 01251    69801246              BCS,8    LOPT8             SHORT LOOP IF SS1 SET
     1464   01 01252    6AF01E2D              BAL,15   READREGS          READ MAP AND AC REGS
     1465   01 01253    3290216E              LW,9     MAPREAD           IF MAP REG 11=0000
     1466   01 01254    6830125C              BEZ      CHKAC1            MAP REGS NOT AFFECTED
     1467   01 01255    3280212D              LW,8     WL%
     1468   01 01256    35802A17              STW,8    MMCX2+9
     1469   01 01257    3230215B              LW,3     BA:MMCX2
     1470   01 01258    32202159     ER6      LW,2     BA:MHD3
     1471   01 01259    6AF01214              BAL,15   COMERR            REPORT ERROR
     1472   01 0125A    68001246              B        LOPT8             RETURN HERE IF SS1=1;SS3=0
     1473   01 0125B    68001264              B        CHKLONG2          NORMAL RETURN
     1474                            *
     1475         01 0125C           CHKAC1   EQU      %
     1476   01 0125C    3290230B              LW,9     ACREAD            IF AC REG 1F=00
     1477   01 0125D    68301264              BEZ      CHKLONG2          AC REGS NOT AFFECTED
     1478   01 0125E    3280212C              LW,8     AC%
     1479   01 0125F    35802A21              STW,8    MMCX3+1
     1480   01 01260    3280212D              LW,8     WL%
     1481   01 01261    35802A29              STW,8    MMCX3+9
     1482   01 01262    3230215C              LW,3     BA:MMCX3
     1483   01 01263    68001258              B        ER6
     1484                            *
     1485         01 01264           CHKLONG2 EQU      %
     1486   01 01264    70200392              LC       #SENSE
     1487   01 01265    69401246              BCS,4    LOPT8             LONG LOOP IF SS2 SET
     1488   01 01266    6800109E              B        TST:CONT
     1489                            *
     1490         01 01267           TST9     EQU      %
     1491   01 01267    6800109E              B        TST:CONT
     1492                            *
     1493                            *
     1494                            ****     CHECKS THAT BY USING 8 OPTIMUM MAP PATTERNS
     1495                            ****     MAP PARITY ERROR BIT RETURNED IN REGISTER OF LRA INST.
     1496                            ****     IS CORRECT.
     1497                            *
     1498         01 01268           TST10MF  EQU      %
     1499   01 01268    6AF01CA5              BAL,15   STSMAP
     1500   01 01269    6AF01DDC              BAL,15   ALLACREG          LOAD ALL AC REGS WITH 0'S
     1501   01 0126A    6AF01DE4              BAL,15   ALLWLREG          LOAD ALL WL REGS WITH 0'S
     1502   01 0126B    22801282              LI,8     LRAMPE
     1503   01 0126C    358021A1              STW,8    TADDR             STORE LRA INST ADDR
     1504   01 0126D    32801282              LW,8     LRAMPE
     1505   01 0126E    358021A0              STW,8    TINST             STORE LRA INST
     1506   01 0126F    22100000 A            LI,X1    0                 RESET INDEX
     1507         01 01270           NXTMPE   EQU      %
     1508   01 01270    22600008 A            LI,6     8                 SET UP TO LOAD MAP PATTERN
     1509   01 01271    3282215D              LW,8     MPEPATT,X1        AS PER INDEX
     1510   01 01272    3270233D              LW,7     Y01003C           WORD COUNT & CONTROL START
     1511   01 01273    6F6A0000 A            MMC,6    5                 LOAD MAP REGS 1E AND 1F
     1512   01 01274    2280001F A            LI,8     X'1F'
     1513   01 01275    25800009 A            SLS,8    9
     1514   01 01276    35802168              STW,8    PAGEADR           STORE VP ADDR
     1515   01 01277    3292215D              LW,9     MPEPATT,X1
     1516   01 01278    25900009 A            SLS,9    9
     1517   01 01279    3590214E              STW,9    EXPLRA            STORE EXP LRA REG CONTENTS
     1518   01 0127A    22800000 A            LI,8     0
     1519   01 0127B    319003AA              CW,9     #MAXMEM           IS IT A NON-EXIST ADDR
     1520   01 0127C    6820127E              BLE      %+2               NO
     1521   01 0127D    32802338              LW,8     YC                SET C1C2=11 FOR NEM
     1522   01 0127E    3580214B              STW,8    EXPCC             STORE EXP CC
     1523   01 0127F    32802337              LW,8     Y8
     1524   01 01280    3580214F              STW,8    C1C2              DEFINE C1C2 FOR WRD ALIGNMENT
     1525   01 01281    7020214F              LC       C1C2              SET CC FOR WRD ALIGNMENT
     1526   01 01282    2C802168     LRAMPE   LRA,8    PAGEADR           READ MAP REG 1F;
     1527   01 01283    7400214C              STCF     ACTCC             SAVE CC'S
     1528   01 01284    70200392              LC       #SENSE
     1529   01 01285    69801270              BCS,8    NXTMPE            SHORT LOOP IF SS1 SET
     1530   01 01286    3580214D              STW,8    ACTLRA            SAVE REG USED IN LRA INST
     1531   01 01287    3180214E              CW,8     EXPLRA            SAME AS EXPECTED
     1532   01 01288    68301291              BE       MPEOK             YES
     1533   01 01289    6AF01295     MPE      BAL,15   ERMAPF            REPORT ERROR
     1534   01 0128A    68001270              B        NXTMPE            RETURN HERE IF SS1=1;SS3=0
     1535                            *                                   NORMAL RETURN
     1536         01 0128B           INCRX1   EQU      %
     1537   01 0128B    20100001 A            AI,X1    1                 INCR INDEX
     1538   01 0128C    21100008 A            CI,X1    8                 CHECK IF ALL PATTERNS TESTED
     1539   01 0128D    69101270              BL       NXTMPE            NO;LOAD NEXT PATTERN
     1540   01 0128E    70200392              LC       #SENSE
     1541   01 0128F    69401268              BCS,4    TST10MF           LONG LOOP IF SS2 SET
     1542   01 01290    6800109E              B        TST:CONT
     1543                            *
     1544         01 01291           MPEOK    EQU      %
     1545   01 01291    3280214C              LW,8     ACTCC             GET ACTUAL CC AFTER LRA
     1546   01 01292    3180214B              CW,8     EXPCC             SAME AS EXP
     1547   01 01293    6830128B              BE       INCRX1            YES;GET NEXT PATTERN
     1548   01 01294    68001289              B        MPE               REPORT ERROR
     1549                            *
     1550         01 01295           ERMAPF   EQU      %
     1551   01 01295    33102198              MTW,1    ECMAP             UPDATE ERROR COUNTER
     1552   01 01296    70200392              LC       #SENSE
     1553   01 01297    69101C8F              BCS,1    SUPRESP           SKIP ERR. OUTPUT IF SS4 SET
     1554   01 01298    32800393              LW,8     #HDRFLG
     1555   01 01299    318003F2              CW,8     TCR:NUM
     1556   01 0129A    68301123              BE       LRAER1X           SKIP HDG. OUTPUT IF FLAG SET
     1557   01 0129B    6AE01C9C              BAL,14   CONTEST#          CONVERT TEST #
     1558   01 0129C    5580272D              STH,8    MAPHEAD1+10       STORE TEST #
     1559   01 0129D    EA6003C5              #PRINT   MAPHEAD1,C1       PRINT HEADING
            01 0129E    EA6003CD
            01 0129F    C1009C8C A
            01 012A0    EA6003C6
     1560   01 012A1    6AB01CB8              BAL,11   TSTINFOX          OUTPUT LRA INST INFO
     1561   01 012A2    68001123              B        LRAER1X
     1562         01 012A3           SKIPHDG1 EQU      %
     1563                            *
     1564                            *
     1565                            ****
     1566                            ****START MAP FUNCTIONAL TESTS HERE.
     1567                            ****THIS TEST DOES THE FOLLOWING.
     1568                            ****1. LOAD ALL 256 MAP REGISTERS WITH ZEROS.
     1569                            ****   THEN VIA A LRA INSTRUCTION READ THE MAP
     1570                            ****   BITS FOR EACH OF THE VIRTUAL PAGES AND
     1571                            ****   CHECK THAT THEY ARE ALL ZEROS.
     1572                            ****2. STARTING WITH VIRTUAL PAGE 0 LOAD A TEST
     1573                            ****   PATTERN OF X'1FFF' IN MAP REGISTER 0.
     1574                            ****   NOW READ THE MAP BITS VIA A LRA INST.
     1575                            ****   STARTING WITH VP 0.CHECK THAT TEST PATTERN
     1576                            ****   WAS LOADED CORRECTLY IN THE RIGHT MAP REG.
     1577                            ****   IF THE VP ADDR BEING USED IN LRA IS SAME AS
     1578                            ****   TEST VP ADDR THEN THE MAP BITS READ SHOULD
     1579                            ****   BE ALL ONES.OTHERWISE AN ERROR (ERMAP2).
     1580                            ****   IF THE TWO ADDRESSES ARE NOT THE SAME THEN
     1581                            ****   THE MAP BITS READ SHOULD BE ALL ZEROS.
     1582                            ****   OTHERWISE AN ERROR (ERMAP3).
     1583                            ****   IN THIS MANNER READ ALL THE MAP REGISTERS
     1584                            ****   TO MAKE SURE THAT THE CORRECT MAP REG. IS
     1585                            ****   ADDRESSED AND HAS THE CORRECT BIT PATTERN.
     1586                            ****   NOW LOAD THE TEST PATTERN IN THE NEXT MAP
     1587                            ****   REG. AND REPEAT THE ABOVE PROCESS.
     1588                            ****
     1589         01 012A3           T11MAPF  EQU      %                 START MAP TESTS
     1590   01 012A3    6AF01CA5              BAL,R15  STSMAP            MAP STATUS
     1591   01 012A4    6AF01DD4              BAL,R15  ALMAPREG          LOAD ALL MAP REG WITH 0'S
     1592   01 012A5    6AF01DDC              BAL,R15  ALLACREG          LOAD ALLAC REG WITH 07S
     1593   01 012A6    22800000 A            LI,8     0                 RESET TO ZERO
     1594   01 012A7    3580216C              STW,8    TESTVP            TEST VIRTUAL PAGE
     1595   01 012A8    3580216D              STW,8    READVP            READ VIRTUAL PAGE
     1596   01 012A9    3580216F              STW,8    MAPLOAD           STORE 0'S IN MAPLOAD
     1597         01 012AA           LOPT11   EQU      %
     1598   01 012AA    6AF01DD4              BAL,15   ALMAPREG          LOAD ALL MAP REG'S WITH 0'S
     1599         01 012AB           MAPCHK1  EQU      %
     1600   01 012AB    3210216D              LW,1     READVP            SET UP READ VP ADDRESS
     1601   01 012AC    25100009 A            SLS,1    9                 IN BIT POSITION 15 TO 22 IN X1
     1602   01 012AD    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER
     1603   01 012AE    35102168              STW,1    PAGEADR           STORE VP ADDR
     1604   01 012AF    6AB012C1              BAL,11   DEFEXP            DEFINE EXP LRA REG CONTENTS
     1605   01 012B0    02200080 A            LCI      8                 SET CC FOR WRD ADR
     1606   01 012B1    2C802168              LRA,8    PAGEADR           READ MAP REG
     1607   01 012B2    7400214C              STCF     ACTCC             SAVE CC AFTER LRA
     1608   01 012B3    70200392              LC       #SENSE            IF SS1 SET
     1609   01 012B4    698012AA              BCS,8    LOPT11            SHORT LOOP
     1610   01 012B5    3580214D              STW,8    ACTLRA            STORE ACTUAL LRA REG CONTENT
     1611   01 012B6    3180214E              CW,8     EXPLRA            SAME AS EXPECTED
     1612   01 012B7    683012BA              BE       LINK1             YES
     1613   01 012B8    6AF012FE              BAL,15   ERRMAP            REPORT ERROR
     1614   01 012B9    680012AA              B        LOPT11            RETURN HERE IF SS1=1;SS3=0
     1615         01 012BA           LINK1    EQU      %                 NORMAL RETURN
     1616   01 012BA    3280216D              LW,8     READVP            IF READ VP
     1617   01 012BB    3180216A              CW,8     LASTPAGE          ADDRESS EQUALS 255
     1618   01 012BC    683012CD              BE       MAPFTST           START NEXT TEST
     1619   01 012BD    22800001 A            LI,8     1                 INCREMENT BY 1
     1620   01 012BE    6680216C              AWM,8    TESTVP            ADDRESS OF TEST VP
     1621   01 012BF    6680216D              AWM,8    READVP            ADDRESS OF READ VP
     1622   01 012C0    680012AB              B        MAPCHK1           CHECK NEXT VP
     1623                            *
     1624         01 012C1           DEFEXP   EQU      %
     1625   01 012C1    3290216F              LW,9     MAPLOAD           GET MAP PATTERN
     1626   01 012C2    32A0216C              LW,10    TESTVP
     1627   01 012C3    31A0216D              CW,10    READVP            SAME AS TEST VP
     1628   01 012C4    683012C6              BE       %+2               YES
     1629   01 012C5    22900000 A            LI,9     0                 DEFINE MAP PATTERN=0
     1630   01 012C6    25900009 A            SLS,9    9                 SET IT INTO BITS 10-22
     1631   01 012C7    20900010 A            AI,9     X'10'             ADD CROSSOVER BIAS
     1632   01 012C8    21900210 A            CI,9     X'210'            IS VIRTUAL ADR FOR PAG 0,1
     1633   01 012C9    692012CB              BG       %+2               NO;NO HOME SPACE BIAS BIT
     1634   01 012CA    49902335              OR,9     Y4                SET HSBB
     1635   01 012CB    3590214E              STW,9    EXPLRA            SAVE EXP LRA REG CONTENTS
     1636   01 012CC    E800000B A            B        *R11              EXIT
     1637                            *
     1638         01 012CD           MAPFTST  EQU      %                 MAP FUNCTIONAL TEST
     1639   01 012CD    22800000 A            LI,8     0                 RESET TO ZERO
     1640   01 012CE    3580216C              STW,8    TESTVP            TEST VP
     1641   01 012CF    3580216D              STW,8    READVP            READ VP
     1642   01 012D0    3280232B              LW,8     TPMAP             TEST MAP PATTERN
     1643   01 012D1    3580216F              STW,8    MAPLOAD
     1644   01 012D2    25800010 A            SLS,8    16
     1645   01 012D3    3580216B              STW,8    TESTPATN
     1646         01 012D4           LOADMAP  EQU      %
     1647   01 012D4    3280216B              LW,8     TESTPATN          SET UP MAP CONTROL IMAGE WORD
     1648   01 012D5    3270216C              LW,7     TESTVP            SET UP CONTROL START
     1649   01 012D6    6AB01DBD              BAL,R11  MMCMAP1
     1650         01 012D7           READMAP  EQU      %
     1651   01 012D7    3210216D              LW,1     READVP            SET UP READ VP ADDRESS
     1652   01 012D8    25100009 A            SLS,1    9                 IN BIT POSITION 15 TO 22 OF X1
     1653   01 012D9    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER
     1654   01 012DA    35102168              STW,1    PAGEADR           STORE VP ADDR
     1655   01 012DB    6AB012C1              BAL,11   DEFEXP            DEFINE EXP LRA REG CONTENTS
     1656   01 012DC    02200080 A            LCI      8                 SET CC FOR WRD ADR
     1657   01 012DD    2C802168              LRA,8    PAGEADR           READ MAP REG
     1658   01 012DE    7400214C              STCF     ACTCC             SAVE CC AFTER LRA
     1659   01 012DF    70200392              LC       #SENSE            IF SS1 SET
     1660   01 012E0    698012D4              BCS,8    LOADMAP           SHORT LOOP
     1661   01 012E1    3580214D              STW,8    ACTLRA            STORE ACTUAL LRA REG CONTENT
     1662   01 012E2    3180214E              CW,8     EXPLRA            SAME AS EXPECTED
     1663   01 012E3    683012E7              BE       CONTINU1          TEST OK
     1664   01 012E4    6AF012FE              BAL,15   ERRMAP            REPORT ERROR
     1665   01 012E5    680012D4              B        LOADMAP           RETURN HERE IF SS1=1;SS3=0
     1666   01 012E6    680012E7              B        CONTINU1          NORMAL RETURN
     1667                            *
     1668         01 012E7           CONTINU1 EQU      %                 CONTINUE
     1669   01 012E7    3280216D              LW,8     READVP
     1670   01 012E8    3180216A              CW,8     LASTPAGE          IF READ VP ADDR EQUALS 255
     1671   01 012E9    683012EC              BE       LASTRVP1          THEN BRANCH
     1672   01 012EA    3310216D              MTW,1    READVP            ADDRESS BY 1
     1673   01 012EB    680012D7              B        READMAP           READ MAP FOR NEXT VP
     1674                            *
     1675         01 012EC           LASTRVP1 EQU      %                 READ VP ADDR=255;(X'FF')
     1676   01 012EC    22800000 A            LI,8     0
     1677   01 012ED    3580216D              STW,8    READVP            RESET READVP TO ZERO
     1678   01 012EE    3290216C              LW,9     TESTVP
     1679   01 012EF    3190216A              CW,9     LASTPAGE          IF TEST VP ADDR=255
     1680   01 012F0    683012FA              BE       LASTPAG1          THEN BRANCH
     1681   01 012F1    22800000 A            LI,8     0
     1682   01 012F2    3270216C              LW,7     TESTVP
     1683   01 012F3    4B702353              AND,7    XFE               CLEAR TEST VP MAP REG TO 0'S
     1684   01 012F4    6AB01DBD              BAL,11   MMCMAP1
     1685   01 012F5    3310216C              MTW,1    TESTVP            ADDRESS BY 1
     1686   01 012F6    3280216B              LW,8     TESTPATN          LOAD TEST PATTERN IN R8
     1687   01 012F7    25800210 A            SCS,8    16                SHIFT LEFT 16 BITS
     1688   01 012F8    3580216B              STW,8    TESTPATN          STORE TEST PATTERN
     1689   01 012F9    680012D4              B        LOADMAP           LOAD MAP FOR NEXT TEST VP
     1690                            *
     1691         01 012FA           LASTPAG1 EQU      %                 LAST VP ADDRESS TESTED
     1692   01 012FA    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     1693   01 012FB    694012A4              BCS,4    T11MAPF+1         LOOP ON TEST
     1694   01 012FC    6AF01DD4              BAL,R15  ALMAPREG          LOAD ALL MAP REG WITH 0'S
     1695   01 012FD    6800109E              B        TST:CONT          START AC TESTS
     1696                            *
     1697                            *
     1698         01 012FE           ERRMAP   EQU      %                 MAP ERROR ROUTINE
     1699   01 012FE    32802152              LW,8     XEMAPF
     1700   01 012FF    B58003CE              STW,8    *#ERRTEXT%        SET UP CONTROL WORD
     1701   01 01300    33102198              MTW,1    ECMAP             UPDATE ERROR COUNTER
     1702   01 01301    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     1703   01 01302    69101C8F              BCS,1    SUPRESP           SUPRESS PRINTOUT
     1704   01 01303    32800393              LW,8     #HDRFLG           CHECK HEADING FLAG.IF SET
     1705   01 01304    318003F2              CW,8     TCR:NUM
     1706   01 01305    68301314              BE       SUPHEAD1          SUPRESS HEADING PRINTOUT
     1707   01 01306    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     1708   01 01307    5580272D              STH,8    MAPHEAD1+10       STORE IN BUFFER
     1709   01 01308    EA6003C5              #PRINT   MAPHEAD1,C1       PRINT HEADING
            01 01309    EA6003CD
            01 0130A    C1009C8C A
            01 0130B    EA6003C6
     1710   01 0130C    EA6003C5              #PRINT   MAPHEAD2,C1       PRINT HEADING
            01 0130D    EA6003CD
            01 0130E    C1009CB8 A
            01 0130F    EA6003C6
     1711   01 01310    EA6003C5              #PRINT   MAPHEAD3          PRINT HEADING
            01 01311    EA6003CD
            01 01312    C0009CE4 A
            01 01313    EA6003C6
     1712         01 01314           SUPHEAD1 EQU      %
     1713   01 01314    6AB01D64              BAL,R11  GETVPAD           CONVERT TEST & READ VP ADDRS
     1714   01 01315    6D000032 A            #HTECON  EXPLRA            CONVERT MAP LOADED
            01 01316    EA6003C3
            01 01317    0000214E
            01 01318    6D000022 A
     1715   01 01319    2A8C0000 A            LM,8     0,LINK
     1716   01 0131A    02200020 A            LCI      2
     1717   01 0131B    2B80274C              STM,8    MAPMSG1+7         STORE MAP LOADED
     1718   01 0131C    6D000032 A            #HTECON  ACTLRA            CONVERT MAP READ
            01 0131D    EA6003C3
            01 0131E    0000214D
            01 0131F    6D000022 A
     1719   01 01320    2A8C0000 A            LM,8     0,LINK
     1720   01 01321    02200020 A            LCI      2
     1721   01 01322    2B80274F              STM,8    MAPMSG1+10        STORE MAP READ
     1722   01 01323    EA6003C5              #PRINT   MAPMSG1,C1        PRINT ERROR MESSAGE LINE
            01 01324    EA6003CD
            01 01325    C1009D14 A
            01 01326    EA6003C6
     1723   01 01327    68001C89              B        COMMON
     1724                            *
     1725                            ****
     1726                            ****START OF ACCESS CONTROL TESTS.
     1727                            ****THESE TESTS ARE STRUCTURED IN EXACTLY
     1728                            ****THE SAME WAY AS THE MAP TESTS. THE LABELS
     1729                            ****OF COURSE ARE DIFFERENT.
     1730                            ****
     1731         01 01328           TST12ACF EQU      %                 INITIALISATION
     1732   01 01328    6AF01CA8              BAL,R15  STSAC             AC STATUS
     1733   01 01329    6AF01DD4              BAL,15   ALMAPREG          LOAD ALL MAP REG WITH 0'S
     1734   01 0132A    22800000 A            LI,8     0                 RESET TO 0
     1735   01 0132B    3580216C              STW,8    TESTVP            TEST VP
     1736   01 0132C    3580216D              STW,8    READVP            READ VP
     1737   01 0132D    3580230C              STW,8    ACLOAD            STORE AC PATTERN
     1738         01 0132E           LOPT12   EQU      %
     1739   01 0132E    6AF01DDC              BAL,15   ALLACREG          LOAD ALL AC REG WITH 0'S
     1740         01 0132F           ACCHK1   EQU      %
     1741   01 0132F    3210216D              LW,1     READVP            SET UP READ VP ADDRESS
     1742   01 01330    25100009 A            SLS,1    9                 IN BIT POSITION 15 TO 22 OF X1
     1743   01 01331    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER
     1744   01 01332    35102168              STW,1    PAGEADR           STORE VP ADDR
     1745   01 01333    02200080 A            LCI      8                 SET CC FOR WRD ADR
     1746   01 01334    2C802168              LRA,8    PAGEADR           READ AC  REG
     1747   01 01335    7400214C              STCF     ACTCC             SAVE CC AFTER LRA
     1748   01 01336    70200392              LC       #SENSE            IF SS1 SET
     1749   01 01337    6980132E              BCS,8    LOPT12            SHORT LOOP
     1750   01 01338    3290214C              LW,9     ACTCC             CHECK IF AC READ
     1751   01 01339    25900204 A            SCS,9    4
     1752   01 0133A    4B902333              AND,9    X03
     1753   01 0133B    3590230B              STW,9    ACREAD            SAVE AC BITS READ
     1754   01 0133C    21900000 A            CI,9     0                 AC BITS READ =00
     1755   01 0133D    68301340              BE       LINK2             YES
     1756   01 0133E    6AF0137E              BAL,15   ERRAC             REPORT ERROR
     1757   01 0133F    6800132E              B        LOPT12            RETURN HERE IF SS1=1;SS3=0
     1758         01 01340           LINK2    EQU      %                 NORMAL RETURN
     1759   01 01340    3280216D              LW,8     READVP            IF READ VP
     1760   01 01341    3180216A              CW,8     LASTPAGE          ADDRESS EQUALS 255
     1761   01 01342    68301347              BE       ACFTST            START NEXT TEST
     1762   01 01343    22100001 A            LI,1     1                 INCREMENT BY 1
     1763   01 01344    6610216C              AWM,1    TESTVP            ADDRESS OF TEST VP
     1764   01 01345    6610216D              AWM,1    READVP            ADDRESS OF READ VP
     1765   01 01346    6800132F              B        ACCHK1            CHECK NEXT VP
     1766                            *
     1767         01 01347           ACFTST   EQU      %                 AC FUNCTIONAL TEST
     1768   01 01347    22800000 A            LI,8     0                 RESET TO 0
     1769   01 01348    3580216C              STW,8    TESTVP            TEST VP ADDR
     1770   01 01349    3580216D              STW,8    READVP            READ VP ADDR
     1771   01 0134A    32802338              LW,8     YC                INITIALISE VALUE OF
     1772   01 0134B    3580216B              STW,8    TESTPATN          TEST PATTERN
     1773         01 0134C           LOADAC   EQU      %
     1774   01 0134C    3280216B              LW,8     TESTPATN          SET UP AC CONTROL IMAGE WORD
     1775   01 0134D    3270216C              LW,7     TESTVP            SET UP CONTROL START
     1776   01 0134E    6AB01E03              BAL,R11  MMCAC1
     1777         01 0134F           READAC   EQU      %
     1778   01 0134F    3210216D              LW,1     READVP            SET UP READ VP ADDRESS
     1779   01 01350    25100009 A            SLS,1    9                 IN BITS 15 TO 22 OF X1
     1780   01 01351    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER
     1781   01 01352    35102168              STW,1    PAGEADR           STORE VP ADDR
     1782   01 01353    02200080 A            LCI      8                 SET CC FOR WRD ADR
     1783   01 01354    2C802168              LRA,8    PAGEADR           READ AC  REG
     1784   01 01355    7400214C              STCF     ACTCC             SAVE CC AFTER LRA
     1785   01 01356    70200392              LC       #SENSE            IF SS1 SET
     1786   01 01357    6980134C              BCS,8    LOADAC            SHORT LOOP
     1787   01 01358    3290214C              LW,9     ACTCC             CHECK IF AC READ
     1788   01 01359    25900204 A            SCS,9    4
     1789   01 0135A    4B902333              AND,9    X03
     1790   01 0135B    3590230B              STW,9    ACREAD            SAVE AC BITS READ
     1791   01 0135C    22800000 A            LI,8     0                 DEFINE EXP AC=00
     1792   01 0135D    32A0216D              LW,10    READVP            CHECK IF READ VP ADDRESS
     1793   01 0135E    31A0216C              CW,10    TESTVP            EQUALS TEST VP ADDRESS
     1794   01 0135F    69301361              BNE      %+2               BRANCH IF NOT
     1795   01 01360    22800003 A            LI,8     3                 DEFINE EXP AC=11
     1796   01 01361    3580230C              STW,8    ACLOAD            STORE EXP AC BITS
     1797   01 01362    3180230B              CW,8     ACREAD            IF SAME AS EXPECTED
     1798   01 01363    68301367              BE       CONTINU2          TEST OK
     1799   01 01364    6AF0137E              BAL,15   ERRAC             REPORT ERROR
     1800   01 01365    6800134C              B        LOADAC            RETURN HERE IF SS1=1;SS3=0
     1801   01 01366    68001367              B        CONTINU2          NORMAL RETURN
     1802                            *
     1803         01 01367           CONTINU2 EQU      %
     1804   01 01367    3280216D              LW,8     READVP
     1805   01 01368    3180216A              CW,8     LASTPAGE          IF READ VP ADDR EQUALS 255
     1806   01 01369    6830136C              BE       LASTRVP2          THEN BRANCH
     1807   01 0136A    3310216D              MTW,1    READVP            ADDRESS BY 1
     1808   01 0136B    6800134F              B        READAC            READ AC FOR NEXT VP
     1809                            *
     1810                            *
     1811         01 0136C           LASTRVP2 EQU      %                 READ VP ADDR-255;(X'FF')
     1812   01 0136C    22800000 A            LI,8     0
     1813   01 0136D    3580216D              STW,8    READVP            RESET READ VP ADDR TO 0
     1814   01 0136E    3290216C              LW,9     TESTVP
     1815   01 0136F    3190216A              CW,9     LASTPAGE          IF TEST VP ADDR=255
     1816   01 01370    6830137A              BE       LASTPAG2          THEN BRANCH
     1817   01 01371    22800000 A            LI,8     0
     1818   01 01372    3270216C              LW,7     TESTVP
     1819   01 01373    4B80234F              AND,8    XF0               RESET AC BITS FOR TEST VP
     1820   01 01374    6AB01E03              BAL,11   MMCAC1
     1821   01 01375    3310216C              MTW,1    TESTVP            ADDRESS BY 1
     1822   01 01376    3280216B              LW,8     TESTPATN          LOAD TEST PATTERN IN R8
     1823   01 01377    2580027E A            SCS,8    -2                SHIFT RIGHT 2 BITS
     1824   01 01378    3580216B              STW,8    TESTPATN          STORE TEST PATTERN
     1825   01 01379    6800134C              B        LOADAC            LOAD AC FOR NEXT VP
     1826                            *
     1827         01 0137A           LASTPAG2 EQU      %                 LAST VP ADDRESS TESTED
     1828   01 0137A    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     1829   01 0137B    69401329              BCS,4    TST12ACF+1        LOOP ON TEST
     1830   01 0137C    6AF01DDC              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     1831   01 0137D    6800109E              B        TST:CONT          START MAP OPERATIONAL TEST
     1832                            *
     1833                            *
     1834         01 0137E           ERRAC    EQU      %
     1835   01 0137E    32802153              LW,8     XEACF
     1836   01 0137F    B58003CE              STW,8    *#ERRTEXT%        SET UP CONTROL WORD
     1837   01 01380    33102199              MTW,1    ECAC              UPDATE ERROR COUNTER
     1838   01 01381    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     1839   01 01382    69101C8F              BCS,1    SUPRESP           SUPRESS PRINTOUT
     1840   01 01383    32800393              LW,8     #HDRFLG           CHECK FOR HEADING FLAG.IF SET
     1841   01 01384    318003F2              CW,8     TCR:NUM
     1842   01 01385    68301394              BE       SUPHEAD2          SUPRESS HEADING PRINTOUT
     1843   01 01386    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     1844   01 01387    5580275D              STH,8    ACHEAD1+12        STORE IN BUFFER
     1845   01 01388    EA6003C5              #PRINT   ACHEAD1,C1        PRINT HEADING
            01 01389    EA6003CD
            01 0138A    C1009D44 A
            01 0138B    EA6003C6
     1846   01 0138C    EA6003C5              #PRINT   ACHEAD2,C1        PRINT HEADING
            01 0138D    EA6003CD
            01 0138E    C1009D78 A
            01 0138F    EA6003C6
     1847   01 01390    EA6003C5              #PRINT   ACHEAD3           PRINT HEADING
            01 01391    EA6003CD
            01 01392    C0009DA4 A
            01 01393    EA6003C6
     1848         01 01394           SUPHEAD2 EQU      %
     1849   01 01394    6AB01D64              BAL,R11  GETVPAD
     1850   01 01395    6AB01D77              BAL,R11  GETAC             CONVERT AC BITS READ AND LOADED
     1851   01 01396    3580274C              STW,8    ACMSG1+7          STORE AC LOADED
     1852   01 01397    3590274E              STW,9    ACMSG1+9          STORE AC READ
     1853   01 01398    EA6003C5              #PRINT   ACMSG1,C1         PRINT ERROR LINE
            01 01399    EA6003CD
            01 0139A    C1009D14 A
            01 0139B    EA6003C6
     1854   01 0139C    68001C89              B        COMMON
     1855                            *
     1856                            *
     1857                            *
     1858                            *
     1859                            ****     TWO TEST INSTRUCTIONS ARE EXECUTED IN
     1860                            ****     MAPPED-SLAVE MODE TO CHECK THAT MAP IS
     1861                            ****     OPERATING CORRECTLY.THESE TEST INSTRUCTIONS
     1862                            ****     ARE EXECUTED FROM THE 'TINSTP' AND THE PAGE
     1863                            ****     BEING TESTED IS DEFINED BY 'TESTPAGE'.MAP REG
     1864                            ****     AS PER 'TINSTP' & 'TESTPAGE' ARE LOADED SUCH
     1865                            ****     THAT 'TINSTP' MAPS TO ITSELF AND 'TESTPAGE'
     1866                            ****     MAPS TO 'TINSTP'.THIS IS TRUE FOR ALL MAP
     1867                            ****     OPERATIONAL TESTS.
     1868                            ****     'TINSTP'=1E;'TESTPAGE'=1F UNLESS CHANGED BY USER(PARAM. T)
     1869                            *
     1870         01 0139D           T13MAPOP  EQU     %
     1871   01 0139D    6AF01CA5              BAL,R15  STSMAP            MAP STATUS
     1872   01 0139E    6AF01DD4              BAL,R15  ALMAPREG          LOAD ALL MAP REG WITH 0'S
     1873   01 0139F    6AF01DDC              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     1874   01 013A0    22800000 A            LI,8     0
     1875   01 013A1    35802170              STW,8    TPAC              SAVE TEST PAGE AC BITS
     1876         01 013A2           MOPLOP1  EQU      %
     1877   01 013A2    329021B1              LW,9     LWTIP
     1878   01 013A3    22800000 A            LI,8     0
     1879   01 013A4    6AF01D91              BAL,R15  SETMAP            LOAD MAP REG FOR TEST PAGE
     1880   01 013A5    6AF01DCC              BAL,R15  SETLPSD           SET UP LPSD
     1881   01 013A6    358013BA              STW,8    LPSDMOP
     1882   01 013A7    3280232C              LW,8     TINSTP            COMPUTE MAPPED INDIRECT ADDR
     1883   01 013A8    25800009 A            SLS,8    9                 USED IN STW TEST INST
     1884   01 013A9    227001FF A            LI,7     X'1FF'
     1885   01 013AA    B5700008 A            STW,R7   *R8               STORE ABOVE VALUE
     1886   01 013AB    3280232D              LW,8     TESTPAGE
     1887   01 013AC    25800009 A            SLS,8    9
     1888   01 013AD    49802342              OR,8     YB532             STW,R3  *00000000
     1889   01 013AE    3580140F              STW,8    MPOPRT+1          STORE STW INST
     1890   01 013AF    6AF01D86              BAL,R15  SETINST           SET UP TEST INSTRUCTIONS
     1891   01 013B0    0300140E              GEN,8,2,22  3,0,MPOPRT
     1892         01 013B1           MAPOPT   EQU      %
     1893   01 013B1    3280232C              LW,8     TINSTP
     1894   01 013B2    25800009 A            SLS,8    9
     1895   01 013B3    208001FF A            AI,8     X'1FF'
     1896   01 013B4    358021B7              STW,8    RESULTAT
     1897   01 013B5    223FFFFF A            LI,3     -1
     1898   01 013B6    B53021B7              STW,3    *RESULTAT         INITIALISE TEST STORE LOC.
     1899   01 013B7    3210232D              LW,1     TESTPAGE          LOAD TEST PAGE ADDR(VIRTUAL)
     1900   01 013B8    25100009 A            SLS,1    9                 IN BIT 15-22 OF X1
     1901   01 013B9    0E0013BA              LPSD,0   LPSDMOP
     1902                                     BOUND    8
     1903   01 013BA    00C03DF8 A   LPSDMOP  DATA     X'00C03DF8'       TINSTP '1E' MAPS TO ITSELF
     1904   01 013BB    00000000 A            DATA     0
     1905                            *
     1906                            *
     1907                            *************************************************************
     1908                            *************************************************************
     1909                            ****     ENTER HERE AFTER EXECUTING CAL1 INST.
     1910                            ****     AT THE END OF TEST INSTS. AT X'3FF0'
     1911                            ****     TEST INST AT X'3FF0' IF TEST PAGE IS 1F.
     1912                            *************************************************************
     1913                            *************************************************************
     1914                            *
     1915                            *
     1916         01 013BC           MAPCAL1  EQU      %
     1917   01 013BC    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     1918   01 013BD    698013B1              BCS,8    MAPOPT            BRANCH FOR SHORT LOOP
     1919   01 013BE    3130140E              CW,R3    MPOPRT            IF R3 CONTAINS THE TEST INST
     1920   01 013BF    683013C5              BE       TOK1              THEN TEST OK
     1921   01 013C0    3530217C              STW,3    ACTDATA           SAVE ACTUAL DATA
     1922   01 013C1    3280140E              LW,8     MPOPRT
     1923   01 013C2    3580217B              STW,8    EXPDATA           SAVE EXPECTED DATA
     1924   01 013C3    6AF013CF              BAL,R15  ERMAPOP1          REPORT ERROR
     1925   01 013C4    680013B1              B        MAPOPT            RETURN HERE IF SS1=1;SS3=0
     1926                            *                                   NORMAL RETURN
     1927   01 013C5    B13021B7     TOK1     CW,R3    *RESULTAT         IF CONTENTS OF R3 STORED CORRECTLY
     1928   01 013C6    683013CC              BE       TOK2              AT X'3DFF' THEN TEST OK
     1929   01 013C7    3530217B              STW,3    EXPDATA           SAVE EXP DATA
     1930   01 013C8    B28021B7              LW,8     *RESULTAT
     1931   01 013C9    3580217C              STW,8    ACTDATA           SAVE ACTUAL DATA
     1932   01 013CA    6AF013FF              BAL,R15  ERMAPOP2          REPORT ERROR
     1933   01 013CB    680013B1              B        MAPOPT            RETURN HERE IF SS1=1;SS3=0
     1934                            *                                   NORMAL RETURN
     1935   01 013CC    70200392     TOK2     LC       #SENSE            CHECK FOR SS2.IF SET
     1936   01 013CD    694013A2              BCS,4    MOPLOP1           BRANCH FOR LONG LOOP
     1937   01 013CE    6800109E              B        TST:CONT          START AC OPERATIONAL TEST
     1938                            *
     1939                            *
     1940         01 013CF           ERMAPOP1 EQU      %
     1941   01 013CF    6AD013EF              BAL,R13  ERRMAPOP
     1942   01 013D0    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     1943   01 013D1    3280140E              LW,8     MPOPRT            NORMAL RETURN
     1944   01 013D2    358021A0              STW,8    TINST             STORE TEST INST
     1945   01 013D3    328021B5              LW,8     MAPEDADR
     1946   01 013D4    358021A1              STW,8    TADDR             STORE MAPPED ADDR
     1947   01 013D5    6AB01CD1     XERMAP1  BAL,R11  TSTINFO2          GET TEST INST AND ADDRESS
     1948   01 013D6    02200020 A            LCI      2
     1949   01 013D7    2B8027AE              STM,8    MAPMSG3+6         STORE MAPPED ADDRESS
     1950   01 013D8    EA6003C5              #PRINT   MAPMSG3
            01 013D9    EA6003CD
            01 013DA    C0009EA0 A
            01 013DB    EA6003C6
     1951   01 013DC    6D000032 A   XERMAPOP #HTECON  EXPDATA           CONVERT EXPDATA
            01 013DD    EA6003C3
            01 013DE    0000217B
            01 013DF    6D000022 A
     1952   01 013E0    2A8C0000 A            LM,8     0,LINK
     1953   01 013E1    02200020 A            LCI      2
     1954   01 013E2    2B8027BB              STM,8    MAPMSG4+5         STORE EXP DATA
     1955   01 013E3    6D000032 A            #HTECON  ACTDATA           CONVERT ACTUAL DATA
            01 013E4    EA6003C3
            01 013E5    0000217C
            01 013E6    6D000022 A
     1956   01 013E7    2A8C0000 A            LM,8     0,LINK
     1957   01 013E8    02200020 A            LCI      2
     1958   01 013E9    2B8027C1              STM,8    MAPMSG4+11
     1959   01 013EA    EA6003C5              #PRINT   MAPMSG4
            01 013EB    EA6003CD
            01 013EC    C0009ED8 A
            01 013ED    EA6003C6
     1960   01 013EE    68001C89              B        COMMON
     1961                            *
     1962                            *
     1963         01 013EF           ERRMAPOP EQU      %
     1964   01 013EF    33102198              MTW,1    ECMAP             UPDATE ERROR COUNTER
     1965   01 013F0    22800000 A            LI,8     0
     1966   01 013F1    35802170              STW,8    TPAC              STORE TEST PAGE AC
     1967   01 013F2    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     1968   01 013F3    E910000D A            BCS,1    *R13              SUPRESS PRINTOUT
     1969   01 013F4    3310000D A            MTW,1    R13               INCR RETURN ADDR
     1970   01 013F5    32800393              LW,8     #HDRFLG
     1971   01 013F6    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #
     1972   01 013F7    E830000D A            BE       *R13              SKIP HEADING OUTPUT
     1973   01 013F8    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     1974   01 013F9    55802795              STH,8    MAPOPHD1+10       STORE IN BUFFER
     1975   01 013FA    EA6003C5              #PRINT   MAPOPHD1,C1
            01 013FB    EA6003CD
            01 013FC    C1009E2C A
            01 013FD    EA6003C6
     1976   01 013FE    E800000D A            B        *R13
     1977                            *
     1978                            *
     1979                            *
     1980         01 013FF           ERMAPOP2 EQU      %
     1981   01 013FF    6AD013EF              BAL,R13  ERRMAPOP
     1982   01 01400    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     1983   01 01401    3280140F              LW,8     MPOPRT+1          NORMAL RETURN
     1984   01 01402    358021A0              STW,8    TINST
     1985   01 01403    328021B7              LW,8     RESULTAT
     1986   01 01404    358021A1              STW,8    TADDR
     1987   01 01405    6AB01CD1              BAL,R11  TSTINFO2          GET TEST INST AND ADDRESS
     1988   01 01406    02200020 A            LCI      2
     1989   01 01407    2B8027D1              STM,8    MAPMSG5+14        STORE MAPPED ADDRESS
     1990   01 01408    EA6003C5              #PRINT   MAPMSG5
            01 01409    EA6003CD
            01 0140A    C0009F0C A
            01 0140B    EA6003C6
     1991   01 0140C    680013DC              B        XERMAPOP
     1992                            *
     1993                                     BOUND    8
     1994   01 0140E    323201F8 A   MPOPRT   LW,3     X'1F8',X1         X1 HAS TESPAGE ADDR(BITS15-22)
     1995   01 0140F    B5323E00 A            STW,R3   *X'3E00',X1
     1996   01 01410    04000000 A            CAL1,0   0
     1997                            *
     1998                            *
     1999                            ****     FOUR TEST INSTRUCTIONS ARE EXECUTED IN
     2000                            ****     MAPPED-SLAVE MODE TO CHECK THAT ACCESS CONTROL
     2001                            ****     LOGIC IS OPERATING CORRECTLY.TEST INSTRUCTIONS
     2002                            ****     ARE EXECUTED FROM 'TINSTP' PAGE TO CHECK OUT THE
     2003                            ****     ACCESS CONTROL LOGIC OPERATION FOR AC=11,10,01 & 00
     2004                            ****     FOR THE TESTPAGE.FOR ALL ACCESS CONTROL OPERATIONAL
     2005                            ****     TESTS IN MAPPED-SLAVE MODE 'TINSTP' AND 'TESTPAGE'
     2006                            ****     MAP TO THEMSELVES.
     2007                            ****     'TINSTP'=1E;'TESTPAGE'=1F UNLESS CHANGED BY USER(PARAM. T)
     2008                            *
     2009         01 01411           TST14ACOP EQU     %
     2010   01 01411    6AF01CA8              BAL,R15  STSAC             AC STATUS
     2011   01 01412    22800003 A            LI,8     3
     2012   01 01413    3580230C              STW,8    ACLOAD            INITIALLY SET TEST AC BITS TO 11
     2013   01 01414    329021B4              LW,9     LWTP
     2014   01 01415    6AF01D91              BAL,R15  SETMAP            SET UP REGS FOR THIS TEST
     2015   01 01416    6AF01DCC              BAL,R15  SETLPSD           SET UP LPSD TO INVOK SLAV/MAP MODE
     2016   01 01417    3580142C              STW,8    LPSDACOP          STORE PSW1
     2017   01 01418    6AF01D86              BAL,R15  SETINST           SET UP TEST INSTRS.
     2018   01 01419    0500146E              GEN,8,2,22  5,0,ACOPT      IN TEST INST PAGE
     2019   01 0141A    3280232D              LW,8     TESTPAGE          COMPUTE ADDR FROM WHERE INST
     2020   01 0141B    25800009 A            SLS,8    9                 WILL BE ACCESSED WHILE TESTING
     2021   01 0141C    208001FF A            AI,8     X'1FF'            AC=10 FOR THE TEST PAGE
     2022   01 0141D    35802174              STW,8    STOREAT           SAVE ADDR
     2023   01 0141E    208FFFFF A            AI,8     -1                COMPUTE TEST LOCATION FOR
     2024   01 0141F    358021B7              STW,8    RESULTAT          FOR WRITE TEST WHEN AC=01
     2025   01 01420    328021B5              LW,8     MAPEDADR          COMPUTE BRANCH INST TO BE
     2026   01 01421    20800002 A            AI,8     2                 STORED AT ADDR IN STOREAT
     2027   01 01422    30802173              AW,8     HEX68             WHICH WILL RETURN PROGRAM TO
     2028   01 01423    B5802174              STW,8    *STOREAT          TINST #2 WHEN TESTING AC =01
     2029   01 01424    22D00000 A   NEXTAC   LI,13    0
     2030   01 01425    6AF01DFA              BAL,R15  SETAC             LOAD AC BITS FOR TEST PAGE
     2031         01 01426           ACOPLOP  EQU      %
     2032   01 01426    3210232D              LW,X1    TESTPAGE          SET TEST VP ADDR IN
     2033   01 01427    25100009 A            SLS,X1   9                 BITS 15-22 OF X1
     2034   01 01428    229FFFFF A            LI,9     -1                INIT TEST LOC. FOR WRITE TEST
     2035   01 01429    B59021B7              STW,9    *RESULTAT
     2036   01 0142A    0E00142C              LPSD,0   LPSDACOP
     2037                                     BOUND    8
     2038   01 0142C    00C03DF8 A   LPSDACOP DATA     X'00C03DF8'       PAGE 1E MAPS TO ITSELF
     2039   01 0142D    00000000 A            DATA     0
     2040                            *
     2041                            *************************************************************
     2042                            *************************************************************
     2043                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2044                            ****     FOR THIS TEST.
     2045                            *************************************************************
     2046                            *************************************************************
     2047                            *
     2048         01 0142E           ACMEMPR  EQU      %
     2049   01 0142E    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2050   01 0142F    69801426              BCS,8    ACOPLOP           BRANCH FOR SHORT LOOP
     2051   01 01430    32C02084              LW,12    TRAP40
     2052   01 01431    4BC02333              AND,12   X03
     2053   01 01432    48C02333              EOR,12   X03               AC TEST PATTERN INTERPRETED.
     2054   01 01433    35C0230B              STW,12   ACREAD
     2055   01 01434    31C0230C              CW,12    ACLOAD            IF PATTERN READ= PATTERN STORED
     2056   01 01435    6830143D              BE       WRTABRT           TEST OK.CHECK WRITE ABORT LOGIC
     2057   01 01436    6AB01D77              BAL,R11  GETAC             GET AC LOADED & READ
     2058   01 01437    358027F7              STW,8    ACMSG2+6          STORE AC LOADED
     2059   01 01438    359027FA              STW,9    ACMSG2+9          STORE AC READ
     2060   01 01439    228027F1              LI,8     ACMSG2            LOAD WORD ADDR
     2061   01 0143A    6AF01453     ER9      BAL,R15  ERACOP1           REPORT ERROR
     2062   01 0143B    68001426              B        ACOPLOP           RETURN HERE IF SS1=1;SS3=0
     2063   01 0143C    68001446              B        ACOPXIT           NORMAL RETURN
     2064         01 0143D           WRTABRT  EQU      %
     2065   01 0143D    32C0230B              LW,12    ACREAD
     2066   01 0143E    21C00001 A            CI,12    1                 IF AC READ-01
     2067   01 0143F    69301446              BNE      ACOPXIT           XIT
     2068   01 01440    B28021B7              LW,8     *RESULTAT         IF CONTENTS AT X'3FFE' ARE NOT 0'S
     2069   01 01441    69301446              BNEZ     ACOPXIT           THEN NOT RIT VIA STW.THUS TEST OK
     2070   01 01442    6AB01D77              BAL,R11  GETAC
     2071   01 01443    3590280A              STW,9    ACMSG3+11         STORE AC READ
     2072   01 01444    228027FF              LI,8     ACMSG3            LOAD WORD ADDR
     2073   01 01445    6800143A              B        ER9               REPORT ERROR
     2074                            *
     2075         01 01446           ACOPXIT  EQU      %
     2076   01 01446    32C0230C              LW,12    ACLOAD
     2077   01 01447    6830144B              BEZ      ACEND
     2078   01 01448    20CFFFFF A            AI,12    -1                SUBTRACT 1 FOR NEXT PATTERN.
     2079   01 01449    35C0230C              STW,12   ACLOAD
     2080   01 0144A    68001424              B        NEXTAC            LOAD NEXT AC PATTERN
     2081                            *
     2082   01 0144B                 ACEND    RES      0
     2083   01 0144B    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     2084   01 0144C    69401412              BCS,4    TST14ACOP+1       BRANC FOR LONG LOOP
     2085   01 0144D    6AF01DDC              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     2086   01 0144E    6800109E              B        TST:CONT          NEXT TEST
     2087                            *
     2088                            *************************************************************
     2089                            *************************************************************
     2090                            ****     ENTER HERE AFTER EXECUTING A CAL2 INST
     2091                            ****     AT THE END OF TEST INSTRUCTIONS.
     2092                            *************************************************************
     2093                            *************************************************************
     2094                            *
     2095                            *
     2096                                     BOUND    8
     2097         01 01450           ACCAL2   EQU      %
     2098   01 01450    12A02108              LD,10    TRAPCAL2
     2099   01 01451    15A02084              STD,10   TRAP40            SAVE PSD
     2100   01 01452    6800142E              B        ACMEMPR
     2101                            *
     2102                            *
     2103         01 01453           ERACOP1  EQU      %
     2104   01 01453    25800002 A            SLS,8    2                 FORM BYTE ADDR
     2105   01 01454    49802338              OR,8     YC                INSERT FORMAT CHARACTER
     2106   01 01455    3580145B              STW,8    XPRNT+2           STORE IT
     2107   01 01456    6AD0145E              BAL,R13  ERRACOP
     2108   01 01457    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     2109                            *                                   NORMAL RETURN
     2110   01 01458    6AB01CF9              BAL,R11  TSTINFO3          GET TEST INST AND ADDRESS
     2111   01 01459    EA6003C5     XPRNT    #PRINT   ACMSG2            PRINT ERROR MESSAGE
            01 0145A    EA6003CD
            01 0145B    C0009FC4 A
            01 0145C    EA6003C6
     2112   01 0145D    68001C89              B        COMMON
     2113                            *
     2114                            *
     2115         01 0145E           ERRACOP  EQU      %
     2116   01 0145E    33102199              MTW,1    ECAC              UPDATE ERROR COUNTER
     2117   01 0145F    3280230C              LW,8     ACLOAD
     2118   01 01460    35802170              STW,8    TPAC              STORE TEST PAGE AC
     2119   01 01461    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     2120   01 01462    E910000D A            BCS,1    *R13              SUPRESS PRINTOUT
     2121   01 01463    3310000D A            MTW,1    R13               INCR RETURN ADDR
     2122   01 01464    32800393              LW,8     #HDRFLG           IF FLAG SET
     2123   01 01465    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #
     2124   01 01466    E830000D A            BE       *R13              SKIP HEADING OUTPUT
     2125   01 01467    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     2126   01 01468    558027F0              STH,8    ACOPHD1+13        STORE IN BUFFER
     2127   01 01469    EA6003C5              #PRINT   ACOPHD1,C1
            01 0146A    EA6003CD
            01 0146B    C1009F8C A
            01 0146C    EA6003C6
     2128   01 0146D    E800000D A            B        *R13              EXIT
     2129                            *
     2130   01 0146E                 ACOPT    RES      0
     2131   01 0146E    32C201FF A            LW,12    X'1FF',X1         RD/WR/ACS PROTECTION X'3DF8'
     2132   01 0146F    680201FF A            BCR,0    X'1FF',X1         EXECUTE INST AT 3FFF  '3DF9'
     2133   01 01470    35D201FE A            STW,13   X'1FE',X1         WRITE PROTECT TRAP OCCURRENCE 3DFA
     2134   01 01471    05000000 A            CAL2,0   0                 CAL2                    X'3DFB'
     2135                            *
     2136                            *
     2137                            *
     2138                            ****     PROTECT LOGIC TESTS****
     2139                            *        THESE TESTS CHECK OUT THE SPECIAL FEATURES
     2140                            *        OF PROTECT LOGIC.
     2141                            *
     2142                            *        1. WHEN ACCESSING THE INDIRECT ADDRESS
     2143                            *           OF A BRANCH TYPE INSTRUCTION (E.G. BCS )
     2144                            *           A READ ACCESS PROTECT VIOLATION SHOULD
     2145                            *           NOT OCCUR IF BRANCH CONDITION IS
     2146                            *           NOT SATISFIED.
     2147                            *        2. WHEN AN INSTRUCTION ACCESS TRAP OCCURS ON ACCESSING
     2148                            *           INDIRECT ADDRESS OF A BIR INST.(BRANCH SATISFIED)
     2149                            *           A)TRAP ADDRESS IS THAT OF BIR INST.
     2150                            *           B)REGISTER CONTENTS OF BIR INST ARE NOT CHANGED.
     2151                            *        3. SAME AS FOR (2) EXCEPT BDR INST.
     2152                            *        4. SAME AS FOR (2) EXCEPT A DIRECT BIR INST.
     2153                            *        5. SAME AS FOR  (2) EXCEPT A DIRECT BDR INST.
     2154                            *        6. SAME AS ABOVE EXCEPT THAT A READ ACCESS PROTECT
     2155                            *           VIOLATION SHOULD OCCUR FOR A EXECUTE INSTRUCTION.
     2156                            *        7. ALL ACCESS PROTECT VIOLATIONS ARE INHIBITED
     2157                            *           WHEN ACCESSING AND EXECUTING A XPSD IN A
     2158                            *           TRAP/INTERRUPT LOCATION.
     2159                            *
     2160                            *        8. WHEN WRITING INTO GEN. REGISTERS ACCESS
     2161                            *           PROTECT VIOLATIONS ARE INHIBITED.
     2162                            *
     2163                            *        9. CHECK THAT ACCESS PROTECT VIOLATIONS
     2164                            *           ARE INHIBITED ON WRITING/READING LOCATIONS
     2165                            *           X'20' & X'21' WHEN EXECUTING A I/O INSTRUCTION.
     2166                            *
     2167                            *        10. CHECK THAT MBS,TBS,PSM AND STM INSTUCTIONS
     2168                            *           CAUSE A TRAP TO X'40' WHEN THERE EXECUTION
     2169                            *           EXTENDS TO A PAGE OF MEMORY WHICH IS
     2170                            *          ACCESS PROTECTED.
     2171                            *        11. CHECK THAT ON EXECUTING A WAIT INSTRUCTION
     2172                            *            IN MASTER,MAP & PROTECTED MODE NO TRAP OCCURS
     2173                            *            TO X'40' IF NEXT INST. AFTER WAIT IS IN A
     2174                            *            ACCESS PROTECTED PAGE.
     2175                            *
     2176         01 01472           TST15PL  EQU      %                 PROTECT LOGIC TEST 1
     2177   01 01472    6AF01CA8              BAL,R15  STSAC             AC STATUS
     2178   01 01473    22800000 A            LI,8     0
     2179   01 01474    358021B0              STW,8    ERRFLAG           CLEAR ERROR FLAG
     2180   01 01475    22800003 A            LI,8     3
     2181   01 01476    35802170              STW,8    TPAC              STORE AC PATTERN FOR VP 1F
     2182   01 01477    3580230C              STW,8    ACLOAD
     2183   01 01478    329021B4              LW,9     LWTP
     2184   01 01479    6AF01D91              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     2185   01 0147A    6AF01DFA              BAL,R15  SETAC             SET UP AC FOR THIS TEST
     2186   01 0147B    6AF01DCC              BAL,R15  SETLPSD           SET UP LPSD
     2187   01 0147C    35801484              STW,8    SLAVMAP1          STORE
     2188   01 0147D    6AB01CAB              BAL,R11  INSTADR           COMPUTE ADDR FOR TEST INST
     2189   01 0147E    308021AF              AW,8     IBCS              ADD OP CODE
     2190   01 0147F    35801486              STW,8    CHKINST1          STORE TEST INST
     2191   01 01480    6AF01D86              BAL,R15  SETINST           STORE TEST INST IN TEST INST PAGE
     2192   01 01481    02001486              GEN,8,2,22  2,0,CHKINST1
     2193   01 01482    0E001484     LPSDLOP1 LPSD,0   SLAVMAP1
     2194                                     BOUND    8
     2195   01 01484    00C03DF8 A   SLAVMAP1 DATA     X'00C03DF8'       SLAVE-MAPPED MODE;CC=0000
     2196   01 01485    00000000 A            DATA     0                 NO BCS BRANCH;VP 1E MAPS ITSELF
     2197                            *
     2198                            *
     2199         01 01486           CHKINST1 EQU      %                 TEST INSTRUCTIONS
     2200   01 01486    E9803FFE A            BCS,8    *X'3FFE'          NO BRANCH;NO TRAP EVEN IF AC=11
     2201                            *                                   FOR PAGE 1F
     2202   01 01487    04100000 A            CAL1,1   0                 GO TO T11CAL1
     2203                            *
     2204                            *
     2205                            *************************************************************
     2206                            *************************************************************
     2207                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     2208                            *************************************************************
     2209                            *************************************************************
     2210                            *
     2211                            *
     2212         01 01488           T15CAL1  EQU      %
     2213   01 01488    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2214   01 01489    69801482              BCS,8    LPSDLOP1          BRANCH FOR SHORT LOOP
     2215   01 0148A    328021B0              LW,8     ERRFLAG           IF ERROR FLAG NOT SET
     2216   01 0148B    68301491              BEZ      TOK3              TEST OK
     2217   01 0148C    22800000 A            LI,8     0
     2218   01 0148D    358021B0              STW,8    ERRFLAG           REST FLAG
     2219   01 0148E    228028A0              LI,8     PLMSG1            LOAD WORD ADDR
     2220   01 0148F    6AF01497              BAL,R15  ERPL1             REPORT ERROR
     2221   01 01490    68001482              B        LPSDLOP1          RETURN HERE IF SS1=1;SS3=0
     2222   01 01491    70200392     TOK3     LC       #SENSE            CHECK FOR SS2.IF SET
     2223   01 01492    69401482              BCS,4    LPSDLOP1          BRANCH FOR LONG LOOP
     2224   01 01493    6800109E              B        TST:CONT          START NEXT TEST
     2225                            *
     2226                            *
     2227                            *************************************************************
     2228                            *************************************************************
     2229                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2230                            ****     FOR THIS TEST.
     2231                            *************************************************************
     2232                            *************************************************************
     2233                            *
     2234                            *
     2235         01 01494           T15ERTRP EQU      %
     2236   01 01494    22800001 A            LI,8     1
     2237   01 01495    358021B0              STW,8    ERRFLAG           SET ERROR FLAG
     2238   01 01496    68001488              B        T15CAL1
     2239                            *
     2240                            *
     2241                            *
     2242         01 01497           ERPL1    EQU      %
     2243   01 01497    25800002 A            SLS,8    2                 FORM BYTE ADDR
     2244   01 01498    49802338              OR,8     YC                INSERT FORMAT CHARACTER
     2245   01 01499    3580149F              STW,8    XPRNT1+2          STORE IT
     2246   01 0149A    6AD014A3              BAL,R13  ERRPL
     2247   01 0149B    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     2248   01 0149C    6AB01CD1              BAL,R11  TSTINFO2          GET TEST INFO AND PRINT
     2249   01 0149D    EA6003C5     XPRNT1   #PRINT   PLMSG1
            01 0149E    EA6003CD
            01 0149F    C000A280 A
            01 014A0    EA6003C6
     2250   01 014A1    6AB01D17              BAL,11   TSTINFO5          OUTPUT TRAP INFO
     2251   01 014A2    68001C89              B        COMMON
     2252                            *
     2253                            *
     2254         01 014A3           ERRPL    EQU      %
     2255   01 014A3    33102199              MTW,1    ECAC              UPDATE ERROR COUNTER
     2256   01 014A4    B28021B5              LW,8     *MAPEDADR
     2257   01 014A5    358021A0              STW,8    TINST             STORE TEST INST
     2258   01 014A6    328021B5              LW,8     MAPEDADR
     2259   01 014A7    358021A1              STW,8    TADDR             STORE TEST INST LOCATION
     2260         01 014A8           ERRPL:5  EQU      %
     2261   01 014A8    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     2262   01 014A9    E910000D A            BCS,1    *R13              SKIP PRINTOUT
     2263   01 014AA    3310000D A            MTW,1    R13               INCR RETURN ADDR
     2264   01 014AB    32800393              LW,8     #HDRFLG           IF HEADING FLAG SET
     2265   01 014AC    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #
     2266   01 014AD    E830000D A            BE       *R13              SKIP HEADING OUTPUT
     2267   01 014AE    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     2268   01 014AF    5580289F              STH,8    PLHD1+9           STORE IN BUFFER
     2269   01 014B0    EA6003C5              #PRINT   PLHD1,C1
            01 014B1    EA6003CD
            01 014B2    C100A258 A
            01 014B3    EA6003C6
     2270   01 014B4    E800000D A            B        *R13              EXIT
     2271                            *
     2272                            *
     2273                            ****     TEST 16:- CHECK THAT WHEN AN INSTRUCTION ACCESS
     2274                            ****              TRAP OCCURS WHEN ACCESSING INDIRECT ADDRESS
     2275                            ****              OF A BIR INST.(BRANCH CONDITION SATISFIED)
     2276                            ****              1.TRAP ADDRESS IS THAT OF THE BIR INST.
     2277                            ****              2.REGISTER IN BIR INST. IS NOT CHANGED
     2278                            *
     2279         01 014B5           TST16PL  EQU      %                 PROTECT LOGIC TEST 2
     2280   01 014B5    329021A2              LW,9     IBIR              LOAD TEST INST OP CODE
     2281   01 014B6    32B021AB              LW,11    LIN               GET LI INST TO INITIALISE REG 8
     2282   01 014B7    32C021AD              LW,12    CIN               GET CI INST TO CHK REG 8
     2283         01 014B8           LODSTAT  EQU      %
     2284   01 014B8    359021A6              STW,9    INST              SAVE OP CODE
     2285   01 014B9    35B014D0              STW,11   LOPT16
     2286   01 014BA    35C014E2              STW,12   TADROK+1
     2287   01 014BB    6AF01CA8              BAL,15   STSAC
     2288   01 014BC    22800002 A            LI,8     2
     2289   01 014BD    35802170              STW,8    TPAC              DEFINE AC=10 FOR TEST PAGE
     2290   01 014BE    3580230C              STW,8    ACLOAD
     2291   01 014BF    329021B4              LW,9     LWTP
     2292   01 014C0    6AF01D91              BAL,15   SETMAP            LOAD MAPS FOR THIS TEST
     2293   01 014C1    6AF01DFA              BAL,15   SETAC             LOAD AC REGS
     2294   01 014C2    6AF01DCC              BAL,15   SETLPSD           SET UP LPSD TO INVOKE SLAV-MAP MODE
     2295   01 014C3    358014D2              STW,8    SLMAP1            STORE PSW1
     2296   01 014C4    6AB01CAB              BAL,11   INSTADR           COMPUTE INST ADDR
     2297   01 014C5    32C021A6              LW,12    INST
     2298   01 014C6    681014D4              BGEZ     DIROPCOD          BRANCH IF NOT INDIRECT INST
     2299   01 014C7    3290232D              LW,9     TESTPAGE          DEFINE ADDR FROM
     2300   01 014C8    25900009 A            SLS,9    9                 WHERE INST WILL BE
     2301   01 014C9    209001F8 A            AI,9     X'1F8'            ACCESSED
     2302   01 014CA    B5900008 A            STW,9    *8                STORE THIS ADDR AT IND. ADR OF TINST
     2303   01 014CB    35902174              STW,9    STOREAT           SAVE ADDR
     2304         01 014CC           LODTINST EQU      %
     2305   01 014CC    308021A6              AW,8     INST              ADD TEST INST OP CODE
     2306   01 014CD    B58021B5              STW,8    *MAPEDADR         STORE TEST INST IN TEST INST PAGE
     2307   01 014CE    328021A7              LW,8     LWINST
     2308   01 014CF    B5802174              STW,8    *STOREAT          STORE INST TO BE ACCESSED
     2309         01 014D0           LOPT16   EQU      %
     2310   01 014D0    22800008 A            LI,8     8                 INITIALISE REG
     2311   01 014D1    0E0014D2              LPSD,0   SLMAP1            INVOKE SLAV-MAP MODE
     2312                                     BOUND    8
     2313   01 014D2    00C03DF8 A   SLMAP1   DATA     X'00C03DF8'
     2314   01 014D3    00000000 A            DATA     0
     2315                            *
     2316         01 014D4           DIROPCOD EQU      %
     2317   01 014D4    35802174              STW,8    STOREAT           SAVE ADDR
     2318   01 014D5    680014CC              B        LODTINST
     2319                            *
     2320                            *
     2321                            ****     ENTER HERE ON AN INST ACCESS TRAP FOR THIS TEST
     2322                            *
     2323         01 014D6           T16OKTRP EQU      %
     2324   01 014D6    70200392              LC       #SENSE
     2325   01 014D7    698014D0              BCS,8    LOPT16            SHORT LOOP IF SS1 SET
     2326   01 014D8    3580217F              STW,8    SAVR8             SAVE REG
     2327   01 014D9    32802084              LW,8     TRAP40
     2328   01 014DA    4B802343              AND,8    X1FFFF            SAVE TRAPPED ADDR
     2329   01 014DB    25800077 A            SLS,8    -9
     2330   01 014DC    3180232C              CW,8     TINSTP            IF FROM TEST INST PAGE
     2331   01 014DD    683014E1              BE       TADROK            TRAP ADDR OK
     2332   01 014DE    6AF014E7     ER10     BAL,15   EPL1              REPORT ERROR
     2333   01 014DF    680014D0              B        LOPT16            RETURN HERE IF SS1=1;SS3=0
     2334   01 014E0    680014E4              B        CHKLL
     2335         01 014E1           TADROK   EQU      %
     2336   01 014E1    3280217F              LW,8     SAVR8
     2337   01 014E2    21800008 A            CI,8     8
     2338   01 014E3    693014DE              BNE      ER10              NOT OK IF REG CHANGED
     2339         01 014E4           CHKLL    EQU      %
     2340   01 014E4    70200392              LC       #SENSE
     2341   01 014E5    694014D0              BCS,4    LOPT16            LONG LOOP IF SS2 SET
     2342   01 014E6    6800109E              B        TST:CONT
     2343                            *
     2344         01 014E7           EPL1     EQU      %
     2345   01 014E7    6AD014A3              BAL,13   ERRPL
     2346   01 014E8    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     2347                            *                                   NORMAL RETURN
     2348   01 014E9    6AB01CD1              BAL,11   TSTINFO2          PRINT TEST INST AND ITS LOCATION
     2349   01 014EA    6AB01D17              BAL,11   TSTINFO5          OUTPUT TRAP INFO
     2350   01 014EB    6D000032 A            #HTECON  MAPEDADR          CONVERT EXP TRAP ADR
            01 014EC    EA6003C3
            01 014ED    000021B5
            01 014EE    6D000022 A
     2351   01 014EF    329C0001 A            LW,9     1,LINK
     2352   01 014F0    359028B6              STW,9    PLMSGX1+6         STORE ADDR
     2353   01 014F1    6D000032 A            #HTECON  TRAP40            CONVERT ACTUAL TRAP ADDR
            01 014F2    EA6003C3
            01 014F3    00002084
            01 014F4    6D000022 A
     2354   01 014F5    329C0001 A            LW,9     1,LINK
     2355   01 014F6    359028C1              STW,9    PLMSGX2+6         STORE ADDR
     2356   01 014F7    22900060 A            LI,9     X'60'             LOAD A '-'
     2357   01 014F8    3280217F              LW,8     SAVR8             GET ACTUAL REG VALUE
     2358   01 014F9    691014FB              BLZ      %+2
     2359   01 014FA    22900040 A            LI,9     X'40'
     2360   01 014FB    22100003 A            LI,X1    3
     2361   01 014FC    759228B9              STB,9    PLMSGX1+9,X1
     2362   01 014FD    759228C4              STB,9    PLMSGX2+9,X1
     2363   01 014FE    4B802341              AND,8    XF
     2364   01 014FF    208000F0 A            AI,8     X'F0'
     2365   01 01500    758028C5              STB,8    PLMSGX2+10        STORE REG VALUE
     2366   01 01501    EA6003C5              #PRINT   PLMSGX1           PRINT MESSAGES
            01 01502    EA6003CD
            01 01503    C000A2C0 A
            01 01504    EA6003C6
     2367   01 01505    EA6003C5              #PRINT   PLMSGX2
            01 01506    EA6003CD
            01 01507    C000A2EC A
            01 01508    EA6003C6
     2368   01 01509    68001C89              B        COMMON
     2369                            *
     2370                            *
     2371         01 0150A           TST17PL  EQU      %                 PROTECT LOGIC TEST 3
     2372   01 0150A    329021A3              LW,9     IBDR              LOAD TEST INST OP CODE
     2373   01 0150B    32B021AC              LW,11    LIP               GET LI INST TO INIT. R8
     2374   01 0150C    32C021AE              LW,12    CIP               GET CI INST TO CHECK R8
     2375   01 0150D    680014B8              B        LODSTAT
     2376                            *
     2377         01 014D6           T17OKTRP EQU      T16OKTRP
     2378         01 014D6           T18OKTRP EQU      T16OKTRP
     2379                            *
     2380         01 014D6           T19OKTRP EQU      T16OKTRP
     2381                            *
     2382                            *
     2383         01 0150E           TST18PL  EQU      %                 PROTECT LOGIC TEST 4
     2384   01 0150E    329021A4              LW,9     DBIR              LOAD TEST INST OP CODE
     2385   01 0150F    32B021AB              LW,11    LIN               GET LI INST TO INIT. R8
     2386   01 01510    32C021AD              LW,12    CIN               GET CI INST TO CHK R8
     2387   01 01511    680014B8              B        LODSTAT
     2388                            *
     2389                            *
     2390         01 01512           TST19PL  EQU      %                 PROTECT LOGIC TEST 5
     2391   01 01512    329021A5              LW,9     DBDR              LOAD TEST INST OP CODE
     2392   01 01513    32B021AC              LW,11    LIP               GET LI INST TO INIT. R8
     2393   01 01514    32C021AE              LW,12    CIP               GET CI INST TO CHK R8
     2394   01 01515    680014B8              B        LODSTAT
     2395                            *
     2396                            *
     2397         01 01516           TST20PL  EQU      %                 PROTECT LOGIC TEST 6
     2398   01 01516    6AF01CA8              BAL,R15  STSAC             AC STATUS
     2399   01 01517    22800003 A            LI,8     3                 SET UP AC CONTROL IMAGE WORD
     2400   01 01518    35802170              STW,8    TPAC              STORE AC=11 FOR PAGE 1F
     2401   01 01519    3580230C              STW,8    ACLOAD            SAVE AC LOADED FOR TEST PAGE
     2402   01 0151A    329021B4              LW,9     LWTP
     2403   01 0151B    6AF01D91              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     2404   01 0151C    6AF01DFA              BAL,R15  SETAC             SET UP AC FOR THIS TEST
     2405   01 0151D    6AF01DCC              BAL,R15  SETLPSD           SER UP LPSD
     2406   01 0151E    3580152A              STW,8    SLAVMAP3          STORE WORD1
     2407   01 0151F    6AB01CAB              BAL,R11  INSTADR           GET INST ADDR
     2408   01 01520    35802174              STW,8    STOREAT           SAVE ADDR
     2409   01 01521    30802173              AW,8     HEX68             ADD BRANCH OP CODE
     2410   01 01522    B5802174              STW,8    *STOREAT          STORE BRNCH INST
     2411   01 01523    32802174              LW,8     STOREAT
     2412   01 01524    30802175              AW,8     EXU67             ADDEXU INST OP CODE
     2413   01 01525    3580152C              STW,8    CHKINST3          STORE TEST INST
     2414   01 01526    6AF01D86              BAL,R15  SETINST           SET UP TEST INST
     2415   01 01527    0100152C              GEN,8,2,22  1,0,CHKINST3
     2416   01 01528    0E00152A     LPSDLOP3 LPSD,0   SLAVMAP3          LOAD PSD
     2417                                     BOUND    8
     2418   01 0152A    00C03DF8 A   SLAVMAP3 DATA     X'00C03DF8'       SLAVE-MAPPED MODE;PAGE 1E
     2419   01 0152B    00000000 A            DATA     0                 MAPPED TO ITSELF
     2420                            *
     2421                            *
     2422         01 0152C           CHKINST3 EQU      %                 EXECUTE TEST INST IN PAGE 1E
     2423   01 0152C    67003FFE A            EXU      X'3FFE'           ON ACCESSING SUBJECT INST FROM
     2424                            *                                   PAGE 1F A TRAP TO X'40' SHOULD
     2425                            *                                   OCCUR AS AC=11 FOR PAGE 1F
     2426                            *
     2427                            **************************************************************
     2428                            **************************************************************
     2429                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2430                            ****     FOR THIS TEST
     2431                            **************************************************************
     2432                            **************************************************************
     2433                            *
     2434                            *
     2435         01 0152D           T20OKTRP EQU      %
     2436   01 0152D    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2437   01 0152E    69801528              BCS,8    LPSDLOP3          BRANCH FOR SHORT LOOP
     2438   01 0152F    32802084              LW,8     TRAP40            LOAD PSW1 OF OLD PSD SAVED
     2439   01 01530    4B802343              AND,8    X1FFFF            SAVE ADDRESS BITS
     2440   01 01531    3580217C              STW,8    ACTDATA           SAVE TRAPED ADDR
     2441   01 01532    25800077 A            SLS,8    -9                SHIFT RIGHT 9 BITS
     2442   01 01533    3180232C              CW,8     TINSTP            TEST OK IF TEST INST PAGE ADDR
     2443   01 01534    68301548              BE       TESTOK3
     2444   01 01535    6D000032 A            #HTECON  MAPEDADR          GET EXPECTED TRAP ADDR
            01 01536    EA6003C3
            01 01537    000021B5
            01 01538    6D000022 A
     2445   01 01539    2A8C0000 A            LM,8     0,LINK
     2446   01 0153A    4B802336              AND,8    Y4040             INSERT TWO BLANKS
     2447   01 0153B    02200020 A            LCI      2
     2448   01 0153C    2B8028D1              STM,8    PLMSG2+11         STORE EXP TRAP ADDR
     2449   01 0153D    6D000032 A            #HTECON  ACTDATA           CONVERT ACT TRAP ADDR
            01 0153E    EA6003C3
            01 0153F    0000217C
            01 01540    6D000022 A
     2450   01 01541    2A8C0000 A            LM,8     0,LINK
     2451   01 01542    4B802336              AND,8    Y4040
     2452   01 01543    02200020 A            LCI      2
     2453   01 01544    2B8028CC              STM,8    PLMSG2+6          STORE ACT TRAP ADDR
     2454   01 01545    228028C6              LI,8     PLMSG2            LOAD WORD ADDR OF TEXT
     2455   01 01546    6AF01497              BAL,R15  ERPL1             REPORT ERROR
     2456   01 01547    68001528              B        LPSDLOP3          RETURN HERE IF SS1=1;SS3=0
     2457                            *
     2458         01 01548           TESTOK3  EQU      %
     2459   01 01548    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     2460   01 01549    69401528              BCS,4    LPSDLOP3          BRANCH TO LOOP ON TEST
     2461   01 0154A    6800109E              B        TST:CONT          START NEXT TEST
     2462                            *
     2463                            *
     2464                            *
     2465         01 0154B           TST21PL  EQU      %                 PROTECT LOGIC TEST 7
     2466   01 0154B    6AF01CA8              BAL,R15  STSAC
     2467   01 0154C    3280232D              LW,8     TESTPAGE
     2468   01 0154D    25800009 A            SLS,8    9                 COMPUTE REF ADDR PORTION
     2469   01 0154E    208001F8 A            AI,8     X'1F8'            OF XPSD TO BE STORED AT X'48'
     2470   01 0154F    35802174              STW,8    STOREAT           SAVE ADDR
     2471   01 01550    30802144              AW,8     OPCXPSD           ADD OP CODE
     2472   01 01551    32900048 A            LW,9     X'48'             SAVE EXISTING XPSD AT X'48'
     2473   01 01552    3590218B              STW,9    WORK1
     2474   01 01553    35800048 A            STW,8    X'48'             STORE XPSD
     2475   01 01554    02200040 A            LCI      4
     2476   01 01555    2A001577              LM,0     NEWPSD            LOAD TWO DOUBLE WORDS AT ADDR
     2477   01 01556    02200040 A            LCI      4                 PROGRAM WILL GO TO ON EXECUTING
     2478   01 01557    AB002174              STM,0    *STOREAT          XPSD AT X'48' IF NO ACCESS TRAP
     2479   01 01558    22800003 A            LI,8     3
     2480   01 01559    35802170              STW,8    TPAC              SAVE AC BITS OF TEST PAGE
     2481   01 0155A    3580230C              STW,8    ACLOAD
     2482   01 0155B    329021B4              LW,9     LWTP
     2483   01 0155C    6AF01D91              BAL,R15  SETMAP            SET MAP FOR THIS TEST
     2484   01 0155D    6AF01DFA              BAL,R15  SETAC             SET AC FOR THIS TEST
     2485   01 0155E    6AF01DCC              BAL,R15  SETLPSD           SET LPSD TO INVOKE SLAV/MAP MODE
     2486   01 0155F    35801566              STW,8    SLAVMAP4          STORE PSW 1
     2487   01 01560    6AF01D86              BAL,R15  SETINST           SET UP CAL1 INST IN TEST INST PAGE
     2488   01 01561    01002143              GEN,8,2,22  1,0,CALL1
     2489         01 01562           LPSDLOP4 EQU      %
     2490   01 01562    22800000 A            LI,8     0
     2491   01 01563    358021B0              STW,8    ERRFLAG           RESET FLAG
     2492   01 01564    0E001566              LPSD,0   SLAVMAP4
     2493                                     BOUND    8
     2494   01 01566    00C03DF8 A   SLAVMAP4 DATA     X'00C03DF8'
     2495   01 01567    00000000 A            DATA     0
     2496                            *
     2497                            *
     2498                            **************************************************************
     2499                            ***************************************************************
     2500                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2501                            ****     FOR THIS TEST.
     2502                            ***************************************************************
     2503                            ***************************************************************
     2504                            *
     2505                            *
     2506         01 01568           T21ERTRP EQU      %
     2507   01 01568    22800001 A            LI,8     1
     2508   01 01569    358021B0              STW,8    ERRFLAG           SET ERROR FLAG
     2509   01 0156A    6800156B              B        T21CAL1
     2510                            *
     2511                            *
     2512                            ***************************************************************
     2513                            ***************************************************************
     2514                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     2515                            ****************************************************************
     2516                            ***************************************************************
     2517                            *
     2518                            *
     2519         01 0156B           T21CAL1  EQU      %
     2520   01 0156B    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2521   01 0156C    69801562              BCS,8    LPSDLOP4          BRANCH FOR SHORT LOOP
     2522   01 0156D    328021B0              LW,8     ERRFLAG
     2523   01 0156E    68301572              BEZ      TOK4              TEST OK IF FLAG NOT SET
     2524   01 0156F    228028E2              LI,8     PLMSG4            LOAD WORD ADDR
     2525   01 01570    6AF01497              BAL,R15  ERPL1             REPORT ERROR
     2526   01 01571    68001562              B        LPSDLOP4          RETURN HERE IF SS1=1;SS3=0
     2527   01 01572    70200392     TOK4     LC       #SENSE            CHECK FOR SS2.IF SET
     2528   01 01573    69401562              BCS,4    LPSDLOP4          BRANCH FOR LONG LOOP
     2529   01 01574    3280218B              LW,8     WORK1             RESTORE INITIAL XPSD
     2530   01 01575    35800048 A            STW,8    X'48'             AT X'48'
     2531   01 01576    6800109E              B        TST:CONT          NEXT TEST
     2532                            *
     2533   01 01577    00000000 A   NEWPSD   DATA     0
     2534   01 01578    00000000 A            DATA     0
     2535   01 01579    0000156B              DATA     T21CAL1
     2536   01 0157A    00000000 A            DATA     0
     2537                            *
     2538                            *
     2539         01 0157B           TST22PL  EQU      %                 TEST 8 PROTECT LOGIC
     2540   01 0157B    6AF01CA8              BAL,R15  STSAC             AC STATUS
     2541   01 0157C    228FFFFF A            LI,8     -1
     2542   01 0157D    329021B4              LW,9     LWTP
     2543   01 0157E    6AF01D91              BAL,R15  SETMAP            SET MAP FOR THIS TEST
     2544   01 0157F    32802335              LW,8     Y4                SET UP AC CONTROL IMAGE WORD
     2545   01 01580    22700000 A            LI,7     0                 SET CONTROL START ADDR
     2546   01 01581    6AB01E03              BAL,R11  MMCAC1            LOAD AC=01 FOR VP 0
     2547   01 01582    22800001 A            LI,8     1
     2548   01 01583    35802170              STW,8    TPAC              SAVE TEST PAGE AC BITS
     2549   01 01584    6AF01DCC              BAL,R15  SETLPSD           SET LPSD TO INVOK SLAV/MAP MODE
     2550   01 01585    3580158C              STW,8    SLAVMAP5          STORE PSW1
     2551   01 01586    6AF01D86              BAL,R15  SETINST           SET UP TEST INST IN TINSTP
     2552   01 01587    020015A7              GEN,8,2,22  2,0,CHKINST5
     2553         01 01588           LPSDLOP5 EQU      %
     2554   01 01588    228FFFFF A            LI,8     -1
     2555   01 01589    22100000 A            LI,1     0
     2556   01 0158A    351021B0              STW,1    ERRFLAG           RESET FLAG
     2557   01 0158B    0E00158C              LPSD,0   SLAVMAP5
     2558                                     BOUND    8
     2559   01 0158C    00C03DF8 A   SLAVMAP5 DATA     X'00C03DF8'
     2560   01 0158D    00000000 A            DATA     0
     2561                            *
     2562                            *
     2563                            *************************************************************
     2564                            *************************************************************
     2565                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST
     2566                            *************************************************************
     2567                            *************************************************************
     2568                            *
     2569                            *
     2570         01 0158E           T22CAL1  EQU      %
     2571   01 0158E    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     2572   01 0158F    69801588              BCS,8    LPSDLOP5          BRANCH FOR SHORT LOOP
     2573   01 01590    328021B0              LW,8     ERRFLAG
     2574   01 01591    68301595              BEZ      TOK5              TEST OK IF FLAG NOT SET
     2575   01 01592    228028FD              LI,8     PLMSG6
     2576   01 01593    6AF0159B              BAL,R15  ERPLT5            REPORT ERROR
     2577   01 01594    68001588              B        LPSDLOP5          RETURN HERE IF SS1=1;SS3=0
     2578   01 01595    70200392     TOK5     LC       #SENSE            CHECK FOR SS2.IF SET
     2579   01 01596    69401588              BCS,4    LPSDLOP5          BRANCH FOR LONG LOOP
     2580   01 01597    6800109E              B        TST:CONT          NEXT TEST
     2581                            *
     2582                            *
     2583                            ************************************************************
     2584                            ************************************************************
     2585                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2586                            ****     FOR THIS TEST.
     2587                            ************************************************************
     2588                            ************************************************************
     2589                            *
     2590                            *
     2591         01 01598           T22ERTRP EQU      %
     2592   01 01598    22800001 A            LI,8     1
     2593   01 01599    358021B0              STW,8    ERRFLAG           SET ERROR FLAG
     2594   01 0159A    6800158E              B        T22CAL1
     2595                            *
     2596         01 0159B           ERPLT5   EQU      %
     2597   01 0159B    25800002 A            SLS,8    2                 FORM BYTE ADDR
     2598   01 0159C    49802338              OR,8     YC                INSERT FORMAT CHARACTER
     2599   01 0159D    358015A3              STW,8    XPRNT5+2
     2600   01 0159E    6AD014A3              BAL,R13  ERRPL
     2601   01 0159F    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     2602                            *                                   NORMAL RETURN
     2603   01 015A0    6AB01D03              BAL,R11  TSTINFO4
     2604   01 015A1    EA6003C5     XPRNT5   #PRINT   PLMSG6            PRINT ERROR MESSAGE
            01 015A2    EA6003CD
            01 015A3    C000A3F4 A
            01 015A4    EA6003C6
     2605   01 015A5    6AB01D17              BAL,11   TSTINFO5          OUTPUT TRAP INFO
     2606   01 015A6    68001C89              B        COMMON
     2607                            *
     2608         01 015A7           CHKINST5 EQU      %
     2609   01 015A7    35800001 A            STW,8    R1
     2610   01 015A8    04200000 A            CAL1,2   0
     2611                            *
     2612                            *
     2613                            *
     2614                            ****     CHECK THAT ACCESS PROTECT VIOLATIONS ARE
     2615                            ****     INHIBITED ON WRITING INTO X'20'
     2616                            ****     WHEN EXECUTING AN I/O INSTRUCTION.
     2617                            *
     2618         01 015A9           TST23PL  EQU      %                 PROTECT LOGIC TEST 9
     2619   01 015A9    6AF01CA8              BAL,R15  STSAC             STATUS
     2620   01 015AA    32802344              LW,8     Y1FFF
     2621   01 015AB    22600008 A            LI,R6    R8
     2622   01 015AC    32702345              LW,7     Y01
     2623   01 015AD    6F6A0000 A            MMC,6    5                 LOAD 1FFF FOR MAP REG 0
     2624   01 015AE    32802346              LW,8     X1E001F
     2625   01 015AF    22600008 A            LI,R6    R8
     2626   01 015B0    3270233D              LW,7     Y01003C           LOAD 1E AND 1F IN
     2627   01 015B1    6F6A0000 A            MMC,6    5                 MAP REG 1E & 1F RESPECTIVELY
     2628   01 015B2    32802338              LW,8     YC
     2629   01 015B3    22600008 A            LI,R6    R8
     2630   01 015B4    32702345              LW,7     Y01
     2631   01 015B5    6F640000 A            MMC,6    2                 LOAD AC=11 FOR PAGE 0
     2632   01 015B6    32D00397              LW,13    #PRTADDR
     2633   01 015B7    128015D2              LD,8     TIOACT            LOAD TEST INST
     2634   01 015B8    15803DF8 A            STD,8    X'3DF8'           AT 3DF8
     2635   01 015B9    22803DF8 A            LI,8     X'3DF8'
     2636   01 015BA    358021B5              STW,8    MAPEDADR          STORE MAPPED ADDRESS
     2637         01 015BB           LOPT23   EQU      %
     2638   01 015BB    EA6003C5              BAL,LINK   *#DISUSER%      DISABLE USER
     2639   01 015BC    22800000 A            LI,8     0
     2640   01 015BD    358021B0              STW,8    ERRFLAG           RESET FLAG
     2641   01 015BE    0E0015C0              LPSD,0   MAPMP1            INVOKE MASTER-MAP-PROT. MODE
     2642                                     BOUND    8
     2643   01 015C0    00403DF8 A   MAPMP1   DATA     X'00403DF8'       GO TO 3DF8 AND EXECUTE TIO
     2644   01 015C1    00800000 A            DATA     X'00800000'
     2645                            *
     2646                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     2647                            *
     2648         01 015C2           T23CAL1  EQU      %
     2649   01 015C2    EA6003C6              BAL,LINK   *#ENUSER%       ENABLE USER
     2650   01 015C3    70200392              LC       #SENSE
     2651   01 015C4    698015BB              BCS,8    LOPT23            SHORT LOOP IF SS1 SET
     2652   01 015C5    328021B0              LW,8     ERRFLAG           IF FLAG 0
     2653   01 015C6    683015CA              BEZ      TOK6              TEST OK
     2654   01 015C7    2280291F              LI,8     PLMSG8
     2655   01 015C8    6AF0159B              BAL,R15  ERPLT5            OTHERWISE REPORT ERROR
     2656   01 015C9    680015BB              B        LOPT23            RETURN HERE IF SS1=1;SS3=0
     2657   01 015CA    70200392     TOK6     LC       #SENSE
     2658   01 015CB    694015BB              BCS,4    LOPT23            LONG LOOP IF SS2 SET
     2659   01 015CC    6AF01DD4              BAL,R15  ALMAPREG
     2660   01 015CD    6AF01DDC              BAL,R15  ALLACREG
     2661   01 015CE    6800109E              B        TST:CONT          NEXT TEST
     2662                            *
     2663                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     2664                            ****     FOR THIS TEST.
     2665                            *
     2666         01 015CF           T23ERTRP EQU      %
     2667   01 015CF    331021B0              MTW,1    ERRFLAG           SET ERROR FLAG
     2668   01 015D0    680015C2              B        T23CAL1
     2669                            *
     2670                                     BOUND    8
     2671         01 015D2           TIOACT   EQU      %
     2672   01 015D2    CD80000D A            TIO,8    *13
     2673   01 015D3    04300000 A            CAL1,3   0
     2674                            *
     2675                            *
     2676                            ****     CHECK THAT MBS,TBS,PSM AND STM INSTRUCTIONS
     2677                            ****     CAUSE A TRAP TO X'40' WHEN THERE EXECUTION
     2678                            ****     EXTENDS TO A PAGE OF MEMORY WHICH IS
     2679                            ****     ACESS PROTECTED.
     2680                            *
     2681         01 015D4           TST24PL  EQU      %                 PROTECT LOGIC TEST 10
     2682   01 015D4    6AF01CA8              BAL,R15  STSAC             STATUS
     2683   01 015D5    32802155              LW,8     T24LUPAD
     2684   01 015D6    35801637              STW,8    T24OKTRP+1        STORE SHORT LOOP ADDR
     2685   01 015D7    228015F1              LI,8     LOPT24
     2686   01 015D8    49802173              OR,8     HEX68             ADD BRANCH OP CODE
     2687   01 015D9    35801649              STW,8    SLOOP
     2688   01 015DA    32801736              LW,8     ATEMP             INITIALISE ADDRESS OF
     2689   01 015DB    35801735              STW,8    TEMP              TEMP STORAGE
     2690   01 015DC    32801734              LW,8     AMOD              SET POINTER TO
     2691   01 015DD    35801733              STW,8    LIST              FIRST MODULE
     2692   01 015DE    22800000 A            LI,8     0                 SET BYTE 2 OF THE 1 ST WORD OF
     2693   01 015DF    22100002 A            LI,X1    2                 MOD#'S 1 & 3 TO  ZERO TO DEFINE
     2694   01 015E0    758216C5              STB,8    MOD1,X1           THAT THESE MODULES ARE FOR AC TSTS
     2695   01 015E1    758216DB              STB,8    MOD3,X1           AND ARE TO BE CHECKED
     2696   01 015E2    228FFFFF A            LI,8     -1
     2697   01 015E3    35802118              STW,8    MODULE#           RESET MODULE #
     2698   01 015E4    32802347              LW,8     X1C001D           SET UP MAP IMAGE FOR
     2699   01 015E5    32902346              LW,9     X1E001F           PAGES IC,1D,1E AND 1F
     2700   01 015E6    32702348              LW,7     Y020038           WORD COUNT & CONTROL START
     2701   01 015E7    22600008 A            LI,R6    R8
     2702   01 015E8    6F6A0000 A            MMC,R6   5                 LOAD MAP FOR PAG IC,1D 1E & 1F
     2703         01 015E9           GETNMOD1 EQU      %
     2704   01 015E9    F2801733              LB,8     *LIST             GET AC BITS
     2705   01 015EA    3580230C              STW,8    ACLOAD            SAVE AC VALUE
     2706   01 015EB    25800004 A            SLS,8    4                 SET AC BIT FOR PAGE 1D
     2707   01 015EC    22600008 A            LI,R6    R8
     2708   01 015ED    3270233C              LW,R7    Y01002
     2709   01 015EE    6F640000 A            MMC,R6   2                 SET AC=11 FOR PAG 1D;REST 0'S
     2710   01 015EF    6AF015F6              BAL,R15  DRIVER            GET MODULE AND STOR IN TEMP
     2711   01 015F0    6AF01610              BAL,R15  LOADINST          LOAD TEST INST AT X'3800';PAG 1C
     2712         01 015F1           LOPT24   EQU      %
     2713   01 015F1    6AF01617              BAL,R15  INITSTOR          INIT SORC & DESTINATION AREAS
     2714   01 015F2    0E0015F4              LPSD,0   MAPSMOD           INVOKE MAP SLAVE MODE
     2715                            *
     2716                                     BOUND    8
     2717   01 015F4    00C03800 A   MAPSMOD  DATA     X'00C03800'       PAFE 1C MAPS TO ITSELF
     2718   01 015F5    00000000 A            DATA     0
     2719                            *
     2720                            ****     THIS ROUTINE LOADS THE TEST MODULES DESIGNED
     2721                            ****     FOR CHECKING MEMORY PROTECT VIOLATIONS
     2722                            ****     FOR INSTRUCTIONS WHOSE EXECUTION
     2723                            ****     CROSSES PAGE BOUNDARIES WHICH ARE
     2724                            ****     ACCESS OR WRITE LOCK PROTECTED.
     2725                            *
     2726         01 015F6           DRIVER   EQU      %
     2727   01 015F6    33102118              MTW,1    MODULE#           INCR MODULE #
     2728   01 015F7    B2701733              LW,7     *LIST
     2729   01 015F8    4B702349              AND,7    XFF               SAVE COUNT OF NUMBER OF WORDS
     2730   01 015F9    35702181              STW,7    SAVCNT            IN THE MODULE
     2731   01 015FA    22200002 A            LI,2     2
     2732   01 015FB    F2341733              LB,3     *LIST,X2          CHECK IF MOD. TO BE CHECKED
     2733   01 015FC    21300001 A            CI,3     1                 IF A 1 IT IS FOR WL TESTS
     2734   01 015FD    6830160D              BE       SKIPMOD           THUS SKIP CHECKING THIS MOD
     2735   01 015FE    6C300045 A            RD,3     X'45'             SKIP BYTE STRING IF SIGMA9
     2736   01 015FF    21302000 A            CI,3     X'2000'           MOD 3.  B.S. TEST IDENT BY
     2737   01 01600    68401604              BCR,4    %+4               BYTE 1 OF FIRST WORD OF
     2738   01 01601    22200001 A            LI,2     1                 MODULE = X'00'.
     2739   01 01602    F2341733              LB,3     *LIST,X2
     2740   01 01603    6830160D              BCR,3    SKIPMOD
     2741         01 01604           LOADNW   EQU      %
     2742   01 01604    B2401733              LW,4     *LIST             LOAD A WORD OF MODULE
     2743   01 01605    B5401735              STW,4    *TEMP             IN TEMP STORAGE
     2744   01 01606    33101733              MTW,1    LIST              UPDATE POINTERS
     2745   01 01607    33101735              MTW,1    TEMP
     2746   01 01608    64701604              BDR,X7   LOADNW            LOAD NEXT WORD
     2747   01 01609    32701735              LW,7     TEMP
     2748   01 0160A    38702181              SW,7     SAVCNT            INITIALISE ADDRESS IN
     2749   01 0160B    35701735              STW,7    TEMP              TEMP
     2750   01 0160C    E800000F A            B        *R15              EXIT
     2751                            *
     2752         01 0160D           SKIPMOD  EQU      %
     2753   01 0160D    32202181              LW,2     SAVCNT            INCR ADDR IN 'LIST' TO LOAD
     2754   01 0160E    66201733              AWM,2    LIST              NEXT MODULE
     2755   01 0160F    680015F6              B        DRIVER
     2756                            *
     2757                            ****     THIS ROUTINE LOADS THE TEST
     2758                            ****     INSTRUCTIONS CONTAINED IN THE
     2759                            ****     BODY OF THE MODULE AT LOCATION X'3800'..PAGE 1C.
     2760                            *
     2761         01 01610           LOADINST EQU      %
     2762   01 01610    7210173B              LB,1     INSTAD            GET COUNT OF # OF INST
     2763   01 01611    22200000 A            LI,2     0
     2764   01 01612    B234173B              LW,3     *INSTAD,X2        GET A INSTRUCTION
     2765   01 01613    35343800 A            STW,3    X'3800',X2        STORE INST IN PAGE 1C
     2766   01 01614    20200001 A            AI,X2    1                 INCR POINTER
     2767   01 01615    64101612              BDR,X1   %-3               GET NEXT INST
     2768   01 01616    E800000F A            B        *R15              EXIT
     2769                            *
     2770                            ****     THIS ROUTINE INITIALISES SOURCE
     2771                            ****     AND DESTINATION LOCATIONS(2 WORDS EACH)
     2772                            ****     USED IN MBS TBS,PSM AND STM INSTRUCTIONS.
     2773                            *
     2774         01 01617           INITSTOR EQU      %
     2775   01 01617    22200000 A            LI,2     0
     2776   01 01618    352021B0              STW,2    ERRFLAG           CLEAR FLAGS
     2777   01 01619    35202189              STW,2    TRAPFLG
     2778   01 0161A    1220173C              LD,2     XDATA             LOAD EXPECTED DATA
     2779   01 0161B    02200020 A            LCI      2
     2780   01 0161C    AB20173A              STM,2    *DBA              STORE AT DESTINATION LOCATION
     2781   01 0161D    32401739              LW,4     SBA               LOAD SOURCE ADDR
     2782   01 0161E    3540218C              STW,4    WORK2             SAVE ADDR
     2783   01 0161F    32501740              LW,5     DISP              GET DISPACEMENT VALU
     2784   01 01620    2550007E A            SLS,5    -2                CONVERT TO WORD VALUE
     2785   01 01621    6650218C              AWM,5    WORK2             ADD TO SORC ADDR
     2786   01 01622    1220173E              LD,2     SORCDATA          LOAD SOURCE DATA
     2787   01 01623    02200020 A            LCI      2
     2788   01 01624    AB20218C              STM,2    *WORK2            STORE SOURCE DATA
     2789   01 01625    22100001 A            LI,X1    1
     2790   01 01626    F2221735              LB,2     *TEMP,X1          GET VALUE OF TYPE OF INST
     2791   01 01627    21200001 A            CI,2     1
     2792   01 01628    68301633              BE       PSMINST           BRANCH IF A PSM INST
     2793   01 01629    21200002 A            CI,2     2
     2794   01 0162A    68301630              BE       SAVER             BRANCH IF A STM INST
     2795   01 0162B    32801739              LW,8     SBA               LOAD SOURCE BYTE ADDR
     2796   01 0162C    25800002 A            SLS,8    2                 CONVERT TO A BYTE VALUE
     2797   01 0162D    3290173A              LW,9     DBA               LOAD DESTINATION BYTE ADDR
     2798   01 0162E    25900002 A            SLS,9    2                 CONVERT TO A BYTE VALUE
     2799   01 0162F    3090234A              AW,R9    Y08               SET COUNT=8 FOR BYTE INST
     2800         01 01630           SAVER    EQU      %
     2801   01 01630    3580217F              STW,8    SAVR8             SAVE R8
     2802   01 01631    35902180              STW,9    SAVR9             SAVE R9
     2803   01 01632    E800000F A            B        *R15              EXIT
     2804                            *
     2805         01 01633           PSMINST  EQU      %
     2806   01 01633    12201742              LD,2     XDATA+6           GET STACK DOUBLE WORD POINTER
     2807   01 01634    152039FC A            STD,2    X'39FC'           SAVE IT IN PAGE 1C
     2808   01 01635    68001630              B        SAVER
     2809                            *
     2810                            *
     2811                            ****     ENTER HERE ON AN ACCESS PROTECT VIOLATION TRAP
     2812                            ****     FOR THIS TEST
     2813                            *
     2814         01 01636           T24OKTRP EQU      %
     2815   01 01636    70200392              LC       #SENSE
     2816   01 01637    02000000 A            NOP                        GO TO LOPT24 OR LOPT39 IF SS1 SET
     2817   01 01638    B2802084              LW,8     *TRAP40           GET TEST INST
     2818   01 01639    358021A0              STW,8    TINST             SAVE TEST INST
     2819   01 0163A    32802128              LW,8     DID
     2820   01 0163B    32902189              LW,9     TRAPFLG           IF FLAG 0
     2821   01 0163C    6830163F              BEZ      %+3               TRAP TO X'40';OK
     2822   01 0163D    331021B0              MTW,1    ERRFLAG           SET ERROR FLAG
     2823   01 0163E    32802129              LW,8     NOT
     2824   01 0163F    35802935              STW,8    PLMSG9+5
     2825   01 01640    22100000 A            LI,X1    0
     2826   01 01641    02200020 A            LCI      2
     2827   01 01642    AA80173A              LM,8     *DBA              GET DEST. LOC. DATA
     2828   01 01643    1180173C              CD,8     XDATA             COMPARE WITH EXP. DATA
     2829   01 01644    68301646              BE       %+2               OK IF E.Q.;THAT IS INST ABORTED
     2830   01 01645    331021B0              MTW,1    ERRFLAG           SET ERROR FLAG
     2831   01 01646    328021B0              LW,8     ERRFLAG
     2832   01 01647    6830164A              BEZ      TOK7              TEST OK IF NOT SET
     2833   01 01648    6AF0165B              BAL,R15  ERPLT7            REPORT ERROR
     2834   01 01649    02000000 A   SLOOP    NOP                        ('B LOPT24/B LOPT39')RETURN HERE
     2835                            *                                   IF SS1=1;SS3=0
     2836   01 0164A    328003F2     TOK7     LW,8     TCR:NUM           NORMAL RETURN
     2837   01 0164B    21800025 A            CI,8     TNUM39
     2838   01 0164C    68301A2A              BE       TEST39            BRANCH IF TEST 39
     2839   01 0164D    B2801733              LW,8     *LIST
     2840   01 0164E    21800000 A            CI,8     0                 IF ZERO
     2841   01 0164F    68301651              BE       %+2               LAST MODULE DONE
     2842   01 01650    680015E9              B        GETNMOD1          OTHERWISE GET NEXT MODULE
     2843   01 01651    70200392              LC       #SENSE
     2844   01 01652    694015D5              BCS,4    TST24PL+1         BRANCH FOR LONG LOOP IF SET
     2845   01 01653    6AF01DD4              BAL,R15  ALMAPREG
     2846   01 01654    6AF01DDC              BAL,R15  ALLACREG
     2847   01 01655    6800109E              B        TST:CONT          NEXT TEST
     2848                            *
     2849                            *
     2850                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST
     2851                            *
     2852         01 01656           T24CAL1  EQU      %
     2853   01 01656    33102189              MTW,1    TRAPFLG           SET TRAP FLAG
     2854   01 01657    33F020F6              MTW,-1   TRAPCAL1          COMPUTE TEST INST ADDR
     2855   01 01658    128020F6              LD,8     TRAPCAL1
     2856   01 01659    15802084              STD,8    TRAP40            SAVE PSD
     2857   01 0165A    68001636              B        T24OKTRP
     2858                            *
     2859         01 0165B           ERPLT7   EQU      %
     2860   01 0165B    328003F2              LW,8     TCR:NUM
     2861   01 0165C    21800025 A            CI,8     TNUM39            WRITE LOCK CHECKS
     2862   01 0165D    68301A31              BE       ERWLP4            IF TEST 39
     2863   01 0165E    33102199              MTW,1    ECAC              UPDATE ERROR COUNTER
     2864   01 0165F    32802126              LW,8     AC#
     2865         01 01660           XERPLT7  EQU      %
     2866   01 01660    35802939              STW,8    PLMSG9+9
     2867   01 01661    6AD014A8              BAL,R13  ERRPL:5
     2868   01 01662    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     2869   01 01663    32102118              LW,X1    MODULE#           LOAD MOD. #
     2870   01 01664    3282210E              LW,8     ADMODCHK,X1       LOAD ADDR OF MOD. TEST DEFINITION
     2871   01 01665    6D000032 A            #HTECON  MODULE#           CONVERT MOD. #
            01 01666    EA6003C3
            01 01667    00002118
            01 01668    6D000022 A
     2872   01 01669    322C0001 A            LW,2     1,LINK
     2873   01 0166A    2230000C A            LI,X3    12                SET INDEX
     2874   01 0166B    F5260008 A            STB,2    *R8,X3            STORE IN BUFFER
     2875   01 0166C    25800002 A            SLS,8    2                 CONVERT TO BYTE ADDRESS
     2876   01 0166D    49802339              OR,8     YC1               INSERT FORMAT CHARACTER
     2877   01 0166E    35801671              STW,R8   XPRNT2+2          STORE ADDR OF TEXTC TO BE PRNT
     2878   01 0166F    EA6003C5     XPRNT2   #PRINT   CHK1,C1           PRINT APPROPRIATE DEFINITION
            01 01670    EA6003CD
            01 01671    C100B590 A
            01 01672    EA6003C6
     2879   01 01673    6D000032 A            #HTECON  TINST             CONVERT TEST INST
            01 01674    EA6003C3
            01 01675    000021A0
            01 01676    6D000022 A
     2880   01 01677    2A8C0000 A            LM,8     0,LINK
     2881   01 01678    02200020 A            LCI      2
     2882   01 01679    2B802933              STM,8    PLMSG9+3          STORE IT
     2883   01 0167A    6D000032 A            #HTECON  SAVR8             CONVERT SAVED R8
            01 0167B    EA6003C3
            01 0167C    0000217F
            01 0167D    6D000022 A
     2884   01 0167E    2A8C0000 A            LM,8     0,LINK
     2885   01 0167F    02200020 A            LCI      2
     2886   01 01680    2B80293C              STM,8    PLMSG9+12         STORE IT
     2887   01 01681    6D000032 A            #HTECON  SAVR9             CONVERT SAVED R9
            01 01682    EA6003C3
            01 01683    00002180
            01 01684    6D000022 A
     2888   01 01685    2A8C0000 A            LM,8     0,LINK
     2889   01 01686    02200020 A            LCI      2
     2890   01 01687    2B802940              STM,8    PLMSG9+16         STORE IT
     2891   01 01688    6D000032 A            #BTECON  ACLOAD            CONVERT AC BITS
            01 01689    EA6003C4
            01 0168A    0000230C
            01 0168B    6D000022 A
     2892   01 0168C    328C0007 A            LW,8     7,LINK
     2893   01 0168D    5580293A              STH,8    PLMSG9+10         STORE IT
     2894   01 0168E    EA6003C5              #PRINT   PLMSG9            PRINT MESSAGE
            01 0168F    EA6003CD
            01 01690    C000A4C0 A
            01 01691    EA6003C6
     2895   01 01692    B280173A              LW,8     *DBA              CONVERT ACTUAL DATA
     2896   01 01693    6D000032 A            #HTECON  R8
            01 01694    EA6003C3
            01 01695    00000008 A
            01 01696    6D000022 A
     2897   01 01697    2A8C0000 A            LM,8     0,LINK
     2898   01 01698    02200020 A            LCI      2
     2899   01 01699    2B80294F              STM,8    PLMSG10+13
     2900   01 0169A    22100001 A            LI,X1    1
     2901   01 0169B    B282173A              LW,8     *DBA,X1
     2902   01 0169C    6D000032 A            #HTECON  R8
            01 0169D    EA6003C3
            01 0169E    00000008 A
            01 0169F    6D000022 A
     2903   01 016A0    2A8C0000 A            LM,8     0,LINK
     2904   01 016A1    02200020 A            LCI      2
     2905   01 016A2    2B802952              STM,8    PLMSG10+16
     2906   01 016A3    6D000032 A            #HTECON  XDATA             CONVERT EXPECTED DATA
            01 016A4    EA6003C3
            01 016A5    0000173C
            01 016A6    6D000022 A
     2907   01 016A7    2A8C0000 A            LM,8     0,LINK
     2908   01 016A8    02200020 A            LCI      2
     2909   01 016A9    2B802946              STM,8    PLMSG10+4
     2910   01 016AA    6D000032 A            #HTECON  XDATA+1
            01 016AB    EA6003C3
            01 016AC    0000173D
            01 016AD    6D000022 A
     2911   01 016AE    2A8C0000 A            LM,8     0,LINK
     2912   01 016AF    02200020 A            LCI      2
     2913   01 016B0    2B802949              STM,8    PLMSG10+7
     2914   01 016B1    32802189              LW,8     TRAPFLG
     2915   01 016B2    693016B4              BNEZ     SKIPTI            SKIP TRAP INFO
     2916   01 016B3    6AB01D17              BAL,11   TSTINFO5          OUTPUT TRAP INFO
     2917         01 016B4           SKIPTI   EQU      %
     2918   01 016B4    EA6003C5              #PRINT   PLMSG10           PRINT EXP AND ACTUAL DATA
            01 016B5    EA6003CD
            01 016B6    C000A508 A
            01 016B7    EA6003C6
     2919   01 016B8    68001C89              B        COMMON
     2920                            *
     2921                            ****     THERE ARE TEN MODULES IN ALL.
     2922                            ****     MOD0 TO MOD3 ARE FOR MOVE BYTE STRING(MBS) INST.
     2923                            ****     MOD4 TO MOD5 ARE FOR TRANSLATE BYTE STRING INST.
     2924                            ****     MOD6 TO MOD7 ARE FOR PUSH MULTIPLE(PSM) INST.
     2925                            ****     MOD8 TO MOD9 ARE FOR STORE MULTIPLE(STM) INST.
     2926                            *
     2927                                     BOUND    8
     2928         01 016BA           MOD0     EQU      %                 DESTINATION+COUNT CHECK
     2929   01 016BA    0300000B A            DATA     X'0300000B'
     2930   01 016BB    000039FD A            DATA     X'39FD'
     2931   01 016BC    000039FF A            DATA     X'39FF'
     2932   01 016BD    020016C3              GEN,8,24 2,%+6
     2933   01 016BE    08090A0B A            DATA     X'08090A0B'
     2934   01 016BF    0C0D0E0F A            DATA     X'0C0D0E0F'
     2935   01 016C0    00010203 A            DATA     X'00010203'
     2936   01 016C1    04050607 A            DATA     X'04050607'
     2937   01 016C2    00000000 A            DATA     0
     2938   01 016C3    61800000 A            MBS,R8   0
     2939   01 016C4    04400000 A            CAL1,4   0
     2940                            *
     2941         01 016C5           MOD1     EQU      %                 SOURCE+DISPLACEMENT+COUNT CHECK
     2942   01 016C5    0300000B A            DATA     X'0300000B'
     2943   01 016C6    000039FF A            DATA     X'39FF'
     2944   01 016C7    000039FD A            DATA     X'39FD'
     2945   01 016C8    020016CE              GEN,8,24 2,%+6
     2946   01 016C9    01234567 A            DATA     X'01234567'
     2947   01 016CA    89ABCDEF A            DATA     X'89ABCDEF'
     2948   01 016CB    FEDCBA98 A            DATA     X'FEDCBA98'
     2949   01 016CC    76543210 A            DATA     X'76543210'
     2950   01 016CD    00000000 A            DATA     0
     2951   01 016CE    61800000 A            MBS,R8   0
     2952   01 016CF    04400000 A            CAL1,4   0
     2953                            *
     2954         01 016D0           MOD2     EQU      %                 DESTINATION CHECK
     2955   01 016D0    0300000B A            DATA     X'0300000B'
     2956   01 016D1    000039FD A            DATA     X'39FD'
     2957   01 016D2    00003BFF A            DATA     X'3BFF'
     2958   01 016D3    020016D9              GEN,8,24 2,%+6
     2959   01 016D4    0F0E0D0C A            DATA     X'0F0E0D0C'
     2960   01 016D5    0B0A0908 A            DATA     X'0B0A0908'
     2961   01 016D6    07060504 A            DATA     X'07060504'
     2962   01 016D7    03020100 A            DATA     X'03020100'
     2963   01 016D8    00000000 A            DATA     0
     2964   01 016D9    61800000 A            MBS,R8   0
     2965   01 016DA    04400000 A            CAL1,4   0
     2966                            *
     2967         01 016DB           MOD3     EQU      %                 SOURCE +DISPLACEMENT CHECK
     2968   01 016DB    0300000B A            DATA     X'0300000B'
     2969   01 016DC    000039FF A            DATA     X'39FF'
     2970   01 016DD    000039FD A            DATA     X'39FD'
     2971   01 016DE    020016E4              GEN,8,24 2,%+6
     2972   01 016DF    00010203 A            DATA     X'00010203'
     2973   01 016E0    04050607 A            DATA     X'04050607'
     2974   01 016E1    08090A0B A            DATA     X'08090A0B'
     2975   01 016E2    0C0D0E0F A            DATA     X'0C0D0E0F'
     2976   01 016E3    00008000 A            DATA     X'8000'
     2977   01 016E4    61800800 A            MBS,R8   2048
     2978   01 016E5    04400000 A            CAL1,4   0
     2979                            *
     2980         01 016E6           MOD4     EQU      %                 DESTINATION+COUNT CHECK
     2981   01 016E6    0300000B A            DATA     X'0300000B'
     2982   01 016E7    000039FD A            DATA     X'39FD'
     2983   01 016E8    000039FF A            DATA     X'39FF'
     2984   01 016E9    020016EF              GEN,8,24 2,%+6
     2985   01 016EA    00010203 A            DATA     X'00010203'
     2986   01 016EB    04050607 A            DATA     X'04050607'
     2987   01 016EC    08090A0B A            DATA     X'08090A0B'
     2988   01 016ED    0C0D0E0F A            DATA     X'0C0D0E0F'
     2989   01 016EE    00000000 A            DATA     0
     2990   01 016EF    41800000 A            TBS,R8   0
     2991   01 016F0    04400000 A            CAL1,4   0
     2992                            *
     2993         01 016F1           MOD5     EQU      %                 DESTINATION CHECK
     2994   01 016F1    0300000B A            DATA     X'0300000B'
     2995   01 016F2    000039FD A            DATA     X'39FD'
     2996   01 016F3    00003BFF A            DATA     X'3BFF'
     2997   01 016F4    020016FA              GEN,8,24 2,%+6
     2998   01 016F5    00010203 A            DATA     X'00010203'
     2999   01 016F6    04050607 A            DATA     X'04050607'
     3000   01 016F7    08090A0B A            DATA     X'08090A0B'
     3001   01 016F8    0C0D0E0F A            DATA     X'0C0D0E0F'
     3002   01 016F9    00000000 A            DATA     0
     3003   01 016FA    41800000 A            TBS,R8   0
     3004   01 016FB    04400000 A            CAL1,4   0
     3005                            *
     3006         01 016FC           MOD6     EQU      %                 PSM--LOCATION CHECK
     3007   01 016FC    0301000F A            DATA     X'0301000F'
     3008   01 016FD    00000008 A            DATA     X'8'
     3009   01 016FE    00003A00 A            DATA     X'3A00'
     3010   01 016FF    03001708              GEN,8,24 3,%+9
     3011   01 01700    00010203 A            DATA     X'00010203'
     3012   01 01701    04050607 A            DATA     X'04050607'
     3013   01 01702    08090A0B A            DATA     X'08090A0B'
     3014   01 01703    0C0D0E0F A            DATA     X'0C0D0E0F'
     3015   01 01704    00000000 A            DATA     0
     3016   01 01705    00000000 A            DATA     0
     3017   01 01706    000039FF A            DATA     X'39FF'
     3018   01 01707    00040000 A            DATA     X'00040000'
     3019   01 01708    02200020 A            LCI      2
     3020   01 01709    0B8039FC A            PSM,R8   X'39FC'
     3021   01 0170A    04400000 A            CAL1,4   0
     3022                            *
     3023         01 0170B           MOD7     EQU      %                 PSM--LOCATION+CC-1 CHECK
     3024   01 0170B    0301000F A            DATA     X'0301000F'
     3025   01 0170C    00000008 A            DATA     X'8'
     3026   01 0170D    000039FF A            DATA     X'39FF'
     3027   01 0170E    03001717              GEN,8,24 3,%+9
     3028   01 0170F    08090A0B A            DATA     X'08090A0B'
     3029   01 01710    0C0D0E0F A            DATA     X'0C0D0E0F'
     3030   01 01711    00010203 A            DATA     X'00010203'
     3031   01 01712    04050607 A            DATA     X'04050607'
     3032   01 01713    00000000 A            DATA     0
     3033   01 01714    00000000 A            DATA     0
     3034   01 01715    000039FE A            DATA     X'39FE'
     3035   01 01716    00040000 A            DATA     X'00040000'
     3036   01 01717    02200020 A            LCI      2
     3037   01 01718    0B8039FC A            PSM,R8   X'39FC'
     3038   01 01719    04400000 A            CAL1,4   0
     3039                            *
     3040         01 0171A           MOD8     EQU      %                 STM--LOCATION CHECK
     3041   01 0171A    0302000C A            DATA     X'0302000C'
     3042   01 0171B    00000008 A            DATA     X'8'
     3043   01 0171C    00003A00 A            DATA     X'3A00'
     3044   01 0171D    03001723              GEN,8,24 3,%+6
     3045   01 0171E    00010203 A            DATA     X'00010203'
     3046   01 0171F    04050607 A            DATA     X'04050607'
     3047   01 01720    08090A0B A            DATA     X'08090A0B'
     3048   01 01721    0C0D0E0F A            DATA     X'0C0D0E0F'
     3049   01 01722    00000000 A            DATA     0
     3050   01 01723    02200020 A            LCI      2
     3051   01 01724    2B803A00 A            STM,R8   X'3A00'
     3052   01 01725    04400000 A            CAL1,4   0
     3053                            *
     3054         01 01726           MOD9     EQU      %                 STM--LOCATION+CC-1  CHECK
     3055   01 01726    0302000C A            DATA     X'0302000C'
     3056   01 01727    00000008 A            DATA     X'8'
     3057   01 01728    000039FF A            DATA     X'39FF'
     3058   01 01729    0300172F              GEN,8,24 3,%+6
     3059   01 0172A    08090A0B A            DATA     X'08090A0B'
     3060   01 0172B    0C0D0E0F A            DATA     X'0C0D0E0F'
     3061   01 0172C    00010203 A            DATA     X'00010203'
     3062   01 0172D    04050607 A            DATA     X'04050607'
     3063   01 0172E    00000000 A            DATA     0
     3064   01 0172F    02200020 A            LCI      2
     3065   01 01730    2B8039FF A            STM,R8   X'39FF'
     3066   01 01731    04400000 A            CAL1,4   0
     3067                            *
     3068         01 01732           MODLAST  EQU      %
     3069   01 01732    00000000 A            DATA     0
     3070                            *
     3071   01 01733    00000000 A   LIST     DATA     0
     3072   01 01734    000016BA     AMOD     DATA     WA(MOD0)
     3073                            *
     3074   01 01735    00000000 A   TEMP     DATA     0
     3075   01 01736    00001738     ATEMP    DATA     WA(MODLOC)
     3076                            *
     3077                                     BOUND    8
     3078         01 01738           MODLOC   EQU      %
     3079   01 01738    00000000 A            DATA     0                 BYT0=AC/WL BITS;
     3080                            *                                   BYT1 = 00--BYTE INSTRUCTIONS
     3081                            *                                   BYT1 = 01--PUSH MULTIPLE INST
     3082                            *                                   BYT1 = 02--STORE MULTIPLE INST
     3083                            *                                   BYT2 = 01--SKIP MOD. FOR WL  TESTS
     3084                            *                                   BYT3 = # OF WORDS IN MODULE
     3085   01 01739    00000000 A   SBA      DATA     0                 SOURCE BYTE WORD ADDRESS
     3086   01 0173A    00000000 A   DBA      DATA     0                 DESTINATION BYTE WORD ADDR
     3087   01 0173B    00000000 A   INSTAD   DATA     0                 # OF INST;ADDRESS OF FIRST INST
     3088   01 0173C    00000000 A   XDATA    DATA     0                 EXPECTED DATA
     3089   01 0173D    00000000 A            DATA     0
     3090   01 0173E    00000000 A   SORCDATA DATA     0                 SOURCE LOC. DATA
     3091   01 0173F    00000000 A            DATA     0
     3092   01 01740    00000000 A   DISP     DATA     0                 DISPLACEMENT(BYTE) VAL. FOR
     3093   01 01741    00000000 A            DATA     0                 BYTE INSTRUCTIONS
     3094   01 01742    00000000 A            DATA     0
     3095   01 01743    00000000 A            DATA     0
     3096   01 01744                          RES      10
     3097                            *
     3098                            *
     3099         01 0174E           TST26    EQU      %
     3100   01 0174E    6800109E              B        TST:CONT
     3101                            *
     3102                            *
     3103         01 0174F           TST27    EQU      %
     3104   01 0174F    6800109E              B        TST:CONT
     3105                            *
     3106                            *
     3107                            ****
     3108                            ****MASTER MODE TESTS.
     3109                            ****THESE TESTS PERFORM THE FOLLOWING CHECKS
     3110                            ****
     3111                            ****1. RUN A MASTER MODE PROGRAM WHICH
     3112                            ****   IS MAPPED AND UNPROTECTED AND
     3113                            ****   CHECK THAT MAPPING IS PERFORMED CORRECTLY
     3114                            ****   BITS 8,9 AND 40 OF PSD ARE 0,1 AND 0
     3115                            ****   RESPECTIVELY. AC BITS FOR TEST VP ARE 00.
     3116                            ****2. SAME AS ABOVE EXCEPT AC BITS FOR TEST VP ARE 11.
     3117                            ****   CHECK THAT A TRAP DOES NOT OCCUR TO X'40'
     3118                            ****   EVEN THOUGH AC=11 FOR MAPPED PAGE.
     3119                            ****3. SAME AS ABOVE EXCEPT PSD BIT 40 = 1 TO INVOKE
     3120                            ****   MASTER PROTECTED MODE. CHECK THAT A TRAP
     3121                            ****   DOES OCCUR TO X'40' IN THIS CASE.
     3122                            ****4. SAME AS ABOVE EXCEPT AC=00 FOR TEST PAGE.
     3123                            ****     TO CHECK THAT NO REAL EXTENDED ADDRESSING
     3124                            ****   TAKES PLACE EVEN THOUGH PSD40=1.
     3125                            ****
     3126                            ****
     3127                            ****5. LRA INST DOES NOT TRAP TO X'40' WHEN IN MASTER PROTECTED
     3128                            ****   MODE.
     3129                            ****
     3130         01 01750           TST28MM  EQU      %                 MASTER MODE TEST 1
     3131   01 01750    6AF01CAF              BAL,R15  STSMM             MM STATUS
     3132   01 01751    6AF01DDC              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     3133   01 01752    22800000 A            LI,8     0
     3134   01 01753    35802170              STW,8    TPAC              STORE TEST AC PATTERN
     3135   01 01754    329021B1              LW,9     LWTIP
     3136   01 01755    22800000 A            LI,8     0
     3137   01 01756    6AF01D91              BAL,R15  SETMAP            SET MAP FOR THIS TEST
     3138   01 01757    6AF01E20              BAL,R15  SETLPSD1          SET LPSD FOT MASTER,MAPED,UPRT.
     3139   01 01758    35801760              STW,8    MMLPSD            STORE WORD1
     3140   01 01759    6AF01D86              BAL,R15  SETINST           SET UP TEST INST
     3141   01 0175A    02001762              GEN,8,2,22  2,0,TSTINST1
     3142         01 0175B           LOADPSD1 EQU      %
     3143   01 0175B    3210232D              LW,1     TESTPAGE          SET UP ADDRESS IN
     3144   01 0175C    25100009 A            SLS,1    9                 BITS 15-22 OF X1
     3145   01 0175D    22300000 A            LI,3     0                 RESET R3
     3146   01 0175E    0E001760              LPSD,0   MMLPSD            SET PROGRAM TO MASTER,MAPPED
     3147                                     BOUND    8                 UNPROTECTED MODE
     3148   01 01760    00403DF8 A   MMLPSD   DATA     X'00403DF8'
     3149   01 01761    00000000 A            DATA     0
     3150                            *
     3151                            *
     3152         01 01762           TSTINST1 EQU      %                 TEST INSTRUCTIONS
     3153   01 01762    323201F8 A            LW,3     X'1F8',X1
     3154   01 01763    04500000 A            CAL1,5   0
     3155                            *
     3156                            *
     3157                            **************************************************************
     3158                            **************************************************************
     3159                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     3160                            **************************************************************
     3161                            **************************************************************
     3162                            *
     3163                            *
     3164         01 01764           T28CAL1  EQU      %
     3165   01 01764    70200392              LC       #SENSE            CHECK FOR SS1. IF SET
     3166   01 01765    6980175B              BCS,8    LOADPSD1          BRANCH FOR SHORT LOOP
     3167   01 01766    31301762              CW,3     TSTINST1          R12 SHOULD HAVE LW TEST INST.
     3168   01 01767    6830176D              BE       TOK9              IF YES TEST OK
     3169   01 01768    3530217C              STW,3    ACTDATA           SAVE ACT DATA
     3170   01 01769    B28021B5              LW,8     *MAPEDADR
     3171   01 0176A    3580217B              STW,8    EXPDATA           SAVE EXP DATA
     3172   01 0176B    6AF01770              BAL,R15  ERMAST1           OTHERWISE REPORT ERROR
     3173   01 0176C    6800175B              B        LOADPSD1          RETURN HERE IF SS1=1;SS3=0
     3174   01 0176D    70200392     TOK9     LC       #SENSE            CHECK FOR SS2. IF SET
     3175   01 0176E    6940175B              BCS,4    LOADPSD1          BRANCH FOR LONG LOOP
     3176   01 0176F    6800109E              B        TST:CONT          START NEXT TEST
     3177                            *
     3178                            *
     3179         01 01770           ERMAST1  EQU      %
     3180   01 01770    6AD01773              BAL,R13  ERRMAST
     3181   01 01771    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     3182   01 01772    680013D5              B        XERMAP1
     3183                            *
     3184         01 01773           ERRMAST  EQU      %
     3185   01 01773    3310219B              MTW,1    ECMM              UPDATE ERROR COUNTER
     3186   01 01774    B28021B5              LW,8     *MAPEDADR
     3187   01 01775    358021A0              STW,8    TINST             STORE TEST INST.
     3188   01 01776    328021B5              LW,8     MAPEDADR
     3189   01 01777    358021A1              STW,8    TADDR             STORE TEST INST LOCATION
     3190   01 01778    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     3191   01 01779    E910000D A            BCS,1    *R13              SUPRESS PRINTOUT
     3192   01 0177A    3310000D A            MTW,1    R13               INCR RETURN ADDR
     3193   01 0177B    32800393              LW,8     #HDRFLG           CHECK HEADING FLAG
     3194   01 0177C    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #
     3195   01 0177D    E830000D A            BE       *R13              SKIP HEADING OUTPUT
     3196   01 0177E    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     3197   01 0177F    55802980              STH,8    MMHD1+9           STORE IN BUFFER
     3198   01 01780    EA6003C5              #PRINT   MMHD1,C1          PRINT HEADING
            01 01781    EA6003CD
            01 01782    C100A5DC A
            01 01783    EA6003C6
     3199   01 01784    E800000D A            B        *R13
     3200                            *
     3201                            *
     3202                            *
     3203                            *
     3204         01 01785           TST29MM  EQU      %                 MASTER MODE TEST 2
     3205   01 01785    6AF01CAF              BAL,R15  STSMM             MM STATUS
     3206   01 01786    22800003 A            LI,8     3
     3207   01 01787    35802170              STW,8    TPAC              STORE TEST AC PATTERN
     3208   01 01788    3580230C              STW,8    ACLOAD            SAVE AC PATTERN FOR TEST PAGE
     3209   01 01789    329021B4              LW,9     LWTP
     3210   01 0178A    6AF01D91              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     3211   01 0178B    6AF01DFA              BAL,R15  SETAC             SET UP AC FOR THIS TEST
     3212   01 0178C    6AF01E20              BAL,R15  SETLPSD1          SET UP LPSD
     3213   01 0178D    35801760              STW,8    MMLPSD            STORE PSW1
     3214   01 0178E    6AF01D86              BAL,R15  SETINST           SET UP TEST INST
     3215   01 0178F    020017AF              GEN,8,2,22  2,0,TSTINST2
     3216         01 01790           LOADPSD2 EQU      %
     3217   01 01790    22800000 A            LI,8     0
     3218   01 01791    358021B0              STW,8    ERRFLAG           CLEAR ERROR FLAG
     3219   01 01792    3210232D              LW,1     TESTPAGE
     3220   01 01793    25100009 A            SLS,1    9                 TEST VP ADDR IN BITS 15-22
     3221   01 01794    22300000 A            LI,3     0                 RESET R3
     3222   01 01795    0E001760              LPSD,0   MMLPSD            SET PROGRAM TO MASTER ,MAPPED
     3223                            *                                   UNPROTECTED MODE
     3224                            *
     3225                            *************************************************************
     3226                            *************************************************************
     3227                            *****    ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     3228                            *************************************************************
     3229                            *************************************************************
     3230                            *
     3231         01 01796           T29CAL1  EQU      %
     3232   01 01796    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3233   01 01797    69801790              BCS,8    LOADPSD2          BRANCH FOR SHORT LOOP
     3234   01 01798    328021B0              LW,8     ERRFLAG           IF ERROR FLAG NOT SET
     3235   01 01799    6830179D              BEZ      TOK10             TEST OK
     3236   01 0179A    22802981              LI,8     MMSG1
     3237   01 0179B    6AF017A3              BAL,R15  ERMAST2           REPORT ERROR
     3238   01 0179C    68001790              B        LOADPSD2          RETURN HERE IF SS1=1;SS3=0
     3239   01 0179D    70200392     TOK10    LC       #SENSE            CHECK FOR SS2.IF SET
     3240   01 0179E    69401790              BCS,4    LOADPSD2          BRANCH FOR LONG LOOP
     3241   01 0179F    6800109E              B        TST:CONT          START NEXT TEST
     3242                            *
     3243                            *
     3244                            *************************************************************
     3245                            *************************************************************
     3246                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     3247                            ****     FOR THIS TEST.
     3248                            *************************************************************
     3249                            *************************************************************
     3250                            *
     3251                            *
     3252         01 017A0           T29ERTRP EQU      %
     3253   01 017A0    22800001 A            LI,8     1
     3254   01 017A1    358021B0              STW,8    ERRFLAG           SET ERROR FLAG
     3255   01 017A2    68001796              B        T29CAL1
     3256                            *
     3257                            *
     3258         01 017A3           ERMAST2  EQU      %
     3259   01 017A3    25800002 A            SLS,8    2                 FORM BYTE ADDR
     3260   01 017A4    49802338              OR,8     YC                INSERT FORMAT CHARACTER
     3261   01 017A5    358017AB              STW,8    XPRNT7+2
     3262   01 017A6    6AD01773              BAL,R13  ERRMAST
     3263   01 017A7    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     3264   01 017A8    6AB01CD1              BAL,R11  TSTINFO2          GET TEST INFO AND PRIINT
     3265   01 017A9    EA6003C5     XPRNT7   #PRINT   MMSG1             PRINT ERROR MESSAGE
            01 017AA    EA6003CD
            01 017AB    C000A604 A
            01 017AC    EA6003C6
     3266   01 017AD    6AB01D17              BAL,11   TSTINFO5          OUTPUT TRAP INFO
     3267   01 017AE    68001C89              B        COMMON
     3268                            *
     3269         01 017AF           TSTINST2 EQU      %
     3270   01 017AF    323201F8 A            LW,3     X'1F8',X1
     3271   01 017B0    04600000 A            CAL1,6   0
     3272                            *
     3273                            *
     3274         01 017B1           TST30MM  EQU      %                 MASTER MODE TEST 3
     3275   01 017B1    6AF01CAF              BAL,R15  STSMM             MM STATUS
     3276   01 017B2    22800003 A            LI,8     3
     3277   01 017B3    35802170              STW,8    TPAC              STORE TEST AC PATTERN
     3278   01 017B4    3580230C              STW,8    ACLOAD            SAVE AC TEST PATTERN
     3279   01 017B5    329021B4              LW,9     LWTP
     3280   01 017B6    6AF01D91              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     3281   01 017B7    6AF01DFA              BAL,R15  SETAC             SET P AC FOR THIS TEST
     3282   01 017B8    6AF01E20              BAL,R15  SETLPSD1          SET UP LPSD
     3283   01 017B9    358017C2              STW,8    MMLPSD3           STORE PSW1
     3284   01 017BA    6AF01D86              BAL,R15  SETINST           SET UP TEST INST
     3285   01 017BB    020017D8              GEN,8,2,22  2,0,TSTINST3
     3286         01 017BC           LOADPSD3 EQU      %
     3287   01 017BC    22800000 A            LI,8     0
     3288   01 017BD    358021B0              STW,8    ERRFLAG           CLEAR ERROR FLAG
     3289   01 017BE    3210232D              LW,1     TESTPAGE
     3290   01 017BF    25100009 A            SLS,1    9
     3291   01 017C0    22300000 A            LI,3     0                 RESET R3
     3292   01 017C1    0E0017C2              LPSD,0   MMLPSD3           SET PROGRAM TO MASTER,MAPPED
     3293                                     BOUND    8                 ANDPROTECTED MODE
     3294   01 017C2    00403DF8 A   MMLPSD3  DATA     X'00403DF8'
     3295   01 017C3    00800000 A            DATA     X'00800000'
     3296                            *
     3297                            *
     3298                            *************************************************************
     3299                            *************************************************************
     3300                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     3301                            ****     FOR THIS TEST.
     3302                            ************************************************************
     3303                            ************************************************************
     3304                            *
     3305                            *
     3306         01 017C4           T30OKTRP EQU      %
     3307   01 017C4    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3308   01 017C5    698017BC              BCS,8    LOADPSD3          BRANCH FOR SHORT LOOP
     3309   01 017C6    328021B0              LW,8     ERRFLAG           IF ERROR FLAG NOT SET
     3310   01 017C7    683017CA              BEZ      TOK11             TEST OK
     3311   01 017C8    6AF017CD              BAL,R15  ERMAST3           REPORT ERROR
     3312   01 017C9    680017BC              B        LOADPSD3          RETURN HERE IF SS1=1;SS3=0
     3313   01 017CA    70200392     TOK11    LC       #SENSE            CHECK FOR SS2.IF SET
     3314   01 017CB    694017BC              BCS,4    LOADPSD3          BRANNCH FOR LONG LOOP
     3315   01 017CC    6800109E              B        TST:CONT          START NEXT TEST
     3316                            *
     3317         01 017CD           ERMAST3  EQU      %
     3318   01 017CD    6AD01773              BAL,13   ERRMAST
     3319   01 017CE    68001C8F              B        SUPRESP
     3320   01 017CF    6AB01CD1              BAL,11   TSTINFO2
     3321   01 017D0    EA6003C5              #PRINT   MMSG2
            01 017D1    EA6003CD
            01 017D2    C000A644 A
            01 017D3    EA6003C6
     3322   01 017D4    68001C89              B        COMMON
     3323                            *
     3324                            ************************************************************
     3325                            ************************************************************
     3326                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     3327                            ************************************************************
     3328                            ************************************************************
     3329                            *
     3330                            *
     3331         01 017D5           T30CAL1  EQU      %
     3332   01 017D5    22800001 A            LI,8     1
     3333   01 017D6    358021B0              STW,8    ERRFLAG           SET ERROR FLAG
     3334   01 017D7    680017C4              B        T30OKTRP
     3335                            *
     3336                            *
     3337         01 017D8           TSTINST3 EQU      %
     3338   01 017D8    323201F8 A            LW,3     X'1F8',X1
     3339   01 017D9    04700000 A            CAL1,7   0
     3340                            *
     3341                            *
     3342         01 017DA           TST31MM  EQU      %                 MASTER MODE TEST 4
     3343   01 017DA    6AF01CAF              BAL,R15  STSMM             MM STATUS
     3344   01 017DB    32C0232E              LW,12    LSTADRS           LOAD MEM SIZE VALUE IN R12
     3345   01 017DC    21C0FFFF A            CI,12    X'FFFF'           IF LESS THAN OR EQUAL TO 64K
     3346   01 017DD    6820109E              BLE      TST:CONT          SKIP THIS TEST
     3347   01 017DE    3280232D              LW,8     TESTPAGE
     3348   01 017DF    25800009 A            SLS,8    9                 SHIFT PAGE ADDR TO 15-22 OF R8
     3349   01 017E0    208001F8 A            AI,8     X'1F8'            INCREMENT ADDRESS
     3350   01 017E1    35802174              STW,8    STOREAT           SAVE ADDRESS
     3351   01 017E2    32802145              LW,8     CAL1INST          STORE CAL1 INST AT REAL EFF. ADDR
     3352   01 017E3    B5802174              STW,8    *STOREAT          VALUE OF IA IN PSD AFTER LPSD
     3353   01 017E4    32802146              LW,8     CAL2INST          STORE CAL2 INST AT X'101F8'--VALUE
     3354   01 017E5    358101F8 A            STW,8    X'101F8'          OF IA IN PSD IF REA INVOKED
     3355   01 017E6    6AF01DDC              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     3356   01 017E7    6AF01DE4              BAL,R15  ALLWLREG          LOAD ALLWL REG WITH 0'S
     3357   01 017E8    3240232D              LW,4     TESTPAGE
     3358   01 017E9    25400010 A            SLS,4    16                SET MAP CONTROL IMAGE WORD
     3359   01 017EA    22200004 A            LI,2     R4                PAGES X'80' AND X'81'
     3360   01 017EB    3230234B              LW,3     Y0101             SET WORD COUNT&CONTROL START
     3361   01 017EC    6F2A0000 A            MMC,2    5                 LOAD MAP FOR PAGES X'80'&X'81'
     3362         01 017ED           LOADPSD4 EQU      %
     3363   01 017ED    22800000 A            LI,8     0
     3364   01 017EE    358021B0              STW,8    ERRFLAG           CLEAR ERROR FLAG
     3365   01 017EF    0E0017F0              LPSD,0   MMLPSD4           SET PROGRAM TO MASTER ,MAPPED
     3366                                     BOUND    8                 AND PROTECTED MODE
     3367   01 017F0    004101F8 A   MMLPSD4  DATA     X'004101F8'       NO REAL EXTENDED ADDRESSING SHOULD
     3368   01 017F1    00810000 A            DATA     X'00810000'       TAKE PLACE EVEN THOUGH PSD40=1
     3369                            *
     3370                            *
     3371                            ************************************************************
     3372                            ************************************************************
     3373                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     3374                            ************************************************************
     3375                            ************************************************************
     3376                            *
     3377                            *
     3378         01 017F2           T31CAL1  EQU      %
     3379   01 017F2    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3380   01 017F3    698017ED              BCS,8    LOADPSD4          BRANCH FOR SHORT LOOP
     3381   01 017F4    328021B0              LW,8     ERRFLAG           IF ERROR FLAG NOT SET
     3382   01 017F5    683017F8              BEZ      TOK12             TEST OK
     3383   01 017F6    6AF017FE              BAL,R15  ERMAST4           REPORT ERROR
     3384   01 017F7    680017ED              B        LOADPSD4          RETURN HERE IF SS1=1;SS3=0
     3385   01 017F8    70200392     TOK12    LC       #SENSE            CHECK FOR SS2.IF SET
     3386   01 017F9    694017ED              BCS,4    LOADPSD4          BRANCH TO LOOP ON TEST
     3387   01 017FA    6800109E              B        TST:CONT
     3388                            *
     3389                            *
     3390                            ************************************************************
     3391                            ************************************************************
     3392                            ****     ENTER HERE ON A CAL2 TRAP FOR THIS TEST.THIS WILL
     3393                            ****     OCCUR IF REAL EXTENDED ADDRESSING IS INVOKED...ERROR
     3394                            ************************************************************
     3395                            ************************************************************
     3396                            *
     3397                            *
     3398         01 017FB           T31CAL2  EQU      %
     3399   01 017FB    22800001 A            LI,8     1
     3400   01 017FC    358021B0              STW,8    ERRFLAG           SET ERROR FLAG
     3401   01 017FD    680017F2              B        T31CAL1
     3402                            *
     3403                            *
     3404         01 017FE           ERMAST4  EQU      %
     3405   01 017FE    6AD01773              BAL,R13  ERRMAST
     3406   01 017FF    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     3407   01 01800    EA6003C5              #PRINT   MMSG4,C1          PRINT ERROR  MESSAGE
            01 01801    EA6003CD
            01 01802    C100A6B4 A
            01 01803    EA6003C6
     3408   01 01804    68001C89              B        COMMON
     3409                            *
     3410                            *
     3411         01 01805           TST32MM  EQU      %
     3412   01 01805    6AF01CAF              BAL,R15  STSMM             MM STATUS
     3413   01 01806    22800003 A            LI,8     3
     3414   01 01807    35802170              STW,8    TPAC              STORE TEST AC PATTERN
     3415   01 01808    3580230C              STW,8    ACLOAD            SAVE AC TEST PATTERN
     3416   01 01809    329021B4              LW,9     LWTP
     3417   01 0180A    6AF01D91              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     3418   01 0180B    6AF01DFA              BAL,R15  SETAC             SET P AC FOR THIS TEST
     3419   01 0180C    6AF01E20              BAL,R15  SETLPSD1          SET UP LPSD
     3420   01 0180D    358017C2              STW,8    MMLPSD3           STORE PSW1
     3421   01 0180E    6AF01D86              BAL,R15  SETINST           SET UP TEST INST
     3422   01 0180F    02001827              GEN,8,2,22  2,0,TSTINST5
     3423         01 01810           LOADPSD5 EQU      %
     3424   01 01810    6AF01DF1              BAL,15   MAPSELF           MAP ALL PAGES 1 TO 1
     3425   01 01811    22800000 A            LI,8     0
     3426   01 01812    358021B0              STW,8    ERRFLAG           CLEAR ERROR FLAG
     3427   01 01813    3210232D              LW,1     TESTPAGE
     3428   01 01814    25100009 A            SLS,1    9
     3429   01 01815    35102168              STW,1    PAGEADR           STORE OPERAND
     3430   01 01816    22300000 A            LI,3     0                 RESET R3
     3431   01 01817    0E001818              LPSD,0   MMLPSD5           SET PROGRAM TO MASTER,MAPPED
     3432                                     BOUND    8                 AND PROTECTED MODE;C1C2=10 FOR
     3433   01 01818    80403DF8 A   MMLPSD5  DATA     X'80403DF8'       LRA INST
     3434   01 01819    00800000 A            DATA     X'00800000'
     3435                            *
     3436                            **************************************************************
     3437                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST
     3438                            **************************************************************
     3439                            *
     3440         01 0181A           T32CAL1  EQU      %
     3441   01 0181A    70200392              LC       #SENSE            SS1 SET
     3442   01 0181B    69801810              BCS,8    LOADPSD5          YES;SHORT LOOP
     3443   01 0181C    328021B0              LW,8     ERRFLAG           FLAG SET
     3444   01 0181D    68301821              BEZ      TOK12A            NO;PROTECT VIOLATION INHIBTED
     3445   01 0181E    2280299C              LI,8     MMSG3
     3446   01 0181F    6AF017A3              BAL,15   ERMAST2
     3447   01 01820    68001810              B        LOADPSD5          RETURN HERE IF SS1=1;SS3=0
     3448         01 01821           TOK12A   EQU      %
     3449   01 01821    70200392              LC       #SENSE            SS2 SET
     3450   01 01822    69401810              BCS,4    LOADPSD5          YES;LONG LOOP
     3451   01 01823    6800109E              B        TST:CONT          START NEXT TEST
     3452                            *
     3453                            **************************************************************
     3454                            ****     ENTER HERE ON A NON-ALLOWED TRAP FOR THIS TEST
     3455                            **************************************************************
     3456                            *
     3457         01 01824           T32ERTRP EQU      %
     3458   01 01824    22800001 A            LI,8     1
     3459   01 01825    358021B0              STW,8    ERRFLAG           SET ERROR FLAG
     3460   01 01826    6800181A              B        T32CAL1
     3461                            *
     3462   01 01827    2C302168     TSTINST5 LRA,3    PAGEADR
     3463   01 01828    04C00000 A            CAL1,12  0
     3464                            *
     3465                            *
     3466                            ****     CHECK THAT COUNTER IN THE COUNT PULSE 4
     3467                            ****     INTERRUPT LOCATION GETS MAPPED WHEN
     3468                            ****     PROGRAM IS IN MASTER MAPPED MODE.
     3469                            *
     3470                            *
     3471         01 01829           TST33RTC EQU      %
     3472   01 01829    6AF01CA5              BAL,R15  STSMAP
     3473   01 0182A    6AF01DDC              BAL,R15  ALLACREG          LOAD ALL AC REG WITH 0'S
     3474   01 0182B    22800000 A            LI,8     0
     3475   01 0182C    35802170              STW,8    TPAC              SAVE TEST PAGE AC BITS
     3476   01 0182D    329021B1              LW,9     LWTIP
     3477   01 0182E    22800000 A            LI,8     0
     3478   01 0182F    6AF01D91              BAL,R15  SETMAP            SET UP MAP FOR THIS TEST
     3479   01 01830    6AF01E20              BAL,R15  SETLPSD1          SET UP LPSD FOR MAST/MAP MODE
     3480   01 01831    3580184E              STW,8    RTCLPSD           STORE PSW 1
     3481   01 01832    3280232C              LW,8     TINSTP            LOAD TEST INST PAGE ADDR
     3482   01 01833    25800009 A            SLS,8    9
     3483   01 01834    208001FA A            AI,8     X'1FA'             COMPUTE ADDR FOR ''B  % ''
     3484   01 01835    30802173              AW,8     HEX68             ADD BRANCH OP CODE
     3485   01 01836    35801869              STW,8    RTINST+2          STORE 'B % ' INST
     3486   01 01837    6AF01D86              BAL,R15  SETINST           SET UP TEST INST FOR THIS TEST
     3487   01 01838    03001867              GEN,8,2,22  3,0,RTINST
     3488         01 01839           TST33LOP EQU      %
     3489   01 01839    22801040 A            LI,8     X'1040'           DISARM CNT PULSE 4 & CNT 4 ZERO
     3490   01 0183A    6D801100 A            WD,8     X'1100'           INT LEVELS
     3491   01 0183B    3280232D              LW,8     TESTPAGE          LOAD TEST PAGE ADDR
     3492   01 0183C    25800009 A            SLS,8    9
     3493   01 0183D    208001F0 A            AI,8     X'1F0'            COMPUTE ADDR PORTION OF MTW INST
     3494   01 0183E    3580218B              STW,8    WORK1             SAVE ADDR
     3495   01 0183F    3080218D              AW,8     MTWI              ADD MTW OP CODE
     3496   01 01840    358021A0              STW,8    TINST             SAVE TEST INST
     3497   01 01841    46800055 A            XW,8     X'55'             STORE MTW INST
     3498   01 01842    35802191              STW,8    WORK7             SAVE GUIDE'S MTW
     3499   01 01843    3290232C              LW,9     TINSTP            LOAD TEST INST PAGE ADR
     3500   01 01844    25900009 A            SLS,9    9
     3501   01 01845    209001F0 A            AI,9     X'1F0'            MAPPED ADDR OF COUNTER
     3502   01 01846    3590218C              STW,9    WORK2             SAVE ADDR
     3503   01 01847    32802134              LW,8     INTCNT4Z
     3504   01 01848    4680005B A            XW,8     X'5B'             STORE XPSD
     3505   01 01849    35802192              STW,8    WORK8             SAVE GUIDE'S XPSD
     3506   01 0184A    228FFFF6 A            LI,8     -10               VALUE TO BE ASSIGNED TO COUNTER
     3507   01 0184B    B580218B              STW,8    *WORK1            STORE AT COUNTER ADDR(NO MAPPING)
     3508   01 0184C    B580218C              STW,8    *WORK2            ASSIGN VALUE TO COUNTER
     3509   01 0184D    0E00184E              LPSD,0   RTCLPSD           INVOKE MAST/MAP MODE
     3510                                     BOUND    8
     3511   01 0184E    00403DF8 A   RTCLPSD  DATA     X'00403DF8'
     3512   01 0184F    00000000 A            DATA     0
     3513                            *
     3514                            *
     3515                            ************************************************************
     3516                            *************************************************************
     3517                            ****     ENTER HERE ON A COUNTER 4 ZERO INTERRUPT
     3518                            ****     FOR THIS TEST.
     3519                            *************************************************************
     3520                            *************************************************************
     3521                            *
     3522                            *
     3523                                     BOUND    8
     3524   01 01850    00000000 A   CNT4ZRO  DATA     0,0
            01 01851    00000000 A
     3525   01 01852    00001854              DATA     %+2,0
            01 01853    00000000 A
     3526   01 01854    22801040 A            LI,8     X'1040'
     3527   01 01855    6D801100 A            WD,8     X'1100'           DISARM CNT 4 PULS/CNT 4 ZERO INT
     3528   01 01856    32802191              LW,8     WORK7
     3529   01 01857    46800055 A            XW,8     X'55'             RESTORE GUIDE'S MTW INST
     3530   01 01858    32902192              LW,9     WORK8
     3531   01 01859    4690005B A            XW,9     X'5B'             RESTORE GUIDE'S XPSD
     3532   01 0185A    32802147              LW,8     REMOT:GD
     3533   01 0185B    6830185E              BEZ      %+3
     3534   01 0185C    22801040 A            LI,8     X'1040'           ARM AND ENABLE
     3535   01 0185D    6D801200 A            WD,8     X'1200'           INT LEVELS
     3536   01 0185E    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3537   01 0185F    69801839              BCS,8    TST33LOP          BRANCH FOR SHORT LOOP
     3538   01 01860    B280218C              LW,8     *WORK2            IF MTW AT X'55' WAS MAPPED
     3539   01 01861    68301864              BEZ      TOK13             COUNTER AT THIS LOC MUST BE 0
     3540   01 01862    6AF0186A              BAL,R15  ERRTC1            OTHERWISE REPORT ERROR
     3541   01 01863    68001839              B        TST33LOP          RETURN HERE IF SS1=1;SS3=0
     3542   01 01864    70200392     TOK13    LC       #SENSE             CHECK FOR SS2.IF SET
     3543   01 01865    69401839              BCS,4    TST33LOP          BRANCH FOR LONG LOOP
     3544   01 01866    6800109E              B        TST:CONT          WRITE LOCK TEST
     3545                            *
     3546                            *
     3547         01 01867           RTINST   EQU      %
     3548   01 01867    22801040 A            LI,8     X'1040'           ARM AND ENABLE COUNTER 4 PULSE
     3549   01 01868    6D801200 A            WD,8     X'1200'           COUNTER 4 ZERO INT. LEVELS
     3550   01 01869    68001869              B        %                 DELAY
     3551                            *
     3552                            *
     3553         01 0186A           ERRTC1   EQU      %
     3554   01 0186A    33102198              MTW,1    ECMAP             UPDATE ERROR COUNTER
     3555   01 0186B    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     3556   01 0186C    69101C8F              BCS,1    SUPRESP           SUPRESS PRINTOUT
     3557   01 0186D    32800393              LW,8     #HDRFLG
     3558   01 0186E    318003F2              CW,8     TCR:NUM
     3559   01 0186F    68301876              BE       HDSKIP            SKIP HEADING PRINT IF FLAG SET
     3560   01 01870    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     3561   01 01871    55802795              STH,8    MAPOPHD1+10       STORE IN BUFFER
     3562   01 01872    EA6003C5              #PRINT   MAPOPHD1,C1       PRINT HEADING
            01 01873    EA6003CD
            01 01874    C1009E2C A
            01 01875    EA6003C6
     3563         01 01876           HDSKIP   EQU      %
     3564   01 01876    22800055 A            LI,8     X'55'
     3565   01 01877    358021A1              STW,8    TADDR             STORE TEST INST ADDR
     3566   01 01878    6AB01CD1              BAL,11   TSTINFO2
     3567   01 01879    EA6003C5              #PRINT   MAPMSG6
            01 0187A    EA6003CD
            01 0187B    C0009F4C A
            01 0187C    EA6003C6
     3568   01 0187D    68001C89              B        COMMON            EXIT
     3569                            *
     3570                            *
     3571                            ****
     3572                            ****START OF WRITE LOCK TESTS.
     3573                            ****THESE TESTS ARE STRUCTURED IN EXACTLY
     3574                            ****THE SAME WAY AS THE MAP TESTS. THE LABELS
     3575                            ****OF COURSE ARE DIFFERENT.
     3576                            ****
     3577         01 0187E           TST34WLF EQU      %                 INITIALISATION
     3578   01 0187E    6AF01CB2              BAL,R15  STSWL             WL STATUS
     3579   01 0187F    6AF01DF1              BAL,R15  MAPSELF           MAP PAGES 00 TO FF TO THEMSELVES
     3580   01 01880    22800000 A            LI,8     0                 RESET TO 0
     3581   01 01881    3580216C              STW,8    TESTVP            TEST VP ADDRESS
     3582   01 01882    3580216D              STW,8    READVP            READ VP ADDRESS
     3583   01 01883    3580230C              STW,8    WLLOAD            STORE WL TEST PATTERN
     3584         01 01884           LOPT34   EQU      %
     3585   01 01884    6AF01DE4              BAL,15   ALLWLREG          LOAD 0'S IN ALL WL REGS
     3586         01 01885           WLCHK1   EQU      %
     3587   01 01885    3210216D              LW,1     READVP            SET UP READ VP ADDRESS
     3588   01 01886    25100009 A            SLS,1    9                 IN BIT POSITION 15 TO 22 OF X1
     3589   01 01887    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER
     3590   01 01888    35102168              STW,1    PAGEADR           STORE VP ADDR
     3591   01 01889    6AB018B5              BAL,11   DEFEXP1           DEF EXP LRA CONTENTS
     3592   01 0188A    02200080 A            LCI      8                 SET CC FOR WRD ADR
     3593   01 0188B    2C802168              LRA,8    PAGEADR           READ WL  REG
     3594   01 0188C    7400214C              STCF     ACTCC             SAVE CC AFTER LRA
     3595   01 0188D    70200392              LC       #SENSE            IF SS1 SET
     3596   01 0188E    69801884              BCS,8    LOPT34            SHORT LOOP
     3597   01 0188F    3580214D              STW,8    ACTLRA            SAVE OBS DATA
     3598   01 01890    3180214E              CW,8     EXPLRA            SAME AS EXPECTED
     3599   01 01891    68301894              BE       LINK3             YES
     3600   01 01892    6AF018DB              BAL,15   ERRWL             REPORT ERROR
     3601   01 01893    68001884              B        LOPT34            RETURN HERE IF SS1=1;SS3=0
     3602         01 01894           LINK3    EQU      %
     3603   01 01894    3280216D              LW,8     READVP            IF READ VP
     3604   01 01895    3180216A              CW,8     LASTPAGE          ADDRESS EQUALS 255
     3605   01 01896    6830189B              BE       WLFUNTST          START NEXT TEST
     3606   01 01897    22100001 A            LI,1     1                 INCREMENT BY 1
     3607   01 01898    6610216C              AWM,1    TESTVP            ADDRESS OF TEST VP
     3608   01 01899    6610216D              AWM,1    READVP            ADDRESS OF READ VP
     3609   01 0189A    68001885              B        WLCHK1            CHECK NEXT VP
     3610                            *
     3611         01 0189B           WLFUNTST EQU      %                 WL FUNCTIONAL TEST
     3612   01 0189B    22800000 A            LI,8     0                 RESET TO 0
     3613   01 0189C    3580216C              STW,8    TESTVP            TEST VP ADDR
     3614   01 0189D    3580216D              STW,8    READVP            READ VP ADDR
     3615   01 0189E    32802338              LW,8     YC                INITIALISE VALUE OF
     3616   01 0189F    3580216B              STW,8    TESTPATN          TEST PATTERN
     3617   01 018A0    22200003 A            LI,2     3
     3618   01 018A1    3520230C              STW,2    WLLOAD            STORE WL TEST PATTERN
     3619         01 018A2           LOADWL   EQU      %
     3620   01 018A2    3280216B              LW,8     TESTPATN          SET UP WL CONTROL IMAGE WORD
     3621   01 018A3    3270216C              LW,7     TESTVP            SET UP CONTROL START
     3622   01 018A4    6AB01E16              BAL,R11  MMCWL1            LOAD 1 BLOCK OF WL REGISTERS
     3623         01 018A5           READWL   EQU      %
     3624   01 018A5    3210216D              LW,1     READVP            SET UP READ VP ADDRESS
     3625   01 018A6    25100009 A            SLS,1    9                 IN BITS 15 TO 22 OF X1
     3626   01 018A7    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER
     3627   01 018A8    35102168              STW,1    PAGEADR           STORE VP ADDR
     3628   01 018A9    6AB018B5              BAL,11   DEFEXP1           DEFINE EXP LRA CONTENTS
     3629   01 018AA    02200080 A            LCI      8                 SET CC FOR WRD ADR
     3630   01 018AB    2C802168              LRA,8    PAGEADR           READ WL  REG
     3631   01 018AC    7400214C              STCF     ACTCC             SAVE CC AFTER LRA
     3632   01 018AD    70200392              LC       #SENSE            IF SS1 SET
     3633   01 018AE    698018A2              BCS,8    LOADWL            SHORT LOOP
     3634   01 018AF    3580214D              STW,8    ACTLRA            SAVE OBS DATA
     3635   01 018B0    3180214E              CW,8     EXPLRA            SAME AS EXPECTED
     3636   01 018B1    683018C3              BE       CONTINU3          YES
     3637   01 018B2    6AF018DB     ER11     BAL,15   ERRWL             REPORT ERROR
     3638   01 018B3    680018A2              B        LOADWL            RETURN HERE IF SS1=1;SS3=0
     3639   01 018B4    680018C3              B        CONTINU3
     3640                            *
     3641         01 018B5           DEFEXP1  EQU      %
     3642   01 018B5    3290230C              LW,9     WLLOAD            GET WL PATTERN
     3643   01 018B6    3280216D              LW,8     READVP            GET READ VP #
     3644   01 018B7    3180216C              CW,8     TESTVP            SAME AS TEST VP
     3645   01 018B8    683018BA              BE       %+2               SKIP IF YES
     3646   01 018B9    22900000 A            LI,9     0                 DEFINE EXP WL=00
     3647   01 018BA    25900018 A            SLS,9    24                SHIFT TO WL BIT POSITIONS
     3648   01 018BB    32802168              LW,8     PAGEADR           GET VIRTUAL ADDR
     3649   01 018BC    21800210 A            CI,8     X'210'            GREATER THAN PAG 0 & 1
     3650   01 018BD    692018BF              BG       %+2               YES
     3651   01 018BE    49802335              OR,8     Y4                SET HSB BIT
     3652   01 018BF    49800009 A            OR,8     9                 ADD WL BITS
     3653   01 018C0    3580214E              STW,8    EXPLRA            STORE EXP VALUE
     3654   01 018C1    22800000 A            LI,8     0                 CLEAR LRA REG
     3655   01 018C2    E800000B A            B        *R11              EXIT
     3656                            *
     3657         01 018C3           CONTINU3 EQU      %
     3658   01 018C3    3280216D              LW,8     READVP
     3659   01 018C4    3180216A              CW,8     LASTPAGE          IF READ VP ADDR EQUALS 255
     3660   01 018C5    683018C8              BE       LASTRVP3          THEN BRANCH
     3661   01 018C6    3310216D              MTW,1    READVP            ADDRESS BY 1
     3662   01 018C7    680018A5              B        READWL            READ WL FOR NEXT VP
     3663                            *
     3664                            *
     3665         01 018C8           LASTRVP3 EQU      %                 READ VP ADDR-255;(X'FF')
     3666   01 018C8    22800000 A            LI,8     0
     3667   01 018C9    3580216D              STW,8    READVP            RESET READ VP ADDR TO 0
     3668   01 018CA    3290216C              LW,9     TESTVP
     3669   01 018CB    3190216A              CW,9     LASTPAGE          IF TEST VP ADDR=255
     3670   01 018CC    683018D6              BE       LASTPAG3          THEN BRANCH
     3671   01 018CD    22800000 A            LI,8     0
     3672   01 018CE    3270216C              LW,7     TESTVP
     3673   01 018CF    4B70234F              AND,7    XF0               RESET WL BITS FOR TEST VP
     3674   01 018D0    6AB01E16              BAL,11   MMCWL1
     3675   01 018D1    3310216C              MTW,1    TESTVP            ADDRESS BY 1
     3676   01 018D2    3280216B              LW,8     TESTPATN          LOAD TEST PATTERN IN R8
     3677   01 018D3    2580027E A            SCS,8    -2                SHIFT RIGHT 2 BITS
     3678   01 018D4    3580216B              STW,8    TESTPATN          STORE TEST PATTERN
     3679   01 018D5    680018A2              B        LOADWL            LOAD WL FOR NEXT VP
     3680                            *
     3681         01 018D6           LASTPAG3 EQU      %                 LAST VP ADDRESS TESTED
     3682   01 018D6    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     3683   01 018D7    6940187F              BCS,4    TST34WLF+1        BRANCH FOR LONG LOOP
     3684   01 018D8    6AF01DE4              BAL,R15  ALLWLREG          LOAD ALLWL REG WITH 0'S
     3685   01 018D9    6AF01DD4              BAL,R15  ALMAPREG
     3686   01 018DA    6800109E              B        TST:CONT          START WL  OPERATIONAL TEST
     3687                            *
     3688                            *
     3689         01 018DB           ERRWL    EQU      %
     3690   01 018DB    32802152              LW,8     XEWLF1
     3691   01 018DC    32902154              LW,9     XEWLF2
     3692   01 018DD    22AFFFFE A            LI,10    -2
     3693   01 018DE    321003CE              LW,X1    #ERRTEXT%
     3694   01 018DF    201FFFFE A            AI,X1    -2
     3695   01 018E0    02200030 A            LCI      3
     3696   01 018E1    AB800001 A            STM,8    *X1
     3697   01 018E2    3310219A              MTW,1    ECWL              UPDATE ERROR COUNTER
     3698   01 018E3    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     3699   01 018E4    69101C8F              BCS,1    SUPRESP           SUPRESS PRINTOUT
     3700   01 018E5    32800393              LW,8     #HDRFLG           CHECK FOR HEADING FLAG.IF SET
     3701   01 018E6    318003F2              CW,8     TCR:NUM
     3702   01 018E7    68301314              BE       SUPHEAD1          SUPRESS HEADING PRINTOUT
     3703   01 018E8    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     3704   01 018E9    5580277F              STH,8    WLHEAD1+11        STORE IN BUFFER
     3705   01 018EA    EA6003C5              #PRINT   WLHEAD1,C1        PRINT HEADING
            01 018EB    EA6003CD
            01 018EC    C1009DD0 A
            01 018ED    EA6003C6
     3706   01 018EE    EA6003C5              #PRINT   WLHEAD2,C1        PRINT HEADING
            01 018EF    EA6003CD
            01 018F0    C1009E00 A
            01 018F1    EA6003C6
     3707   01 018F2    EA6003C5              #PRINT   WLHEAD3           PRINT HEADING
            01 018F3    EA6003CD
            01 018F4    C0009CE4 A
            01 018F5    EA6003C6
     3708   01 018F6    68001314              B        SUPHEAD1
     3709                            *
     3710                            ****     CHECKS OUT THAT WRITE LOCKS ARE OPERATING CORRECTLY.
     3711                            ****     INITIALLY WRITE KEY IS SET TO 11 AND WL
     3712                            ****     PROTECTION LOGIC IS CHECKED FOR WL=11,10,01 & 00
     3713                            ****     IN THE TEST PAGE.THE ABOVE IS REPEATED FOR
     3714                            ****     WRITE KEY = 10,01 AND 00.
     3715                            *
     3716         01 018F7           TST35WLOP EQU     %                 WL OPERATIONAL TEST
     3717   01 018F7    6AF01CB2              BAL,R15  STSWL             WL STATUS
     3718         01 018F8           WLOPLOP  EQU      %
     3719   01 018F8    22800030 A            LI,8     X'30'
     3720   01 018F9    75801909              STB,8    WLLPSD+1          INITIALLY SET WK=11
     3721   01 018FA    22800003 A            LI,8     3
     3722   01 018FB    3580230C              STW,8    WLLOAD            INITIALLY SET WL=11
     3723   01 018FC    3280232D              LW,8     TESTPAGE          COMPUTE ADDRESS
     3724   01 018FD    25800009 A            SLS,8    9                 WHICH IS REFERENCED FOR
     3725   01 018FE    208001F8 A            AI,8     X'1F8'            WL-WK CHECK DURING TESTING
     3726   01 018FF    35802174              STW,8    STOREAT           SAVE ADDRESS
     3727         01 01900           NEXTWL   EQU      %
     3728   01 01900    228FFFFF A            LI,8     -1
     3729   01 01901    B5802174              STW,8    *STOREAT          INIT TEST WRITE LOCATION
     3730   01 01902    22800000 A            LI,8     0
     3731   01 01903    3580217A              STW,8    WLWKFLG           CLEAR FLAG
     3732   01 01904    358021B0              STW,8    ERRFLAG
     3733   01 01905    6AF01E0D              BAL,R15  SETWL             SET WL FOR THIS TEST
     3734   01 01906    22800000 A            LI,8     0                 RESET R8
     3735   01 01907    0E001908              LPSD,0   WLLPSD
     3736                            *
     3737                                     BOUND    8
     3738   01 01908    0000190A     WLLPSD   DATA     WLWKTST
     3739   01 01909    30000000 A            DATA     X'30000000'       INITIALLY WK=11
     3740                            *
     3741         01 0190A           WLWKTST  EQU      %
     3742   01 0190A    B5802174              STW,8    *STOREAT          ATTEMPT TO WRITE IN TEST PAGE
     3743   01 0190B    0E00190C              LPSD,0   PSDWK0            SET KEY TO 00
     3744                            *
     3745                                     BOUND    8
     3746   01 0190C    0000190F     PSDWK0   DATA     WLWKTRP+1
     3747   01 0190D    00000000 A            DATA     0
     3748                            *
     3749                            *
     3750                            ************************************************************
     3751                            ************************************************************
     3752                            *****    ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     3753                            *****    FOR THIS TEST.
     3754                            ************************************************************
     3755                            ************************************************************
     3756                            *
     3757                            *
     3758         01 0190E           WLWKTRP  EQU      %
     3759   01 0190E    3310217A              MTW,1    WLWKFLG           SET FLAG
     3760   01 0190F    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3761   01 01910    69801900              BCS,8    NEXTWL            BRANCH FOR SHORT LOOP
     3762   01 01911    52801909              LH,8     WLLPSD+1
     3763   01 01912    25800074 A            SLS,8    -12
     3764   01 01913    3580230B              STW,8    WKDATA            STORE WK
     3765   01 01914    32800008 A            LW,8     8                 IF WK=00
     3766   01 01915    6830192F              BEZ      NOTRAPX           NO TRAP EXPECTED
     3767   01 01916    3280230C              LW,8     WLLOAD            IF WL=00
     3768   01 01917    6830192F              BEZ      NOTRAPX           NO TRAP EXPECTED
     3769   01 01918    3180230B              CW,8     WKDATA            IF WL=WK
     3770   01 01919    6830192F              BE       NOTRAPX           NO TRAP EXPECTED
     3771   01 0191A    228FFFFF A            LI,8     -1
     3772   01 0191B    3580217B              STW,8    EXPDATA           STORE EXP DATA FOR WRIT CHECK
     3773   01 0191C    3280217A              LW,8     WLWKFLG
     3774   01 0191D    68301928              BEZ      NOTOK1            NO TRAP;ERROR
     3775   01 0191E    3280212A              LW,8     YES
     3776   01 0191F    3580282A              STW,8    WLMSG2+1          STORE A 'YES' IN MSG BUFFER
     3777         01 01920           WRTCHK1  EQU      %                 WRITE CHECK
     3778   01 01920    B2802174              LW,8     *STOREAT          LOAD DATA FROM STORAGE LOC.
     3779   01 01921    3580217C              STW,8    ACTDATA           SAVE ACTUAL DATA
     3780   01 01922    218FFFFF A            CI,8     -1                IF DATA SAME
     3781   01 01923    6830192C              BE       WRTNO             WRITE ABORTED;TEST OK
     3782   01 01924    331021B0              MTW,1    ERRFLAG           SET ERROR INDICATOR
     3783   01 01925    3280212A              LW,8     YES
     3784   01 01926    35802831              STW,8    WLMSG2+8          STORE A YES IN MSG BUF
     3785   01 01927    68001944              B        TSTOK
     3786                            *
     3787         01 01928           NOTOK1   EQU      %
     3788   01 01928    3280212B              LW,8     NO
     3789   01 01929    3580282A              STW,8    WLMSG2+1          STORE A NO
     3790   01 0192A    331021B0              MTW,1    ERRFLAG           SET ERROR INDICATOR
     3791   01 0192B    68001920              B        WRTCHK1
     3792                            *
     3793         01 0192C           WRTNO    EQU      %
     3794   01 0192C    3280212B              LW,8     NO
     3795   01 0192D    35802831              STW,8    WLMSG2+8          STORE A NO
     3796   01 0192E    68001944              B        TSTOK
     3797                            *
     3798                            *
     3799         01 0192F           NOTRAPX  EQU      %
     3800   01 0192F    22800000 A            LI,8     0
     3801   01 01930    3580217B              STW,8    EXPDATA           SAVE EXP DATA
     3802   01 01931    3280217A              LW,8     WLWKFLG
     3803   01 01932    6930193D              BNEZ     NOTOK2            TRAP;ERROR
     3804   01 01933    3280212B              LW,8     NO
     3805   01 01934    3580282A              STW,8    WLMSG2+1
     3806         01 01935           WRTCHK2  EQU      %                 WRITE CHECK
     3807   01 01935    B2802174              LW,8     *STOREAT
     3808   01 01936    3580217C              STW,8    ACTDATA           SAVE ACTUAL DATA
     3809   01 01937    21800000 A            CI,8     0
     3810   01 01938    68301941              BE       WRTYES            WRITE NOT ABORTED;TEST OK
     3811   01 01939    331021B0              MTW,1    ERRFLAG           SET ERROR INDICATOR
     3812   01 0193A    3280212B              LW,8     NO
     3813   01 0193B    35802831              STW,8    WLMSG2+8
     3814   01 0193C    68001944              B        TSTOK
     3815                            *
     3816         01 0193D           NOTOK2   EQU      %
     3817   01 0193D    3280212A              LW,8     YES
     3818   01 0193E    3580282A              STW,8    WLMSG2+1
     3819   01 0193F    331021B0              MTW,1    ERRFLAG           SET ERROR INDICATOR
     3820   01 01940    68001935              B        WRTCHK2
     3821                            *
     3822         01 01941           WRTYES   EQU      %
     3823   01 01941    3280212A              LW,8     YES
     3824   01 01942    35802831              STW,8    WLMSG2+8
     3825   01 01943    68001944              B        TSTOK
     3826                            *
     3827                            *
     3828                            *
     3829         01 01944           TSTOK    EQU      %
     3830   01 01944    328021B0              LW,8     ERRFLAG
     3831   01 01945    68301948              BEZ      TOK14             IF NOT SET NO ERROR
     3832   01 01946    6AF01959              BAL,R15  ERRWLOP           REPKRT ERROR
     3833   01 01947    68001900              B        NEXTWL            RETURN HERE IF SS1=1;SS3=0
     3834                            *
     3835   01 01948    3280230C     TOK14    LW,8     WLLOAD            IF WL=00,GO AND
     3836   01 01949    6830194C              BEZ      CHKWK00           CHECK IF WK=00
     3837   01 0194A    33F0230C              MTW,-1   WLLOAD            CHANGE WRITE LOCK
     3838   01 0194B    68001900              B        NEXTWL
     3839                            *
     3840         01 0194C           CHKWK00  EQU      %
     3841   01 0194C    32801909              LW,8     WLLPSD+1          IF WK=00
     3842   01 0194D    68301956              BEZ      TSTEXIT           EXIT FROM TEST
     3843   01 0194E    3280230B              LW,8     WKDATA
     3844   01 0194F    68301956              BEZ      TSTEXIT           TEST DONE IF WK=00
     3845   01 01950    33F0230B              MTW,-1   WKDATA            CHANGE WRITE KEY
     3846   01 01951    3280230B              LW,8     WKDATA
     3847   01 01952    2580000C A            SLS,8    12
     3848   01 01953    55801909              STH,8    WLLPSD+1
     3849   01 01954    3330230C              MTW,3    WLLOAD            SET WL=11
     3850   01 01955    68001900              B        NEXTWL            LOAD NEW WL PATTERN
     3851                            *
     3852                            *
     3853         01 01956           TSTEXIT  EQU      %
     3854   01 01956    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     3855   01 01957    694018F8              BCS,4    WLOPLOP           BRANCH FOR LONG LOOP
     3856   01 01958    6800109E              B        TST:CONT
     3857                            *
     3858                            *
     3859         01 01959           ERRWLOP  EQU      %
     3860   01 01959    3310219A              MTW,1    ECWL              UPDATE ERROR COUNTER
     3861   01 0195A    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     3862   01 0195B    69101C8F              BCS,1    SUPRESP           SUPRESS PRINTOUT
     3863   01 0195C    6D000032 A            #HTECON  TESTPAGE          CONVERT TEST PAGE ADDR
            01 0195D    EA6003C3
            01 0195E    0000232D
            01 0195F    6D000022 A
     3864   01 01960    328C0001 A            LW,8     1,LINK
     3865   01 01961    4B802336              AND,8    Y4040
     3866   01 01962    25800210 A            SCS,8    16
     3867   01 01963    3580282C              STW,8    WLMSG2+3
     3868   01 01964    6D000032 A            #HTECON  EXPDATA           CONVERT EXPECTED DATA
            01 01965    EA6003C3
            01 01966    0000217B
            01 01967    6D000022 A
     3869   01 01968    2A8C0000 A            LM,8     0,LINK
     3870   01 01969    02200020 A            LCI      2
     3871   01 0196A    2B802833              STM,8    WLMSG2+10         STORE
     3872   01 0196B    6D000032 A            #HTECON  ACTDATA           CONVERT ACTUAL DATA
            01 0196C    EA6003C3
            01 0196D    0000217C
            01 0196E    6D000022 A
     3873   01 0196F    2A8C0000 A            LM,8     0,LINK
     3874   01 01970    02200020 A            LCI      2
     3875   01 01971    2B802837              STM,8    WLMSG2+14         STORE
     3876   01 01972    6AB01D77              BAL,R11  GETWL
     3877   01 01973    3590282E              STW,9    WLMSG2+5          STORE WRITE KEY
     3878   01 01974    3580282F              STW,8    WLMSG2+6          STORE WRITE LOCK
     3879   01 01975    32800393              LW,8     #HDRFLG           CHECK HEADING FLAG.IF SET
     3880   01 01976    318003F2              CW,8     TCR:NUM
     3881   01 01977    68301982              BE       SUPWLHD           SKIP HEADING PRIINTOUT
     3882   01 01978    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     3883   01 01979    55802817              STH,8    WLOPHD1+12        STORE IN BUFFER
     3884   01 0197A    EA6003C5              #PRINT   WLOPHD1,C1        PRINT HEADING
            01 0197B    EA6003CD
            01 0197C    C100A02C A
            01 0197D    EA6003C6
     3885   01 0197E    EA6003C5              #PRINT   WLOPHD2,C1
            01 0197F    EA6003CD
            01 01980    C100A060 A
            01 01981    EA6003C6
     3886         01 01982           SUPWLHD  EQU      %
     3887   01 01982    EA6003C5              #PRINT   WLMSG2            PRINT ERROR MESSAGE
            01 01983    EA6003CD
            01 01984    C000A0A4 A
            01 01985    EA6003C6
     3888   01 01986    68001C89              B        COMMON
     3889                            *
     3890                            *
     3891                            ****     PROTECT LOGIC TESTS FOR WRITE LOCKS.
     3892                            *
     3893                            *        1.
     3894                            ****     CHECKS THAT WRITE PROTECT VIOLATIONS ARE
     3895                            ****     INHIBITED WHEN ACCESSING AND EXECUTING
     3896                            ****     A XPSD IN A TRAP/INTERRUPT LOCATION.
     3897                            ****
     3898                            *
     3899                            *        2.
     3900                            ****     CHECK THAT WHEN WRITING INTO GENERAL REGISTERS
     3901                            ****     WRITE PROTECT VIOLATIONS ARE INHIBITED.
     3902                            ****
     3903                            *        3.
     3904                            *
     3905                            ****     CHECK THAT WRITE PROTECT VIOLATIONS ARE
     3906                            ****     INHIBITED ON WRITING/READING LOCATIONS
     3907                            ****     X'20' AND X'21' WHEN EXECUTING I/O INSTRUCTION.
     3908                            *
     3909                            *        4.
     3910                            *
     3911                            ****     CHECK THAT MBS,TBS,PSM AND STM INSTRUCTIONS
     3912                            ****     CAUSE A TRAP TO X'40' WHEN THERE EXECUTION
     3913                            ****     EXTENDS TO A PAGE OF MEMORY WHICH IS
     3914                            ****     WRITE LOCK PROTECTED
     3915                            *
     3916                            *
     3917                            ****     CHECKS THAT WRITE PROTECT VIOLATIONS ARE
     3918                            ****     INHIBITED WHEN ACCESSING AND EXECUTING
     3919                            ****     A XPSD IN A TRAP/INTERRUPT LOCATION.
     3920                            ****
     3921                            *
     3922         01 01987           TST36WLP1  EQU    %
     3923   01 01987    6AF01CB2              BAL,R15  STSWL             WL STATUS
     3924   01 01988    3280232D              LW,8     TESTPAGE
     3925   01 01989    35802171              STW,8    WLTP              SAVE WL TEST PAGE #
     3926   01 0198A    25800009 A            SLS,8    9                 COMPUTE REF ADDR PORTION
     3927   01 0198B    208001F8 A            AI,8     X'1F8'            OF XPSD TO BE STORED AT X'48'
     3928   01 0198C    35802174              STW,8    STOREAT           SAVE ADDR
     3929   01 0198D    30802144              AW,8     OPCXPSD           ADD OP CODE
     3930   01 0198E    32900048 A            LW,9     X'48'             SAVE EXISTING XPSD AT X'48'
     3931   01 0198F    3590218B              STW,9    WORK1
     3932   01 01990    35800048 A            STW,8    X'48'             STORE XPSD
     3933   01 01991    02200040 A            LCI      4
     3934   01 01992    2A0019BD              LM,0     NEWPSD1           LOAD TWO DOUBLE WORDS AT ADDR
     3935   01 01993    02200040 A            LCI      4                 PROGRAM WILL GO TO ON EXECUTING
     3936   01 01994    AB002174              STM,0    *STOREAT          XPSD AT X'48' IF NO ACCESS TRAP
     3937   01 01995    22800003 A            LI,8     3
     3938   01 01996    35802170              STW,8    TPWL              SAVE WL BITS OF TEST PAGE
     3939   01 01997    3580230C              STW,8    WLLOAD
     3940   01 01998    6AF01E0D              BAL,R15  SETWL             SET WL FOR THIS TEST
     3941   01 01999    3280232C              LW,8     TINSTP            COMPUTE ADDR WHERE
     3942   01 0199A    25800009 A            SLS,8    9                 TEST INST TO
     3943   01 0199B    208001F8 A            AI,8     X'1F8'            BE STORED
     3944   01 0199C    358021B5              STW,8    MAPEDADR          SAVE ADDR
     3945   01 0199D    358019A4              STW,8    MASTMOD1          SET UP PSW1
     3946   01 0199E    6AF01D86              BAL,R15  SETINST           SET UP CAL1 INST IN TEST INST PAGE
     3947   01 0199F    01002143              GEN,8,2,22  1,0,CALL1
     3948         01 019A0           LOPLPSD1 EQU      %
     3949   01 019A0    22800000 A            LI,8     0
     3950   01 019A1    358021B0              STW,8    ERRFLAG           RESET FLAG
     3951   01 019A2    0E0019A4              LPSD,0   MASTMOD1          INVOKE MAST MODE
     3952                            *                                  AND START INST AT X'3DF8'
     3953                                     BOUND    8
     3954   01 019A4    00003DF8 A   MASTMOD1 DATA     X'00003DF8'
     3955   01 019A5    10000000 A            DATA     X'10000000'
     3956                            *
     3957                            *
     3958                            **************************************************************
     3959                            ***************************************************************
     3960                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     3961                            ****     FOR THIS TEST.
     3962                            ***************************************************************
     3963                            ***************************************************************
     3964                            *
     3965                            *
     3966         01 019A6           T36ERTRP EQU      %
     3967   01 019A6    22800001 A            LI,8     1
     3968   01 019A7    358021B0              STW,8    ERRFLAG           SET ERROR FLAG
     3969   01 019A8    680019A9              B        T36CAL1
     3970                            *
     3971                            *
     3972                            ***************************************************************
     3973                            ***************************************************************
     3974                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     3975                            ****************************************************************
     3976                            ***************************************************************
     3977                            *
     3978                            *
     3979         01 019A9           T36CAL1  EQU      %
     3980   01 019A9    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     3981   01 019AA    698019A0              BCS,8    LOPLPSD1          BRANCH FOR SHORT LOOP
     3982   01 019AB    328021B0              LW,8     ERRFLAG
     3983   01 019AC    683019B0              BEZ      TOK15             TEST OK IF FLAG NOT SET
     3984   01 019AD    2280290D              LI,8     PLMSG7            LOAD WORD ADDR
     3985   01 019AE    6AF019B5              BAL,R15  ERWLP1            REPORT ERROR
     3986   01 019AF    680019A0              B        LOPLPSD1          RETURN HERE IF SS1=1;SS3=0
     3987   01 019B0    70200392     TOK15    LC       #SENSE            CHECK FOR SS2.IF SET
     3988   01 019B1    694019A0              BCS,4    LOPLPSD1          BRANCH FOR LONG LOOP
     3989   01 019B2    3280218B              LW,8     WORK1             RESTORE INITIAL XPSD
     3990   01 019B3    35800048 A            STW,8    X'48'             AT X'48'
     3991   01 019B4    6800109E              B        TST:CONT          NEXT TEST
     3992                            *
     3993                            *
     3994         01 019B5           ERWLP1   EQU      %
     3995   01 019B5    25800002 A            SLS,8    2                 FORM BYTE ADDR
     3996   01 019B6    49802338              OR,8     YC                INSERT FORMAT CHARACTER
     3997   01 019B7    3580149F              STW,8    XPRNT1+2          STORE IT
     3998   01 019B8    3310219A              MTW,1    ECWL              UPDATE ERROR COUNT
     3999   01 019B9    6AD014A4              BAL,R13  ERRPL+1
     4000   01 019BA    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     4001   01 019BB    6AB01D20              BAL,11   TSTINFO6
     4002   01 019BC    6800149D              B        XPRNT1            NORMAL RETURN
     4003                            *
     4004   01 019BD    00000000 A   NEWPSD1  DATA     0
     4005   01 019BE    00000000 A            DATA     0
     4006   01 019BF    000019A9              DATA     T36CAL1
     4007   01 019C0    00000000 A            DATA     0
     4008                            *
     4009                            ****     CHECK THAT WHEN WRITING INTO GENERAL REGISTERS
     4010                            ****     WRITE PROTECT VIOLATIONS ARE INHIBITED.
     4011                            ****
     4012         01 019C1           TST37WLP2  EQU    %
     4013   01 019C1    6AF01CB2              BAL,R15  STSWL             WL STATUS
     4014   01 019C2    32802338              LW,8     YC                SET UP WL CONTROL IMAGE WORD
     4015   01 019C3    22700000 A            LI,7     0                 SET CONTROL START ADDR
     4016   01 019C4    35702171              STW,7    WLTP
     4017   01 019C5    6AB01E16              BAL,R11  MMCWL1            LOAD WL=11 FOR VP 0
     4018   01 019C6    22800003 A            LI,8     3
     4019   01 019C7    35802170              STW,8    TPWL              SAVE WL BITS
     4020   01 019C8    3280232C              LW,8     TINSTP            COMPUTE ADDR WHERE
     4021   01 019C9    25800009 A            SLS,8    9                 TEST INST TO
     4022   01 019CA    208001F8 A            AI,8     X'1F8'            BE STORED
     4023   01 019CB    358021B5              STW,8    MAPEDADR          SAVE ADDR
     4024   01 019CC    358019D4              STW,8    MASTMOD2          SET UP PSW1
     4025   01 019CD    6AF01D86              BAL,R15  SETINST           SET UP TEST INST IN TINSTP
     4026   01 019CE    020019E3              GEN,8,2,22  2,0,CHKINST6
     4027         01 019CF           LOPLPSD2 EQU      %
     4028   01 019CF    228FFFFF A            LI,8     -1
     4029   01 019D0    22100000 A            LI,1     0
     4030   01 019D1    351021B0              STW,1    ERRFLAG           RESET FLAG
     4031   01 019D2    0E0019D4              LPSD,0   MASTMOD2
     4032                                     BOUND    8
     4033   01 019D4    00003DF8 A   MASTMOD2 DATA     X'00003DF8'
     4034   01 019D5    10000000 A            DATA     X'10000000'
     4035                            *
     4036                            *
     4037                            *************************************************************
     4038                            *************************************************************
     4039                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST
     4040                            *************************************************************
     4041                            *************************************************************
     4042                            *
     4043                            *
     4044         01 019D6           T37CAL1  EQU      %
     4045   01 019D6    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     4046   01 019D7    698019CF              BCS,8    LOPLPSD2          BRANCH FOR SHORT LOOP
     4047   01 019D8    328021B0              LW,8     ERRFLAG
     4048   01 019D9    683019DD              BEZ      TOK16             TEST OK IF FLAG NOT SET
     4049   01 019DA    228028FD              LI,8     PLMSG6
     4050   01 019DB    6AF019B5              BAL,R15  ERWLP1            REPORT ERROR
     4051   01 019DC    680019CF              B        LOPLPSD2          RETURN HERE IF SS1=1;SS3=0
     4052   01 019DD    70200392     TOK16    LC       #SENSE            CHECK FOR SS2.IF SET
     4053   01 019DE    694019CF              BCS,4    LOPLPSD2          BRANCH FOR LONG LOOP
     4054   01 019DF    6800109E              B        TST:CONT          NEXT TEST
     4055                            *
     4056                            *
     4057                            ************************************************************
     4058                            ************************************************************
     4059                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     4060                            ****     FOR THIS TEST.
     4061                            ************************************************************
     4062                            ************************************************************
     4063                            *
     4064                            *
     4065         01 019E0           T37ERTRP EQU      %
     4066   01 019E0    22800001 A            LI,8     1
     4067   01 019E1    358021B0              STW,8    ERRFLAG           SET ERROR FLAG
     4068   01 019E2    680019D6              B        T37CAL1
     4069                            *
     4070         01 019E3           CHKINST6 EQU      %
     4071   01 019E3    35800001 A            STW,8    R1
     4072   01 019E4    04900000 A            CAL1,9   0
     4073                            *
     4074                            *
     4075                            *
     4076                            ****     CHECK THAT WRITE PROTECT VIOLATIONS ARE
     4077                            ****     INHIBITED ON WRITING INTO X'20'
     4078                            ****     WHEN EXECUTING AN I/O INSTRUCTION.
     4079                            *
     4080         01 019E5           TST38WLP3  EQU    %
     4081   01 019E5    6AF01CB2              BAL,R15  STSWL             STATUS
     4082   01 019E6    32802338              LW,8     YC
     4083   01 019E7    22700000 A            LI,7     0
     4084   01 019E8    35702171              STW,7    WLTP
     4085   01 019E9    6AB01E16              BAL,11   MMCWL1            LOAD WL=11 FOR PAGE 0
     4086   01 019EA    22800003 A            LI,8     3
     4087   01 019EB    35802170              STW,8    TPWL              SAVE WL BITS
     4088   01 019EC    22800004 A            LI,8     4
     4089   01 019ED    22600008 A            LI,R6    R8
     4090   01 019EE    3270233C              LW,7     Y01002
     4091   01 019EF    6F620000 A            MMC,6    1                 SET WL=01 FOR PAGE 1E
     4092   01 019F0    32D00397              LW,13    #PRTADDR
     4093   01 019F1    12801A0A              LD,8     TIOWLT            STORETEST INST AT
     4094   01 019F2    15803DF8 A            STD,8    X'3DF8'           3DF8
     4095   01 019F3    22803DF8 A            LI,8     X'3DF8'
     4096   01 019F4    358021B5              STW,8    MAPEDADR
     4097         01 019F5           LOPT38   EQU      %
     4098   01 019F5    EA6003C5              BAL,LINK   *#DISUSER%      DISABLE USER
     4099   01 019F6    22800000 A            LI,8     0
     4100   01 019F7    358021B0              STW,8    ERRFLAG           RESET FLAG
     4101   01 019F8    0E0019FA              LPSD,0   MASTMOD3
     4102                                     BOUND    8
     4103   01 019FA    00003DF8 A   MASTMOD3 DATA     X'00003DF8'
     4104   01 019FB    10000000 A            DATA     X'10000000'       SET WK=01
     4105                            *
     4106                            ****     ENTER HERE ON CAL1 TRAP FOR THIS TEST.
     4107                            *
     4108         01 019FC           T38CAL1  EQU      %
     4109   01 019FC    EA6003C6              BAL,LINK   *#ENUSER%       ENABLE USER
     4110   01 019FD    70200392              LC       #SENSE
     4111   01 019FE    698019F5              BCS,8    LOPT38            SHORT LOOP IF SS1 SET
     4112   01 019FF    328021B0              LW,8     ERRFLAG           IF FLAG 0 NO TRAP TO X'40'
     4113   01 01A00    68301A04              BEZ      TOK17             TEST OK
     4114   01 01A01    22802966              LI,8     PLMSG12
     4115   01 01A02    6AF019B5              BAL,R15  ERWLP1            OTHERWISE REPORT ERROR
     4116   01 01A03    680019F5              B        LOPT38            RETURN HERE IF SS1=1;SS3=0
     4117   01 01A04    70200392     TOK17    LC       #SENSE
     4118   01 01A05    694019F5              BCS,4    LOPT38            LONG LOOP IF SS2 SET
     4119   01 01A06    6AF01DE4              BAL,R15  ALLWLREG
     4120   01 01A07    6800109E              B        TST:CONT          NEXT TEST
     4121                            *
     4122                            ****     ENTER HERE ON WROTE PROTECT VIOLATION TRAP
     4123                            ****     FOR THIS TEST.
     4124                            *
     4125         01 01A08           T38ERTRP EQU      %
     4126   01 01A08    331021B0              MTW,1    ERRFLAG           SET ERROR FLAG
     4127   01 01A09    680019FC              B        T38CAL1
     4128                            *
     4129                                     BOUND    8
     4130         01 01A0A           TIOWLT   EQU      %
     4131   01 01A0A    CD80000D A            TIO,8    *13
     4132   01 01A0B    04A00000 A            CAL1,10  0
     4133                            *
     4134                            *
     4135                            ****     CHECK THAT MBS,TBS,PSM AND STM INSTRUCTIONS
     4136                            ****     CAUSE A TRAP TO X'40' WHEN THERE EXECUTION
     4137                            ****     EXTENDS TO A PAGE OF MEMORY WHICH IS
     4138                            ****     WRITE LOCK PROTECTED
     4139                            *
     4140         01 01A0C           TST39WLP4  EQU    %
     4141   01 01A0C    6AF01CB2              BAL,R15  STSWL             STATUS
     4142   01 01A0D    32802156              LW,8     T39LUPAD
     4143   01 01A0E    35801637              STW,8    T24OKTRP+1        STORE SHORT LOOP ADDR
     4144   01 01A0F    22801A25              LI,8     LOPT39
     4145   01 01A10    49802173              OR,8     HEX68             ADD BRANCH OP CODE
     4146   01 01A11    35801649              STW,8    SLOOP             STORE SHORT LOOP ADDR
     4147   01 01A12    32801736              LW,8     ATEMP             INITIALISE ADDR OF
     4148   01 01A13    35801735              STW,8    TEMP              TEMP STORAGE
     4149   01 01A14    32801734              LW,8     AMOD              SET POINTER TO
     4150   01 01A15    35801733              STW,8    LIST              FIRST MODULE
     4151   01 01A16    22800001 A            LI,8     1                 SET BYTE 2 OF FIRST WORD OF MODULES
     4152   01 01A17    22100002 A            LI,X1    2                 1 AND 3 TO A 1 TO DEFINE THAT
     4153   01 01A18    758216C5              STB,8    MOD1,X1           THESE MODULES ARE NOT TO BE
     4154   01 01A19    758216DB              STB,8    MOD3,X1           CHECKED DURING WL TESTS
     4155   01 01A1A    228FFFFF A            LI,8     -1
     4156   01 01A1B    35802118              STW,8    MODULE#           RESET MODULE #
     4157         01 01A1C           GETNMOD2 EQU      %
     4158   01 01A1C    F2801733              LB,8     *LIST             GET WL BITS FOR TEST
     4159   01 01A1D    3580230C              STW,8    WLLOAD            SAVE BITS
     4160   01 01A1E    25800004 A            SLS,8    4                 SET WL=11 FOR PAGE 1D
     4161   01 01A1F    20800040 A            AI,8     X'40'             SET WL=01 FOR PAG 1C;REST 0'S
     4162   01 01A20    22600008 A            LI,R6    R8
     4163   01 01A21    3270233C              LW,R7    Y01002
     4164   01 01A22    6F620000 A            MMC,R6   1                 LOAD WL FOR PAGES 10--1F
     4165   01 01A23    6AF015F6              BAL,R15  DRIVER            LOAD MODULE IN TEMP STOR
     4166   01 01A24    6AF01610              BAL,R15  LOADINST          LOAD INST AT X'3800';PAG 1C
     4167         01 01A25           LOPT39   EQU      %
     4168   01 01A25    6AF01617              BAL,R15  INITSTOR          INITIALISE SORC & DEST. AREAS
     4169   01 01A26    0E001A28              LPSD,0   MASTMOD4          SET WK=01 AND START EXECUTING
     4170                            *                                   INST FROM X'3800'
     4171                                     BOUND    8
     4172   01 01A28    00003800 A   MASTMOD4 DATA     X'00003800'
     4173   01 01A29    10000000 A            DATA     X'10000000'       SET WK=01
     4174                            *
     4175                            *
     4176         01 01636           T39OKTRP EQU      T24OKTRP
     4177                            *
     4178         01 01A2A           TEST39   EQU      %
     4179   01 01A2A    B2801733              LW,8     *LIST             GET FIRST WORD OF MODULE
     4180   01 01A2B    21800000 A            CI,8     0                 IF EQUAL ALL
     4181   01 01A2C    68301A2E              BE       %+2               MODULES DONE
     4182   01 01A2D    68001A1C              B        GETNMOD2          OTHERWISE GET NEXT MODULE
     4183   01 01A2E    70200392              LC       #SENSE
     4184   01 01A2F    69401A0D              BCS,4    TST39WLP4+1       IF SET LONG LOOP
     4185   01 01A30    6800109E              B        TST:CONT          NEXT TEST
     4186                            *
     4187                            *
     4188         01 01A31           ERWLP4   EQU      %
     4189   01 01A31    3310219A              MTW,1    ECWL              UPDATE ERROR COUNTER
     4190   01 01A32    32802127              LW,8     WL#
     4191   01 01A33    68001660              B        XERPLT7
     4192                            *
     4193                            *
     4194                            ****     CHECK THAT HIGH ORDER 5 BITS OF MAP REGISTER
     4195                            ****     ARE FORCED TO ZERO'S WHEN EXECUTING A MMC INST
     4196                            ****     IN SIGMA 7 MODE(8 BIT FORMAT).
     4197                            *
     4198                            *
     4199         01 01A34           TST40MMC EQU      %
     4200   01 01A34    6AF01CB5              BAL,R15  STSMMC
     4201   01 01A35    22801FFF A            LI,8     X'1FFF'           PATTERN TO BE LOADED
     4202   01 01A36    6AB01DC7              BAL,R11  ODDEVEN           INITIALLY IN THE MAP REG
     4203   01 01A37    25800010 A            SLS,8    16                AS PER THE TEST PAGE ADDRESS
     4204   01 01A38    3270232D              LW,7     TESTPAGE
     4205   01 01A39    6AB01DBD              BAL,R11  MMCMAP1           LOAD MAP
     4206         01 01A3A           LOPT40   EQU      %
     4207   01 01A3A    32802349              LW,8     XFF               SET UP MAP CONTROL  IMAGE WORD
     4208   01 01A3B    3210232D              LW,X1    TESTPAGE          TO LOAD THE MAP REG( AS PER
     4209   01 01A3C    4B102333              AND,X1   X03               TEST PAGE ADDRESS)IN
     4210   01 01A3D    67021A7D              EXU      SHIFTR8,X1        8 BIT FORM(SIGMA 7 COMPATIBLE)
     4211   01 01A3E    22600008 A            LI,R6    R8
     4212   01 01A3F    3270232D              LW,7     TESTPAGE
     4213   01 01A40    2570007E A            SLS,7    -2
     4214   01 01A41    2570000B A            SLS,7    11                SET UP CONTROL START
     4215   01 01A42    73100007 A            MTB,1    R7                SET WORD COUNT
     4216   01 01A43    6F680000 A            MMC,6    4                 LOAD MAP IN 8 BIT FORM
     4217   01 01A44    3210232D              LW,X1    TESTPAGE          LOAD TEST PAFE ADDR IN
     4218   01 01A45    25100009 A            SLS,X1   9                 BITS 15-22 OF X1
     4219   01 01A46    35102168              STW,1    PAGEADR           STORE VP ADDR
     4220   01 01A47    22800000 A            LI,8     0                 CLEAR LRA REG
     4221   01 01A48    02200080 A            LCI      8                 SET CC FOR WRD ADRR
     4222   01 01A49    2C802168              LRA,8    PAGEADR           READ MAP FOR TEST PAGE
     4223   01 01A4A    7400214C              STCF     ACTCC             SAVE CC
     4224   01 01A4B    70200392              LC       #SENSE
     4225   01 01A4C    69801A3A              BCS,8    LOPT40            SHORT LOOP IF SS1 SET
     4226   01 01A4D    25800077 A            SLS,8    -9
     4227   01 01A4E    4B802340              AND,8    X1FFF             SAVE MAP BITS READ
     4228   01 01A4F    218000FF A            CI,8     X'FF'             IF MAP READ=MAP STORED
     4229   01 01A50    68301A52              BE       TOK18             TEST OK;HIGH ORDER 5 BITS ZEROD
     4230   01 01A51    6AF01A55              BAL,R15  ERMMC1            REPORT ERROR
     4231   01 01A52    70200392     TOK18    LC       #SENSE            CHECK FOR SS2.IF SET
     4232   01 01A53    69401A36              BCS,4    TST40MMC+2        BRANCH FOR LONG LOOP
     4233   01 01A54    6800109E              B        TST:CONT          NEXT TEST
     4234                            *
     4235                            *
     4236         01 01A55           ERMMC1   EQU      %
     4237   01 01A55    35802149              STW,8    SAVRESLT          SAVE RESULT
     4238   01 01A56    6AD01A6F              BAL,R13  ERRMMC
     4239   01 01A57    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     4240   01 01A58    6D000032 A            #HTECON  TESTPAGE          CONVERT TEST PAGE ADDRESS
            01 01A59    EA6003C3
            01 01A5A    0000232D
            01 01A5B    6D000022 A
     4241   01 01A5C    25600001 A            SLS,LINK   1
     4242   01 01A5D    20600003 A            AI,LINK  3
     4243   01 01A5E    528C0000 A            LH,8     0,LINK
     4244   01 01A5F    55802A42              STH,8    MMCMSG2+3         STORE TEST PAGE ADDR
     4245   01 01A60    6D000032 A            #HTECON  SAVRESLT          CONVERT MAP BITS READ
            01 01A61    EA6003C3
            01 01A62    00002149
            01 01A63    6D000022 A
     4246   01 01A64    328C0001 A            LW,8     1,LINK
     4247   01 01A65    35802A50              STW,8    MMCMSG2+17        STORE RESULT
     4248   01 01A66    EA6003C5              #PRINT   MMCMSG1,C1        PRINT ERROR MESSAGES
            01 01A67    EA6003CD
            01 01A68    C100A8C8 A
            01 01A69    EA6003C6
     4249   01 01A6A    EA6003C5              #PRINT   MMCMSG2
            01 01A6B    EA6003CD
            01 01A6C    C000A8FC A
            01 01A6D    EA6003C6
     4250   01 01A6E    68001C89              B        COMMON
     4251                            *
     4252                            *
     4253         01 01A6F           ERRMMC   EQU      %
     4254   01 01A6F    3310219C              MTW,1    ECMMC             UPDATE ERROR COUNTER
     4255   01 01A70    70200392              LC       #SENSE            CHECK FOR SS4.IF SET
     4256   01 01A71    E910000D A            BCS,1    *R13              SKIP ERROR PRINT OUT
     4257   01 01A72    3310000D A            MTW,1    R13               INCR RETURN ADDR
     4258   01 01A73    32800393              LW,8     #HDRFLG           IF HEADING FLAG SET
     4259   01 01A74    318003F2              CW,8     TCR:NUM           IF FLAG=CUR. TST #
     4260   01 01A75    E830000D A            BE       *R13              SKIP HEADING OUTPUT
     4261   01 01A76    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     4262   01 01A77    558029C8              STH,8    MMCHD1+9          STORE IN BUFFER
     4263   01 01A78    EA6003C5              #PRINT   MMCHD1,C1         PRINT HEADING
            01 01A79    EA6003CD
            01 01A7A    C100A6FC A
            01 01A7B    EA6003C6
     4264   01 01A7C    E800000D A            B        *R13              EXIT
     4265                            *
     4266                            *
     4267   01 01A7D    25800018 A   SHIFTR8  SLS,R8   24                SET MAP PATT IN BYTE 0
     4268   01 01A7E    25800010 A            SLS,R8   16                SET MAP PATT IN BYTE1
     4269   01 01A7F    25800008 A            SLS,R8   8                 SET MAP PATT IN BYTE 2
     4270   01 01A80    25800000 A            SLS,R8   0                 SET MAP PATT IN BYTE 3
     4271                            *
     4272                            *
     4273                            *
     4274                            *
     4275                            ****     CHECK THAT WHEN EXECUTING MMC INSTRUCTION IN
     4276                            ****     MASTER PROTECTED MODE A PROTECTION VIOLATION CHECK
     4277                            ****     IS MADE CORRECTLY AND IF A VIOLATION OCCURS
     4278                            ****     MAP REGISTERS AND GENERAL REGISTERS ARE
     4279                            ****     NOT ALTERED.
     4280                            *
     4281                            *
     4282         01 01A81           TST43MMC EQU      %
     4283   01 01A81    6AF01CB5              BAL,R15  STSMMC
     4284   01 01A82    6AF01DD4              BAL,R15  ALMAPREG
     4285         01 01A83           LOPT43   EQU      %
     4286   01 01A83    22800000 A            LI,8     0
     4287   01 01A84    358021B0              STW,8    ERRFLAG           CLEAR ERROR FLAG
     4288   01 01A85    22602248              LI,R6    IMGMAP            INITIALLY LOAD MAP REGS 1C,1D
     4289   01 01A86    32702348              LW,R7    Y020038           1E &1F WITH 1C,1D,1E & 1F RESPT.
     4290   01 01A87    6F6A0000 A            MMC,R6   5                 LOAD 1C,1D,1E AND 1F
     4291   01 01A88    12801A98              LD,8     TSTINST4          LOAD TEST INST(MMC)
     4292   01 01A89    15803BF8 A            STD,8    X'3BF8'           AT X'3BF8'  --PAGE 1D
     4293   01 01A8A    228FFFFF A            LI,8     -1                SET TEST MAP CONTROL IMAGE WORD
     4294   01 01A8B    35803E00 A            STW,8    X'3E00'           AT X'3E00'---PAGE 1F
     4295   01 01A8C    22800003 A            LI,8     3                 SET AC=11 FOR PAGE 1F
     4296   01 01A8D    22600008 A            LI,R6    R8                FOR PAGES 10 TO 1E AC=00
     4297   01 01A8E    3270233C              LW,R7    Y01002            SET WORD COUNT AND CONTROL START
     4298   01 01A8F    6F640000 A            MMC,R6   2                 LOAD AC REGS
     4299   01 01A90    22603E00 A            LI,R6    X'3E00'           LOAD MAP CONTROL IMAGE ADDR
     4300   01 01A91    3270233D              LW,R7    Y01003C           SET R7 TO LOAD MAP REGS 1E & 1F
     4301   01 01A92    3560218B              STW,R6   WORK1             SAVE R6
     4302   01 01A93    3570218C              STW,R7   WORK2             SAVE R7
     4303   01 01A94    0E001A96              LPSD,0   MASTPROT          SET PROGRAM TO MASTER,MAP &
     4304                            *                                   PROTECT MODE
     4305                                     BOUND    8
     4306   01 01A96    00403BF8 A   MASTPROT DATA     X'00403BF8'       PAGE 1D MAPS TO ITSELF
     4307   01 01A97    00800000 A            DATA     X'00800000'       MASTER PROT BIT SET
     4308                            *
     4309                                     BOUND    8
     4310         01 01A98           TSTINST4 EQU      %
     4311   01 01A98    6F6A0000 A            MMC,R6   5                 EXECUTE THIS INST IN MAST,MAP,PROT
     4312   01 01A99    04B00000 A            CAL1,11  0
     4313                            *
     4314                            *
     4315                            ***************************************************************
     4316                            ****     ENTER HERE WHEN THERE IS AN ACCESS PROTECT
     4317                            ****     VIOLATION WHEN EXECUTING A MMC INST IN MASTER
     4318                            ****     PROTECT MODE.
     4319                            ***************************************************************
     4320                            *
     4321         01 01A9A           T43OKTRP EQU      %
     4322   01 01A9A    3280212A              LW,8     YES               LOAD A 'YES' IN MEG BUFFER
     4323   01 01A9B    35802ABD              STW,8    MMCMSG5B+5
     4324   01 01A9C    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     4325   01 01A9D    69801A83              BCS,8    LOPT43            BRANCH FOR SHORT LOOP
     4326   01 01A9E    2210001E A            LI,X1    X'1E'             SET PAGE 1E ADDR IN
     4327   01 01A9F    25100009 A            SLS,X1   9                 BITS 15-22 OF X1 TO READ MAP REG 1E
     4328   01 01AA0    35102168              STW,1    PAGEADR           STORE VP ADDR
     4329   01 01AA1    22800000 A            LI,8     0                 CLEAR LRA REG
     4330   01 01AA2    02200080 A            LCI      8                 SET CC FOR WRD ADDR
     4331   01 01AA3    2C802168              LRA,8    PAGEADR           READ MAP REG X'1E'
     4332   01 01AA4    25800077 A            SLS,R8   -9
     4333   01 01AA5    4B802340              AND,8    X1FFF             SAVE MAP READ
     4334   01 01AA6    2180001E A            CI,R8    X'1E'             SHOUL BE EQUAL IF MAP
     4335   01 01AA7    68301AA9              BE       %+2               NOT CHANGED
     4336   01 01AA8    331021B0              MTW,1    ERRFLAG           OTHERWISE UPDATE ERROR COUNTER
     4337   01 01AA9    3580216E              STW,R8   MAPREAD           SAVE MAP READ
     4338   01 01AAA    328021BE              LW,8     SAVEREGS+6        GET R6 SAVED WHEN TRAPPED
     4339   01 01AAB    3180218B              CW,8     WORK1             TEST OK IF R6 NOT CHANGED
     4340   01 01AAC    68301AAE              BE       %+2
     4341   01 01AAD    331021B0              MTW,1    ERRFLAG           UPDATE ERROR FLAG
     4342   01 01AAE    35802174              STW,8    STOREAT           SAVE ACTUAL R6
     4343   01 01AAF    328021BF              LW,8     SAVEREGS+7        GET R7
     4344   01 01AB0    3180218C              CW,8     WORK2             TEST OK IF R7 NOT CHANGED
     4345   01 01AB1    68301AB3              BE       %+2
     4346   01 01AB2    331021B0              MTW,1    ERRFLAG
     4347   01 01AB3    35802149              STW,8    SAVRESLT          SAVE ACTUAL R7
     4348   01 01AB4    328021B0              LW,8     ERRFLAG
     4349   01 01AB5    68301AB8              BEZ      TOK19             NO ERRORS IF ZERO
     4350   01 01AB6    6AF01AC0              BAL,R15  ERMMC4            OTHERWISE REPORT ERROR
     4351   01 01AB7    68001A83              B        LOPT43            RETURN HERE IF SS1=1;SS3=0
     4352   01 01AB8    70200392     TOK19    LC       #SENSE            CHECK FOR SS2.IF SET
     4353   01 01AB9    69401A83              BCS,4    LOPT43            BRANCH FOR LONG LOOP
     4354   01 01ABA    6800109E              B        TST:CONT          NEXT TEST
     4355                            *
     4356                            *
     4357                            ****************************************************************
     4358                            ****     ENTER HERE ON A CAL1 TRAP FOR THIS TEST.
     4359                            ****************************************************************
     4360                            *
     4361         01 01ABB           T43CAL1  EQU      %
     4362   01 01ABB    02200000 A            LCI      0
     4363   01 01ABC    2B0021B8              STM,0    SAVEREGS          SAVE ALL REGS
     4364   01 01ABD    3280212B              LW,8     NO                STORE A 'NO' IN MSG BUFFER
     4365   01 01ABE    331021B0              MTW,1    ERRFLAG           SET ERROR FLAG
     4366   01 01ABF    68001A9B              B        T43OKTRP+1
     4367                            *
     4368                            *
     4369         01 01AC0           ERMMC4   EQU      %
     4370   01 01AC0    6AD01A6F              BAL,R13  ERRMMC
     4371   01 01AC1    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     4372   01 01AC2    6D000032 A            #HTECON  MAPREAD           CONVERT MAP READ
            01 01AC3    EA6003C3
            01 01AC4    0000216E
            01 01AC5    6D000022 A
     4373   01 01AC6    328C0001 A            LW,8     1,LINK
     4374   01 01AC7    35802AC1              STW,8    MMCMSG5B+9        STORE MAP READ
     4375   01 01AC8    6D000032 A            #HTECON  STOREAT           CONVERT ACTUAL R6
            01 01AC9    EA6003C3
            01 01ACA    00002174
            01 01ACB    6D000022 A
     4376   01 01ACC    2A8C0000 A            LM,8     0,LINK
     4377   01 01ACD    02200020 A            LCI      2
     4378   01 01ACE    2B802AC4              STM,8    MMCMSG5B+12       STORE R6
     4379   01 01ACF    6D000032 A            #HTECON  SAVRESLT          CONVERT ACTUAL R7
            01 01AD0    EA6003C3
            01 01AD1    00002149
            01 01AD2    6D000022 A
     4380   01 01AD3    2A8C0000 A            LM,8     0,LINK
     4381   01 01AD4    02200020 A            LCI      2
     4382   01 01AD5    2B802AC8              STM,8    MMCMSG5B+16       STORE R7
     4383   01 01AD6    EA6003C5              #PRINT   MMCMSG5,C1        PRINT ERROR MESSAGES
            01 01AD7    EA6003CD
            01 01AD8    C100AA54 A
            01 01AD9    EA6003C6
     4384   01 01ADA    EA6003C5              #PRINT   MMCMSG5A
            01 01ADB    EA6003CD
            01 01ADC    C000AA98 A
            01 01ADD    EA6003C6
     4385   01 01ADE    EA6003C5              #PRINT   MMCMSG5B
            01 01ADF    EA6003CD
            01 01AE0    C000AAE0 A
            01 01AE1    EA6003C6
     4386   01 01AE2    68001C89              B        COMMON
     4387                            *
     4388                            ****     CHECK THAT WRITE LOCK STORAGE IS TREATED AS A CIRCULAR SET.
     4389                            *
     4390                            *
     4391         01 01AE3           TST44MMC EQU      %
     4392   01 01AE3    6AF01CB5              BAL,R15  STSMMC
     4393   01 01AE4    6AF01DE4              BAL,R15  ALLWLREG          LOAD ALL WL REG WITH 0'S
     4394   01 01AE5    6AF01DF1              BAL,R15  MAPSELF
     4395         01 01AE6           LOPT44   EQU      %
     4396   01 01AE6    228FFFFF A            LI,8     -1
     4397   01 01AE7    358021D8              STW,8    MAPPTRN+16
     4398   01 01AE8    226021C8              LI,R6    MAPPTRN           SET CONTROL IMAGE ADDR
     4399   01 01AE9    3270234D              LW,R7    Y11               WORD COUNT=17 WORDS
     4400   01 01AEA    6F620000 A            MMC,R6   1                 LOAD 17 WORDS;REG    0 TO BE
     4401                            *                                   OVERWRITTEN WITH ALL 1'S
     4402   01 01AEB    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     4403   01 01AEC    69801AE6              BCS,8    LOPT44            BRANCH FOR SHORT LOOP
     4404   01 01AED    22100000 A            LI,X1    0
     4405   01 01AEE    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER
     4406   01 01AEF    35102168              STW,1    PAGEADR           STORE VP ADDR
     4407   01 01AF0    22800000 A            LI,8     0                 CLEAR LRA REG
     4408   01 01AF1    02200080 A            LCI      8                 SET CC FOR WRD ADDR
     4409   01 01AF2    2C802168              LRA,8    PAGEADR           READ WL REGS
     4410   01 01AF3    25800208 A            SCS,8    8
     4411   01 01AF4    4B802333              AND,8    X03
     4412   01 01AF5    21800003 A            CI,8     3                 IF EQ. REG 0 OVERWRITTEN
     4413   01 01AF6    68301AF9              BE       TOK20             TEST OK
     4414   01 01AF7    6AF01AFE              BAL,R15  ERMMC5            OTHERWISE REPORT ERROR
     4415   01 01AF8    68001AE6              B        LOPT44            RETURN HERE IF SS1=1;SS3=0
     4416   01 01AF9    70200392     TOK20    LC       #SENSE            CHECK FOR SS2.IF SET
     4417   01 01AFA    69401AE6              BCS,4    LOPT44            BRANCH FOR LONG LOOP
     4418   01 01AFB    22800000 A            LI,8     0
     4419   01 01AFC    358021D8              STW,8    MAPPTRN+16
     4420   01 01AFD    6800109E              B        TST:CONT          NEXT TEST
     4421                            *
     4422                            *
     4423         01 01AFE           ERMMC5   EQU      %
     4424   01 01AFE    6AD01A6F              BAL,R13  ERRMMC
     4425   01 01AFF    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     4426   01 01B00    EA6003C5              #PRINT   MMCMSG6,C1        PRINT ERROR MESSAGE
            01 01B01    EA6003CD
            01 01B02    C100AB28 A
            01 01B03    EA6003C6
     4427   01 01B04    68001C89              B        COMMON
     4428                            *
     4429                            *
     4430                            ****     CHECK THAT ON EXECUTING A MMC INSTRUCTION
     4431                            ****     WITH ILLEGAL CONTROL BITS(BITS 12-14) AN INSTRUCTION
     4432                            ****     EXCEPTION TRAP OCCURS TO X'4D' WITH TRAP
     4433                            ****     CONDITION CODE 3 SET.
     4434                            *
     4435         01 01B05           TST45MMC EQU      %
     4436   01 01B05    6AF01CB5              BAL,R15  STSMMC            STATUS
     4437   01 01B06    32802135              LW,8     IETMMC            SET UP XPSD AT
     4438   01 01B07    3580004D A            STW,8    X'4D'             X'4D'
     4439   01 01B08    328021AA              LW,8     SCSL3
     4440   01 01B09    35801B1E              STW,8    SCSL              STORE A SCS,8  3  INST
     4441   01 01B0A    228000F2 A            LI,8     X'F2'
     4442   01 01B0B    75802AF4              STB,8    MMCMSG7B+11       STORE EXP. TCC
     4443   01 01B0C    328021A8              LW,8     MMCILCB           STORE A MMC INST WITH
     4444   01 01B0D    35801B14              STW,8    MMCINST           ILLEGAL CONTROL BITS=6F600000
     4445         01 01B0E           LOPT45   EQU      %
     4446   01 01B0E    22800000 A            LI,8     0
     4447   01 01B0F    35802189              STW,8    TRAPFLG           RESET TRAP FLAG
     4448   01 01B10    3580218A              STW,8    TRAPCC            RESET TRAP CC LOCATION
     4449   01 01B11    226021C8              LI,6     MAPPTRN           SET UP R6 AND R7
     4450   01 01B12    32702345              LW,7     Y01               FOR MMC INST
     4451   01 01B13    02200000 A            LCI      0
     4452   01 01B14    00000000 A   MMCINST  DATA     0                 X'6F600000' OR X'6F720000'
     4453                            ****     RETURN HERE FROM IET ROUTINE FOR THIS TEST
     4454   01 01B15    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     4455   01 01B16    69801B0E              BCS,8    LOPT45            BRANCH FOR SHORT LOOP
     4456   01 01B17    32802189              LW,8     TRAPFLG           CHECK FLAG
     4457   01 01B18    69301B1D              BNEZ     TOK21             OK IF SET
     4458   01 01B19    32902129              LW,9     NOT               PUT 'NOT' IN MSG BUFF
     4459   01 01B1A    6AF01B30     ER12     BAL,R15  ERMMC6            OTHERWISE REPORT ERROR
     4460   01 01B1B    68001B0E              B        LOPT45            RETURN HERE IF SS1=1;SS3=0
     4461   01 01B1C    68001B23              B        SS2CHK1
     4462                            *
     4463   01 01B1D    3280218A     TOK21    LW,8     TRAPCC            CHECK IF TCC3=1
     4464   01 01B1E    00000000 A   SCSL     DATA     0                 SCS,8 3  OR SCS,8 4
     4465   01 01B1F    3180233A              CW,8     X01               RITE TCC SET(TCC3 OR TCC4)
     4466   01 01B20    69401B23              BCS,4    SS2CHK1           YES
     4467   01 01B21    32902128              LW,9     DID               PUT 'DID' IN MSG BUFF
     4468   01 01B22    68001B1A              B        ER12              REPORT ERROR
     4469                            *
     4470         01 01B23           SS2CHK1  EQU      %
     4471   01 01B23    70200392              LC       #SENSE            CHECK FOR SS2.IF SET
     4472   01 01B24    69401B0E              BCS,4    LOPT45            BRANCH FOR LONG LOOP
     4473   01 01B25    32802137              LW,8     GUID:4D           RESTORE GUIDE'S XPSD
     4474   01 01B26    3580004D A            STW,8    X'4D'             AT X'4D'
     4475   01 01B27    6800109E              B        TST:CONT          NEXT TEST
     4476                            *
     4477                            *
     4478                            ****     ENTER HERE FOR INSTRUCTION EXCEPTION TRAP
     4479                            ****     FOR TESTS 45 AND 46.
     4480                            *
     4481                                     BOUND    8
     4482   01 01B28    00000000 A   MMCIET   DATA     0                 SAVE OLD PSD
     4483   01 01B29    00000000 A            DATA     0
     4484   01 01B2A    00001B2C              DATA     %+2               LOAD NEW PSD
     4485   01 01B2B    07000000 A            DATA     X'07000000'
     4486   01 01B2C    7400218A              STCF     TRAPCC            SAVE TRAP CC
     4487   01 01B2D    33102189              MTW,1    TRAPFLG           SET FLAG
     4488   01 01B2E    33201B28              MTW,2    MMCIET            UPDATE RETURN ADDR BY 2
     4489   01 01B2F    0E101B28              LPSD,1   MMCIET            CLEAR PDF AND EXIT
     4490                            *
     4491                            *
     4492         01 01B30           ERMMC6   EQU      %
     4493   01 01B30    35902ADC              STW,9    MMCMSG7+1
     4494   01 01B31    6AD01A6F              BAL,R13  ERRMMC
     4495   01 01B32    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     4496   01 01B33    6D000032 A            #HTECON  MMCINST           CONVERT TEST INST
            01 01B34    EA6003C3
            01 01B35    00001B14
            01 01B36    6D000022 A
     4497   01 01B37    2A8C0000 A            LM,8     0,LINK
     4498   01 01B38    02200020 A            LCI      2
     4499   01 01B39    2B802AE5              STM,8    MMCMSG7+10        STORE TEST INST
     4500   01 01B3A    22901B14              LI,9     MMCINST           GET MMC INST ADDR
     4501   01 01B3B    6D000032 A            #HTECON  R9                CONVERT MMC INST ADDR
            01 01B3C    EA6003C3
            01 01B3D    00000009 A
            01 01B3E    6D000022 A
     4502   01 01B3F    328C0001 A            LW,8     1,LINK
     4503   01 01B40    35802AE8              STW,8    MMCMSG7+13        STORE MMC INST ADDR
     4504   01 01B41    EA6003C5              #PRINT   MMCMSG7,C1        PRINT MESSAGE
            01 01B42    EA6003CD
            01 01B43    C100AB6C A
            01 01B44    EA6003C6
     4505   01 01B45    32802189              LW,8     TRAPFLG           FLAG SET
     4506   01 01B46    68301C89              BEZ      COMMON            NO;EXIT
     4507   01 01B47    228FFFFE A            LI,8     -2
     4508   01 01B48    66801B28              AWM,8    MMCIET            CORRECT TRAP ADDR
     4509   01 01B49    6D000032 A            #HTECON  MMCIET            CONVERT PSW1
            01 01B4A    EA6003C3
            01 01B4B    00001B28
            01 01B4C    6D000022 A
     4510   01 01B4D    2A8C0000 A            LM,8     0,LINK
     4511   01 01B4E    02200020 A            LCI      2
     4512   01 01B4F    2B802AEB              STM,8    MMCMSG7B+2        STORE PSW1
     4513   01 01B50    6D000032 A            #HTECON  MMCIET+1          CONVERT PSW2
            01 01B51    EA6003C3
            01 01B52    00001B29
            01 01B53    6D000022 A
     4514   01 01B54    2A8C0000 A            LM,8     0,LINK
     4515   01 01B55    02200020 A            LCI      2
     4516   01 01B56    2B802AEF              STM,8    MMCMSG7B+6        STORE PSW2
     4517   01 01B57    6D000032 A            #HTECON  TRAPCC            CONVERT TCC
            01 01B58    EA6003C3
            01 01B59    0000218A
            01 01B5A    6D000022 A
     4518   01 01B5B    25600002 A            SLS,LINK   2
     4519   01 01B5C    728C0000 A            LB,8     0,LINK
     4520   01 01B5D    75802AF8              STB,8    MMCMSG7B+15       STORE TCC
     4521   01 01B5E    EA6003C5              #PRINT   MMCMSG7B
            01 01B5F    EA6003CD
            01 01B60    C000ABA4 A
            01 01B61    EA6003C6
     4522   01 01B62    68001C89              B        COMMON
     4523                            *
     4524                            *
     4525                            *
     4526                            ****     CHECK THAT WHEN A ODD REGISTER IS SPECIFIED
     4527                            ****     IN A MMC INST A INSTRUCTION EXCEPTION TRAP
     4528                            ****     SHOULD OCCUR TO X'4D' WITH TRAP CONDITION
     4529                            ****     CODE 4 SET.
     4530                            *
     4531         01 01B63           TST46MMC EQU      %
     4532   01 01B63    6AF01CB5              BAL,R15  STSMMC            STATUS
     4533   01 01B64    32802135              LW,8     IETMMC            SET UP XPSD AT
     4534   01 01B65    3580004D A            STW,8    X'4D'             X'4D'
     4535   01 01B66    32802185              LW,8     SCSL4
     4536   01 01B67    35801B1E              STW,8    SCSL              STORE A SCS,8  4 INST
     4537   01 01B68    228000F1 A            LI,8     X'F1'
     4538   01 01B69    75802AF4              STB,8    MMCMSG7B+11       STORE EXP. TCC
     4539   01 01B6A    328021A9              LW,8     MMCODDR           STORE A MMC INST WITH
     4540   01 01B6B    35801B14              STW,8    MMCINST           AN ODD REG
     4541   01 01B6C    68001B0E              B        LOPT45
     4542                            *
     4543                            *
     4544                            ****     CHECK THAT THE OPERATION OF THE MMC INSTRUCTION
     4545                            ****     IS NOT AFFECTED WHEN THERE IS A VALUE IN THE
     4546                            ****     REFERENCE ADDRESS FIELD OF THE INSTRUCTION.
     4547                            *
     4548         01 01B6D           TST47MMC EQU      %
     4549   01 01B6D    6AF01CB5              BAL,R15  STSMMC            STATUS
     4550   01 01B6E    6AF01DE4              BAL,R15  ALLWLREG          LOAD ALL WL REG'S WITH 0'S
     4551   01 01B6F    6AF01DF1              BAL,15   MAPSELF           MAP ONE TO ONE
     4552   01 01B70    22800003 A            LI,8     3
     4553   01 01B71    22600008 A            LI,6     R8                SET UP R6 & R7 TO LOAD WL
     4554   01 01B72    3270233C              LW,7     Y01002            REG IF WITH 11
     4555         01 01B73           LOPT47   EQU      %                 MMC TO LOAD WL;ALL  1'S IN REF
     4556   01 01B73    6F63FFFF A            DATA     X'6F63FFFF'       FIELD SHOULD NOT EFFECT MMC
     4557   01 01B74    70200392              LC       #SENSE
     4558   01 01B75    69801B73              BCS,8    LOPT47            SHORT LOOP IF SS1 SET
     4559   01 01B76    22100000 A            LI,X1    0
     4560   01 01B77    3510216D              STW,1    READVP            RESET READ VP ADDR
     4561   01 01B78    20100010 A            AI,1     X'10'             ADD VALUE TO BYPASS CROSSOVER
     4562   01 01B79    35102168     NWLREG   STW,1    PAGEADR           STORE LRA OPERAND
     4563                            *                                   NOW READ ALL WL  REG;ALL SHOULD
     4564                            *                                   BE 0'S EXCEPT WL=11
     4565                            *                                   FOR PAGE 1F.
     4566   01 01B7A    22800000 A            LI,8     0                 CLEAR LRA REG
     4567   01 01B7B    02200080 A            LCI      8                 SET CC FOR WRD ADDR
     4568   01 01B7C    2C802168              LRA,8    PAGEADR           READ WL REGS
     4569   01 01B7D    25800208 A            SCS,8    8
     4570   01 01B7E    4B802333              AND,8    X03
     4571   01 01B7F    3580230B              STW,8    WLREAD            SAVE WL READ
     4572   01 01B80    22800000 A            LI,8     0
     4573   01 01B81    3210216D              LW,1     READVP            IS IT =1F
     4574   01 01B82    2110001F A            CI,1     X'1F'
     4575   01 01B83    69301B85              BNE      %+2               NO
     4576   01 01B84    22800003 A            LI,8     3                 DEFINE EXP WL BITS
     4577   01 01B85    3580230C              STW,8    WLLOAD            SAVE THEM
     4578   01 01B86    3180230B              CW,8     WLREAD            SAME AS READ
     4579   01 01B87    68301B8A              BE       TOK22             YES
     4580   01 01B88    6AF01B94              BAL,R15  ERMMC8            OTHERWISE REPORT ERROR
     4581   01 01B89    68001B73              B        LOPT47            RETURN HERE IF SS1=1;SS3=0
     4582   01 01B8A    3210216D     TOK22    LW,1     READVP
     4583   01 01B8B    3110216A              CW,1     LASTPAGE          CHECK IF LAST WL REG  READ
     4584   01 01B8C    68301B91              BE       SS2CHK3           EXIT
     4585   01 01B8D    32102168              LW,1     PAGEADR           GET OPERAND
     4586   01 01B8E    20100200 A            AI,1     X'200'            INCR READ VP ADDR
     4587   01 01B8F    3310216D              MTW,1    READVP            INCR READ VP ADDR
     4588   01 01B90    68001B79              B        NWLREG            READ NEXT WL REG
     4589                            *
     4590         01 01B91           SS2CHK3  EQU      %
     4591   01 01B91    70200392              LC       #SENSE
     4592   01 01B92    69401B6E              BCS,4    TST47MMC+1        LONG LOOP IF SS2 SET
     4593   01 01B93    6800109E              B        TST:CONT          NEXT TEST
     4594                            *
     4595                            *
     4596         01 01B94           ERMMC8   EQU      %
     4597   01 01B94    6AD01A6F              BAL,R13  ERRMMC
     4598   01 01B95    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     4599   01 01B96    6D000032 A            #HTECON  LOPT47            CONVERT TEST INST
            01 01B97    EA6003C3
            01 01B98    00001B73
            01 01B99    6D000022 A
     4600   01 01B9A    2A8C0000 A            LM,8     0,LINK
     4601   01 01B9B    02200020 A            LCI      2
     4602   01 01B9C    2B802AFB              STM,8    MMCMSG9+2         STORE TEST MMC INST
     4603   01 01B9D    6D000032 A            #HTECON  READVP            CONVERT WL  REG READ
            01 01B9E    EA6003C3
            01 01B9F    0000216D
            01 01BA0    6D000022 A
     4604   01 01BA1    328C0001 A            LW,8     1,LINK
     4605   01 01BA2    4B802336              AND,8    Y4040
     4606   01 01BA3    35802B04              STW,8    MMCMSG9+11        STORE WL  PAGE READ
     4607   01 01BA4    6D000032 A            #BTECON  WLLOAD            CONVERT WL  BITS LOADED
            01 01BA5    EA6003C4
            01 01BA6    0000230C
            01 01BA7    6D000022 A
     4608   01 01BA8    328C0007 A            LW,8     7,LINK
     4609   01 01BA9    55802B07              STH,8    MMCMSG9+14        STORE EXP DATA
     4610   01 01BAA    6D000032 A            #BTECON  WLREAD            CONVERT ACTUAL DATA
            01 01BAB    EA6003C4
            01 01BAC    0000230B
            01 01BAD    6D000022 A
     4611   01 01BAE    328C0007 A            LW,8     7,LINK
     4612   01 01BAF    55802B0A              STH,8    MMCMSG9+17        STORE ACTUAL DATA
     4613   01 01BB0    EA6003C5              #PRINT   MMCMSG9
            01 01BB1    EA6003CD
            01 01BB2    C000ABE4 A
            01 01BB3    EA6003C6
     4614   01 01BB4    68001C89              B        COMMON
     4615                            *
     4616                            *
     4617                            ****     CHECK THAT IF MMC INDIRECTLY ADDRESSED AND
     4618                            ****     INDIRECT REFERENCE ADDRESS IS NON-EXISTANT
     4619                            ****     THEN A TRAP TO X'40' SHOULD NOT OCCUR .
     4620                            *
     4621         01 01BB5           TST48MMC EQU      %
     4622   01 01BB5    3280232E              LW,8     LSTADRS           SKIP THIS TEST IF
     4623   01 01BB6    31802343              CW,8     X1FFFF            MEM SIZE G.E. TO 128K
     4624   01 01BB7    6810109E              BGE      TST:CONT
     4625   01 01BB8    6AF01CB5              BAL,R15  STSMMC            STATUS
     4626   01 01BB9    6AF01DE4              BAL,R15  ALLWLREG
     4627         01 01BBA           LOPT48   EQU      %
     4628   01 01BBA    22900000 A            LI,9     0
     4629   01 01BBB    359021B0              STW,9    ERRFLAG           RESET FLAG
     4630                            *                                   MMC WITH IND REF ADDR NON-EXIST.
     4631   01 01BBC    EF63FFFF A   NONXMMC  DATA     X'EF63FFFF'       NO TRAP TO X'40';NO EFECT ON MMC
     4632   01 01BBD    70200392              LC       #SENSE
     4633   01 01BBE    69801BBA              BCS,8    LOPT48            SHORT LOOP IS SS1 SET
     4634   01 01BBF    328021B0              LW,8     ERRFLAG           IF FLAG NOT SET
     4635   01 01BC0    68301BC3              BEZ      SW2               NO TRAP TO X'40';TEST OK.
     4636   01 01BC1    6AF01BC9              BAL,R15  ERMMC9            OTHERWISE REPORT ERROR
     4637   01 01BC2    68001BBA              B        LOPT48            RETURN HERE IF SS1=1;SS3=0
     4638         01 01BC3           SW2      EQU      %
     4639   01 01BC3    70200392              LC       #SENSE
     4640   01 01BC4    69401BBA              BCS,4    LOPT48
     4641   01 01BC5    6800109E              B        TST:CONT          NEXT TEST
     4642                            *
     4643                            ****     ENTER HERE ON A NON-ALLOWED OPERATION TRAP
     4644                            ****     FOR THIS TEST
     4645                            *
     4646         01 01BC6           T48ERTRP EQU      %
     4647   01 01BC6    22800001 A            LI,8     1
     4648   01 01BC7    358021B0              STW,8    ERRFLAG           SET ERROR FLAG
     4649   01 01BC8    68001BBD              B        NONXMMC+1
     4650                            *
     4651                            *
     4652         01 01BC9           ERMMC9   EQU      %
     4653   01 01BC9    6AD01A6F              BAL,R13  ERRMMC
     4654   01 01BCA    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     4655   01 01BCB    6D000032 A            #HTECON  NONXMMC           CONVERT TEST MMC INST
            01 01BCC    EA6003C3
            01 01BCD    00001BBC
            01 01BCE    6D000022 A
     4656   01 01BCF    2A8C0000 A            LM,8     0,LINK
     4657   01 01BD0    02200020 A            LCI      2
     4658   01 01BD1    2B802B13              STM,8    MMCMG10+8         STORE MMC INST
     4659   01 01BD2    EA6003C5              #PRINT   MMCMG10,C1        PRINT MESSAGES
            01 01BD3    EA6003CD
            01 01BD4    C100AC2C A
            01 01BD5    EA6003C6
     4660   01 01BD6    6AB01D17              BAL,11   TSTINFO5          OUTPUT TRAP INFO
     4661   01 01BD7    68001C89              B        COMMON
     4662                            *
     4663                            *
     4664                            *
     4665                            ****     CHECK THAT WHEN A MMC INST IS TRAPPED
     4666                            ****     (PARITY ERROR IN WL  CONTROL IMAGE WORD)
     4667                            ****     THE FOLLOWING THINGS ARE CORRECT
     4668                            ****     1.  TRAPPED ADDRESS POINTS TO THE MMC INST
     4669                            ****     2.  PSD BIT 60 IS SET.
     4670                            *
     4671         01 01BD8           TST49MMC EQU      %
     4672   01 01BD8    6AF01CB5              BAL,R15  STSMMC
     4673   01 01BD9    32802131              LW,8     XPSD4C            LOAD NEW XPSD ;MEM PARITY TRAP
     4674   01 01BDA    3580004C A            STW,8    X'4C'
     4675         01 01BDB           LOPT49   EQU      %
     4676   01 01BDB    3280234E              LW,8     X1234567          LOAD DATA IN WL  IMAGE AREA
     4677   01 01BDC    358022EB              STW,8    BADPARTY+1        WHERE BAD PARITY TO BE STORED
     4678   01 01BDD    02200020 A            LCI      2
     4679   01 01BDE    2D8022EB              LMS,R8   BADPARTY+1        SET BAD PARITY
     4680   01 01BDF    226022EA              LI,R6    BADPARTY
     4681   01 01BE0    3270234C              LW,R7    Y1
     4682         01 01BE1           MMCTRAP  EQU      %
     4683   01 01BE1    6F620000 A            MMC,R6   1                 LOAD WL  REG;MEM PARITY TRAP
     4684   01 01BE2    70200392              LC       #SENSE
     4685   01 01BE3    69801BDB              BCS,8    LOPT49            BRANCH FOR SHORT LOOP
     4686   01 01BE4    32801BF8              LW,8     MEMPAR
     4687   01 01BE5    4B802343              AND,8    X1FFFF            SAVE TRAPPED ADDR
     4688   01 01BE6    3580218F              STW,8    WORK5
     4689   01 01BE7    32801BF9              LW,8     MEMPAR+1
     4690   01 01BE8    4B802341              AND,8    XF
     4691   01 01BE9    35802190              STW,8    WORK6             SAVE PSD BIT 60 AT TRAP
     4692   01 01BEA    3280218F              LW,8     WORK5             CHECK TRAPPED ADDRESS
     4693   01 01BEB    3180218E              CW,8     EXPADR
     4694   01 01BEC    68301BF0              BE       TOK23             BRANCH IF OK
     4695   01 01BED    6AF01C03     ER13     BAL,R15  ERMMC10           REPORT ERROR
     4696   01 01BEE    68001BDB              B        LOPT49            RETURN HERE IF SS1=1;SS3=0
     4697   01 01BEF    68001BF3              B        LOOPSS2
     4698                            *
     4699   01 01BF0    32802190     TOK23    LW,8     WORK6             CHECK PSD BIT 60
     4700   01 01BF1    21800008 A            CI,8     8
     4701   01 01BF2    69301BED              BNE      ER13              ERROR IF NOT SET
     4702         01 01BF3           LOOPSS2  EQU      %
     4703   01 01BF3    70200392              LC       #SENSE
     4704   01 01BF4    69401BDB              BCS,4    LOPT49            BRANCH FOR LONG LOOP
     4705   01 01BF5    32802136              LW,8     GUID:4C           RESTORE GUIDE'S XPSD AT X'4C'
     4706   01 01BF6    3580004C A            STW,8    X'4C'
     4707   01 01BF7    6800109E              B        TST:CONT          NEXT TEST
     4708                            *
     4709                            ****     ENTER HERE ON A MEMORY PARITY ERROR
     4710                            ****     FOR THIS TEST.
     4711                            *
     4712                                     BOUND    8
     4713   01 01BF8    00000000 A   MEMPAR   DATA     0
     4714   01 01BF9    00000000 A            DATA     0
     4715   01 01BFA    00001BFC              DATA     %+2
     4716   01 01BFB    07000000 A            DATA     X'07000000'
     4717   01 01BFC    3280234E              LW,8     X1234567
     4718   01 01BFD    358022EB              STW,8    BADPARTY+1        RESTORE CORRECT PARITY
     4719   01 01BFE    022000C0 A            LCI      12                SET CC TO READ STATUS WORD 0
     4720   01 01BFF    2D8022EB              LMS,R8   BADPARTY+1        AND CLEAR ALL STAT. BITS;(MFI)
     4721   01 01C00    22800400 A            LI,8     X'400'            ARM    MFI
     4722   01 01C01    6D801200 A            WD,8     X'1200'
     4723   01 01C02    0E101BF8              LPSD,1   MEMPAR            EXIT
     4724                            *
     4725                            *
     4726         01 01C03           ERMMC10  EQU      %
     4727   01 01C03    6AD01A6F              BAL,R13  ERRMMC
     4728   01 01C04    68001C8F              B        SUPRESP           RETURN HERE IF SS4 SET
     4729   01 01C05    6D000032 A            #HTECON  EXPADR            CONVERT EXPECTED TRAP ADDR
            01 01C06    EA6003C3
            01 01C07    0000218E
            01 01C08    6D000022 A
     4730   01 01C09    328C0001 A            LW,8     1,LINK
     4731   01 01C0A    35802B35              STW,8    MMCM12+6
     4732   01 01C0B    6D000032 A            #HTECON  WORK5             CONVERT ACT TRAP ADDR
            01 01C0C    EA6003C3
            01 01C0D    0000218F
            01 01C0E    6D000022 A
     4733   01 01C0F    328C0001 A            LW,8     1,LINK
     4734   01 01C10    35802B41              STW,8    MMCM13+6
     4735   01 01C11    32802190              LW,8     WORK6             LOAD PSD 60
     4736   01 01C12    2580007D A            SLS,8    -3
     4737   01 01C13    4980234F              OR,8     XF0
     4738   01 01C14    75802B46              STB,8    MMCM13+11
     4739   01 01C15    EA6003C5              #PRINT   MMCMSG11,C1
            01 01C16    EA6003CD
            01 01C17    C100AC74 A
            01 01C18    EA6003C6
     4740   01 01C19    EA6003C5              #PRINT   MMCM12,C1
            01 01C1A    EA6003CD
            01 01C1B    C100ACBC A
            01 01C1C    EA6003C6
     4741   01 01C1D    EA6003C5              #PRINT   MMCM13
            01 01C1E    EA6003CD
            01 01C1F    C000ACEC A
            01 01C20    EA6003C6
     4742   01 01C21    68001C89              B        COMMON            EXIT
     4743                            *
     4744                            *
     4745                            *
     4746                            ***************************************************************
     4747                            ***********************************************************
     4748                            ****     ENTER HERE AFTER EVERY PASS OF THE PROGRAM.
     4749                            ***********************************************************
     4750                            ***********************************************************
     4751                            *
     4752         01 01C22           FINISH   EQU      %
     4753   01 01C22    EA6003C5              BAL,LINK  *#DISUSER%       DISABLE USER
     4754   01 01C23    3280219D              LW,8     PASS#
     4755   01 01C24    21800001 A            CI,8     1                 IF PASS#=1
     4756   01 01C25    68301C46              BE       FIRSTPAS          OUTPUT STATUS REPORT
     4757   01 01C26    31802193              CW,8     NCOUNT            IF PASS# EQUALS A SPECIFIC VALUE
     4758   01 01C27    69301C3E              BNE      CYCLE             OUTPUT STATUS REPORT
     4759   01 01C28    6A601C4B              BAL,LINK   STATMSGS        FORMAT AND OUTPUT STATUS REPORT
     4760   01 01C29    3280232A              LW,8     SICOUNT
     4761         01 01C2A           CHKCM    EQU      %                 CHK IF CM TO BE ALTERED
     4762   01 01C2A    66802193              AWM,8    NCOUNT
     4763   01 01C2B    32802317              LW,8     CMFIXED           IF CM WAS SPECIFIED TO BE FIXED
     4764   01 01C2C    69301C3E              BNEZ     CYCLE             BY THE USER CYCLE ON PROGRAM
     4765   01 01C2D    6C800045 A            RD,R8    X'45'             READ VM
     4766   01 01C2E    31802350              CW,8     Y001              IF SET VOLTAGES NOT MARGINED
     4767   01 01C2F    69401C31              BCS,4    CHNGCM            CHANGE CLOCK MARGIN
     4768   01 01C30    68001C3E              B        CYCLE             EXIT
     4769                            *
     4770         01 01C31           CHNGCM   EQU      %
     4771   01 01C31    2580020A A            SCS,R8   10                SET CM BITS 30 AND 31
     4772   01 01C32    35800009 A            STW,R8   R9                SAVE STATUS
     4773   01 01C33    4B802333              AND,8    X03
     4774   01 01C34    21800002 A            CI,8     2                 IF CM ALREADY EQUALS2(LOW)
     4775   01 01C35    68301C44              BE       LOWCM             CHANGE CM TO 0(NORMAL)
     4776   01 01C36    20900001 A            AI,9     1                 OTHERWISE INCREMENT CM BITS BY 1
     4777         01 01C37           SHIFTCM  EQU      %
     4778   01 01C37    32800009 A            LW,8     9
     4779   01 01C38    4B802333              AND,8    X03
     4780   01 01C39    4980234F              OR,8     XF0
     4781   01 01C3A    22100003 A            LI,X1    3
     4782   01 01C3B    75822BC6              STB,8    PLINE#J+5,X1      STORE NEW CM VALUE
     4783   01 01C3C    25900276 A            SCS,9    -10               SET CM BITS IN POSITION 8 AND 9
     4784   01 01C3D    6D900045 A            WD,9     X'45'             WRITE CM
     4785         01 01C3E           CYCLE    EQU      %
     4786   01 01C3E    3310219D              MTW,1    PASS#             UPDATE PASS COUNT
     4787   01 01C3F    328003F0              LW,8     TST:NUM
     4788   01 01C40    208FFFFF A            AI,8     -1
     4789   01 01C41    358003F2              STW,8    TCR:NUM
     4790   01 01C42    EA6003C6              BAL,LINK *#ENUSER%         ENABLE USER
     4791   01 01C43    6800109E              B        TST:CONT
     4792                            *
     4793         01 01C44           LOWCM    EQU      %
     4794   01 01C44    209FFFFE A            AI,9     -2                SET CM TO 0 (NORMAL)
     4795   01 01C45    68001C37              B        SHIFTCM
     4796                            *
     4797         01 01C46           FIRSTPAS EQU      %                 FIRST PASS
     4798   01 01C46    6A601C4B              BAL,LINK STATMSGS          FORMAT AND PRINT STATUS REPORT
     4799   01 01C47    3280232A              LW,8     SICOUNT
     4800   01 01C48    21800001 A            CI,8     1                 IF STATUS INTERVAL IS 1
     4801   01 01C49    68301C2A              BE       CHKCM             CHECK IF CM ARE TO BE CHANGED
     4802   01 01C4A    68001C3E              B        CYCLE             CYCLE ON PROGRAM
     4803                            *
     4804                            **********************************************************
     4805                            ****     THIS ROUTINE FORMATS AND OUTPUTS THE
     4806                            ****     STATUS REPORT.ALSO,IT SETS UP THE
     4807                            ****     CONTROL WORD FOR STATUS HEADING
     4808                            ****     EXPLANATION MESSAGES.
     4809                            **********************************************************
     4810                            *
     4811         01 01C4B           STATMSGS EQU      %
     4812   01 01C4B    35602195              STW,LINK SAVELINK          SAVE RETURN ADDRESS
     4813   01 01C4C    32802DBB              LW,8     AMPER%EXPL        SET UP CONTROL WORD FOR STATUS
     4814   01 01C4D    B58003CE              STW,8    *#ERRTEXT%        HEADING EXPLAINATION MESSAGES
     4815   01 01C4E    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     4816   01 01C4F    55802CA3              STH,8    STMSG1+1          STORE TEST # IN PRINT BUFFER
     4817   01 01C50    32802196              LW,8     ERCONTAD          SET UP INITIAL ADRES,CONTENTS OF
     4818   01 01C51    35801C54              STW,8    HTECON+1          WHICH TO BE CONVERTED TO EBCIDIC
     4819   01 01C52    227FFFF2 A            LI,X7    -14               SET UP INDEX
     4820   01 01C53    EA6003C3     HTECON   BAL,LINK *#HTE%            CONVERT TO EBCIDIC
     4821   01 01C54    00002197              GEN,10,22  0,ECLRA
     4822   01 01C55    2A8C0000 A            LM,8     0,LINK
     4823   01 01C56    217FFFFE A            CI,7     -2                IF PASS COUNT CONVERTED
     4824   01 01C57    68301C5D              BE       GETMARG           GET MARGINS
     4825   01 01C58    359E2CB4              STW,9    STMSG1+18,X7      STORE CONVERTED VALUE
     4826   01 01C59    22800001 A            LI,8     1
     4827   01 01C5A    66801C54              AWM,8    HTECON+1          INCREMENT ADDRESS
     4828   01 01C5B    20700001 A            AI,X7    1                 INCREMENT INDEX BY 2
     4829   01 01C5C    65701C53              BIR,X7   HTECON            AND GET NEXT VALUE
     4830         01 01C5D           GETMARG  EQU      %
     4831   01 01C5D    55902CB2              STH,9    STMSG1+16         STORE LEAST SIG. 2 DIGITS OF PAS#
     4832   01 01C5E    25900070 A            SLS,9    -16
     4833   01 01C5F    22100001 A            LI,X1    1                 SET INDEX
     4834   01 01C60    55922CB1              STH,9    STMSG1+15,X1      STORE 2 MOST SIG. DIGITS OF PAS#
     4835   01 01C61    229000D5 A            LI,9     X'D5'             DEFINE VM='N'(X'D5')
     4836   01 01C62    6C800045 A            RD,8     X'45'             READ CLOCK MARGINS
     4837   01 01C63    31802350              CW,8     Y001              IF BIT 11 SET VM NORMAL
     4838   01 01C64    69401C66              BCS,4    %+2
     4839   01 01C65    229000D4 A            LI,9     X'D4'             DEFINE VM='M'(X'D4')
     4840   01 01C66    22100003 A            LI,X1    3                 SET INDEX
     4841   01 01C67    75922CB3              STB,9    STMSG1+17,X1
     4842   01 01C68    2580020A A            SCS,8    10
     4843   01 01C69    4B802333              AND,8    X03
     4844   01 01C6A    35802194              STW,8    CLMARG            SAVE CM
     4845   01 01C6B    EA6003C3              BAL,LINK *#HTE%            CONVERT CLOCK MARGIN
     4846   01 01C6C    00002194              GEN,10,22  0,CLMARG
     4847   01 01C6D    328C0001 A            LW,8     1,LINK
     4848   01 01C6E    75802CB3              STB,8    STMSG1+17
     4849   01 01C6F    22802DA0              LI,8     WA(READSTAT+1)
     4850   01 01C70    31802195              CW,8     SAVELINK          '&' ENTRY
     4851   01 01C71    69301C7B              BNE      LPSTAT            NO
     4852   01 01C72    EA6003C5              #TYPE    STHD1             TYPE STATUS MESSAGE HEADING
            01 01C73    EA6003CC
            01 01C74    0000B240 A
            01 01C75    EA6003C6
     4853   01 01C76    EA6003C5              #TYPE    STMSG1            TYPE STATUS MESSAGE
            01 01C77    EA6003CC
            01 01C78    0000B288 A
            01 01C79    EA6003C6
     4854   01 01C7A    E8002195              B        *SAVELINK         EXIT
     4855         01 01C7B           LPSTAT   EQU      %
     4856   01 01C7B    32800393              LW,8     #HDRFLG           IF FLAG = ADDR OF STATUS HDG
     4857   01 01C7C    31802148              CW,8     ADRSTHD           SKIP HEADING OUTPUT
     4858   01 01C7D    68301C82              BE       MSGSTAT
     4859   01 01C7E    EA6003C5              #PRINT   STHD1,C1
            01 01C7F    EA6003CD
            01 01C80    C100B240 A
            01 01C81    EA6003C6
     4860   01 01C82    EA6003C5     MSGSTAT  #PRINT   STMSG1
            01 01C83    EA6003CD
            01 01C84    C000B288 A
            01 01C85    EA6003C6
     4861   01 01C86    32802148              LW,8     ADRSTHD           LOAD #HDRFLG
     4862   01 01C87    35800393              STW,8    #HDRFLG
     4863   01 01C88    E8002195              B        *SAVELINK
     4864                            *
     4865                            ***********************************************
     4866                            ****     THIS THE ENTRY FROM ERROT ROUTINE IF SS4 IS RESET.
     4867                            ****     ENTER HERE TO SET THE HEADING FLAG
     4868                            ****     AND THEN GO TO 'SUPRESP'.
     4869                            ***********************************************
     4870                            *
     4871         01 01C89           COMMON   EQU      %
     4872   01 01C89    328003F2              LW,8     TCR:NUM           SET HEADING FLAG
     4873   01 01C8A    35800393              STW,8    #HDRFLG
     4874   01 01C8B    702003AC              LC       #BRKOUT
     4875   01 01C8C    69301C8E              BCS,3    %+2               SKIP IF NO BREAK KEY
     4876   01 01C8D    8F9003CA              XPSD,9   *#RUNADDR%        GOTO GUIDE IDLE
     4877                            *                                   THIS IS DONE TO GET CONTROL
     4878                            *                                   BACK IF SS 2 &3 SET AND BREAK
     4879                            *                                   KEY IS HIT ON OOTPUTTING ERROR
     4880   01 01C8E    68001C8F              B        SUPRESP           EXIT
     4881                            *
     4882                            ***********************************************
     4883                            ****     ENTER HERE IF ERROR PRINTOUT IS
     4884                            ****     INHIBITED (SS4 SET ) OR AFTER
     4885                            ****     THE ERROR MESSAGES HAVE BEEN
     4886                            ****     PRINTED AND HEADING FLAG HAS
     4887                            ****     BEEN SET IN 'COMMON'.
     4888                            ****     THIS IS A COMMON ENTRY POINT
     4889                            ****     FROM ALL ERROR ROUTINES.EXIT
     4890                            ****     FROM THIS ROUTINE IS TO THE
     4891                            ****     ADDRESS STORED IN R15.
     4892                            ***********************************************
     4893                            *
     4894         01 01C8F           SUPRESP  EQU      %
     4895   01 01C8F    70200392              LC       #SENSE            CHECK FOR SS3.IF SET
     4896   01 01C90    69201C9A              BCS,2    INCRET            INHIBIT HALT ON ERROR
     4897   01 01C91    6AE01C9C              BAL,R14  CONTEST#          CONVERT TEST #
     4898   01 01C92    55802B71              STH,8    HALTONER+7
     4899   01 01C93    EA6003C5              #TYPE    HALTONER          TYPE HALLT ON ERROR MESSAGE
            01 01C94    EA6003CC
            01 01C95    0000ADA8 A
            01 01C96    EA6003C6
     4900   01 01C97    8F9003CA              XPSD,9   *#RUNADDR%        HALT ON ERROR
     4901   01 01C98    70200392              LC       #SENSE            CHECK FOR SS1.IF SET
     4902   01 01C99    E980000F A            BCS,8    *R15              BRANCH FOR SHORT LOOP
     4903   01 01C9A    3310000F A   INCRET   MTW,1    R15               INCR RETURN ADDR
     4904   01 01C9B    E800000F A            B        *R15              EXIT
     4905                            *
     4906                            ***************************************************
     4907                            ****     THIS ROUTINE CONVERTS TEST NUMBER TO EBCIDIC
     4908                            ****     AND LEAVES RESULT IN R8.
     4909                            ***************************************************
     4910                            *
     4911         01 01C9C           CONTEST# EQU      %
     4912   01 01C9C    6D000032 A            #HTECON  TCR:NUM           CONVERT TO EBCIDIC
            01 01C9D    EA6003C3
            01 01C9E    000003F2
            01 01C9F    6D000022 A
     4913   01 01CA0    328C0001 A            LW,8     1,LINK            LOAD RESULT IN R8
     4914   01 01CA1    E800000E A            B        *R14              EXIT
     4915                            *
     4916                            **************************************************************
     4917                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     4918                            ****     BUFFER.ALSO,IT COMPUTES THE EXPECTED REAL ADDRESS
     4919                            ****     (FOR WORD ALIGNMENT).
     4920                            ************************************************************
     4921                            *
     4922         01 01CA2           STSLRA   EQU      %
     4923   01 01CA2    1280211A              LD,8     LRA
     4924   01 01CA3    15802CA4              STD,8    STMSG1+2          STORE TEST TYPE
     4925   01 01CA4    E800000F A            B        *R15              RETURN
     4926                            *
     4927                            **********************************************************
     4928                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     4929                            ****     BUFFER.
     4930                            **********************************************************
     4931                            *
     4932         01 01CA5           STSMAP   EQU      %
     4933   01 01CA5    1280211C              LD,8     MAP
     4934   01 01CA6    15802CA4              STD,8    STMSG1+2          STORE TEST TYPE
     4935   01 01CA7    E800000F A            B        *R15              RETURN
     4936                            *
     4937                            *
     4938                            **********************************************************
     4939                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     4940                            ****     BUFFER.
     4941                            **********************************************************
     4942                            *
     4943         01 01CA8           STSAC    EQU      %
     4944   01 01CA8    1280211E              LD,8     AC
     4945   01 01CA9    15802CA4              STD,8    STMSG1+2          STORE TEST TYPE
     4946   01 01CAA    E800000F A            B        *R15              RETURN
     4947                            *
     4948                            *
     4949         01 01CAB           INSTADR  EQU      %
     4950   01 01CAB    3280232D              LW,8     TESTPAGE
     4951   01 01CAC    25800009 A            SLS,8    9
     4952   01 01CAD    208001FE A            AI,8     X'1FE'
     4953   01 01CAE    E800000B A            B        *R11
     4954                            *
     4955                            *
     4956                            **********************************************************
     4957                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     4958                            ****     BUFFER.
     4959                            **********************************************************
     4960                            *
     4961         01 01CAF           STSMM    EQU      %
     4962   01 01CAF    12802120              LD,8     MMT
     4963   01 01CB0    15802CA4              STD,8    STMSG1+2          STORE TEST TYPE
     4964   01 01CB1    E800000F A            B        *R15              RETURN
     4965                            *
     4966                            *
     4967                            **********************************************************
     4968                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     4969                            ****     BUFFER.
     4970                            **********************************************************
     4971                            *
     4972         01 01CB2           STSWL    EQU      %
     4973   01 01CB2    12802122              LD,8     WL
     4974   01 01CB3    15802CA4              STD,8    STMSG1+2          STORE TEST TYPE
     4975   01 01CB4    E800000F A            B        *R15              RETURN
     4976                            *
     4977                            *
     4978                            **************************************************************
     4979                            ****     THIS ROUTINE STORES THE TEST TYPE IN STATUS MESSAGE
     4980                            ****     BUFFER.
     4981                            **************************************************************
     4982                            *
     4983         01 01CB5           STSMMC   EQU      %
     4984   01 01CB5    12802124              LD,8     MMC
     4985   01 01CB6    15802CA4              STD,8    STMSG1+2          STORE TEST TYPE
     4986   01 01CB7    E800000F A            B        *R15              RETURN
     4987                            *
     4988                            ***********************************************************
     4989                            ****     THIS ROUTINE CONVERTS THE TEST INSTRUCTION
     4990                            ****     AND CONDITION CODE 1 & 2 (PRIOR TO LRA)
     4991                            ****     TO EBCIDIC,FORMATS THE MESSAGE AND
     4992                            ****     THEN PRINTS THE MESSAGE.
     4993                            ***********************************************************
     4994                            *
     4995         01 01CB8           TSTINFOX EQU      %
     4996   01 01CB8    6D000032 A            #HTECON  TADDR             CONVERT LRA INST ADDR
            01 01CB9    EA6003C3
            01 01CBA    000021A1
            01 01CBB    6D000022 A
     4997   01 01CBC    328C0001 A            LW,8     1,LINK
     4998   01 01CBD    35802851              STW,8    LRAMSG1+13        STORE ADDR
     4999   01 01CBE    6D000032 A            #HTECON  TINST             CONVERT TEST INST.
            01 01CBF    EA6003C3
            01 01CC0    000021A0
            01 01CC1    6D000022 A
     5000   01 01CC2    2A8C0000 A            LM,R8    0,LINK
     5001   01 01CC3    02200020 A            LCI      2
     5002   01 01CC4    2B80284E              STM,R8   LRAMSG1+10        STORE INST.
     5003   01 01CC5    6D000032 A            #BTECON  C1C2              CONVERT C1C2 BEFORE LRA
            01 01CC6    EA6003C4
            01 01CC7    0000214F
            01 01CC8    6D000022 A
     5004   01 01CC9    328C0000 A            LW,8     0,LINK
     5005   01 01CCA    25800210 A            SCS,8    16
     5006   01 01CCB    55802847              STH,R8   LRAMSG1+3         STORE CC1 AND CC2
     5007   01 01CCC    EA6003C5              #PRINT   LRAMSG1,C1        PRINT MESSAGE
            01 01CCD    EA6003CD
            01 01CCE    C100A110 A
            01 01CCF    EA6003C6
     5008   01 01CD0    E800000B A            B        *R11              EXIT
     5009                            *
     5010                            ***********************************************************
     5011                            ****     THIS ROUTINE CONVERTS THE TEST INSTRUCTION
     5012                            ****     TEST INSTRUCTION LOCATION AND THE TEST PAGE
     5013                            ****     AC BITS TO EBCIDIC AND STORES THE VALUES
     5014                            ****     IN ERROR MESSAGE BUFFER 'MAPMSG2'.IT
     5015                            ****     THEN PRINTS THE ERROR MESSAGE.
     5016                            ***********************************************************
     5017                            *
     5018         01 01CD1           TSTINFO2 EQU      %
     5019   01 01CD1    6D000032 A            #HTECON  TINST             CONVERT TEST INST
            01 01CD2    EA6003C3
            01 01CD3    000021A0
            01 01CD4    6D000022 A
     5020   01 01CD5    2A8C0000 A            LM,8     0,LINK
     5021   01 01CD6    02200020 A            LCI      2
     5022   01 01CD7    2B80279A              STM,8    MAPMSG2+4         STORE INST.
     5023   01 01CD8    6D000032 A            #HTECON  TADDR             CONVERT TEST INST LOCATION
            01 01CD9    EA6003C3
            01 01CDA    000021A1
            01 01CDB    6D000022 A
     5024   01 01CDC    2A8C0000 A            LM,8     0,LINK
     5025   01 01CDD    4B802336              AND,8    Y4040             INSERT TWO BLANKS
     5026   01 01CDE    02200020 A            LCI      2
     5027   01 01CDF    2B80279D              STM,8    MAPMSG2+7         STORE TEST INST LOCATION
     5028   01 01CE0    6D000032 A            #HTECON  TESTPAGE          CONVERT TEST PAGE ADDRESS
            01 01CE1    EA6003C3
            01 01CE2    0000232D
            01 01CE3    6D000022 A
     5029   01 01CE4    32AC0001 A            LW,10    1,LINK
     5030   01 01CE5    55A027A3              STH,10   MAPMSG2+13        STORE ADDR
     5031   01 01CE6    6D000032 A            #HTECON  MAPBITS           CONVERT MAP BITS FOR TEST PAGE
            01 01CE7    EA6003C3
            01 01CE8    000021B6
            01 01CE9    6D000022 A
     5032   01 01CEA    32AC0001 A            LW,10    1,LINK
     5033   01 01CEB    35A027A4              STW,10   MAPMSG2+14        STORE MAP BITS
     5034   01 01CEC    6D000032 A            #BTECON  TPAC              CONVERT TEST PAGE AC BITS
            01 01CED    EA6003C4
            01 01CEE    00002170
            01 01CEF    6D000022 A
     5035   01 01CF0    32AC0007 A            LW,10    7,LINK
     5036   01 01CF1    4BA02336              AND,10   Y4040
     5037   01 01CF2    25A00210 A            SCS,10   16
     5038   01 01CF3    35A027A7              STW,10   MAPMSG2+17
     5039   01 01CF4    EA6003C5              #PRINT   MAPMSG2,C1
            01 01CF5    EA6003CD
            01 01CF6    C1009E58 A
            01 01CF7    EA6003C6
     5040   01 01CF8    E800000B A            B        *R11              EXIT
     5041                            *
     5042                            ***********************************************************
     5043                            ****     THIS ROUTINE INTERPRETS THE CORRECT TEST
     5044                            ****     INSTRUCTION AND TEST INST. LOCATION.
     5045                            ****     IT THEN USES 'TSTINFO2' TO CONVERT THE ABOVE VALUES
     5046                            ****     AND PRINT THEM.
     5047                            ***********************************************************
     5048                            *
     5049         01 01CF9           TSTINFO3 EQU      %
     5050   01 01CF9    35B02172              STW,11   SAVEADDR          SAVE RETURN ADDRESS
     5051   01 01CFA    3220230C              LW,2     ACLOAD
     5052   01 01CFB    48202333              EOR,2    X03               INTERPRET TEST INST NUMBER
     5053   01 01CFC    3284146E              LW,8     ACOPT,X2          LOAD TEST INST
     5054   01 01CFD    358021A0              STW,8    TINST             STORE TEST INST
     5055   01 01CFE    328021B5              LW,8     MAPEDADR
     5056   01 01CFF    30800002 A            AW,8     X2
     5057   01 01D00    358021A1              STW,8    TADDR             STORE TEST INST ADDR
     5058   01 01D01    6AB01CD1              BAL,R11  TSTINFO2
     5059   01 01D02    E8002172              B        *SAVEADDR         EXIT
     5060                            *
     5061                            ***********************************************************
     5062                            ****     THIS ROUTINE  CONVERTS THE TEST INSTRUCTION AND
     5063                            ****     TEST INSTRUCTION LOCATION TO EBCIDIC AND STORES
     5064                            ****     THE VALUES IN ERROR MESSAGE BUFFER 'PLMSG5'.IT
     5065                            ****     THEN PRINTS THE ERROR MESSAGE.
     5066                            ***********************************************************
     5067                            *
     5068                            *
     5069         01 01D03           TSTINFO4 EQU      %
     5070   01 01D03    6D000032 A            #HTECON  TINST             CONVERT TEST INST
            01 01D04    EA6003C3
            01 01D05    000021A0
            01 01D06    6D000022 A
     5071   01 01D07    2A8C0000 A            LM,8     0,LINK
     5072   01 01D08    02200020 A            LCI      2
     5073   01 01D09    2B8028F8              STM,8    PLMSG5+4          STORE INST.
     5074   01 01D0A    6D000032 A            #HTECON  TADDR             CONVERT TEST INST LOCATION
            01 01D0B    EA6003C3
            01 01D0C    000021A1
            01 01D0D    6D000022 A
     5075   01 01D0E    2A8C0000 A            LM,8     0,LINK
     5076   01 01D0F    4B802336              AND,8    Y4040             INSERT TWO BLANKS
     5077   01 01D10    02200020 A            LCI      2
     5078   01 01D11    2B8028FB              STM,8    PLMSG5+7          STORE TEST INST LOCATION
     5079   01 01D12    EA6003C5              #PRINT   PLMSG5,C1         PRINT ERROR MSG
            01 01D13    EA6003CD
            01 01D14    C100A3D0 A
            01 01D15    EA6003C6
     5080   01 01D16    E800000B A            B        *R11              EXIT
     5081                            *
     5082                            ******************************************************
     5083                            ****     THIS ROUTINE GETS THE TRAP INFORMATION
     5084                            ****     AND OUTPUTS IT.
     5085                            ******************************************************
     5086         01 01D17           TSTINFO5 EQU      %
     5087   01 01D17    35B0213E              STW,11   RETURN5           SAVE RETURN ADDR
     5088   01 01D18    12802084              LD,8     TRAP40
     5089   01 01D19    158020F4              STD,8    UNKNPSD
     5090   01 01D1A    6AB020BD              BAL,R11  TRAPPSD           GET TRAP INFO AND
     5091   01 01D1B    EA6003C5              #PRINT   UNKNTRP1          PRINT INFO
            01 01D1C    EA6003CD
            01 01D1D    C000B01C A
            01 01D1E    EA6003C6
     5092   01 01D1F    E800213E              B        *RETURN5          EXIT
     5093                            *
     5094                            ***********************************************************
     5095                            ****     THIS ROUTINE CONVERTS THE TINST,TADDR WLTP AND TPWL
     5096                            ****     AND THEN OUTPUTS THE FORMATTED MESSAGE.
     5097                            *
     5098         01 01D20           TSTINFO6 EQU      %
     5099   01 01D20    35B0213F              STW,11   RETURN6           SAVE RETURN ADDR
     5100   01 01D21    6D000032 A            #HTECON  TINST             CONVERT TEST INST
            01 01D22    EA6003C3
            01 01D23    000021A0
            01 01D24    6D000022 A
     5101   01 01D25    2A8C0000 A            LM,8     0,LINK
     5102   01 01D26    02200020 A            LCI      2
     5103   01 01D27    2B8028D7              STM,8    PLMSG3+4          STORE TEST INST
     5104   01 01D28    6D000032 A            #HTECON  TADDR             CONVERT TEST INST LOCATION
            01 01D29    EA6003C3
            01 01D2A    000021A1
            01 01D2B    6D000022 A
     5105   01 01D2C    2A8C0000 A            LM,8     0,LINK
     5106   01 01D2D    4B802336              AND,8    Y4040
     5107   01 01D2E    02200020 A            LCI      2
     5108   01 01D2F    2B8028DA              STM,8    PLMSG3+7          STORE TINST ADDR
     5109   01 01D30    6D000032 A            #HTECON  WLTP              CONVERT WL TEST PAGE #
            01 01D31    EA6003C3
            01 01D32    00002171
            01 01D33    6D000022 A
     5110   01 01D34    328C0001 A            LW,8     1,LINK
     5111   01 01D35    558028E0              STH,8    PLMSG3+13         STORE PAGE #
     5112   01 01D36    6D000032 A            #BTECON  TPWL              CONVERT WL BITS
            01 01D37    EA6003C4
            01 01D38    00002170
            01 01D39    6D000022 A
     5113   01 01D3A    328C0007 A            LW,8     7,LINK
     5114   01 01D3B    558028E1              STH,8    PLMSG3+14         STORE WL BITS
     5115   01 01D3C    EA6003C5              #PRINT   PLMSG3,C1         PRINT TEST INFO
            01 01D3D    EA6003CD
            01 01D3E    C100A34C A
            01 01D3F    EA6003C6
     5116   01 01D40    E800213F              B        *RETURN6          EXIT
     5117                            *
     5118                            ***********************************************************
     5119                            ****     THIS ROUTINE FORMATS THE ERROR INFORMATIOM
     5120                            ****     WHEN A MAP PARITY ERROR IS DETECTED USING A
     5121                            ****     LRA INST IN DP,DA AND DW DIRECTIVES.
     5122                            *
     5123         01 01D41           TSTINFO7 EQU      %
     5124   01 01D41    35B02140              STW,11   RETURN7
     5125   01 01D42    6D000032 A            #HTECON  TINST             CONVERT LRA INST
            01 01D43    EA6003C3
            01 01D44    000021A0
            01 01D45    6D000022 A
     5126   01 01D46    2A8C0000 A            LM,8     0,LINK
     5127   01 01D47    02200020 A            LCI      2
     5128   01 01D48    2B802B5E              STM,8    MPEMSG+1
     5129   01 01D49    6D000032 A            #HTECON  TADDR             CONVERT LRA INST ADDR
            01 01D4A    EA6003C3
            01 01D4B    000021A1
            01 01D4C    6D000022 A
     5130   01 01D4D    328C0001 A            LW,8     1,LINK
     5131   01 01D4E    35802B61              STW,8    MPEMSG+4
     5132   01 01D4F    6D000032 A            #HTECON  SAVRESLT          CONVERT LRA REG CONTENTS
            01 01D50    EA6003C3
            01 01D51    00002149
            01 01D52    6D000022 A
     5133   01 01D53    2A8C0000 A            LM,8     0,LINK
     5134   01 01D54    02200020 A            LCI      2
     5135   01 01D55    2B802B63              STM,8    MPEMSG+6
     5136   01 01D56    6D000032 A            #BTECON  ACTCC             CONVERT COND CODES(AFTER LRA)
            01 01D57    EA6003C4
            01 01D58    0000214C
            01 01D59    6D000022 A
     5137   01 01D5A    328C0000 A            LW,8     0,LINK
     5138   01 01D5B    35802B66              STW,8    MPEMSG+9
     5139   01 01D5C    6D000032 A            #HTECON  PAGEADR           CONVERT VIRTUAL ADDR
            01 01D5D    EA6003C3
            01 01D5E    00002168
            01 01D5F    6D000022 A
     5140   01 01D60    2A8C0000 A            LM,8     0,LINK
     5141   01 01D61    02200020 A            LCI      2
     5142   01 01D62    2B802B68              STM,8    MPEMSG+11
     5143   01 01D63    E8002140              B        *RETURN7          EXIT
     5144                            *
     5145                            *****************************************************************
     5146                            ****     THIS ROUTINE CONVERTS TEST AND READ
     5147                            ****     VIRTUAL PAGE ADDRESSES TO EBCIDIC
     5148                            ****     AND STORES THE CONVERTED VALUES IN
     5149                            ****     THE ERROR MESSAGE BUFFER 'MAPMSG1'.
     5150                            ****     IT ALSO CLEARS BUFFER BEFORE LOADING.
     5151                            ***********************************************************
     5152                            *
     5153                            *
     5154         01 01D64           GETVPAD  EQU      %
     5155   01 01D64    72702745              LB,7     MAPMSG1           GET BYTE COUNT
     5156   01 01D65    22800040 A            LI,8     X'40'             GET A BLANK CHARACTER
     5157   01 01D66    758E2745              STB,8    MAPMSG1,7         CLEAR BUFFER TO BLANKS
     5158   01 01D67    64701D66              BDR,7    %-1
     5159   01 01D68    6D000032 A            #HTECON  TESTVP            CONVERT TEST VP
            01 01D69    EA6003C3
            01 01D6A    0000216C
            01 01D6B    6D000022 A
     5160   01 01D6C    328C0001 A            LW,8     1,LINK
     5161   01 01D6D    4B802336              AND,8    Y4040
     5162   01 01D6E    35802746              STW,8    MAPMSG1+1         STORE TEST VP ADDRESS
     5163   01 01D6F    6D000032 A            #HTECON  READVP            CONVERT READ VP ADDR
            01 01D70    EA6003C3
            01 01D71    0000216D
            01 01D72    6D000022 A
     5164   01 01D73    328C0001 A            LW,8     1,LINK
     5165   01 01D74    4B802336              AND,8    Y4040
     5166   01 01D75    35802749              STW,8    MAPMSG1+4         STORE READ VP ADDRESS
     5167   01 01D76    E800000B A            B        *R11              EXIT
     5168                            *
     5169                            ***********************************************************
     5170                            ****     THIS ROUTINE CONVERTS ACCESS CONTROL
     5171                            ****     BITS LOADED AND READ TO EBCIDIC
     5172                            ****     AND STORES THE VALUES IN REGISTERS
     5173                            ****     8 AND 9 RESPECTIVELY.BYTE 0 AND 1
     5174                            ****     ARE BLANKS(X'40') AND BYTE 2 AND 3
     5175                            ****     ARE THE CONVERTED VALUES.
     5176                            ****     THIS ROUTINE IS ALSO USED TO CONVERT
     5177                            ****     WRITE LOCK BITS.
     5178                            ***********************************************************
     5179                            *
     5180         01 01D77           GETAC    EQU      %
     5181   01 01D77    6D000032 A            #BTECON  ACLOAD            CONVERT AC LOADED
            01 01D78    EA6003C4
            01 01D79    0000230C
            01 01D7A    6D000022 A
     5182   01 01D7B    328C0007 A            LW,8     7,LINK
     5183   01 01D7C    4B802336              AND,8    Y4040             INSERT TWO BLANKS
     5184   01 01D7D    25800210 A            SCS,8    16                SHIFT CIRCULAR LEFT 16 BITS
     5185   01 01D7E    6D000032 A            #BTECON  ACREAD            CONVERT AC READ
            01 01D7F    EA6003C4
            01 01D80    0000230B
            01 01D81    6D000022 A
     5186   01 01D82    329C0007 A            LW,9     7,LINK
     5187   01 01D83    4B902336              AND,9    Y4040             INSERT TWO BLANKS
     5188   01 01D84    25900210 A            SCS,9    16
     5189   01 01D85    E800000B A            B        *R11              EXIT
     5190                            *
     5191                            *
     5192                            ***********************************************************
     5193                            ****     THIS ROUTINE SETS UP THE TEST
     5194                            ****     INSTRUCTIONS AT THE MAPPED ADDRESS.
     5195                            ****     THE CALLING SEQUENCE IS
     5196                            ****     BAL,R15  SETINST
     5197                            ****     GEN,8,2,22  X'N',0,ADDRFI
     5198                            ****     WHERE  N=NUMBER OF INSTRUCTIONS
     5199                            ****            ADDRFI=ADDRESS OF FIRST INSTRUCTION
     5200                            ***********************************************************
     5201         01 01D86           SETINST  EQU      %
     5202   01 01D86    22200000 A            LI,X2    0                 RESET INDEX
     5203   01 01D87    F210000F A            LB,X1    *R15              X1=# OF INSTS. TO BE STORED
     5204   01 01D88    B270000F A            LW,X7    *R15              X7=ADDRESS OF FIRST INST
     5205   01 01D89    4B702332              AND,X7   XFFFFFF           SAVE ADDRESS
     5206         01 01D8A           NEXTINST EQU      %                 NEXT INSTRUCTION
     5207   01 01D8A    328E0000 A            LW,8     0,X7              GET INSTRUCTION
     5208   01 01D8B    B58421B5              STW,8    *MAPEDADR,X2      STORE INST
     5209   01 01D8C    20700001 A            AI,X7    1                 INCR TO GET NEXT INST
     5210   01 01D8D    20200001 A            AI,X2    1                 INCR TO STORE NEXT INST
     5211   01 01D8E    64101D8A              BDR,X1   NEXTINST          GET NEXT INST
     5212   01 01D8F    20F00001 A            AI,R15   1                 INCR EXIT ADDRESS
     5213   01 01D90    E800000F A            B        *R15              EXIT
     5214                            *
     5215                            ***********************************************************
     5216                            ****     THIS ROUTINE IS ENTERED WHENEVER THE MAP REGISTERS
     5217                            ****     FOR THE TEST INSTRUCTION PAGE(TINSTP) AND TEST
     5218                            ****     PAGE (TESTPAGE) ARE TO BE LOADED FOR MAP AND
     5219                            ****     ACCESS CONTROL OPERATIONAL TESTS.
     5220                            ****     FOR MAP OPERATIONAL TESTS REGISTER R8 SHOULD BE SET
     5221                            ****     TO ZERO PRIOR TO ENTERING THIS ROUTINE.
     5222                            ****     FOR ACCESS CONTROL OPERATIONAL TESTS R8 SHOULD
     5223                            ****     BE NON-ZERO BEFORE ENTERING THIS ROUTINE.
     5224                            ****     THIS ROUTINE DOES THE FOLLOWING:-
     5225                            ****     1. FOR MAP TESTS ''TINSTP'' IS MAPPED TO ITSELF
     5226                            ****        AND ''TESTPAGE'' IS MAPPED TO THE ''TINSTP''.
     5227                            ****     2.FOR ACCESS CONTROL TESTS ''TINSTP'' AND ''TESTPAGE''
     5228                            ****       ARE MAPPED TO THEMSELVES RESPECTIVELY.
     5229                            ***********************************************************
     5230                            *
     5231         01 01D91           SETMAP   EQU      %
     5232   01 01D91    35901D9C              STW,9    LOADWORD          STORE LW INST
     5233   01 01D92    B2901D9C              LW,9     *LOADWORD
     5234   01 01D93    359021B6              STW,9    MAPBITS           STORE MAP BITS FOR TEST PAGE
     5235   01 01D94    3290232D              LW,9     TESTPAGE
     5236   01 01D95    2590007F A            SLS,9    -1
     5237   01 01D96    2590000A A            SLS,9    10                GET CONTROL START ADDR
     5238   01 01D97    32A0232C              LW,10    TINSTP
     5239   01 01D98    25A0007F A            SLS,10   -1
     5240   01 01D99    25A0000A A            SLS,10   10
     5241   01 01D9A    31A00009 A            CW,10    R9                IF ADDR SAME THEN THE TWO
     5242   01 01D9B    68301DA9              BE       SAMEBLK           PAGES ARE ON THE SAME BLOCK
     5243         01 01D9C           LOADWORD EQU      %                 'LW,8 TINSTP' FOR MAP TESTS
     5244   01 01D9C    3280232C              LW,8     TINSTP            'LW,8 TESTPAGE' FOR AC  TESTS
     5245   01 01D9D    6AB01DC7              BAL,R11  ODDEVEN           SET UP MAP CONTROL IMAGE WORD
     5246   01 01D9E    25800010 A            SLS,8    16                AS PER ODD/EVEN ADDRESS
     5247   01 01D9F    3270232D              LW,7     TESTPAGE
     5248   01 01DA0    6AB01DBD              BAL,R11  MMCMAP1           LOAD MAP FOR TEST PAGE
     5249   01 01DA1    3280232C              LW,8     TINSTP            SET UP MAP CONTROL IMAGE WORD
     5250   01 01DA2    3270232C              LW,7     TINSTP            FOR THE TEST INSTRUCTION
     5251   01 01DA3    4B70233A              AND,7    X01               PAGE AS PER ODD/EVEN ADDR
     5252   01 01DA4    69301DA6              BNEZ     %+2
     5253   01 01DA5    25800010 A            SLS,8    16
     5254   01 01DA6    3270232C              LW,7     TINSTP
     5255   01 01DA7    6AB01DBD              BAL,R11  MMCMAP1           LOAD MAP FOR TEST INST PAGE
     5256   01 01DA8    E800000F A            B        *R15
     5257                            *
     5258                            *
     5259         01 01DA9           SAMEBLK  EQU      %
     5260   01 01DA9    32800008 A            LW,8     8                 IF R8 IS 0 MAP REGS TO BE
     5261   01 01DAA    68301DB9              BEZ      FORMAP            LOADED FOR MAP TESTS
     5262   01 01DAB    6AB01DC7              BAL,R11  ODDEVEN
     5263   01 01DAC    68001DAE              B        EVEN
     5264   01 01DAD    68001DB2              B        ODD
     5265         01 01DAE           EVEN     EQU      %                 FOR AC TESTS SET UP MAP
     5266   01 01DAE    3280232D              LW,8     TESTPAGE          IMAGE WORD SUCH THAT
     5267   01 01DAF    25800010 A            SLS,8    16                TEST INST PAGE AND
     5268   01 01DB0    3080232C              AW,8     TINSTP            TEST PAGE MAP THEMSELVES
     5269   01 01DB1    68001DB6              B        BALMMC
     5270                            *
     5271         01 01DB2           ODD      EQU      %
     5272   01 01DB2    3280232C              LW,8     TINSTP
     5273   01 01DB3    25800010 A            SLS,8    16
     5274   01 01DB4    3080232D              AW,8     TESTPAGE
     5275   01 01DB5    68001DB6              B        BALMMC
     5276                            *
     5277         01 01DB6           BALMMC   EQU      %
     5278   01 01DB6    3270232D              LW,7     TESTPAGE
     5279   01 01DB7    6AB01DBD              BAL,R11  MMCMAP1
     5280   01 01DB8    E800000F A            B        *R15
     5281                            *
     5282                            *
     5283         01 01DB9           FORMAP   EQU      %                 FOR MAP TESTS SET UP
     5284   01 01DB9    3280232C              LW,8     TINSTP            MAP CONTROL IMAGE WORD
     5285   01 01DBA    25800010 A            SLS,8    16                SUCH THAT TESTPAGE MAPS
     5286   01 01DBB    3080232C              AW,8     TINSTP            TO TINSTP AND TINSTP MAPS
     5287   01 01DBC    68001DB6              B        BALMMC            TO ITSELF
     5288                            *
     5289                            *
     5290         01 01DBD           MMCMAP1  EQU      %
     5291   01 01DBD    22600008 A            LI,6     R8                LOAD MAP CONT. IMG ADDR
     5292   01 01DBE    2570007F A            SLS,7    -1                SET UP CONTROL START ADDR
     5293   01 01DBF    2570000A A            SLS,7    10                IN BITS 15-21
     5294   01 01DC0    35702179              STW,7    SAVRS+3
     5295   01 01DC1    73100007 A            MTB,1    R7                SET WORD COUNT TO 1
     5296   01 01DC2    6F6A0000 A            MMC,6    5                 LOAD MAP
     5297   01 01DC3    32702179              LW,7     SAVRS+3
     5298   01 01DC4    25700076 A            SLS,7    -10               SHIFT TO GET INDEX
     5299   01 01DC5    358E224A              STW,8    IMAGEMAP,X7       STORE MAP IMAGE WORD IN BUFFER
     5300   01 01DC6    E800000B A            B        *R11
     5301                            *
     5302                            *
     5303         01 01DC7           ODDEVEN  EQU      %
     5304   01 01DC7    3220232D              LW,2     TESTPAGE
     5305   01 01DC8    4B20233A              AND,2    X01
     5306   01 01DC9    68301DCB              BEZ      %+2
     5307   01 01DCA    20B00001 A            AI,R11   1
     5308   01 01DCB    E800000B A            B        *R11
     5309                            *
     5310                            ****     THIS ROUTINE COMPUTES THE PROGRAM STATUS WORD 1(PSW1)
     5311                            ****     FOR THE LPSD INSTRUCTION USED IN MAP AND ACCESS
     5312                            ****     CONTROL OPERATIONAL TESTS TO INVOKE SLAVE-MAP MODE.
     5313                            ****     THE COMPUTED PSW1 IS STORED IN R8.
     5314                            *
     5315         01 01DCC           SETLPSD  EQU      %
     5316   01 01DCC    3280232C              LW,8     TINSTP            COMPUTE MAPPED ADDRESS
     5317   01 01DCD    25800009 A            SLS,8    9
     5318   01 01DCE    208001F8 A            AI,8     X'1F8'
     5319   01 01DCF    358021B5              STW,8    MAPEDADR          SAVE ADDRESS
     5320   01 01DD0    25800010 A            SLS,8    16
     5321   01 01DD1    208000C0 A            AI,8     X'00C0'           INSERT SLAVE-MAP MODE BITS
     5322   01 01DD2    25800210 A            SCS,8    16
     5323   01 01DD3    E800000F A            B        *R15              EXIT
     5324                            *
     5325                            *
     5326                            *
     5327                            ****     THIS ROUTINE LOADS ALL 256 MAP
     5328                            ****     REGISTERS WITH ZEROS.
     5329                            ****     ALSO,IT SAVES THE MAP IMAGE.
     5330                            *
     5331         01 01DD4           ALMAPREG EQU      %
     5332   01 01DD4    32502337              LW,5     Y8                WORD COUNT & CONTROL START
     5333   01 01DD5    224021C8              LI,4     MAPIMAGE          MAP CONTROL IMAGE WORD
     5334   01 01DD6    6F4A0000 A            MMC,4    5                 LOAD 256 MAP REG
     5335   01 01DD7    227FFF80 A            LI,7     -128              SET INDEX TO LOAD 128 WORDS
     5336   01 01DD8    328E2248              LW,8     MAPIMAGE+128,X7
     5337   01 01DD9    358E22CA              STW,8    IMAGEMAP+128,X7   SAVE MAP IMAGE
     5338   01 01DDA    65701DD8              BIR,X7   %-2
     5339   01 01DDB    E800000F A            B        *R15              EXIT
     5340                            *
     5341                            *
     5342                            *
     5343                            *
     5344                            ****     THIS ROUTINE LOADS ALL 256 ACCESS CONTROL
     5345                            ****     REGISTERS  WITH ZEROS.
     5346                            ****     ALSO,SAVES THE ACCESS CONTROL IMAGE.
     5347                            *
     5348         01 01DDC           ALLACREG EQU      %
     5349   01 01DDC    227FFFF0 A            LI,7     -16               SET INDEX TO LOAD 16 WORDS
     5350   01 01DDD    3250234C              LW,5     Y1                INITIAL COUNT & CONTROL START
     5351   01 01DDE    224021C8              LI,4     ACIMAGE           AC CONTROL IMAGE WORD
     5352   01 01DDF    6F440000 A            MMC,4    2                 LOAD 256 AC REG
     5353   01 01DE0    328E21D8              LW,8     ACIMAGE+16,X7
     5354   01 01DE1    358E22DA              STW,8    IMAGEAC+16,X7     SAVE AC IMAGE
     5355   01 01DE2    65701DE0              BIR,X7   %-2
     5356   01 01DE3    E800000F A            B        *R15              EXIT
     5357                            *
     5358                            ****     THIS ROUTINE LOADS ALL 256 WRITE LOCK REGISTERS
     5359                            ****     WITH 0'S AND SAVES THE CONTROL IMAGE .
     5360                            *
     5361         01 01DE4           ALLWLREG EQU      %
     5362   01 01DE4    227FFFF0 A            LI,7     -16               SET INDEX TO LOAD 16 WORDS
     5363   01 01DE5    3250234C              LW,5     Y1                INITIAL COUNT & CONTROL START
     5364   01 01DE6    224021C8              LI,4     WLIMAGE           WL CONTROL IMAGE WORD
     5365   01 01DE7    6F420000 A            MMC,4    1                 LOAD 256 WL REG
     5366   01 01DE8    328E21D8              LW,8     WLIMAGE+16,X7
     5367   01 01DE9    358E22EA              STW,8    IMAGEWL+16,X7     SAVE WL IMAGE
     5368   01 01DEA    65701DE8              BIR,X7   %-2
     5369   01 01DEB    E800000F A            B        *R15              EXIT
     5370                            *
     5371         01 01DEC           INITREGS EQU      %
     5372   01 01DEC    35F0213B              STW,15   RETURN1
     5373   01 01DED    6AF01DE4              BAL,15   ALLWLREG
     5374   01 01DEE    6AF01DD4              BAL,15   ALMAPREG
     5375   01 01DEF    6AF01DDC              BAL,15   ALLACREG
     5376   01 01DF0    E800213B              B        *RETURN1
     5377                            *
     5378                            ****     THIS ROUTINE LOADS THE MAP REGISTERS
     5379                            ****     00,01,02,...FE AND FF WITH
     5380                            ****     00,01,02,...FE AND FF RESPECTIVELY.
     5381                            *
     5382         01 01DF1           MAPSELF  EQU      %
     5383   01 01DF1    221FFF80 A            LI,1     -128              # OF WORDS TO BE LOADED
     5384   01 01DF2    3280233A              LW,8     X01               INITIAL MAP CONTROL IMAGE
     5385   01 01DF3    32702345              LW,7     Y01               INITIAL WORD COUNT & CONTROL START
     5386   01 01DF4    22600008 A            LI,R6    R8
     5387   01 01DF5    6F6A0000 A            MMC,6    5                 LOAD MAP;ONE WORD
     5388   01 01DF6    30802351              AW,8     X20002            CHANGE MAP FOR NEXT TWO PAGES
     5389   01 01DF7    73100007 A            MTB,1    R7                SET WORD COUNT TO 1
     5390   01 01DF8    65101DF4              BIR,X1   %-4               LOAD NEXT 2 PAGES
     5391   01 01DF9    E800000F A            B        *R15              EXIT
     5392                            *
     5393                            ****     THIS ROUTINE SETS UP THE AC CONTROL IMAGE WORD
     5394                            ****     IN R8 TO LOAD THE 'TESTPAGE' WITH TEST AC BITS.
     5395                            ****     REST OF THE PAGES IN THIS BLOCK HAVE AC=00.
     5396                            *
     5397         01 01DFA           SETAC    EQU      %
     5398   01 01DFA    3210232D              LW,1     TESTPAGE          SET UP THE AC BITS FOR THE TEST
     5399   01 01DFB    48102341              EOR,1    XF                PAGE IN THE CONTROL IMAGE WORD
     5400   01 01DFC    4B102341              AND,1    XF                AS PER PAGE ADDRESS
     5401   01 01DFD    30100001 A            AW,1     1
     5402   01 01DFE    3280230C              LW,8     ACLOAD
     5403   01 01DFF    25820000 A            SLS,8    0,X1
     5404   01 01E00    3270232D              LW,7     TESTPAGE
     5405   01 01E01    6AB01E03              BAL,R11  MMCAC1
     5406   01 01E02    E800000F A            B        *R15              EXIT
     5407                            *
     5408                            *
     5409         01 01E03           MMCAC1   EQU      %
     5410   01 01E03    22600008 A            LI,6     R8                R8 HAS THE CONTROL IMAGE WORD
     5411   01 01E04    2570007C A            SLS,7    -4                SET UP THE CONTROL START BITS
     5412   01 01E05    2570000D A            SLS,7    13                AS PER 'TESTPAGE'
     5413   01 01E06    35702179              STW,7    SAVRS+3
     5414   01 01E07    73100007 A            MTB,1    R7                SET WORD COUNT TO 1
     5415   01 01E08    6F640000 A            MMC,6    2                 LOAD 1 BLOCK OF AC REGS(16)
     5416   01 01E09    32702179              LW,7     SAVRS+3
     5417   01 01E0A    25700073 A            SLS,7    -13               SHIFT TO GET INDEX
     5418   01 01E0B    358E22CA              STW,8    IMAGEAC,X7        STORE AC IMAGE WORD IN BUFFER
     5419   01 01E0C    E800000B A            B        *R11
     5420                            *
     5421                            *
     5422                            ****     THIS ROUTINE SETS UP THE WL CONTROL IMAGE WORD
     5423                            ****     IN R8 TO LOAD THE 'TESTPAGE' WITH TEST WL BITS.
     5424                            ****     REST OF THE PAGES IN THIS BLOCK HAVE WL=00.
     5425                            *
     5426         01 01E0D           SETWL    EQU      %
     5427   01 01E0D    3210232D              LW,1     TESTPAGE          SET UP THE WL BITS FOR
     5428   01 01E0E    48102341              EOR,1    XF                THE TESTPAGE IN THE CONTROL
     5429   01 01E0F    4B102341              AND,1    XF                IMAGE WORD AS PER
     5430   01 01E10    30100001 A            AW,1     1                 TESTPAGE ADDRESS
     5431   01 01E11    3280230C              LW,8     WLLOAD
     5432   01 01E12    25820000 A            SLS,8    0,X1
     5433   01 01E13    3270232D              LW,7     TESTPAGE
     5434   01 01E14    6AB01E16              BAL,R11  MMCWL1
     5435   01 01E15    E800000F A            B        *R15              EXIT
     5436                            *
     5437                            *
     5438         01 01E16           MMCWL1   EQU      %
     5439   01 01E16    22600008 A            LI,6     R8                R8 HAS THE CONTROL IMAGE WORD
     5440   01 01E17    2570007C A            SLS,7    -4                SET UP CONTROL START BITS
     5441   01 01E18    2570000D A            SLS,7    13                AS PER TEST PAGE ADDR
     5442   01 01E19    35702179              STW,7    SAVRS+3
     5443   01 01E1A    73100007 A            MTB,1    R7                SET WORD COUNT TO 1
     5444   01 01E1B    6F620000 A            MMC,6    1                 LOAD 1 BLOCK OF WL REGS(16)
     5445   01 01E1C    32702179              LW,7     SAVRS+3
     5446   01 01E1D    25700073 A            SLS,7    -13               SHIFT TO GET INDEX
     5447   01 01E1E    358E22DA              STW,8    IMAGEWL,X7        SAVE WL IMAGE WORD IN BUFFER
     5448   01 01E1F    E800000B A            B        *R11              EXIT
     5449                            *
     5450                            *
     5451                            ****     THIS ROUTINE COMPUTES PROGRAM STATUS WORD 1
     5452                            ****     FOR LPSD INST IN MASTER MODE TESTS.
     5453                            ****     PSW1 IS STORED IN R8.
     5454                            *
     5455                            *
     5456         01 01E20           SETLPSD1 EQU      %
     5457   01 01E20    3280232C              LW,8     TINSTP            SET TEST INST PAGE ADDR IN
     5458   01 01E21    25800009 A            SLS,8    9                 BITS 15-22 OF R8
     5459   01 01E22    208001F8 A            AI,8     X'1F8'            INCREMENT ADDR
     5460   01 01E23    358021B5              STW,8    MAPEDADR          SAVE MAPPED ADDR
     5461   01 01E24    25800010 A            SLS,8    16
     5462   01 01E25    20800040 A            AI,8     X'0040'           INSERT MAP MODE BIT
     5463   01 01E26    25800210 A            SCS,8    16
     5464   01 01E27    E800000F A            B        *R15              EXIT
     5465                            *
     5466                            ****     THIS ROUTINE LOADS MAP REG'S 1E AND 1F WITH
     5467                            ****     X'0000' AND X'001F' RESPECTIVELY.
     5468                            *
     5469         01 01E28           MAP1F    EQU      %
     5470   01 01E28    22600008 A            LI,6     8
     5471   01 01E29    2280001F A            LI,8     X'1F'
     5472   01 01E2A    3270233D              LW,7     Y01003C
     5473   01 01E2B    6F6A0000 A            MMC,6    5                 LOAD MAP REG 1E & 1F
     5474   01 01E2C    E800000F A            B        *15
     5475                            *
     5476                            ****     THIS ROUTINE READS MAP REG. X'11'THEN      IT READS
     5477                            ****     AC/WL BITS FOR PAGES 1F OR 2B (LATTER FOR TEST 5)
     5478                            ****     IT IS USED IN TESTS 5,6 AND 7
     5479                            *
     5480         01 01E2D           READREGS EQU      %
     5481   01 01E2D    35F0213D              STW,15   RETURN3           STORE RETURN ADDR
     5482   01 01E2E    22802200 A            LI,8     X'2200'
     5483   01 01E2F    35802168              STW,8    PAGEADR           STORE VP ADDR
     5484   01 01E30    02200080 A            LCI      8                 SET CC FOR WORD ALIGNMENT
     5485   01 01E31    2C802168              LRA,8    PAGEADR           READ MAP FOR REG X'11'
     5486   01 01E32    25800077 A            SLS,8    -9
     5487   01 01E33    4B802340              AND,8    X1FFF             SAVE MAP BITS
     5488   01 01E34    3580216E              STW,8    MAPREAD           SAVE MAP READ
     5489   01 01E35    22805600 A            LI,8     X'5600'           READ AC/WL FOR PAGE 2B
     5490   01 01E36    329003F2              LW,9     TCR:NUM
     5491   01 01E37    21900005 A            CI,9     TNUM5
     5492   01 01E38    68301E3A              BE       %+2               BRANCH IF MAP CHK
     5493   01 01E39    22803E00 A            LI,8     X'3E00'           READ AC/WL FOR PAGE 1F
     5494   01 01E3A    35802168              STW,8    PAGEADR           STORE VP ADDR
     5495   01 01E3B    02200080 A            LCI      8                 READ WL AND AC REG7S
     5496   01 01E3C    2C802168              LRA,8    PAGEADR           X72B' OR X'1F'
     5497   01 01E3D    7400214C              STCF     ACTCC             SAVE CC AFTER LRA
     5498   01 01E3E    25800208 A            SCS,8    8
     5499   01 01E3F    4B802333              AND,8    X03               SAVE WL BITS
     5500   01 01E40    3580230D              STW,8    WLRED             SAVE WL BITS READ
     5501   01 01E41    3280214C              LW,8     ACTCC             GET CC
     5502   01 01E42    25800204 A            SCS,8    4
     5503   01 01E43    4B802333              AND,8    X03               SAVE AC BITS
     5504   01 01E44    3580230B              STW,8    ACREAD            SAVE AC BITS READ
     5505   01 01E45    E800213D              B        *RETURN3          EXIT
     5506                            *
     5507                            ****     THIS ROUTINE IS ENTERED WHEN THE USER HAS
     5508                            ****     INVOKED DP,DA AND DW DIRECTIVES.
     5509                            *
     5510         01 01E46           LRAREAD  EQU      %
     5511   01 01E46    35F01E65              STW,15   RETRY             SAVE RETURN ADDR
     5512   01 01E47    35F02141              STW,15   LRARETURN
     5513   01 01E48    22800000 A            LI,8     0                 RESET REG USED IN LRA INST1
     5514   01 01E49    02200080 A            LCI      8                 SET C1C2 FOR WRD ADDR
     5515   01 01E4A    2C802168     LRAINST2 LRA,8    PAGEADR           READ MAP REG AND WL REG
     5516   01 01E4B    7400214C              STCF     ACTCC             SAVE CC
     5517   01 01E4C    35802149              STW,8    SAVRESLT          SAVE CONTENTS OF LRA INST REG
     5518   01 01E4D    22901E4A              LI,9     LRAINST2
     5519   01 01E4E    35902142              STW,9    LRAINSTX          STORE LRA INST ADDR
     5520   01 01E4F    31802334              CW,8     Y2                MAP PARITY ERROR
     5521   01 01E50    69401E52              BCS,4    MAPPE             YES
     5522   01 01E51    E8002141              B        *LRARETURN        EXIT
     5523                            *
     5524                            ****     THIS ROUTINE IS ENTERED WHENEVER THER IS A
     5525                            ****     MAP PARITY ERROR DETECTED ON USING A
     5526                            ****     LRA INSTRUCTION ABOVE.AFTER REPORTING THE ERROR
     5527                            ****     PROGRAM WILL GO TO GUIDE IDLE.ON ENTERING
     5528                            ****     A '#' PROGRAM WILL CONTINUE TO EXECUTE LRA
     5529                            ****     TILL ALL THE REMAINING PAGES HAVE BEEN READ.
     5530                            *
     5531                            *
     5532         01 01E52           MAPPE    EQU      %
     5533   01 01E52    EA6003C5              #TYPE    MPEHDG            PRINT HEADING
            01 01E53    EA6003CC
            01 01E54    0000AD1C A
            01 01E55    EA6003C6
     5534   01 01E56    EA6003C5              #TYPE    MPEMSGX           PRINT HEADING
            01 01E57    EA6003CC
            01 01E58    0000AD3C A
            01 01E59    EA6003C6
     5535   01 01E5A    B2902142              LW,9     *LRAINSTX
     5536   01 01E5B    359021A0              STW,9    TINST             STORE LRA INST
     5537   01 01E5C    32902142              LW,9     LRAINSTX
     5538   01 01E5D    359021A1              STW,9    TADDR             STORE LRA INST ADDR
     5539   01 01E5E    6AB01D41              BAL,11   TSTINFO7          FORMAT ERR MSG
     5540   01 01E5F    EA6003C5              #TYPE    MPEMSG
            01 01E60    EA6003CC
            01 01E61    0000AD74 A
            01 01E62    EA6003C6
     5541   01 01E63    8F9003CA              XPSD,9   *#RUNADDR%        GO TO GUIDE IDLE.
     5542   01 01E64    E8001E65              B        *RETRY            RETURN HERE WHEN A '#' IS KEYED
     5543   01 01E65    00000000 A   RETRY    DATA     0
     5544                            *
     5545                            *
     5546                            *
     5547                            *
     5548                            *  THIS ROUTINE IS ENTERED BY USER KEYIN OF   DP
     5549                            *
     5550                            *        IT DISPLAYS MAP REGISTER(S) ADDRESS
     5551                            *        AND ITS CONTENTS.THE VALUES DISPLAYED
     5552                            *        ARE IN HEX.IF THIS ROUTINE IS ENTERED
     5553                            *        AND MAP OPTION IS NOT PRESENT
     5554                            *        THEN AN APPROPRIATE MESSAGE IS TYPED OUT.
     5555                            **************************************************************
     5556                            **************************************************************
     5557                            *
     5558                            *
     5559         01 01E66           DISMAP   EQU      %
     5560   01 01E66    6AB01F76              BAL,11   SAVINFO           SAVE INFO
     5561   01 01E67    32802313              LW,8     IMAP
     5562   01 01E68    35801E8B              STW,8    HTE1+1            INITIALISE ADDR
     5563   01 01E69    EA6003C5              #PRINT   BFHDG1,C1         PRINT HEADING
            01 01E6A    EA6003CD
            01 01E6B    C100AE08 A
            01 01E6C    EA6003C6
     5564   01 01E6D    6AF01F50              BAL,15   VALPARAM          VERIFY PARAMETERS
     5565   01 01E6E    68001EBB              B        EXITDP            PARAM ERROR RETURN
     5566                            *                                   NORMAL RETURN
     5567   01 01E6F    22100008 A            LI,X1    8                 DEFINE MAX # OF REG PER LINE
     5568   01 01E70    22200000 A            LI,X2    0                 RESET INDEX USED TO STORE IN BUFF
     5569   01 01E71    6AB01EB6              BAL,R11  CLRBUF            CLEAR BUFFER
     5570   01 01E72    32A003F2              LW,10    TCR:NUM
     5571   01 01E73    21A00005 A            CI,10    TNUM5             IF FROM LRA TESTS
     5572   01 01E74    69101E82              BL       DISPLAY1          DO NOT READ REGS VIA LRA
     5573         01 01E75           SETPAD1  EQU      %
     5574   01 01E75    35702167              STW,7    VPREAD            STORE VP TO BE READ
     5575   01 01E76    25700009 A            SLS,7    9                 SET PAGE ADDR IN BITS 15-22
     5576   01 01E77    20700010 A            AI,7     X'10'             ADD VALUE TO BYPASS CROSSOVER
     5577   01 01E78    35702168              STW,7    PAGEADR           STPRE VP ADDR
     5578   01 01E79    6AF01E46              BAL,15   LRAREAD           GO TO LRA ROUTIN W/0 SS1 LOOP
     5579   01 01E7A    32802149              LW,8     SAVRESLT          GET LRA REG CONTENTS
     5580   01 01E7B    25800077 A            SLS,8    -9
     5581   01 01E7C    4B802340              AND,8    X1FFF             SAVE MAP BITS READ
     5582   01 01E7D    32702167              LW,7     VPREAD            SET INDEX TO STORE IN IMAGE BUF
     5583   01 01E7E    558E224A              STH,8    IMAGEMAP,X7       STORE IMAGE
     5584   01 01E7F    20700001 A            AI,7     1                 INCR PAGE ADDR
     5585   01 01E80    31702312              CW,7     ERA
     5586   01 01E81    68201E75              BLE      SETPAD1           READ MAP FOR NEXT PAGE
     5587         01 01E82           DISPLAY1 EQU      %
     5588   01 01E82    32302312              LW,3     ERA               GET ERA
     5589   01 01E83    3830230F              SW,3     P1#
     5590   01 01E84    20300001 A            AI,X3    1                 X3= #OF REG TO BE DISPLAYED
     5591   01 01E85    3240230F              LW,X4    P1#
     5592   01 01E86    4B40233A              AND,X4   X01               SAVE BIT TO DEFINE EVEN/ODD REG
     5593   01 01E87    3280230F              LW,8     P1#
     5594   01 01E88    2580007F A            SLS,8    -1                STORE ADDR OF FIRST
     5595   01 01E89    66801E8B              AWM,8    HTE1+1            MAP IMAGE WORD TO BE DISPLAYED
     5596   01 01E8A    EA6003C3     HTE1     BAL,LINK *#HTE%            CONVERT TO EBCIDIC
     5597   01 01E8B    0000224A              GEN,10,22  0,IMAGEMAP
     5598         01 01E8C           LW       EQU      %
     5599   01 01E8C    B2880006 A            LW,8     *LINK,X4          LOAD MAP REG CONTENTS
     5600   01 01E8D    35842B91              STW,8    BUF1+3,X2         STORE IN BUFFER
     5601   01 01E8E    203FFFFF A            AI,X3    -1                DECR REG COUNT
     5602   01 01E8F    20200002 A            AI,X2    2                 UPDATE STORAGE LOCATION
     5603   01 01E90    201FFFFF A            AI,X1    -1                DECR # OF REG DISPL./LINE
     5604   01 01E91    68301E98              BEZ      LINFUL1           BRANCH IF OUTPUT BUFF FILLED
     5605   01 01E92    32300003 A            LW,X3    X3
     5606   01 01E93    68301EC5              BEZ      PRXITDP           PRINT LINE AND EXIT
     5607   01 01E94    21400001 A            CI,X4    1                 IF ODD REG ADDR DISPLAYED
     5608   01 01E95    68301EA1              BE       NXTBLK1           BRANCH TO GET NXT BLK OF MAP REG
     5609   01 01E96    20400001 A            AI,X4    1                 INCR INDEX TO STORE NEXT REG
     5610   01 01E97    68001E8C              B        LW
     5611                            *
     5612         01 01E98           LINFUL1  EQU      %
     5613   01 01E98    22200000 A            LI,X2    0                 RESET X2
     5614   01 01E99    22100008 A            LI,X1    8                 INITIALISE X1
     5615   01 01E9A    6AF01EA4              BAL,R15  PRBUF             PRINT DATA LINE
     5616   01 01E9B    32300003 A            LW,X3    X3
     5617   01 01E9C    68301EBB              BEZ      EXITDP            EXIT IF ALL REG DISPLAYED
     5618   01 01E9D    21400001 A            CI,X4    1                 IF X4=1 GET NXT BLK OF MAP REG
     5619   01 01E9E    68301EA1              BE       NXTBLK1
     5620   01 01E9F    20400001 A            AI,X4    1
     5621   01 01EA0    68001E8C              B        LW
     5622                            *
     5623         01 01EA1           NXTBLK1  EQU      %
     5624   01 01EA1    33101E8B              MTW,1    HTE1+1            INCR ADDR
     5625   01 01EA2    22400000 A            LI,X4    0                 RESET X4
     5626   01 01EA3    68001E8A              B        HTE1              CONVERT NEXT MAP IMAGE WORD
     5627                            *
     5628                            *
     5629         01 01EA4           PRBUF    EQU      %
     5630   01 01EA4    3560000A A            STW,LINK  R10              SAVE CONTENTS OF LINK
     5631   01 01EA5    329C0001 A            LW,9     1,LINK
     5632   01 01EA6    3590217E              STW,9    XSAVE
     5633   01 01EA7    EA6003C3              BAL,LINK *#HTE%            CONVERT FIRST REG ADR ON CUR. LIN
     5634   01 01EA8    00002311              GEN,10,22  0,CRA
     5635   01 01EA9    328C0001 A            LW,8     1,LINK
     5636   01 01EAA    55802B8F              STH,8    BUF1+1            STORE REG ADDR
     5637   01 01EAB    EA6003C5              #PRINT   BUF1              PRINT DATA LINE
            01 01EAC    EA6003CD
            01 01EAD    C000AE38 A
            01 01EAE    EA6003C6
     5638   01 01EAF    22800008 A            LI,8     8
     5639   01 01EB0    66802311              AWM,8    CRA               INCR CRA FOR NEXT LINE
     5640   01 01EB1    6AB01EB6              BAL,R11  CLRBUF            CLEAR BUFFER
     5641   01 01EB2    3260000A A            LW,LINK  R10               RESTORE VALUE SAVED EARLIER
     5642   01 01EB3    3290217E              LW,9     XSAVE
     5643   01 01EB4    359C0001 A            STW,9    1,LINK
     5644   01 01EB5    E800000F A            B        *R15              EXIT
     5645                            *
     5646         01 01EB6           CLRBUF   EQU      %
     5647   01 01EB6    225FFFEF A            LI,X5    -17               SET INDEX TO CLEAR
     5648   01 01EB7    32802318              LW,8     EBCBLNKS          BUFFER TO BLANKS
     5649   01 01EB8    358A2BA0              STW,8    BUF1+18,X5
     5650   01 01EB9    65501EB8              BIR,X5   %-1
     5651   01 01EBA    E800000B A            B        *R11              EXIT
     5652                            *
     5653         01 01EBB           EXITDP   EQU      %
     5654   01 01EBB    32802169              LW,8     SAVPAG
     5655   01 01EBC    35802168              STW,8    PAGEADR           RESTORE VP ADDR VALUE
     5656   01 01EBD    3280217D              LW,8     SAV4C             RESTORE XPSD SAVED EARLIER
     5657   01 01EBE    3580004C A            STW,8    X'4C'
     5658   01 01EBF    3280230E              LW,8     WLFLAG            WL DIRECTIVE
     5659   01 01EC0    69301F4C              BNEZ     EXITDW            YES
     5660   01 01EC1    02200000 A   EXITDP1  LCI      0
     5661   01 01EC2    2A0021B8              LM,0     SAVEREGS          RESTORE REGISTERS
     5662   01 01EC3    02200010 A            LCI      1
     5663   01 01EC4    E80003C9              B        *#FIDLE%
     5664                            *
     5665         01 01EC5           PRXITDP  EQU      %
     5666   01 01EC5    6AF01EA4              BAL,R15  PRBUF             PRINT LINE
     5667   01 01EC6    68001EBB              B        EXITDP            EXIT
     5668                            *
     5669                            **************************************************************
     5670                            **************************************************************
     5671                            ****     THIS ROUTINE IS ENTERED BY USER KEYIN OF  DA.
     5672                            ****
     5673                            **************************************************************
     5674                            **************************************************************
     5675                            *
     5676                            *
     5677                            *
     5678         01 01EC7           DISAC    EQU      %
     5679   01 01EC7    6AB01F76              BAL,11   SAVINFO           SAVE INFO
     5680   01 01EC8    32802314              LW,8     IAC
     5681   01 01EC9    35801F05              STW,8    BTE1+1            INITIALISE ADDR
     5682   01 01ECA    35802183              STW,8    IMAGE
     5683   01 01ECB    02200020 A            LCI      2
     5684   01 01ECC    2A802184              LM,8     ACBITS
     5685   01 01ECD    02200020 A            LCI      2
     5686   01 01ECE    2B801EE7              STM,8    SLSX
     5687   01 01ECF    EA6003C5              #PRINT   BFHDG2,C1         PRINT HEADING
            01 01ED0    EA6003CD
            01 01ED1    C100AE80 A
            01 01ED2    EA6003C6
     5688         01 01ED3           SCAN     EQU      %
     5689   01 01ED3    6AF01F50              BAL,15   VALPARAM          VALIDATE PARAMETERS
     5690   01 01ED4    68001EBB              B        EXITDP            PARAM ERROR RETURN
     5691                            *                                   NORMAL RETURN
     5692   01 01ED5    22100010 A            LI,X1    16                DEFINE MAX # OF REG PER LINE
     5693   01 01ED6    22200001 A            LI,X2    1                 RESET INDEX USED TO STORE IN BUFF
     5694   01 01ED7    6AB01EB6              BAL,R11  CLRBUF            CLEAR BUFFER
     5695   01 01ED8    32A003F2              LW,10    TCR:NUM
     5696   01 01ED9    21A00005 A            CI,10    TNUM5             IF FROM LRA TESTS
     5697   01 01EDA    69101EFC              BL       DISPLAY2          DO NOT READ REGS VIA LRA
     5698   01 01EDB    2250001E A   SPAD2B   LI,5     30                RESET INDEX
     5699   01 01EDC    22800000 A            LI,8     0
     5700   01 01EDD    35802182              STW,8    TEMP1             RESET TEMP STORAGE
     5701         01 01EDE           SETPAD2  EQU      %
     5702   01 01EDE    32702311              LW,7     CRA               GET PAGE ADDR
     5703   01 01EDF    4B70234F              AND,7    XF0               CLEAR LOW ORDER BITS
     5704         01 01EE0           SPAD2A   EQU      %
     5705   01 01EE0    35702167              STW,7    VPREAD            STORE VP TO BE READ
     5706   01 01EE1    25700009 A            SLS,7    9                 SUCH THAT ALWAYS READ REG 0
     5707   01 01EE2    20700010 A            AI,7     X'10'             ADD VALUE TO BYPASS CROSSOVER
     5708   01 01EE3    35702168              STW,7    PAGEADR           STORE VP ADDR
     5709   01 01EE4    6AF01E46              BAL,15   LRAREAD           GO TO LRA ROUTIN W/0 SS1 LOOP
     5710   01 01EE5    32802149              LW,8     SAVRESLT          GET LRA REG CONTENTS
     5711   01 01EE6    32702167              LW,7     VPREAD            GET VP READ
     5712         01 01EE7           SLSX     EQU      %
     5713   01 01EE7    02000000 A            NOP
     5714   01 01EE8    02000000 A            NOP
     5715   01 01EE9    4B802333              AND,8    X03               SAVE BITS READ
     5716   01 01EEA    258A0000 A            SLS,8    0,5               SHIFT BY APPROPIATE BIT POSITIONS
     5717   01 01EEB    33E00005 A            MTW,-2   5                 DECR SHIFT COUNT
     5718   01 01EEC    66802182              AWM,8    TEMP1             SAVE IMAGE
     5719   01 01EED    21500000 A            CI,5     0                 IF SHIFT COUNT NEGATIVE ALL 16 REGS
     5720   01 01EEE    69101EF1              BLZ      %+3               IN A BLOCK HAVE BEEN READ
     5721   01 01EEF    20700001 A            AI,7     1                 INCR PAGE ADDR
     5722   01 01EF0    68001EE0              B        SPAD2A            READ NEXT REG
     5723   01 01EF1    32802182              LW,8     TEMP1             GET IMAGE
     5724   01 01EF2    2570007C A            SLS,7    -4                SET UP INDEX
     5725   01 01EF3    B58E2183              STW,8    *IMAGE,7          STORE IMAGE OF 1 BLOCK OF REGS
     5726   01 01EF4    32702311              LW,7     CRA
     5727   01 01EF5    20700010 A            AI,7     X'10'             INCR REG ADR
     5728   01 01EF6    35702311              STW,7    CRA
     5729   01 01EF7    4B702352              AND,7    X1F0
     5730   01 01EF8    31702312              CW,7     ERA
     5731   01 01EF9    68201EDB              BLE      SPAD2B            READ NEXT REG
     5732   01 01EFA    3230230F              LW,3     P1#
     5733   01 01EFB    35302311              STW,3    CRA               RESET CRA
     5734         01 01EFC           DISPLAY2 EQU      %
     5735   01 01EFC    32302312              LW,3     ERA               GET END REG ADDR
     5736   01 01EFD    3830230F              SW,3     P1#
     5737   01 01EFE    20300001 A            AI,X3    1                 X3= #OF REG TO BE DISPLAYED
     5738   01 01EFF    3240230F              LW,X4    P1#
     5739   01 01F00    4B402341              AND,X4   XF                SAVE ADDR TO DEFINE REG FOR CUR BLK
     5740   01 01F01    3280230F              LW,8     P1#
     5741   01 01F02    2580007C A            SLS,8    -4                STORE ADDR OF FIRST
     5742   01 01F03    66801F05              AWM,8    BTE1+1            AC  IMAGE WORD TO BE DISPLAYED
     5743   01 01F04    EA6003C4     BTE1     BAL,LINK *#BTE%            CONVERT TO EBCIDIC
     5744   01 01F05    000022CA              GEN,10,22  0,IMAGEAC
     5745         01 01F06           LH       EQU      %
     5746   01 01F06    D2880006 A            LH,8     *LINK,X4          LOAD AC  REG CONTENTS
     5747   01 01F07    55842B90              STH,8    BUF1+2,X2         STORE IN BUFFER
     5748   01 01F08    203FFFFF A            AI,X3    -1                DECR REG COUNT
     5749   01 01F09    20200002 A            AI,X2    2                 UPDATE STORAGE LOCATION
     5750   01 01F0A    201FFFFF A            AI,X1    -1                DECR # OF REG DISPL./LINE
     5751   01 01F0B    68301F12              BEZ      LINFUL2           BRANCH IF OUTPUT BUFF FILLED
     5752   01 01F0C    32300003 A            LW,X3    X3
     5753   01 01F0D    68301F2C              BEZ      PRXITDA           PRINT LINE AND EXIT
     5754   01 01F0E    2140000F A            CI,X4    X'F'              IF ODD REG ADDR DISPLAYED
     5755   01 01F0F    68301F1B              BE       NXTBLK2           BRANCH TO GET NXT BLK OF AC OR WL REG
     5756   01 01F10    20400001 A            AI,X4    1                 INCR INDEX TO STORE NEXT REG
     5757   01 01F11    68001F06              B        LH
     5758                            *
     5759         01 01F12           LINFUL2  EQU      %
     5760   01 01F12    22200001 A            LI,X2    1                 RESET X2
     5761   01 01F13    22100010 A            LI,X1    16                INITIALISE X1
     5762   01 01F14    6AF01F1E              BAL,R15  PRBUF1            PRINT DATA LINE
     5763   01 01F15    32300003 A            LW,X3    X3
     5764   01 01F16    68301EBB              BEZ      EXITDA            EXIT IF ALL REG DISPLAYED
     5765   01 01F17    2140000F A            CI,X4    X'F'              IF X4=1 GET NXT BLK OF AC OR WL REG
     5766   01 01F18    68301F1B              BE       NXTBLK2
     5767   01 01F19    20400001 A            AI,X4    1
     5768   01 01F1A    68001F06              B        LH
     5769                            *
     5770         01 01F1B           NXTBLK2  EQU      %
     5771   01 01F1B    33101F05              MTW,1    BTE1+1            INCR ADDR
     5772   01 01F1C    22400000 A            LI,X4    0                 RESET X4
     5773   01 01F1D    68001F04              B        BTE1              CONVERT NEXT AC OR WL IMAGE WORD
     5774                            *
     5775                            *
     5776         01 01F1E           PRBUF1   EQU      %
     5777   01 01F1E    3560000A A            STW,LINK  R10              SAVE CONTENTS OF LINK
     5778   01 01F1F    EA6003C3              BAL,LINK *#HTE%            CONVERT FIRST REG ADDR ON CUR. LIN
     5779   01 01F20    00002311              GEN,10,22  0,CRA
     5780   01 01F21    328C0001 A            LW,8     1,LINK
     5781   01 01F22    55802B8F              STH,8    BUF1+1            STORE REG ADDR
     5782   01 01F23    EA6003C5              #PRINT   BUF1              PRINT DATA LINE
            01 01F24    EA6003CD
            01 01F25    C000AE38 A
            01 01F26    EA6003C6
     5783   01 01F27    22800010 A            LI,8    16
     5784   01 01F28    66802311              AWM,8    CRA               INCR CRA FOR NEXT LINE
     5785   01 01F29    6AB01EB6              BAL,R11  CLRBUF            CLEAR BUFFER
     5786   01 01F2A    3260000A A            LW,LINK  R10               RESTORE VALUE SAVED EARLIER
     5787   01 01F2B    E800000F A            B        *R15              EXIT
     5788                            *
     5789         01 01F2C           PRXITDA  EQU      %
     5790   01 01F2C    6AF01F1E              BAL,R15  PRBUF1
     5791   01 01F2D    68001EBB              B        EXITDA
     5792                            *
     5793         01 01EBB           EXITDA   EQU      EXITDP
     5794                            *
     5795                            **************************************************************
     5796                            **************************************************************
     5797                            *
     5798                            *        THIS ROUTINE IS ENTERED BY USER KEYIN OF DW.
     5799                            **************************************************************
     5800                            **************************************************************
     5801                            *
     5802                            *
     5803                            *
     5804         01 01F2E           DISWL    EQU      %
     5805   01 01F2E    6AB01F76              BAL,11   SAVINFO           SAVE INFO
     5806   01 01F2F    32802315              LW,8     IWL
     5807   01 01F30    35801F05              STW,8    BTE1+1            INITIALISE ADDRES
     5808   01 01F31    35802183              STW,8    IMAGE
     5809   01 01F32    02200020 A            LCI      2
     5810   01 01F33    2A802186              LM,8     NOP
     5811   01 01F34    02200020 A            LCI      2
     5812   01 01F35    2B801EE7              STM,8    SLSX
     5813   01 01F36    EA6003C5              #PRINT   BFHDG3,C1         PRINT HEADING
            01 01F37    EA6003CD
            01 01F38    C100AEB8 A
            01 01F39    EA6003C6
     5814   01 01F3A    22800001 A            LI,8     1
     5815   01 01F3B    3580230E              STW,8    WLFLAG            SET WL DIRECTIVE FLAG
     5816   01 01F3C    22CFFF00 A            LI,12    -256
     5817   01 01F3D    22700000 A            LI,7     0                 SET PAGE ADDR TO 0
     5818         01 01F3E           SETPADX  EQU      %
     5819   01 01F3E    35702167              STW,7    VPREAD            STORE VP TO BE READ
     5820   01 01F3F    25700009 A            SLS,7    9                 SET PAG ADR IN BITS 15-22
     5821   01 01F40    20700010 A            AI,7     X'10'             ADD VALUE TO BYPASS CROSSOVER
     5822   01 01F41    35702168              STW,7    PAGEADR           STORE VP #
     5823   01 01F42    6AF01E46              BAL,15   LRAREAD           GO TO LRA ROUTIN W/0 SS1 LOOP
     5824   01 01F43    32802149              LW,8     SAVRESLT          GET LRA REG CONTENTS
     5825   01 01F44    25800077 A            SLS,8    -9
     5826   01 01F45    4B802340              AND,8    X1FFF             SAVE MAP READ
     5827   01 01F46    32702167              LW,7     VPREAD
     5828   01 01F47    558E224A              STH,8    IMAGEMAP,X7       SAVE MAP IMAGE
     5829   01 01F48    20700001 A            AI,7     1                 INCR PAGE ADDR
     5830   01 01F49    65C01F3E              BIR,12   SETPADX           READ MAP FOR NEXT PAGE
     5831   01 01F4A    6AF01DF1              BAL,15   MAPSELF           MAP EACH PAGE TO ITSELF
     5832   01 01F4B    68001ED3              B        SCAN              OUTPUT WL REGS
     5833                            *
     5834         01 01F4C           EXITDW   EQU      %
     5835   01 01F4C    32702337              LW,7     Y8                LOAD ALL MAP REGS
     5836   01 01F4D    2260224A              LI,6     IMAGEMAP          WITH THE MAP IMAGES
     5837   01 01F4E    6F6A0000 A            MMC,6    5                 SAVED EARLIER
     5838   01 01F4F    68001EC1              B        EXITDP1           EXIT
     5839                            *
     5840                            *
     5841                            ****     THIS ROUTINE CHECKS THE PARAMETERS FOR
     5842                            ****     DP,DA AND DW ROUTINES.
     5843                            *
     5844         01 01F50           VALPARAM EQU      %
     5845   01 01F50    35F0213C              STW,15   RETURN2           SAVE RETURN ADDR
     5846   01 01F51    3260039C              LW,LINK  #PARAM%H1         GET PARAM 1
     5847   01 01F52    21600100 A            CI,LINK  256
     5848   01 01F53    68101F6D              BGE      DPER1             ERROR IF .GTE. TO 256
     5849   01 01F54    3560230F              STW,LINK  P1#              SAVE P1#
     5850   01 01F55    3260039D              LW,LINK  #PARAM%H2         GET PARAM 2
     5851   01 01F56    68301F68              BEZ      DISONE            BRANCH IF P2# NOT KEYED IN
     5852   01 01F57    21600100 A            CI,LINK  256
     5853   01 01F58    68101F6F              BGE      DPER2             ERROR IF .GTE.TO 256
     5854   01 01F59    35602310              STW,LINK  P2#              SAVE #P2
     5855   01 01F5A    3270230F              LW,7     P1#
     5856   01 01F5B    3160230F              CW,LINK  P1#               IF P2 G.T. P1
     5857   01 01F5C    69201F61              BG       INITDP            BRANCH
     5858   01 01F5D    3060230F              AW,LINK  P1#               ADD P1 TO P2
     5859   01 01F5E    21600100 A            CI,LINK  X'100'            IF SUM GREATER THAN MAK
     5860   01 01F5F    69201F6F              BG       DPER2             #OF REGS REPORT ERROR
     5861   01 01F60    206FFFFF A            AI,LINK  -1                SUBTRACT 1
     5862         01 01F61           INITDP   EQU      %
     5863   01 01F61    35702311              STW,7    CRA               STORE CURRENT REG ADDR
     5864   01 01F62    35602312              STW,LINK ERA               STORE END REG ADDR
     5865   01 01F63    3310213C              MTW,1    RETURN2           INCR RETURN ADDR
     5866   01 01F64    E800213C              B        *RETURN2          EXIT
     5867                            *
     5868         01 01F65           DISALL   EQU      %                 DISPLAY ALL REG
     5869   01 01F65    226000FF A            LI,LINK  X'FF'
     5870   01 01F66    35602310              STW,LINK P2#               SET P2# = X'FF'
     5871   01 01F67    68001F61              B        INITDP
     5872                            *
     5873         01 01F68           DISONE   EQU      %                 DISPLAY ONE REG
     5874   01 01F68    35602310              STW,LINK P2#               SET P2 TO 0
     5875   01 01F69    3270230F              LW,7     P1#
     5876   01 01F6A    68301F65              BEZ      DISALL            DISPLAY ALLREGS IF P1=0
     5877   01 01F6B    35700006 A            STW,7    LINK              SET ERA =P1#
     5878   01 01F6C    68001F61              B        INITDP
     5879                            *
     5880                            *
     5881         01 01F6D           DPER1    EQU      %                 PARAM1 ERROR
     5882   01 01F6D    128003A2              LD,8     #PARAM1
     5883   01 01F6E    68001F70              B        %+2
     5884                            *
     5885         01 01F6F           DPER2    EQU      %                 PARAM2 ERROR
     5886   01 01F6F    128003A4              LD,8     #PARAM2
     5887   01 01F70    15802B80              STD,8    PARAMER+6
     5888   01 01F71    EA6003C5              #TYPE    PARAMER           TYPE PARAMETER ERROR MESSAGE
            01 01F72    EA6003CC
            01 01F73    0000ADE8 A
            01 01F74    EA6003C6
     5889   01 01F75    E800213C              B        *RETURN2          EXIT FOR ERROR RETURN
     5890                            *
     5891                            *
     5892                            ****     THIS ROUTINE SAVES ALL THE REGISTERS;ALSO
     5893                            ****     IT SAVES EXISTING XPSD AT X'4C' AND REPLACES IT
     5894                            ****     WITH GUIDE'S XPSD .
     5895                            *
     5896         01 01F76           SAVINFO  EQU      %
     5897   01 01F76    02200000 A            LCI      0
     5898   01 01F77    2B0021B8              STM,0    SAVEREGS          SAVE ALL REGS
     5899   01 01F78    3280004C A            LW,8     X'4C'
     5900   01 01F79    3580217D              STW,8    SAV4C             SAVE EXISTING XPSD
     5901   01 01F7A    32802168              LW,8     PAGEADR
     5902   01 01F7B    35802169              STW,8    SAVPAG            SAVE TEST VP ADDR VALUE
     5903   01 01F7C    32802136              LW,8     GUID:4C
     5904   01 01F7D    3580004C A            STW,8    X'4C'             REPLACE IT WITH GUIDE7S XPSD
     5905   01 01F7E    E800000B A            B        *11               EXIT
     5906                            *
     5907                            **************************************************************
     5908                            **************************************************************
     5909                            ****     THIS ROUTINE IS ENTERED ON USER KEYIN
     5910                            ****     OF J.
     5911                            **************************************************************
     5912                            **************************************************************
     5913                            *
     5914                            *
     5915   01 01F7F    0000AF04              DATA     BA(PLINE#J),BA(PL#JHDR)
            01 01F80    0000AEEC
     5916                            *
     5917         01 01F81           PARAMJ   EQU      %
     5918   01 01F81    02200000 A            LCI      0
     5919   01 01F82    2B00231A              STM,0    SAVE              SAVE REGISTERS
     5920   01 01F83    70200006 A            LC       LINK              CHECK IF ANY CHANGES
     5921   01 01F84    68301FBE              BEZ      PARAMJ#Y          EXIT IF NONE
     5922   01 01F85    22800000 A            LI,R8    0
     5923   01 01F86    35802319              STW,R8   PARAM%RET         ZERO RETURN STORE
     5924   01 01F87    32802DA2              LW,R8     PLINEIN+1        IS MSGDEV=COMDEV
     5925   01 01F88    31802BC4              CW,R8    PLINE#J+3
     5926   01 01F89    68301F94              BE       PARAMJ#A          BRANCH IF YES
     5927   01 01F8A    EA6003C2              BAL,LINK  *#ETH%           IS DEVICE RECOG. AND AVAIL.
     5928   01 01F8B    04000020 A            GEN,8,24 4,X'20'
     5929   01 01F8C    CD000006 A            TIO,0    *LINK
     5930   01 01F8D    68C01F94              BCR,12   PARAMJ#A          BRANCH IF YES
     5931   01 01F8E    EA6003C5              #TYPE    NOTAVAIL
            01 01F8F    EA6003CC
            01 01F90    0000AF34 A
            01 01F91    EA6003C6
     5932   01 01F92    33102319              MTW,1    PARAM%RET         SET PARAM FIELD 1 AS ERROR
     5933   01 01F93    68001FC9              B        PARAMJ#E
     5934                            *
     5935                            *
     5936   01 01F94    EA6003C2     PARAMJ#A BAL,LINK  *#ETH%           FIND CM
     5937   01 01F95    0100B69B              GEN,8,24 1,BA(PLINEIN+5)+3
     5938   01 01F96    21600002 A            CI,LINK  2
     5939   01 01F97    68201F9F              BLE      PJ#X              BRANCH IF 0 THRU 2 (OK)
     5940   01 01F98    21600009 A            CI,LINK  9
     5941   01 01F99    69201F9D              BG       PJ#Y              BRANCH IF A THRU F
     5942   01 01F9A    33302319     PJ#Z     MTW,3    PARAM%RET         SET PARAM FIELD 3 AS ERROR
     5943   01 01F9B    32802DA6              LW,R8     PLINEIN+5        FIND BAD KEYIN
     5944   01 01F9C    68001FC9              B        PARAMJ#E
     5945                            *
     5946   01 01F9D    2160000D A   PJ#Y     CI,LINK   X'D'
     5947   01 01F9E    68101F9A              BGE      PJ#Z              BRANCH IF D THRU F (ERROR)
     5948   01 01F9F    22900000 A   PJ#X     LI,9     0
     5949   01 01FA0    35902317              STW,9    CMFIXED
     5950   01 01FA1    32A00006 A            LW,LOG   LINK              SAVE CM IN LOG REGISTER
     5951                            *
     5952   01 01FA2    72602BC1     PARAMJ#X LB,LINK  PLINE#J           COPY UPDATED LINE
     5953   01 01FA3    728C2DA1              LB,R8     PLINEIN,LINK
     5954   01 01FA4    758C2BC1              STB,R8   PLINE#J,LINK
     5955   01 01FA5    64601FA3              BDR,LINK   %-2
     5956   01 01FA6    EA6003C2              BAL,LINK   *#ETH%          FIND NEW MSGDEV
     5957   01 01FA7    0400AF08              GEN,8,24 4,BA(PLINE#J+1)
     5958   01 01FA8    35600397              STW,LINK   #PRTADDR
     5959   01 01FA9    EA6003C2              BAL,LINK *#ETH%            FIND SI COUNT
     5960   01 01FAA    0300AF15              GEN,8,24 3,BA(PLINE#J+4)+1
     5961   01 01FAB    35A02194              STW,LOG  CLMARG
     5962   01 01FAC    3160232A              CW,LINK  SICOUNT           ALUE CHANGED
     5963   01 01FAD    68301FB4              BE       READCM            NO
     5964   01 01FAE    3560232A              STW,LINK   SICOUNT
     5965   01 01FAF    3280219D              LW,8     PASS#             GET PASS#
     5966   01 01FB0    21800001 A            CI,8     1                 IS IT THE FIRST PASS
     5967   01 01FB1    68301FB3              BE       %+2               YES
     5968   01 01FB2    3060219D              AW,LINK  PASS#             ADD PASS# TO NEW SI COUNT
     5969   01 01FB3    35602193              STW,LINK  NCOUNT           SAVE VALUE
     5970   01 01FB4    6C800045 A   READCM   RD,R8    X'45'             FIND EXISTING STATUS
     5971   01 01FB5    4B802316              AND,R8   MARGINMASK        CLEAR MARGIN FIELDS
     5972   01 01FB6    21A00002 A            CI,LOG   2                 IS CM A FIXED MARGIN
     5973   01 01FB7    68201FBB              BLE      %+4               BRANCH IF NO
     5974   01 01FB8    22900001 A            LI,9     1
     5975   01 01FB9    35902317              STW,9    CMFIXED           SET FLAG
     5976   01 01FBA    20AFFFF6 A            AI,LOG   -10               CONVERT A,B,C TO 0,1,2 RESP.
     5977   01 01FBB    25A00016 A            SLS,LOG  22                ALIGN CM
     5978   01 01FBC    49A00008 A            OR,LOG   R8                NEW CM TO CONTROL LINE
     5979   01 01FBD    6DA00045 A            WD,LOG   X'45'             SET MARGINS
     5980         01 01FBE           PARAMJ#Y EQU      %
     5981   01 01FBE    6C800045 A            RD,8     X'45'             READ VM
     5982   01 01FBF    31802350              CW,8     Y001              IF BIT 11 SET
     5983   01 01FC0    69401FC5              BCS,4    GOTO%             VOLTAGES NOT MARGINED
     5984   01 01FC1    EA6003C5              #TYPE    VMMSG2            OUTPUT VOLTAGES ON MARGIN MSG
            01 01FC2    EA6003CC
            01 01FC3    0000ADC8 A
            01 01FC4    EA6003C6
     5985         01 01FC5           GOTO%    EQU      %
     5986   01 01FC5    02200000 A            LCI      0
     5987   01 01FC6    2A00231A              LM,0     SAVE              RESTORE REGISTERS
     5988   01 01FC7    02200010 A            LCI      1                 RETURN TO SAME GO-TO ADDRESS
     5989   01 01FC8    E80003C9              B        *#FIDLE%
     5990                            *
     5991   01 01FC9    32902318     PARAMJ#E LW,R9    EBCBLNKS
     5992   01 01FCA    15802B80              STD,R8   PARAMER+6
     5993   01 01FCB    EA6003C5              #TYPE    PARAMER
            01 01FCC    EA6003CC
            01 01FCD    0000ADE8 A
            01 01FCE    EA6003C6
     5994   01 01FCF    02200000 A            LCI      0
     5995   01 01FD0    2A00231A              LM,0     SAVE              RESTORE REGISTERS
     5996   01 01FD1    46602319              XW,LINK   PARAM%RET        ERROR FIELD NO. TO LINK
     5997   01 01FD2    E8002319              B        *PARAM%RET
     5998                            *
     5999                            **************************************************************
     6000                            **************************************************************
     6001                            ****     THIS ROUTINE IS ENTERED ON USER KEYIN OF 'T'
     6002                            **************************************************************
     6003                            **************************************************************
     6004                            *
     6005                            *
     6006   01 01FD3    0000AF70              DATA     BA(PLIN#T),BA(PL#THDR)
            01 01FD4    0000AF54
     6007                            *
     6008         01 01FD5           PARAMT   EQU      %
     6009   01 01FD5    02200000 A            LCI      0
     6010   01 01FD6    2B00231A              STM,0    SAVE              SAVE REGS
     6011   01 01FD7    70200006 A            LC       LINK
     6012   01 01FD8    68301FF6              BEZ      PT#XIT            EXIT IF NO CHANGES
     6013   01 01FD9    22800000 A            LI,8     0
     6014   01 01FDA    35802319              STW,8    PARAM%RET         RESET ERROR #
     6015   01 01FDB    EA6003C2              BAL,LINK *#ETH%            CONVERT PARAM 1
     6016   01 01FDC    0400B68C              GEN,8,24 4,BA(PLINEIN+2)
     6017   01 01FDD    21601FFF A            CI,LINK  X'1FFF'
     6018   01 01FDE    69201FFA              BG       PT#ER1            ERROR IF .GT. 1FFF
     6019   01 01FDF    3560232B              STW,LINK   TPMAP           STORE MAP TEST PATTERN
     6020   01 01FE0    EA6003C2              BAL,LINK *#ETH%            CONVERT PARAM 2
     6021   01 01FE1    0200B696              GEN,8,24 2,BA(PLINEIN+4)+2
     6022   01 01FE2    31602330              CW,LINK  MAPEDPAG          THIS ENTRY CANNOT DEFINE A
     6023   01 01FE3    69101FFD              BL       PT#ER2            PAGE IN PROGRAM REGION
     6024   01 01FE4    31602349              CW,LINK  XFF               ALSO CANNOT BE GREATER THAN
     6025   01 01FE5    69201FFD              BG       PT#ER2            MAX VIRTUAL PAGE ADDRESS
     6026   01 01FE6    3160232F              CW,LINK  PGMAX             ALSO CANNOT BE GREATER THAN
     6027   01 01FE7    69201FFD              BG       PT#ER2            MAX PAGE IN MEM
     6028   01 01FE8    3560232C              STW,LINK   TINSTP          SAVE VALUE
     6029   01 01FE9    EA6003C2              BAL,LINK *#ETH%            CONVERT PARAM 3
     6030   01 01FEA    0200B69E              GEN,8,24 2,BA(PLINEIN+6)+2
     6031   01 01FEB    31602330              CW,LINK  MAPEDPAG          SAME CHECKS AS FOR PARAM 2
     6032   01 01FEC    69102000              BL       PT#ER3
     6033   01 01FED    31602349              CW,LINK  XFF
     6034   01 01FEE    69202000              BG       PT#ER3
     6035   01 01FEF    3160232F              CW,LINK  PGMAX             ALSO CANNOT BE GREATER THAN
     6036   01 01FF0    69202000              BG       PT#ER3            MAX PAGE IN MEM
     6037   01 01FF1    3560232D              STW,LINK   TESTPAGE        SAVE TEST PAGE ADDRESS
     6038   01 01FF2    72602BDC              LB,LINK  PLIN#T            COPY UPDATED LINE
     6039   01 01FF3    728C2DA1              LB,8      PLINEIN,LINK
     6040   01 01FF4    758C2BDC              STB,8    PLIN#T,LINK
     6041   01 01FF5    64601FF3              BDR,LINK   %-2
     6042         01 01FF6           PT#XIT   EQU      %
     6043   01 01FF6    02200000 A            LCI      0
     6044   01 01FF7    2A00231A              LM,0     SAVE
     6045   01 01FF8    02200010 A            LCI      1
     6046   01 01FF9    E80003C9              B        *#FIDLE%          EXIT
     6047                            *
     6048         01 01FFA           PT#ER1   EQU      %
     6049   01 01FFA    33102319              MTW,1    PARAM%RET         SET PARAM FIELD 1 AS ERROR
     6050   01 01FFB    32802DA3              LW,8      PLINEIN+2
     6051   01 01FFC    68002002              B        PT#ERR
     6052                            *
     6053         01 01FFD           PT#ER2   EQU      %
     6054   01 01FFD    33202319              MTW,2    PARAM%RET
     6055   01 01FFE    32802DA5              LW,8      PLINEIN+4
     6056   01 01FFF    68002002              B        PT#ERR
     6057                            *
     6058         01 02000           PT#ER3   EQU      %
     6059   01 02000    33302319              MTW,3    PARAM%RET
     6060   01 02001    32802DA7              LW,8      PLINEIN+6
     6061         01 02002           PT#ERR   EQU      %
     6062   01 02002    32902318              LW,9     EBCBLNKS
     6063   01 02003    15802B80              STD,8    PARAMER+6
     6064   01 02004    EA6003C5              #TYPE    PARAMER
            01 02005    EA6003CC
            01 02006    0000ADE8 A
            01 02007    EA6003C6
     6065   01 02008    02200000 A            LCI      0
     6066   01 02009    2A00231A              LM,0     SAVE
     6067   01 0200A    46602319              XW,LINK  PARAM%RET
     6068   01 0200B    E8002319              B        *PARAM%RET
     6069                            *
     6070                            *****************************************************
     6071                            *****************************************************
     6072                            ****     THIS ROUTINE IS ENTERED ON USER KEY-IN OF 'K'
     6073                            *****************************************************
     6074                            *****************************************************
     6075                            *
     6076   01 0200C    0000AFC0              DATA     BA(PLIN#K)
     6077   01 0200D    0000AFA8              DATA     BA(PL#KHDR)
     6078                            *
     6079         01 0200E           PARAMK   EQU      %
     6080   01 0200E    02200000 A            LCI      0
     6081   01 0200F    2B00231A              STM,0    SAVE              SAVE ALL REGS
     6082   01 02010    22800010 A            LI,8     X'10'             INIT BYTE 0 OF NEW:TST
     6083   01 02011    75802165              STB,8    NEW:TST
     6084   01 02012    70200006 A            LC       LINK              IF NONE OF THE FIELDS
     6085   01 02013    68302057              BEZ      PK#XIT            CHANGED THEN EXIT
     6086   01 02014    22800000 A            LI,8     0
     6087   01 02015    35802319              STW,8    PARAM%RET         CLEAR PARAM ERR FLAG
     6088   01 02016    32802BF1              LW,8     PLIN#K+1          GET OLD VAL OF TST:NUM
     6089   01 02017    31802DA2              CW,8     PLINEIN+1         IF NOT CHANGED
     6090   01 02018    68302023              BE       CHK:TSP           CHECK TSP:NUM
     6091   01 02019    EA6003C2              BAL,LINK *#ETH%            CONVERT VALUE
     6092   01 0201A    0400B688              GEN,8,24  4,BA(PLINEIN+1)
     6093   01 0201B    4B602349              AND,LINK XFF
     6094   01 0201C    21600000 A            CI,LINK  0                 IF TST:NUM ZERO
     6095   01 0201D    68302074              BE       PK#ER1            REPORT PARAM ERR
     6096   01 0201E    31602166              CW,LINK  LST:TST           IF TST:NUM GREATER THAN
     6097   01 0201F    69202074              BG       PK#ER1            LAST TEST # REPORT ERR
     6098   01 02020    356003F0              STW,LINK TST:NUM           STORE NEW VAL OF TST:NUM
     6099   01 02021    32902DA2              LW,9     PLINEIN+1         COPY VAL IN K CONTROL LINE
     6100   01 02022    35902BF1              STW,9    PLIN#K+1
     6101         01 02023           CHK:TSP  EQU      %
     6102   01 02023    32802BF3              LW,8     PLIN#K+3          GET OLD VAL OF TSP:NUM
     6103   01 02024    31802DA4              CW,8     PLINEIN+3         IF NOT CHANGED
     6104   01 02025    68302032              BE       CHK:TCR           CHECK TCR:NUM
     6105   01 02026    EA6003C2              BAL,LINK *#ETH%            CONVERT VALUE
     6106   01 02027    0400B690              GEN,8,24  4,BA(PLINEIN+3)
     6107   01 02028    4B602349              AND,LINK XFF
     6108   01 02029    21600000 A            CI,LINK  0                 IF TSP:NUM ZERO
     6109   01 0202A    68302077              BE       PK#ER2            REPORT PARAM ERR.
     6110   01 0202B    2160002F A            CI,LINK  LAST:TST          IF GREATER THAN LAST TEST #
     6111   01 0202C    69202077              BG       PK#ER2            REPORT PARAM ERR.
     6112   01 0202D    316003F0              CW,LINK  TST:NUM           IF LESS THAN TST:NUM
     6113   01 0202E    69102077              BL       PK#ER2            REPORT PARAM ERR.
     6114   01 0202F    356003F1              STW,LINK TSP:NUM           STORE NEW VAL OF TSP:NUM
     6115   01 02030    32902DA4              LW,9     PLINEIN+3         COPY VAL IN K CONTROL LINE
     6116   01 02031    35902BF3              STW,9    PLIN#K+3
     6117         01 02032           CHK:TCR  EQU      %
     6118   01 02032    32802BF5              LW,8     PLIN#K+5          GET OLD VAL OF TCR:NUM
     6119   01 02033    31802DA6              CW,8     PLINEIN+5         IF NOT CHANGED CHECK THAT
     6120   01 02034    68302046              BE       TCR:SET           IT IS BETWEEN FIRST & LAST
     6121   01 02035    22800000 A            LI,8     0                 SET BYTE 0 OF NEW:TST
     6122   01 02036    75802165              STB,8    NEW:TST           TO ZERO
     6123   01 02037    EA6003C2              BAL,LINK *#ETH%            CONVERT VALUE
     6124   01 02038    0400B698              GEN,8,24  4,BA(PLINEIN+5)
     6125   01 02039    4B602349              AND,LINK XFF
     6126   01 0203A    316003F0              CW,LINK  TST:NUM           IF LESS THAN TST:NUM FORCE
     6127   01 0203B    69102042              BL       SET:TCR           IT TO TST:NUM
     6128   01 0203C    316003F1              CW,LINK  TSP:NUM           IF GREATER THAN TSP:NUM
     6129   01 0203D    69202042              BG       SET:TCR           FORCE IT TO TST:NUM
     6130   01 0203E    356003F2              STW,LINK TCR:NUM           STORE NEW VAL OF TCR:NUM
     6131   01 0203F    32902DA6              LW,9     PLINEIN+5         COPY VAL IN K CONTROL LINE
     6132   01 02040    35902BF5              STW,9    PLIN#K+5
     6133   01 02041    68002046              B        TCR:SET
     6134                            *
     6135         01 02042           SET:TCR  EQU      %
     6136   01 02042    32902BF1              LW,9     PLIN#K+1          FORCE TCR:NUM TO TST:NUM
     6137   01 02043    35902BF5              STW,9    PLIN#K+5          CHANGE CONTROL LINE ACCORD.
     6138   01 02044    329003F0              LW,9     TST:NUM
     6139   01 02045    359003F2              STW,9    TCR:NUM
     6140         01 02046           TCR:SET  EQU      %
     6141   01 02046    328003F0              LW,8     TST:NUM           GET TST:NUM
     6142   01 02047    318003F2              CW,8     TCR:NUM           IF L.T.E TO TCR:NUM
     6143   01 02048    68202051              BLE      LROK              LOWER RANGE OK
     6144         01 02049           COR:HR   EQU      %
     6145   01 02049    328003F0              LW,8     TST:NUM           GET TST:NUM
     6146   01 0204A    358003F2              STW,8    TCR:NUM           STORE IT IN TCR:NUM
     6147   01 0204B    32802BF1              LW,8     PLIN#K+1          CHANGE CONTROL ALSO
     6148   01 0204C    35802BF5              STW,8    PLIN#K+5
     6149   01 0204D    22800000 A            LI,8     0                 SET BYTE0 TO ZERO
     6150   01 0204E    75802165              STB,8    NEW:TST
     6151   01 0204F    328003F1              LW,8     TSP:NUM           CHECK IF TSP:NUM
     6152   01 02050    68002054              B        LROK+3            G.T.E.TO TST:NUM
     6153                            *
     6154         01 02051           LROK     EQU      %
     6155   01 02051    328003F1              LW,8     TSP:NUM           GET TSP:NUM
     6156   01 02052    318003F2              CW,8     TCR:NUM           IF LESS THAN TCR:NUM
     6157   01 02053    69102049              BL       COR:HR            CORRECT TCR:NUM
     6158   01 02054    318003F0              CW,8     TST:NUM           IF TSP:NUM G.T.E.TO
     6159   01 02055    68102057              BGE      PK#XIT            TST:NUM,EXIT
     6160   01 02056    68002074              B        PK#ER1            REPORT PARAM ERR.
     6161                            *
     6162         01 02057           PK#XIT   EQU      %
     6163   01 02057    32802165              LW,8     NEW:TST           TCR:NUM CHANGED
     6164   01 02058    6930206C              BNEZ     SAM:TCR           NO
     6165   01 02059    22800000 A            LI,8     0
     6166   01 0205A    358021D8              STW,8    MAPPTRN+16
     6167   01 0205B    6AF01DEC              BAL,15   INITREGS
     6168   01 0205C    3280212E              LW,8     X40TRAP           SET UP XPSD
     6169   01 0205D    35800040 A            STW,8    X'40'             AT X'40'
     6170   01 0205E    3280212F              LW,8     CAL1TRAP          SET UP XPSD
     6171   01 0205F    35800048 A            STW,8    X'48'             AT X'48'
     6172   01 02060    32802130              LW,8     CAL2TRAP          SET UP XPSD
     6173   01 02061    35800049 A            STW,8    X'49'             AT X'49'
     6174   01 02062    32802136              LW,8     GUID:4C           RESTORE GUID'S XPSD'S
     6175   01 02063    3580004C A            STW,8    X'4C'
     6176   01 02064    32802137              LW,8     GUID:4D
     6177   01 02065    3580004D A            STW,8    X'4D'
     6178   01 02066    32802138              LW,8     GUID:55
     6179   01 02067    35800055 A            STW,8    X'55'
     6180   01 02068    32802139              LW,8     GUID:5B
     6181   01 02069    3580005B A            STW,8    X'5B'
     6182   01 0206A    3280213A              LW,8     GUID:5D
     6183   01 0206B    3580005D A            STW,8    X'5D'
     6184         01 0206C           SAM:TCR  EQU      %
     6185   01 0206C    02200000 A            LCI      0                 RESTORE REGS
     6186   01 0206D    2A00231A              LM,0     SAVE
     6187   01 0206E    70302165              LCF      NEW:TST           GO TO GUIDE 'IDLE'
     6188   01 0206F    EA6003C9              BAL,LINK *#FIDLE%          IF CC NOT EQUAL TO 0
     6189   01 02070    00002072              DATA     RESTART           RESUME FROM INT. POINT
     6190                            *                                   OTHERWISE START FROM 'TST:CONTA'
     6191                                     BOUND    8
     6192   01 02072    0000109F     RESTART  DATA     TST:CONTA
     6193   01 02073    00000000 A            DATA     0
     6194                            *
     6195                            *
     6196         01 02074           PK#ER1   EQU      %
     6197   01 02074    33102319              MTW,1    PARAM%RET
     6198   01 02075    32802DA2              LW,8     PLINEIN+1
     6199   01 02076    68002079              B        PK#ERR
     6200                            *
     6201         01 02077           PK#ER2   EQU      %
     6202   01 02077    33202319              MTW,2    PARAM%RET
     6203   01 02078    32802DA4              LW,8     PLINEIN+3
     6204         01 02079           PK#ERR   EQU      %
     6205   01 02079    32902318              LW,9     EBCBLNKS
     6206   01 0207A    15802B80              STD,8    PARAMER+6
     6207   01 0207B    EA6003C5              #TYPE    PARAMER
            01 0207C    EA6003CC
            01 0207D    0000ADE8 A
            01 0207E    EA6003C6
     6208   01 0207F    02200000 A            LCI      0
     6209   01 02080    2A00231A              LM,0     SAVE
     6210   01 02081    46602319              XW,LINK  PARAM%RET
     6211   01 02082    E8002319              B        *PARAM%RET
     6212                            *
     6213                            *
     6214                            *
     6215                            **********************************************************
     6216                            ******************************************************
     6217                            ****     ENTER HERE WHENEVER THERE IS A
     6218                            ****     NON-ALLOWED OPERATION TRAP TO X'40'.
     6219                            **************************************************************
     6220                            **************************************************************
     6221                            *
     6222                            *
     6223                                     BOUND    8
     6224   01 02084    00000000 A   TRAP40   DATA     0
     6225   01 02085    00000000 A            DATA     0
     6226   01 02086    00002088              DATA     %+2
     6227   01 02087    00000000 A            DATA     0
     6228   01 02088    740021B2              STCF     SAVECC            SAVE CONDITION CODES
     6229   01 02089    02200000 A            LCI      0
     6230   01 0208A    2B0021B8              STM,0    SAVEREGS          SAVE ALL REGISTERS
     6231   01 0208B    321021B2              LW,1     SAVECC            GET TRAP CC
     6232   01 0208C    3110234C              CW,1     Y1                PROTECT VIOLATION TRAP
     6233   01 0208D    684020DB              BCR,4    UNXTRAP           NO
     6234   01 0208E    321003F2              LW,X1    TCR:NUM           LOAD TEST# IN X1
     6235   01 0208F    6802208F     TNUM     B        %,X1
     6236   01 02090    680020DB              B        UNXTRAP           FOR TEST 01
     6237   01 02091    680020DB              B        UNXTRAP           FOR TEST 02
     6238   01 02092    680020DB              B        UNXTRAP           FOR TEST 03
     6239   01 02093    680020DB              B        UNXTRAP           FOR TEST 04
     6240         00000005           TNUM5    EQU      %-TNUM
     6241   01 02094    680020DB              B        UNXTRAP           FOR TEST 05
     6242   01 02095    680020DB              B        UNXTRAP           FOR TEST 06
     6243   01 02096    680020DB              B        UNXTRAP           FOR TEST 07
     6244   01 02097    680020DB              B        UNXTRAP           FOR TEST 08
     6245   01 02098    680020DB              B        UNXTRAP           FOR TEST 09
     6246   01 02099    680020DB              B        UNXTRAP           FOR TEST 0A
     6247   01 0209A    680020DB              B        UNXTRAP           FOR TEST 0B
     6248   01 0209B    680020DB              B        UNXTRAP           FOR TEST 0C
     6249   01 0209C    6800142E              B        ACMEMPR           FOR TEST 0D
     6250   01 0209D    68001494              B        T15ERTRP          FOR TEST 0E
     6251   01 0209E    680014D6              B        T16OKTRP          FOR TEST 0F
     6252   01 0209F    680014D6              B        T17OKTRP          FOR TEST 10
     6253   01 020A0    680014D6              B        T18OKTRP          FOR TEST 11
     6254   01 020A1    680014D6              B        T19OKTRP          FOR TEST 12
     6255   01 020A2    6800152D              B        T20OKTRP          FOR TEST 13
     6256   01 020A3    68001568              B        T21ERTRP          FOR TEST 14
     6257   01 020A4    68001598              B        T22ERTRP          FOR TEST 15
     6258   01 020A5    680015CF              B        T23ERTRP          FOR TEST 16
     6259   01 020A6    68001636              B        T24OKTRP          FOR TEST 17
     6260   01 020A7    680020DB              B        UNXTRAP           FOR TEST 18
     6261   01 020A8    680020DB              B        UNXTRAP           FOR TEST 19
     6262   01 020A9    680020DB              B        UNXTRAP           FOR TEST 1A
     6263   01 020AA    680017A0              B        T29ERTRP          FOR TEST 1B
     6264   01 020AB    680017C4              B        T30OKTRP          FOR TEST 1C
     6265   01 020AC    680020DB              B        UNXTRAP           FOR TEST 1D
     6266   01 020AD    68001824              B        T32ERTRP          FOR TEST 1E
     6267   01 020AE    680020DB              B        UNXTRAP           FOR TEST 1F
     6268   01 020AF    680020DB              B        UNXTRAP           FOR TEST 20
     6269   01 020B0    6800190E              B        WLWKTRP           FOR TEST 21
     6270   01 020B1    680019A6              B        T36ERTRP          FOR TEST 22
     6271   01 020B2    680019E0              B        T37ERTRP          FOR TEST 23
     6272   01 020B3    68001A08              B        T38ERTRP          FOR TEST 24
     6273         00000025           TNUM39   EQU      %-TNUM
     6274   01 020B4    68001636              B        T39OKTRP          FOR TEST 25
     6275   01 020B5    680020DB              B        UNXTRAP           FOR TEST 26
     6276   01 020B6    68001A9A              B        T43OKTRP          FOR TEST 27
     6277   01 020B7    680020DB              B        UNXTRAP           FOR TEST 28
     6278   01 020B8    680020DB              B        UNXTRAP           FOR TEST 29
     6279   01 020B9    680020DB              B        UNXTRAP           FOR TEST 2A
     6280   01 020BA    680020DB              B        UNXTRAP           FOR TEST 2B
     6281   01 020BB    68001BC6              B        T48ERTRP          FOR TEST 2C
     6282   01 020BC    680020DB              B        UNXTRAP           FOR TEST 2D
     6283                            *
     6284                            *
     6285                            ****     THIS ROUTINE FORMATS PSW1,PSW2 AND TRAP
     6286                            ****     CONDITION CODES .
     6287                            *
     6288         01 020BD           TRAPPSD  EQU      %
     6289   01 020BD    6D000032 A            #HTECON  UNKNPSD           CONVERT PSW1
            01 020BE    EA6003C3
            01 020BF    000020F4
            01 020C0    6D000022 A
     6290   01 020C1    2A8C0000 A            LM,8     0,LINK
     6291   01 020C2    02200020 A            LCI      2
     6292   01 020C3    2B802C0A              STM,8    UNKNTRP1+3        STORE PSW1
     6293   01 020C4    6D000032 A            #HTECON  UNKNPSD+1         CONVERT PSW2
            01 020C5    EA6003C3
            01 020C6    000020F5
            01 020C7    6D000022 A
     6294   01 020C8    2A8C0000 A            LM,8     0,LINK
     6295   01 020C9    02200020 A            LCI      2
     6296   01 020CA    2B802C0E              STM,8    UNKNTRP1+7        STORE PSW2
     6297   01 020CB    6D000032 A            #HTECON  SAVECC            CONVERT CONDITION CODES
            01 020CC    EA6003C3
            01 020CD    000021B2
            01 020CE    6D000022 A
     6298   01 020CF    25600002 A            SLS,LINK   2               GET BYTE ADDR
     6299   01 020D0    728C0000 A            LB,8     0,LINK
     6300   01 020D1    75802C12              STB,8    UNKNTRP1+11       STORE CC
     6301   01 020D2    6D000032 A            #HTECON  REGSAVE           CONVERT ADDR WHERE REGS SAVED
            01 020D3    EA6003C3
            01 020D4    000021B3
            01 020D5    6D000022 A
     6302   01 020D6    2A8C0000 A            LM,8     0,LINK
     6303   01 020D7    4B802336              AND,8    Y4040             INSERT TWO BLANKS
     6304   01 020D8    02200020 A            LCI      2
     6305   01 020D9    2B802C16              STM,8    UNKNTRP1+15       STORE ADDR
     6306   01 020DA    E800000B A            B        *R11              EXIT
     6307                            *
     6308                            *
     6309         01 020DB           UNXTRAP  EQU      %
     6310   01 020DB    12802084              LD,8     TRAP40
     6311   01 020DC    158020F4              STD,8    UNKNPSD           SAVE PSD
     6312   01 020DD    6AB020BD              BAL,R11  TRAPPSD           GET TRAP INFO
     6313   01 020DE    6D000032 A            #HTECON  TCR:NUM
            01 020DF    EA6003C3
            01 020E0    000003F2
            01 020E1    6D000022 A
     6314   01 020E2    328C0001 A            LW,8     1,LINK
     6315   01 020E3    55802C06              STH,8    UNKNTRP+10
     6316   01 020E4    EA6003C5              #TYPE    UNKNTRP           PRINT UNKNOWN TRAP MESSAGE
            01 020E5    EA6003CC
            01 020E6    0000AFF0 A
            01 020E7    EA6003C6
     6317   01 020E8    EA6003C5              #TYPE    UNKNTRP1
            01 020E9    EA6003CC
            01 020EA    0000B01C A
            01 020EB    EA6003C6
     6318   01 020EC    02200000 A            LCI      0
     6319   01 020ED    2A0021B8              LM,0     SAVEREGS          RESTORE REGISTERS
     6320   01 020EE    02200000 A            LCI      0                 SET CC=0 TO START
     6321   01 020EF    EA6003C9              BAL,LINK *#FIDLE%          AT BEGINNING OF TEST
     6322   01 020F0    000020F2              DATA     TRAPRET
     6323                                     BOUND    8
     6324   01 020F2    000003F4     TRAPRET  DATA     TST:ADR
     6325   01 020F3    00000000 A            DATA     0
     6326                            *
     6327                                     BOUND    8
     6328   01 020F4    00000000 A   UNKNPSD  DATA     0
     6329   01 020F5    00000000 A            DATA     0
     6330                            *
     6331                            ****************************************************************
     6332                            ****************************************************************
     6333                            ****     ENTER HERE WHENEVER THERE IS A CAL1
     6334                            ****     TRAP TO X'48'.
     6335                            ****************************************************************
     6336                            ****************************************************************
     6337                            *
     6338                            *
     6339                                     BOUND    8
     6340   01 020F6    00000000 A   TRAPCAL1 DATA     0
     6341   01 020F7    00000000 A            DATA     0
     6342   01 020F8    000020FA              DATA     %+2
     6343   01 020F9    00000000 A            DATA     0
     6344   01 020FA    680013BC              B        MAPCAL1           GO TO MAP OPERATIONAL TEST
     6345   01 020FB    68001488              B        T15CAL1           PROTECT LOGIC TEST1
     6346   01 020FC    6800158E              B        T22CAL1           PROTECT LOGIC TEST 5
     6347   01 020FD    680015C2              B        T23CAL1           PROTECT LOGIC TEST 6
     6348   01 020FE    68001656              B        T24CAL1           PROTECT LOGIC TEST 7
     6349   01 020FF    68001764              B        T28CAL1           MASTER MODE TEST 1
     6350   01 02100    68001796              B        T29CAL1           MASTER MODE TEST 2
     6351   01 02101    680017D5              B        T30CAL1           MASTER MODE TEST3
     6352   01 02102    680017F2              B        T31CAL1           MASTER MODE TEST 4
     6353   01 02103    680019D6              B        T37CAL1           WRITE LOCK PROTECT TEST 2
     6354   01 02104    680019FC              B        T38CAL1           WRITE LOCK PROTECT TEST 3
     6355   01 02105    68001ABB              B        T43CAL1           MMC INST TEST 4;MASTER PROTECT MODE
     6356   01 02106    6800181A              B        T32CAL1           LRA INST;MASTER PROTECT MODE
     6357                            *
     6358                            *
     6359                            **************************************************************
     6360                            **************************************************************
     6361                            ****     ENTER HERE WHENEVER THERE IS A CAL2
     6362                            ****     TRAP TO X'49'.
     6363                            **************************************************************
     6364                            **************************************************************
     6365                            *
     6366                            *
     6367                                     BOUND    8
     6368   01 02108    00000000 A   TRAPCAL2 DATA     0
     6369   01 02109    00000000 A            DATA     0
     6370   01 0210A    0000210C              DATA     %+2
     6371   01 0210B    00000000 A            DATA     0
     6372   01 0210C    68001450              B        ACCAL2            ACCESS CONTROL OPERATIONAL TEST
     6373   01 0210D    680017FB              B        T31CAL2           MASTER MODE TEST 4
     6374                            *
     6375         01 0210E           ADMODCHK EQU      %
     6376   01 0210E    00002D64              DATA     CHK1
     6377   01 0210F    00002D6E              DATA     CHK2
     6378   01 02110    00002D7A              DATA     CHK3
     6379   01 02111    00002D83              DATA     CHK4
     6380   01 02112    00002D64              DATA     CHK1
     6381   01 02113    00002D7A              DATA     CHK3
     6382   01 02114    00002D8E              DATA     CHK5
     6383   01 02115    00002D96              DATA     CHK6
     6384   01 02116    00002D8E              DATA     CHK5
     6385   01 02117    00002D96              DATA     CHK6
     6386                            *
     6387   01 02118    00000000 A   MODULE#  DATA     0
     6388                            *
     6389                            *
     6390                                     BOUND    8
     6391         01 0211A           LRA      TEXTS    '   LRA  '
     6392         01 0211C           MAP      TEXTS    '   MAP  '
     6393         01 0211E           AC       TEXTS    '    AC  '
     6394         01 02120           MMT      TEXTS    '   MMT  '
     6395         01 02122           WL       TEXTS    '    WL  '
     6396         01 02124           MMC      TEXTS    '   MMC  '
     6397                            *
     6398         01 02126           AC#      TEXTS    'AC= '
     6399         01 02127           WL#      TEXTS    'WL= '
     6400         01 02128           DID      TEXTS    ' DID'
     6401         01 02129           NOT      TEXTS    ' NOT'
     6402                            *
     6403         01 0212A           YES      TEXTS    ' YES'
     6404         01 0212B           NO       TEXTS    '  NO'
     6405                            *
     6406         01 0212C           AC%      TEXTS    'AC  '
     6407         01 0212D           WL%      TEXTS    'WL  '
     6408                            *
     6409                            *
     6410   01 0212E    0F002084     X40TRAP  XPSD,0   TRAP40
     6411                            *
     6412   01 0212F    0F4020F6     CAL1TRAP XPSD,4   TRAPCAL1
     6413   01 02130    0F402108     CAL2TRAP XPSD,4   TRAPCAL2
     6414   01 02131    0F001BF8     XPSD4C   XPSD,0   MEMPAR
     6415   01 02132    0F0011C2     XPSD4CX  XPSD,0   LRATRAP
     6416   01 02133    00000001 A   COUNTER4 DATA     1
     6417   01 02134    0F001850     INTCNT4Z XPSD,0   CNT4ZRO
     6418   01 02135    0F001B28     IETMMC   XPSD,0   MMCIET
     6419                            *
     6420   01 02136    00000000 A   GUID:4C  DATA     0
     6421   01 02137    00000000 A   GUID:4D  DATA     0
     6422   01 02138    00000000 A   GUID:55  DATA     0
     6423   01 02139    00000000 A   GUID:5B  DATA     0
     6424   01 0213A    00000000 A   GUID:5D  DATA     0
     6425                            *
     6426   01 0213B    00000000 A   RETURN1  DATA     0
     6427   01 0213C    00000000 A   RETURN2  DATA     0
     6428   01 0213D    00000000 A   RETURN3  DATA     0
     6429   01 0213E    00000000 A   RETURN5  DATA     0
     6430   01 0213F    00000000 A   RETURN6  DATA     0
     6431   01 02140    00000000 A   RETURN7  DATA     0
     6432   01 02141    00000000 A   LRARETURN DATA    0
     6433   01 02142    00000000 A   LRAINSTX DATA     0
     6434                            *
     6435                            *
     6436   01 02143    04000000 A   CALL1    CAL1,0   0
     6437   01 02144    0F000000 A   OPCXPSD  XPSD,0   0
     6438                            *
     6439   01 02145    04800000 A   CAL1INST CAL1,8   0
     6440   01 02146    05100000 A   CAL2INST CAL2,1   0
     6441                            *
     6442   01 02147    00000000 A   REMOT:GD DATA     0
     6443   01 02148    00002C90     ADRSTHD  DATA     STHD1
     6444                            *
     6445   01 02149    00000000 A   SAVRESLT DATA     0
     6446                            *
     6447                                     BOUND    8
     6448   01 0214A    00000000 A   CONSTANT DATA     0
     6449   01 0214B    00000000 A   EXPCC    DATA     0
     6450   01 0214C    00000000 A   ACTCC    DATA     0
     6451                            *
     6452   01 0214D    00000000 A   ACTLRA   DATA     0                 REAL ADRS OBTAINED BY USING LRA.
     6453   01 0214E    00000000 A   EXPLRA   DATA     0                 REAL ADRS EXPECTED
     6454   01 0214F    00000000 A   C1C2     DATA     0                 TOP 2 BITS CC1,2 SETTINGS FOR LRA TEST
     6455   01 02150    0300B090     XELRA1   GEN,8,2,22  3,0,BA(ELRA1)
     6456   01 02151    0100B138     XELRA2   GEN,8,2,22  1,0,BA(ELRA2)
     6457                            *
     6458   01 02152    0200B180     XEMAPF   GEN,8,2,22  2,0,BA(VP)
     6459                            *
     6460   01 02153    0300B180     XEACF    GEN,8,2,22  3,0,BA(VP)
     6461         01 02152           XEWLF1   EQU      XEMAPF
     6462   01 02154    0100B1C4     XEWLF2   GEN,8,2,22  1,0,BA(WLX)
     6463                            *
     6464   01 02155    698015F1     T24LUPAD BCS,8    LOPT24
     6465   01 02156    69801A25     T39LUPAD BCS,8    LOPT39
     6466                            *
     6467   01 02157    0000A724     BA:MHD1  DATA     BA(MHD1)
     6468   01 02158    0000A760     BA:MHD2  DATA     BA(MHD2)
     6469   01 02159    0000A7A8     BA:MHD3  DATA     BA(MHD3)
     6470   01 0215A    0000A7F0     BA:MMCX1 DATA     BA(MMCX1)
     6471   01 0215B    0000A838     BA:MMCX2 DATA     BA(MMCX2)
     6472   01 0215C    0000A880     BA:MMCX3 DATA     BA(MMCX3)
     6473                            *
     6474         01 0215D           MPEPATT  EQU      %
     6475   01 0215D    00001400 A            DATA     X'1400'
     6476   01 0215E    00001FFD A            DATA     X'1FFD'
     6477   01 0215F    000002AF A            DATA     X'02AF'
     6478   01 02160    00000952 A            DATA     X'0952'
     6479   01 02161    00000049 A            DATA     X'0049'
     6480   01 02162    00000BB4 A            DATA     X'0BB4'
     6481   01 02163    000008E6 A            DATA     X'08E6'
     6482   01 02164    0000031B A            DATA     X'031B'
     6483                            *
     6484                            *
     6485   01 02165    00000000 A   NEW:TST  DATA     0
     6486   01 02166    00000000 A   LST:TST  DATA     0
     6487         0000002F           LAST:TST EQU      X'2F'
     6488                            *
     6489                            ****
     6490                            ****
     6491                            *
     6492   01 02167    00000000 A   VPREAD   DATA     0
     6493   01 02168    00000000 A   PAGEADR  DATA     0
     6494   01 02169    00000000 A   SAVPAG   DATA     0
     6495   01 0216A    000000FF A   LASTPAGE DATA     X'FF'
     6496   01 0216B    00000000 A   TESTPATN DATA     0                 TEST PATTERN FOR 2 REGS OF MAP
     6497   01 0216C    00000000 A   TESTVP   DATA     0
     6498   01 0216D    00000000 A   READVP   DATA     0
     6499   01 0216E    00000000 A   MAPREAD  DATA     0
     6500   01 0216F    00000000 A   MAPLOAD  DATA     0
     6501                            *
     6502   01 02170    00000000 A   TPAC     DATA     0                 TEST PAGE AC
     6503         01 02170           TPWL     EQU      TPAC
     6504   01 02171    00000000 A   WLTP     DATA     0
     6505   01 02172    00000000 A   SAVEADDR DATA     0
     6506                            *
     6507   01 02173    68000000 A   HEX68    DATA     X'68000000'
     6508   01 02174    00000000 A   STOREAT  DATA     0
     6509                            *
     6510   01 02175    67000000 A   EXU67    DATA     X'67000000'       EXU INST OP CODE
     6511                            *
     6512                                     BOUND    8
     6513   01 02176                 SAVRS    RES      4
     6514                            *
     6515                            *
     6516                            *
     6517   01 0217A    00000000 A   WLWKFLG  DATA     0                 SET IF TRAP EXPECTED
     6518   01 0217B    00000000 A   EXPDATA  DATA     0
     6519   01 0217C    00000000 A   ACTDATA  DATA     0
     6520   01 0217D    00000000 A   SAV4C    DATA     0
     6521   01 0217E    00000000 A   XSAVE    DATA     0
     6522   01 0217F    00000000 A   SAVR8    DATA     0
     6523   01 02180    00000000 A   SAVR9    DATA     0
     6524   01 02181    00000000 A   SAVCNT   DATA     0
     6525                            *
     6526   01 02182    00000000 A   TEMP1    DATA     0
     6527   01 02183    00000000 A   IMAGE    DATA     0
     6528   01 02184    3280214C     ACBITS   LW,8     ACTCC
     6529   01 02185    25800204 A   SCSL4    SCS,8    4
     6530   01 02186    02000000 A   NOP      NOP
     6531   01 02187    25800208 A   SCSL8    SCS,8    8
     6532                            *
     6533   01 02188    00000000 A   FIRSTLOD DATA     0
     6534   01 02189    00000000 A   TRAPFLG  DATA     0
     6535   01 0218A    00000000 A   TRAPCC   DATA     0
     6536   01 0218B    00000000 A   WORK1    DATA     0
     6537   01 0218C    00000000 A   WORK2    DATA     0
     6538   01 0218D    33100000 A   MTWI     MTW,1    0
     6539                            *
     6540   01 0218E    00001BE1     EXPADR   DATA     WA(MMCTRAP)
     6541   01 0218F    00000000 A   WORK5    DATA     0
     6542   01 02190    00000000 A   WORK6    DATA     0
     6543   01 02191    00000000 A   WORK7    DATA     0
     6544   01 02192    00000000 A   WORK8    DATA     0
     6545   01 02193    00000000 A   NCOUNT   DATA     0
     6546   01 02194    00000000 A   CLMARG   DATA     0
     6547   01 02195    00000000 A   SAVELINK DATA     0
     6548   01 02196    00002197     ERCONTAD DATA     WA(ECLRA)
     6549                            *
     6550                            *
     6551   01 02197    00000000 A   ECLRA    DATA     0
     6552   01 02198    00000000 A   ECMAP    DATA     0
     6553   01 02199    00000000 A   ECAC     DATA     0
     6554   01 0219A    00000000 A   ECWL     DATA     0
     6555   01 0219B    00000000 A   ECMM     DATA     0
     6556   01 0219C    00000000 A   ECMMC    DATA     0
     6557   01 0219D    00000001 A   PASS#    DATA     1
     6558                            *
     6559                                     BOUND    8
     6560   01 0219E    00000000 A   ZEROS    DATA     0
     6561   01 0219F    00000000 A            DATA     0
     6562   01 021A0    00000000 A   TINST    DATA     0                 TEST INSTRUCTION
     6563   01 021A1    00000000 A   TADDR    DATA     0                 TEST INSTRUCTION ADDRESS
     6564                            *
     6565   01 021A2    E5800000 A   IBIR     DATA     X'E5800000'
     6566   01 021A3    E4800000 A   IBDR     DATA     X'E4800000'
     6567   01 021A4    65800000 A   DBIR     DATA     X'65800000'
     6568   01 021A5    64800000 A   DBDR     DATA     X'64800000'
     6569                            *
     6570   01 021A6    00000000 A   INST     DATA     0
     6571   01 021A7    32800008 A   LWINST   LW,8     8
     6572                            *
     6573   01 021A8    6F600000 A   MMCILCB  DATA     X'6F600000'
     6574   01 021A9    6F720000 A   MMCODDR  DATA     X'6F720000'
     6575   01 021AA    25800203 A   SCSL3    SCS,8    3
     6576                            *
     6577   01 021AB    228FFFF8 A   LIN      LI,8     -8
     6578   01 021AC    22800008 A   LIP      LI,8     8
     6579   01 021AD    218FFFF8 A   CIN      CI,8     -8
     6580   01 021AE    21800008 A   CIP      CI,8     8
     6581                            *
     6582   01 021AF    E9800000 A   IBCS     DATA     X'E9800000'       BCS,8 INDIRECTLY ADDRESSED
     6583                            *
     6584   01 021B0    00000000 A   ERRFLAG  DATA     0
     6585                            *
     6586   01 021B1    3280232C     LWTIP    LW,8     TINSTP
     6587   01 021B2    00000000 A   SAVECC   DATA     0                 SAVE CONDITION CODE
     6588   01 021B3    000021B8     REGSAVE  DATA     WA(SAVEREGS)
     6589   01 021B4    3280232D     LWTP     LW,8     TESTPAGE
     6590                            *
     6591   01 021B5    00000000 A   MAPEDADR DATA     0
     6592   01 021B6    00000000 A   MAPBITS  DATA     0
     6593   01 021B7    00000000 A   RESULTAT DATA     0
     6594   01 021B8                 SAVEREGS RES      16
     6595                            *
     6596                                     BOUND    8
     6597   01 021C8                 MAPPTRN  RES      128               RESERVE 128 WORDS FOR MAP PATRN
     6598   01 02248    001C001D A   IMGMAP   DATA     X'001C001D'
     6599   01 02249    001E001F A            DATA     X'001E001F'
     6600                            *
     6601   01 0224A                 IMAGEMAP RES      128               RESERVE FOR MAP CONTROL IMAGE
     6602                            *
     6603   01 022CA                 IMAGEAC  RES      16                RESERVE FOR ACCESS CONTROL IMAGE
     6604                            *
     6605   01 022DA                 IMAGEWL  RES      16                RESERVE FOR WRITE LOCK CONTROL IMAGE
     6606   01 022EA                 BADPARTY RES      16
     6607                            *
     6608                                     BOUND    8
     6609   01 022FA    00000000 A   WLPATRN  DATA     0
     6610   01 022FB    11111111 A            DATA     X'11111111'
     6611   01 022FC    22222222 A            DATA     X'22222222'
     6612   01 022FD    33333333 A            DATA     X'33333333'
     6613   01 022FE    44444444 A            DATA     X'44444444'
     6614   01 022FF    55555555 A            DATA     X'55555555'
     6615   01 02300    66666666 A            DATA     X'66666666'
     6616   01 02301    77777777 A            DATA     X'77777777'
     6617   01 02302    88888888 A            DATA     X'88888888'
     6618   01 02303    99999999 A            DATA     X'99999999'
     6619   01 02304    AAAAAAAA A            DATA     X'AAAAAAAA'
     6620   01 02305    BBBBBBBB A            DATA     X'BBBBBBBB'
     6621   01 02306    CCCCCCCC A            DATA     X'CCCCCCCC'
     6622   01 02307    DDDDDDDD A            DATA     X'DDDDDDDD'
     6623   01 02308    EEEEEEEE A            DATA     X'EEEEEEEE'
     6624   01 02309    FFFFFFFF A            DATA     X'FFFFFFFF'
     6625                            *
     6626   01 0230A    000022FA     ADRWLPAT DATA     WA(WLPATRN)
     6627                            *
     6628                            *
     6629   01 0230B    00000000 A   ACREAD   DATA     0
     6630   01 0230C    00000000 A   ACLOAD   DATA     0
     6631         01 021C8           ACIMAGE  EQU      MAPPTRN
     6632                            *
     6633         01 0230B           WLREAD   EQU      ACREAD
     6634   01 0230D    00000000 A   WLRED    DATA     0
     6635         01 0230C           WLLOAD   EQU      ACLOAD
     6636         01 01D77           GETWL    EQU      GETAC
     6637         01 021C8           WLIMAGE  EQU      MAPPTRN
     6638   01 0230E    00000000 A   WLFLAG   DATA     0
     6639                            *
     6640   01 0230F    00000000 A   P1#      DATA     0                 PARAM 1
     6641   01 02310    00000000 A   P2#      DATA     0                 PARAM 2
     6642   01 02311    00000000 A   CRA      DATA     0                 CURRENT REG ADDR
     6643   01 02312    00000000 A   ERA      DATA     0                 END REG ADDR
     6644   01 02313    0000224A     IMAP     DATA     WA(IMAGEMAP)
     6645                            *
     6646   01 02314    000022CA     IAC      DATA     WA(IMAGEAC)
     6647                            *
     6648   01 02315    000022DA     IWL      DATA     WA(IMAGEWL)
     6649                            *
     6650   01 02316    FF3FFFFF A   MARGINMASK  DATA  X'FF3FFFFF'       MASK FOR CLEARING CM
     6651   01 02317    00000000 A   CMFIXED  DATA     0
     6652                            *
     6653   01 02318    40404040 A   EBCBLNKS DATA     X'40404040'
     6654   01 02319    00000000 A   PARAM%RET  DATA   0
     6655   01 0231A                 SAVE     RES      16
     6656   01 0232A    00000005 A   SICOUNT  DATA     5                 HEX COUNT OF EXPECTED INTERVALS
     6657                            *                                   BEFORE AN AUTO STATUS REPORT
     6658         0000000A           LOG      EQU      10
     6659                            *
     6660   01 0232B    00001FFF A   TPMAP    DATA     X'00001FFF'
     6661   01 0232C    0000001E A   TINSTP   DATA     X'0000001E'
     6662   01 0232D    0000001F A   TESTPAGE DATA     X'0000001F'
     6663                            *
     6664                            *
     6665         01 0230B           WKDATA   EQU      ACREAD
     6666         01 021C8           MAPIMAGE EQU      MAPPTRN
     6667                            *
     6668                            *
     6669   01 0232E    00003FFF A   LSTADRS  DATA     X'3FFF'           MIN SIZE MEM IS 16K
     6670   01 0232F    00000000 A   PGMAX    DATA     0                 MAX PAGE SIZE FOR ACTL. MEM. 13 BITS
     6671   01 02330    00000000 A   MAPEDPAG DATA     0                 DEFINES THE MIN PAGE ADDR FOR TST
     6672                            *
     6673   01 02331    000007FF A   X7FF     DATA     X'7FF'
     6674   01 02332    00FFFFFF A   XFFFFFF  DATA     X'FFFFFF'
     6675   01 02333    00000003 A   X03      DATA     3
     6676   01 02334    20000000 A   Y2       DATA     X'20000000'
     6677   01 02335    40000000 A   Y4       DATA     X'40000000'
     6678   01 02336    4040FFFF A   Y4040    DATA     X'4040FFFF'
     6679   01 02337    80000000 A   Y8       DATA     X'80000000'
     6680   01 02338    C0000000 A   YC       DATA     X'C0000000'
     6681   01 02339    C1000000 A   YC1      DATA     X'C1000000'
     6682   01 0233A    00000001 A   X01      DATA     1
     6683   01 0233B    01005400 A   Y010054  DATA     X'01005400'
     6684   01 0233C    01002000 A   Y01002   DATA     X'01002000'
     6685   01 0233D    01003C00 A   Y01003C  DATA     X'01003C00'
     6686   01 0233E    43000000 A   Y43      DATA     X'43000000'       HSBB=1;WL=11
     6687   01 0233F    30000000 A   Y3       DATA     X'30000000'
     6688   01 02340    00001FFF A   X1FFF    DATA     X'1FFF'
     6689   01 02341    0000000F A   XF       DATA     X'F'
     6690   01 02342    B5320000 A   YB532    DATA     X'B5320000'
     6691   01 02343    0001FFFF A   X1FFFF   DATA     X'1FFFF'
     6692   01 02344    1FFF0000 A   Y1FFF    DATA     X'1FFF0000'
     6693   01 02345    01000000 A   Y01      DATA     X'01000000'
     6694   01 02346    001E001F A   X1E001F  DATA     X'1E001F'
     6695   01 02347    001C001D A   X1C001D  DATA     X'1C001D'
     6696   01 02348    02003800 A   Y020038  DATA     X'02003800'
     6697   01 02349    000000FF A   XFF      DATA     X'FF'
     6698   01 0234A    08000000 A   Y08      DATA     X'08000000'
     6699   01 0234B    01010000 A   Y0101    DATA     X'01010000'
     6700   01 0234C    10000000 A   Y1       DATA     X'10000000'
     6701   01 0234D    11000000 A   Y11      DATA     X'11000000'
     6702   01 0234E    01234567 A   X1234567 DATA     X'01234567'
     6703   01 0234F    000000F0 A   XF0      DATA     X'F0'
     6704   01 02350    00100000 A   Y001     DATA     X'00100000'
     6705   01 02351    00020002 A   X20002   DATA     X'20002'
     6706   01 02352    000001F0 A   X1F0     DATA     X'1F0'
     6707   01 02353    000000FE A   XFE      DATA     X'FE'
     6708   01 02354    00000002 A   X02      DATA     2
     6709                            *
     6710                            *
     6711                            *
     6712                            *
     6713                            *
     6714                            *
     6715                            *
     6716                            *
     6717                            *
     6718                            *
     6719                            *
     6720                            SYNTAX%EXPL TEXTCS      ;
     6721                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
     6722         01 02355            ' EXPLANATION,'
     6723                                     TEXTCS   ;
     6724         01 02367            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
     6725         01 02373                    TEXTCS   ' '
     6726                                     TEXTCS   ;
     6727         01 02374            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
     6728         01 02384                    TEXTCS   ' '
     6729                                     TEXTCS   ;
     6730         01 02385            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
     6731                                     TEXTCS   ;
     6732         01 02394            'THE SPECIFIED ACTION.'
     6733         01 0239A                    TEXTCS   ' '
     6734                                     TEXTCS   ;
     6735         01 0239B            '(1) ''@''-ABSOLUTE RECOVERY,DOES SAME AS ''SYSTEM RESET'' FROM PCP'
     6736         01 023AB                    TEXTCS   ' '
     6737                                     TEXTCS   ;
     6738         01 023AC            '(2) ''%''-FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING PCP'
     6739                                     TEXTCS   ;
     6740         01 023BC            '     ''COMPUTE'' SWITCH TO ''IDLE''. WHEN OUTPUT TO KSR, IT MEANS'
     6741                                     TEXTCS   ;
     6742         01 023CC            '     THE PROGRAM IS WAITING FOR INPUT.'
     6743         01 023D6                    TEXTCS   ' '
     6744                                     TEXTCS   ;
     6745         01 023D7            '(3) ''#''-FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
     6746                                     TEXTCS   ;
     6747         01 023E7            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
     6748         01 023F2                    TEXTCS   ' '
     6749                                     TEXTCS   ;
     6750         01 023F3            '(4) ''QUEST. MARK''-OUTPUTS A) SYNTAX GLOSS.  (AFTER ''@'' PROMPT),'
     6751                                     TEXTCS   ;
     6752         01 02403            '          OR  B) CURRENT DIRECTIVE EXPL. (AFTER DIRECT. KEYIN),'
     6753                                     TEXTCS   ;
     6754         01 02413            '          OR  C) ERROR MSG EXPL. (AFTER ERROR MSG OUTPUT)'
     6755         01 02422                    TEXTCS   ' '
     6756                                     TEXTCS   ;
     6757         01 02423            '(5) '',''-TERMINATES PARAMETER FIELD'
     6758         01 0242C                    TEXTCS   ' '
     6759                                     TEXTCS   ;
     6760         01 0242D            '(6) ''NEW LINE''-TERMINATES PARAMETER LINE'
     6761         01 02438           DM%EXPL  TEXTCS   ' '
     6762                                     TEXTCS   ;
     6763         01 02439            '(7) ''DM>X,Y''-DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
     6764         01 0244A           RM%EXPL  TEXTCS   ' '
     6765                                     TEXTCS   ;
     6766         01 0244B            '(8) ''RM>X,Y''-DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
     6767                                     TEXTCS   ;
     6768         01 02459             '      REPLACEMENT OF WORD DISPLAYED.'
     6769         01 02463                    TEXTCS   ' '
     6770         01 02464           S%EXPL   EQU      %
     6771                                     TEXTCS   ;
     6772         01 02464            '(9) ''SS''- SENSE SWITCH OPTIONS. DISPLAY TO MSG. DEV.THE CURRENT'
     6773                                     TEXTCS   ;
     6774         01 02474            '     SENSE SWITCH  STATUS(SOFTWARE IF ''M''=0,PCP IF ''M''=1).'
     6775                                     TEXTCS   ;
     6776         01 02483             '     ALSO ALLOWS ALTERATION OF  STATUS FROM TERMINAL IF'
     6777                                     TEXTCS   ;
     6778         01 02491            '     ''M'' FIELD SET  TO 1.'
     6779                                     TEXTCS   ;
     6780         01 02498            '      SW1=1 SHORT LOOP'
     6781                                     TEXTCS   ;
     6782         01 0249E            '      SW1=0 NO SHORT LOOP'
     6783                                     TEXTCS   ;
     6784         01 024A5            '      SW2=1 LONG LOOP'
     6785                                     TEXTCS   ;
     6786         01 024AB            '      SW2=0 NO LONG LOOP'
     6787                                     TEXTCS   ;
     6788         01 024B2            '      SW3=1 NO HALT ON ERROR'
     6789                                     TEXTCS   ;
     6790         01 024BA            '      SW3=0 HALT ON ERROR'
     6791                                     TEXTCS   ;
     6792         01 024C1            '      SW4=1 SUPPRESS ERROR MSG.'
     6793                                     TEXTCS   ;
     6794         01 024C9            '      SW4=0 PRINT ERROR MSGS.'
     6795         01 024D1                    TEXTCS   ' '
     6796                            *
     6797                            *
     6798                            *
     6799                            ****************************************************************
     6800                            *  SYNTAX GLOSSARY
     6801                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER INITIALIZING)
     6802                            ****************************************************************
     6803                            *
     6804         01 024D2                    TEXTCS        '  '          UPSPACE ONE LINE
     6805         01 024D3                    TEXTCS        '  '          UPSPACE ONE LINE
     6806                                     TEXTCS        ;
     6807         01 024D4            '(10) ''&''- CAUSES OUTPUT OF THE CURRENT TESTING STATUS'
     6808         01 024E2                    TEXTCS        '  '          UPSPACE ONE LINE
     6809                                     TEXTCS           ;
     6810         01 024E3            '(11) ''DP''- DISPLAY MAP REGISTERS'
     6811                                     TEXTCS           ;
     6812         01 024EC            '(12) ''DA''- DISPLAY ACCESS CONTROL REGISTERS'
     6813                                     TEXTCS           ;
     6814         01 024F7            '(13) ''DW''- DISPLAY WRITE LOCK REGISTERS'
     6815                            *
     6816         01 02501                    TEXTCS        '  '         UPSPACE ONE LINE
     6817                                     TEXTCS         ;
     6818         01 02502            '(14) ''J''- SELECTS PROGRAM CONTROL PARAMETERS'
     6819                            *
     6820         01 0250E                    TEXTCS        '  '          UPSPACE ONE LINE
     6821                                     TEXTCS         ;
     6822         01 0250F            '(15) ''T''- SELECTS TEST CONTROL PARAMETERS'
     6823                            *
     6824         01 0251A                    TEXTCS   '  '
     6825                                     TEXTCS   ;
     6826         01 0251B            '(16) ''K''- SELECTS TEST CONTROL PARAMETERS'
     6827         01 02526                    TEXTCS   '  '
     6828                            *
     6829                            ****************************************************************
     6830                            *  REQUEST CHARACTER EXPLANATIONS
     6831                            ****************************************************************
     6832                            *
     6833                            ***************************************
     6834                            *REQUEST CHARACTER  DP  EXPLANATIONS
     6835                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DP' )
     6836                            ***************************************
     6837         01 02527           DP%EXPL  EQU      %
     6838         01 02527                    TEXTCS            ' '
     6839                                     TEXTCS           ;
     6840         01 02528            'DP>,,           CAUSES DISPLAY OF ALL 256 MAP REGISTERS'
     6841         01 02536                    TEXTCS            ' '
     6842                                     TEXTCS           ;
     6843         01 02537            'DP>XX,YY,       CAUSES A DISPLAY OF REGISTERS:'
     6844                                     TEXTCS           ;
     6845         01 02543            '                BETWEEN XX AND YY FOR YY>XX;'
     6846                                     TEXTCS           ;
     6847         01 0254F            '                OF YY REGISTERS STARTING AT XX FOR XX = OR > YY'
     6848         01 0255F                    TEXTCS            ' '
     6849                                     TEXTCS           ;
     6850         01 02560            'DP>XX,,         CAUSES A DISPLAY OF REGISTER XX ONLY.'
     6851                                     TEXTCS           ;
     6852         01 0256E            '*******************'
     6853         01 02573                    TEXTCS            ' '
     6854                            *
     6855                            ************************************
     6856                            *  REQUEST CHARACTER   DA  EXPLANATION
     6857                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DA')
     6858                            ************************************
     6859         01 02574           DA%EXPL  EQU      %
     6860         01 02574                    TEXTCS            ' '
     6861                                     TEXTCS           ;
     6862         01 02575            'DA>,,           CAUSES DISPLAY OF ALL 256 ACCESS CONTROL REGISTERS'
     6863         01 02586                    TEXTCS            ' '
     6864                                     TEXTCS           ;
     6865         01 02587            'DA>XX,YY,       CAUSES A DISPLAY OF ACCESS CONTROL REGISTERS:'
     6866                                     TEXTCS           ;
     6867         01 02597            '                BETWEEN XX AND YY FOR YY>XX;'
     6868                                     TEXTCS           ;
     6869         01 025A3            '                OF YY REGISTERS STARTING AT XX FOR XX = OR > YY'
     6870         01 025B3                    TEXTCS            ' '
     6871                                     TEXTCS           ;
     6872         01 025B4            'DA>XX,,         CAUSES A DISPLAY OF REGISTER XX ONLY.'
     6873                                     TEXTCS           ;
     6874         01 025C2            '*******************'
     6875         01 025C7                    TEXTCS            ' '
     6876                            *
     6877                            ************************************
     6878                            *  REQUEST CHARACTER   DW  EXPLANATION
     6879                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'DW')
     6880                            ************************************
     6881         01 025C8           DW%EXPL  EQU      %
     6882         01 025C8                    TEXTCS            ' '
     6883                                     TEXTCS           ;
     6884         01 025C9            'DW>,,           CAUSES DISPLAY OF ALL 256 WRITE LOCK REGISTERS'
     6885         01 025D9                    TEXTCS            ' '
     6886                                     TEXTCS           ;
     6887         01 025DA            'DW>XX,YY,       CAUSES A DISPLAY OF WRITE LOCK REGISTERS:'
     6888                                     TEXTCS           ;
     6889         01 025E9            '                BETWEEN XX AND YY FOR YY>XX;'
     6890                                     TEXTCS           ;
     6891         01 025F5            '                OF YY REGISTERS STARTING AT XX FOR XX = OR > YY'
     6892         01 02605                    TEXTCS            ' '
     6893                                     TEXTCS           ;
     6894         01 02606            'DW>XX,,         CAUSES A DISPLAY OF REGISTER XX ONLY.'
     6895                                     TEXTCS           ;
     6896         01 02614            '*******************'
     6897         01 02619                    TEXTCS            ' '
     6898                            *
     6899                            ************************************
     6900                            *  REQUEST CHARACTER   J   EXPLANATION
     6901                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'J')
     6902                            ************************************
     6903         01 0261A           J%EXPL   EQU      %
     6904         01 0261A                    TEXTCS        '  '         UPSPACE ONE LINE
     6905                                     TEXTCS        ;
     6906         01 0261B            '** PARAMETER LINE J (CONTROL  LINE) EXPLANATION'
     6907         01 02627                    TEXTCS        '  '         UPSPACE ONE LINE
     6908                                     TEXTCS        ;
     6909         01 02628            'MSGDEV          MESSAGE OUTPUT DEVICE NUMBER'
     6910         01 02634                    TEXTCS        '  '         UPSPACE ONE LINE
     6911                                     TEXTCS        ;
     6912         01 02635            'COMDEV          COMMUNICATION DEVICE NUMBER'
     6913                                     TEXTCS        ;
     6914         01 02640            '                  (INPUT FROM AND OUTPUT TO USER)'
     6915         01 0264D                    TEXTCS        '  '         UPSPACE ONE LINE
     6916                                     TEXTCS        ;
     6917         01 0264E            'SI              STATUS INTERVAL'
     6918                                     TEXTCS        ;
     6919         01 02656            '                  THE INTERVAL (TIME OR PASSES) BETWEEN AUTOMATIC'
     6920                                     TEXTCS        ;
     6921         01 02667            '                      STATUS REPORTS'
     6922         01 02671                    TEXTCS        '  '         UPSPACE ONE LINE
     6923                                     TEXTCS        ;
     6924         01 02672            'CM              CLOCK MARGIN'
     6925         01 0267A                    TEXTCS        '  '
     6926                                     TEXTCS        ;
     6927         01 0267B            'MARGIN LIMITS:'
     6928         01 0267F                    TEXTCS        '  '
     6929                                     TEXTCS        ;
     6930         01 02680            '     PROGRAM CONTROLLED    USER CONTROLLED (FIXED)'
     6931                                     TEXTCS        ;
     6932         01 0268D            '       0 = NORMAL             A = NORMAL'
     6933                                     TEXTCS        ;
     6934         01 02698            '       1 = HIGH               B = HIGH'
     6935                                     TEXTCS        ;
     6936         01 026A2            '       2 = LO                 C = LO'
     6937         01 026AC                    TEXTCS        '  '
     6938                                     TEXTCS        ;
     6939         01 026AD            'NOTE:'
     6940                                     TEXTCS        ;
     6941         01 026AF            '       THE COMDEV IS FOR INFO ONLY (UNALTERABLE BY USER)'
     6942                            *
     6943                            ************************************************
     6944                            *  REQUEST CHARACTER   T   EXPLANATION
     6945                            *        (OUTPUT ON KEYIN OF QUESTION MARK AFTER KEYIN OF 'T' )
     6946                            *************************************************
     6947         01 026BE           T%EXPL   EQU      %
     6948         01 026BE                    TEXTCS        '  '         UPSPACE ONE LINE
     6949                                     TEXTCS        ;
     6950         01 026BF            '** PARAMETER LINE T (CONTROL LINE) EXPLANATION'
     6951         01 026CB                    TEXTCS        '  '         UPSPACE ONE LINE
     6952                                     TEXTCS        ;
     6953         01 026CC            'TPMF   TEST MAP PATTERN FOR MAP FUNCTIONAL TESTS'
     6954         01 026D9                    TEXTCS        '  '
     6955                                     TEXTCS        ;
     6956         01 026DA            'TVIP   VIRTUAL PAGE ADDRESS FROM WHICH TEST INSTRUCTIONS'
     6957                                     TEXTCS        ;
     6958         01 026E9            '       ARE EXECUTED FOR OPERATIONAL TYPE TESTS'
     6959         01 026F5                    TEXTCS        '  '
     6960                                     TEXTCS        ;
     6961         01 026F6            'TVP    ADDRESS OF VIRTUAL PAGE BEING TESTED'
     6962         01 02701                    TEXTCS        '  '
     6963                            *
     6964                            *******************************************************
     6965                            *        REQUEST CHARACTER  K  EXPLANATION
     6966                            *        (OUTPUT OF KEYIN OF QUESTION MARK AFTER KEYIN OF 'K')
     6967                            *******************************************************
     6968         01 02702           K%EXPL   EQU      %
     6969         01 02702                    TEXTCS   '  '              UPSPACE ONE LINE
     6970                                     TEXTCS   ;
     6971         01 02703            '**PARAMETER LINE K (CONTROL LINE) EXPLANATION'
     6972         01 0270F                    TEXTCS   '  '              UPSPACE ONE LINE
     6973                                     TEXTCS   ;
     6974         01 02710            'FTST   FIRST TEST '
     6975         01 02715                    TEXTCS   '  '
     6976                                     TEXTCS   ;
     6977         01 02716            'LTST   LAST TEST '
     6978         01 0271B                    TEXTCS   '  '              UPSPACE ONE LINE
     6979                                     TEXTCS   ;
     6980         01 0271C            'CTST   CURRENT TEST '
     6981         01 02722                    TEXTCS   '  '
     6982                            *
     6983                            *************************************
     6984                            *
     6985                            *
     6986                            *********************************************************
     6987                            *        THE FOLLOWING TEXTC'S ARE THE
     6988                            *        ERROR MESSAGES.
     6989                            *********************************************************
     6990                            MAPHEAD1 TEXTCS   '   MAP FUNCTIONAL TEST ERROR';
     6991         01 02723                             ,'     TEST  XX  '
     6992                            *
     6993         01 0272E           MAPHEAD2 TEXTCS   '   TEST VP    MAP REG      LRA REG CONTENTS'
     6994                            *
     6995         01 02739           MAPHEAD3 TEXTCS   '   ADDRESS     LOADED      EXPECT      ACTUAL '
     6996                            *
     6997         01 02745           MAPMSG1  TEXTCS   '     YY          YY        YYYYYYYY    YYYYYYYY'
     6998                            *
     6999                            ACHEAD1  TEXTCS   '   ACCESS CONTROL FUNCTIONAL TEST ERROR';
     7000         01 02751                             ,'  TEST  XX  '
     7001                            *
     7002         01 0275E           ACHEAD2  TEXTCS   '   TEST VP    AC  REG      AC  CONTENTS '
     7003                            *
     7004         01 02769           ACHEAD3  TEXTCS   '   ADDRESS     LOADED      LOAD    READ '
     7005                            *
     7006         01 02745           ACMSG1   EQU      MAPMSG1
     7007                            *
     7008                            WLHEAD1  TEXTCS   '   WRITE LOCK FUNCTIONAL TEST ERROR';
     7009         01 02774                             ,'  TEST  XX  '
     7010                            *
     7011         01 02780           WLHEAD2  TEXTCS   '   TEST VP    WL  REG      LRA REG CONTENTS'
     7012                            *
     7013         01 02739           WLHEAD3  EQU      MAPHEAD3
     7014         01 02745           WLMSG1   EQU      ACMSG1
     7015                            *
     7016                            MAPOPHD1 TEXTCS   '   MAP OPERATIONAL TEST ERROR';
     7017         01 0278B                             ,'    TEST  XX  '
     7018                            *
     7019                            MAPMSG2  TEXTCS   '   TEST INST.  YYYYYYYY AT   YYYYYY    ';
     7020         01 02796                             ,'MAP FOR PAG 1F =001F    AC= 00  '
     7021                            *
     7022         01 027A8           MAPMSG3  TEXTCS   '   DATA AT MAPPED ADDRS  YYYYYY TO BE IN REGISTER 3.'
     7023                            *
     7024         01 027B6           MAPMSG4  TEXTCS   '   EXPECTED DATA = YYYYYYYY  ACTUAL DATA = YYYYYYYY'
     7025                            *
     7026                            MAPMSG5  TEXTCS   '   DATA FROM REGISTER 3 TO BE STORED AT MAPPED ';
     7027         01 027C3                             ,'ADDRESS=  YYYYYY'
     7028                            *
     7029                            MAPMSG6  TEXTCS   '   REFERENCE ADDRESS OF MTW INST AT';
     7030         01 027D3                             ,' X''55'' DID NOT GET MAPPED'
     7031                            *
     7032                            ACOPHD1  TEXTCS   '   ACCESS CONTROL OPERATIONAL TEST ERROR';
     7033         01 027E3                             ,'     TEST  XX  '
     7034                            *
     7035                            *
     7036                            ACMSG2   TEXTCS   '   AC PATERN STORED    YY  READ AS YY  ';
     7037         01 027F1                             ,'CHECK TRAP LOGIC'
     7038                            *
     7039         01 027FF           ACMSG3   TEXTCS   '   WRITE ABORT LOGIC MALFUNCTION WITH AC = YY  '
     7040                            *
     7041                            WLOPHD1  TEXTCS   '   WRITE LOCK OPERATIONAL TEST ERROR';
     7042         01 0280B                             ,'     TEST  XX  '
     7043                            *
     7044                            WLOPHD2  TEXTCS   '   TRAP  TST PAG  KEY  LOCK    WRITE ';
     7045         01 02818                             ,'EXPECTED DATA   ACTUAL DATA'
     7046                            *
     7047                            WLMSG2   TEXTCS   '   XXXX    YY      XX  XX      XXXX    ';
     7048         01 02829                             ,'YYYYYYYY        YYYYYYYY'
     7049                            *
     7050                            LRAHD1   TEXTCS   '   LRA INSTRUCTION TEST ERROR';
     7051         01 02839                             ,'    TEST  XX  '
     7052                            *
     7053                            LRAMSG1  TEXTCS   '   CC1-CC2=XX  PRIOR TO LRA TEST INST  ';
     7054         01 02844                             ,'YYYYYYYY AT YYYY'
     7055                            *
     7056                            LRAMSG1A TEXTCS   '   EXPECT  LRA REG CONTENT YYYYYYYY    ';
     7057         01 02852                             ,'CC= XXXX'
     7058                            *
     7059                            LRAMSG1B TEXTCS   '   ACTUAL  LRA REG CONTENT YYYYYYYY    ';
     7060         01 0285E                             ,'CC= XXXX'
     7061                            *
     7062                            LRAMSG3  TEXTCS   '    XXX TRAP TO X''4C'' WHEN BAD PARITY IN ';
     7063         01 0286A                             ,'OPERAND OF LRA INST.'
     7064                            *
     7065         01 0287A           LRAMSG3A TEXTCS   '   EXP TRAP ADDR   YYYY  ACT TRAP ADDR YYYY'
     7066                            *
     7067                            LRAMSG5  TEXTCS   '   WHEN OPERAND OF LRA INST IS A REG ADDR  ';
     7068         01 02885                             ,'CC S/B =1100   WAS =XXXX'
     7069                            *
     7070                            PLHD1    TEXTCS   '   PROTECT LOGIC TEST ERROR';
     7071         01 02896                             ,'  TEST  XX  '
     7072                            *
     7073         01 02796           PLHD2    EQU      MAPMSG2
     7074                            *
     7075                            PLMSG1   TEXTCS   '   ACCESS PROTECT VIOLATION WHEN BRANCH ';
     7076         01 028A0                             ,'CONDITION NOT SATISFIED'
     7077                            *
     7078         01 028B0           PLMSGX1  TEXTCS   '   EXPECT  TRAP ADDR   YYYY  REG. 8 =  8   '
     7079                            *
     7080         01 028BB           PLMSGX2  TEXTCS   '   ACTUAL  TRAP ADDR   YYYY  REG. 8 =  X   '
     7081                            *
     7082                            PLMSG2   TEXTCS   '   TRAPED ADRESS WAS   YYYYYYYY  SHOULD BE ';
     7083         01 028C6                             ,'YYYYYYYY'
     7084                            *
     7085                            PLMSG3   TEXTCS   '   TEST INST.  YYYYYYYY AT   YYYYYY    ';
     7086         01 028D3                             ,'WL FOR PAGE XX =XX  '
     7087                            *
     7088                            PLMSG4   TEXTCS   '   ACCESS PROTECT VIOLATION WHEN EXECUTING ';
     7089         01 028E2                             ,'XPSD IN TRAP LOCATION(X''48'')'
     7090                            *
     7091         01 028F4           PLMSG5   TEXTCS   '   TEST INST.  YYYYYYYY AT   YYYYYY'
     7092                            *
     7093                            PLMSG6   TEXTCS   '   WRITE PROTECT VIOLATION NOT INHIBITED ';
     7094         01 028FD                             ,'ON WRITING IN REG. 1'
     7095                            *
     7096                            PLMSG7   TEXTCS   '   WRITE LOCK PROTECT VIOLATION WHEN EXECUTING ';
     7097         01 0290D                             ,'XPSD IN TRAP LOC.(X''48'')'
     7098                            *
     7099                            PLMSG8   TEXTCS   '   ACC. PROT. VIOL. NOT INHIBITED ON WRITING INTO';
     7100         01 0291F                             ,' X''20'' VIA A TIO.'
     7101                            *
     7102                            PLMSG9   TEXTCS   '   INST    YYYYYYYY XXX TRAP WITH  AC= XX  ';
     7103         01 02930                             ,'R8= YYYYYYYY    R9= YYYYYYYY'
     7104                            *
     7105                            PLMSG10  TEXTCS   '   EXP DATA    YYYYYYYY    YYYYYYYY    ';
     7106         01 02942                             ,'ACTUAL DATA YYYYYYYY    YYYYYYYY'
     7107                            *
     7108                            PLMSG11  TEXTCS   'ACC. PROT. VIOL. NOT INHIBITED WHEN INS';
     7109         01 02954                             ,'T AFTER WAIT IS IN ACC PROT PAGE'
     7110                            *
     7111                            PLMSG12  TEXTCS   '   WRITE PROT. VIOL. NOT INHIBITED ON WRITING INTO';
     7112         01 02966                             ,' X''20'' VIA A TIO.'
     7113                            *
     7114                            MMHD1    TEXTCS   '   MASTER MODE TEST ERROR';
     7115         01 02977                             ,'    TEST  XX  '
     7116                            *
     7117         01 02796           MMHD2    EQU      MAPMSG2
     7118                            *
     7119                            MMSG1    TEXTCS   '   AC VIOLATION NOT INHIBITED IN MASTER MAPPED ';
     7120         01 02981                             ,'UNPROTECTED MODE'
     7121                            *
     7122         01 02991           MMSG2    TEXTCS   '   NO AC VIOLATION IN MASTER PROTECTED MODE'
     7123                            *
     7124                            MMSG3    TEXTCS   '   ACCESS PROTECT VIOLATION FOR LRA INST ';
     7125         01 0299C                             ,'IN MASTER PROTECT MODE.'
     7126                            MMSG4    TEXTCS   '   NO REA MUST OCCUR WITH PSD40=1 AS PR';
     7127         01 029AD                             ,'OGRAM IS MASTER,MAPED& PROTECTED'
     7128                            *
     7129                            MMCHD1   TEXTCS   '   MMC INSTRUCTION ERROR';
     7130         01 029BF                             ,'     TEST  XX  '
     7131                            *
     7132                            MHD1     TEXTCS   'LOADED ALL WL & AC REGS WITH 0''S;THEN ';
     7133         01 029C9                             ,'MAP REG 1F WITH 1F'
     7134                            *
     7135                            MHD2     TEXTCS   'LOADED ALL WL REGS WITH 0''S,MAP REG 1F WITH ';
     7136         01 029D8                             ,'1F;THEN AC REG 1F WITH 11'
     7137                            *
     7138                            MHD3     TEXTCS   'LOADED ALL AC REGS WITH 0''S,MAP REG 1F WITH ';
     7139         01 029EA                             ,'1F;THEN WL REG 1F WITH 11'
     7140                            *
     7141                            MMCX1    TEXTCS   '   XX  REGS 1C-2B GOT LOADED WITH MAP IMAGE ';
     7142         01 029FC                             ,'0000001F OF PAGES 1E &1F'
     7143                            *
     7144                            MMCX2    TEXTCS   '   MAP REGS 1E-1F GOT LOADED WITH  XX  IMAGE ';
     7145         01 02A0E                             ,' 00000003 OF PAGES 10-1F'
     7146                            *
     7147                            MMCX3    TEXTCS   '   XX  REGS 10-1F GOT LOADED WITH  XX  IMAGE ';
     7148         01 02A20                             ,' 00000003 OF PAGES 10-1F'
     7149                            *
     7150         01 02A32           MMCMSG1  TEXTCS   '   MMC INST TO LOAD MAP REG IN 8 BIT FORM NOT OK'
     7151                            *
     7152                            MMCMSG2  TEXTCS   '   MAP REG YY CONTENTS INITIALLY= 1FFF  EXPECT';
     7153         01 02A3F                             ,'ED =00FF   ACTUAL =  YYYY'
     7154                            *
     7155                            *
     7156                            MMCMSG4  TEXTCS   '   COULD NOT INTERRUPT MMC USING SNAPSHOT ';
     7157         01 02A51                             ,'WITH THESE SET OF INSTR'
     7158                            *
     7159                            MMCMSG4A TEXTCS   '   YYYYYYYY    YYYYYYYY    YYYYYYYY    YYYYYYYY';
     7160         01 02A62                             ,'    YYYYYYYY    YYYYYYYY'
     7161                            *
     7162                            MMCMSG4B TEXTCS   '   AT INTERUPT OF MMC INST YYYYYYYY INT. ADDR ';
     7163         01 02A74                             ,'S/B  YYYY  WAS   YYYY'
     7164                            *
     7165                            MMCMSG4C TEXTCS   '   LAST CONTROL IMAGE WORD LOADED S/B  YYYYYYYY';
     7166         01 02A85                             ,'   WAS  YYYYYYYY'
     7167                            *
     7168                            MMCMSG5  TEXTCS   '   MMC INST (MMC,R6  5) PROTECT VIOLATION IN ';
     7169         01 02A95                             ,'MASTER PROTECT MODE'
     7170                            *
     7171                            MMCMSG5A TEXTCS   '   EXPECT   TRAP =  YES  MAP BITS= 001E    ';
     7172         01 02AA6                             ,'R6= 00003E00    R7= 01003C00'
     7173                            *
     7174                            MMCMSG5B TEXTCS   '   ACTUAL   TRAP = XXXX  MAP BITS= YYYY    ';
     7175         01 02AB8                             ,'R6= YYYYYYYY    R7= YYYYYYYY'
     7176                            *
     7177                            MMCMSG6  TEXTCS   '   WL  REG 00 NOT OVERWRITTEN WHEN MMC ';
     7178         01 02ACA                             ,'INST EXECUTED WITH COUNT=17'
     7179                            *
     7180                            MMCMSG7  TEXTCS   '    XXX TRAP TO X''4D'' WITH MMC INST    ';
     7181         01 02ADB                             ,'YYYYYYYY AT YYYY'
     7182                            *
     7183                            MMCMSG7B TEXTCS   ' PSW1= YYYYYYYY  PSW2= YYYYYYYY   EXP T';
     7184         01 02AE9                             ,'CC= X   ACTUAL TCC= X'
     7185                            *
     7186                            MMCMSG9  TEXTCS   '   MMC YYYYYYYY TO LOAD WL  REG  1F. WL';
     7187         01 02AF9                             ,' FOR  YY   S/B  YY     WAS  YY  '
     7188                            *
     7189                            MMCMG10  TEXTCS   'TRAPPED TO X''40'' ON DOING MMC  YYYYYYYY';
     7190         01 02B0B                             ,':IND. REF. ADDR. NON-EXISTANT'
     7191                            *
     7192                            MMCMSG11 TEXTCS   '   MMC TRAPED DUE TO PARITY ERROR IN WL  ';
     7193         01 02B1D                             ,'IMAGE WORD FOR PAGES 10 TO 1F'
     7194                            *
     7195         01 02B2F           MMCM12   TEXTCS   '   EXPECT :TRAP ADDR   YYYY   PSD BIT 60 = 1'
     7196                            *
     7197         01 02B3B           MMCM13   TEXTCS   '   ACTUAL :TRAP ADDR   YYYY   PSD BIT 60 = X'
     7198                            *
     7199         01 02B47           MPEHDG   TEXTCS   '   UNEXPECTED MAP PARITY ERROR '
     7200                            *
     7201                            MPEMSGX  TEXTCS   '   LRA INST    AT      LRA REG  COND CODE  ';
     7202         01 02B4F                             ,'VIRT ADDR'
     7203                            *
     7204                            MPEMSG   TEXTCS   '   YYYYYYYY    YYYY    YYYYYYYY    XXXX    ';
     7205         01 02B5D                             ,'YYYYYYYY'
     7206                            *
     7207                            *
     7208         01 02B6A           HALTONER TEXTCS   '   HALT ON ERROR.    TEST  YY  '
     7209                            *
     7210         01 02B72           VMMSG2   TEXTCS   '***VOLTAGES ON MARGIN.***'
     7211                            *
     7212                                     BOUND    8
     7213         01 02B7A           PARAMER  TEXTCS   '****PARAMETER ERROR****        '
     7214                            *
     7215         01 02B82           BFHDG1   TEXTCS   'MAP REG    CONTENTS OF MAP REGISTERS (IN HEX)'
     7216                            *
     7217                            BUF1     TEXTCS   '   YY      YYYY    YYYY    YYYY    YYYY';
     7218         01 02B8E                             ,'    YYYY    YYYY    YYYY    YYYY'
     7219                            *
     7220                            BFHDG2   TEXTCS   'AC REG   CONTENTS OF ACCESS CONTROL REGISTERS ';
     7221         01 02BA0                             ,'(IN BIN)'
     7222                            *
     7223                            BFHDG3   TEXTCS   'WL REG   CONTENTS OF WRITE LOCK REGISTERS';
     7224         01 02BAE                             ,' (IN BIN)'
     7225                            *
     7226                            **********************************************************************
     7227                            *   THE FOLLOWING LOCATIONS CONTAIN THE CONTROL OPTIONS IN EBCDIC
     7228                            *       FORMAT READY FOR DISPLAY AT USERS REQUEST ( PARAMETER LINE J)
     7229                            **********************************************************************
     7230         01 02BBB           PL#JHDR  TEXTCS   '  MSGDEV COMDEV  SI  CM'
     7231                            *
     7232         01 02BC1           PLINE#J  TEXTCS   '*J 0002   *0001 005   0'
     7233                            *
     7234         01 02BC7           PLINE#JRES TEXTCS '*J 0002   *0001 005   0'
     7235                            *
     7236         01 02BCD           NOTAVAIL  TEXTCS  '****DEVICE NOT AVAILABLE****'
     7237                            *
     7238                            ****     FOLLOWING LOCATIONS CONTAIN THE CONTROL OPTIONS
     7239                            ****     IN EBCIDIC FORMAT READY FOR DISPLAY AT USERS REQUEST.
     7240                            *
     7241         01 02BD5           PL#THDR  TEXTCS   '       TPMF    TVIP     TVP'
     7242                            *
     7243         01 02BDC           PLIN#T   TEXTCS   '*T     1FFF      1E      1F'
     7244                            *
     7245         01 02BE3           PLIN#TR  TEXTCS   '*T     1FFF      1E      1F'
     7246                            *
     7247         01 02BEA           PL#KHDR  TEXTCS   '   FTST    LTST    CTST'
     7248                            *
     7249         01 02BF0           PLIN#K   TEXTCS   '   XXXX    XXXX    XXXX'
     7250                            *
     7251         01 02BF6           PLIN#KR  TEXTCS   '   0001    002D    0001'
     7252                            *
     7253         01 02BFC           UNKNTRP  TEXTCS   '   UNEXPECTED TRAP TO HEX 40.    TEST  YY  '
     7254                            *
     7255                            UNKNTRP1 TEXTCS   '      PSW1=YYYYYYYY   PSW2=YYYYYYYY    ';
     7256         01 02C07                             ,'TCC=X   REG SAVED AT  YYYYYY'
     7257                            *
     7258         01 02C18           T85MSG   TEXTCS   '   T-85 CPU'
     7259         01 02C1B           TRNG1    TEXTCS   '   TEST RANGE(IN HEX.)--1 THRU 2D'
     7260                            *
     7261                            **********************************************************
     7262                            *        THE FOLLOWING TEXTC'S ARE THE ERROR
     7263                            *        EXPLANATION MESSAGES.
     7264                            **********************************************************
     7265                            ELRA1    TEXTCS   '   CC1-CC2=DEFINES CONDITION CODES 1 AN';
     7266         01 02C24                             ,'D 2 WHICH CAN HAVE VALUES OF    '
     7267                                     TEXTCS   '   00,01,10 AND 11 FOR BYTE,HALFWORD,WORD A';
     7268         01 02C36                             ,'ND DOUBLEWORD INDEX ALIGNMENT   '
     7269         01 02C49                    TEXTCS   '   RESPECTIVELY.'
     7270                            *
     7271                            ELRA2    TEXTCS   '   CC=DEFINES CONDITION CODES 1 TO 4 AFT';
     7272         01 02C4E                             ,'ER LRA INSTRUCTION IS EXECUTED.'
     7273                            *
     7274         01 02C60           VP       TEXTCS   '   VP = VIRTUAL PAGE'
     7275         01 02C66           REG      TEXTCS   '   REG = REGISTER'
     7276         01 02C6B           ACX      TEXTCS   '   AC = ACCESS CONTROL'
     7277         01 02C71           WLX      TEXTCS   '   WL = WRITE LOCK'
     7278         01 02C76           WK       TEXTCS   '   WK = WRITE KEY'
     7279                            *
     7280         01 02C7B           CC4X     TEXTCS   '   CC4 = CONDITION CODE 4'
     7281                            *
     7282                            EMM1     TEXTCS   '   REA=REAL EXTENDED ADDRESSING ;  PSD4';
     7283         01 02C82                             ,'0=PSD BIT 40.'
     7284                            *
     7285                            *
     7286                            STHD1    TEXTCS   '   TST#  TYPE  ECLRA  ECMAP    ECAC    ';
     7287         01 02C90                             ,'ECWL    ECMM    ECMMC PAS# CM VM'
     7288                            *
     7289                                     BOUND    8
     7290                            STMSG1   TEXTCS   '   YY          YYYY    YYYY    YYYY    ';
     7291         01 02CA2                             ,'YYYY    YYYY    YYYY  YYYY  X  X'
     7292                            *
     7293         01 02CB4           STAT%XPL TEXTCS   '   TST# = LAST TEST UNDER CONSIDERATION'
     7294         01 02CBE                    TEXTCS   '   TYPE = LAST TEST TYPE EXECUTED(ONE OF FOLLOWING)'
     7295         01 02CCB                    TEXTCS   '   LRA = LOAD REAL ADDRESS TEST'
     7296         01 02CD3                    TEXTCS   '   MAP =  MAP FUNCTIONAL/OPERATIONAL TEST'
     7297         01 02CDE                    TEXTCS   '   AC  = ACCESS CONTROL FUNCTIONAL/OPERATIONAL TEST'
     7298         01 02CEB                    TEXTCS   '   MMT = MASTER MODE OPERATIONAL TEST'
     7299         01 02CF5                    TEXTCS   '   WL  = WRITE LOCK FUNCTIONAL/OPERATIONAL TEST'
     7300         01 02D01                    TEXTCS   '   MMC = MOVE TO MEMORY CONTROL INSTRUCTION TEST'
     7301         01 02D0E                    TEXTCS   '   ECLRA = ERROR COUNT FOR LRA TESTS'
     7302         01 02D18                    TEXTCS   '   ECMAP = ERROR COUNT FOR MAP TESTS'
     7303         01 02D22                    TEXTCS   '   ECAC  = ERROR COUNT FOR AC TESTS'
     7304         01 02D2B                    TEXTCS   '   ECWL  = ERROR COUNT FOR WL TESTS'
     7305         01 02D34                    TEXTCS   '   ECMM  = ERROR COUNT FOR MASTER MODE TESTS'
     7306         01 02D40                    TEXTCS   '   ECMMC = ERROR COUNT FOR MMC TESTS'
     7307         01 02D4A                    TEXTCS   '   PASS# = TOTAL NUMBER OF PASSES'
     7308         01 02D53                    TEXTCS   '   CM = CLOCK MARGIN'
     7309         01 02D59                    TEXTCS   '   VM = VOLTAGE MARGIN.N=NORMAL ,M=MARGINED'
     7310                            *
     7311                            *
     7312         01 02D64           CHK1     TEXTCS   '   MODULE  X --DESTINATION+COUNT CHECK'
     7313         01 02D6E           CHK2     TEXTCS   '   MODULE  X --SOURCE+DISPLACEMENT+COUNT CHECK'
     7314         01 02D7A           CHK3     TEXTCS   '   MODULE  X --DESTINATION CHECK'
     7315         01 02D83           CHK4     TEXTCS   '   MODULE  X --SOURCE+DISPLACEMENT CHECK'
     7316         01 02D8E           CHK5     TEXTCS   '   MODULE  X --LOCATION CHECK'
     7317         01 02D96           CHK6     TEXTCS   '   MODULE  X --LOCATION+CC-1 CHECK'
     7318                            *
     7319                            *
     7320                            *
     7321                            *
     7322   01 02D9F    6A601C4B     READSTAT BAL,LINK STATMSGS          OUTPUT STATUS MESSAGE ON & KEYIN
     7323   01 02DA0    E80003CB              B        *#RETURN%         RETURN TO POINT OF INTERRUPT
     7324                            *
     7325                            *
     7326   01 02DA1                 PLINEIN  RES      19
     7327                            *
     7328                            *
     7329                            *
     7330                            *************
     7331                            *
     7332         00000004           H          COM,8,8,8,8   AF
     7333         00000004           E          COM,8,8,16    AF
     7334         00000004           L          COM,3,2,3,5,3,1,3,3,3,3,3  AF
     7335         00000004           P          COM,8,2,6,16  AF
     7336                            **********************
     7337                            *        TABLE 3
     7338                            **********************
     7339                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     7340                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     7341                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     7342                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     7343                            *
     7344                            *  FORMAT
     7345                            *        WORD 1 = DIRECTIVE POINTER
     7346                            *         ***********
     7347                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     7348                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     7349                            *            AF(3)   BYTE 2 = SECOND CHAR.
     7350                            *            AF(4)   BYTE 3 = THIRD CHAR.
     7351                            *
     7352                            *
     7353                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     7354                            *         ***********
     7355                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     7356                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     7357                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     7358                            *                                       DIRECTIVE ROUTINE
1 C00   22:50 JUN 20,'83                                                                          PAGE    4
A    7360                            *
     7361                            *        WORD 3 = CONTROL WORD
     7362                            *         ***********
     7363                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     7364                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     7365                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     7366                            *             AF(4)   BITS 8-12= NOT USED
     7367                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     7368                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     7369                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     7370                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     7371                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     7372                            *                    OR INDEX PARAM #1 (MODE 6)
     7373                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     7374                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     7375                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     7376                            *
     7377                            *                 MODE:  0= UNCONDITIONAL (&)
     7378                            *                        1= IMMEDIATE     (DM)
     7379                            *                        2= PARAMETER LINE (S)
     7380                            *                        6= INDEXED PARAMETER LINE
     7381                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     7382                            *                            0 = HEX, 1 = BIN, AND
     7383                            *                            4-7 = DESIGNER DEFINED
     7384                            *
     7385                            *         WORD 4 = EXPLANATION POINTER
     7386                            *         ***********
     7387                            *  P          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     7388                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     7389                            *                             = 1 IF TEXT IS COMPRESSED
     7390                            *                             = 2,3   ** NOT ALLOWED **
     7391                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     7392                            *                   TO CHARACTER #1 (REQUEST)
     7393                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     7394                            *
1 C00   22:50 JUN 20,'83                                                                          PAGE    5
A    7396         01 02DB4           TABLE3            EQU      %
     7397                            *
     7398   01 02DB4    017C0000 A            H        1,'@'
     7399   01 02DB5    00000000 A            E        0
     7400   01 02DB6    00000000 A            L        0
     7401   01 02DB7    39008D54 N            P        57,,0,BA(SYNTAX%EXPL)
     7402                            *
     7403   01 02DB8    01500000 A            H        1,'&'
     7404   01 02DB9    00002D9F N            E        ,,READSTAT
     7405   01 02DBA    00000000 A            L        0
     7406   01 02DBB    1100B2D0 N   AMPER%EXPL P      17,,,BA(STAT%XPL)
     7407                            *
     7408                            *
     7409   01 02DBC    02C4D400 A            H        2,'D','M'
     7410   01 02DBD    00000000 A            E        0
     7411   01 02DBE    00000000 A            L        0
     7412   01 02DBF    020190E0 N            P        2,,1,BA(DM%EXPL)
     7413                            *
     7414   01 02DC0    02D9D400 A            H        2,'R','M'
     7415   01 02DC1    00000000 A            E        0
     7416   01 02DC2    00000000 A            L        0
        1*  01 02DC3    03019128 N            P        3,,1,BA(RM%EXPL)                                  *H01
     7418                            *
     7419   01 02DC4    02E2E200 A            H        2,'S','S'
     7420   01 02DC5    00000000 A            E        0
     7421   01 02DC6    00000000 A            L        0
     7422   01 02DC7    0D009190 N            P        13,,,BA(S%EXPL)
     7423                            *
     7424   01 02DC8    02C4D700 A            H        2,'D','P'
     7425   01 02DC9    00001E66 N            E        ,,DISMAP
     7426   01 02DCA    22000000 A            L        1,,2
     7427   01 02DCB    0A02949C N            P        10,,2,BA(DP%EXPL)
     7428                            *
     7429   01 02DCC    02C4C100 A            H        2,'D','A'
     7430   01 02DCD    00001EC7 N            E        ,,DISAC
     7431   01 02DCE    22000000 A            L        1,,2
     7432   01 02DCF    0A0295D0 N            P        10,,2,BA(DA%EXPL)
     7433                            *
     7434   01 02DD0    02C4E600 A            H        2,'D','W'
     7435   01 02DD1    00001F2E N            E        ,,DISWL
     7436   01 02DD2    22000000 A            L        1,,2
     7437   01 02DD3    0A029720 N            P        10,,2,BA(DW%EXPL)
     7438                            *
     7439   01 02DD4    01D10000 A            H        1,'J'
     7440   01 02DD5    00001F81 N            E        ,,PARAMJ
     7441   01 02DD6    40000000 A            L        2
     7442   01 02DD7    17009868 N            P        23,,,BA(J%EXPL)
     7443                            *
     7444   01 02DD8    01E30000 A            H        1,'T'
     7445   01 02DD9    00001FD5 N            E        ,,PARAMT
     7446   01 02DDA    40000000 A            L        2
     7447   01 02DDB    0A009AF8 N            P        10,,,BA(T%EXPL)
     7448                            *
     7449   01 02DDC    01D20000 A            H        1,'K'
     7450   01 02DDD    0000200E N            E        ,,PARAMK
     7451   01 02DDE    40000000 A            L        2
     7452   01 02DDF    09009C08 N            P        9,,,BA(K%EXPL)
     7453                            *
     7454                            *
     7455                            *
     7456   01 02DE0    FF000000 A   TABLE3END DATA  X'FF000000'
     7457                            *
     7458                            ************
     7459                            *
     7460                            *
     7461                            *
     7462   01 02DE1    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
     7463   01 02DE2    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
     7464   01 02DE3    EA6003C8              BAL,X6   *#GUIDE%
        1*  01 02DE4    0120B798              GEN,8,3,21 1,1,BA(PROGTEXT)                                *H01
        2*  01 02DE5    00000000 A            DATA       0                                               *H01

        4*        01 02DE6           PROGTEXT TEXTCS   TITLE                                             *H01

     7473         01 02DE2           ENDADDR  END      GUIDE             GO TO GUIDE

  CONTROL SECTION SUMMARY: 01 02DF4   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   22:50 JUN 20,'83                                                                          PAGE    6
A  AC              4944/LD      6393-TEXTS
   AC%             1369/LW      1421/LW      1434/LW      1478/LW      6406-TEXTS
   AC#             2864/LW      6398-TEXTS
   ACBITS          5684/LM      6528-LW
   ACCAL2          2097-EQU     6372/B
   ACCHK1          1740-EQU     1765/B
   ACEND           2077/BEZ     2082-RES
   ACFTST          1761/BE      1767-EQU
   ACHEAD1         1844/STH     1845/#PRINT  6999-TEXTCS
   ACHEAD2         1846/#PRINT  7002-TEXTCS
   ACHEAD3         1847/#PRINT  7004-TEXTCS
   ACIMAGE         5351/LI      5353/LW      6631-EQU
   ACLOAD          1737/STW     1796/STW     2012/STW     2055/CW      2076/LW      2079/STW     2117/LW
      2182/STW     2290/STW     2401/STW     2481/STW     2705/STW     2891/#BTECON 3208/STW     3278/STW
      3415/STW     5051/LW      5181/#BTECON 5402/LW      6630-DATA    6635/EQU
   ACMEMPR         2048-EQU     2100/B       6249/B
   ACMSG1          1851/STW     1852/STW     1853/#PRINT  7006-EQU     7014/EQU
   ACMSG2          2058/STW     2059/STW     2060/LI      2111/#PRINT  7036-TEXTCS
   ACMSG3          2071/STW     2072/LI      7039-TEXTCS
   ACOPHD1         2126/STH     2127/#PRINT  7032-TEXTCS
   ACOPLOP         2031-EQU     2050/BCS     2062/B
   ACOPT           2018/GEN     2130-RES     5053/LW
   ACOPXIT         2063/B       2067/BNE     2069/BNEZ    2075-EQU
   ACREAD          1367/LW      1476/LW      1753/STW     1790/STW     1797/CW      2054/STW     2065/LW
      5185/#BTECON 5504/STW     6629-DATA    6633/EQU     6665/EQU
   ACTCC           1078/STCF    1090/LW      1126/LW      1190/STCF    1202/LW      1319/STCF    1323/CW
      1344/#BTECON 1527/STCF    1545/LW      1607/STCF    1658/STCF    1747/STCF    1750/LW      1784/STCF
      1787/LW      3594/STCF    3631/STCF    4223/STCF    5136/#BTECON 5497/STCF    5501/LW      5516/STCF
      6450-DATA    6528/LW
   ACTDATA         1921/STW     1931/STW     1955/#HTECON 2440/STW     2449/#HTECON 3169/STW     3779/STW
      3808/STW     3872/#HTECON 6519-DATA
   ACTLRA          1081/STW     1121/#HTECON 1193/STW     1530/STW     1610/STW     1661/STW
      1718/#HTECON 3597/STW     3634/STW     6452-DATA
   ACX             7276-TEXTCS
   ADMODCHK        2870/LW      6375-EQU
   ADRSTHD         4857/CW      4861/LW      6443-DATA
   ADRWLPAT        6626-DATA
   ALLACREG        1358/BAL     1452/BAL     1500/BAL     1592/BAL     1739/BAL     1830/BAL     1873/BAL
      2085/BAL     2660/BAL     2846/BAL     3132/BAL     3355/BAL     3473/BAL     5348-EQU     5375/BAL
   ALLWLREG        1037/BAL     1357/BAL     1405/BAL     1501/BAL     3356/BAL     3585/BAL     3684/BAL
      4119/BAL     4393/BAL     4550/BAL     4626/BAL     5361-EQU     5373/BAL
   ALMAPREG        1175/BAL     1309/BAL     1591/BAL     1598/BAL     1694/BAL     1733/BAL     1872/BAL
      2659/BAL     2845/BAL     3685/BAL     4284/BAL     5331-EQU     5374/BAL
   AMOD            2690/LW      3072-DATA    4149/LW
   AMPER%EXPL      4813/LW      7406-P
   ATEMP           2688/LW      3075-DATA    4147/LW
   BA:MHD1         1386/LW      6467-DATA
   BA:MHD2         1424/LW      6468-DATA
   BA:MHD3         1470/LW      6469-DATA
   BA:MMCX1        1387/LW      6470-DATA
   BA:MMCX2        1423/LW      1469/LW      6471-DATA
   BA:MMCX3        1436/LW      1482/LW      6472-DATA
   BADPARTY        4677/STW     4679/LMS     4680/LI      4718/STW     4720/LMS     6606-RES
   BALMMC          5269/B       5275/B       5277-EQU     5287/B
   BFHDG1          5563/#PRINT  7215-TEXTCS
   BFHDG2          5687/#PRINT  7220-TEXTCS
   BFHDG3          5813/#PRINT  7223-TEXTCS
   BTE1            5681/STW     5742/AWM     5743-BAL     5771/MTW     5773/B       5807/STW
   BUF1            5600/STW     5636/STH     5637/#PRINT  5649/STW     5747/STH     5781/STH
      5782/#PRINT  7217-TEXTCS
   CA               596/SET      655-EQU
   CALL1           2488/GEN     3947/GEN     6436-CAL1
   CAL1INST        3351/LW      6439-CAL1
   CAL1TRAP         950/LW      6170/LW      6412-XPSD
   CAL2INST        3353/LW      6440-CAL2
   CAL2TRAP         952/LW      6172/LW      6413-XPSD
   CATALOG          0.1-EQU      0.3/EQU
   CB               596/SET      656-EQU
   CC               596/SET      657-EQU
   CC4X            7280-TEXTCS
   CD               596/SET      658-EQU
   CE               596/SET      659-EQU
   CHK:TCR         6104/BE      6117-EQU
   CHK:TSP         6090/BE      6101-EQU
   CHKAC1          1466/BEZ     1475-EQU
   CHKCM           4761-EQU     4801/BE
   CHKINST1        2190/STW     2192/GEN     2199-EQU
   CHKINST3        2413/STW     2415/GEN     2422-EQU
   CHKINST5        2552/GEN     2608-EQU
   CHKINST6        4026/GEN     4070-EQU
   CHKLL           2334/B       2339-EQU
   CHKLONG         1372/B       1375/BEZ     1379-EQU
   CHKLONG1        1427/B       1431/BEZ     1439-EQU
   CHKLONG2        1473/B       1477/BEZ     1485-EQU
   CHKSS2          1199/B       1205-EQU
   CHKSS2A         1245/B       1253-EQU
   CHKWK00         3836/BEZ     3840-EQU
   CHKWL1          1368/BEZ     1373-EQU
   CHKWL2          1420/BCR     1429-EQU
   CHK1            2878/#PRINT  6376/DATA    6380/DATA    7312-TEXTCS
   CHK2            6377/DATA    7313-TEXTCS
   CHK3            6378/DATA    6381/DATA    7314-TEXTCS
   CHK4            6379/DATA    7315-TEXTCS
   CHK5            6382/DATA    6384/DATA    7316-TEXTCS
   CHK6            6383/DATA    6385/DATA    7317-TEXTCS
   CHNGCM          4767/BCS     4770-EQU
   CIN             2282/LW      2386/LW      6579-CI
   CIP             2374/LW      2393/LW      6580-CI
   CLEARCNT         855-EQU      857/BIR
   CLMARG           932/STW     4844/STW     4846/GEN     5961/STW     6546-DATA
   CLRBUF          5569/BAL     5640/BAL     5646-EQU     5694/BAL     5785/BAL
   CMFIXED         4763/LW      5949/STW     5975/STW     6651-DATA
   CNT4ZRO         3524-DATA    6417/XPSD
   COMERR          1388-EQU     1425/BAL     1471/BAL
   COMMON          1135/B       1277/BCR     1279/B       1348/B       1396/B       1723/B       1854/B
      1960/B       2112/B       2251/B       2368/B       2606/B       2919/B       3267/B       3322/B
      3408/B       3568/B       3888/B       4250/B       4386/B       4427/B       4506/BEZ     4522/B
      4614/B       4661/B       4742/B       4871-EQU
   CONSTANT        1048/STD     1057/LW      6448-DATA
   CONTEST#        1146/BAL     1557/BAL     1707/BAL     1843/BAL     1973/BAL     2125/BAL     2267/BAL
      3196/BAL     3560/BAL     3703/BAL     3882/BAL     4261/BAL     4815/BAL     4897/BAL     4911-EQU
   CONTINU1        1663/BE      1666/B       1668-EQU
   CONTINU2        1798/BE      1801/B       1803-EQU
   CONTINU3        3636/BE      3639/B       3657-EQU
   COR:HR          6144-EQU     6157/BL
   COUNTER4        6416-DATA
   CPUTYPE          960/BLE      965-EQU
   CRA             5634/GEN     5639/AWM     5702/LW      5726/LW      5728/STW     5733/STW     5779/GEN
      5784/AWM     5863/STW     6642-DATA
   CYCLE           4758/BNE     4764/BNEZ    4768/B       4785-EQU     4802/B
   C0               622/GEN      645-EQU
   C1               596/SET      646-EQU     1148/#PRINT  1394/#PRINT  1559/#PRINT  1709/#PRINT
      1710/#PRINT  1722/#PRINT  1845/#PRINT  1846/#PRINT  1853/#PRINT  1975/#PRINT  2127/#PRINT
      2269/#PRINT  2878/#PRINT  3198/#PRINT  3407/#PRINT  3562/#PRINT  3705/#PRINT  3706/#PRINT
      3884/#PRINT  3885/#PRINT  4248/#PRINT  4263/#PRINT  4383/#PRINT  4426/#PRINT  4504/#PRINT
      4659/#PRINT  4739/#PRINT  4740/#PRINT  4859/#PRINT  5007/#PRINT  5039/#PRINT  5079/#PRINT
      5115/#PRINT  5563/#PRINT  5687/#PRINT  5813/#PRINT
   C1C2            1052/STW     1075/LC      1094/LW      1184/STW     1187/LC      1234/STW     1236/LC
      1313/STW     1316/LC      1524/STW     1525/LC      5003/#BTECON 6454-DATA
   C2               596/SET      647-EQU
   C3               596/SET      648-EQU
   C4               596/SET      649-EQU
   C5               596/SET      650-EQU
   C6               596/SET      651-EQU
   C7               596/SET      652-EQU
   C8               596/SET      653-EQU
   C9               596/SET      654-EQU
   DA%EXPL         6859-EQU     7432/P
   DBA             2780/STM*    2797/LW      2827/LM*     2895/LW*     2901/LW*     3086-DATA
   DBDR            2391/LW      6568-DATA
   DBIR            2384/LW      6567-DATA
   DEFEXP          1604/BAL     1624-EQU     1655/BAL
   DEFEXP1         3591/BAL     3628/BAL     3641-EQU
   DID             1266/LW      2819/LW      4467/LW      6400-TEXTS
   DIROPCOD        2298/BGEZ    2316-EQU
   DISAC           5678-EQU     7430/E
   DISALL          5868-EQU     5876/BEZ
   DISMAP          5559-EQU     7425/E
   DISONE          5851/BEZ     5873-EQU
   DISP            2783/LW      3092-DATA
   DISPLAY1        5572/BL      5587-EQU
   DISPLAY2        5697/BL      5734-EQU
   DISWL           5804-EQU     7435/E
   DM%EXPL         6761-TEXTCS  7412/P
   DP%EXPL         6837-EQU     7427/P
   DPER1           5848/BGE     5881-EQU
   DPER2           5853/BGE     5860/BG      5885-EQU
   DRIVER          2710/BAL     2726-EQU     2755/B       4165/BAL
   DW%EXPL         6881-EQU     7437/P
   E               7333-COM
   EBCBLNKS        5648/LW      5991/LW      6062/LW      6205/LW      6653-DATA
   ECAC            1837/MTW     2116/MTW     2255/MTW     2863/MTW     6553-DATA
   ECLRA           1139/MTW     4821/GEN     6548/DATA    6551-DATA
   ECMAP           1551/MTW     1701/MTW     1964/MTW     3554/MTW     6552-DATA
   ECMM            3185/MTW     6555-DATA
   ECMMC           4254/MTW     6556-DATA
   ECWL            3697/MTW     3860/MTW     3998/MTW     4189/MTW     6554-DATA
   ELRA1           6455/GEN     7265-TEXTCS
   ELRA2           6456/GEN     7271-TEXTCS
   EMMC6           1370/BAL     1384-EQU
   EMM1            7282-TEXTCS
   ENDADDR          895/LI      7473-END
   EPL1            2332/BAL     2344-EQU
   ERA             5585/CW      5588/LW      5730/CW      5735/LW      5864/STW     6643-DATA
   ERACOP1         2061/BAL     2103-EQU
   ERCONTAD        4817/LW      6548-DATA
   ERMAPF          1533/BAL     1550-EQU
   ERMAPOP1        1924/BAL     1940-EQU
   ERMAPOP2        1932/BAL     1980-EQU
   ERMAST1         3172/BAL     3179-EQU
   ERMAST2         3237/BAL     3258-EQU     3446/BAL
   ERMAST3         3311/BAL     3317-EQU
   ERMAST4         3383/BAL     3404-EQU
   ERMMC1          4230/BAL     4236-EQU
   ERMMC10         4695/BAL     4726-EQU
   ERMMC4          4350/BAL     4369-EQU
   ERMMC5          4414/BAL     4423-EQU
   ERMMC6          4459/BAL     4492-EQU
   ERMMC8          4580/BAL     4596-EQU
   ERMMC9          4636/BAL     4652-EQU
   ERPLT5          2576/BAL     2596-EQU     2655/BAL
   ERPLT7          2833/BAL     2859-EQU
   ERPL1           2220/BAL     2242-EQU     2455/BAL     2525/BAL
   ERRAC           1756/BAL     1799/BAL     1834-EQU
   ERRACOP         2107/BAL     2115-EQU
   ERRFLAG         2179/STW     2215/LW      2218/STW     2237/STW     2491/STW     2508/STW     2522/LW
      2556/STW     2573/LW      2593/STW     2640/STW     2652/LW      2667/MTW     2776/STW     2822/MTW
      2830/MTW     2831/LW      3218/STW     3234/LW      3254/STW     3288/STW     3309/LW      3333/STW
      3364/STW     3381/LW      3400/STW     3426/STW     3443/LW      3459/STW     3732/STW     3782/MTW
      3790/MTW     3811/MTW     3819/MTW     3830/LW      3950/STW     3968/STW     3982/LW      4030/STW
      4047/LW      4067/STW     4100/STW     4112/LW      4126/MTW     4287/STW     4336/MTW     4341/MTW
      4346/MTW     4348/LW      4365/MTW     4629/STW     4634/LW      4648/STW     6584-DATA
   ERRMAP          1613/BAL     1664/BAL     1698-EQU
   ERRMAPOP        1941/BAL     1963-EQU     1981/BAL
   ERRMAST         3180/BAL     3184-EQU     3262/BAL     3318/BAL     3405/BAL
   ERRMMC          1389/BAL     4238/BAL     4253-EQU     4370/BAL     4424/BAL     4494/BAL     4597/BAL
      4653/BAL     4727/BAL
   ERRPL           2246/BAL     2254-EQU     2345/BAL     2600/BAL     3999/BAL
   ERRPL:5         2260-EQU     2867/BAL
   ERRTC1          3540/BAL     3553-EQU
   ERRWL           3600/BAL     3637/BAL     3689-EQU
   ERRWLOP         3832/BAL     3859-EQU
   ERWLP1          3985/BAL     3994-EQU     4050/BAL     4115/BAL
   ERWLP4          2862/BE      4188-EQU
   ER1             1084-BAL     1092/BNE
   ER10            2332-BAL     2338/BNE
   ER11            3637-BAL
   ER12            4459-BAL     4468/B
   ER13            4695-BAL     4701/BNE
   ER2             1196-BAL     1204/BNE
   ER3             1243-BAL     1252/BCS
   ER4             1370-BAL     1377/B
   ER5             1424-LW      1437/B
   ER6             1470-LW      1483/B
   ER9             2061-BAL     2073/B
   EVEN            5263/B       5265-EQU
   EXITDA          5764/BEZ     5791/B       5793-EQU
   EXITDP          5565/B       5617/BEZ     5653-EQU     5667/B       5690/B       5793/EQU
   EXITDP1         5660-LCI     5838/B
   EXITDW          5659/BNEZ    5834-EQU
   EXPADR          4693/CW      4729/#HTECON 6540-DATA
   EXPCC           1091/CW      1125/LW      1181/STW     1203/CW      1522/STW     1546/CW      6449-DATA
   EXPDATA         1923/STW     1929/STW     1951/#HTECON 3171/STW     3772/STW     3801/STW
      3868/#HTECON 6518-DATA
   EXPLRA          1067/STW     1082/CW      1117/#HTECON 1168/STW     1194/CW      1517/STW     1531/CW
      1611/CW      1635/STW     1662/CW      1714/#HTECON 3598/CW      3635/CW      3653/STW     6453-DATA
   EXU67           2412/AW      6510-DATA
   FINISH           963/B       4752-EQU
   FIRSTLOD         860/MTW      862/MTW     6533-DATA
   FIRSTPAS        4756/BE      4797-EQU
   FORMAP          5261/BEZ     5283-EQU
   F0               596/SET      661-EQU
   F1               596/SET      662-EQU
   GETAC           1850/BAL     2057/BAL     2070/BAL     5180-EQU     6636/EQU
   GETMARG         4824/BE      4830-EQU
   GETNMOD1        2703-EQU     2842/B
   GETNMOD2        4157-EQU     4182/B
   GETVPAD         1713/BAL     1849/BAL     5154-EQU
   GETWL           3876/BAL     6636-EQU
   GOTO%           5983/BCS     5985-EQU
   GUID:4C          869/STW     1256/LW      4705/LW      5903/LW      6174/LW      6420-DATA
   GUID:4D          871/STW     4473/LW      6176/LW      6421-DATA
   GUID:5B          875/STW     6180/LW      6423-DATA
   GUID:5D          877/STW     6182/LW      6424-DATA
   GUID:55          873/STW     6178/LW      6422-DATA
   GUIDE           7463-STW     7473/END
   H               7332-COM
   HALTONER        4898/STH     4899/#TYPE   7208-TEXTCS
   HDSKIP          3559/BE      3563-EQU
   HEX68           2027/AW      2409/AW      2686/OR      3484/AW      4145/OR      6507-DATA
   HTECON          4818/STW     4820-BAL     4827/AWM     4829/BIR
   HTE1            5562/STW     5595/AWM     5596-BAL     5624/MTW     5626/B
   IAC             5680/LW      6646-DATA
   IBCS            2189/AW      6582-DATA
   IBDR            2372/LW      6566-DATA
   IBIR            2280/LW      6565-DATA
   IETMMC          4437/LW      4533/LW      6418-XPSD
   IMAGE           5682/STW     5725/STW*    5808/STW     6527-DATA
   IMAGEAC          845/STW     5354/STW     5418/STW     5744/GEN     6603-RES     6646/DATA
   IMAGEMAP         841/STW     5299/STW     5337/STW     5583/STH     5597/GEN     5828/STH     5836/LI
      6601-RES     6644/DATA
   IMAGEWL          846/STW     5367/STW     5447/STW     6605-RES     6648/DATA
   IMAP            5561/LW      6644-DATA
   IMGMAP          4288/LI      6598-DATA
   INCRCC          1087/B       1093-EQU
   INCRET          4896/BCS     4903-MTW
   INCRX1          1536-EQU     1547/BE
   INITDP          5857/BG      5862-EQU     5871/B       5878/B
   INITIAL          779/DATA     830-EQU
   INITREGS         850/BAL     5371-EQU     6167/BAL
   INITSTOR        2713/BAL     2774-EQU     4168/BAL
   INST            2284/STW     2297/LW      2305/AW      6570-DATA
   INSTAD          2762/LB      2764/LW*     3087-DATA
   INSTADR         2188/BAL     2296/BAL     2407/BAL     4949-EQU
   INTCNT4Z        3503/LW      6417-XPSD
   IWL             5806/LW      6648-DATA
   J%EXPL          6903-EQU     7442/P
   K%EXPL          6968-EQU     7452/P
   L               7334-COM
   LABEL            831/STW      941/BAL*     943-DATA
   LAST:TST         917/LI      6110/CI      6487-EQU
   LASTPAGE        1617/CW      1670/CW      1679/CW      1760/CW      1805/CW      1815/CW      3604/CW
      3659/CW      3669/CW      4583/CW      6495-DATA
   LASTPAG1        1680/BE      1691-EQU
   LASTPAG2        1816/BE      1827-EQU
   LASTPAG3        3670/BE      3681-EQU
   LASTRVP1        1671/BE      1675-EQU
   LASTRVP2        1806/BE      1811-EQU
   LASTRVP3        3660/BE      3665-EQU
   LH              5745-EQU     5757/B       5768/B
   LIN             2281/LW      2385/LW      6577-LI
   LINFUL1         5604/BEZ     5612-EQU
   LINFUL2         5751/BEZ     5759-EQU
   LINK             805-EQU      831/STW      879/LW       882/LW       908/BAL      910/STW      911/BAL
       913/STW      914/BAL      916/STW      921/LW       934/STW      935/AWM      939/STW      941/BAL
       967/LW      1118/LM      1122/LM      1130/LM      1270/LW      1273/LW      1345/LW      1715/LM
      1719/LM      1952/LM      1956/LM      2351/LW      2354/LW      2445/LM      2450/LM      2638/BAL
      2649/BAL     2872/LW      2880/LM      2884/LM      2888/LM      2892/LW      2897/LM      2903/LM
      2907/LM      2911/LM      3864/LW      3869/LM      3873/LM      4098/BAL     4109/BAL     4241/SLS
      4242/AI      4243/LH      4246/LW      4373/LW      4376/LM      4380/LM      4497/LM      4502/LW
      4510/LM      4514/LM      4518/SLS     4519/LB      4600/LM      4604/LW      4608/LW      4611/LW
      4656/LM      4730/LW      4733/LW      4753/BAL     4759/BAL     4790/BAL     4798/BAL     4812/STW
      4820/BAL     4822/LM      4845/BAL     4847/LW      4913/LW      4997/LW      5000/LM      5004/LW
      5020/LM      5024/LM      5029/LW      5032/LW      5035/LW      5071/LM      5075/LM      5101/LM
      5105/LM      5110/LW      5113/LW      5126/LM      5130/LW      5133/LM      5137/LW      5140/LM
      5160/LW      5164/LW      5182/LW      5186/LW      5596/BAL     5599/LW*     5630/STW     5631/LW
      5633/BAL     5635/LW      5641/LW      5643/STW     5743/BAL     5746/LH*     5777/STW     5778/BAL
      5780/LW      5786/LW      5846/LW      5847/CI      5849/STW     5850/LW      5852/CI      5854/STW
      5856/CW      5858/AW      5859/CI      5861/AI      5864/STW     5869/LI      5870/STW     5874/STW
      5877/STW     5920/LC      5927/BAL     5929/TIO*    5936/BAL     5938/CI      5940/CI      5946/CI
      5950/LW      5952/LB      5953/LB      5954/STB     5955/BDR     5956/BAL     5958/STW     5959/BAL
      5962/CW      5964/STW     5968/AW      5969/STW     5996/XW      6011/LC      6015/BAL     6017/CI
      6019/STW     6020/BAL     6022/CW      6024/CW      6026/CW      6028/STW     6029/BAL     6031/CW
      6033/CW      6035/CW      6037/STW     6038/LB      6039/LB      6040/STB     6041/BDR     6067/XW
      6084/LC      6091/BAL     6093/AND     6094/CI      6096/CW      6098/STW     6105/BAL     6107/AND
      6108/CI      6110/CI      6112/CW      6114/STW     6123/BAL     6125/AND     6126/CW      6128/CW
      6130/STW     6188/BAL     6210/XW      6290/LM      6294/LM      6298/SLS     6299/LB      6302/LM
      6314/LW      6321/BAL     7322/BAL
   LINK1           1612/BE      1615-EQU
   LINK2           1755/BE      1758-EQU
   LINK3           3599/BE      3602-EQU
   LIP             2373/LW      2392/LW      6578-LI
   LIST            2691/STW     2704/LB*     2728/LW*     2732/LB*     2739/LB*     2742/LW*     2744/MTW
      2754/AWM     2839/LW*     3071-DATA    4150/STW     4158/LB*     4179/LW*
   LOADAC          1773-EQU     1786/BCS     1800/B       1825/B
   LOADINST        2711/BAL     2761-EQU     4166/BAL
   LOADMAP         1646-EQU     1660/BCS     1665/B       1689/B
   LOADNW          2741-EQU     2746/BDR
   LOADPSD1        3142-EQU     3166/BCS     3173/B       3175/BCS
   LOADPSD2        3216-EQU     3233/BCS     3238/B       3240/BCS
   LOADPSD3        3286-EQU     3308/BCS     3312/B       3314/BCS
   LOADPSD4        3362-EQU     3380/BCS     3384/B       3386/BCS
   LOADPSD5        3423-EQU     3442/BCS     3447/B       3450/BCS
   LOADWL          3619-EQU     3633/BCS     3638/B       3679/B
   LOADWORD        5232/STW     5233/LW*     5243-EQU
   LODSTAT         2283-EQU     2375/B       2387/B       2394/B
   LODTINST        2304-EQU     2318/B
   LOG             5950/LW      5961/STW     5972/CI      5976/AI      5977/SLS     5978/OR      5979/WD
      6658-EQU
   LOOPSS2         4697/B       4702-EQU
   LOPLPSD1        3948-EQU     3981/BCS     3986/B       3988/BCS
   LOPLPSD2        4027-EQU     4046/BCS     4051/B       4053/BCS
   LOPT11          1597-EQU     1609/BCS     1614/B
   LOPT12          1738-EQU     1749/BCS     1757/B
   LOPT16          2285/STW     2309-EQU     2325/BCS     2333/B       2341/BCS
   LOPT23          2637-EQU     2651/BCS     2656/B       2658/BCS
   LOPT24          2685/LI      2712-EQU     6464/BCS
   LOPT34          3584-EQU     3596/BCS     3601/B
   LOPT38          4097-EQU     4111/BCS     4116/B       4118/BCS
   LOPT39          4144/LI      4167-EQU     6465/BCS
   LOPT40          4206-EQU     4225/BCS
   LOPT43          4285-EQU     4325/BCS     4351/B       4353/BCS
   LOPT44          4395-EQU     4403/BCS     4415/B       4417/BCS
   LOPT45          4445-EQU     4455/BCS     4460/B       4472/BCS     4541/B
   LOPT47          4555-EQU     4558/BCS     4581/B       4599/#HTECON
   LOPT48          4627-EQU     4633/BCS     4637/B       4640/BCS
   LOPT49          4675-EQU     4685/BCS     4696/B       4704/BCS
   LOPT6           1356-EQU     1365/BCS     1371/B       1381/BCS
   LOPT7           1404-EQU     1416/BCS     1426/B       1441/BCS
   LOPT8           1451-EQU     1463/BCS     1472/B       1487/BCS
   LOWCM           4775/BE      4793-EQU
   LPSDACOP        2016/STW     2036/LPSD    2038-DATA
   LPSDLOP1        2193-LPSD    2214/BCS     2221/B       2223/BCS
   LPSDLOP3        2416-LPSD    2437/BCS     2456/B       2460/BCS
   LPSDLOP4        2489-EQU     2521/BCS     2526/B       2528/BCS
   LPSDLOP5        2553-EQU     2572/BCS     2577/B       2579/BCS
   LPSDMOP         1881/STW     1901/LPSD    1903-DATA
   LPSTAT          4851/BNE     4855-EQU
   LRA             4923/LD      6391-TEXTS
   LRAERR          1110/BAL     1138-EQU     1261/BAL     1341/BAL
   LRAER1          1084/BAL     1102-EQU     1196/BAL
   LRAER1X         1116-EQU     1556/BE      1561/B
   LRAER3          1243/BAL     1260-EQU
   LRAER5          1325/BAL     1333-EQU
   LRAHD1          1147/STH     1148/#PRINT  7050-TEXTCS
   LRAINSTX        5519/STW     5535/LW*     5537/LW      6433-DATA
   LRAINST2        5515-LRA     5518/LI
   LRALOOP1        1073-EQU     1080/BCS     1085/B
   LRALOOP2        1185-EQU     1192/BCS     1197/B
   LRALOOP3        1223-EQU     1240/BCS     1244/B       1255/BCS
   LRALOOP5        1314-EQU     1321/BCS     1326/B       1329/BCS
   LRAMPE          1502/LI      1504/LW      1526-LRA
   LRAMSG1         4998/STW     5002/STM     5006/STH     5007/#PRINT  7053-TEXTCS
   LRAMSG1A        1120/STM     1131/STW     1133/#PRINT  7056-TEXTCS
   LRAMSG1B        1124/STM     1132/STW     1134/#PRINT  7059-TEXTCS
   LRAMSG3         1267/STW     1275/#PRINT  7062-TEXTCS
   LRAMSG3A        1271/STW     1274/STW     1278/#PRINT  7065-TEXTCS
   LRAMSG5         1346/STW     1347/#PRINT  7067-TEXTCS
   LRAOK1          1083/BE      1089-EQU
   LRAOK2          1195/BE      1201-EQU
   LRAOK4          1242/BCS     1247-EQU
   LRAREAD         5510-EQU     5578/BAL     5709/BAL     5823/BAL
   LRARETURN       5512/STW     5522/B*      6432-DATA
   LRATRAP         1248/LW      1272/#HTECON 1285-DATA    1294/LPSD    6415/XPSD
   LRA1            1038/LI      1040/LW      1076-EQU
   LRA2            1162/LI      1164/LW      1188-EQU
   LRA3            1217/LI      1219/LW      1237-EQU     1250/LI      1268/LI
   LRA4            1305/LI      1307/LW      1317-EQU
   LROK            6143/BLE     6152/B       6154-EQU
   LST:TST          918/STW     6096/CW      6486-DATA
   LSTADRS          892/STW     3344/LW      4622/LW      6669-DATA
   LW              5598-EQU     5610/B       5621/B
   LWINST          2307/LW      6571-LW
   LWTIP           1877/LW      3135/LW      3476/LW      6586-LW
   LWTP            2013/LW      2183/LW      2291/LW      2402/LW      2482/LW      2542/LW      3209/LW
      3279/LW      3416/LW      6589-LW
   MAP             4933/LD      6392-TEXTS
   MAPBITS         5031/#HTECON 5234/STW     6592-DATA
   MAPCAL1         1916-EQU     6344/B
   MAPCHK1         1599-EQU     1622/B
   MAPEDADR        1945/LW      2025/LW      2256/LW*     2258/LW      2306/STW*    2350/#HTECON
      2444/#HTECON 2636/STW     3170/LW*     3186/LW*     3188/LW      3944/STW     4023/STW     4096/STW
      5055/LW      5208/STW*    5319/STW     5460/STW     6591-DATA
   MAPEDPAG         898/STW     6022/CW      6031/CW      6671-DATA
   MAPFTST         1618/BE      1638-EQU
   MAPHEAD1        1558/STH     1559/#PRINT  1708/STH     1709/#PRINT  6990-TEXTCS
   MAPHEAD2        1710/#PRINT  6993-TEXTCS
   MAPHEAD3        1711/#PRINT  6995-TEXTCS  7013/EQU
   MAPIMAGE        5333/LI      5336/LW      6666-EQU
   MAPLOAD         1596/STW     1625/LW      1643/STW     6500-DATA
   MAPMP1          2641/LPSD    2643-DATA
   MAPMSG1         1717/STM     1721/STM     1722/#PRINT  5155/LB      5157/STB     5162/STW     5166/STW
      6997-TEXTCS  7006/EQU
   MAPMSG2         5022/STM     5027/STM     5030/STH     5033/STW     5038/STW     5039/#PRINT
      7019-TEXTCS  7073/EQU     7117/EQU
   MAPMSG3         1949/STM     1950/#PRINT  7022-TEXTCS
   MAPMSG4         1954/STM     1958/STM     1959/#PRINT  7024-TEXTCS
   MAPMSG5         1989/STM     1990/#PRINT  7026-TEXTCS
   MAPMSG6         3567/#PRINT  7029-TEXTCS
   MAPOPHD1        1974/STH     1975/#PRINT  3561/STH     3562/#PRINT  7016-TEXTCS
   MAPOPT          1892-EQU     1918/BCS     1925/B       1933/B
   MAPPE           5521/BCS     5532-EQU
   MAPPTRN          840/STW     4397/STW     4398/LI      4419/STW     4449/LI      6166/STW     6597-RES
      6631/EQU     6637/EQU     6666/EQU
   MAPREAD         1418/LW      1465/LW      4337/STW     4372/#HTECON 5488/STW     6499-DATA
   MAPSELF         1226/BAL     3424/BAL     3579/BAL     4394/BAL     4551/BAL     5382-EQU     5831/BAL
   MAPSMOD         2714/LPSD    2717-DATA
   MAP1F           1363/BAL     1406/BAL     1453/BAL     5469-EQU
   MARGINMASK       833/AND     5971/AND     6650-DATA
   MASTMOD1        3945/STW     3951/LPSD    3954-DATA
   MASTMOD2        4024/STW     4031/LPSD    4033-DATA
   MASTMOD3        4101/LPSD    4103-DATA
   MASTMOD4        4169/LPSD    4172-DATA
   MASTPROT        4303/LPSD    4306-DATA
   MEMPAR          4686/LW      4689/LW      4713-DATA    4723/LPSD    6414/XPSD
   MHD1            1394/#PRINT  6467/DATA    7132-TEXTCS
   MHD2            6468/DATA    7135-TEXTCS
   MHD3            6469/DATA    7138-TEXTCS
   MMC             4984/LD      6396-TEXTS
   MMCAC1          1178/BAL     1776/BAL     1820/BAL     2546/BAL     5405/BAL     5409-EQU
   MMCHD1          4262/STH     4263/#PRINT  7129-TEXTCS
   MMCIET          4482-DATA    4488/MTW     4489/LPSD    4508/AWM     4509/#HTECON 4513/#HTECON 6418/XPSD
   MMCILCB         4443/LW      6573-DATA
   MMCINST         4444/STW     4452-DATA    4496/#HTECON 4500/LI      4540/STW
   MMCMAP1         1045/BAL     1649/BAL     1684/BAL     4205/BAL     5248/BAL     5255/BAL     5279/BAL
      5290-EQU
   MMCMG10         4658/STM     4659/#PRINT  7189-TEXTCS
   MMCMSG1         4248/#PRINT  7150-TEXTCS
   MMCMSG11        4739/#PRINT  7192-TEXTCS
   MMCMSG2         4244/STH     4247/STW     4249/#PRINT  7152-TEXTCS
   MMCMSG4         7156-TEXTCS
   MMCMSG4A        7159-TEXTCS
   MMCMSG4B        7162-TEXTCS
   MMCMSG4C        7165-TEXTCS
   MMCMSG5         4383/#PRINT  7168-TEXTCS
   MMCMSG5A        4384/#PRINT  7171-TEXTCS
   MMCMSG5B        4323/STW     4374/STW     4378/STM     4382/STM     4385/#PRINT  7174-TEXTCS
   MMCMSG6         4426/#PRINT  7177-TEXTCS
   MMCMSG7         4493/STW     4499/STM     4503/STW     4504/#PRINT  7180-TEXTCS
   MMCMSG7B        4442/STB     4512/STM     4516/STM     4520/STB     4521/#PRINT  4538/STB
      7183-TEXTCS
   MMCMSG9         4602/STM     4606/STW     4609/STH     4612/STH     4613/#PRINT  7186-TEXTCS
   MMCM12          4731/STW     4740/#PRINT  7195-TEXTCS
   MMCM13          4734/STW     4738/STB     4741/#PRINT  7197-TEXTCS
   MMCODDR         4539/LW      6574-DATA
   MMCTRAP         4682-EQU     6540/DATA
   MMCWL1          1173/BAL     3622/BAL     3674/BAL     4017/BAL     4085/BAL     5434/BAL     5438-EQU
   MMCX1           1385/STW     1395/#PRINT  6470/DATA    7141-TEXTCS
   MMCX2           1422/STW     1468/STW     6471/DATA    7144-TEXTCS
   MMCX3           1433/STW     1435/STW     1479/STW     1481/STW     6472/DATA    7147-TEXTCS
   MMHD1           3197/STH     3198/#PRINT  7114-TEXTCS
   MMHD2           7117-EQU
   MMLPSD          3139/STW     3146/LPSD    3148-DATA    3213/STW     3222/LPSD
   MMLPSD3         3283/STW     3292/LPSD    3294-DATA    3420/STW
   MMLPSD4         3365/LPSD    3367-DATA
   MMLPSD5         3431/LPSD    3433-DATA
   MMSG1           3236/LI      3265/#PRINT  7119-TEXTCS
   MMSG2           3321/#PRINT  7122-TEXTCS
   MMSG3           3445/LI      7124-TEXTCS
   MMSG4           3407/#PRINT  7126-TEXTCS
   MMT             4962/LD      6394-TEXTS
   MODLAST         3068-EQU
   MODLOC          3075/DATA    3078-EQU
   MODULE#         2697/STW     2727/MTW     2869/LW      2871/#HTECON 4156/STW     6387-DATA
   MOD0            2928-EQU     3072/DATA
   MOD1            2694/STB     2941-EQU     4153/STB
   MOD2            2954-EQU
   MOD3            2695/STB     2967-EQU     4154/STB
   MOD4            2980-EQU
   MOD5            2993-EQU
   MOD6            3006-EQU
   MOD7            3023-EQU
   MOD8            3040-EQU
   MOD9            3054-EQU
   MOPLOP1         1876-EQU     1936/BCS
   MPE             1533-BAL     1548/B
   MPEHDG          5533/#TYPE   7199-TEXTCS
   MPEMSG          5128/STM     5131/STW     5135/STM     5138/STW     5142/STM     5540/#TYPE
      7204-TEXTCS
   MPEMSGX         5534/#TYPE   7201-TEXTCS
   MPEOK           1532/BE      1544-EQU
   MPEPATT         1509/LW      1515/LW      6474-EQU
   MPOPRT          1889/STW     1891/GEN     1919/CW      1922/LW      1943/LW      1983/LW      1994-LW
   MSGSTAT         4858/BE      4860-#PRINT
   MTWI            3495/AW      6538-MTW
   NCOUNT           931/STW      935/AWM     4757/CW      4762/AWM     5969/STW     6545-DATA
   NEW:TST         6083/STB     6122/STB     6150/STB     6163/LW      6187/LCF     6485-DATA
   NEWPSD          2476/LM      2533-DATA
   NEWPSD1         3934/LM      4004-DATA
   NEXTAC          2029-LI      2080/B
   NEXTCC          1052-STW     1096/BCR     1098/BCS
   NEXTINST        5206-EQU     5211/BDR
   NEXTWL          3727-EQU     3761/BCS     3833/B       3838/B       3850/B
   NO              3788/LW      3794/LW      3804/LW      3812/LW      4364/LW      6404-TEXTS
   NONXMMC         4631-DATA    4649/B       4655/#HTECON
   NOP             5810/LM      6530-NOP
   NOT             1263/LW      2823/LW      4458/LW      6401-TEXTS
   NOTADD          1061/BCS     1064/BCS     1066-AW
   NOTAVAIL        5931/#TYPE   7236-TEXTCS
   NOTOK1          3774/BEZ     3787-EQU
   NOTOK2          3803/BNEZ    3816-EQU
   NOTRAPX         3766/BEZ     3768/BEZ     3770/BE      3799-EQU
   NWLREG          4562-STW     4588/B
   NXTBLK1         5608/BE      5619/BE      5623-EQU
   NXTBLK2         5755/BE      5766/BE      5770-EQU
   NXTMPE          1507-EQU     1529/BCS     1534/B       1539/BL
   ODD             5264/B       5271-EQU
   ODDEVEN         4202/BAL     5245/BAL     5262/BAL     5303-EQU
   OPCXPSD         2471/AW      3929/AW      6437-XPSD
   P               7335-COM
   PAGEADR         1072/STW     1077/LRA     1170/STW     1189/LRA     1229/STW     1230/STW*    1232/LMS*
      1238/LRA     1288/STW*    1290/LMS*    1311/STW     1318/LRA     1514/STW     1526/LRA     1603/STW
      1606/LRA     1654/STW     1657/LRA     1744/STW     1746/LRA     1781/STW     1783/LRA     3429/STW
      3462/LRA     3590/STW     3593/LRA     3627/STW     3630/LRA     3648/LW      4219/STW     4222/LRA
      4328/STW     4331/LRA     4406/STW     4409/LRA     4562/STW     4568/LRA     4585/LW
      5139/#HTECON 5483/STW     5485/LRA     5494/STW     5496/LRA     5515/LRA     5577/STW     5655/STW
      5708/STW     5822/STW     5901/LW      6493-DATA
   PARAM%RET       5923/STW     5932/MTW     5942/MTW     5996/XW      5997/B*      6014/STW     6049/MTW
      6054/MTW     6059/MTW     6067/XW      6068/B*      6087/STW     6197/MTW     6202/MTW     6210/XW
      6211/B*      6654-DATA
   PARAMER         5887/STD     5888/#TYPE   5992/STD     5993/#TYPE   6063/STD     6064/#TYPE   6206/STD
      6207/#TYPE   7213-TEXTCS
   PARAMJ          5917-EQU     7440/E
   PARAMJ#A        5926/BE      5930/BCR     5936-BAL
   PARAMJ#E        5933/B       5944/B       5991-LW
   PARAMJ#X        5952-LB
   PARAMJ#Y        5921/BEZ     5980-EQU
   PARAMK          6079-EQU     7450/E
   PARAMT          6008-EQU     7445/E
   PASS#            856/STW      859/STW     4754/LW      4786/MTW     5965/LW      5968/AW      6557-DATA
   PGMAX            894/STW     6026/CW      6035/CW      6670-DATA
   PJ#X            5939/BLE     5948-LI
   PJ#Y            5941/BG      5946-CI
   PJ#Z            5942-MTW     5947/BGE
   PK#ERR          6199/B       6204-EQU
   PK#ER1          6095/BE      6097/BG      6160/B       6196-EQU
   PK#ER2          6109/BE      6111/BG      6113/BL      6201-EQU
   PK#XIT          6085/BEZ     6159/BGE     6162-EQU
   PL#JHDR         5915/DATA    7230-TEXTCS
   PL#KHDR         6077/DATA    7247-TEXTCS
   PL#THDR         6006/DATA    7241-TEXTCS
   PLHD1           2268/STH     2269/#PRINT  7070-TEXTCS
   PLHD2           7073-EQU
   PLIN#K           928/STB      968/STW     6076/DATA    6088/LW      6100/STW     6102/LW      6116/STW
      6118/LW      6132/STW     6136/LW      6137/STW     6147/LW      6148/STW     7249-TEXTCS
   PLIN#KR          922/STW      926/LB       927/LB      7251-TEXTCS
   PLIN#T           906/STB     6006/DATA    6038/LB      6040/STB     7243-TEXTCS
   PLIN#TR          904/LB       905/LB       909/GEN      912/GEN      915/GEN     7245-TEXTCS
   PLINE#J          837/STB      902/STB      938/#ETHCON 4782/STB     5915/DATA    5925/CW      5952/LB
      5954/STB     5957/GEN     5960/GEN     7232-TEXTCS
   PLINE#JRES       880/STW      883/STW      900/LB       901/LB       933/#ETHCON 7234-TEXTCS
   PLINEIN          781/DATA    5924/LW      5937/GEN     5943/LW      5953/LB      6016/GEN     6021/GEN
      6030/GEN     6039/LB      6050/LW      6055/LW      6060/LW      6089/CW      6092/GEN     6099/LW
      6103/CW      6106/GEN     6115/LW      6119/CW      6124/GEN     6131/LW      6198/LW      6203/LW
      7326-RES
   PLMSGX1         2352/STW     2361/STB     2366/#PRINT  7078-TEXTCS
   PLMSGX2         2355/STW     2362/STB     2365/STB     2367/#PRINT  7080-TEXTCS
   PLMSG1          2219/LI      2249/#PRINT  7075-TEXTCS
   PLMSG10         2899/STM     2905/STM     2909/STM     2913/STM     2918/#PRINT  7105-TEXTCS
   PLMSG11         7108-TEXTCS
   PLMSG12         4114/LI      7111-TEXTCS
   PLMSG2          2448/STM     2453/STM     2454/LI      7082-TEXTCS
   PLMSG3          5103/STM     5108/STM     5111/STH     5114/STH     5115/#PRINT  7085-TEXTCS
   PLMSG4          2524/LI      7088-TEXTCS
   PLMSG5          5073/STM     5078/STM     5079/#PRINT  7091-TEXTCS
   PLMSG6          2575/LI      2604/#PRINT  4049/LI      7093-TEXTCS
   PLMSG7          3984/LI      7096-TEXTCS
   PLMSG8          2654/LI      7099-TEXTCS
   PLMSG9          2824/STW     2866/STW     2882/STM     2886/STM     2890/STM     2893/STH
      2894/#PRINT  7102-TEXTCS
   PRBUF           5615/BAL     5629-EQU     5666/BAL
   PRBUF1          5762/BAL     5776-EQU     5790/BAL
   PRNT1           1392/STH     1394-#PRINT
   PRNT2           1393/STH     1395-#PRINT
   PROGTEXT      7464.1/GEN   7464.4-TEXTCS
   PRXITDA         5753/BEZ     5789-EQU
   PRXITDP         5606/BEZ     5665-EQU
   PSDWK0          3743/LPSD    3746-DATA
   PSMINST         2792/BE      2805-EQU
   PT#ERR          6051/B       6056/B       6061-EQU
   PT#ER1          6018/BG      6048-EQU
   PT#ER2          6023/BL      6025/BG      6027/BG      6053-EQU
   PT#ER3          6032/BL      6034/BG      6036/BG      6058-EQU
   PT#XIT          6012/BEZ     6042-EQU
   P1#             5589/SW      5591/LW      5593/LW      5732/LW      5736/SW      5738/LW      5740/LW
      5849/STW     5855/LW      5856/CW      5858/AW      5875/LW      6640-DATA
   P2#             5854/STW     5870/STW     5874/STW     6641-DATA
   READAC          1777-EQU     1808/B
   READCM          5963/BE      5970-RD
   READMAP         1650-EQU     1673/B
   READREGS        1366/BAL     1417/BAL     1464/BAL     5480-EQU
   READSTAT        4849/LI      7322-BAL     7404/E
   READVP          1595/STW     1600/LW      1616/LW      1621/AWM     1627/CW      1641/STW     1651/LW
      1669/LW      1672/MTW     1677/STW     1736/STW     1741/LW      1759/LW      1764/AWM     1770/STW
      1778/LW      1792/LW      1804/LW      1807/MTW     1813/STW     3582/STW     3587/LW      3603/LW
      3608/AWM     3614/STW     3624/LW      3643/LW      3658/LW      3661/MTW     3667/STW     4560/STW
      4573/LW      4582/LW      4587/MTW     4603/#HTECON 5163/#HTECON 6498-DATA
   READWL          3623-EQU     3662/B
   REG             7275-TEXTCS
   REGSAVE         6301/#HTECON 6588-DATA
   REMOT:GD         867/STW     3532/LW      6442-DATA
   RESTART         6189/DATA    6192-DATA
   RESULTAT        1896/STW     1898/STW*    1927/CW*     1930/LW*     1985/LW      2024/STW     2035/STW*
      2068/LW*     6593-DATA
   RETRY           5511/STW     5542/B*      5543-DATA
   RETURN1         5372/STW     5376/B*      6426-DATA
   RETURN2         5845/STW     5865/MTW     5866/B*      5889/B*      6427-DATA
   RETURN3         5481/STW     5505/B*      6428-DATA
   RETURN5         5087/STW     5092/B*      6429-DATA
   RETURN6         5099/STW     5116/B*      6430-DATA
   RETURN7         5124/STW     5143/B*      6431-DATA
   RM%EXPL         6764-TEXTCS             7416.1/P
   RTCLPSD         3480/STW     3509/LPSD    3511-DATA
   RTINST          3485/STW     3487/GEN     3547-EQU
   S%EXPL          6770-EQU     7422/P
   S:INT            412/ERROR    461/ERROR    515/SET      524/SET      534/ERROR    538/SET      540/SET
       549/DO
   S:PT             0.3/EQU
   S:RAD            538/SET      591/ERROR
   S:UFV            591/ERROR
   SAM:TCR         6164/BNEZ    6184-EQU
   SAMEBLK         5242/BE      5259-EQU
   SAVCNT          2730/STW     2748/SW      2753/LW      6524-DATA
   SAVE            5919/STM     5987/LM      5995/LM      6010/STM     6044/LM      6066/LM      6081/STM
      6186/LM      6209/LM      6655-RES
   SAVEADDR        5050/STW     5059/B*      6505-DATA
   SAVECC          6228/STCF    6231/LW      6297/#HTECON 6587-DATA
   SAVELINK        4812/STW     4850/CW      4854/B*      4863/B*      6547-DATA
   SAVER           2794/BE      2800-EQU     2808/B
   SAVEREGS        4338/LW      4343/LW      4363/STM     5661/LM      5898/STM     6230/STM     6319/LM
      6588/DATA    6594-RES
   SAVINFO         5560/BAL     5679/BAL     5805/BAL     5896-EQU
   SAVPAG          5654/LW      5902/STW     6494-DATA
   SAVRESLT        4237/STW     4245/#HTECON 4347/STW     4379/#HTECON 5132/#HTECON 5517/STW     5579/LW
      5710/LW      5824/LW      6445-DATA
   SAVRS           5294/STW     5297/LW      5413/STW     5416/LW      5442/STW     5445/LW      6513-RES
   SAVR8           2326/STW     2336/LW      2357/LW      2801/STW     2883/#HTECON 6522-DATA
   SAVR9           2802/STW     2887/#HTECON 6523-DATA
   SAV4C           5656/LW      5900/STW     6520-DATA
   SBA             2781/LW      2795/LW      3085-DATA
   SCAN            5688-EQU     5832/B
   SCSL            4440/STW     4464-DATA    4536/STW
   SCSL3           4439/LW      6575-SCS
   SCSL4           4535/LW      6529-SCS
   SCSL8           6531-SCS
   SET:TCR         6127/BL      6129/BG      6135-EQU
   SETAC           2030/BAL     2185/BAL     2293/BAL     2404/BAL     2484/BAL     3211/BAL     3281/BAL
      3418/BAL     5397-EQU
   SETC1C2         1182-EQU     1207/BCS
   SETINST         1890/BAL     2017/BAL     2191/BAL     2414/BAL     2487/BAL     2551/BAL     3140/BAL
      3214/BAL     3284/BAL     3421/BAL     3486/BAL     3946/BAL     4025/BAL     5201-EQU
   SETLPSD         1880/BAL     2015/BAL     2186/BAL     2294/BAL     2405/BAL     2485/BAL     2549/BAL
      5315-EQU
   SETLPSD1        3138/BAL     3212/BAL     3282/BAL     3419/BAL     3479/BAL     5456-EQU
   SETMAP          1879/BAL     2014/BAL     2184/BAL     2292/BAL     2403/BAL     2483/BAL     2543/BAL
      3137/BAL     3210/BAL     3280/BAL     3417/BAL     3478/BAL     5231-EQU
   SETPADX         5818-EQU     5830/BIR
   SETPAD1         5573-EQU     5586/BLE
   SETPAD2         5701-EQU
   SETWL           3733/BAL     3940/BAL     5426-EQU
   SHIFTCM         4777-EQU     4795/B
   SHIFTR8         4210/EXU     4267-SLS
   SICOUNT          934/STW     4760/LW      4799/LW      5962/CW      5964/STW     6656-DATA
   SKIPHDG1        1562-EQU
   SKIPINIT         852/BNEZ     936-EQU
   SKIPMOD         2734/BE      2740/BCR     2752-EQU
   SKIPRESJ         861/BNEZ     899-EQU
   SKIPTI          2915/BNEZ    2917-EQU
   SLAVMAP1        2187/STW     2193/LPSD    2195-DATA
   SLAVMAP3        2406/STW     2416/LPSD    2418-DATA
   SLAVMAP4        2486/STW     2492/LPSD    2494-DATA
   SLAVMAP5        2550/STW     2557/LPSD    2559-DATA
   SLMAP1          2295/STW     2311/LPSD    2313-DATA
   SLOOP           2687/STW     2834-NOP     4146/STW
   SLSX            5686/STM     5712-EQU     5812/STM
   SORCDATA        2786/LD      3090-DATA
   SPAD2A          5704-EQU     5722/B
   SPAD2B          5698-LI      5731/BLE
   SS2CHK1         4461/B       4466/BCS     4470-EQU
   SS2CHK3         4584/BE      4590-EQU
   START            942/DATA     945-DATA
   STAT%XPL        7293-TEXTCS  7406/P
   STATMSGS        4759/BAL     4798/BAL     4811-EQU     7322/BAL
   STHD1           4852/#TYPE   4859/#PRINT  6443/DATA    7286-TEXTCS
   STMSG1          4816/STH     4825/STW     4831/STH     4834/STH     4841/STB     4848/STB     4853/#TYPE
      4860/#PRINT  4924/STD     4934/STD     4945/STD     4963/STD     4974/STD     4985/STD
      7290-TEXTCS
   STORCON         1046-SLS
   STOREAT         2022/STW     2028/STW*    2303/STW     2308/STW*    2317/STW     2408/STW     2410/STW*
      2411/LW      2470/STW     2478/STM*    3350/STW     3352/STW*    3726/STW     3729/STW*    3742/STW*
      3778/LW*     3807/LW*     3928/STW     3936/STM*    4342/STW     4375/#HTECON 6508-DATA
   STORXPSD         945/DATA     947-EQU
   STREXPCC        1180-EQU
   STRT:TST         969/LW       972/B        975-EQU
   STSAC           1732/BAL     2010/BAL     2177/BAL     2287/BAL     2398/BAL     2466/BAL     2540/BAL
      2619/BAL     2682/BAL     4943-EQU
   STSLRA          1036/BAL     1161/BAL     1216/BAL     1304/BAL     4922-EQU
   STSMAP          1499/BAL     1590/BAL     1871/BAL     3472/BAL     4932-EQU
   STSMM           3131/BAL     3205/BAL     3275/BAL     3343/BAL     3412/BAL     4961-EQU
   STSMMC          1355/BAL     1403/BAL     1450/BAL     4200/BAL     4283/BAL     4392/BAL     4436/BAL
      4532/BAL     4549/BAL     4625/BAL     4672/BAL     4983-EQU
   STSWL           3578/BAL     3717/BAL     3923/BAL     4013/BAL     4081/BAL     4141/BAL     4972-EQU
   SUPHEAD1        1706/BE      1712-EQU     3702/BE      3708/B
   SUPHEAD2        1842/BE      1848-EQU
   SUPRESP         1111/B       1262/B       1342/B       1390/B       1553/BCS     1703/BCS     1839/BCS
      1942/B       1982/B       2108/B       2247/B       2346/B       2601/B       2868/B       3181/B
      3263/B       3319/B       3406/B       3556/BCS     3699/BCS     3862/BCS     4000/B       4239/B
      4371/B       4425/B       4495/B       4598/B       4654/B       4728/B       4880/B       4894-EQU
   SUPWLHD         3881/BE      3886-EQU
   SW2             4635/BEZ     4638-EQU
   SYNTAX%EXPL     6720-TEXTCS  7401/P
   T%EXPL          6947-EQU     7447/P
   TABLE3           780/DATA    7396-EQU
   TABLE3END       7456-DATA
   TADDR           1039/STW     1163/STW     1218/STW     1306/STW     1503/STW     1946/STW     1986/STW
      2259/STW     3189/STW     3565/STW     4996/#HTECON 5023/#HTECON 5057/STW     5074/#HTECON
      5104/#HTECON 5129/#HTECON 5538/STW     6563-DATA
   TADROK          2286/STW     2331/BE      2335-EQU
   TCR:NUM          766-DATA     925/STW      937/MTW      955/MTW      958/LW       961/MTW
       966/#HTECON 1113/CW      1144/CW      1555/CW      1705/CW      1841/CW      1971/CW      2123/CW
      2265/CW      2836/LW      2860/LW      3194/CW      3558/CW      3701/CW      3880/CW      4259/CW
      4789/STW     4872/LW      4912/#HTECON 5490/LW      5570/LW      5695/LW      6130/STW     6139/STW
      6142/CW      6146/STW     6156/CW      6234/LW      6313/#HTECON
   TCR:SET         6120/BE      6133/B       6140-EQU
   TEMP            2689/STW     2743/STW*    2745/MTW     2747/LW      2749/STW     2790/LB*     3074-DATA
      4148/STW
   TEMP1           5700/STW     5718/AWM     5723/LW      6526-DATA
   TESTOK3         2443/BE      2458-EQU
   TESTPAGE         916/STW     1227/LW      1886/LW      1899/LW      2019/LW      2032/LW      2299/LW
      2467/LW      3143/LW      3219/LW      3289/LW      3347/LW      3357/LW      3427/LW      3491/LW
      3723/LW      3863/#HTECON 3924/LW      4204/LW      4208/LW      4212/LW      4217/LW
      4240/#HTECON 4950/LW      5028/#HTECON 5235/LW      5247/LW      5266/LW      5274/AW      5278/LW
      5304/LW      5398/LW      5404/LW      5427/LW      5433/LW      6037/STW     6589/LW      6662-DATA
   TESTPATN        1645/STW     1647/LW      1686/LW      1688/STW     1772/STW     1774/LW      1822/LW
      1824/STW     3616/STW     3620/LW      3676/LW      3678/STW     6496-DATA
   TESTVP          1594/STW     1620/AWM     1626/LW      1640/STW     1648/LW      1678/LW      1682/LW
      1685/MTW     1735/STW     1763/AWM     1769/STW     1775/LW      1793/CW      1814/LW      1818/LW
      1821/MTW     3581/STW     3607/AWM     3613/STW     3621/LW      3644/CW      3668/LW      3672/LW
      3675/MTW     5159/#HTECON 6497-DATA
   TEST39          2838/BE      4178-EQU
   TEXTCS           666-CNAME
   TEXTS            674-CNAME
   TINST           1041/STW     1165/STW     1220/STW     1308/STW     1505/STW     1944/STW     1984/STW
      2257/STW     2818/STW     2879/#HTECON 3187/STW     3496/STW     4999/#HTECON 5019/#HTECON 5054/STW
      5070/#HTECON 5100/#HTECON 5125/#HTECON 5536/STW     6562-DATA
   TINSTP           913/STW     1882/LW      1893/LW      2330/CW      2442/CW      3481/LW      3499/LW
      3941/LW      4020/LW      5238/LW      5244/LW      5249/LW      5250/LW      5254/LW      5268/AW
      5272/LW      5284/LW      5286/AW      5316/LW      5457/LW      6028/STW     6586/LW      6661-DATA
   TIOACT          2633/LD      2671-EQU
   TIOWLT          4093/LD      4130-EQU
   TITLE            0.3-EQU   7464.4/TEXTCS
   TNUM            6235-B       6240/EQU     6273/EQU
   TNUM39          2837/CI      2861/CI      6273-EQU
   TNUM5           5491/CI      5571/CI      5696/CI      6240-EQU
   TOK             1324/BCR     1327-EQU
   TOK1            1920/BE      1927-CW
   TOK10           3235/BEZ     3239-LC
   TOK11           3310/BEZ     3313-LC
   TOK12           3382/BEZ     3385-LC
   TOK12A          3444/BEZ     3448-EQU
   TOK13           3539/BEZ     3542-LC
   TOK14           3831/BEZ     3835-LW
   TOK15           3983/BEZ     3987-LC
   TOK16           4048/BEZ     4052-LC
   TOK17           4113/BEZ     4117-LC
   TOK18           4229/BE      4231-LC
   TOK19           4349/BEZ     4352-LC
   TOK2            1928/BE      1935-LC
   TOK20           4413/BE      4416-LC
   TOK21           4457/BNEZ    4463-LW
   TOK22           4579/BE      4582-LW
   TOK23           4694/BE      4699-LW
   TOK3            2216/BEZ     2222-LC
   TOK4            2523/BEZ     2527-LC
   TOK5            2574/BEZ     2578-LC
   TOK6            2653/BEZ     2657-LC
   TOK7            2832/BEZ     2836-LW
   TOK9            3168/BE      3174-LC
   TPAC            1875/STW     1966/STW     2118/STW     2181/STW     2289/STW     2400/STW     2480/STW
      2548/STW     3134/STW     3207/STW     3277/STW     3414/STW     3475/STW     5034/#BTECON 6502-DATA
      6503/EQU
   TPMAP            910/STW     1642/LW      6019/STW     6660-DATA
   TPWL            3938/STW     4019/STW     4087/STW     5112/#BTECON 6503-EQU
   TRAPCAL1        2854/MTW     2855/LD      6340-DATA    6412/XPSD
   TRAPCAL2        2098/LD      6368-DATA    6413/XPSD
   TRAPCC          4448/STW     4463/LW      4486/STCF    4517/#HTECON 6535-DATA
   TRAPFLG         1225/STW     1241/MTW     1264/MTW     1276/MTW     1293/MTW     2777/STW     2820/LW
      2853/MTW     2914/LW      4447/STW     4456/LW      4487/MTW     4505/LW      6534-DATA
   TRAPPSD         5090/BAL     6288-EQU     6312/BAL
   TRAPRET         6322/DATA    6324-DATA
   TRAP40          2051/LW      2099/STD     2327/LW      2353/#HTECON 2438/LW      2817/LW*     2856/STD
      5088/LD      6224-DATA    6310/LD      6410/XPSD
   TRNG1            885/#TYPE   7259-TEXTCS
   TSP:NUM          765-DATA     919/STW      959/CW      6114/STW     6128/CW      6151/LW      6155/LW
   TST:ADR          768-DATA     970/STW     6324/DATA
   TST:CONT         954-EQU     1099/B       1208/B       1258/B       1330/B       1382/B       1442/B
      1488/B       1491/B       1542/B       1695/B       1831/B       1937/B       2086/B       2224/B
      2342/B       2461/B       2531/B       2580/B       2661/B       2847/B       3100/B       3104/B
      3176/B       3241/B       3315/B       3346/BLE     3387/B       3451/B       3544/B       3686/B
      3856/B       3991/B       4054/B       4120/B       4185/B       4233/B       4354/B       4420/B
      4475/B       4593/B       4624/BGE     4641/B       4707/B       4791/B
   TST:CONTA        956-EQU     6192/DATA
   TST:NUM          764-DATA     924/STW     4787/LW      6098/STW     6112/CW      6126/CW      6138/LW
      6141/LW      6145/LW      6158/CW
   TSTEXIT         3842/BEZ     3844/BEZ     3853-EQU
   TSTINFOX        1115/BAL     1149/BAL     1560/BAL     4995-EQU
   TSTINFO2        1947/BAL     1987/BAL     2248/BAL     2348/BAL     3264/BAL     3320/BAL     3566/BAL
      5018-EQU     5058/BAL
   TSTINFO3        2110/BAL     5049-EQU
   TSTINFO4        2603/BAL     5069-EQU
   TSTINFO5        2250/BAL     2349/BAL     2605/BAL     2916/BAL     3266/BAL     4660/BAL     5086-EQU
   TSTINFO6        4001/BAL     5098-EQU
   TSTINFO7        5123-EQU     5539/BAL
   TSTINST1        3141/GEN     3152-EQU     3167/CW
   TSTINST2        3215/GEN     3269-EQU
   TSTINST3        3285/GEN     3337-EQU
   TSTINST4        4291/LD      4310-EQU
   TSTINST5        3422/GEN     3462-LRA
   TSTOK           3785/B       3796/B       3814/B       3825/B       3829-EQU
   TST1LRA          977/B       1035-EQU
   TST10MF          985/B       1498-EQU     1541/BCS
   TST12ACF         987/B       1731-EQU     1829/BCS
   TST14ACOP        989/B       2009-EQU     2084/BCS
   TST15PL          990/B       2176-EQU
   TST16PL          991/B       2279-EQU
   TST17PL          992/B       2371-EQU
   TST18PL          993/B       2383-EQU
   TST19PL          994/B       2390-EQU
   TST2LRA          978/B       1160-EQU
   TST20PL          995/B       2397-EQU
   TST21PL          996/B       2465-EQU
   TST22PL          997/B       2539-EQU
   TST23PL          998/B       2618-EQU
   TST24PL          999/B       2681-EQU     2844/BCS
   TST26           1000/B       3099-EQU
   TST27           1001/B       3103-EQU
   TST28MM         1002/B       3130-EQU
   TST29MM         1003/B       3204-EQU
   TST3LRA          979/B       1215-EQU
   TST30MM         1004/B       3274-EQU
   TST31MM         1005/B       3342-EQU
   TST32MM         1006/B       3411-EQU
   TST33LOP        3488-EQU     3537/BCS     3541/B       3543/BCS
   TST33RTC        1007/B       3471-EQU
   TST34WLF        1008/B       3577-EQU     3683/BCS
   TST35WLOP       1009/B       3716-EQU
   TST36WLP1       1010/B       3922-EQU
   TST37WLP2       1011/B       4012-EQU
   TST38WLP3       1012/B       4080-EQU
   TST39WLP4       1013/B       4140-EQU     4184/BCS
   TST40MMC        1014/B       4199-EQU     4232/BCS
   TST43MMC        1015/B       4282-EQU
   TST44MMC        1016/B       4391-EQU
   TST45MMC        1017/B       4435-EQU
   TST46MMC        1018/B       4531-EQU
   TST47MMC        1019/B       4548-EQU     4592/BCS
   TST48MMC        1020/B       4621-EQU
   TST49MMC        1021/B       4671-EQU
   TST5LRA          980/B       1303-EQU
   TST6MMC          981/B       1354-EQU
   TST7MMC          982/B       1402-EQU
   TST8MMC          983/B       1449-EQU
   TST9             984/B       1490-EQU
   T11MAPF          986/B       1589-EQU     1693/BCS
   T13MAPOP         988/B       1870-EQU
   T15CAL1         2212-EQU     2238/B       6345/B
   T15ERTRP        2235-EQU     6250/B
   T16OKTRP        2323-EQU     2377/EQU     2378/EQU     2380/EQU     6251/B
   T17OKTRP        2377-EQU     6252/B
   T18OKTRP        2378-EQU     6253/B
   T19OKTRP        2380-EQU     6254/B
   T20OKTRP        2435-EQU     6255/B
   T21CAL1         2509/B       2519-EQU     2535/DATA
   T21ERTRP        2506-EQU     6256/B
   T22CAL1         2570-EQU     2594/B       6346/B
   T22ERTRP        2591-EQU     6257/B
   T23CAL1         2648-EQU     2668/B       6347/B
   T23ERTRP        2666-EQU     6258/B
   T24CAL1         2852-EQU     6348/B
   T24LUPAD        2683/LW      6464-BCS
   T24OKTRP        2684/STW     2814-EQU     2857/B       4143/STW     4176/EQU     6259/B
   T28CAL1         3164-EQU     6349/B
   T29CAL1         3231-EQU     3255/B       6350/B
   T29ERTRP        3252-EQU     6263/B
   T30CAL1         3331-EQU     6351/B
   T30OKTRP        3306-EQU     3334/B       6264/B
   T31CAL1         3378-EQU     3401/B       6352/B
   T31CAL2         3398-EQU     6373/B
   T32CAL1         3440-EQU     3460/B       6356/B
   T32ERTRP        3457-EQU     6266/B
   T36CAL1         3969/B       3979-EQU     4006/DATA
   T36ERTRP        3966-EQU     6270/B
   T37CAL1         4044-EQU     4068/B       6353/B
   T37ERTRP        4065-EQU     6271/B
   T38CAL1         4108-EQU     4127/B       6354/B
   T38ERTRP        4125-EQU     6272/B
   T39LUPAD        4142/LW      6465-BCS
   T39OKTRP        4176-EQU     6274/B
   T43CAL1         4361-EQU     6355/B
   T43OKTRP        4321-EQU     4366/B       6276/B
   T48ERTRP        4646-EQU     6281/B
   T85MSG           884/#TYPE   7258-TEXTCS
   UNKNPSD         5089/STD     6289/#HTECON 6293/#HTECON 6311/STD     6328-DATA
   UNKNTRP         6315/STH     6316/#TYPE   7253-TEXTCS
   UNKNTRP1        5091/#PRINT  6292/STM     6296/STM     6300/STB     6305/STM     6317/#TYPE
      7255-TEXTCS
   UNXTRAP         6233/BCR     6236/B       6237/B       6238/B       6239/B       6241/B       6242/B
      6243/B       6244/B       6245/B       6246/B       6247/B       6248/B       6260/B       6261/B
      6262/B       6265/B       6267/B       6268/B       6275/B       6277/B       6278/B       6279/B
      6280/B       6282/B       6309-EQU
   VALBIT           748-DATA
   VALDEX           752-EQU
   VALPARAM        5564/BAL     5689/BAL     5844-EQU
   VALTYPE          756-EQU
   VERSION          0.2-EQU      0.3/EQU
   VMMSG2           889/#TYPE   5984/#TYPE   7210-TEXTCS
   VMNORMAL         888/BCS      890-EQU
   VP              6458/GEN     6460/GEN     7274-TEXTCS
   VPREAD          5574/STW     5582/LW      5705/STW     5711/LW      5819/STW     5827/LW      6492-DATA
   WK              7278-TEXTCS
   WKDATA          3764/STW     3769/CW      3843/LW      3845/MTW     3846/LW      6665-EQU
   WL              4973/LD      6395-TEXTS
   WL%             1376/LW      1432/LW      1467/LW      1480/LW      6407-TEXTS
   WL#             4190/LW      6399-TEXTS
   WLCHK1          3586-EQU     3609/B
   WLFLAG          5658/LW      5815/STW     6638-DATA
   WLFUNTST        3605/BE      3611-EQU
   WLHEAD1         3704/STH     3705/#PRINT  7008-TEXTCS
   WLHEAD2         3706/#PRINT  7011-TEXTCS
   WLHEAD3         3707/#PRINT  7013-EQU
   WLIMAGE         5364/LI      5366/LW      6637-EQU
   WLLOAD          3583/STW     3618/STW     3642/LW      3722/STW     3767/LW      3835/LW      3837/MTW
      3849/MTW     3939/STW     4159/STW     4577/STW     4607/#BTECON 5431/LW      6635-EQU
   WLLPSD          3720/STB     3735/LPSD    3738-DATA    3762/LH      3841/LW      3848/STH
   WLMSG1          7014-EQU
   WLMSG2          3776/STW     3784/STW     3789/STW     3795/STW     3805/STW     3813/STW     3818/STW
      3824/STW     3867/STW     3871/STM     3875/STM     3877/STW     3878/STW     3887/#PRINT
      7047-TEXTCS
   WLOPHD1         3883/STH     3884/#PRINT  7041-TEXTCS
   WLOPHD2         3885/#PRINT  7044-TEXTCS
   WLOPLOP         3718-EQU     3855/BCS
   WLPATRN         6609-DATA    6626/DATA
   WLREAD          4571/STW     4578/CW      4610/#BTECON 6633-EQU
   WLRED           1374/LW      1430/LW      5500/STW     6634-DATA
   WLTP            3925/STW     4016/STW     4084/STW     5109/#HTECON 6504-DATA
   WLWKFLG         3731/STW     3759/MTW     3773/LW      3802/LW      6517-DATA
   WLWKTRP         3746/DATA    3758-EQU     6269/B
   WLWKTST         3738/DATA    3741-EQU
   WLX             6462/GEN     7277-TEXTCS
   WORK1           2473/STW     2529/LW      3494/STW     3507/STW*    3931/STW     3989/LW      4301/STW
      4339/CW      6536-DATA
   WORK2           2782/STW     2785/AWM     2788/STM*    3502/STW     3508/STW*    3538/LW*     4302/STW
      4344/CW      6537-DATA
   WORK5           4688/STW     4692/LW      4732/#HTECON 6541-DATA
   WORK6           4691/STW     4699/LW      4735/LW      6542-DATA
   WORK7           3498/STW     3528/LW      6543-DATA
   WORK8           3505/STW     3530/LW      6544-DATA
   WRTABRT         2056/BE      2064-EQU
   WRTCHK1         3777-EQU     3791/B
   WRTCHK2         3806-EQU     3820/B
   WRTNO           3781/BE      3793-EQU
   WRTYES          3810/BE      3822-EQU
   XDATA           2778/LD      2806/LD      2828/CD      2906/#HTECON 2910/#HTECON 3088-DATA
   XEACF           1835/LW      6460-GEN
   XELRA1          1103/LW      1334/LW      6455-GEN
   XELRA2          1104/LW      1335/LW      6456-GEN
   XEMAPF          1699/LW      6458-GEN     6461/EQU
   XERMAPOP        1951-#HTECON 1991/B
   XERMAP1         1947-BAL     3182/B
   XERPLT7         2865-EQU     4191/B
   XEWLF1          3690/LW      6461-EQU
   XEWLF2          3691/LW      6462-GEN
   XF              2363/AND     4690/AND     5399/EOR     5400/AND     5428/EOR     5429/AND     5739/AND
      6689-DATA
   XFE             1683/AND     6707-DATA
   XFF             1044/LW      1069/LW      2729/AND     4207/LW      6024/CW      6033/CW      6093/AND
      6107/AND     6125/AND     6697-DATA
   XFFFFFF         5205/AND     6674-DATA
   XF0             1819/AND     3673/AND     4737/OR      4780/OR      5703/AND     6703-DATA
   XPRNT           2106/STW     2111-#PRINT
   XPRNT1          2245/STW     2249-#PRINT  3997/STW     4002/B
   XPRNT2          2877/STW     2878-#PRINT
   XPRNT5          2599/STW     2604-#PRINT
   XPRNT7          3261/STW     3265-#PRINT
   XPSD4C          4673/LW      6414-XPSD
   XPSD4CX         1221/LW      6415-XPSD
   XSAVE           5632/STW     5642/LW      6521-DATA
   X01             1060/CW      4465/CW      5251/AND     5305/AND     5384/LW      5592/AND     6682-DATA
   X02             1063/CW      6708-DATA
   X03             1054/EOR     1752/AND     1789/AND     2052/AND     2053/EOR     4209/AND     4411/AND
      4570/AND     4773/AND     4779/AND     4843/AND     5052/EOR     5499/AND     5503/AND     5715/AND
      6675-DATA
   X1C001D         2698/LW      6695-DATA
   X1E001F         2624/LW      2699/LW      6694-DATA
   X1FFF           4227/AND     4333/AND     5487/AND     5581/AND     5826/AND     6688-DATA
   X1FFFF          1249/AND     2328/AND     2439/AND     4623/CW      4687/AND     6691-DATA
   X1F0            5729/AND     6706-DATA
   X1234567        4676/LW      4717/LW      6702-DATA
   X20002          5388/AW      6705-DATA
   X40TRAP          948/LW      6168/LW      6410-XPSD
   X7FF            1055/LW      6673-DATA
   YB532           1888/OR      6690-DATA
   YC              1042/LW      1171/LW      1176/LW      1322/LW      1521/LW      1771/LW      2105/OR
      2244/OR      2598/OR      2628/LW      3260/OR      3615/LW      3996/OR      4014/LW      4082/LW
      6680-DATA
   YC1             2876/OR      6681-DATA
   YES             3775/LW      3783/LW      3817/LW      3823/LW      4322/LW      6403-TEXTS
   Y001             887/CW      4766/CW      4837/CW      5982/CW      6704-DATA
   Y01             2622/LW      2630/LW      4450/LW      5385/LW      6693-DATA
   Y01002          1409/LW      1413/LW      1456/LW      1460/LW      2708/LW      4090/LW      4163/LW
      4297/LW      4554/LW      6684-DATA
   Y01003C         1510/LW      2626/LW      4300/LW      5472/LW      6685-DATA
   Y010054         1361/LW      6683-DATA
   Y0101           3360/LW      6699-DATA
   Y020038         2700/LW      4289/LW      6696-DATA
   Y08             2799/AW      6698-DATA
   Y1              4681/LW      5350/LW      5363/LW      6232/CW      6700-DATA
   Y1FFF           2620/LW      6692-DATA
   Y11             4399/LW      6701-DATA
   Y2              5520/CW      6676-DATA
   Y3              1179/LW      6687-DATA
   Y4              1095/AW      1634/OR      2544/LW      3651/OR      6677-DATA
   Y4040           2446/AND     2451/AND     3865/AND     4605/AND     5025/AND     5036/AND     5076/AND
      5106/AND     5161/AND     5165/AND     5183/AND     5187/AND     6303/AND     6678-DATA
   Y43             1166/LW      6686-DATA
   Y8              1183/LW      1233/LW      1312/LW      1523/LW      5332/LW      5835/LW      6679-DATA
   ZEROS           6560-DATA
   #ABSZERO         689-EQU
   #BRKOUT          714-EQU     4874/LC
   #BTE%            468/BAL*     725-EQU     5743/BAL*
   #BTECON          457-CNAME
   #DIAG@           782-DATA
   #DISUSER%        611/BAL*     726-EQU     2638/BAL*    4098/BAL*    4753/BAL*
   #DM%END          716-EQU
   #DM%START        715-EQU
   #DMENTRY%        738-EQU
   #ENUSER%         641/BAL*     727-EQU     2649/BAL*    4109/BAL*    4790/BAL*
   #ERRTEXT%        735-EQU     1106/LW      1337/LW      1700/STW*    1836/STW*    3693/LW      4814/STW*
   #ERR1PTR%        736-EQU
   #ETH%            548/BAL*     723-EQU      908/BAL*     911/BAL*     914/BAL*    5927/BAL*    5936/BAL*
      5956/BAL*    5959/BAL*    6015/BAL*    6020/BAL*    6029/BAL*    6091/BAL*    6105/BAL*    6123/BAL*
   #ETHCON          512-CNAME
   #FIDLE%          730-EQU     5663/B*      5989/B*      6046/B*      6188/BAL*    6321/BAL*
   #GUIDE%          729-EQU     7464/BAL*
   #HDRFLG          693-EQU      849/STW     1112/LW      1143/LW      1554/LW      1704/LW      1840/LW
      1970/LW      2122/LW      2264/LW      3193/LW      3557/LW      3700/LW      3879/LW      4258/LW
      4856/LW      4862/STW     4873/STW
   #HTE%            419/BAL*     724-EQU     4820/BAL*    4845/BAL*    5596/BAL*    5633/BAL*    5778/BAL*
   #HTECON          409-CNAME
   #INDEX           700-EQU
   #INITIAL@        779-DATA
   #LOADER@         783-DATA    7463/STW
   #LOADFLAG        694-EQU      851/LW
   #MAXMEM          712-EQU      891/LW      1519/CW
   #MTLFLAG         695-EQU
   #OUTPTR          698-EQU
   #P%MODE%         739-EQU
   #PAKDEX          699-EQU
   #PARAM%H1        701-EQU     5846/LW
   #PARAM%H2        702-EQU     5850/LW
   #PARAM%H3        703-EQU
   #PARAM%H4        704-EQU
   #PARAM1          708-EQU     5882/LD
   #PARAM2          709-EQU     5886/LD
   #PARAM3          710-EQU
   #PARAM4          711-EQU
   #PLINEIN@        781-DATA
   #PRINT           575-CNAME
   #PRINTER%        575/CNAME    734-EQU
   #PRTADDR         697-EQU      881/#HTECON  939/STW     2632/LW      4092/LW      5958/STW
   #RETURN%         732-EQU     7323/B*
   #RUNADDR%        731-EQU     4876/XPSD*   4900/XPSD*   5541/XPSD*
   #SAMPLE          713-EQU
   #SENSE           692-EQU     1079/LC      1097/LC      1140/LC      1191/LC      1206/LC      1239/LC
      1254/LC      1320/LC      1328/LC      1364/LC      1380/LC      1415/LC      1440/LC      1462/LC
      1486/LC      1528/LC      1540/LC      1552/LC      1608/LC      1659/LC      1692/LC      1702/LC
      1748/LC      1785/LC      1828/LC      1838/LC      1917/LC      1935/LC      1967/LC      2049/LC
      2083/LC      2119/LC      2213/LC      2222/LC      2261/LC      2324/LC      2340/LC      2436/LC
      2459/LC      2520/LC      2527/LC      2571/LC      2578/LC      2650/LC      2657/LC      2815/LC
      2843/LC      3165/LC      3174/LC      3190/LC      3232/LC      3239/LC      3307/LC      3313/LC
      3379/LC      3385/LC      3441/LC      3449/LC      3536/LC      3542/LC      3555/LC      3595/LC
      3632/LC      3682/LC      3698/LC      3760/LC      3854/LC      3861/LC      3980/LC      3987/LC
      4045/LC      4052/LC      4110/LC      4117/LC      4183/LC      4224/LC      4231/LC      4255/LC
      4324/LC      4352/LC      4402/LC      4416/LC      4454/LC      4471/LC      4557/LC      4591/LC
      4632/LC      4639/LC      4684/LC      4703/LC      4895/LC      4901/LC
   #STATUS          706-EQU
   #TABLE1A         691-ORG
   #TABLE1B         722-ORG
   #TABLE2@         778-ORG
   #TABLE3@         780-DATA
   #TESTINIT        705-EQU      940/LC
   #TOADDR          696-EQU      878/#HTECON
   #TYPE            576-CNAME
   #TYPER%          576/CNAME    733-EQU
   #VALTAB%         737-EQU
