1 C00   22:23 JUN 20,'83                                                                          PAGE    1
A      1                     2.000  +2,2                                                                *H01
       2                     2.010  VERSION  EQU      C'H01'                                            *H01
       3                  2701.000  +2701,2701                                                          *H01
       4                  2701.010           Z        84,,,BA(SYNTAX%EXPL)                              *H01
       5                  9999.999  +END
1 C00   22:23 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:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE    3
A       1         TEXT               CATALOG  EQU      C'0104'
        1*        TEXT               VERSION  EQU      C'H01'                                            *H01
        3                            TITLE    EQU      S:PT('T-SERIES CPU DIAGNOSTIC, DECIMAL ',;
        4         TEXT                                 '960-',CATALOG,'-',VERSION)
        5                                     PCC

        7                            *        PROGRAM OBJECTIVES
        8                            *        ----------------------------
        9                            *
       10                            *        THE PURPOSE OF THIS PROGRAM IS TO EXERCISE THE FOLLOWING
       11                            *        MACHINE INSTRUCTIONS:  DL,DST,DA,DS,DSA,DM,DD,EBS,
       12                            *        UNPK,PACK.
       13                            *        FOUR DIFFERENT MODES OF EXECUTION ARE USED, INSTRUCTION
       14                            *        INTERRUPTABILITY IS CHECKED AND CPU CLOCK MARGINS ARE
       15                            *        CYCLED AUTOMATICALLY  BY THE PROGRAM.
       16                            *        COMPLETE SNAPSHOT CONTROL IS PROVIDED BY THE K-PARAMETER
       17                            *        LINE.
       18                            *
       19                            *
       20                            *        OPERATING REQUIREMENTS AND SPECIFICATIONS
       21                            *        ----------------------------
       22                            *
       23                            *        REQUIRED EQUIPMENT         T-85 CPU
       24                            *                                   16384 WORDS(MINIMUM) OF MEMORY
       25                            *                                   ASR/KSR AND, EITHER CARD READER  OR A
       26                            *                                   MAGNETIC TAPE UNIT TO LOAD
       27                            *                                   PROGRAM FROM MAGNETIC TAPE LIBRARY
       28                            *
       29                            *        OPTIONAL EQUIPMENT         LINE PRINTER
       30                            *                                   CARD READER
       31                            *
       32                            *        REQUIRED SOFTWARE          SIGMA 5/6/7/8/9 RELOCATABLE
       33                            *                                   DIAGNOSTIC LOADER (704356)
       34                            *                                   'GUIDE' INTERFACE PROGRAM (706131)
       35                            *
       36                            *        OPTIONAL SOFTWARE          NONE
       37                            *
       38                            *
       39                            *        PROGRAM PREREQUISITES  A)  THE FOLLOWING PROGRAMS MUST BE
       40                            *                                   RUN SUCCESSFULLY BEFORE
       41                            *                                   RUNNING THIS PROGRAM.
       42                            *
       43                            *                                   1. HCP
       44                            *                                   2. AUTO
       45                            *                                   3. SUFFIX
       46                            *
       47                            *
       48                            *
       49                            *        MEMORY STORAGE             16K (MINIMUM)
       50                            *                                   32K FOR MAXIMUM SNAPSHOT
       51                            *
       52                            *        RUN TIME                   AFTER LOADING PROGRAM REQUIRES
       53                            *                                   APPROX. 20 SECONDS TO COMPLETE
       54                            *                                   ONE SUCCESSFULL PASS.
       55                            *
       56                            *        PROGRAM MEDIA              FROM MAGNETIC TAPE OR CARDS.
       57                            *
       58                            *
       59                            *        SOURCE LANGUAGE            SIGMA METASYMBOL(SDS 900952B)
       60                            *
       61                            *
       62                            *
       63                            *
       64                            *        LOADING PROCEDURE
       65                            *        ----------------------------
       66                            *
       67                            *        FOR LO ADING PROCEDURE AND DESCRIPTION OF PROGRAMMED WAITS AND
       68                            *        MESSAGE PRINTOUTS WHILE LOADING PROGRAM, REFER TO DIAGNOSTIC
       69                            *        PROGRAM LOADER MANUAL #900972.
       70                            *
       71                            *
       72                            *        OPERATING PROCEDURE
       73                            *        ----------------------------
       74                            *
       75                            *        CONTROL OPTIONS
       76                            *
       77                            *        USER CAN SET THE CLOCK MARGINS SWITCH TO HIGH OR LOW
       78                            *        TO FORCE THE PROGRAM TO RUN AT THAT SETTING OF CLOCK
       79                            *        MARGIN SWITCH AND THIS WILL OVERRIDE ANY ATTEMPT BY
       80                            *        PROGRAM TO SET CLOCK MARGINS TO A DESIRED VALUE.
       81                            *
       82                            *
       83                            *        CONTROL DIRECTIVES
       84                            *
       85                            *        NO CONTROL DIRECTIVES ARE REQUIRED FOR OPERATING THIS
       86                            *        PROGRAM.  IT IS DESIGNED TO LOAD AND RUN WITHOUT USER
       87                            *        INTERVENTION.  THE DEFAULT VALUE OF THE SENSE SWITCHES
       88                            *        IS ZERO.  THEREFORE,  THE PROGRAM WILL PRINT THE FIRST
       89                            *        ERROR(SW4=0) AND HALT(SW3=0).
       90                            *
       91                            *        THE FOLLOWING PROGRAM DIRECTIVES ARE PROVIDED FOR USER
       92                            *        CONTROL:
       93                            *
       94                            * 1.     'S' DIRECTIVE---WHEN INPUT BY THE USER CAUSES A
       95                            *        DISPLAY OF THE CURRENT SOFTWARE SENSE SWITCH SETTING
       96                            *        AND ALLOWS THE USER TO MAKE CHANGES.  USE ',' OR 'EOM'
       97                            *        TO TAB OVER FIELDS.  USE N/L TO EXIT.  FORMAT IS:
       98                            *    SW 1 2 3 4
       99                            *       0 0 0 0
      100                            *
      101                            *
      102                            * 2.   'J' PARAMETER----WHEN THE USER TYPES IN A 'J'
      103                            *           CHARACTER VIA THE TELETYPE THE FOLLOWING LINES
      104                            *           ARE OUTPUT.  THE USER CAN THEN MODIFY
      105                            *           ANY OF THE FIELDS IN THE 'J' PARAMETER LINE.
      106                            *
      107                            *        MSGDEV  COMDEV  SI  CM  EM  CI  MIDEV
      108                            *          0002    0001 00A   0   0   1  00F0
      109                            *
      110                            *        THE VARIOUS FIELDS ARE:
      111                            *        A) MSGDEV = MESSAGE OUTPUT DEVICE(DEFAULT LINE PRINTER)
      112                            *        B) COMDEV = COMMUNICATION DEVICE (DEFAULT ASR/KSR)
      113                            *        C) SI = STATUS REPORT INTERVAL--SPECIFIES THE
      114                            *                NUMBER OF PASSES THRU THE SPECIFIED RANGE OF THE
      115                            *               PROGRAM BETWEEN STATUS REPORTS, (SEE SUCCESS/FAILURE
      116                            *                INDICATIONS).  PROGRAM RANGE IS SPECIFIED BY THE
      117                            *                K-PARAMETER LINE.
      118                            *        D) CM = CLOCK MARGIN
      119                            *
      120                            *                0 = NORMAL SEQUENCING    A = NORMAL FIXED
      121                            *                1 = FAST SEQUENCING      B = FAST FIXED
      122                            *                2 = SLOW SEQUENCING      C = SLOW FIXED
      123                            *
      124                            *        IF THE CLOCK MARGINS HAVE NOT BEEN FIXED(A,B OR C)
      125                            *        BY THE USER THE PROGRAM WILL AUTOMATICALLY CYCLE
      126                            *        THROUGH ALL MARGINS DURING TESTING.  NOTE THAT
      127                            *        THE  CM SWITCH ON PCP WILL OVERRIDE ANY ATTEMPT
      128                            *        BY PROGRAM TO CHANGE CLOCK MARGINS.
      129                            *
      130                            *
      131                            *        E) EM = EXECUTION MODE.  THE VALUES ARE AS FOLLOWS:
      132                            *                0 = LPSD TO TEST INSTRUCTION AT 'LOC'.
      133                            *                1 = LPSD TO THE NOP(BRANCH) JUST BEFORE 'LOC'.
      134                            *                2 = LPSD TO THE EXECUTE INST JUST BEFORE LOC.
      135                            *                3 = LPSD TO THE BRANCH THAT BRANCHES TO LOC.
      136                            *
      137                            *        NOTE: LIKE CM, EM VALUES MAY BE 'FIXED' BY THE USER.
      138                            *              A,B,C,D RESPECTIVELY FIX 0,1,2,3.
      139                            *
      140                            *        F) CI = COUNTER ZERO INTERRUPT CONTROL.  VALUES ARE:
      141                            *                0 = NO INTERRUPTS.
      142                            *                1 = ACTIVATE INTERRUPTS ON 12TH ERROR FREE PASS.
      143                            *
      144                            *        G) MIDEV = MEMORY INTERFERRENCE DEVICE.  THIS ADDRESS
      145                            *           IS ASSUMED TO BE A RAD.  A TRANSFER-IN-CHANNEL SIO
      146                            *           IS ISSUED TO THIS ADDRESS.  THE DATA BEING WRITTEN IS
      147                            *           THE DRIVER PORTION OF THE PROGRAM.  THIS FEATURE IS
      148                            *           ACTIVATED IMMEDIATELY UPON ENTERING A VALID ADDRESS
      149                            *           NO VERIFICATION IS PERFORMED.
      150                            *
      151                            *
      152                            * 3.    'K' DIRECTIVE----WHEN THE USER TYPES IN A 'K'
      153                            *           CHARACTER VIA THE TELETYPE THE FOLLOWING LINES
      154                            *           ARE OUTPUT.  THE USER CAN THEN MODIFY
      155                            *           ANY OF THE FIELDS IN THE 'K' PARAMETER LINE.
      156                            *
      157                            *        MST MSP MCR  LC
      158                            *        001 2FF 001  0A
      159                            *
      160                            *        FIELD FUNCTION IS AS FOLLOWS:
      161                            *
      162                            *        A) MST = STARTING MODULE OF TESTING RANGE
      163                            *        B) MSP = STOPPING MODULE OF TESTING RANGE
      164                            *        C) MCR = CURRENT MODULE BEING TESTED
      165                            *        D) LC = LOOP COUNT.  # OF TIMES THRU RANGE.  0=INFINITE.
      166                            *
      167                            * 4.     'MR' DIRECTIVE----MODULE RANGE.  THIS DIRECTIVE ALLOWS
      168                            *        THE USER TO FIND THE MODULES THAT TEST A PARTICULAR
      169                            *        INSTRUCTION.  THE PARAMETER IS THE INSTRUCTION MNEMONIC
      170                            *        AS FOLLOWS:
      171                            *     MR>DL,
      172                            *      53 THRU  5F
      173                            *
      174                            *
      175                            * 5.     'DL' DIRECTIVE----DISPLAY LIST.  THIS DIRECTIVE ALLOWS
      176                            *        THE USER TO DISPLAY ANY OR ALL MODULE DATA IN THE SAME
      177                            *        FORMAT THAT IS OUTPUT AT THE HEAD OF A SNAPSHOT.
      178                            *        THE FORMAT IS:    DL>XXX,YYY,
      179                            *             WHERE XXX IS THE STARTING MODULE TO BE DISPLAYED
      180                            *             AND YYY IS EITHER THE # TO BE DISPLAYED OR THE
      181                            *             LAST MODULE.
      182                            *
      183                            *
      184                            * 6.     'RM' DIRECTIVE-----REPLACE MEMORY IS A GUIDE DIRECTIVE.
      185                            *        IT ALLOWS THE USER TO ALTER THE CONTENTS OF MEMORY.  IT
      186                            *        DISPLAYS THE CURRENT CONTENT.  ITS FORMAT IS AS FOLLOWS:
      187                            *        RM>XXXX,YYYY,     LIKE DL, XXXX IS THE STARTING CELL AND
      188                            *             YYYY IS EITHER THE LAST CELL OR THE # OF CELLS.
      189                            *
      190                            *
      191                            * 7.     'DM' DIRECTIVE----DISPLAY MEMORY IS A GUIDE DIRECTIVE.
      192                            *        IT DUMPS THE CONTENT OF THE SPECIFIED CELLS OUT TO THE
      193                            *        MESSAGE DEVICE SPECIFIED IN THE J-PARAMETER LINE.  ITS
      194                            *        FORMAT IS IDENTICAL TO RM.
      195                            *
      196                            *
      197                            *
      198                            *        START-RESTART PROCEDURE
      199                            *        ----------------------------
      200                            *
      201                            *        A SUCESSFOL LOAD IS INDICATED BY THE OUTPUT OF THE FOLLOWING
      202                            *        MESSAGES IF SENSE SWITCH 4 IS OFF.  SETTING SW4 BYPASSES
      203                            *        ALL BUT PROGRAM NAME PRINTOUT.
      204                            *
      205                            *        85AUTO
      206                            *        T-85 CPU DIAGNOSTIC PROGRAM 960-0104-1A
      207                            *
      208                            *            ( RUN PSD AT LOC'N 04E0 (HEX),REGISTERS AT 04D0)
      209                            *
      210                            *
      211                            *
      212                            ************************************************************
      213                            *
      214                            *        ENTER A 'QUEST. MARK' WHENEVER THE @ PROMPT IS DISPLAYED
      215                            *          TO OUTPUT THE GUIDE OPERATING LANGUAGE EXPLANATION;
      216                            *        ENTER A '#' TO PROCEED TO TESTING.
      217                            *
      218                            ************************************************************
      219                            *        AFTER A '#' HAS BEEN ENTERED THE PROGRAM STARTS
      220                            *        EXECUTING THE TESTS.
      221                            *
      222                            *         THE PSD TO BE USED IS IN LOCATIONS 'RUNADDR' AND 'RUNADDR'+1
      223                            *         (THE ADDRESS OF RUNADDR IS IN CORE LOCATION 3CA)
      224                            *        THE REGISTERS ARE SAVED AT THE 10 (HEX) LOCATIONS
      225                            *           PRECEEDING THE PSD.
      226                            *
      227                            *
      228                            *        IF AN ERROR OCCURS AND SENSE SWITCH 3 IS RESET
      229                            *        THE FOLLOWING MESSAGE IS TYPED OUT ON THE TELETYPE
      230                            *        AND THEN THE PROGRAM 'HALTS'(I.E. ENTERS THE IDLE STATE)
      231                            *
      232                            *    ***ERROR HALT***
      233                            *
      234                            *        IN THE EVENT OF LOSS OF PROGRAM CONTROL THE
      235                            *        PROGRAM CAN BE RESTARTED BY PRESSING THE SYSTEM
      236                            *        RESET BUTTON AND SETTING COMPUTE SWITCH BACK TO RUN,
      237                            *        OR FORCING A RESTART AT LOCATION X'400'.
      238                            *        ON DOING THIS THE FOLLOWING MESSAGE IS OUTPUT.
      239                            *
      240                            *        ABSOLUTE RECOVERY.  CLEAR PARAMETERS  %=
      241                            *
      242                            *
      243                            *        THE USER MUST THEN ENTER A Y,N, OR 'QUEST. MARK'.
      244                            *        ONCE THE USER TAKES APPROPRIATE ACTION ON THE
      245                            *        ABOVE REQUEST THE PROGRAM PRODUCES AN @ PROMT AND WAITS
      246                            *        10 SECONDS BEFORE GOING TO RUN.  THIS ALLOWS THE USER
      247                            *        TO REQUEST THE OPERATING EXPLANATION WITH A ' QUEST. MARK'.
      248                            *        NOTE THAT IF A 'N' IS ENTERED THE ERROR COUNTERS,
      249                            *        (FOR DIFFERENT TYPES OF TEST), PASS COUNT AND THE
      250                            *        PARAMETERS WHICH CAN CONTROL THE PROGRAM ARE
      251                            *        NOT INITIALIZED.
      252                            *        ENTERING A 'Y' RESTORES THE PROGRAM TO CONDITIONS AS
      253                            *        NEARLY IDENTICAL AS POSSIBLE TO THOSE EXISTING WHEN THE
      254                            *        PROGRAM WAS FIRST LOADED.
      255                            *
      256                            *
      257                            *        TERMINATION PROCEDURE
      258                            *        ----------------------------
      259                            *
      260                            *        ONCE STARTED,THE PROGRAM RUNS CONTINUOUSLY UNTIL
      261                            *        AN ERROR OCCURS(SW3 SET TO 0).  THE PROGRAM CAN BE
      262                            *        TERMINATED BY THE USER AT ANY TIME BY ENTERING A '%'.
      263                            *
      264                            *
      265                            *        SUCCESS/FAILURE INDICATIONS
      266                            *        ----------------------------
      267                            *
      268                            *        SUCCESSFUL OPERATION OF THE PROGRAM IS INDICATED BY
      269                            *        THE FACT THAT THE E/P AND TOT:ERRS FIELDS IN THE STATUS
      270                            *        MESSAGE ARE ALWAYS ZERO.  THE PROGRAM MUST BE RUN FOR
      271                            *        APPROXIMATELY 5 MINUTES TO BE SURE ALL MODES OF OPERATION
      272                            *        HAVE BEEN TRIED AT LEAST ONCE.
      273                            *        AT THE END OF THE FIRST PASS THRU THE
      274                            *        PROGRAM A STATUS REPORT IS OUTPUT AUTOMATICALLY.
      275                            *        THEREAFTER IT IS OUTPUT EVERY 'XX' NUMBER OF
      276                            *        PASSES WHERE XX IS THE VALUE OF THE STATUS REPORT
      277                            *        INTERVAL(SI) IN THE 'J' PARAMETER LINE (DEFAULT=10).
      278                            *        THE FORMAT OF THE STATUS REPORT IS AS FOLLOWS:
      279                            *
      280                            * MOD EL TESTINST E/P PAS EM MNEM CM  MST MSP CI TOT:ERRS PROGADDR
      281                            * 005 0A 32C02E60 004 121  2 LW    0  001 2F3  1 0000003E 000011D3
      282                            *
      283                            *        THE FIELD VALUES ARE SIMILIAR TO THE FT ERROR MESSAGE.
      284                            *        THE MEANING OF THE FIELDS ARE AS FOLLOWS:
      285                            *        A) MOD = MODULE BEING TESTED AT TIME OF REPORT.
      286                            *        B) EL = ELEMENT #. WHICH AW OF 47 AW MODULES.
      287                            *        C) TESTINST = CURRENT TEST INSTRUCTION.
      288                            *        D) E/P = ERRORS PER PASS.  RESET EACH PASS.
      289                            *        E) PAS = PASS.  NUMBER OF CURRENT PASS.
      290                            *        F) EM = EXECUTION MODE.  SEE J-PARAMETER EXPLANATION.
      291                            *        G) MNEM = INSTRUCTION MNEMONIC.
      292                            *        H) CM = CLOCK MARGIN.
      293                            *        I) MST/MSP = MODULE RANGE FROM K-PARAMETER LINE.
      294                            *        J) CI = COUNTER ZERO INTERRUPT STATUS.
      295                            *        K) TOT:ERRS = TOTAL ERRORS SINCE LAST 'YES' RECOVERY.
      296                            *        L) PROGADDR = ADDRESS PROGRAM WILL RETURN TO AFTER STATUS.
      297                            *
      298                            *
      299                            *        THE USER CAN FORCE A STATUS REPORT AT ANY TIME BY
      300                            *        ENTERING A '&' FROM THE TELETYPE.
      301                            *
      302                            *
      303                            *        WAITS   ----THERE ARE NO PROGRAMMED WAITS IN
      304                            *                     THIS PROGRAM.
      305                            *
      306                            *
      307                            *        THE FORMAT OF THE FUNCTIONAL TEST ERROR PRINTOUT IS:
      308                            * MOD EL TESTINST E/P PAS EM MNEM FAILED EXPECTED CM OBSERVED DIFF=EOR
      309                            * 005 0A 32C02E60 004 121  2 LW   REG  C FFFFFFFF  0 00000000 FFFFFFFF
      310                            *
      311                            *        THE VALUES THAT DIFFER FROM STATUS ARE:
      312                            *        A) FAILED = THE ITEM THAT DIDN'T COMPARE, IE, A REGISTER,
      313                            *           A MEMORY LOCATION, ETC.
      314                            *           ALSO THE PARTICULAR ONE THAT DIDN'T COMPARE.
      315                            *        B) EXPECTED = THE DATA THAT WAS EXPECTED.
      316                            *        C) OBSERVED  = THE ACTUAL DATA GENERATED BY THE MODULE.
      317                            *        D) DIFF=EOR = THE DIFFERENCE BETWEEN THE EXPECTED AND
      318                            *           THE OBSERVED IS EXCLUSIVE OR'D AND PRINTED HERE.
      319                            *
      320                            *        THE REST IS IDENTICAL TO THE STATUS MESSAGE.
      321                            *
      322                            * CORE MEMORY ASSIGNMENTS OF FIRST 130 WORDS
      323                            *
      324                            *    LOCATION (HEX)        FUNCTION
      325                            *
      326                            *      0 ...   F        GENERAL REGISTERS
      327                            *     10 ...  1F        NOT USED
      328                            *     20 ...  21        CPU/IOP COMMUNICATION
      329                            *     22 ...  3F        LOADER
      330                            *     40                NONALLOWED OPERATION TRAP
      331                            *     41                UNIMPLEMENTED INSTRUCTION TRAP
      332                            *     42                PUSH DOWN STACK LIMIT TRAP
      333                            *     43                FIXED POINT OVERFLOW TRAP
      334                            *     44                FLOATING POINT FAULT TRAP
      335                            *     45                DECIMAL ARITHMETIC FAULT TRAP
      336                            *     46                WATCHDOG TIMER TRAP
      337                            *     47                NOT USED
      338                            *     48 ...  4B        CALL TRAPS
      339                            *     4C                CPU FAULT TRAP (SYSTEM PARITY ERRORS)
      340                            *     4D                INSTRUCTION EXCEPTION FAULT TRAP
      341                            *     4E ...  4F        NOT USED
      342                            *
      343                            *                       INTERRUPTS
      344                            *
      345                            *     50 ...  51        POWER ON AND OFF
      346                            *     52                COUNTER 1 COUNT PULSE (OPTIONAL)
      347                            *     53                COUNTER 2 COUNT PULSE (OPTIONAL)
      348                            *     54                COUNTER 3 COUNT PULSE
      349                            *     55                COUNTER 4 COUNT PULSE
      350                            *     56                PROCESSOR FAULT
      351                            *     57                MEMORY FAULT
      352                            *     58                COUNTER 1 ZERO       (OPTIONAL)
      353                            *     59                COUNTER 2 ZERO       (OPTIONAL)
      354                            *     5A                COUNTER 3 ZERO
      355                            *     5B                COUNTER 4 ZERO
      356                            *     5C                INPUT/OUTPUT
      357                            *     5D                CONTROL PANEL
      358                            *     5E ...  5F        NOT USED
      359                            *     60 ...  6F        EXTERNAL GROUP 2
      360                            *     70 ...  7F        EXTERNAL GROUP 3
      361                            *     80 ...  8F        EXTERNAL GROUP 4
      362                            *     90 ...  9F        EXTERNAL GROUP 5
      363                            *     A0 ...  AF        EXTERNAL GROUP 6
      364                            *     B0 ...  BF        EXTERNAL GROUP 7
      365                            *     C0 ...  CF        EXTERNAL GROUP 8
      366                            *     D0 ...  DF        EXTERNAL GROUP 9
      367                            *     E0 ...  EF        EXTERNAL GROUP A
      368                            *     F0 ...  FF        EXTERNAL GROUP B
      369                            *    100 ... 10F        EXTERNAL GROUP C
      370                            *    110 ... 11F        EXTERNAL GROUP D
      371                            *    120 ... 12F        EXTERNAL GROUP E
      372                            *    130 ... 13F        EXTERNAL GROUP F
      373                            *
      374                            *        GUIDE HANDLES ALL UNEXPECTED TRAPS AND INTERRUPTS.  THIS
      375                            *        PROGRAM STUFFS ITS XPSD'S IN ONLY THOSE LOCATIONS THAT
      376                            *        IT IS EXPECTING AN INT. OR TRAP FROM.  UPON COMPLETION
      377                            *        OF THAT TEST IT REPLACES GUIDE'S XPSD BEFORE CONTINUING.
      378                            *
      379                            *        PROVISION IS MADE WITHIN GUIDE FOR RESPONDING TO THE
      380                            *        SENSE SWITCH SETTINGS.  THIS PERMITS THE USER TO LOOP
      381                            *        ON TRAPS OR INTS. IF SW1 IS SET AND SW3 IS RESET,
      382                            *        GUIDE WILL RETURN TO THE INSTRUCTION THAT CAUSED THE
      383                            *        INT. OR TRAP.  IF SW3 IS SET, GUIDE WILL RETURN TO THE
      384                            *        LOCATION AFTER THE TRAP TO PERMIT THE PROGRAM TO RE-
      385                            *        INITIALIZE ITSELF.
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE    4
A     387                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      388                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
      389                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      390                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      391                            *        IN THE MACHINE WORD.
      392                            *
      393                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      394                            *
      395                            * LABELOPT  #HTECON  LABELADDR       OPTIONAL COMMENTS
      396                            *
      397                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      398                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      399                            *                  EXECUTION LOCATION COUNTER;
      400                            *
      401                            *                  #HTECON IS THE PROCEDURE REFERENCE;
      402                            *
      403                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      404                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      405                            *                  'EBCDIC'.
      406                            *
      407         00000000           #HTECON  CNAME
      408                                     PROC
      409                            *
      410                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      411                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      412                            *
      413                                     ERROR,0,NUM(AF)~=1 ;
      414                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      415                            *
      416                            LF       BAL,X6     *#HTE%
      417                                     GEN,10,22  0,AF(1)
      418                            *
      419                                     PEND
      420                            *
      421                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      422                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      423                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      424                            *
      425                            *        RETURN IS TO THE PROCEDURE REFERENCE
      426                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      427                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      428                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      429                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      430                            *        OF THE LOAD MULTIPLE INSTRUCTION.
      431                            *
      432                            *
      433                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      434                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#ETH',
      435                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      436                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      437                            *        IF THE CHARACTER STRING TO BE CONVERTED
      438                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      439                            *        THE REGISTERS USED MUST NOT
      440                            *        INCLUDE THE LINK REGISTER.
      441                            *
      442                            *                 #ETHCON,CHAR   LABEL,DISP,ERRETN
      443                            *
      444                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      445                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      446                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      447                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      448                            *                          ( MUST BE BETWEEN 0 AND 3 )
      449                            *
      450         00000000           #ETHCON  CNAME
      451                                     PROC
      452                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      453                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      454                            *
      455                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      456                            A        SET      0
      457                            *
      458                                     ERROR,0,A~=CF(2) ;
      459                             '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      460                            *
      461                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      462                            *
      463                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      464                            B        SET      0
      465                            *
      466                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      467                             '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      468                            *
      469                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD,S:INT)=0 ;
      470                             '**AF(1) LABEL NOT A RELOCATABLE ADDRESS OR ACCEPTABLE REGISTER**'
      471                            *
      472                             ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      473                             (AF(1)=X3))     ;
      474                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      475                            *
      476                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      477                            *
      478                            D SET TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      479                             |(AF(3)=X3))&NUM(AF)>2
      480                            *
      481                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      482                             '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      483                            *
      484                            E        SET      C|D               'OR' THE RESULTS
      485                            LF       BAL,X6    *#ETH%           GO TO CONVERSION ROUTINE
      486                                     DO       TCOR(AF(1),S:INT)   DO IF REGISTER
      487                            *
      488                                     GEN,8,22,2  A,AF(1),B
      489                            *
      490                                     ELSE                       RELOCATABLE ADDRESS
      491                            *
      492                                     GEN,8,24     A,BA(AF(1))+B
      493                            *
      494                                     FIN
      495                                     PEND

      497                            *
      498         00000002           #PRINT   CNAME    2,#PRINTER%
      499         00000001           #TYPE    CNAME    1,#TYPER%
      500                                     PROC
      501                            *
      502                                     LOCAL    A
      503                            *
      504                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      505                             '**CF(2) MUST BE POSITIVE INTEGER**'
      506                            *
      507                                     ERROR,0,NUM(CF)>3 ;
      508                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      509                            *
      510                                     ERROR,0,NUM(AF)>NAME(1) ;
      511                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      512                            *
      513                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      514                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      515                            *
      516                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      517                            *
      518                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      519                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      520                            *
      521                                     ERROR,0,A=0  ;
      522                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      523                            *
      524                                     ELSE
      525                            *
      526                            A        SET      0
      527                            *
      528                                     FIN
      529                            *
      530                            LF       BAL,X6   *NAME(2)
      531                            *
      532                                     DO       NUM(CF)=1&NAME(1)=1
      533                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      534                                     ELSE
      535                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      536                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      537                                     ELSE
      538                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      539                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      540                                     ELSE
      541                                     DO       NUM(CF)=2&CF(2)>0
      542                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      543                                     ELSE
      544                                     DO       NUM(CF)=2&CF(2)=0
      545                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      546                                     ELSE
      547                                     DO       NUM(CF)>2&CF(2)>0
      548                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      549                                     ELSE
      550                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      551                                     FIN
      552                                     FIN
      553                                     FIN
      554                                     FIN
      555                                     FIN
      556                                     FIN
      557                            *
      558                            *
      559                                     PEND
      560                            *
      561         000000C0           C0       EQU      X'C0'
      562         000000C1           C1       EQU      X'C1'
      563         000000C2           C2       EQU      X'C2'
      564         000000C3           C3       EQU      X'C3'
      565         000000C4           C4       EQU      X'C4'
      566         000000C5           C5       EQU      X'C5'
      567         000000C6           C6       EQU      X'C6'
      568         000000C7           C7       EQU      X'C7'
      569         000000C8           C8       EQU      X'C8'
      570         000000C9           C9       EQU      X'C9'
      571         000000CA           CA       EQU      X'CA'
      572         000000CB           CB       EQU      X'CB'
      573         000000CC           CC       EQU      X'CC'
      574         000000CD           CD       EQU      X'CD'
      575         000000CE           CE       EQU      X'CE'
      576         000000CF           CF       EQU      X'CF'
      577         000000F0           F0       EQU      X'F0'
      578         000000F1           F1       EQU      X'F1'
      579                            *
      580         00000000           TEXTCS   CNAME
      581                                     PROC
      582                                     DISP     %
      583                                     LIST     0
      584                            LF       TEXTC    AF
      585                                     LIST     1
      586                                     PEND
      587                            *********************************************
      588                                     SYSTEM   SIG9P
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE    5
A     590                            *********************************************
      591                            *
      592   01 00392                 #TABLE1A   ORG     X'392'           THIS TABLE IS USED BY THE USER
            01 00392
      593         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      594         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      595         01 00394           #LOADFLAG  EQU    %+2
      596         01 00395           #MTLFLAG   EQU    %+3
      597         01 00396           #TOADDR    EQU    %+4
      598         01 00397           #PRTADDR   EQU    %+5
      599         01 00399           #OUTPTR    EQU    %+7
      600         01 0039A           #PAKDEX    EQU    %+8
      601         01 0039B           #INDEX     EQU    %+9
      602         01 0039C           #PARAM%H1 EQU     %+10
      603         01 0039D           #PARAM%H2 EQU     %+11
      604         01 0039E           #PARAM%H3 EQU     %+12
      605         01 0039F           #PARAM%H4 EQU     %+13
      606         01 003A0           #TESTINIT EQU     %+14
      607         01 003A1           #STATUS   EQU     %+15
      608         01 003A2           #PARAM1  EQU      %+16
      609         01 003A4           #PARAM2  EQU      %+18
      610         01 003A6           #PARAM3  EQU      %+20
      611         01 003A8           #PARAM4  EQU      %+22
      612         01 003AA           #MAXMEM   EQU     %+24
      613         01 003AB           #SAMPLE% EQU      %+25
      614         01 003AC           #BRKOUT  EQU      %+26
      615         01 003AD           #DM%START EQU     %+27
      616         01 003AE           #DM%END  EQU      %+28
      617                            *
      618                            ************
      619                            *
      620   01 003C2                 #TABLE1B   ORG     X'3C2'           THIS TABLE IS USED BY USER
            01 003C2
      621         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      622         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      623         01 003C4           #BTE%      EQU    %+2
      624         01 003C5           #DISUSER%  EQU    %+3
      625         01 003C6           #ENUSER%   EQU    %+4
      626                            *
      627         01 003C8           #GUIDE%    EQU    %+6
      628         01 003C9           #FIDLE%    EQU    %+7
      629         01 003CA           #RUNADDR%  EQU    %+8
      630         01 003CB           #RETURN%   EQU    %+9
      631         01 003CC           #TYPER%    EQU    %+10
      632         01 003CD           #PRINTER%  EQU    %+11
      633         01 003CE           #ERRTEXT%  EQU    %+12
      634                            *
      635         01 003D0           #ERR1PTR%  EQU    %+14
      636                            *
      637         01 003D2           #VALTAB% EQU      %+16
      638         01 003D3           #DMENTRY% EQU     %+17
      639         01 003D4           #P%MODE% EQU      %+18
      640                            *
      641                            **************:
      642                            *
      643                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      644                            *
      645   01 003E5                          ORG      X'3E5'
            01 003E5
      646                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      647   01 003E5    00       A   VALBIT   DATA,1   ,,,2                   (1 BYTE EACH)
            01 003E5 1  00       A
            01 003E5 2  00       A
            01 003E5 3  02       A
      648                            *
      649   01 003E7                          ORG      X'3E7'
            01 003E7
      650                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      651         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      652   01 003E7    00       A            DATA,1   ,,,-30
            01 003E7 1  00       A
            01 003E7 2  00       A
            01 003E7 3  E2       A
      653                            *
      654   01 003EC                          ORG      X'3EC'
            01 003EC
      655         01 003EC           VALTYPE  EQU      %
      656   01 003EC    1E005678              GEN,8,24  30,BA(ALPHATXT)
      657                            *
      658                            ************
      659                            *
      660   01 003F0                 DCA        ORG     X'3F0'
            01 003F0
      661                            *
      662   01 003F0    00000001 A   MST:NUM  DATA     1
      663   01 003F1    000000F1 A   MSP:NUM  DATA     LAST:MOD
      664   01 003F2    00000001 A   MCR:NUM  DATA     1
      665   01 003F3    00001ABC     LISTPTR  DATA     LIST
      666                            *                 **********
      667                            *                DESIGNERS CONSTANT AREA.
      668                            *                THIS SECTION IS NOT REQUIRED IF
      669                            *                THE USER PROGRAM DOES NOT USE IT!
      670                            *                **********
      671                            ************
      672                            *
      673   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      674   01 01000    00001030     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      675   01 01001    00001A81     #TABLE3@   DATA   TABLE3
      676   01 01002    00001AA6     #PLINEIN@  DATA   PLINEIN
      677   01 01003    80000000 A   #DIAG@   GEN,1,31 1,0               NO SAMPLING (C4 STILL RUNS)
      678   01 01004    00000000 A   #LOADER@ DATA     0
      679                            *
      680                            ************
      681                            *                **********
      682         00000000           R0         EQU    0
      683         00000001           R1         EQU    1
      684         00000001           X1         EQU    1
      685         00000002           R2         EQU    2
      686         00000002           X2         EQU    2
      687         00000003           R3         EQU    3
      688         00000003           X3         EQU    3
      689         00000004           R4         EQU    4          **********
      690         00000004           X4         EQU    4          PREFFERED AREA TO BE USED
      691         00000005           R5         EQU    5          FOR USER PROGRAM EQU TABLES.
      692         00000005           X5         EQU    5          NOT MANDATORY BUT DESIRABLE
      693         00000006           R6         EQU    6          FOR CONSISTANTCY.
      694         00000006           X6         EQU    6          **********
      695         00000007           R7         EQU    7
      696         00000007           X7         EQU    7
      697         00000008           R8         EQU    8
      698         00000009           R9         EQU    9
      699         0000000A           R10        EQU    10
      700         0000000B           R11        EQU    11
      701         0000000C           R12        EQU    12
      702         0000000D           R13        EQU    13
      703         0000000E           R14        EQU    14
      704         0000000F           R15        EQU    15
      705                            *
      706                            *
      707                            ************                 **********
      708                            *                            PREFFERED AREA TO BE USED
      709                            *                            FOR USER PROGRAM FORM TABLES.
      710                            *                            NOT MANDATORY BUT DESIRABLE
      711                            *                            FOR CONSISTANTCY.
      712                            **********
      713                            *
      714                            *       FORMS   THE ADDRESS FIELD SPECIFIES HOW THE WORD IS DIVIDED AND
      715                            *              HOW MANY BITS THERE WILL BE IN EACH PART OF THE WORD.
      716                            *              EFFECTIVE AT ASSEMBLY TIME ONLY.
      717                            *
      718                        *S* A        COM,4,4,24 AF
      719                            *
      720         00000004           D        COM,8,24 AF
      721                            *
      722         00000004           E        COM,8,8,16 AF
      723                            *
      724                        *S* G        COM,16,8,8 AF
      725                            *
      726         00000004           H        COM,8,8,8,8 AF
      727                            *
      728         00000004           I        COM,4,28 AF
      729                            *
      730         00000004           K        COM,4,4,4,20 AF
      731                            *
      732         00000004           L        COM,3,2,3,5,3,1,3,3,3,3,3 AF
      733                            *
      734         00000004           M        COM,4,2,2,2,6,8,8 AF
      735                            *
      736         00000004           N        COM,4,4,4,1,19 AF
      737                            *
      738                        *S* F        COM,8,5,19 AF
      739                            *
      740         00000004           Z        COM,8,2,6,16 AF
      741                            *
      742                            *      PROCS                       EFFECTIVE AT ASSEMBLY TIME ONLY
      743                            *
      744                            *
      745                            *        J        CONVERTS TO BYTE ADDRESS
      746         00000000           J        CNAME
      747                                     PROC
      748                            LF       GEN,8,24 AF(1),BA(AF(2))
      749                                     PEND
      750                            *
      751                            *      R8      ERROR IDENTIFIER AND ADDRESS:
      752                            *              01000000 = INSTRUCTION
      753                            *              02000000 = LOCATION+1 OF THE EXECUTION LOCATION
      754                            *              03000000 = INDIRECT ADDRESS
      755                            *              0400000X = INDEX REGISTER X: X=1(NORMAL) OR 7(ONE)
      756                            *              0500000X = PROGRAM STATUS WORD X: X=1 OR 2
      757                            *              0600000X = REGISTER X: X=C(12)OR D(13)
      758                            *              0700WXYZ = MEMORY WORD IN LOCATION WXYZ (WXYZ=0-FFFF)
      759                            *      R9      EXPECTED  RESULT
      760                            *      R10     OBSERVED RESULT
      761                            *      R11     EXCLUSIVE 'OR' OF R9 AND R10
      762                            *
      763   01 01010                          ORG      X'1010'
            01 01010
      764                                     BOUND    8
      765   01 01010    00000000 A            DATA     0
      766   01 01011    00000000 A            DATA     0
      767   01 01012    00001014              DATA     %+2
      768   01 01013    00000000 A            DATA     0
      769   01 01014    70201010              LC       EXP:TRAP-6
      770   01 01015    0F00102C              XPSD,0   RETURN
      771   01 01016    00000000 A   EXP:TRAP DATA     0
      772   01 01017    00000000 A            DATA     0
      773   01 01018    0000101A              DATA     %+2
      774   01 01019    00000000 A            DATA     0
      775   01 0101A    0F00102C              XPSD,0   RETURN
      776   01 0101B    0F00102C              XPSD,0   RETURN
      777   01 0101C    0F00102C              XPSD,0   RETURN
      778   01 0101D    0F00102C              XPSD,0   RETURN
      779   01 0101E    0F00102C              XPSD,0   RETURN
      780   01 0101F    0F00102C              XPSD,0   RETURN
      781   01 01020    0F00102C              XPSD,0   RETURN
      782   01 01021    0F00102C              XPSD,0   RETURN
      783   01 01022    0F00102C              XPSD,0   RETURN
      784   01 01023    0F00102C              XPSD,0   RETURN
      785   01 01024    0F00102C              XPSD,0   RETURN
      786   01 01025    0F00102C              XPSD,0   RETURN
      787   01 01026    0F00102C              XPSD,0   RETURN
      788   01 01027    0F00102C              XPSD,0   RETURN
      789   01 01028    0F00102C              XPSD,0   RETURN
      790   01 01029    0F00102C              XPSD,0   RETURN
      791   01 0102A    0F00102C              XPSD,0   RETURN
      792                            *
      793   01 0102B    0F80102C     BRANCH   XPSD,8   RETURN
      794                                     BOUND    8
      795   01 0102C    00000000 A   RETURN   DATA     0
      796   01 0102D    00000000 A            DATA     0
      797   01 0102E    0000114A              DATA     LOC+2
      798   01 0102F    00000000 A            DATA     0
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE    6
A     800                            *
      801                            ********************************************************************
      802                            ***         CONTROL  PROGRAM  BEGINS  HERE            ***
      803                            ********************************************************************
      804                            *
      805         01 01030           INITIAL  EQU      %
      806   01 01030    35601076              STW,X6   INI:EXIT          YES RECOVERY IF 'LOADFLAG'
      807   01 01031    70200394              LC       #LOADFLAG         IS ZERO.
      808   01 01032    69F0106F              BCS,15   BYPASS
      809                            *
      810   01 01033    32800040 A   PARA:SET LW,R8    X'40'
      811   01 01034    35801106              STW,R8   TRAP:SAV
      812   01 01035    228000F1 A            LI,R8    LAST:MOD          RESTORE 'MODULE STOP' AND LAST
      813   01 01036    35801470              STW,R8   LST:NUM           NUMBER TO THE LAST MODULE #.
      814   01 01037    358003F1              STW,R8   MSP:NUM
      815   01 01038    EA6003C3              #HTECON  R8
            01 01039    00000008 A
      816   01 0103A    328C0001 A            LW,R8    1,X6              INITIALIZE THE VALUES IN THE
      817   01 0103B    4B8015C2              AND,R8   LS:MSK            K-PARAMETER LINE BY FIRST SET-
      818   01 0103C    35801438              STW,R8   KINIT+1           TING UP THE K-INITIAL LINE &
      819   01 0103D    22800001 A            LI,R8    1                 THEN WRITING IT OVER THE K-
      820   01 0103E    358003F0              STW,R8   MST:NUM           PARAMETER LINE.
      821   01 0103F    358003F2              STW,R8   MCR:NUM
      822   01 01040    35801273              STW,R8   PASS:CNT
      823                            *
      824   01 01041    72201437              LB,X2    KINIT
      825   01 01042    72841437              LB,R8    KINIT,X2
      826   01 01043    75841433              STB,R8   KOUT,X2
      827   01 01044    64201042              BDR,X2   %-2
      828                            *
      829   01 01045    EA6003C3              #HTECON  #PRTADDR
            01 01046    00000397
      830   01 01047    328C0001 A            LW,R8    1,X6              INITIALIZE THE VALUES IN THE
      831   01 01048    3580138A              STW,R8   JINIT+1           J-PARAMETER LINE BY FIRST SET-
      832                            *                                   TING UP THE J-INITIAL LINE &
      833   01 01049    EA6003C3              #HTECON  #TOADDR           THE WRTITING IT OVER THE
            01 0104A    00000396
      834   01 0104B    328C0001 A            LW,R8    1,X6              J-PARAMETER LINE.
      835   01 0104C    3580138C              STW,R8   JINIT+3
      836                            *
      837   01 0104D    72201389              LB,X2    JINIT
      838   01 0104E    72841389              LB,R8    JINIT,X2
      839   01 0104F    75841380              STB,R8   JOUT,X2
      840   01 01050    6420104E              BDR,X2   %-2
      841                            *
      842   01 01051    22800000 A            LI,R8    0
      843   01 01052    358015C6              STW,R8   FTFL
      844   01 01053    358015C4              STW,R8   ERR:CNT           FLAGS AND COUNTS THAT MUST BE
      845   01 01054    35801272              STW,R8   PASS:OK           CLEARED TO ZERO UPON ANY 'YES'
      846   01 01055    35800393              STW,R8   #HDRFLG
      847   01 01056    3580125A              STW,R8   EM
      848   01 01057    35801292              STW,R8   MAR:SET-1
      849   01 01058    35801161              STW,R8   CI:CNT
      850   01 01059    358014AE              STW,R8   LCNT
      851   01 0105A    35801077              STW,R8   TOT:ERRS
      852   01 0105B    35801259              STW,R8   EM:FLG
      853   01 0105C    22800040 A            LI,R8    X'40'
      854   01 0105D    6D801100 A            WD,R8    X'1100'
      855   01 0105E    2280E390 A            LI,R8    X'E390'
      856   01 0105F    35801409              STW,R8   CI:SAV
      857   01 01060    12801122              LD,R8    CLR:WL
      858   01 01061    6F820000 A            MMC,R8   1
      859   01 01062    CF00141E              HIO,0    *MI:ADR           TURN OFF MEMORY INTERFERRENCE.
      860   01 01063    32801391              LW,R8    JINIT+8
      861   01 01064    35801388              STW,R8   JOUT+8
      862   01 01065    22801ABC              LI,R8    LIST
      863   01 01066    358003F3              STW,R8   LISTPTR           RESET THE LISTPTR BACK TO THE
      864   01 01067    6C800045 A            RD,R8    X'45'             FIRST MODULE IN THE LIST.
      865   01 01068    3580129D              STW,R8   CM:ON
      866   01 01069    3580129E              STW,R8   CM:OFF
      867   01 0106A    4B801298              AND,R8   NEW:CM            RESET THE CLOCK MARGINS TO
      868   01 0106B    6D800045 A            WD,R8    X'45'             NORMAL.  RESET MAX CLOCK OVER-
      869   01 0106C    228FFFF6 A            LI,R8    -10               SET THE STATUS REPORT INTERVAL
      870   01 0106D    358013CC              STW,R8   SI                BACK TO ITS DEFAULT VALUE(10).
      871   01 0106E    35801078              STW,R8   INIFLG
      872   01 0106F    22800000 A   BYPASS   LI,R8    0
      873   01 01070    35801161              STW,R8   CI:CNT
      874   01 01071    702003A0              LC       #TESTINIT
      875   01 01072    EA601076              BAL,X6   *INI:EXIT         BYTE 0 OF #TESTINIT CONTROLS
      876   01 01073    00001074              DATA     GO                THE AUTOMATIC START FEATURE
      877                                     BOUND    8                 OF GUIDE INTERFACED PROGRAMS.
      878   01 01074    00001079     GO       DATA     START             IF THE CC VALUE FETCHED IS NOT
      879   01 01075    00000000 A            DATA     0                 ZERO, THEN GUIDE WILL GO TO
      880                            *                                   IDLE INSTEAD OF RUN.
      881   01 01076    00000000 A   INI:EXIT DATA     0
      882   01 01077    00000000 A   TOT:ERRS DATA     0
      883   01 01078    00000000 A   INIFLG   DATA     0
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE    7
A     885                            *
      886                            **** NON-INITIALIZED START BEGINS HERE ****
      887                            *
      888         01 01079           START    EQU      %
      889   01 01079    12C01110              LD,R12   WL:ZERO
      890   01 0107A    12E01110              LD,R14   WL:ZERO
      891                            *
      892         01 0107B           AUTOTEST EQU      %
      893   01 0107B    6AF01084              BAL,R15  CLR:AUTO          CLEAR DRIVER FOR TEST MODULE.
      894   01 0107C    22A01198              LI,R10   AUTO:DL           MOVE MODULE DATA INTO DRIVER
      895   01 0107D    6AF0108C              BAL,R15  MOVER             USING DISPERSION LIST(AUTO:DL).
      896   01 0107E    6AF010DC              BAL,R15  TRAP:SW           SET UP FOR TRAP IF ONE IS EXP
      897   01 0107F    6AF0112B              BAL,R15  EXU:AUTO          EXECUTE TEST MODULE
      898   01 01080    6AF01158              BAL,R15  SAV:RES           SAVE TEST RESULTS
      899   01 01081    6AF01163              BAL,R15  CMP:AUTO          COMPARE OBS'D W/EXP'D
      900                            *
      901         01 01082           PTR:ADV  EQU      %
      902   01 01082    6AF011EF              BAL,R15  ADV:PTR           ADVANCE LISTPTR & TEST FOR
      903   01 01083    68001079              B        AUTOTEST-2
      904                            *
      905         01 01084           CLR:AUTO EQU      %
      906   01 01084    221FFDC6 A            LI,X1    (GUIDE-MTABLOUT)+12
      907   01 01085    22800000 A            LI,R8    0
      908   01 01086    35823068              STW,R8   MTABLOUT+20,X1
      909   01 01087    65101086              BIR,X1   %-1               CLEAR MEMORY
      910   01 01088    35801148              STW,R8   LOC
      911   01 01089    358015D6              STW,R8   PSW1
      912   01 0108A    3580118D              STW,R8   LISTEXT+1
      913   01 0108B    E800000F A            B        *R15
      914                            *
      915                            *            CALLING SEQUENCE
      916                            *        LI,R10   AUTO:DL
      917                            *        BAL,R15  MOVER
      918                            *
      919         01 0108C           MOVER    EQU      %
      920   01 0108C    22800001 A            LI,R8    1
      921   01 0108D    35803021              STW,R8   RTABLIN+1
      922   01 0108E    35803041              STW,R8   RTABLOUT+1
      923   01 0108F    22800002 A            LI,R8    2
      924   01 01090    22900003 A            LI,R9    3
      925   01 01091    15803022              STD,R8   RTABLIN+2
      926   01 01092    15803042              STD,R8   RTABLOUT+2
      927   01 01093    F21003F3              LB,X1    *LISTPTR          MOVE MODULE DATA FROM 'LIST' BY
      928   01 01094    201FFFFF A            AI,X1    -1                INDEXING THRU MODULE DISPERSION
      929   01 01095    B28203F3              LW,R8    *LISTPTR,X1       LIST.  USE MODULE COUNT AS INDEX
      930   01 01096    B222000A A            LW,X2    *R10,X1           TO LIST & DISPERSION LIST.
      931   01 01097    35840000 A            STW,R8   0,X2
      932   01 01098    64101095              BDR,X1   %-3
      933   01 01099    35101105              STW,X1   TRAP:FLG          CLEAR TRAP FLAG.
      934   01 0109A    22803000              LI,R8    MEMORY
      935   01 0109B    3580110C              STW,R8   MEM:REF
      936   01 0109C    32801148              LW,R8    LOC
      937   01 0109D    3580118C              STW,R8   LISTEXT
      938   01 0109E    4B8015DC              AND,R8   ADR:MSK
      939   01 0109F    21802FF8              CI,R8    MEMORY-8
      940   01 010A0    691010A4              BCS,1    %+4
      941   01 010A1    21803004              CI,R8    MEMORY+4
      942   01 010A2    692010A4              BCS,2    %+2
      943   01 010A3    3580110C              STW,R8   MEM:REF
      944   01 010A4    32801345              LW,R8    IDX:MSK
      945   01 010A5    4B801148              AND,R8   LOC
      946   01 010A6    35801343              STW,R8   IDX:FLG
      947   01 010A7    22900000 A            LI,R9    0
      948   01 010A8    B28003F3              LW,R8    *LISTPTR
      949   01 010A9    21801000 A            CI,R8    X'1000'
      950   01 010AA    684010AC              BCR,4    %+2
      951   01 010AB    229FFFFF A            LI,R9    -1
      952   01 010AC    3590110D              STW,R9   CT:FLG
      953   01 010AD    22900000 A            LI,R9    0
      954   01 010AE    3280110D              LW,R8    CT:FLG
      955   01 010AF    683010B3              BCR,3    %+4
      956   01 010B0    12A01120              LD,R10   SET:WL
      957   01 010B1    6FA20000 A            MMC,R10  1
      958   01 010B2    3290110E              LW,R9    CLN:TRP
      959   01 010B3    359015D7              STW,R9   PSW2
      960   01 010B4    683010C9              BCR,3    NO:GEN
      961   01 010B5    22900000 A            LI,R9    0
      962   01 010B6    32801347              LW,R8    REG:MSK
      963   01 010B7    4B801148              AND,R8   LOC
      964   01 010B8    2580006C A            SLS,R8   -20
      965   01 010B9    693010BB              BCS,3    %+2
      966   01 010BA    22800010 A            LI,R8    16
      967   01 010BB    72A01148              LB,R10   LOC
      968   01 010BC    4BA015C1              AND,R10  CON7F
      969   01 010BD    21A00077 A            CI,R10   X'77'
      970   01 010BE    693010C1              BCS,3    %+3
      971   01 010BF    25800001 A            S,R8     1
      972   01 010C0    208FFFFF A            AI,R8    -1
      973   01 010C1    30803023              AW,R8    RTABLIN+3
      974   01 010C2    21800011 A            CI,R8    17
      975   01 010C3    691010C8              BCS,1    %+5
      976   01 010C4    20900001 A            AI,R9    1
      977   01 010C5    21800019 A            CI,R8    25
      978   01 010C6    691010C8              BCS,1    %+2
      979   01 010C7    20900001 A            AI,9     1
      980   01 010C8    35901344              STW,R9   DCMEM
      981                            *
      982   01 010C9    72A01148     NO:GEN   LB,R10   LOC
      983   01 010CA    21A00063 A            CI,R10   X'63'
      984   01 010CB    693010CE              BCS,3    %+3
      985   01 010CC    22AFFFFF A            LI,R10   -1
      986   01 010CD    35A01344              STW,R10  DCMEM
      987   01 010CE    328015D7              LW,R8    PSW2              DUMMY DATA IS PUT IN PSW2 TO
      988   01 010CF    4B8010FE              AND,R8   FILL:MSK          OBSERVE A NON-ZERO DATA FLOW
      989   01 010D0    488010FF              EOR,R8   FILLER            IN SNAPSHOT OUTPUT.
      990   01 010D1    358015D7              STW,R8   PSW2
      991   01 010D2    22100003 A            LI,X1    3
      992   01 010D3    B28203F3              LW,R8    *LISTPTR,X1       PECTED VALUE IS LOC+1.
      993   01 010D4    4B8015DC              AND,R8   ADR:MSK           IF PSW1 OUT ADDRESS IS LOC+2
      994   01 010D5    2180114A              CI,R8    LOC+2
      995   01 010D6    E930000F A            BNE      *R15              INCREMENT THE RETURN ADDRESS
      996   01 010D7    20F00001 A            AI,R15   1
      997   01 010D8    328015D6              LW,R8    PSW1
      998   01 010D9    3080125A              AW,R8    EM
      999   01 010DA    358015D6              STW,R8   PSW1
     1000   01 010DB    E800000F A            B        *R15
     1001                            *
     1002         01 010DC           TRAP:SW  EQU      %
     1003   01 010DC    22100003 A            LI,X1    3
     1004   01 010DD    3290102B              LW,R9    BRANCH
     1005   01 010DE    35801105              STW,R8   TRAP:FLG
     1006   01 010DF    B28203F3              LW,R8    *LISTPTR,X1
     1007   01 010E0    4B8015DC              AND,R8   ADR:MSK           TEST PSW1 OUT ADDRESS TO SELECT
     1008   01 010E1    31801100              CW,R8    EX:TRP0           APPROPRIATE XPSD FOR EXPECTED
     1009   01 010E2    693010E5              BNE      %+3               TRAP LOCATION.  USE EXTRAP46 IF
     1010   01 010E3    32901104              LW,R9    EXTRAP46          PSW1 SAYS EXP:TRAP, USE EXTRAP00 IF
     1011   01 010E4    680010EA              B        SET:IDX           PSW1 SAYS EXP:TRAP+5.  IF NEITHER
     1012   01 010E5    31801101              CW,R8    EX:TRP5           OF ABOVE, USE EXTRAP40 FOR ADD
     1013   01 010E6    693010E9              BNE      %+3               IMMEDIATE TYPES.
     1014   01 010E7    32901102              LW,R9    EXTRAP00
     1015   01 010E8    680010EA              B        %+2
     1016   01 010E9    32901103              LW,R9    EXTRAP40
     1017                            *
     1018   01 010EA    325015D6     SET:IDX  LW,X5    PSW1
     1019   01 010EB    32800005 A            LW,R8    X5
     1020   01 010EC    4B801352              AND,R8   FLAG:MSK
     1021   01 010ED    488015DA              EOR,R8   LOCADR            FETCH PSW1 IN, SET ADDRESS TO
     1022   01 010EE    3080125A              AW,R8    EM                'LOC' AND ADD THE EXECUTION MODE
     1023   01 010EF    358015D6              STW,R8   PSW1              BIAS.
     1024   01 010F0    3280118D              LW,R8    LISTEXT+1
     1025   01 010F1    4B801109              AND,R8   PRIV:MSK          PLACE EXPECTED FLAGS FROM TEST
     1026   01 010F2    4880110A              EOR,R8   ETP4:ADR          MODULE'S PSW1-IN IN APPROPRIATE
     1027   01 010F3    35801018              STW,R8   EXP:TRAP+2        TRAP LOCATION FOR COMPARATOR
     1028   01 010F4    4B801109              AND,R8   PRIV:MSK          VALIDATION AT CMP:AUTO.
     1029   01 010F5    4880110B              EOR,R8   ETM2:ADR
     1030   01 010F6    35801012              STW,R8   EXP:TRAP-4
     1031   01 010F7    4B5015DC              AND,X5   ADR:MSK           COMPUTE THE LOCATION OF EXPECTED
     1032   01 010F8    205FEEB8 N            AI,X5    0-LOC             TRAP BY USING THE EXCESS COUNT
     1033   01 010F9    328A0040 A            LW,R8    X'40',X5          AS AN INDEX (X5).
     1034   01 010FA    35801106              STW,R8   TRAP:SAV          SAVE THE OLD TRAP CONTENTS AND THE
     1035   01 010FB    35501108              STW,X5   TRAP:IDX          INDEX COUNT TO RESTORE UPON EXIT.
     1036   01 010FC    359A0040 A            STW,R9   X'40',X5
     1037   01 010FD    E800000F A            B        *R15
     1038                            *
     1039   01 010FE    FFC0FFFF A   FILL:MSK DATA     X'FFC0FFFF'
     1040   01 010FF    003F0000 A   FILLER   DATA     X'3F0000'
     1041   01 01100    00001016     EX:TRP0  DATA     EXP:TRAP
     1042   01 01101    0000101B     EX:TRP5  DATA     EXP:TRAP+5
     1043   01 01102    0F001016     EXTRAP00 XPSD,0   EXP:TRAP
     1044   01 01103    0F401016     EXTRAP40 XPSD,4   EXP:TRAP
     1045   01 01104    0F001010     EXTRAP46 XPSD,0   EXP:TRAP-6
     1046   01 01105    00000000 A   TRAP:FLG DATA     0
     1047   01 01106    00000000 A   TRAP:SAV DATA     0
     1048   01 01107    00000000 A   TRP:SAV1 DATA     0
     1049   01 01108    00000000 A   TRAP:IDX DATA     0
     1050   01 01109    FF3E0000 A   PRIV:MSK DATA     X'FF3E0000'
     1051   01 0110A    0000101A     ETP4:ADR DATA     EXP:TRAP+4
     1052   01 0110B    00001014     ETM2:ADR DATA     EXP:TRAP-2
     1053   01 0110C    00003000     MEM:REF  DATA     MEMORY
     1054   01 0110D    00000000 A   CT:FLG   DATA     0
     1055   01 0110E    30000000 A   CLN:TRP  DATA     X'30000000'
     1056   01 0110F    00FE0000 A   WLIMAGE  DATA     X'00FE0000'
     1057   01 01110    00000000 A   WL:ZERO  DATA     0,0,0,0
            01 01111    00000000 A
            01 01112    00000000 A
            01 01113    00000000 A
     1058   01 01114    00000000 A            DATA     0,0,0,0
            01 01115    00000000 A
            01 01116    00000000 A
            01 01117    00000000 A
     1059   01 01118    00000000 A            DATA     0,0,0,0
            01 01119    00000000 A
            01 0111A    00000000 A
            01 0111B    00000000 A
     1060   01 0111C    00000000 A            DATA     0,0,0,0
            01 0111D    00000000 A
            01 0111E    00000000 A
            01 0111F    00000000 A
     1061                                     BOUND    8
     1062   01 01120    0000110F     SET:WL   DATA     WLIMAGE
     1063   01 01121    01002200 A            GEN,8,24 1,ABSVAL(ENDE)-X'E00' BE CAREFUL WITH LOCKS
     1064   01 01122    00001110     CLR:WL   DATA     WL:ZERO
     1065   01 01123    10000000 A            DATA     X'10000000'

     1067   01 01124    FFFFFF9C A   SDAT     DATA     -100

     1069         01 01125           SAMPLE   EQU      %
     1070   01 01125    33101124              MTW,1    SDAT              UPDATE SAMPLE INTERVAL
     1071   01 01126    E910000F A            BLZ      *R15               RETURN IF NOT EXPIRED
     1072   01 01127    8F0003AB              XPSD,0   *#SAMPLE%           ELSE CALL GUIDE INPUT
     1073   01 01128    22CFFF9C A            LI,R12   -100                 AND SENSE SWITCH SAMPLER
     1074   01 01129    35C01124              STW,R12  SDAT                  RESET SAMPLE INTERVAL
     1075   01 0112A    E800000F A            B        *R15                   AND RETURN

     1077         01 0112B           EXU:AUTO EQU      %
     1078   01 0112B    35F01157              STW,R15  EXIT:EXU
     1079   01 0112C    68001130              B        SET:CM
     1080                            *
     1081   01 0112D    22A01198     SHORTA   LI,R10   AUTO:DL
     1082   01 0112E    6AF0108C              BAL,R15  MOVER
     1083   01 0112F    6AF010DC              BAL,R15  TRAP:SW
     1084                            *
     1085   01 01130    3270129D     SET:CM   LW,X7    CM:ON             TURN SELECTED CLOCK MARGIN ON.
     1086   01 01131    6D700045 A            WD,X7    X'45'

     1088   01 01132    6AF01125              BAL,R15  SAMPLE            CALL MANUAL SAMPLE ROUTINE
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE    8
A    1090   01 01133    32F0102B     PRE:LOC  LW,R15   BRANCH            RESTORE XPSD IN LOC+1 AND IN
     1091   01 01134    35F01149              STW,R15  LOC+1             COMPARATOR REFERENCE TABLE.
     1092   01 01135    35F0118F              STW,R15  LISTEXT+3         RESTORE INDIRECT ADDRESS (IA).
     1093   01 01136    22F03000              LI,R15   MEMORY
     1094   01 01137    35F015DD              STW,R15  IA
     1095   01 01138    32F01161              LW,R15   CI:CNT            TURN ON COUNTERS AFTER 56TH
     1096   01 01139    6DF01200 A            WD,R15   X'1200'           ERROR FREE PASS.
     1097   01 0113A    22FFFFFF A   SHORTL   LI,R15   -1                SET COUNTER ZERO LOCATION TO
     1098   01 0113B    35F0125D              STW,R15  CICOUNT           -1.  CLEAR LOCATION OF CNTR 0
     1099   01 0113C    22F00000 A            LI,R15   0                 STORED  ADDRESS FROM XPSD.
     1100   01 0113D    35F0126C              STW,R15  CI:PROC           CM
     1101   01 0113E    02200080 A            LCI      8
     1102   01 0113F    2A003030              LM,R0    MTABLIN
     1103   01 01140    AB00110C              STM,R0   *MEM:REF
     1104   01 01141    02200000 A            LCI      0
     1105   01 01142    2A003020              LM,R0    RTABLIN
     1106                            *
     1107                            ***********************************************************************
     1108   01 01143    0E0015D6              LPSD,0   PSW1                  SET  TEST  STATUS
     1109   01 01144    68001148              B        LOC               EM=3   EXECUTION MODE
     1110   01 01145    67001148              EXU      LOC               EM=2     VARIATION
     1111   01 01146    68001149              B        LOC+1                      (SEE J PARAMETER LINE)
     1112   01 01147    6900102C              BCS,0    RETURN            EM=1
     1113   01 01148    00000000 A   LOC      DATA     0                 EXECUTE  TEST  INSTRUCTION
     1114   01 01149    0F80102C              XPSD,8   RETURN               SAVE  TEST  STATUS
     1115                            ***********************************************************************
     1116                            *
     1117   01 0114A    70200392              LC       #SENSE            SHORT LOOP.  SENSE SW1.
     1118   01 0114B    6980113A              BCS,8    SHORTL
     1119   01 0114C    35F0301F              STW,R15  RES:SAV+15
     1120   01 0114D    22F01000 A            LI,R15   X'1000'           TURN COUNT PULSE 4
     1121   01 0114E    6DF01200 A            WD,R15   X'1200'           BACK ON
     1122   01 0114F    32F01409              LW,R15   CI:SAV            TURN OFF COUNTER INTERRUPTS.
     1123   01 01150    6DF01100 A            WD,R15   X'1100'
     1124   01 01151    6CF00045 A            RD,R15   X'45'             SAVE STATUS OF CLOCK MARGINS
     1125   01 01152    35F0129D              STW,R15  CM:ON             FOR ERROR AND STATUS REPORT
     1126   01 01153    32F0129E              LW,R15   CM:OFF            ROUTINES.  TURN CM OFF.
     1127   01 01154    6DF00045 A            WD,R15   X'45'
     1128   01 01155    35003010              STW,R0   RES:SAV
     1129   01 01156    E8001157              B        *EXIT:EXU
     1130                            *
     1131   01 01157    00000000 A   EXIT:EXU DATA     0
     1132                            *
     1133         01 01158           SAV:RES  EQU      %
     1134   01 01158    35103011              STW,X1   RES:SAV+1         SAVE REGISTERS.
     1135   01 01159    221FFFF3 A            LI,X1    -13
     1136   01 0115A    3522301F              STW,X2   RES:SAV+15,X1
     1137   01 0115B    32220010 A            LW,X2    X'10',X1
     1138   01 0115C    6510115A              BIR,X1   %-2
     1139   01 0115D    32501108              LW,X5    TRAP:IDX
     1140   01 0115E    32801106              LW,R8    TRAP:SAV          RESTORE GUIDE'S TRAP XPSD'S.
     1141   01 0115F    358A0040 A            STW,R8   X'40',X5
     1142   01 01160    E800000F A            B        *R15
     1143                            *
     1144   01 01161    00000000 A   CI:CNT   DATA     0
     1145                            *
     1146   01 01162    00000000 A            DATA     0
     1147         01 01163           CMP:AUTO EQU      %
     1148   01 01163    35F01162              STW,R15  %-1
     1149   01 01164    22300000 A            LI,X3    0
     1150   01 01165    B2A6110C              LW,R10   *MEM:REF,X3
     1151   01 01166    32963054              LW,R9    MTABLOUT,X3
     1152   01 01167    32B00009 A            LW,R11   R9
     1153   01 01168    48B0000A A            EOR,R11  R10
     1154   01 01169    6830116E              BCR,3    %+5
     1155   01 0116A    32800003 A            LW,R8    X3
     1156   01 0116B    22F00007 A            LI,R15   7
     1157   01 0116C    75F00008 A            STB,R15  R8
     1158   01 0116D    6AF011BC              BAL,R15  FT:ERR
     1159   01 0116E    20300001 A            AI,X3    1
     1160   01 0116F    21300009 A            CI,X3    9
     1161   01 01170    69201172              BCS,2    %+2
     1162   01 01171    68001165              B        CMP:AUTO+2
     1163                            *
     1164   01 01172    22300000 A   CMP:REG  LI,X3    0
     1165   01 01173    32A63010              LW,R10   RES:SAV,X3
     1166   01 01174    32963040              LW,R9    RTABLOUT,X3
     1167   01 01175    32B00009 A            LW,R11   R9
     1168   01 01176    48B0000A A            EOR,R11  R10
     1169   01 01177    6830117C              BCR,3    %+5
     1170   01 01178    22800006 A            LI,R8    6
     1171   01 01179    25800018 A            SLS,R8   24
     1172   01 0117A    49800003 A            OR,R8    X3
     1173   01 0117B    6AF011BC              BAL,R15  FT:ERR
     1174   01 0117C    20300001 A            AI,X3    1
     1175   01 0117D    21300010 A            CI,X3    16
     1176   01 0117E    69301173              BCS,3    CMP:REG+1
     1177   01 0117F    223FFFFC A            LI,X3    -4                ONLY ITEMS SPECIFIED IN MODULE
     1178                            *                                   ARE CHECKED.  (REG & MEM)
     1179   01 01180    32861198     FT:CMP1  LW,R8    ID:EXT+4,X3       EXTENSION ITEMS THAT ARE ALWAYS
     1180   01 01181    32A61194              LW,R10   OBSEXT+4,X3       CHECKED ARE, LOC+1,INDX 1,
     1181   01 01182    B2A0000A A            LW,R10   *R10              INDX 7, AND INDIRECT ADDR.(IA).
     1182   01 01183    32961190              LW,R9    LISTEXT+4,X3
     1183   01 01184    32B00009 A            LW,R11   R9
     1184   01 01185    48B0000A A            EOR,R11  R10
     1185   01 01186    68301188              BCR,3    EXT:ERR+1
     1186                            *
     1187   01 01187    6AF011BC     EXT:ERR  BAL,R15  FT:ERR
     1188   01 01188    65301180              BIR,X3   FT:CMP1
     1189   01 01189    70200392              LC       #SENSE            LONG LOOP.   SENSE SW2.
     1190   01 0118A    69C0112D              BCS,12   SHORTA
     1191   01 0118B    E8001162              B        *CMP:AUTO-1
     1192                            *
     1193         01 0118C           LISTEXT  EQU      %
     1194   01 0118C    00000000 A            DATA     0
     1195   01 0118D    00000000 A            DATA     0
     1196   01 0118E    00003000              DATA     MEMORY
     1197   01 0118F    00000000 A            DATA     0
     1198                            *
     1199         01 01190           OBSEXT   EQU      %
     1200   01 01190    00001148              DATA     LOC
     1201   01 01191    0000102C              DATA     RETURN
     1202   01 01192    000015DD              DATA     IA
     1203   01 01193    00001149              DATA     LOC+1
     1204                            *
     1205         01 01194           ID:EXT   EQU      %
     1206   01 01194    01000000 A            D        1,0
     1207   01 01195    0500102C              D        5,RETURN
     1208   01 01196    03000000 A            D        3,0               IAID
     1209   01 01197    02000001 A            D        2,1
     1210                            *
     1211   01 01198    000011BA     AUTO:DL  DATA     DEAD              MODULE DISPERSION LIST.
     1212   01 01199    00001148              DATA     LOC               DEAD RECEIVES ALL'EXPECTED'WORDS
     1213   01 0119A    000015D6              DATA     PSW1              TO SIMPLIFY MOVING FROM MODULE.
     1214   01 0119B    0000118D              DATA     LISTEXT+1
     1215   01 0119C    0000302C              DATA     RTABLIN+12
     1216   01 0119D    0000304C              DATA     RTABLOUT+12
     1217   01 0119E    00003030              DATA     MTABLIN
     1218   01 0119F    00003054              DATA     MTABLOUT
     1219   01 011A0    0000302D              DATA     RTABLIN+13
     1220   01 011A1    0000304D              DATA     RTABLOUT+13
     1221   01 011A2    00003031              DATA     MTABLIN+1
     1222   01 011A3    00003055              DATA     MTABLOUT+1
     1223   01 011A4    0000302E              DATA     RTABLIN+14
     1224   01 011A5    0000304E              DATA     RTABLOUT+14
     1225   01 011A6    00003032              DATA     MTABLIN+2
     1226   01 011A7    00003056              DATA     MTABLOUT+2
     1227   01 011A8    0000302F              DATA     RTABLIN+15
     1228   01 011A9    0000304F              DATA     RTABLOUT+15
     1229   01 011AA    00003033              DATA     MTABLIN+3
     1230   01 011AB    00003057              DATA     MTABLOUT+3
     1231   01 011AC    00003034              DATA     MTABLIN+4
     1232   01 011AD    00003058              DATA     MTABLOUT+4
     1233   01 011AE    00003035              DATA     MTABLIN+5
     1234   01 011AF    00003059              DATA     MTABLOUT+5
     1235   01 011B0    00003036              DATA     MTABLIN+6
     1236   01 011B1    0000305A              DATA     MTABLOUT+6
     1237   01 011B2    00003037              DATA     MTABLIN+7
     1238   01 011B3    0000305B              DATA     MTABLOUT+7
     1239   01 011B4    0000302A              DATA     RTABLIN+10
     1240   01 011B5    0000302B              DATA     RTABLIN+11
     1241   01 011B6    0000304A              DATA     RTABLOUT+10
     1242   01 011B7    0000304B              DATA     RTABLOUT+11
     1243   01 011B8    00003041              DATA     RTABLOUT+1
     1244   01 011B9    000011BA     AUTO:DLE DATA     DEAD
     1245                            *
     1246   01 011BA    00000000 A   DEAD     DATA     0
     1247                            *
     1248   01 011BB    00000000 A            DATA     0
     1249         01 011BC           FT:ERR   EQU      %
     1250   01 011BC    35F011BB              STW,R15  %-1               THIS CODE IS ENTERED IN THE
     1251   01 011BD    222FFFFF A            LI,X2    -1                EVENT OF A FUNCTIONAL TEST
     1252   01 011BE    352015C5              STW,X2   ERR:FLG           ERROR.
     1253   01 011BF    35201351              STW,X2   PASS:ERR

     1255   01 011C0    EA6003C5              BAL,R6   *#DISUSER%        DISABLE INTERRUPTS

     1257   01 011C1    32201077              LW,X2    TOT:ERRS
     1258   01 011C2    20200001 A            AI,X2    1
     1259   01 011C3    35201077              STW,X2   TOT:ERRS
     1260   01 011C4    322015C4              LW,X2    ERR:CNT
     1261   01 011C5    20200001 A            AI,X2    1
     1262   01 011C6    352015C4              STW,X2   ERR:CNT
     1263   01 011C7    222F0FFF A            LI,X2    X'F0FFF'
     1264   01 011C8    6D000041 A            WD,0     X'41'
     1265   01 011C9    652011C9              BIR,X2   %
     1266   01 011CA    6D000040 A            WD,0     X'40'
     1267   01 011CB    70200392              LC       #SENSE            BYPASS FT ERROR PRINTOUT IF
     1268   01 011CC    691011E2              BCS,1    FTE:SS3           SENSE SW4 IS SET.
     1269   01 011CD    222012B4              LI,X2    ESM:HEDR
     1270   01 011CE    31200393              CW,X2    #HDRFLG
     1271   01 011CF    683011D4              BCR,3    %+5
     1272   01 011D0    EA6003CD              #PRINT   ESM:HEDR
            01 011D1    C0004AD0 A
     1273   01 011D2    693011D4              BCS,3    %+2
     1274   01 011D3    8F9003CA              XPSD,9   *#RUNADDR%
     1275   01 011D4    22E0130B              LI,R14   MSG:LST
     1276   01 011D5    22C00047 A            LI,R12   71                LINKING DATA TO FORM ERROR
     1277   01 011D6    75C0130A              STB,R12  MSG:CNT           STATUS MESSAGE.
     1278   01 011D7    22C00012 A            LI,R12   18
     1279   01 011D8    35C01309              STW,R12  WRD:CNT
     1280   01 011D9    6AF012A2              BAL,R15  FORM:ESM
     1281   01 011DA    EA6003CD              #PRINT   OUTBUF
            01 011DB    C00056B0 A
     1282   01 011DC    693011DE              BCS,3    %+2
     1283   01 011DD    8F9003CA              XPSD,9   *#RUNADDR%
     1284   01 011DE    222012B4              LI,X2    ESM:HEDR
     1285   01 011DF    35200393              STW,X2   #HDRFLG
     1286   01 011E0    322011E9              LW,X2    FTERSTAT
     1287   01 011E1    B52003CE              STW,X2   *#ERRTEXT%
     1288                            *
     1289   01 011E2    70200392     FTE:SS3  LC       #SENSE            DONT HALT ON ERROR IF SENSE
     1290   01 011E3    692011E7              BCS,2    FT:ERR0           SW3 IS SET
     1291   01 011E4    EA6003CC              #TYPE    HALT
            01 011E5    000047A8 A
     1292   01 011E6    8F9003CA              XPSD,9   *#RUNADDR%
     1293   01 011E7    EA6003C6     FT:ERR0  BAL,R6   *#ENUSER%         ENABLE INTERRUPTS
     1294   01 011E8    E80011BB              B        *FT:ERR-1
     1295                            *
     1296   01 011E9    110266EC N   FTERSTAT Z        17,,2,BA(FTERRMSG)
     1297         01 011EA           HALT     TEXTCS   '***ERROR HALT***'
     1298                            *
     1299         01 011EF           ADV:PTR  EQU      %
     1300   01 011EF    22300000 A            LI,X3    0                 ADV:PTR ADVANCES THE LIST
     1301   01 011F0    353015C5              STW,X3   ERR:FLG           POINTER TO THE NEXT MODULE
     1302   01 011F1    323003F2              LW,X3    MCR:NUM           IN THE LIST.  IF THE
     1303   01 011F2    20300001 A            AI,X3    1                 CURRENT MODULE IS ADVANCED
     1304   01 011F3    313003F1              CW,X3    MSP:NUM           OUT OF SPECIFIED RANGE,
     1305   01 011F4    692011FF              BCS,2    MST:INIT          CONTROL IS PASSED TO
     1306   01 011F5    353003F2              STW,X3   MCR:NUM
     1307   01 011F6    EA6003C3              #HTECON  X3
            01 011F7    00000003 A
     1308   01 011F8    323C0001 A            LW,X3    1,X6
     1309   01 011F9    4B3015C2              AND,X3   LS:MSK            UPDATE K-LINE, MCR.
     1310   01 011FA    35301435              STW,X3   KOUT+2
     1311   01 011FB    F23003F3              LB,X3    *LISTPTR
     1312   01 011FC    303003F3              AW,X3    LISTPTR
     1313   01 011FD    353003F3              STW,X3   LISTPTR
     1314   01 011FE    E800000F A            B        *R15
     1315                            *
     1316         01 011FF           MST:INIT EQU      %
     1317   01 011FF    323013CC              LW,X3    SI                IF SI, STATUS INTERVAL, IS
     1318   01 01200    68301207              BCR,3    %+7
     1319   01 01201    32301273              LW,X3    PASS:CNT          PASS:CNT GO TO PRINT A
     1320   01 01202    303013CC              AW,X3    SI                STATUS MESSAGE.
     1321   01 01203    68301206              BCR,3    %+3
     1322   01 01204    69201202              BCS,2    %-2
     1323   01 01205    68001207              B        %+2
     1324   01 01206    6A6014DF              BAL,X6   STATMSGS
     1325   01 01207    323003F0              LW,X3    MST:NUM           SET MCR BACK TO MST.
     1326   01 01208    353003F2              STW,X3   MCR:NUM
     1327   01 01209    32301433              LW,X3    KOUT
     1328   01 0120A    324015A8              LW,X4    SPACES
     1329   01 0120B    75400003 A            STB,X4   X3
     1330   01 0120C    35301435              STW,X3   KOUT+2
     1331   01 0120D    6A60125E              BAL,X6   LSTSERVO          SERVO THE LISTPTR BACK TO
     1332   01 0120E    32301351              LW,X3    PASS:ERR
     1333   01 0120F    69301228              BCS,3    ERR:PASS
     1334   01 01210    32301273              LW,X3    PASS:CNT          ENABLE COUNT PULSE 4 INTERUPT
     1335   01 01211    32C01409              LW,R12   CI:SAV
     1336   01 01212    68301220              BCR,3    NOCI
     1337   01 01213    21300038 A            CI,X3    56
     1338   01 01214    69101220              BCS,1    NOCI
     1339   01 01215    32C0125B              LW,R12   CIXPSD            SET UP COUNT PULSE AND
     1340   01 01216    35C00058 A            STW,R12  X'58'             COUNTER ZERO LOCATIONS.
     1341   01 01217    35C00059 A            STW,R12  X'59'
     1342   01 01218    35C0005A A            STW,R12  X'5A'
     1343   01 01219    35C0005D A            STW,R12  X'5D'
     1344   01 0121A    32C0125C              LW,R12   CIMTW
     1345   01 0121B    35C00052 A            STW,R12  X'52'
     1346   01 0121C    35C00053 A            STW,R12  X'53'
     1347   01 0121D    35C00054 A            STW,R12  X'54'
     1348   01 0121E    32C01409              LW,R12   CI:SAV
     1349   01 0121F    35C01161              STW,R12  CI:CNT
     1350                            *
     1351   01 01220    32301272     NOCI     LW,X3    PASS:OK
     1352   01 01221    20300001 A            AI,X3    1
     1353   01 01222    35301272              STW,X3   PASS:OK
     1354   01 01223    31301274              CW,X3    PASS:LIM
     1355   01 01224    68201228              BCR,2    ERR:PASS
     1356   01 01225    6A601276              BAL,X6   VM:CM             SEQUENCE CLOCK MARGINS TO
     1357   01 01226    326012A0              LW,X6    CM:SAV
     1358   01 01227    3560129D              STW,X6   CM:ON
     1359   01 01228    22300000 A   ERR:PASS LI,X3    0                 NEXT SETTING EVERY 10TH
     1360   01 01229    35301351              STW,X3   PASS:ERR          ERROR FREE PASS.
     1361   01 0122A    323014AE              LW,X3    LCNT
     1362   01 0122B    68301234              BCR,3    %+9
     1363   01 0122C    32301273              LW,X3    PASS:CNT
     1364   01 0122D    303014AE              AW,X3    LCNT
     1365   01 0122E    68301231              BCR,3    %+3               GO TO GUIDE IDLE WHEN LCNT
     1366   01 0122F    6920122D              BCS,2    %-2               IS AN EVEN MULTIPLE OF PASS:CNT.
     1367   01 01230    68001234              B        %+4
     1368   01 01231    8F9003CA              XPSD,9   *#RUNADDR%
     1369   01 01232    22300000 A            LI,X3    0
     1370   01 01233    68001235              B        %+2
     1371   01 01234    32301273              LW,X3    PASS:CNT
     1372   01 01235    20300001 A            AI,X3    1
     1373   01 01236    35301273              STW,X3   PASS:CNT
     1374   01 01237    22300000 A            LI,X3    0
     1375   01 01238    353015C4              STW,X3   ERR:CNT
     1376                            *
     1377   01 01239    32301259     EM:ADV   LW,X3    EM:FLG            EM:FLG IS SET IN EM:C,
     1378   01 0123A    6930124E              BCS,3    EXIT:EM           K-LINE INDICATING USER
     1379   01 0123B    32301258              LW,X3    EM:CNT            HAS FIXED EM VALUE.
     1380   01 0123C    2130000D A            CI,X3    13
     1381   01 0123D    69301250              BCS,3    EXIT:EM+2         SEQUENCE EXECUTION MODE
     1382   01 0123E    3230125A              LW,X3    EM                TO NEXT SETTING AFTER
     1383   01 0123F    32361257              LW,X3    EM:LIST,X3        BY FORCING EM TO NEXT STATE.
     1384   01 01240    3530125A              STW,X3   EM
     1385   01 01241    68301247              BCR,3    %+6
     1386   01 01242    213FFFFF A            CI,X3    -1
     1387   01 01243    68301245              BE       %+2
     1388   01 01244    20300001 A            AI,X3    1
     1389   01 01245    483015CF              EOR,X3   ONES
     1390   01 01246    20300001 A            AI,X3    1
     1391   01 01247    EA6003C3              #HTECON  X3
            01 01248    00000003 A
     1392   01 01249    32C015A8              LW,R12   SPACES            UPDATE EM PARAMETER IN J-LINE.
     1393   01 0124A    326C0001 A            LW,X6    1,X6
     1394   01 0124B    22300002 A            LI,X3    2
     1395   01 0124C    7566000C A            STB,X6    R12,X3
     1396   01 0124D    35C01386              STW,R12  JOUT+6
     1397   01 0124E    22300000 A   EXIT:EM  LI,X3    0
     1398   01 0124F    68001251              B        %+2
     1399   01 01250    20300001 A            AI,X3    1
     1400   01 01251    35301258              STW,X3   EM:CNT
     1401   01 01252    6800107B              B        AUTOTEST
     1402                            *
     1403   01 01253    00000000 A            DATA     0
     1404   01 01254    FFFFFFFC A            DATA     -4
     1405   01 01255    00000000 A            DATA     0
     1406   01 01256    FFFFFFFD A            DATA     -3
     1407   01 01257    FFFFFFFF A   EM:LIST  DATA     -1
     1408                            *
     1409   01 01258    00000000 A   EM:CNT   DATA     0
     1410   01 01259    00000000 A   EM:FLG   DATA     0
     1411   01 0125A    00000000 A   EM       DATA     0
     1412   01 0125B    0F00126C     CIXPSD   XPSD,0   CI:PROC
     1413   01 0125C    3310125D     CIMTW    MTW,1    CICOUNT
     1414   01 0125D    00000000 A   CICOUNT  DATA     0
     1415                            *
     1416         01 0125E           LSTSERVO EQU      %
     1417   01 0125E    22700001 A            LI,X7    1                 LIST SERVO, SERVOS THE LIST
     1418   01 0125F    22A01ABC              LI,R10   LIST              POINTER TO THE MODULE
     1419   01 01260    35A003F3              STW,R10  LISTPTR           SPECIFIED BY MCR:NUM.  IT
     1420   01 01261    317003F2              CW,X7    MCR:NUM           IS USED BY THE ADV:PTR
     1421   01 01262    68301267              BCR,3    %+5               ROUTINE AND THE DISPLAY
     1422   01 01263    F290000A A            LB,R9    *R10              LIST ROUTINE(DL).
     1423   01 01264    30A00009 A            AW,R10   R9
     1424   01 01265    20700001 A            AI,X7    1
     1425   01 01266    68001260              B        LSTSERVO+2        IT IS ALSO USED BY THE
     1426   01 01267    32801275              LW,R8    KL:FLG            K-LINE WHEN A DIFFERENT
     1427   01 01268    E930000F A            BCS,3    *R15              MCR IS SPECIFIED.
     1428   01 01269    22800000 A            LI,R8    0
     1429   01 0126A    680C0000 A            B        0,X6
     1430                            *
     1431                                     BOUND    8                 THIS IS THE COUNTER ZERO
     1432   01 0126C    00000000 A   CI:PROC  DATA     0                 INTERRUPT PROCESSOR.  THE
     1433   01 0126D    00000000 A            DATA     0                 RIGHT HEX DIGTI OF CI:PROC
     1434   01 0126E    00001270              DATA     %+2               IS OUTPUT ON ERROR AND
     1435   01 0126F    04000000 A            DATA     X'04000000'       STATUS MESSAGES UNDER THE
     1436   01 01270    0E30126C              LPSD,3   CI:PROC           CI HEADER.
     1437                            *
     1438   01 01271    00000000 A   ZERO     DATA     0
     1439   01 01272    00000000 A   PASS:OK  DATA     0
     1440   01 01273    00000001 A   PASS:CNT DATA     1
     1441   01 01274    0000000A A   PASS:LIM DATA     10
     1442   01 01275    00000000 A   KL:FLG   DATA     0
     1443                            *
     1444         01 01276           VM:CM    EQU      %
     1445   01 01276    32801385              LW,R8    JOUT+5            EXIT CLOCK MARGIN IF JOUT
     1446   01 01277    31801297              CW,R8    X40C3             INDICATES CM IS FIXED.
     1447   01 01278    682C0000 A            BLE      0,X6              CM IS NOT FIXED - GO SET MARGINS
     1448   01 01279    6C400045 A            RD,X4    X'45'             TEST THE VOLTAGE NOT NORMAL
     1449   01 0127A    4B40129B              AND,X4   VM:MSK            BIT IN THE MARGIN CONTROL
     1450   01 0127B    E8200006 A            BCR,2    *X6               WORD. IF ANY SUPPLY IS NOT
     1451   01 0127C    22400002 A            LI,X4    2                 IN THE NORMAL POSITION BIT 11
     1452   01 0127D    72201292              LB,X2    MAR:SET-1         WILL BE LOW.  THIS INHIBITS
     1453   01 0127E    32A41293              LW,R10   MAR:SET,X2        THE PROGRAM FROM SETTING
     1454   01 0127F    6C800045 A            RD,R8    X'45'             CLOCK MARGINS.
     1455   01 01280    4B801298              AND,R8   NEW:CM
     1456   01 01281    3580129E              STW,R8   CM:OFF
     1457   01 01282    75A81385              STB,R10  JOUT+5,X4         STORE NEW CM IN JOUT
     1458   01 01283    4BA0129A              AND,R10  MSK:CM            REMOVE EBCDIC FROM MAR:SET IN R10
     1459   01 01284    3080129C              AW,R8    LO:MSK
     1460   01 01285    3580129F              STW,R8   CM:LO             SET UP CM:LO FOR USE IN
     1461   01 01286    4B801298              AND,R8   NEW:CM
     1462   01 01287    4880000A A   EXIT:MAR EOR,R8   R10               SNAPPING ANY MULTIPLY
     1463   01 01288    358012A0              STW,R8   CM:SAV            INSTRUCTION.
     1464   01 01289    22400000 A            LI,X4    0                 SET UP CM:ON WITH LATEST
     1465   01 0128A    35401272              STW,X4   PASS:OK           MARGIN SETTING.  CM:ON IS
     1466   01 0128B    35401296              STW,X4   MAR:FLG           USED JUST PRIOR TO LOC.
     1467   01 0128C    20200001 A            AI,X2    1                 CM:OFF IS USED JUST AFTER
     1468   01 0128D    21200003 A            CI,X2    3                 LOC.
     1469   01 0128E    69101290              BL       %+2
     1470   01 0128F    22200000 A            LI,X2    0
     1471   01 01290    75201292              STB,X2   MAR:SET-1
     1472   01 01291    E8000006 A            B        *X6
     1473                            *
     1474   01 01292    00000000 A            DATA     0                 CM
     1475   01 01293    0000F0F0 A   MAR:SET  M        0,0,0,0,0,X'F0',X'F0'
     1476   01 01294    0040F0F1 A            M        0,0,0,1,0,X'F0',X'F1'
     1477   01 01295    0480F1F2 A            M        0,1,0,2,0,X'F1',X'F2'
     1478                            *
     1479   01 01296    00000000 A   MAR:FLG  DATA     0
     1480   01 01297    4040C340 A   X40C3    DATA     X'4040C340'
     1481   01 01298    FF3FFFFF A   NEW:CM   DATA     X'FF3FFFFF'
     1482   01 01299    F33FFFFF A   NEW:MSK  DATA     X'F33FFFFF'
     1483   01 0129A    00C00000 A   MSK:CM   DATA     X'0C00000'
     1484   01 0129B    00100000 A   VM:MSK   DATA     X'100000'
     1485   01 0129C    00800000 A   LO:MSK   DATA     X'00800000'
     1486   01 0129D    00000000 A   CM:ON    DATA     0
     1487   01 0129E    00000000 A   CM:OFF   DATA     0
     1488   01 0129F    00800000 A   CM:LO    DATA     X'00800000'
     1489   01 012A0    00000000 A   CM:SAV   DATA     0
     1490                            *
     1491                            *    THE CALLING SEQUENCE TO USE FORM:ESM IS AS FOLLOWS:
     1492                            *
     1493                            *        LI,R14   MSG:LST
     1494                            *        LI,R12   71
     1495                            *        STB,R12  MSG:CNT
     1496                            *        LI,R12   18
     1497                            *        STW,R12  WRD:CNT
     1498                            *        BAL,R15  FORM:ESM
     1499                            *
     1500   01 012A1    00000000 A            DATA     0
     1501         01 012A2           FORM:ESM EQU      %                 THIS CODE IS ENTERED FROM
     1502   01 012A2    35F012A1              STW,R15  %-1               CONT:FTE, FUNCT. TEST ERR
     1503   01 012A3    22700000 A            LI,X7    0                 EXIT.  A LIST OF CONTROL
     1504   01 012A4    B2CE000E A            LW,R12   *R14,X7           WORDS, MSG:LST, CAUSE
     1505   01 012A5    681012AB              BCR,1    BALNORM           BALNORM TO BAL OUT TO THE
     1506   01 012A6    B2C0000C A            LW,R12   *R12              FETCHING SUBROUTINES TO
     1507   01 012A7    6AF01371              BAL,R15  DHEX:CON          SET UP THE ERROR STATUS
     1508   01 012A8    35DE15AC              STW,R13  OUTBUF,X7         MESSAGE.  IF THE MSG:LST
     1509   01 012A9    20700001 A            AI,X7    1                 WORD IS NEG. IT CONTAINS
     1510   01 012AA    680012AC              B        %+2               THE WORD TO BE CONVERTED.
     1511   01 012AB    EAF0000C A   BALNORM  BAL,R15  *R12
     1512   01 012AC    35CE15AC              STW,R12  OUTBUF,X7
     1513   01 012AD    20700001 A            AI,X7    1
     1514   01 012AE    31701309              CW,X7    WRD:CNT
     1515   01 012AF    683012B1              BCR,3    %+2
     1516   01 012B0    680012A4              B        FORM:ESM+2
     1517   01 012B1    72C0130A              LB,R12   MSG:CNT
     1518   01 012B2    75C015AC              STB,R12  OUTBUF
     1519   01 012B3    E80012A1              B        *FORM:ESM-1
     1520                            *
     1521                            ESM:HEDR TEXTCS   'MOD EL TESTINST E/P PAS EM MNEM FAILED ',;
     1522         01 012B4             'EXPECTED CM OBSERVED CI DIFF=EOR'
     1523                            *
     1524   01 012C6    B2C003F3     ESM:MOD  LW,R12   *LISTPTR          FETCH MODULE NO. FROM MODULE
     1525   01 012C7    EA6003C3              #HTECON  R12
            01 012C8    0000000C A
     1526   01 012C9    32CC0001 A            LW,R12   1,X6
     1527   01 012CA    4BC015C2              AND,R12  LS:MSK
     1528   01 012CB    E800000F A            B        *R15
     1529                            *
     1530         01 012CC           ESM:EL   EQU      %                 FETCH ELEMENT # FROM MODULE
     1531   01 012CC    22200001 A            LI,X2    1
     1532   01 012CD    F2C403F3              LB,R12   *LISTPTR,X2
     1533   01 012CE    222FFFFC A            LI,X2    -4
     1534   01 012CF    30C0000C A            AW,R12   R12
     1535   01 012D0    652012CF              BIR,X2   %-1
     1536   01 012D1    EA6003C3              #HTECON  R12               EBCDIC AND HOLD IN R12.
            01 012D2    0000000C A
     1537   01 012D3    32CC0001 A            LW,R12   1,X6
     1538   01 012D4    4BC01353              AND,R12  EL:MSK1
     1539   01 012D5    E800000F A            B        *R15
     1540                            *
     1541   01 012D6    22200001 A   ESM:MNEM LI,X2    1                 FETCH MNEMONIC FROM LIST.
     1542   01 012D7    B25403F3              LW,X5    *LISTPTR,X2
     1543   01 012D8    72500005 A            LB,X5    X5
     1544   01 012D9    4B5015C1              AND,X5   CON7F
     1545   01 012DA    32CA1600              LW,R12   MNEMLIST,X5       AND HOLD IN R12.
     1546   01 012DB    E800000F A            B        *R15
     1547                            *
     1548   01 012DC    32C015C4     ESM:ERRS LW,R12   ERR:CNT           FETCH THE ERROR COUNTER, CONVERT
     1549   01 012DD    EA6003C3              #HTECON  R12
            01 012DE    0000000C A
     1550   01 012DF    32CC0001 A            LW,R12   1,X6
     1551   01 012E0    4BC015C2              AND,R12  LS:MSK
     1552   01 012E1    E800000F A            B        *R15
     1553                            *
     1554   01 012E2    32C01273     ESM:PASS LW,R12   PASS:CNT          FETCH THE PASS COUNTER, CONVERT
     1555   01 012E3    EA6003C3              #HTECON  R12
            01 012E4    0000000C A
     1556   01 012E5    32CC0001 A            LW,R12   1,X6
     1557   01 012E6    4BC015C2              AND,R12  LS:MSK
     1558   01 012E7    E800000F A            B        *R15
     1559                            *
     1560   01 012E8    3220129D     ESM:CM   LW,X2    CM:ON             FETCH CLOCK MARGIN THAT
     1561   01 012E9    30200002 A            AW,X2    X2                WAS SAVED AT LOC EXIT.
     1562   01 012EA    30200002 A            AW,X2    X2
     1563   01 012EB    72200002 A            LB,X2    X2
     1564   01 012EC    4B2012FB              AND,X2   THREE             PUT * BEFORE SETTING IF
     1565   01 012ED    32C01385              LW,R12   JOUT+5            IT DISAGREES WITH EXP.
     1566   01 012EE    31C412F4              CW,R12   CM:TSTA,X2        SETTING.
     1567   01 012EF    E830000F A            BCR,3    *R15
     1568   01 012F0    22600002 A            LI,X6    2
     1569   01 012F1    752C000C A            STB,X2   R12,X6
     1570   01 012F2    49C012F7              OR,R12   ASTR:MSK
     1571   01 012F3    E800000F A            B        *R15
     1572                            *
     1573   01 012F4    4040F040 A   CM:TSTA  DATA     X'4040F040'
     1574   01 012F5    4040F140 A            DATA     X'4040F140'
     1575   01 012F6    4040F240 A            DATA     X'4040F240'
     1576   01 012F7    405CF040 A   ASTR:MSK DATA     X'405CF040'
     1577                            *
     1578   01 012F8    4040C140 A   CM:TSTB  DATA     X'4040C140'
     1579   01 012F9    4040C240 A            DATA     X'4040C240'
     1580   01 012FA    4040C340 A            DATA     X'4040C340'
     1581   01 012FB    00000003 A   THREE    DATA     3
     1582                            *
     1583   01 012FC    32C01386     ESM:EM   LW,R12   JOUT+6
     1584   01 012FD    E800000F A            B        *R15
     1585                            *
     1586         01 012FE           ESM:CI   EQU      %
     1587   01 012FE    3260126C              LW,X6    CI:PROC
     1588   01 012FF    69301302              BCS,3    %+3
     1589   01 01300    22600040 A            LI,X6    X'40'
     1590   01 01301    68001305              B        %+4
     1591   01 01302    EA6003C3              #HTECON  CI:PROC           CONVERT RIGHT HEX DIGIT
            01 01303    0000126C
     1592   01 01304    326C0001 A            LW,X6    1,X6              OF CI:PROC AND PUT IT
     1593   01 01305    22200001 A            LI,X2    1                 IN FRONT OF CURRENT
     1594   01 01306    32C01387              LW,R12   JOUT+7            SETTING IF CI IN ERROR
     1595   01 01307    7564000C A            STB,X6   R12,X2            AND STATUS MESSAGES.
     1596   01 01308    E800000F A            B        *R15
     1597                            *
     1598   01 01309    00000000 A   WRD:CNT  DATA     0
     1599   01 0130A    00000000 A   MSG:CNT  DATA     0
     1600   01 0130B    000012C6     MSG:LST  DATA     ESM:MOD           0 <<< WORD POSITION IN OUTBUF FOR
     1601   01 0130C    000012CC              DATA     ESM:EL            1
     1602   01 0130D    FF001148              GEN,8,24 -1,LOC            2,3
     1603   01 0130E    00000000 A            DATA     0
     1604   01 0130F    000012DC              DATA     ESM:ERRS          4
     1605   01 01310    000012E2              DATA     ESM:PASS          5     THESE ARE SUBROUTINE
     1606   01 01311    000012FC              DATA     ESM:EM            6     ADDRESSES THAT ARE USED BY
     1607   01 01312    000012D6              DATA     ESM:MNEM          7
     1608   01 01313    0000131C              DATA     ESM:FAIL          8     FORM:MSG TO STUFF OUTBUF.
     1609   01 01314    0000131F              DATA     ESM:FAIL1         9
     1610   01 01315    FF000009 A            GEN,8,24 -1,R9             10,11
     1611   01 01316    00000000 A            DATA     0
     1612   01 01317    000012E8              DATA     ESM:CM            12
     1613   01 01318    FF00000A A            GEN,8,24 -1,R10            13,14
     1614   01 01319    00000000 A            DATA     0
     1615   01 0131A    000012FE              DATA     ESM:CI            15
     1616   01 0131B    FF00000B A            GEN,8,24 -1,R11            16,17
     1617                            *
     1618   01 0131C    72200008 A   ESM:FAIL LB,X2    R8                FETCH IDENTIFIER FLAG FROM 1ST
     1619   01 0131D    32C41332              LW,R12   FAIL:ID,X2        BYTE OF R8.  USE AS INDEX TO
     1620   01 0131E    E800000F A            B        *R15              FETCH EBCDIC RELATED
     1621                            *                                   TO FAILING ITEM.
     1622   01 0131F    72200008 A   ESM:FAIL1 LB,X2   R8
     1623   01 01320    4B8015DC              AND,R8   ADR:MSK
     1624   01 01321    21200006 A            CI,X2    6
     1625   01 01322    6910132A              BL       CHECK5
     1626   01 01323    EA6003C3              #HTECON  R8
            01 01324    00000008 A
     1627   01 01325    32C015A8              LW,R12   SPACES
     1628   01 01326    322C0001 A            LW,X2    1,X6
     1629   01 01327    22500002 A            LI,X5    2
     1630   01 01328    752A000C A            STB,X2   R12,X5
     1631   01 01329    E800000F A            B        *R15
     1632                            *
     1633   01 0132A    32500008 A   CHECK5   LW,X5    R8
     1634   01 0132B    4B5015A9              AND,X5   ONE
     1635   01 0132C    21200005 A            CI,X2    5
     1636   01 0132D    6930132F              BCS,3    %+2
     1637   01 0132E    20500001 A            AI,X5    1
     1638   01 0132F    32CA133B              LW,R12   ID:EL,X5
     1639   01 01330    E800000F A            B        *R15
     1640                            *
     1641   01 01331    40D4C5D4 A            TEXT     ' MEM'
     1642   01 01332    5C5C5C5C A   FAIL:ID  TEXT     '****'
     1643   01 01333    40D3D6C3 A            TEXT     ' LOC'
     1644   01 01334    40D7E2C4 A            TEXT     ' PSD'
     1645   01 01335    40C9C140 A            TEXT     ' IA '
     1646   01 01336    40C9C4E7 A            TEXT     ' IDX'
     1647   01 01337    40D7E2E6 A            TEXT     ' PSW'
     1648   01 01338    40D9C5C7 A            TEXT     ' REG'
     1649   01 01339    40D4C5D4 A            TEXT     ' MEM'
     1650         01 0133A           TXT:PTR  EQU      %
     1651                            *
     1652   01 0133A    40F37E40 A            TEXT     ' 3= '
     1653   01 0133B    4040F040 A   ID:EL    TEXT     '  0 '
     1654   01 0133C    4040F140 A            TEXT     '  1 '
     1655   01 0133D    4040F240 A            TEXT     '  2 '
     1656                            *
     1657   01 0133E    32C015A8     ESM:NULL LW,R12   SPACES
     1658   01 0133F    E800000F A            B        *R15
     1659                            *
     1660   01 01340    FFFFFFFE A   MINUS2   DATA     -2
     1661   01 01341    03000000 A   CNT:P3   DATA     X'03000000'
     1662   01 01342    000000EF A   OUT:IDX  DATA     X'EF'
     1663   01 01343    00000000 A   IDX:FLG  DATA     0
     1664   01 01344    00000000 A   DCMEM    DATA     0
     1665   01 01345    000E0000 A   IDX:MSK  DATA     X'E0000'
     1666   01 01346    40F07E40 A   IDX:EQ   DATA     X'40F07E40'
     1667   01 01347    00F00000 A   REG:MSK  DATA     X'F00000'
     1668   01 01348    40400040 A   REG:SP   DATA     X'40400040'
     1669   01 01349    4040FE40 A   NEG2MSK  DATA     X'4040FE40'
     1670   01 0134A    00000000 A            DATA     0
     1671   01 0134B    00000000 A            DATA     0
     1672         01 0134C           REGN     EQU      %
     1673                            *
     1674   01 0134C    00000000 A   SN:OEPTR DATA     0
     1675   01 0134D    00000000 A   IO34IDX  DATA     0
     1676   01 0134E    00000000 A   IO78IDX  DATA     0
     1677   01 0134F    00000000 A   IOBCIDX  DATA     0
     1678   01 01350    00000000 A   IOFGIDX  DATA     0
     1679   01 01351    00000000 A   PASS:ERR DATA     0
     1680   01 01352    FFF80000 A   FLAG:MSK DATA     X'FFF80000'
     1681   01 01353    40FFFF40 A   EL:MSK1  DATA     X'40FFFF40'
     1682                            *
     1683   01 01354    40D4D6C4 A   MODT     TEXT     ' MOD'
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE    9
A    1685   01 01355    00000000 A            DATA     0
     1686         01 01356           MOD:HDR  EQU      %                 THE MOD:HDR AND MOD:DATA
     1687   01 01356    35F01355              STW,R15  %-1               ROUTINES ARE USED DURING
     1688   01 01357    22700001 A            LI,X7    1                 OUTPUT OF SNAP DATA AND
     1689   01 01358    32C01354              LW,R12   MODT              BY THE 'DL' ROUTINE TO
     1690   01 01359    35C015AC              STW,R12  OUTBUF            PRESENT THE MODULE DATA
     1691   01 0135A    6AF012C6              BAL,R15  ESM:MOD           IN A SNAP HAEDER FORMAT.
     1692   01 0135B    35C015AD              STW,R12  OUTBUF+1
     1693   01 0135C    6AF012CC              BAL,R15  ESM:EL
     1694   01 0135D    35C015AE              STW,R12  OUTBUF+2
     1695   01 0135E    6AF012D6              BAL,R15  ESM:MNEM
     1696   01 0135F    35C015AF              STW,R12  OUTBUF+3          MOD:HDR OUTPUTS THE FIRST
     1697   01 01360    32C015A8              LW,R12   SPACES            LINE OF THE SNAP HEADER
     1698   01 01361    35C015B0              STW,R12  OUTBUF+4          BLOCK.
     1699   01 01362    B2CE03F3              LW,R12   *LISTPTR,X7
     1700   01 01363    6AF01371              BAL,R15  DHEX:CON
     1701   01 01364    35D015B1              STW,R13  OUTBUF+5
     1702   01 01365    35C015B2              STW,R12  OUTBUF+6
     1703   01 01366    32D01437              LW,R13   KOUT+4
     1704   01 01367    32C015A8              LW,R12   SPACES
     1705   01 01368    75D0000C A            STB,R13  R12
     1706   01 01369    35C015B4              STW,R12  OUTBUF+8
     1707   01 0136A    22C0001F A            LI,R12   31
     1708   01 0136B    75C015AC              STB,R12  OUTBUF
     1709                            *
     1710                            *
     1711   01 0136C    EA6003CD     PRNT:MOD #PRINT   OUTBUF,C2
            01 0136D    C20056B0 A
     1712   01 0136E    69301370              BCS,3    %+2
     1713   01 0136F    8F9003CA              XPSD,9   *#RUNADDR%
     1714   01 01370    E8001355              B        *MOD:HDR-1
     1715                            *
     1716         01 01371           DHEX:CON EQU      %                 DHEX:CON CONVERTS A WORD
     1717   01 01371    EA6003C3              #HTECON  R12               OF HEX IN TO 2 WORDS OF
            01 01372    0000000C A
     1718   01 01373    32DC0000 A            LW,R13   0,X6              EBCDIC.  R13 HAS HIGH
     1719   01 01374    32CC0001 A            LW,R12   1,X6              SIDE, R12 HAS LOW SIDE.
     1720   01 01375    E800000F A            B        *R15
     1721                            *
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE   10
A    1723         01 01376           JH       TEXTCS   ' MSGDEV  COMDEV  SI CM  EM  CI MIDEV'
     1724         01 01380           JOUT     TEXTCS   '   0002    0001 00A  0   0   1 0000'
     1725         01 01389           JINIT    TEXTCS   '   0002    0001 00A  0   0   1 0000'
     1726   01 01392    00004E00              DATA     BA(JOUT)
     1727   01 01393    00004DD8              DATA     BA(JH)
     1728                            *
     1729         01 01394           JRTA     EQU      %
     1730   01 01394    356013A0              STW,X6   JL:EXIT
     1731   01 01395    70200006 A            LC       X6
     1732   01 01396    E83003C9              BCR,3    *#FIDLE%          EXIT THIS ROUTINE IF NO
     1733                            *                                   CHANGES WERE MADE
     1734   01 01397    223FFFF8 A            LI,X3    -8
     1735   01 01398    32861389              LW,R8    JOUT+9,X3
     1736   01 01399    31861AAF              CW,R8    PLINEIN+9,X3      USE JP:LST TO ENTER ONLY
     1737   01 0139A    6830139E              BCR,3    %+4               THOSE SUBROUTINES IN
     1738   01 0139B    B2C613A9              LW,R12   *JP:LST,X3        WHICH PARAMETER CHANGES
     1739   01 0139C    6910139E              BCS,1    %+2               WERE MADE BY THE USER.
     1740   01 0139D    EAF0000C A            BAL,R15  *R12
     1741   01 0139E    65301398              BIR,X3   %-6
     1742   01 0139F    E80003C9              B        *#FIDLE%
     1743                            *
     1744   01 013A0    00000000 A   JL:EXIT  DATA     0
     1745                            *
     1746   01 013A1    010013AA              D        1,MSG:C           ARRANGED IN A 1 TO 1
     1747   01 013A2    FF000000 A            D        -1,0              CORRESPONDENCE WITH THE
     1748   01 013A3    020013BB              D        2,COM:C           COMPUTER WORDS IN THE
     1749   01 013A4    030013C4              D        3,SI:C            J-PARAMETER LINE.  NEG.
     1750   01 013A5    040013CD              D        4,CM:C            ENTRIES ARE SPACE FIELDS
     1751   01 013A6    050013E3              D        5,EM:C            IN THE J-LINE.
     1752   01 013A7    060013FA              D        6,CI:C
     1753   01 013A8    0700140A              D        7,MI:C
     1754   01 013A9    000013A9     JP:LST   DATA     %
     1755                            *
     1756         01 013AA           MSG:C    EQU      %
     1757   01 013AA    EA6003C2              #ETHCON,4 PLINEIN+1
            01 013AB    04006A9C
     1758   01 013AC    CD000006 A            TIO,0    *X6
     1759   01 013AD    688013B1              BCR,8    MSG:OK
     1760   01 013AE    EA6003CC              #TYPE    NODEV
            01 013AF    00004ED4 A
     1761   01 013B0    6800142C              B        ERR:RETJ
     1762   01 013B1    35600397     MSG:OK   STW,X6   #PRTADDR
     1763   01 013B2    32601AA7              LW,X6    PLINEIN+1
     1764   01 013B3    35601381              STW,X6   JOUT+1
     1765   01 013B4    E800000F A            B        *R15
     1766                            *
     1767         01 013B5           NODEV    TEXTCS   'DEVICE NOT AVAILABLE'
     1768                            *
     1769         01 013BB           COM:C    EQU      %
     1770   01 013BB    EA6003C2              #ETHCON,4 PLINEIN+3
            01 013BC    04006AA4
     1771   01 013BD    CD000006 A            TIO,0    *X6
     1772   01 013BE    688013C0              BCR,8    %+2
     1773   01 013BF    6800142C              B        ERR:RETJ
     1774   01 013C0    35600396              STW,X6   #TOADDR
     1775   01 013C1    32601AA9              LW,X6    PLINEIN+3
     1776   01 013C2    35601383              STW,X6   JOUT+3
     1777   01 013C3    E800000F A            B        *R15
     1778                            *
     1779         01 013C4           SI:C     EQU      %
     1780   01 013C4    EA6003C2              #ETHCON,3 PLINEIN+4,1
            01 013C5    03006AA9
     1781   01 013C6    486015CF              EOR,X6   ONES
     1782   01 013C7    20600001 A            AI,X6    1
     1783   01 013C8    356013CC              STW,X6   SI
     1784   01 013C9    32601AAA              LW,X6    PLINEIN+4
     1785   01 013CA    35601384              STW,X6   JOUT+4
     1786   01 013CB    E800000F A            B        *R15
     1787                            *
     1788   01 013CC    FFFFFFF6 A   SI       DATA     -10
     1789                            *
     1790         01 013CD           CM:C     EQU      %
     1791   01 013CD    EA6003C2              #ETHCON,1 PLINEIN+5,2
            01 013CE    01006AAE
     1792   01 013CF    21600003 A            CI,X6    3
     1793   01 013D0    691013D7              BL       SEQ:MAR
     1794   01 013D1    21600009 A            CI,X6    9
     1795   01 013D2    692013D4              BG       %+2
     1796   01 013D3    6800142C              B        ERR:RETJ
     1797   01 013D4    2160000D A            CI,X6    13
     1798   01 013D5    691013D7              BL       %+2
     1799   01 013D6    6800142C              B        ERR:RETJ
     1800   01 013D7    6C800045 A   SEQ:MAR  RD,R8    X'45'
     1801   01 013D8    4B801298              AND,R8   NEW:CM
     1802   01 013D9    326C13D6              LW,X6    CM:VALU,X6
     1803   01 013DA    48800006 A            EOR,R8   X6
     1804   01 013DB    358012A0              STW,R8   CM:SAV
     1805   01 013DC    3580129D              STW,R8   CM:ON
     1806   01 013DD    32601AAB              LW,X6    PLINEIN+5
     1807   01 013DE    35601385              STW,X6   JOUT+5
     1808   01 013DF    E800000F A            B        *R15
     1809                            *
     1810         01 013D6           CM:VALU  EQU      %-10
     1811   01 013E0    00000000 A            M        0,0,0,0,0,0,0
     1812   01 013E1    00400000 A            M        0,0,0,1,0,0,0
     1813   01 013E2    00800000 A            M        0,0,0,2,0,0,0
     1814                            *
     1815         01 013E3           EM:C     EQU      %
     1816   01 013E3    EA6003C2              #ETHCON,1 PLINEIN+6,2
            01 013E4    01006AB2
     1817   01 013E5    22800000 A            LI,R8    0
     1818   01 013E6    21600004 A            CI,X6    4
     1819   01 013E7    691013EE              BL       SEQ:EM
     1820   01 013E8    21600009 A            CI,X6    9
     1821   01 013E9    6820142C              BLE      ERR:RETJ
     1822   01 013EA    2160000E A            CI,X6    14
     1823   01 013EB    6810142C              BGE      ERR:RETJ
     1824   01 013EC    206FFFF6 A            AI,X6    -10
     1825   01 013ED    228FFFFF A            LI,R8    -1
     1826   01 013EE    35801259     SEQ:EM   STW,R8   EM:FLG
     1827   01 013EF    486015CF              EOR,X6   ONES
     1828   01 013F0    20600001 A            AI,X6    1
     1829   01 013F1    326C13F9              LW,X6    EM:VALU,X6
     1830   01 013F2    3560125A              STW,X6   EM
     1831   01 013F3    32601AAC              LW,X6    PLINEIN+6
     1832   01 013F4    35601386              STW,X6   JOUT+6
     1833   01 013F5    E800000F A            B        *R15
     1834                            *
     1835   01 013F6    FFFFFFFC A            DATA     -4
     1836   01 013F7    FFFFFFFD A            DATA     -3
     1837   01 013F8    FFFFFFFF A            DATA     -1
     1838   01 013F9    00000000 A   EM:VALU  DATA     0
     1839                            *
     1840         01 013FA           CI:C     EQU      %
     1841   01 013FA    EA6003C2              #ETHCON,1 PLINEIN+7,2
            01 013FB    01006AB6
     1842   01 013FC    32600006 A            LW,X6    X6
     1843   01 013FD    68301401              BCR,3    %+4
     1844   01 013FE    21600001 A            CI,X6    1
     1845   01 013FF    68301404              BCR,3    %+5
     1846   01 01400    6800142C              B        ERR:RETJ
     1847   01 01401    22600000 A            LI,X6    0
     1848   01 01402    35601161              STW,X6   CI:CNT
     1849   01 01403    68001405              B        %+2
     1850   01 01404    2260E390 A            LI,X6    X'E390'
     1851   01 01405    35601409              STW,X6   CI:SAV
     1852   01 01406    32601AAD              LW,X6    PLINEIN+7
     1853   01 01407    35601387              STW,X6   JOUT+7
     1854   01 01408    E800000F A            B        *R15
     1855                            *
     1856   01 01409    0000E390 A   CI:SAV   DATA     X'E390'
     1857                            *
     1858         01 0140A           MI:C     EQU      %
     1859   01 0140A    EA6003C2              #ETHCON,4 PLINEIN+8                                        *G02
            01 0140B    04006AB8
     1860   01 0140C    CF00141E              HIO,R0   *MI:ADR
     1861   01 0140D    CF000006 A            HIO,0    *X6
     1862   01 0140E    CD000006 A            TIO,0    *X6
     1863   01 0140F    68C01413              BCR,12   %+4
     1864   01 01410    EA6003CC              #TYPE    ERMSG8
            01 01411    0000507C A
     1865   01 01412    E800000F A            B        *R15
     1866   01 01413    22000A0D              LI,R0    DA(TIC)
     1867   01 01414    CC000006 A            SIO,R0   *X6
     1868   01 01415    3560141E              STW,X6   MI:ADR
     1869   01 01416    32601AAE              LW,X6    PLINEIN+8
     1870   01 01417    35601388              STW,X6   JOUT+8
     1871   01 01418    E800000F A            B        *R15
     1872                            *
     1873                                     BOUND    8
     1874   01 0141A    010041EC     TIC      J        1,AUTOTEST
     1875   01 0141B    20000B0C A            I        2,(ESM:NULL-AUTOTEST)**2
     1876   01 0141C    08000A0D              D        8,DA(TIC)
     1877   01 0141D    00000000 A            I        0
     1878                            *
     1879   01 0141E    00000000 A   MI:ADR   DATA     X'0000'
     1880                            ERMSG8   TEXTCS   ;
     1881         01 0141F            'NO RECOGNITION FROM MEMORY INTERFERRENCE ADDRESS'
     1882                            *
     1883   01 0142C    B26613A9     ERR:RETJ LW,X6    *JP:LST,X3
     1884   01 0142D    72600006 A            LB,X6    X6
     1885   01 0142E    E80013A0              B        *JL:EXIT
     1886                            *
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE   11
A    1888                            *
     1889         01 0142F           KH       TEXTCS   'MST MSP MCR  LC'
     1890         01 01433           KOUT     TEXTCS   '001 000 001  00'
     1891         01 01437           KINIT    TEXTCS   '001 000 001  00'
     1892                            *
     1893   01 0143B    000050CC              DATA     BA(KOUT)
     1894   01 0143C    000050BC              DATA     BA(KH)
     1895         01 0143D           KRTA     EQU      %
     1896   01 0143D    356014AF              STW,X6   KL:EXIT
     1897   01 0143E    70200006 A            LC       X6
     1898   01 0143F    E83003C9              BCR,3    *#FIDLE%
     1899   01 01440    223FFFFC A            LI,X3    -4                  !EXIT!  IF NOT,COMPARE THE ELEMENT
     1900   01 01441    22800010 A            LI,R8    X'10'             OF KOUT AND PLINEIN  TO PROCESS ALL
     1901   01 01442    75801471              STB,R8   NEW:MST           THOSE NOT COMPARING.  RESET NEW:MST.
     1902   01 01443    32861437              LW,R8    KOUT+4,X3          NEW:MST WILL BE SET IN MST:C IF A
     1903   01 01444    31861AAA              CW,R8    PLINEIN+4,X3       NEW STARTING ADDRESS HAS BEEN
     1904   01 01445    68301448              BCR,3    %+3                REQUESTED.
     1905   01 01446    32C6145E              LW,R12   KP:LST,X3            MOVE PLINEIN  INTO KOUT
     1906   01 01447    EAF0000C A            BAL,R15  *R12
     1907   01 01448    65301443              BIR,X3   %-5
     1908   01 01449    328003F1              LW,R8    MSP:NUM
     1909   01 0144A    318003F0              CW,R8    MST:NUM
     1910   01 0144B    6810144E              BGE      %+3
     1911   01 0144C    223FFFF8 A            LI,X3    -8
     1912   01 0144D    6800149D              B        ERR:RET
     1913   01 0144E    22FFFFFF A            LI,R15   -1
     1914   01 0144F    35F01275              STW,R15  KL:FLG
     1915   01 01450    6AF0125E              BAL,R15  LSTSERVO          SERVO LIST POINTER TO
     1916   01 01451    22F00000 A            LI,R15   0                 THE SELECTED MODULE(MCR)
     1917   01 01452    35F01275              STW,R15  KL:FLG
     1918   01 01453    35F015C6              STW,R15  FTFL
     1919   01 01454    70301471     GIDLE    LCF      NEW:MST
     1920   01 01455    EA6003C9              BAL,X6   *#FIDLE%           ADDRESS AT RESTART IF REQUESTED.
     1921   01 01456    00001458              DATA     RESTART
     1922                            *
     1923                                     BOUND    8
     1924   01 01458    0000107B     RESTART  DATA     START+2
     1925   01 01459    00000000 A            DATA     0
     1926                            *
     1927   01 0145A    01001460              D        1,MST:C
     1928   01 0145B    02001473              D        2,MSP:C
     1929   01 0145C    03001488              D        3,MCR:C
     1930   01 0145D    040014A0              D        4,LC:C
     1931   01 0145E    0000145E     KP:LST   DATA     %
     1932                            *
     1933   01 0145F    00000000 A            DATA     0
     1934         01 01460           MST:C    EQU      %
     1935   01 01460    35F0145F              STW,R15  %-1
     1936   01 01461    22600000 A            LI,X6    0
     1937   01 01462    35601471              STW,X6   NEW:MST
     1938   01 01463    EA6003C2              #ETHCON,3 PLINEIN,1
            01 01464    03006A99
     1939   01 01465    4B6015D2              AND,X6   MOD:MSK           VERIFY THAT THE NEW MST IS SMALLER
     1940   01 01466    6830149D              BCR,3    ERR:RET
     1941   01 01467    31601470              CW,X6    LST:NUM           THAN THE LAST MODULE NUMBER (+1).
     1942   01 01468    6920149D              BG       ERR:RET
     1943   01 01469    356003F2              STW,X6   MCR:NUM
     1944   01 0146A    356003F0              STW,X6   MST:NUM            SAVE VALID MST AT MST:NUM.
     1945   01 0146B    32901AA6              LW,R9    PLINEIN
     1946   01 0146C    35901433              STW,R9   KOUT
     1947   01 0146D    3090149C              AW,R9    MSB21
     1948   01 0146E    35901435              STW,R9   KOUT+2
     1949   01 0146F    E800145F              B        *MST:C-1
     1950                            *
     1951   01 01470    00000000 A   LST:NUM  DATA     0
     1952   01 01471    FFFFFFFF A   NEW:MST  DATA     -1
     1953                            *
     1954   01 01472    00000000 A            DATA     0
     1955         01 01473           MSP:C    EQU      %
     1956   01 01473    35F01472              STW,R15  %-1
     1957   01 01474    22600000 A            LI,X6    0
     1958   01 01475    35601471              STW,X6   NEW:MST
     1959   01 01476    EA6003C2              #ETHCON,3 PLINEIN+1,1      VERIFY THAT MSP IS SMALLER THAN THE
            01 01477    03006A9D
     1960   01 01478    4B6015D2              AND,X6   MOD:MSK           LAST MODULE NUMBER (+1). AND GREATER
     1961   01 01479    6830147C              BCR,3    %+3
     1962   01 0147A    216000F1 A            CI,X6    LAST:MOD
     1963   01 0147B    6920149D              BG       ERR:RET
     1964   01 0147C    316003F0              CW,X6    MST:NUM
     1965   01 0147D    6910149D              BL       ERR:RET
     1966   01 0147E    356003F1              STW,X6   MSP:NUM           SAVE VOLID MSP AT MSP:NUM.
     1967   01 0147F    32901AA7              LW,R9    PLINEIN+1
     1968   01 01480    35901434              STW,R9   KOUT+1
     1969   01 01481    32901433              LW,R9    KOUT
     1970   01 01482    3090149C              AW,R9    MSB21
     1971   01 01483    35901435              STW,R9   KOUT+2
     1972   01 01484    329003F0              LW,R9    MST:NUM
     1973   01 01485    359003F2              STW,R9   MCR:NUM
     1974   01 01486    E8001472              B        *MSP:C-1
     1975                            *
     1976   01 01487    00000000 A            DATA     0
     1977         01 01488           MCR:C    EQU      %
     1978   01 01488    35F01487              STW,R15  %-1
     1979   01 01489    22600000 A            LI,X6    0
     1980   01 0148A    35601471              STW,X6   NEW:MST
     1981   01 0148B    EA6003C2              #ETHCON,3 PLINEIN+2,1      IF MCR IS BEYOND THE RANGE OF
            01 0148C    03006AA1
     1982   01 0148D    4B6015D2              AND,X6   MOD:MSK           MST TO MSP SET IT EQUAL TO MST
     1983   01 0148E    316003F0              CW,X6    MST:NUM           AT SET:MCR.
     1984   01 0148F    69101496              BCS,1    SET:MCR
     1985   01 01490    316003F1              CW,X6    MSP:NUM
     1986   01 01491    69201496              BCS,2    SET:MCR
     1987   01 01492    356003F2              STW,X6   MCR:NUM
     1988   01 01493    32901AA8              LW,R9    PLINEIN+2
     1989   01 01494    35901435              STW,R9   KOUT+2
     1990   01 01495    E8001487              B        *MCR:C-1
     1991   01 01496    32901433     SET:MCR  LW,R9    KOUT              STARTING POINT.
     1992   01 01497    3090149C              AW,R9    MSB21             MSB21 IS A CONSTANT THAT ADJUSTS THE
     1993   01 01498    35901435              STW,R9   KOUT+2            KOUT BYTE COUNT TO A SPACE CODE X'40
     1994   01 01499    329003F0              LW,R9    MST:NUM
     1995   01 0149A    359003F2              STW,R9   MCR:NUM
     1996   01 0149B    E8001487              B        *MCR:C-1
     1997                            *
     1998   01 0149C    31000000 A   MSB21    DATA     X'31000000'       ADJUST X'0F' TO X'40'
     1999                            *
     2000   01 0149D    B266145E     ERR:RET  LW,X6    *KP:LST,X3
     2001   01 0149E    72600006 A            LB,X6    X6
     2002   01 0149F    E80014AF              B        *KL:EXIT
     2003                            *
     2004         01 014A0           LC:C     EQU      %
     2005   01 014A0    EA6003C2              #ETHCON,2  PLINEIN+3,2
            01 014A1    02006AA6
     2006   01 014A2    4B6014AD              AND,X6   HFF               LOOP COUNT.  THE NUMBER
     2007   01 014A3    486015CF              EOR,X6   ONES              OF TIMES THRU THE MODULE
     2008   01 014A4    20600001 A            AI,X6    1                 RANGE SPECIFIED BY
     2009   01 014A5    356014AE              STW,X6   LCNT              MST/MSP.
     2010   01 014A6    22600001 A            LI,X6    1
     2011   01 014A7    35601273              STW,X6   PASS:CNT
     2012   01 014A8    22600000 A            LI,X6    0
     2013   01 014A9    356015C4              STW,X6   ERR:CNT
     2014   01 014AA    32601AA9              LW,X6    PLINEIN+3
     2015   01 014AB    35601436              STW,X6   KOUT+3
     2016   01 014AC    E800000F A            B        *R15
     2017                            *
     2018   01 014AD    000000FF A   HFF      DATA     X'FF'
     2019   01 014AE    00000000 A   LCNT     DATA     0
     2020                            *
     2021   01 014AF    00000000 A   KL:EXIT  DATA     0
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE   12
A    2024                            *
     2025         01 014B0           DLTA     EQU      %
     2026   01 014B0    3260039C              LW,X6    #PARAM%H1         FIRST PARAMETER ENTERED.
     2027   01 014B1    68301547              BCR,3    BAD:PAR1
     2028   01 014B2    31601470              CW,X6    LST:NUM
     2029   01 014B3    69201547              BG       BAD:PAR1
     2030   01 014B4    3260039D              LW,X6    #PARAM%H2         SECOND PARAMETER ENTERED.
     2031   01 014B5    68301549              BCR,3    BAD:PAR2
     2032   01 014B6    31601470              CW,X6    LST:NUM
     2033   01 014B7    69201549              BG       BAD:PAR2
     2034   01 014B8    35600001 A            STW,X6   X1
     2035   01 014B9    EA6003CD              #PRINT   MSK:LST+7,F1      TOP OF FORM ONLY.
            01 014BA    F1005794 A
     2036   01 014BB    328003F3              LW,R8    LISTPTR           SAVE CURRENT LIST POINTER
     2037   01 014BC    35801544              STW,R8   LISTSAV           AND MCR SO THAT LISTSERVO
     2038   01 014BD    328003F2              LW,R8    MCR:NUM           ROUTINE CAN BE USED AS
     2039   01 014BE    35801545              STW,R8   MCR:SAV           A SUBROUTINE.
     2040   01 014BF    229FFFFF A            LI,R9    -1
     2041   01 014C0    35901275              STW,R9   KL:FLG
     2042   01 014C1    3280039C              LW,R8    #PARAM%H1
     2043   01 014C2    358003F2              STW,R8   MCR:NUM
     2044   01 014C3    31800001 A            CW,R8    X1
     2045   01 014C4    74001546              STCF     END:SW
     2046   01 014C5    481015CF              EOR,X1   ONES
     2047   01 014C6    70201546              LC       END:SW
     2048   01 014C7    682014CA              BCR,2    %+3
     2049   01 014C8    20100001 A            AI,X1    1
     2050   01 014C9    680014CB              B        %+2
     2051   01 014CA    30100008 A            AW,X1    R8
     2052   01 014CB    6AF0125E              BAL,R15  LSTSERVO
     2053   01 014CC    22800000 A            LI,R8    0
     2054   01 014CD    35801275              STW,R8   KL:FLG
     2055   01 014CE    35101546     NEXT:MOD STW,X1   END:SW
     2056   01 014CF    22A01198              LI,R10   AUTO:DL
     2057   01 014D0    6AF0108C              BAL,R15  MOVER
     2058   01 014D1    6AF010DC              BAL,R15  TRAP:SW
     2059   01 014D2    6AF01356              BAL,R15  MOD:HDR           USE MODULE HEADER ROUTINES
     2060   01 014D3    32101546              LW,X1    END:SW            OUTPUT.
     2061   01 014D4    F28003F3              LB,R8    *LISTPTR
     2062   01 014D5    308003F3              AW,R8    LISTPTR
     2063   01 014D6    358003F3              STW,R8   LISTPTR
     2064   01 014D7    651014CE              BIR,X1   NEXT:MOD
     2065                            *
     2066   01 014D8    32801544     EXIT:DL  LW,R8    LISTSAV           RESTORE LISTPTR AND MCR.
     2067   01 014D9    358003F3              STW,R8   LISTPTR
     2068   01 014DA    32801545              LW,R8    MCR:SAV
     2069   01 014DB    358003F2              STW,R8   MCR:NUM
     2070   01 014DC    E80003C9              B        *#FIDLE%
     2071                            *
     2072   01 014DD    00000000 A            DATA     0
     2073   01 014DE    00000000 A            DATA     0
     2074         01 014DF           STATMSGS  EQU     %
     2075   01 014DF    3560151F              STW,X6   STATEXIT          STATUS MESSAGE ROUTINE.
     2076   01 014E0    35C014DE              STW,R12  STATMSGS-1
     2077   01 014E1    35F014DD              STW,R15  STATMSGS-2        ENTERED FROM GUIDE IN
     2078                            *                                   RESPONSE TO AMPERSAND
     2079                            *                                   FROM READSTAT.  SEE TABLE3.
     2080   01 014E2    EA6003C5              BAL,R6   *#DISUSER%        DISABLE INTERRUPTS
     2081   01 014E3    32C01A88              LW,R12   AMPER%EXPL
     2082   01 014E4    B5C003CE              STW,R12  *#ERRTEXT%
     2083   01 014E5    32C00393              LW,R12   #HDRFLG
     2084   01 014E6    21C01532              CI,R12   AMP:HDR
     2085   01 014E7    683014EA              BCR,3    %+3
     2086   01 014E8    EA6003CD              #PRINT   AMP:HDR
            01 014E9    C00054C8 A
     2087   01 014EA    6AF012C6              BAL,R15  ESM:MOD           ENTERED FROM MST:INIT IF
     2088   01 014EB    35C01520              STW,R12  AMP:BUF           THE SI PARAMETER IS AN
     2089   01 014EC    6AF012CC              BAL,R15  ESM:EL            EVEN MULTIPLE OF THE
     2090   01 014ED    35C01521              STW,R12  AMP:BUF+1         PASS COUNT AND NOT =0.
     2091   01 014EE    EA6003C3              #HTECON  LOC
            01 014EF    00001148
     2092   01 014F0    32CC0000 A            LW,R12   0,X6              STATMSGS SHARES MOST OF
     2093   01 014F1    35C01522              STW,R12  AMP:BUF+2         THE SUBROUTINES USED BY
     2094   01 014F2    32CC0001 A            LW,R12   1,X6              THE FT ERROR MESSAGE.
     2095   01 014F3    35C01523              STW,R12  AMP:BUF+3
     2096   01 014F4    6AF012DC              BAL,R15  ESM:ERRS
     2097   01 014F5    35C01524              STW,R12  AMP:BUF+4
     2098   01 014F6    6AF012E2              BAL,R15  ESM:PASS
     2099   01 014F7    35C01525              STW,R12  AMP:BUF+5
     2100   01 014F8    32C01386              LW,R12   JOUT+6
     2101   01 014F9    35C01526              STW,R12  AMP:BUF+6
     2102   01 014FA    6AF012D6              BAL,R15  ESM:MNEM
     2103   01 014FB    35C01527              STW,R12  AMP:BUF+7
     2104   01 014FC    6AF012E8              BAL,R15  ESM:CM
     2105   01 014FD    35C01528              STW,R12  AMP:BUF+8
     2106   01 014FE    32C01433              LW,R12   KOUT
     2107   01 014FF    30C0149C              AW,R12   MSB21
     2108   01 01500    35C01529              STW,R12  AMP:BUF+9
     2109   01 01501    32C01434              LW,R12   KOUT+1
     2110   01 01502    35C0152A              STW,R12  AMP:BUF+10
     2111   01 01503    6AF012FE              BAL,R15  ESM:CI
     2112   01 01504    35C0152B              STW,R12  AMP:BUF+11
     2113   01 01505    EA6003C3              #HTECON  TOT:ERRS
            01 01506    00001077
     2114   01 01507    32CC0000 A            LW,R12   0,X6
     2115   01 01508    35C0152C              STW,R12  AMP:BUF+12
     2116   01 01509    32CC0001 A            LW,R12   1,X6
     2117   01 0150A    35C0152D              STW,R12  AMP:BUF+13
     2118   01 0150B    32C015A8              LW,R12   SPACES
     2119   01 0150C    35C0152E              STW,R12  AMP:BUF+14
     2120   01 0150D    35C0152F              STW,R12  AMP:BUF+15
     2121   01 0150E    B2C003CA              LW,R12   *#RUNADDR%
     2122   01 0150F    EA6003C3              #HTECON  R12
            01 01510    0000000C A
     2123   01 01511    32CC0000 A            LW,R12   0,X6
     2124   01 01512    35C01530              STW,R12  AMP:BUF+16
     2125   01 01513    32CC0001 A            LW,R12   1,X6
     2126   01 01514    35C01531              STW,R12  AMP:BUF+17
     2127   01 01515    22C00047 A            LI,R12   71
     2128   01 01516    75C01520              STB,R12  AMP:BUF
     2129   01 01517    EA6003CD              #PRINT   AMP:BUF
            01 01518    C0005480 A
     2130   01 01519    22C01532              LI,R12   AMP:HDR
     2131   01 0151A    35C00393              STW,R12  #HDRFLG
     2132   01 0151B    EA6003C6              BAL,R6   *#ENUSER%         ENABLE INTERRUPTS
     2133   01 0151C    32C014DE              LW,R12   STATMSGS-1
     2134   01 0151D    32F014DD              LW,R15   STATMSGS-2
     2135   01 0151E    E800151F              B        *STATEXIT
     2136                            *
     2137   01 0151F    00000000 A   STATEXIT DATA     0
     2138                            *
     2139         01 01520           AMP:BUF  EQU      %
     2145                            *
     2146                            AMP:HDR  TEXTCS  'MOD EL TESTINST E/P PAS EM MNEM ',;
     2147         01 01532                    'CM  MST MSP CI TOT:ERRS        PROGADDR'
     2148                            *
     2149   01 01544    00000000 A   LISTSAV  DATA     0
     2150   01 01545    00000000 A   MCR:SAV  DATA     0
     2151                            *
     2152   01 01546    00000000 A   END:SW   DATA     0
     2153   01 01547    3280154E     BAD:PAR1 LW,R8    TXTP1
     2154   01 01548    6800154A              B        %+2
     2155   01 01549    3280154F     BAD:PAR2 LW,R8    TXTP2
     2156   01 0154A    35801552              STW,R8   PAR:ERR+2
     2157   01 0154B    EA6003CD              #PRINT   PAR:ERR
            01 0154C    C0005540 A
     2158   01 0154D    E80003C9              B        *#FIDLE%
     2159                            *
     2160   01 0154E    40D7F140 A   TXTP1    TEXT     ' P1 '
     2161   01 0154F    40D7F240 A   TXTP2    TEXT     ' P2 '
     2162                            *
     2163         01 01550           PAR:ERR  TEXTCS   'INVALID P1 PARAMETER.'
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE   13
A    2165                            *
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE   14
A    2167                            *
     2168         01 01556           DRTA     EQU      %
     2169   01 01556    328003A2              LW,R8    #PARAM1
     2170   01 01557    69301566              BCS,3    DR:ERET           SEARCH MNEMONIC LIST WITH
     2171   01 01558    328003A3              LW,R8    #PARAM1+1         INPUT PARAMETER.
     2172   01 01559    69101560              BCS,1    PAR1:LJ
     2173   01 0155A    222FFFF8 A            LI,X2    -8
     2174   01 0155B    30800008 A            AW,R8    R8
     2175   01 0155C    6520155B              BIR,X2   %-1
     2176   01 0155D    20800040 A            AI,R8    X'40'
     2177   01 0155E    358003A3              STW,R8   #PARAM1+1
     2178   01 0155F    68001558              B        DRTA+2
     2179                            *
     2180   01 01560    221FFF80 A   PAR1:LJ  LI,X1    -128
     2181   01 01561    22200000 A            LI,X2    0
     2182   01 01562    31841600              CW,R8    MNEMLIST,X2
     2183   01 01563    6830156E              BCR,3    MNEM:X2
     2184   01 01564    20200001 A            AI,X2    1
     2185   01 01565    65101562              BIR,X1   PAR1:LJ+2
     2186   01 01566    EA6003CC     DR:ERET  #TYPE    MNEM:MSG
            01 01567    000055A4 A
     2187   01 01568    E80003C9              B        *#FIDLE%
     2188                            *
     2189   01 01569    10C9D5E5 A   MNEM:MSG TEXTC    'INVALID MNEMONIC'
            01 0156A    C1D3C9C4 A
            01 0156B    40D4D5C5 A
            01 0156C    D4D6D5C9 A
            01 0156D    C3404040 A
     2190                            *
     2191   01 0156E    22100004 A   MNEM:X2  LI,X1    4
     2192   01 0156F    328015A8              LW,R8    SPACES
     2193   01 01570    358015AC              STW,R8   OUTBUF
     2194   01 01571    22801ABC              LI,R8    LIST
     2195   01 01572    F2900008 A            LB,R9    *R8
     2196   01 01573    F2A20008 A            LB,R10   *R8,X1
     2197   01 01574    4BA015C1              AND,R10  CON7F
     2198   01 01575    31A00002 A            CW,R10   X2
     2199   01 01576    6830157B              BCR,3    %+5
     2200   01 01577    30800009 A            AW,R8    R9
     2201   01 01578    21802E0C              CI,R8    LASTMODULE
     2202   01 01579    68301566              BCR,3    DR:ERET
     2203   01 0157A    68001572              B        MNEM:X2+4
     2204                            *
     2205   01 0157B    B2C00008 A            LW,R12   *R8
     2206   01 0157C    EA6003C3              #HTECON  R12
            01 0157D    0000000C A
     2207   01 0157E    32CC0001 A            LW,R12   1,X6
     2208   01 0157F    223FFFF8 A            LI,X3    -8
     2209   01 01580    30C0000C A            AW,R12   R12
     2210   01 01581    65301580              BIR,X3   %-1
     2211   01 01582    20C00040 A            AI,R12   X'40'
     2212   01 01583    35C015AD              STW,R12  OUTBUF+1
     2213   01 01584    32C0159D              LW,R12   THRU:TXT
     2214   01 01585    35C015AE              STW,R12  OUTBUF+2
     2215   01 01586    30800009 A            AW,R8    R9
     2216   01 01587    7590159C              STB,R9   TOO:FAR
     2217   01 01588    F2900008 A            LB,R9    *R8
     2218   01 01589    F2A20008 A            LB,R10   *R8,X1
     2219   01 0158A    4BA015C1              AND,R10  CON7F
     2220   01 0158B    31A00002 A            CW,R10   X2
     2221   01 0158C    68301586              BCR,3    %-6
     2222   01 0158D    7290159C              LB,R9    TOO:FAR
     2223   01 0158E    489015CF              EOR,R9   ONES
     2224   01 0158F    20900001 A            AI,R9    1
     2225   01 01590    30800009 A            AW,R8    R9
     2226   01 01591    B2C00008 A            LW,R12   *R8
     2227   01 01592    EA6003C3              #HTECON  R12
            01 01593    0000000C A
     2228   01 01594    32CC0001 A            LW,R12   1,X6
     2229   01 01595    4BC015C2              AND,R12  LS:MSK
     2230   01 01596    35C015AF              STW,R12  OUTBUF+3
     2231   01 01597    22C0000F A            LI,R12   15
     2232   01 01598    75C015AC              STB,R12  OUTBUF
     2233   01 01599    EA6003CC              #TYPE    OUTBUF
            01 0159A    000056B0 A
     2234   01 0159B    E80003C9              B        *#FIDLE%
     2235                            *
     2236   01 0159C    00000000 A   TOO:FAR  DATA     0
     2237   01 0159D    E3C8D9E4 A   THRU:TXT TEXT     'THRU'
     2238                            *
     2239   01 0159E    F1F2F3F4 A   ALPHATXT TEXT     '1234ABCDEFGHIJKLMNOPQRSTUVWXYZ'
            01 0159F    C1C2C3C4 A
            01 015A0    C5C6C7C8 A
            01 015A1    C9D1D2D3 A
            01 015A2    D4D5D6D7 A
            01 015A3    D8D9E2E3 A
            01 015A4    E4E5E6E7 A
            01 015A5    E8E94040 A
     2240                            *
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE   15
A    2242                            *
     2243   01 015A6    00000000 A   SAVE     DATA     0
     2244   01 015A7    00000000 A   CK:CTR   DATA     0
     2245   01 015A8    40404040 A   SPACES   DATA     X'40404040'
     2246                            *
     2247   01 015A9    00000001 A   ONE      DATA     1
     2248   01 015AA    00000004 A   FOUR     DATA     4
     2249   01 015AB    0000000F A   FIFTEEN  DATA     15
     2250   01 015AC                 OUTBUF   RES      18
     2251   01 015BE    00000048 A   OB:CNT   DATA     72
     2252   01 015BF    00000000 A   PASSES   DATA     0
     2253   01 015C0    00000007 A   CON7     DATA     7
     2254   01 015C1    0000007F A   CON7F    DATA     X'7F'
     2255   01 015C2    40FFFFFF A   LS:MSK   DATA     X'40FFFFFF'
     2256   01 015C3    4040FFFF A   LS:MSK2  DATA     X'4040FFFF'
     2257   01 015C4    00000000 A   ERR:CNT  DATA     0
     2258   01 015C5    00000000 A   ERR:FLG  DATA     0
     2259   01 015C6    00000000 A   FTFL     DATA     0
     2260   01 015C7    00000000 A   MA:PTR   DATA     0
     2261   01 015C8    00000000 A   LC:FLG   DATA     0
     2262   01 015C9    00000000 A   CK:BIAS  DATA     0
     2263   01 015CA    00000000 A   CK:PTR   DATA     0
     2264   01 015CB    00000002 A            DATA     2
     2265   01 015CC    00000002 A            DATA     2
     2266   01 015CD    00000002 A            DATA     2
     2267         01 015CE           CK:SAV   EQU      %
     2268   01 015CE    00000000 A   LC:EXIT  DATA     0
     2269   01 015CF    FFFFFFFF A   ONES     DATA     -1
     2270   01 015D0    00000000 A   END:FLG  DATA     0
     2271   01 015D1    00000000 A   RD:SW    DATA     0
     2272   01 015D2    00000FFF A   MOD:MSK  DATA     X'FFF'
     2273   01 015D3    00000000 A   IDX:SAV  DATA     0
     2274   01 015D4    00000000 A   DATA:SAV DATA     0
     2275                                     BOUND    8
     2276   01 015D6    00000000 A   PSW1     PZE                                                            AUTO7400
     2277   01 015D7    00000000 A   PSW2     PZE                                                            AUTO7410
     2278   01 015D8    00000000 A   PSW1SAV  DATA     0
     2279   01 015D9    00000000 A   PSW2SAV  DATA     0
     2280   01 015DA    00001148     LOCADR   DATA     LOC
     2281   01 015DB    0000114A     LOC2ADR  DATA     LOC+2
     2282   01 015DC    0001FFFF A   ADR:MSK  DATA     X'1FFFF'
     2283   01 015DD    00003000     IA       DATA     MEMORY
     2284                            *
     2285                            *     ************CONSTANTS AND WORKING STORAGE************
     2286                            *
     2287                                     BOUND    8
     2288         01 015DE           MSK:LST  EQU      %
     2289   01 015DE    80000000 A            DATA     X'80000000'
     2290   01 015DF    40000000 A            DATA     X'40000000'
     2291   01 015E0    20000000 A            DATA     X'20000000'
     2292   01 015E1    10000000 A            DATA     X'10000000'
     2293   01 015E2    08000000 A            DATA     X'8000000'
     2294   01 015E3    04000000 A            DATA     X'4000000'
     2295   01 015E4    02000000 A            DATA     X'2000000'
     2296   01 015E5    01000000 A            DATA     X'1000000'
     2297   01 015E6    00800000 A            DATA     X'800000'
     2298   01 015E7    00400000 A            DATA     X'400000'
     2299   01 015E8    00200000 A            DATA     X'200000'
     2300   01 015E9    00100000 A            DATA     X'100000'
     2301   01 015EA    00080000 A            DATA     X'80000'
     2302   01 015EB    00040000 A            DATA     X'40000'
     2303   01 015EC    00020000 A            DATA     X'20000'
     2304   01 015ED    00010000 A            DATA     X'10000'
     2305   01 015EE    00008000 A            DATA     X'8000'
     2306   01 015EF    00004000 A            DATA     X'4000'
     2307   01 015F0    00002000 A            DATA     X'2000'
     2308   01 015F1    00001000 A            DATA     X'1000'
     2309   01 015F2    00000800 A            DATA     X'800'
     2310   01 015F3    00000400 A            DATA     X'400'
     2311   01 015F4    00000200 A            DATA     X'200'
     2312   01 015F5    00000100 A            DATA     X'100'
     2313   01 015F6    00000080 A            DATA     X'80'
     2314   01 015F7    00000040 A            DATA     X'40'
     2315   01 015F8    00000020 A            DATA     X'20'
     2316   01 015F9    00000010 A            DATA     X'10'
     2317   01 015FA    00000008 A            DATA     X'8'
     2318   01 015FB    00000004 A            DATA     X'4'
     2319   01 015FC    00000002 A            DATA     X'2'
     2320   01 015FD    00000001 A            DATA     X'1'
     2321   01 015FE    7FFFFFFF A            DATA     X'7FFFFFFF'
     2322                                     BOUND    8
     2323                            *
     2324         01 01600           MNEMLIST EQU      %
     2456                            *
     2457         01 01680           PROGTEXT TEXTCS   TITLE
     2458                            *
     2459                            *          **********
     2460         01 0168C           STAT%EXPL  TEXTCS 'STATUS REPORT EXPLANATION'
     2461                                     TEXTCS   ;
     2462         01 01693            '&      CAUSES OUTPUT OF THE CURRENT TESTING STATUS'
     2463                            *
     2464                                     TEXTCS   ;
     2465         01 016A0            'THE ITEMS THAT MAKE-UP THE STATUS MESSAGE ARE TAKEN FROM THE'
     2466                                     TEXTCS   ;
     2467         01 016B0            'FUNCTIONAL TEST ERROR MESSAGE AND THE J AND K PARAMETER LINES.'
     2468                                     TEXTCS   ;
     2469         01 016C0            'TOTAL ERRORS DIFFERS FROM ERRORS PER PASS BY ONLY GETTING'
     2470                                     TEXTCS   ;
     2471         01 016CF            ' RESET ON ABSOLUTE RECOVERY.  PROGADDR IS THE PROGRAM ADDRESS'
     2472                                     TEXTCS   ;
     2473         01 016DF            'AT THE TIME THE &  KEY WAS DEPRESSED.'
     2474                            SYNTAX%EXPL TEXTCS      ;
     2475                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
     2476         01 016E9            ' EXPLANATION,'
     2477                                     TEXTCS   ;
     2478         01 016FB            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
     2479         01 01707                    TEXTCS   ' '
     2480                                     TEXTCS   ;
     2481         01 01708            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
     2482         01 01718                    TEXTCS   ' '
     2483                                     TEXTCS   ;
     2484         01 01719            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
     2485                                     TEXTCS   ;
     2486         01 01728            'THE SPECIFIED ACTION.'
     2487         01 0172E                    TEXTCS   ' '
     2488                                     TEXTCS   ;
     2489         01 0172F            '(1) ''@''-ABSOLUTE RECOVERY,DOES SAME AS''SYSTEM RESET''FROM PCP'
     2490         01 0173F                    TEXTCS   ' '
     2491                                     TEXTCS   ;
     2492         01 01740            '(2) ''%''-FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING PCP'
     2493                                     TEXTCS   ;
     2494         01 01750            '     ''COMPUTE''SWITCH TO ''IDLE''.  WHEN OUTPUT TO KSR, IT MEANS'
     2495                                     TEXTCS   ;
     2496         01 01760            '     THE PROGRAM IS WAITING FOR INPUT.'
     2497         01 0176A                    TEXTCS   ' '
     2498                                     TEXTCS   ;
     2499         01 0176B            '(3) ''#''- FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
     2500                                     TEXTCS   ;
     2501         01 0177B            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
     2502         01 01786                    TEXTCS   ' '
     2503                                     TEXTCS   ;
     2504         01 01787            '(4) ''QUEST. MARK''-OUTPUTS SYNTAX GLOSS. AFTER ''@'' PROMPT,'
     2505                                     TEXTCS   ;
     2506         01 01796            '     OR CURRENT ''REQUEST'' EXPL. AFTER KEYIN, OR CURRENT ERROR EXPL.'
     2507                                     TEXTCS   ;
     2508         01 017A7            '     AFTER AN ERROR MSG.'
     2509         01 017AE           DM%EXPL  TEXTCS   ' '
     2510                                     TEXTCS   ;
     2511         01 017AF            '(5) ''DM>X,Y''- DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
     2512         01 017C0           RM%EXPL  TEXTCS   ' '
     2513                                     TEXTCS   ;
     2514         01 017C1            '(6) ''RM>X,Y'' - DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
     2515                                     TEXTCS   ;
     2516         01 017D0             '      REPLACEMENT OF WORD DISPLAYED.'
     2517         01 017DA                    TEXTCS   ' '
     2518         01 017DB           S%EXPL   EQU      %
     2519                                     TEXTCS   ;
     2520         01 017DB            '(7) "SS"-SENSE SW. OPTIONS DISPLAY TO MSG DEV THE CURRENT'
     2521                                     TEXTCS   ;
     2522         01 017EA            '     SENSE SWITCH (SOFTWARE) STATUS AND ALLOW USER TO MODIFY STATUS'
     2523                                     TEXTCS   ;
     2524         01 017FB            '      SW1=1 SHORT LOOP     SW1  OVERRIDES ALL OTHERS'
     2525                                     TEXTCS   ;
     2526         01 01809            '      SW2=1 LONG LOOP     REPORTS ERRORS IF SW4=0'
     2527                                     TEXTCS   ;
     2528         01 01816            '      SW3=1 NO HALT ON ERROR'
     2529                                     TEXTCS   ;
     2530         01 0181E            '      SW4=1 SUPPRESS ERROR MESSAGES ONLY - NOT STATUS'
     2531                                     TEXTCS   ;                  TO MSG DEV THE CURRENT
     2532         01 0182C            '      PCP IF M=1, SOFTWARE SS IF M=0.'
     2533         01 01836                    TEXTCS   ' '
     2534                            *
     2535                            ******************************************************************
     2536                            *  DESIGNER INSERTS HIS SYNTAX EXPLANATIONS HERE
     2537                            ******************************************************************
     2538                            DL%EXPL  TEXTCS   ;
     2539         01 01837            '  ''DL'' MEANS DISPLAY MODULE DATA'
     2540                                     TEXTCS   ;
     2541         01 01840            'DL>XXX,YYY,   CAUSES A DISPLAY OF MODULES FROM XXX TO YYY'
     2542                                     TEXTCS   ;
     2543         01 0184F            '        IF YYY<XXX IT IS USED AS THE # TO BE DISPLAYED'
     2544                            J%EXPL   TEXTCS   ;
     2545         01 0185D            'J      SELECTS PROGRAM CONTROL PARAMETERS'
     2546                                     TEXTCS   ;
     2547         01 01868            '** PARAMETER LINE J (CONTROL  LINE) EXPLANATION'
     2548                                     TEXTCS   ;
     2549         01 01874            'MSGDEV          MESSAGE OUTPUT DEVICE NUMBER'
     2550                                     TEXTCS   ;
     2551         01 01880            'COMDEV          COMMUNICATION DEVICE NUMBER'
     2552                                     TEXTCS   ;
     2553         01 0188B            'SI              STATUS INTERVAL'
     2554                                     TEXTCS   ;
     2555         01 01893            '                  THE INTERVAL (TIME OR PASSES) BETWEEN AUTOMATIC'
     2556                                     TEXTCS   ;
     2557         01 018A4            '                      STATUS REPORTS    0=INFINITY'
     2558                                     TEXTCS   ;
     2559         01 018B1            'CM              CLOCK MARGIN'
     2560                                     TEXTCS   ;
     2561         01 018B9            'MARGIN LIMITS:'
     2562                                     TEXTCS   ;
     2563         01 018BD            '     PROGRAM CONTROLLED    USER CONTROLLED (FIXED)'
     2564                                     TEXTCS   ;
     2565         01 018CA            '       0 = NORMAL             A = NORMAL'
     2566                                     TEXTCS   ;
     2567         01 018D5            '       1 = HIGH               B = HIGH'
     2568                                     TEXTCS   ;
     2569         01 018DF            '       2 = LO                 C = LO'
     2570                                     TEXTCS   ;
     2571         01 018E9            'EM         EXECUTION MODE - DEFINES THE ANTICIPATE PATH'
     2572                                     TEXTCS   ;
     2573         01 018F7            '           TAKEN TO THE TEST INSTRUCTION AS FOLLOWS:'
     2574                                     TEXTCS   ;
     2575         01 01905            '    PROGRAM CONTROLLED     USER CONTROLLED (FIXED)'
     2576                                     TEXTCS   ;
     2577         01 01912            '       0 = LPSD TO TI       A = SAME (FIXED)'
     2578                                     TEXTCS   ;
     2579         01 0191E            '       1 = BRANCH (NOP)     B = SAME (FIXED)'
     2580                                     TEXTCS   ;
     2581         01 0192A            '       2 = EXECUTE TI       C = SAME (FIXED)'
     2582                                     TEXTCS   ;
     2583         01 01936            '       3 = BRANCH TO TI     D = SAME (FIXED)'
     2584                                     TEXTCS   ;
     2585         01 01942            'CI     COUNT PULSE 4 INTERRUPT; 0 = OFF, 1 = ON'
     2586                                     TEXTCS   ;
     2587         01 0194E            'MIDEV  MEMORY INTERFERENCE DEVICE ADDRESS'
     2588                            K%EXPL   TEXTCS   ;
     2589         01 01959            'K   SELECTS THE SNAP OPTION PARAMETERS'
     2590                                     TEXTCS   ;
     2591         01 01963            'MST = MODULE START,  MSP = MODULE STOP,  MCR = MODULE CURRENT'
     2592                                     TEXTCS   ;
     2593         01 01973            'LC = LOOP COUNT, # OF ITERATIONS OVER RANGE OF MODULES'
     2594                                     TEXTCS   ;
     2595         01 01981            '     SPECIFIED BY MST THRU MSP'
     2596                            MR%EXPL  TEXTCS   ;
     2597         01 01989            'MR  FOLLEWED BY AN INSTRUCTION MNEMONIC PRODUCES THE'
     2598                                     TEXTCS   ;
     2599         01 01997            '     MODULE RANGE, IE, MR>AW,  2AC THRU 2F3'
     2600                                     TEXTCS   ;
     2601         01 019A2             'ENTER INSTRUCTION MNEMONIC AS THE ONLY PARAMETER'
     2602                                     TEXTCS   ;
     2603         01 019AF             ' TO OBTAIN STARTING AND ENDING MODULE NUMBERS.'
     2604                            FTERRMSG TEXTCS   ;
     2605         01 019BB            'MOD =  FAILING MODULE NUMBER'
     2606                                     TEXTCS   ;
     2607         01 019C3            'EL =  ELEMENT #,  WHICH AW OF 47 AW MODULES'
     2608                                     TEXTCS   ;
     2609         01 019CE            'TESTINST =  TEST INSTRUCTION'
     2610                                     TEXTCS   ;
     2611         01 019D6            'E/P =  ERRORS PER PASS'
     2612                                     TEXTCS   ;
     2613         01 019DC            'PAS =  NUMBER OF THE CURRENT PASS'
     2614                                     TEXTCS   ;
     2615         01 019E5            'EM =  EXECUTION MODE, SEE K PARAMETER EXPLANATION'
     2616                                     TEXTCS   ;
     2617         01 019F2            'MNEM =  INSTRUCTION MNEMONIC'
     2618                                     TEXTCS   ;
     2619         01 019FA            'FAILED =  THE ITEM THAT DID NOT COMPARE'
     2620                                     TEXTCS   ;
     2621         01 01A04            'EXPECTED =  EXPECTED RESULTS FOR FAILING ITEM'
     2622                                     TEXTCS   ;
     2623         01 01A10            'CM =  CLOCK MARGIN  SEE J PARAMETER FO EXPLANATION'
     2624                                     TEXTCS   ;
     2625         01 01A1D            'OBSERVED =  OBSERVED RESULTS FOR FAILING ITEM'
     2626                                     TEXTCS   ;
     2627         01 01A29            ' CI =  COUNT PULSE INTERRUPT.  RIGHT HEX IS FROM J PARAMETER'
     2628                                     TEXTCS   ;
     2629         01 01A39            '       LINE.  1 = ACTIVE AFTER 11 ERROR FREE PASSES.'
     2630                                     TEXTCS   ;
     2631         01 01A47            'LEFT HEX INDICATES THE LEAST SIGNIFICANT 4 BITS OF ADDRESS THAT'
     2632                                     TEXTCS   ;
     2633         01 01A57            '      WAS STORED AS A RESULT OF AN INTERRUPT.  INTERRUPT IS'
     2634                                     TEXTCS   ;
     2635         01 01A66            '     ARMED AT LOC-7 AND DISARMED AT LOC+6.'
     2636                                     TEXTCS   ;
     2637         01 01A71            'DIFF=EOR =  DIFFERENCE BETWEEN EXPECTED AND OBSERVED VIA EOR'
     2638                            **********************
     2639                            *        TABLE 3
     2640                            **********************
     2641                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     2642                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     2643                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     2644                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     2645                            *
     2646                            *  FORMAT
     2647                            *        WORD 1 = DIRECTIVE POINTER
     2648                            *         ***********
     2649                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     2650                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     2651                            *            AF(3)   BYTE 2 = SECOND CHAR.
     2652                            *            AF(4)   BYTE 3 = THIRD CHAR.
     2653                            *
     2654                            *
     2655                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     2656                            *         ***********
     2657                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     2658                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     2659                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     2660                            *                                       DIRECTIVE ROUTINE
     2661                            *
     2662                            *        WORD 3 = CONTROL WORD
     2663                            *         ***********
     2664                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     2665                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     2666                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     2667                            *             AF(4)   BITS 8-12= NOT USED
     2668                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     2669                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     2670                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     2671                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     2672                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     2673                            *                    OR INDEX PARAM #1 (MODE 6)
     2674                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     2675                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     2676                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     2677                            *
     2678                            *                 MODE:  0= UNCONDITIONAL (&)
     2679                            *                        1= IMMEDIATE     (DM)
     2680                            *                        2= PARAMETER LINE (S)
     2681                            *                        6= INDEXED PARAMETER LINE
     2682                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     2683                            *                            0 = HEX, 1 = BIN, AND
     2684                            *                            4-7 = DESIGNER DEFINED
     2685                            *
     2686                            *         WORD 4 = EXPLANATION POINTER
     2687                            *         ***********
     2688                            *  Z          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     2689                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     2690                            *                             = 1 IF TEXT IS COMPRESSED
     2691                            *                             = 2,3   ** NOT ALLOWED **
     2692                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     2693                            *                   TO CHARACTER #1 (REQUEST)
     2694                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     2695                            *
     2696         01 01A81           TABLE3            EQU      %
     2697                            *
     2698   01 01A81    017C0000 A            H        1,'@'
     2699   01 01A82    00000000 A            E        0
     2700   01 01A83    00000000 A            L        0
        1*  01 01A84    54005BA4 N            Z        84,,,BA(SYNTAX%EXPL)                              *H01
     2702                            *
     2703   01 01A85    01500000 A            H        1,'&'
     2704   01 01A86    00001AB9 N            E        ,,READSTAT
     2705   01 01A87    00000000 A            L        0
     2706   01 01A88    07005A30 N   AMPER%EXPL Z      7,,0,BA(STAT%EXPL)
     2707                            *
     2708   01 01A89    02E2E200 A            H        2,'S','S'
     2709   01 01A8A    00000000 A            E        0
     2710   01 01A8B    00000000 A            L        0
     2711   01 01A8C    08005F6C N            Z        8,,,BA(S%EXPL)
     2712                            *
     2713   01 01A8D    02C4D400 A            H        2,'D','M'
     2714   01 01A8E    00000000 A            E        0
     2715   01 01A8F    00000000 A            L        0
     2716   01 01A90    02015EB8 N            Z        2,,1,BA(DM%EXPL)
     2717                            *
     2718   01 01A91    02D9D400 A            H        2,'R','M'
     2719   01 01A92    00000000 A            E        0
     2720   01 01A93    00000000 A            L        0
     2721   01 01A94    04015F00 N            Z        4,,1,BA(RM%EXPL)
     2722                            *
     2723   01 01A95    02D4D900 A            H        2,'M','R'
     2724   01 01A96    00001556 N            E        ,,DRTA
     2725   01 01A97    21000800 A            L        1,,1,,,,,4
     2726   01 01A98    04006624 N            Z        4,,0,BA(MR%EXPL)
     2727                            *
     2728   01 01A99    02C4D300 A            H        2,'D','L'
     2729   01 01A9A    000014B0 N            E        ,,DLTA
     2730   01 01A9B    22000000 A            L        1,,2
     2731   01 01A9C    030160DC N            Z        3,,1,BA(DL%EXPL)
     2732                            *
     2733   01 01A9D    01D10000 A            H        1,'J'
     2734   01 01A9E    00001394 N            E        ,,JRTA
     2735   01 01A9F    40000000 A            L        2
     2736   01 01AA0    16006174 N            Z        22,,0,BA(J%EXPL)
     2737                            *
     2738   01 01AA1    01D20000 A            H        1,'K'
     2739   01 01AA2    0000143D N            E        ,,KRTA
     2740   01 01AA3    40000000 A            L        2
     2741   01 01AA4    04006564 N            Z        4,,0,BA(K%EXPL)
     2742                            *
     2743   01 01AA5    FF000000 A   TABLE3END  DATA   X'FF000000'
     2744                            *
     2745                            *
     2746                            ***************
     2747                            *
     2748                            *
     2749   01 01AA6                 PLINEIN  RES      19
     2750                            *
     2751                            *
     2752                            ***************
     2753                            *
     2754         01 01AB9           READSTAT EQU      %
     2755   01 01AB9    6A6014DF              BAL,X6   STATMSGS
     2756   01 01ABA    E80003CB              B        *#RETURN%
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE   16
A    2758                                     BOUND 8
     2759   01 01ABC                 LIST     RES      0
     2760                            *'COMMAND PROCEDURE TO GENERATE TEST MODULE CONTROL WORD'
     2761                            *
     2762         00000002           #PASS    SET      S:UFV(#PASS)+1
     2763                            *
     2764         00000000                    DO       #PASS=1           FIRST ASSEMBLER PASS
     2765                        *S* *
     2766                        *S* MODLIST1 SET                        NULL
     2767                        *S* *
     2768                        *S* MODLIST2 SET                        NULL
     2769                        *S* *
     2770                        *S* MODLIST3 SET                        NULL
     2771                        *S* *
     2772                        *S* MODLIST4 SET                        NULL
     2773                        *S* *
     2774                        *S* MODLIST5 SET                        NULL
     2775                        *S* *
     2776                        *S* MODULE@  SET                        NULL
     2777                        *S* *
     2778                                     ELSE                       USE END OF PASS 1 VALUES FOR PASS 2.
     2779                            *
     2780         LIST               MODLIST1 SET      S:UFV(MODLIST1)   TEST MODULES 1-255
     2781                            *
     2782         00000000           MODLIST2 SET      S:UFV(MODLIST2)   TEST MODULES 256-510
     2783                            *
     2784         00000000           MODLIST3 SET      S:UFV(MODLIST3)   TEST MODULES 511-765
     2785                            *
     2786         00000000           MODLIST4 SET      S:UFV(MODLIST4)   TEST MODULES 766-1020
     2787                            *
     2788         00000000           MODLIST5 SET      S:UFV(MODLIST5)   TEST MODULES 1021-1276
     2789                            *
     2790         LIST               MODULE@  SET      S:UFV(MODULE@)
     2791                            *
     2792                                     FIN
     2793                            *
     2794         00000000           MODULE#  SET      0
     2795                            *
     2796         00000000           MODULE%  SET      0
     2797                            *
     2798         00000000           MODULE:  SET      0
     2799                            *
     2800         00000000           MODULE   CNAME
     2801                                     PROC
     2802                            *
     2803                                     LOCAL    I,OC,ML           SYMBOLS LOCALLY DEFINED AND USED
     2804                            *
     2805                                     DO       SCOR(LF(1),LASTMODULE)
     2806                            *
     2807                            MOD%END  EQU      %
     2808                            *
     2809                                     DO       #PASS=1
     2810                            *
     2811                                     RES      NUM(MODULE@)
     2812                            *
     2813                                     ELSE
     2814                            *
     2815                            I        DO       NUM(MODULE@)
     2816                            *
     2817                            OC       SET      MODULE@(I,1)      'OP'-CODE
     2818                            *
     2819                            ML       SET      MODULE@(I,2)      MEMORY LOCATION
     2820                            *
     2821                                     GEN,8,24 OC,ML
     2822                            *
     2823                                     FIN
     2824                            *
     2825                                     FIN
     2826                            *
     2827                                     GOTO     DONE
     2828                            *
     2829                                     FIN
     2830                            *
     2831                                     DO1      NUM(AF)>0
     2832                            MODULE:  SET      0                 RESET ELEMENT COUNTER
     2833                            *
     2834                            MODULE:  SET      MODULE:+1
     2835                            *
     2836                                     DO       #PASS=1           BUILD LISTS
     2837                            *
     2838                                     DO       NUM(AF)>0
     2839                            *
     2840                            OC       SET      AF(1)             'OP'-CODE
     2841                            *
     2842                            ML       SET      ABSVAL(%)         (LISTING) MODULE LOCATION
     2843                            *
     2844                                     DO       NUM(MODULE@)=0
     2845                            *
     2846                            MODULE@  SET      (OC,ML)
     2847                            *
     2848                                     ELSE                       LIST HAS BEEN STARTED
     2849                            *
     2850                            MODULE@  SET      MODULE@,(OC,ML)
     2851                            *
     2852                                     FIN
     2853                            *
     2854                                     FIN
     2855                            *
     2856                            *
     2857                                     DO       MODULE#>0
     2858                            *
     2859                                     DO       MODULE#<256
     2860                            *
     2861                            MODLIST1(MODULE#)   SET   %-MODULE%   SAVE MODULE DISPLACEMENT
     2862                            *
     2863                                     ELSE
     2864                            *
     2865                                     DO       MODULE#<511
     2866                            *
     2867                            MODLIST2(MODULE#-255)   SET   %-MODULE%
     2868                            *
     2869                                     ELSE
     2870                            *
     2871                                     DO       MODULE#<766
     2872                            *
     2873                            MODLIST3(MODULE#-510)   SET   %-MODULE%
     2874                            *
     2875                                     ELSE
     2876                            *
     2877                                     DO       MODULE#<1021
     2878                            *
     2879                            MODLIST4(MODULE#-765)   SET   %-MODULE%
     2880                            *
     2881                                     ELSE
     2882                            *
     2883                            MODLIST5(MODULE#-1020)  SET   %-MODULE%
     2884                            *
     2885                                     FIN                        <1021
     2886                            *
     2887                                     FIN                        <766
     2888                            *
     2889                                     FIN                        <511
     2890                            *
     2891                                     FIN                        <256
     2892                            *
     2893                                     FIN                        >0
     2894                            *
     2895                            MODULE#  SET      MODULE#+1
     2896                            *
     2897                            MODULE%  SET      %
     2898                            *
     2899                                     RES      1                 PUT 'LF' IN COLUMNS 1-2 TO ENTER
     2900                            *                                   LABEL FIELD ON PROC REFERENCE
     2901                            *                                   LINE IN 'SYMBOL' TABLE.  (ASSEMBLER)
     2902                            *
     2903                            *
     2904                                     ELSE                       PASS 2 GENERATES CODE
     2905                            *
     2906                            MODULE#  SET      MODULE#+1
     2907                            *
     2908                            *        ADD 'LF' TO COLUMNS 1-2 FOR EACH OF THE FOLLOWING
     2909                            *        'GEN,8,8,4,12' STATEMENTS TO DEFINE LABEL(S) ON
     2910                            *        THE 'PROC' REFERENCE LINE.
     2911                            *
     2912                                     DO       MODULE#<256
     2913                            *
     2914                                     GEN,8,8,4,12 MODLIST1(MODULE#),MODULE:,CF(2),MODULE#
     2915                            *
     2916                                     ELSE
     2917                            *
     2918                                     DO       MODULE#<511
     2919                            *
     2920                                     GEN,8,8,4,12 MODLIST2(MODULE#-255),MODULE:,CF(2),MODULE#
     2921                            *
     2922                                     ELSE
     2923                            *
     2924                                     DO       MODULE#<766
     2925                            *
     2926                                     GEN,8,8,4,12 MODLIST3(MODULE#-510),MODULE:,CF(2),MODULE#
     2927                            *
     2928                                     ELSE
     2929                            *
     2930                                     DO       MODULE#<1021
     2931                            *
     2932                                     GEN,8,8,4,12 MODLIST4(MODULE#-765),MODULE:,CF(2),MODULE#
     2933                            *
     2934                                     ELSE
     2935                            *
     2936                                     GEN,8,8,4,12 MODLIST5(MODULE#-1020),MODULE:,CF(2),MODULE#
     2937                            *
     2938                                     FIN                        <1021
     2939                            *
     2940                                     FIN                        <766
     2941                            *
     2942                                     FIN                        <511
     2943                            *
     2944                                     FIN                        <256
     2945                            *
     2946                                     FIN                        PASS SWITCH
     2947                            *
     2948                            *
     2949                            DONE     PEND
     2950                            *
     2951   01 01ABC    14010001 A   DL01     MODULE   X'7E'             DL - FULL WORD, ALT BITS
     2952   01 01ABD    7E003000              DL,0     MEMORY
     2953   01 01ABE    03301148              K        0,3,3,LOC
     2954   01 01ABF    2330114A              K        2,3,3,LOC+2
     2955   01 01AC0    00000000 A            DATA     X'0'              R12 IN
     2956   01 01AC1    96969696 A            DATA     X'96969696'       R12 OUT
     2957   01 01AC2    96969696 A            DATA     X'96969696'       MEMORY+0 IN
     2958   01 01AC3    96969696 A            DATA     X'96969696'       MEMORY+0 OUT
     2959   01 01AC4    00000000 A            DATA     X'0'              R13 IN
     2960   01 01AC5    69696969 A            DATA     X'69696969'       R13 OUT
     2961   01 01AC6    69696969 A            DATA     X'69696969'       MEMORY+1 IN
     2962   01 01AC7    69696969 A            DATA     X'69696969'       MEMORY+1 OUT
     2963   01 01AC8    00000000 A            DATA     X'0'              R14 IN
     2964   01 01AC9    77777777 A            DATA     X'77777777'       R14 OUT
     2965   01 01ACA    77777777 A            DATA     X'77777777'       MEMORY+2 IN
     2966   01 01ACB    77777777 A            DATA     X'77777777'       MEMORY+2 OUT
     2967   01 01ACC    00000000 A            DATA     X'0'              R15 IN
     2968   01 01ACD    5555555C A            DATA     X'5555555C'       R15 OUT
     2969   01 01ACE    5555555A A            DATA     X'5555555A'       MEMORY+3 IN
     2970   01 01ACF    5555555A A            DATA     X'5555555A'       MEMORY+3 OUT
     2971   01 01AD0    14020002 A   DL02     MODULE                    DL - FULL WORD, SINGLE BITS
     2972   01 01AD1    7E003000            DL,0    MEMORY
     2973   01 01AD2    03301148            K       0,3,3,LOC
     2974   01 01AD3    2330114A            K       2,3,3,LOC+2
     2975   01 01AD4    00000000 A          DATA    X'0'
     2976   01 01AD5    88888888 A          DATA    X'88888888'
     2977   01 01AD6    88888888 A          DATA    X'88888888'
     2978   01 01AD7    88888888 A          DATA    X'88888888'
     2979   01 01AD8    00000000 A          DATA    X'0'
     2980   01 01AD9    44444444 A          DATA    X'44444444'
     2981   01 01ADA    44444444 A          DATA    X'44444444'
     2982   01 01ADB    44444444 A          DATA    X'44444444'
     2983   01 01ADC    00000000 A          DATA    X'0'
     2984   01 01ADD    22222222 A          DATA    X'22222222'
     2985   01 01ADE    22222222 A          DATA    X'22222222'
     2986   01 01ADF    22222222 A          DATA    X'22222222'
     2987   01 01AE0    00000000 A          DATA    X'0'
     2988   01 01AE1    1111111C A          DATA    X'1111111C'
     2989   01 01AE2    1111111C A          DATA    X'1111111C'
     2990   01 01AE3    1111111C A          DATA    X'1111111C'
     2991   01 01AE4    14030003 A   DL03     MODULE                    DL - L=1
     2992   01 01AE5    7E103000            DL,1    MEMORY
     2993   01 01AE6    03301148            K       0,3,3,LOC
     2994   01 01AE7    1330114A            K       1,3,3,LOC+2
     2995   01 01AE8    FFFFFFFF A          DATA    X'FFFFFFFF'
     2996   01 01AE9    00000000 A          DATA    X'0'
     2997   01 01AEA    1BABCDEF A          DATA    X'1BABCDEF'
     2998   01 01AEB    1BABCDEF A          DATA    X'1BABCDEF'
     2999   01 01AEC    FFFFFFFF A          DATA    X'FFFFFFFF'
     3000   01 01AED    00000000 A          DATA    X'0'
     3001   01 01AEE    96969696 A          DATA    X'96969696'
     3002   01 01AEF    96969696 A          DATA    X'96969696'
     3003   01 01AF0    FFFFFFFF A          DATA    X'FFFFFFFF'
     3004   01 01AF1    00000000 A          DATA    X'0'
     3005   01 01AF2    96969696 A          DATA    X'96969696'
     3006   01 01AF3    96969696 A          DATA    X'96969696'
     3007   01 01AF4    FFFFFFFF A          DATA    X'FFFFFFFF'
     3008   01 01AF5    0000001D A          DATA    X'1D'
     3009   01 01AF6    96969696 A          DATA    X'96969696'
     3010   01 01AF7    96969696 A          DATA    X'96969696'
     3011   01 01AF8    14040004 A   DL04     MODULE                    DL - ILLEGAL DIGIT - TRAP
     3012   01 01AF9    7E003000            DL,0    MEMORY
     3013   01 01AFA    0330114D            K       0,3,3,LOC+5
     3014   01 01AFB    8330101B            K       8,3,3,EXP:TRAP+5
     3015   01 01AFC    00000000 A          DATA    X'0'
     3016   01 01AFD    00000000 A          DATA    X'0'
     3017   01 01AFE    96969696 A          DATA    X'96969696'
     3018   01 01AFF    96969696 A          DATA    X'96969696'
     3019   01 01B00    00000000 A          DATA    X'0'
     3020   01 01B01    00000000 A          DATA    X'0'
     3021   01 01B02    96969696 A          DATA    X'96969696'
     3022   01 01B03    96969696 A          DATA    X'96969696'
     3023   01 01B04    00000000 A          DATA    X'0'
     3024   01 01B05    00000000 A          DATA    X'0'
     3025   01 01B06    96969696 A          DATA    X'96969696'
     3026   01 01B07    96969696 A          DATA    X'96969696'
     3027   01 01B08    00000000 A          DATA    X'0'
     3028   01 01B09    00000000 A          DATA    X'0'
     3029   01 01B0A    96969A5A A          DATA    X'96969A5A'
     3030   01 01B0B    96969A5A A          DATA    X'96969A5A'
     3031   01 01B0C    14050005 A   DL05     MODULE                    DL - ILLEGAL SIGN - TRAP
     3032   01 01B0D    7E003000            DL,0    MEMORY
     3033   01 01B0E    0330114D            K       0,3,3,LOC+5
     3034   01 01B0F    8330101B            K       8,3,3,EXP:TRAP+5
     3035   01 01B10    00000000 A          DATA    X'0'
     3036   01 01B11    00000000 A          DATA    X'0'
     3037   01 01B12    77777777 A          DATA    X'77777777'
     3038   01 01B13    77777777 A          DATA    X'77777777'
     3039   01 01B14    00000000 A          DATA    X'0'
     3040   01 01B15    00000000 A          DATA    X'0'
     3041   01 01B16    77777777 A          DATA    X'77777777'
     3042   01 01B17    77777777 A          DATA    X'77777777'
     3043   01 01B18    00000000 A          DATA    X'0'
     3044   01 01B19    00000000 A          DATA    X'0'
     3045   01 01B1A    77777777 A          DATA    X'77777777'
     3046   01 01B1B    77777777 A          DATA    X'77777777'
     3047   01 01B1C    00000000 A          DATA    X'0'
     3048   01 01B1D    00000000 A          DATA    X'0'
     3049   01 01B1E    77777777 A          DATA    X'77777777'
     3050   01 01B1F    77777777 A          DATA    X'77777777'
     3051                            * BYTE ADDRESSING TEST , L = 2 , R3 INDEX = 0
     3052   01 01B20    14060006 A   DL06     MODULE
     3053   01 01B21    7E203000              DL,2     MEMORY
     3054   01 01B22    03301148              K        0,3,3,LOC
     3055   01 01B23    1330114A              K        1,3,3,LOC+2
     3056   01 01B24    FFFFFFFF A            DATA     X'FFFFFFFF'
     3057   01 01B25    00000000 A            DATA     0
     3058   01 01B26    123BCDEF A            DATA     X'123BCDEF'
     3059   01 01B27    123BCDEF A            DATA     X'123BCDEF'
     3060   01 01B28    FFFFFFFF A            DATA     X'FFFFFFFF'
     3061   01 01B29    00000000 A            DATA     0
     3062   01 01B2A    69696969 A            DATA     X'69696969'
     3063   01 01B2B    69696969 A            DATA     X'69696969'
     3064   01 01B2C    FFFFFFFF A            DATA     X'FFFFFFFF'
     3065   01 01B2D    00000000 A            DATA     0
     3066   01 01B2E    96969696 A            DATA     X'96969696'
     3067   01 01B2F    96969696 A            DATA     X'96969696'
     3068   01 01B30    FFFFFFFF A            DATA     X'FFFFFFFF'
     3069   01 01B31    0000123D A            DATA     X'123D'
     3070   01 01B32    55555555 A            DATA     X'55555555'
     3071   01 01B33    55555555 A            DATA     X'55555555'
     3072                            * BYTE ADDRESSING TEST3, L = 3 , R3 INDEX = 0
     3073   01 01B34    14070007 A   DL07     MODULE
     3074   01 01B35    7E303000              DL,3     MEMORY
     3075   01 01B36    03301148              K        0,3,3,LOC
     3076   01 01B37    2330114A              K        2,3,3,LOC+2
     3077   01 01B38    FFFFFFFF A            DATA     X'FFFFFFFF'
     3078   01 01B39    00000000 A            DATA     0
     3079   01 01B3A    38241ABC A            DATA     X'38241ABC'
     3080   01 01B3B    38241ABC A            DATA     X'38241ABC'
     3081   01 01B3C    FFFFFFFF A            DATA     X'FFFFFFFF'
     3082   01 01B3D    00000000 A            DATA     0
     3083   01 01B3E    35353535 A            DATA     X'35353535'
     3084   01 01B3F    35353535 A            DATA     X'35353535'
     3085   01 01B40    FFFFFFFF A            DATA     X'FFFFFFFF'
     3086   01 01B41    00000000 A            DATA     0
     3087   01 01B42    81818181 A            DATA     X'81818181'
     3088   01 01B43    81818181 A            DATA     X'81818181'
     3089   01 01B44    FFFFFFFF A            DATA     X'FFFFFFFF'
     3090   01 01B45    0038241C A            DATA     X'38241C'
     3091   01 01B46    96969696 A            DATA     X'96969696'
     3092   01 01B47    96969696 A            DATA     X'96969696'
     3093                            * BYTE ADDRESSING TEST3, L = 4 , R3 INDEX = 0
     3094   01 01B48    14080008 A   DL08     MODULE
     3095   01 01B49    7E403000              DL,4     MEMORY
     3096   01 01B4A    03301148              K        0,3,3,LOC
     3097   01 01B4B    1330114A              K        1,3,3,LOC+2
     3098   01 01B4C    FFFFFFFF A            DATA     X'FFFFFFFF'
     3099   01 01B4D    00000000 A            DATA     0
     3100   01 01B4E    0123456D A            DATA     X'0123456D'
     3101   01 01B4F    0123456D A            DATA     X'0123456D'
     3102   01 01B50    FFFFFFFF A            DATA     X'FFFFFFFF'
     3103   01 01B51    00000000 A            DATA     0
     3104   01 01B52    55555555 A            DATA     X'55555555'
     3105   01 01B53    55555555 A            DATA     X'55555555'
     3106   01 01B54    FFFFFFFF A            DATA     X'FFFFFFFF'
     3107   01 01B55    00000000 A            DATA     0
     3108   01 01B56    96969696 A            DATA     X'96969696'
     3109   01 01B57    96969696 A            DATA     X'96969696'
     3110   01 01B58    FFFFFFFF A            DATA     X'FFFFFFFF'
     3111   01 01B59    0123456D A            DATA     X'0123456D'
     3112   01 01B5A    11111111 A            DATA     X'11111111'
     3113   01 01B5B    11111111 A            DATA     X'11111111'
     3114                            * BYTE ADDRESSING TEST3, L = 5 , R3 INDEX = 0
     3115   01 01B5C    14090009 A   DL09     MODULE
     3116   01 01B5D    7E503000              DL,5     MEMORY
     3117   01 01B5E    03301148              K        0,3,3,LOC
     3118   01 01B5F    2330114A              K        2,3,3,LOC+2
     3119   01 01B60    FFFFFFFF A            DATA     X'FFFFFFFF'
     3120   01 01B61    00000000 A            DATA     0
     3121   01 01B62    98765432 A            DATA     X'98765432'
     3122   01 01B63    98765432 A            DATA     X'98765432'
     3123   01 01B64    FFFFFFFF A            DATA     X'FFFFFFFF'
     3124   01 01B65    00000000 A            DATA     0
     3125   01 01B66    1FABCDEF A            DATA     X'1FABCDEF'
     3126   01 01B67    1FABCDEF A            DATA     X'1FABCDEF'
     3127   01 01B68    FFFFFFFF A            DATA     X'FFFFFFFF'
     3128   01 01B69    00000098 A            DATA     X'98'
     3129   01 01B6A    27272727 A            DATA     X'27272727'
     3130   01 01B6B    27272727 A            DATA     X'27272727'
     3131   01 01B6C    FFFFFFFF A            DATA     X'FFFFFFFF'
     3132   01 01B6D    7654321C A            DATA     X'7654321C'
     3133   01 01B6E    13131313 A            DATA     X'13131313'
     3134   01 01B6F    13131313 A            DATA     X'13131313'
     3135                            * BYTE ADDRESSING TEST , L = 0 , R3 INDEX = 1
     3136   01 01B70    160A000A A   DL10     MODULE
     3137   01 01B71    7E023000              DL,0     MEMORY,1
     3138   01 01B72    03301148              K        0,3,3,LOC
     3139   01 01B73    2330114A              K        2,3,3,LOC+2
     3140   01 01B74    FFFFFFFF A            DATA     X'FFFFFFFF'
     3141   01 01B75    56789013 A            DATA     X'56789013'
     3142   01 01B76    34567890 A            DATA     X'34567890'
     3143   01 01B77    34567890 A            DATA     X'34567890'
     3144   01 01B78    FFFFFFFF A            DATA     X'FFFFFFFF'
     3145   01 01B79    57924681 A            DATA     X'57924681'
     3146   01 01B7A    13579246 A            DATA     X'13579246'
     3147   01 01B7B    13579246 A            DATA     X'13579246'
     3148   01 01B7C    FFFFFFFF A            DATA     X'FFFFFFFF'
     3149   01 01B7D    35792411 A            DATA     X'35792411'
     3150   01 01B7E    81357924 A            DATA     X'81357924'
     3151   01 01B7F    81357924 A            DATA     X'81357924'
     3152   01 01B80    FFFFFFFF A            DATA     X'FFFFFFFF'
     3153   01 01B81    2233445C A            DATA     X'2233445C'
     3154   01 01B82    11223344 A            DATA     X'11223344'
     3155   01 01B83    11223344 A            DATA     X'11223344'
     3156   01 01B84    5ABCDEFA A            DATA     X'5ABCDEFA'
     3157   01 01B85    5ABCDEFA A            DATA     X'5ABCDEFA'
     3158                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 1
     3159   01 01B86    140B000B A   DL11     MODULE
     3160   01 01B87    7E123000              DL,1     MEMORY,1
     3161   01 01B88    03301148              K        0,3,3,LOC
     3162   01 01B89    1330114A              K        1,3,3,LOC+2
     3163   01 01B8A    FFFFFFFF A            DATA     X'FFFFFFFF'
     3164   01 01B8B    00000000 A            DATA     0
     3165   01 01B8C    925BCDEF A            DATA     X'925BCDEF'
     3166   01 01B8D    925BCDEF A            DATA     X'925BCDEF'
     3167   01 01B8E    FFFFFFFF A            DATA     X'FFFFFFFF'
     3168   01 01B8F    00000000 A            DATA     0
     3169   01 01B90    13579246 A            DATA     X'13579246'
     3170   01 01B91    13579246 A            DATA     X'13579246'
     3171   01 01B92    FFFFFFFF A            DATA     X'FFFFFFFF'
     3172   01 01B93    00000000 A            DATA     0
     3173   01 01B94    00000000 A            DATA     0
     3174   01 01B95    00000000 A            DATA     0
     3175   01 01B96    FFFFFFFF A            DATA     X'FFFFFFFF'
     3176   01 01B97    0000005D A            DATA     X'5D'
     3177   01 01B98    88888888 A            DATA     X'88888888'
     3178   01 01B99    88888888 A            DATA     X'88888888'
     3179                            * BYTE ADDRESSING TEST , L = 2 , R3 INDEX = 1
     3180   01 01B9A    140C000C A   DL12     MODULE
     3181   01 01B9B    7E223000              DL,2     MEMORY,1
     3182   01 01B9C    03301148              K        0,3,3,LOC
     3183   01 01B9D    2330114A              K        2,3,3,LOC+2
     3184   01 01B9E    55555555 A            DATA     X'55555555'
     3185   01 01B9F    00000000 A            DATA     0
     3186   01 01BA0    98765ABC A            DATA     X'98765ABC'
     3187   01 01BA1    98765ABC A            DATA     X'98765ABC'
     3188   01 01BA2    FFFFFFFF A            DATA     X'FFFFFFFF'
     3189   01 01BA3    00000000 A            DATA     0
     3190   01 01BA4    12345678 A            DATA     X'12345678'
     3191   01 01BA5    12345678 A            DATA     X'12345678'
     3192   01 01BA6    FFFFFFFF A            DATA     X'FFFFFFFF'
     3193   01 01BA7    00000000 A            DATA     0
     3194   01 01BA8    69696969 A            DATA     X'69696969'
     3195   01 01BA9    69696969 A            DATA     X'69696969'
     3196   01 01BAA    FFFFFFFF A            DATA     X'FFFFFFFF'
     3197   01 01BAB    0000765C A            DATA     X'765C'
     3198   01 01BAC    96969696 A            DATA     X'96969696'
     3199   01 01BAD    96969696 A            DATA     X'96969696'
     3200                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 1
     3201   01 01BAE    140D000D A   DL13     MODULE
     3202   01 01BAF    7E323000              DL,3     MEMORY,1
     3203   01 01BB0    03301148              K        0,3,3,LOC
     3204   01 01BB1    1330114A              K        1,3,3,LOC+2
     3205   01 01BB2    11111111 A            DATA     X'11111111'
     3206   01 01BB3    00000000 A            DATA     0
     3207   01 01BB4    2468135B A            DATA     X'2468135B'
     3208   01 01BB5    2468135B A            DATA     X'2468135B'
     3209   01 01BB6    22222222 A            DATA     X'22222222'
     3210   01 01BB7    00000000 A            DATA     0
     3211   01 01BB8    53535353 A            DATA     X'53535353'
     3212   01 01BB9    53535353 A            DATA     X'53535353'
     3213   01 01BBA    33333333 A            DATA     X'33333333'
     3214   01 01BBB    00000000 A            DATA     0
     3215   01 01BBC    17171717 A            DATA     X'17171717'
     3216   01 01BBD    17171717 A            DATA     X'17171717'
     3217   01 01BBE    FFFFFFFF A            DATA     X'FFFFFFFF'
     3218   01 01BBF    0068135D A            DATA     X'68135D'
     3219   01 01BC0    96969696 A            DATA     X'96969696'
     3220   01 01BC1    96969696 A            DATA     X'96969696'
     3221                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 1
     3222   01 01BC2    140E000E A   DL14     MODULE
     3223   01 01BC3    7E423000              DL,4     MEMORY,1
     3224   01 01BC4    03301148              K        0,3,3,LOC
     3225   01 01BC5    2330114A              K        2,3,3,LOC+2
     3226   01 01BC6    FFFFFFFF A            DATA     X'FFFFFFFF'
     3227   01 01BC7    00000000 A            DATA     0
     3228   01 01BC8    15362479 A            DATA     X'15362479'
     3229   01 01BC9    15362479 A            DATA     X'15362479'
     3230   01 01BCA    FFFFFFFF A            DATA     X'FFFFFFFF'
     3231   01 01BCB    00000000 A            DATA     0
     3232   01 01BCC    8EFABCDE A            DATA     X'8EFABCDE'
     3233   01 01BCD    8EFABCDE A            DATA     X'8EFABCDE'
     3234   01 01BCE    FFFFFFFF A            DATA     X'FFFFFFFF'
     3235   01 01BCF    00000000 A            DATA     0
     3236   01 01BD0    55555555 A            DATA     X'55555555'
     3237   01 01BD1    55555555 A            DATA     X'55555555'
     3238   01 01BD2    FFFFFFFF A            DATA     X'FFFFFFFF'
     3239   01 01BD3    3624798C A            DATA     X'3624798C'
     3240   01 01BD4    81818181 A            DATA     X'81818181'
     3241   01 01BD5    81818181 A            DATA     X'81818181'
     3242                            * BYTE ADDRESSING TEST , L = 5 , R3 INDEX = 1
     3243   01 01BD6    140F000F A   DL15     MODULE
     3244   01 01BD7    7E523000              DL,5     MEMORY,1
     3245   01 01BD8    03301148              K        0,3,3,LOC
     3246   01 01BD9    1330114A              K        1,3,3,LOC+2
     3247   01 01BDA    33333333 A            DATA     X'33333333'
     3248   01 01BDB    00000000 A            DATA     0
     3249   01 01BDC    12987654 A            DATA     X'12987654'
     3250   01 01BDD    12987654 A            DATA     X'12987654'
     3251   01 01BDE    55555555 A            DATA     X'55555555'
     3252   01 01BDF    00000000 A            DATA     0
     3253   01 01BE0    321BCDEF A            DATA     X'321BCDEF'
     3254   01 01BE1    321BCDEF A            DATA     X'321BCDEF'
     3255   01 01BE2    FFFFFFFF A            DATA     X'FFFFFFFF'
     3256   01 01BE3    00000098 A            DATA     X'98'
     3257   01 01BE4    83838383 A            DATA     X'83838383'
     3258   01 01BE5    83838383 A            DATA     X'83838383'
     3259   01 01BE6    FFFFFFFF A            DATA     X'FFFFFFFF'
     3260   01 01BE7    7654321D A            DATA     X'7654321D'
     3261   01 01BE8    38383838 A            DATA     X'38383838'
     3262   01 01BE9    38383838 A            DATA     X'38383838'
     3263                            * BYTE ADDRESSING TEST , L = 0 , R3 INDEX = 2
     3264   01 01BEA    16100010 A   DL16     MODULE
     3265   01 01BEB    7E043000              DL,0     MEMORY,2
     3266   01 01BEC    03301148              K        0,3,3,LOC
     3267   01 01BED    2330114A              K        2,3,3,LOC+2
     3268   01 01BEE    00000000 A            DATA     0
     3269   01 01BEF    13575353 A            DATA     X'13575353'
     3270   01 01BF0    24681357 A            DATA     X'24681357'
     3271   01 01BF1    24681357 A            DATA     X'24681357'
     3272   01 01BF2    00000000 A            DATA     0
     3273   01 01BF3    35357171 A            DATA     X'35357171'
     3274   01 01BF4    53533535 A            DATA     X'53533535'
     3275   01 01BF5    53533535 A            DATA     X'53533535'
     3276   01 01BF6    00000000 A            DATA     0
     3277   01 01BF7    17171357 A            DATA     X'17171357'
     3278   01 01BF8    71711717 A            DATA     X'71711717'
     3279   01 01BF9    71711717 A            DATA     X'71711717'
     3280   01 01BFA    00000000 A            DATA     0
     3281   01 01BFB    2468999C A            DATA     X'2468999C'
     3282   01 01BFC    13572468 A            DATA     X'13572468'
     3283   01 01BFD    13572468 A            DATA     X'13572468'
     3284   01 01BFE    999ABCDE A            DATA     X'999ABCDE'
     3285   01 01BFF    999ABCDE A            DATA     X'999ABCDE'
     3286                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 2
     3287   01 01C00    14110011 A   DL17     MODULE
     3288   01 01C01    7E143000              DL,1     MEMORY,2
     3289   01 01C02    03301148              K        0,3,3,LOC
     3290   01 01C03    1330114A              K        1,3,3,LOC+2
     3291   01 01C04    FFFFFFFF A            DATA     X'FFFFFFFF'
     3292   01 01C05    00000000 A            DATA     0
     3293   01 01C06    12345BCD A            DATA     X'12345BCD'
     3294   01 01C07    12345BCD A            DATA     X'12345BCD'
     3295   01 01C08    CCCCCCCC A            DATA     X'CCCCCCCC'
     3296   01 01C09    00000000 A            DATA     0
     3297   01 01C0A    37373737 A            DATA     X'37373737'
     3298   01 01C0B    37373737 A            DATA     X'37373737'
     3299   01 01C0C    AAAAAAAA A            DATA     X'AAAAAAAA'
     3300   01 01C0D    00000000 A            DATA     0
     3301   01 01C0E    14141414 A            DATA     X'14141414'
     3302   01 01C0F    14141414 A            DATA     X'14141414'
     3303   01 01C10    BBBBBBBB A            DATA     X'BBBBBBBB'
     3304   01 01C11    0000005D A            DATA     X'5D'
     3305   01 01C12    58585858 A            DATA     X'58585858'
     3306   01 01C13    58585858 A            DATA     X'58585858'
     3307                            * BYTE ADDRESSING TEST , L = 2 , R3 INDEX = 2
     3308   01 01C14    14120012 A   DL18     MODULE
     3309   01 01C15    7E243000              DL,2     MEMORY,2
     3310   01 01C16    03301148              K        0,3,3,LOC
     3311   01 01C17    2330114A              K        2,3,3,LOC+2
     3312   01 01C18    FFFFFFFF A            DATA     X'FFFFFFFF'
     3313   01 01C19    00000000 A            DATA     0
     3314   01 01C1A    8642531E A            DATA     X'8642531E'
     3315   01 01C1B    8642531E A            DATA     X'8642531E'
     3316   01 01C1C    00000001 A            DATA     1
     3317   01 01C1D    00000000 A            DATA     0
     3318   01 01C1E    15362487 A            DATA     X'15362487'
     3319   01 01C1F    15362487 A            DATA     X'15362487'
     3320   01 01C20    00000002 A            DATA     2
     3321   01 01C21    00000000 A            DATA     0
     3322   01 01C22    16161616 A            DATA     X'16161616'
     3323   01 01C23    16161616 A            DATA     X'16161616'
     3324   01 01C24    FFFFFFFF A            DATA     X'FFFFFFFF'
     3325   01 01C25    0000531C A            DATA     X'531C'
     3326   01 01C26    00000003 A            DATA     3
     3327   01 01C27    00000003 A            DATA     3
     3328                            * BYTE ADDRESSING TEST , L = 3 R3 INDEX = 2
     3329   01 01C28    14130013 A   DL19     MODULE
     3330   01 01C29    7E343000              DL,3     MEMORY,2
     3331   01 01C2A    03301148              K        0,3,3,LOC
     3332   01 01C2B    1330114A              K        1,3,3,LOC+2
     3333   01 01C2C    00000000 A            DATA     0
     3334   01 01C2D    00000000 A            DATA     0
     3335   01 01C2E    87651357 A            DATA     X'87651357'
     3336   01 01C2F    87651357 A            DATA     X'87651357'
     3337   01 01C30    FFFFFFFF A            DATA     X'FFFFFFFF'
     3338   01 01C31    00000000 A            DATA     0
     3339   01 01C32    9BCDEFAB A            DATA     X'9BCDEFAB'
     3340   01 01C33    9BCDEFAB A            DATA     X'9BCDEFAB'
     3341   01 01C34    00000000 A            DATA     0
     3342   01 01C35    00000000 A            DATA     0
     3343   01 01C36    96969696 A            DATA     X'96969696'
     3344   01 01C37    96969696 A            DATA     X'96969696'
     3345   01 01C38    FFFFFFFF A            DATA     X'FFFFFFFF'
     3346   01 01C39    0013579D A            DATA     X'13579D'
     3347   01 01C3A    55555555 A            DATA     X'55555555'
     3348   01 01C3B    55555555 A            DATA     X'55555555'
     3349                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 2
     3350   01 01C3C    12140014 A   DL20     MODULE
     3351   01 01C3D    7E443000              DL,4     MEMORY,2
     3352   01 01C3E    03301148              K        0,3,3,LOC
     3353   01 01C3F    2330114A              K        2,3,3,LOC+2
     3354   01 01C40    13131313 A            DATA     X'13131313'
     3355   01 01C41    00000000 A            DATA     0
     3356   01 01C42    98761234 A            DATA     X'98761234'
     3357   01 01C43    98761234 A            DATA     X'98761234'
     3358   01 01C44    52525252 A            DATA     X'52525252'
     3359   01 01C45    00000000 A            DATA     0
     3360   01 01C46    567FABCD A            DATA     X'567FABCD'
     3361   01 01C47    567FABCD A            DATA     X'567FABCD'
     3362   01 01C48    96969696 A            DATA     X'96969696'
     3363   01 01C49    00000000 A            DATA     0
     3364   01 01C4A    FFFFFFFF A            DATA     X'FFFFFFFF'
     3365   01 01C4B    FFFFFFFF A            DATA     X'FFFFFFFF'
     3366   01 01C4C    FFFFFFFF A            DATA     X'FFFFFFFF'
     3367   01 01C4D    1234567C A            DATA     X'1234567C'
     3368                            * BYTE ADDRESSING TEST , L = 5 , R3 INDEX = 2
     3369   01 01C4E    12150015 A   DL21     MODULE
     3370   01 01C4F    7E543000              DL,5     MEMORY,2
     3371   01 01C50    03301148              K        0,3,3,LOC
     3372   01 01C51    1330114A              K        1,3,3,LOC+2
     3373   01 01C52    FFFFFFFF A            DATA     X'FFFFFFFF'
     3374   01 01C53    00000000 A            DATA     0
     3375   01 01C54    13578642 A            DATA     X'13578642'
     3376   01 01C55    13578642 A            DATA     X'13578642'
     3377   01 01C56    FFFFFFFF A            DATA     X'FFFFFFFF'
     3378   01 01C57    00000000 A            DATA     0
     3379   01 01C58    09753DEF A            DATA     X'09753DEF'
     3380   01 01C59    09753DEF A            DATA     X'09753DEF'
     3381   01 01C5A    FFFFFFFF A            DATA     X'FFFFFFFF'
     3382   01 01C5B    00000086 A            DATA     X'86'
     3383   01 01C5C    00000000 A            DATA     0
     3384   01 01C5D    00000000 A            DATA     0
     3385   01 01C5E    FFFFFFFF A            DATA     X'FFFFFFFF'
     3386   01 01C5F    4209753D A            DATA     X'4209753D'
     3387                            * BYTE ADDRESSING TEST , L = 0 , R3 INDEX = 3
     3388   01 01C60    16160016 A   DL22     MODULE
     3389   01 01C61    7E063000              DL,0     MEMORY,3
     3390   01 01C62    03301148              K        0,3,3,LOC
     3391   01 01C63    2330114A              K        2,3,3,LOC+2
     3392   01 01C64    00000000 A            DATA     0
     3393   01 01C65    88113355 A            DATA     X'88113355'
     3394   01 01C66    22446688 A            DATA     X'22446688'
     3395   01 01C67    22446688 A            DATA     X'22446688'
     3396   01 01C68    00000000 A            DATA     0
     3397   01 01C69    77997755 A            DATA     X'77997755'
     3398   01 01C6A    11335577 A            DATA     X'11335577'
     3399   01 01C6B    11335577 A            DATA     X'11335577'
     3400   01 01C6C    00000000 A            DATA     0
     3401   01 01C6D    11886644 A            DATA     X'11886644'
     3402   01 01C6E    99775511 A            DATA     X'99775511'
     3403   01 01C6F    99775511 A            DATA     X'99775511'
     3404   01 01C70    00000000 A            DATA     0
     3405   01 01C71    2255331C A            DATA     X'2255331C'
     3406   01 01C72    88664422 A            DATA     X'88664422'
     3407   01 01C73    88664422 A            DATA     X'88664422'
     3408   01 01C74    55331CDE A            DATA     X'55331CDE'
     3409   01 01C75    55331CDE A            DATA     X'55331CDE'
     3410                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 3
     3411   01 01C76    12170017 A   DL23     MODULE
     3412   01 01C77    7E163000              DL,1     MEMORY,3
     3413   01 01C78    03301148              K        0,3,3,LOC
     3414   01 01C79    1330114A              K        1,3,3,LOC+2
     3415   01 01C7A    00000000 A            DATA     0
     3416   01 01C7B    00000000 A            DATA     0
     3417   01 01C7C    9856312D A            DATA     X'9856312D'
     3418   01 01C7D    9856312D A            DATA     X'9856312D'
     3419   01 01C7E    00000000 A            DATA     0
     3420   01 01C7F    00000000 A            DATA     0
     3421   01 01C80    00000000 A            DATA     0
     3422   01 01C81    00000000 A            DATA     0
     3423   01 01C82    00000000 A            DATA     0
     3424   01 01C83    00000000 A            DATA     0
     3425   01 01C84    00000000 A            DATA     0
     3426   01 01C85    00000000 A            DATA     0
     3427   01 01C86    00000000 A            DATA     0
     3428   01 01C87    0000002D A            DATA     X'2D'
     3429                            * BYTE ADDRESSING TEST , L = 2 R3 INDEX = 3
     3430   01 01C88    12180018 A   DL24     MODULE
     3431   01 01C89    7E263000              DL,2     MEMORY,3
     3432   01 01C8A    03301148              K        0,3,3,LOC
     3433   01 01C8B    2330114A              K        2,3,3,LOC+2
     3434   01 01C8C    00000000 A            DATA     0
     3435   01 01C8D    00000000 A            DATA     0
     3436   01 01C8E    57351386 A            DATA     X'57351386'
     3437   01 01C8F    57351386 A            DATA     X'57351386'
     3438   01 01C90    00000000 A            DATA     0
     3439   01 01C91    00000000 A            DATA     0
     3440   01 01C92    4ABCDEFA A            DATA     X'4ABCDEFA'
     3441   01 01C93    4ABCDEFA A            DATA     X'4ABCDEFA'
     3442   01 01C94    00000000 A            DATA     0
     3443   01 01C95    00000000 A            DATA     0
     3444   01 01C96    00000000 A            DATA     0
     3445   01 01C97    00000000 A            DATA     0
     3446   01 01C98    00000000 A            DATA     0
     3447   01 01C99    0000864C A            DATA     X'864C'
     3448                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 3
     3449   01 01C9A    12190019 A   DL25     MODULE
     3450   01 01C9B    7E363000              DL,3     MEMORY,3
     3451   01 01C9C    03301148              K        0,3,3,LOC
     3452   01 01C9D    1330114A              K        1,3,3,LOC+2
     3453   01 01C9E    00000000 A            DATA     0
     3454   01 01C9F    00000000 A            DATA     0
     3455   01 01CA0    98765432 A            DATA     X'98765432'
     3456   01 01CA1    98765432 A            DATA     X'98765432'
     3457   01 01CA2    00000000 A            DATA     0
     3458   01 01CA3    00000000 A            DATA     0
     3459   01 01CA4    109BCDEF A            DATA     X'109BCDEF'
     3460   01 01CA5    109BCDEF A            DATA     X'109BCDEF'
     3461   01 01CA6    00000000 A            DATA     0
     3462   01 01CA7    00000000 A            DATA     0
     3463   01 01CA8    00000000 A            DATA     0
     3464   01 01CA9    00000000 A            DATA     0
     3465   01 01CAA    FFFFFFFF A            DATA     X'FFFFFFFF'
     3466   01 01CAB    0032109D A            DATA     X'32109D'
     3467                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 3
     3468   01 01CAC    121A001A A   DL26     MODULE
     3469   01 01CAD    7E463000              DL,4     MEMORY,3
     3470   01 01CAE    03301148              K        0,3,3,LOC
     3471   01 01CAF    2330114A              K        2,3,3,LOC+2
     3472   01 01CB0    FFFFFFFF A            DATA     X'FFFFFFFF'
     3473   01 01CB1    00000000 A            DATA     0
     3474   01 01CB2    00000096 A            DATA     X'96'
     3475   01 01CB3    00000096 A            DATA     X'96'
     3476   01 01CB4    0000000F A            DATA     X'F'
     3477   01 01CB5    00000000 A            DATA     0
     3478   01 01CB6    53186EFA A            DATA     X'53186EFA'
     3479   01 01CB7    53186EFA A            DATA     X'53186EFA'
     3480   01 01CB8    FFFFFFFF A            DATA     X'FFFFFFFF'
     3481   01 01CB9    00000000 A            DATA     0
     3482   01 01CBA    00000000 A            DATA     0
     3483   01 01CBB    00000000 A            DATA     0
     3484   01 01CBC    00000000 A            DATA     0
     3485   01 01CBD    9653186C A            DATA     X'9653186C'
     3486                            * BYTE ADDRESSING TEST , L = 5 , R3 INDEX = 3
     3487   01 01CBE    121B001B A   DL27     MODULE
     3488   01 01CBF    7E563000              DL,5     MEMORY,3
     3489   01 01CC0    03301148              K        0,3,3,LOC
     3490   01 01CC1    1330114A              K        1,3,3,LOC+2
     3491   01 01CC2    00000000 A            DATA     0
     3492   01 01CC3    00000000 A            DATA     0
     3493   01 01CC4    98765432 A            DATA     X'98765432'
     3494   01 01CC5    98765432 A            DATA     X'98765432'
     3495   01 01CC6    00000000 A            DATA     0
     3496   01 01CC7    00000000 A            DATA     0
     3497   01 01CC8    1012345B A            DATA     X'1012345B'
     3498   01 01CC9    1012345B A            DATA     X'1012345B'
     3499   01 01CCA    00000000 A            DATA     0
     3500   01 01CCB    00000032 A            DATA     X'32'
     3501   01 01CCC    00000000 A            DATA     0
     3502   01 01CCD    00000000 A            DATA     0
     3503   01 01CCE    FFFF0000 A            DATA     X'FFFF0000'
     3504   01 01CCF    1012345D A            DATA     X'1012345D'
     3505   01 01CD0    121C101C A   DL28     MODULE,1
     3506   01 01CD1    7E302FFF              DL,3     MEMORY-1
     3507   01 01CD2    00001148              K        0,0,0,LOC
     3508   01 01CD3    2000114A              K        2,0,0,LOC+2
     3509   01 01CD4    00000000 A            DATA     0
     3510   01 01CD5    00000000 A            DATA     0
     3511   01 01CD6    12345C00 A            DATA     X'12345C00'
     3512   01 01CD7    12345C00 A            DATA     X'12345C00'
     3513   01 01CD8    00000000 A            DATA     0
     3514   01 01CD9    00000000 A            DATA     0
     3515   01 01CDA    00000000 A            DATA     0
     3516   01 01CDB    00000000 A            DATA     0
     3517   01 01CDC    00000000 A            DATA     0
     3518   01 01CDD    00000000 A            DATA     0
     3519   01 01CDE    00000000 A            DATA     0
     3520   01 01CDF    00000000 A            DATA     0
     3521   01 01CE0    00000000 A            DATA     0
     3522   01 01CE1    0012345C A            DATA     X'12345C'
     3523   01 01CE2    1401001D A   DST01    MODULE   X'7F'
     3524   01 01CE3    7F003000            DST,0   MEMORY
     3525   01 01CE4    03301148            K        0,3,3,LOC
     3526   01 01CE5    0330114A            K        0,3,3,LOC+2
     3527   01 01CE6    96969696 A          DATA    X'96969696'
     3528   01 01CE7    96969696 A          DATA    X'96969696'
     3529   01 01CE8    00000000 A          DATA    X'0'
     3530   01 01CE9    96969696 A          DATA    X'96969696'
     3531   01 01CEA    69696969 A          DATA    X'69696969'
     3532   01 01CEB    69696969 A          DATA    X'69696969'
     3533   01 01CEC    00000000 A          DATA    X'0'
     3534   01 01CED    69696969 A          DATA    X'69696969'
     3535   01 01CEE    77777777 A          DATA    X'77777777'
     3536   01 01CEF    77777777 A          DATA    X'77777777'
     3537   01 01CF0    00000000 A          DATA    X'0'
     3538   01 01CF1    77777777 A          DATA    X'77777777'
     3539   01 01CF2    5555555E A          DATA    X'5555555E'
     3540   01 01CF3    5555555E A          DATA    X'5555555E'
     3541   01 01CF4    00000000 A          DATA    X'0'
     3542   01 01CF5    5555555C A          DATA    X'5555555C'
     3543   01 01CF6    1402001E A   DST02    MODULE                    DST - FULL WORD,SINGLE BITS
     3544   01 01CF7    7F003000            DST,0   MEMORY
     3545   01 01CF8    03301148            K        0,3,3,LOC
     3546   01 01CF9    0330114A            K        0,3,3,LOC+2
     3547   01 01CFA    88888888 A          DATA    X'88888888'
     3548   01 01CFB    88888888 A          DATA    X'88888888'
     3549   01 01CFC    00000000 A          DATA    X'0'
     3550   01 01CFD    88888888 A          DATA    X'88888888'
     3551   01 01CFE    44444444 A          DATA    X'44444444'
     3552   01 01CFF    44444444 A          DATA    X'44444444'
     3553   01 01D00    00000000 A          DATA    X'0'
     3554   01 01D01    44444444 A          DATA    X'44444444'
     3555   01 01D02    22222222 A          DATA    X'22222222'
     3556   01 01D03    22222222 A          DATA    X'22222222'
     3557   01 01D04    00000000 A          DATA    X'0'
     3558   01 01D05    22222222 A          DATA    X'22222222'
     3559   01 01D06    1111111F A          DATA    X'1111111F'
     3560   01 01D07    1111111F A          DATA    X'1111111F'
     3561   01 01D08    00000000 A          DATA    X'0'
     3562   01 01D09    1111111C A          DATA    X'1111111C'
     3563   01 01D0A    1403001F A   DST03    MODULE                    DST - L=1
     3564   01 01D0B    7F103000            DST,1   MEMORY
     3565   01 01D0C    03301148            K        0,3,3,LOC
     3566   01 01D0D    0330114A            K        0,3,3,LOC+2
     3567   01 01D0E    00000000 A          DATA    X'0'
     3568   01 01D0F    00000000 A          DATA    X'0'
     3569   01 01D10    FFFFFFFF A          DATA    X'FFFFFFFF'
     3570   01 01D11    1DFFFFFF A          DATA    X'1DFFFFFF'
     3571   01 01D12    00000000 A          DATA    X'0'
     3572   01 01D13    00000000 A          DATA    X'0'
     3573   01 01D14    FFFFFFFF A          DATA    X'FFFFFFFF'
     3574   01 01D15    FFFFFFFF A          DATA    X'FFFFFFFF'
     3575   01 01D16    00000000 A          DATA    X'0'
     3576   01 01D17    00000000 A          DATA    X'0'
     3577   01 01D18    FFFFFFFF A          DATA    X'FFFFFFFF'
     3578   01 01D19    FFFFFFFF A          DATA    X'FFFFFFFF'
     3579   01 01D1A    0000001D A          DATA    X'1D'
     3580   01 01D1B    0000001D A          DATA    X'1D'
     3581   01 01D1C    FFFFFFFF A          DATA    X'FFFFFFFF'
     3582   01 01D1D    FFFFFFFF A          DATA    X'FFFFFFFF'
     3583   01 01D1E    14040020 A   DST04    MODULE                    DST - ILLEGAL DIGIT - NO TRAP
     3584   01 01D1F    7F003000            DST,0   MEMORY
     3585   01 01D20    03101148            K        0,3,1,LOC
     3586   01 01D21    8310114A            K       8,3,1,LOC+2
     3587   01 01D22    96969696 A          DATA    X'96969696'
     3588   01 01D23    96969696 A          DATA    X'96969696'
     3589   01 01D24    00000000 A          DATA    X'0'
     3590   01 01D25    00000000 A          DATA    X'0'
     3591   01 01D26    96969696 A          DATA    X'96969696'
     3592   01 01D27    96969696 A          DATA    X'96969696'
     3593   01 01D28    00000000 A          DATA    X'0'
     3594   01 01D29    00000000 A          DATA    X'0'
     3595   01 01D2A    96969696 A          DATA    X'96969696'
     3596   01 01D2B    96969696 A          DATA    X'96969696'
     3597   01 01D2C    00000000 A          DATA    X'0'
     3598   01 01D2D    00000000 A          DATA    X'0'
     3599   01 01D2E    969696BD A          DATA    X'969696BD'
     3600   01 01D2F    969696BD A          DATA    X'969696BD'
     3601   01 01D30    00000000 A          DATA    X'0'
     3602   01 01D31    00000000 A          DATA    X'0'
     3603   01 01D32    12050021 A   DST05    MODULE                    DST - ILLEGAL SIGN - NO TRAP
     3604   01 01D33    7F003000            DST,0   MEMORY
     3605   01 01D34    03101148            K        0,3,1,LOC
     3606   01 01D35    8310114A            K       8,3,1,LOC+2
     3607   01 01D36    77777777 A          DATA    X'77777777'
     3608   01 01D37    77777777 A          DATA    X'77777777'
     3609   01 01D38    00000000 A          DATA    X'0'
     3610   01 01D39    00000000 A          DATA    X'0'
     3611   01 01D3A    77777777 A          DATA    X'77777777'
     3612   01 01D3B    77777777 A          DATA    X'77777777'
     3613   01 01D3C    00000000 A          DATA    X'0'
     3614   01 01D3D    00000000 A          DATA    X'0'
     3615   01 01D3E    77777777 A          DATA    X'77777777'
     3616   01 01D3F    77777777 A          DATA    X'77777777'
     3617   01 01D40    00000000 A          DATA    X'0'
     3618   01 01D41    00000000 A          DATA    X'0'
     3619   01 01D42    77777777 A          DATA    X'77777777'
     3620   01 01D43    77777777 A          DATA    X'77777777'
     3621   01 01D44    12060022 A   DST06    MODULE                    DST - ALL SIG INFO NOT STORED
     3622   01 01D45    7F103000            DST,1   MEMORY
     3623   01 01D46    03301148            K        0,3,3,LOC
     3624   01 01D47    4330114A            K       4,3,3,LOC+2
     3625   01 01D48    00000000 A          DATA    X'0'
     3626   01 01D49    00000000 A          DATA    X'0'
     3627   01 01D4A    00000000 A          DATA    X'0'
     3628   01 01D4B    7C000000 A          DATA    X'7C000000'
     3629   01 01D4C    00000000 A          DATA    X'0'
     3630   01 01D4D    00000000 A          DATA    X'0'
     3631   01 01D4E    00000000 A          DATA    X'0'
     3632   01 01D4F    00000000 A          DATA    X'0'
     3633   01 01D50    00000000 A          DATA    X'0'
     3634   01 01D51    00000000 A          DATA    X'0'
     3635   01 01D52    00000000 A          DATA    X'0'
     3636   01 01D53    00000000 A          DATA    X'0'
     3637   01 01D54    0000077A A          DATA    X'77A'
     3638   01 01D55    0000077A A          DATA    X'77A'
     3639   01 01D56    14070023 A   DST07    MODULE                     DST - L=2
     3640   01 01D57    7F203000              DST,2    MEMORY
     3641   01 01D58    03301148              K        0,3,3,LOC
     3642   01 01D59    0330114A              K        0,3,3,LOC+2
     3643   01 01D5A    00000000 A            DATA     X'0'
     3644   01 01D5B    00000000 A            DATA     X'0'
     3645   01 01D5C    FFFFFFFF A            DATA     X'FFFFFFFF'
     3646   01 01D5D    987DFFFF A            DATA     X'987DFFFF'
     3647   01 01D5E    00000000 A            DATA     X'0'
     3648   01 01D5F    00000000 A            DATA     X'0'
     3649   01 01D60    FFFFFFFF A            DATA     X'FFFFFFFF'
     3650   01 01D61    FFFFFFFF A            DATA     X'FFFFFFFF'
     3651   01 01D62    00000000 A            DATA     X'0'
     3652   01 01D63    00000000 A            DATA     X'0'
     3653   01 01D64    FFFFFFFF A            DATA     X'FFFFFFFF'
     3654   01 01D65    FFFFFFFF A            DATA     X'FFFFFFFF'
     3655   01 01D66    0000987D A            DATA     X'987D'
     3656   01 01D67    0000987D A            DATA     X'987D'
     3657   01 01D68    FFFFFFFF A            DATA     X'FFFFFFFF'
     3658   01 01D69    FFFFFFFF A            DATA     X'FFFFFFFF'
     3659   01 01D6A    12080024 A   DST08    MODULE
     3660   01 01D6B    7F303000              DST,3    MEMORY
     3661   01 01D6C    F330114D              K        15,3,3,LOC+5
     3662   01 01D6D    B330101B              K        11,3,3,EXP:TRAP+5
     3663   01 01D6E    0B124000 A            DATA     X'B124000'
     3664   01 01D6F    0B124000 A            DATA     X'B124000'
     3665   01 01D70    00000000 A            DATA     0,0,0,0,0,0,0,0,0,0
            01 01D71    00000000 A
            01 01D72    00000000 A
            01 01D73    00000000 A
            01 01D74    00000000 A
            01 01D75    00000000 A
            01 01D76    00000000 A
            01 01D77    00000000 A
            01 01D78    00000000 A
            01 01D79    00000000 A
     3666   01 01D7A    0000123C A            DATA     X'123C'
     3667   01 01D7B    0000123C A            DATA     X'123C'
     3668                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=0,BYTEINDEX=0,EXPECTED TRAP
     3669   01 01D7C    12091025 A   DST09    MODULE,1
     3670   01 01D7D    7F002FFD              DST,0    MEMORY-3
     3671   01 01D7E    03301148              K        0,3,3,LOC
     3672   01 01D7F    03301016              K        0,3,3,EXP:TRAP
     3673   01 01D80    12345678 A            DATA     X'12345678'
     3674   01 01D81    12345678 A            DATA     X'12345678'
     3675   01 01D82    00000000 A            DATA     0
     3676   01 01D83    00000000 A            DATA     0
     3677   01 01D84    13572468 A            DATA     X'13572468'
     3678   01 01D85    13572468 A            DATA     X'13572468'
     3679   01 01D86    00000000 A            DATA     0
     3680   01 01D87    00000000 A            DATA     0
     3681   01 01D88    10203040 A            DATA     X'10203040'
     3682   01 01D89    10203040 A            DATA     X'10203040'
     3683   01 01D8A    00000000 A            DATA     0
     3684   01 01D8B    00000000 A            DATA     0
     3685   01 01D8C    1122334A A            DATA     X'1122334A'
     3686   01 01D8D    1122334A A            DATA     X'1122334A'
     3687                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=0,BYTEINDEX=0, NO TRAP
     3688   01 01D8E    140A1026 A   DST10    MODULE,1
     3689   01 01D8F    7F002FFC              DST,0    MEMORY-4
     3690   01 01D90    03301148              K        0,3,3,LOC
     3691   01 01D91    0330114A              K        0,3,3,LOC+2
     3692   01 01D92    11223344 A            DATA     X'11223344'
     3693   01 01D93    11223344 A            DATA     X'11223344'
     3694   01 01D94    00000000 A            DATA     0
     3695   01 01D95    11223344 A            DATA     X'11223344'
     3696   01 01D96    55667788 A            DATA     X'55667788'
     3697   01 01D97    55667788 A            DATA     X'55667788'
     3698   01 01D98    00000000 A            DATA     0
     3699   01 01D99    55667788 A            DATA     X'55667788'
     3700   01 01D9A    99001122 A            DATA     X'99001122'
     3701   01 01D9B    99001122 A            DATA     X'99001122'
     3702   01 01D9C    00000000 A            DATA     0
     3703   01 01D9D    99001122 A            DATA     X'99001122'
     3704   01 01D9E    3344556C A            DATA     X'3344556C'
     3705   01 01D9F    3344556C A            DATA     X'3344556C'
     3706   01 01DA0    00000000 A            DATA     0
     3707   01 01DA1    3344556C A            DATA     X'3344556C'
     3708                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=1,BYTEINDEX=0,EXPECTED TRAP
     3709   01 01DA2    120B1027 A   DST11    MODULE,1
     3710   01 01DA3    7F103000              DST,1    MEMORY
     3711   01 01DA4    03301148              K        0,3,3,LOC
     3712   01 01DA5    03301016              K        0,3,3,EXP:TRAP
     3713   01 01DA6    00000001 A            DATA     1
     3714   01 01DA7    00000001 A            DATA     1
     3715   01 01DA8    00000000 A            DATA     0
     3716   01 01DA9    00000000 A            DATA     0
     3717   01 01DAA    00000002 A            DATA     2
     3718   01 01DAB    00000002 A            DATA     2
     3719   01 01DAC    00000000 A            DATA     0
     3720   01 01DAD    00000000 A            DATA     0
     3721   01 01DAE    00000003 A            DATA     3
     3722   01 01DAF    00000003 A            DATA     3
     3723   01 01DB0    00000000 A            DATA     0
     3724   01 01DB1    00000000 A            DATA     0
     3725   01 01DB2    0000004D A            DATA     X'4D'
     3726   01 01DB3    0000004D A            DATA     X'4D'
     3727                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=1,BYTEINDEX=0, NO TRAP
     3728   01 01DB4    120C1028 A   DST12    MODULE,1
     3729   01 01DB5    7F102FFF              DST,1    MEMORY-1
     3730   01 01DB6    03301148              K        0,3,3,LOC
     3731   01 01DB7    4330114A              K        4,3,3,LOC+2
     3732   01 01DB8    00000003 A            DATA     3
     3733   01 01DB9    00000003 A            DATA     3
     3734   01 01DBA    00000000 A            DATA     0
     3735   01 01DBB    8C000000 A            DATA     X'8C000000'
     3736   01 01DBC    00000005 A            DATA     5
     3737   01 01DBD    00000005 A            DATA     5
     3738   01 01DBE    00000000 A            DATA     0
     3739   01 01DBF    00000000 A            DATA     0
     3740   01 01DC0    00000007 A            DATA     7
     3741   01 01DC1    00000007 A            DATA     7
     3742   01 01DC2    00000000 A            DATA     0
     3743   01 01DC3    00000000 A            DATA     0
     3744   01 01DC4    0000008A A            DATA     X'8A'
     3745   01 01DC5    0000008A A            DATA     X'8A'
     3746                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=2,BYTEINDEX=0,EXPECTED TRAP
     3747   01 01DC6    120D1029 A   DST13    MODULE,1
     3748   01 01DC7    7F203000              DST,2    MEMORY
     3749   01 01DC8    03301148              K        0,3,3,LOC
     3750   01 01DC9    03301016              K        0,3,3,EXP:TRAP
     3751   01 01DCA    00000000 A            DATA     0
     3752   01 01DCB    00000000 A            DATA     0
     3753   01 01DCC    00000000 A            DATA     0
     3754   01 01DCD    00000000 A            DATA     0
     3755   01 01DCE    00000000 A            DATA     0
     3756   01 01DCF    00000000 A            DATA     0
     3757   01 01DD0    00000000 A            DATA     0
     3758   01 01DD1    00000000 A            DATA     0
     3759   01 01DD2    00000000 A            DATA     0
     3760   01 01DD3    00000000 A            DATA     0
     3761   01 01DD4    00000000 A            DATA     0
     3762   01 01DD5    00000000 A            DATA     0
     3763   01 01DD6    0000567D A            DATA     X'567D'
     3764   01 01DD7    0000567D A            DATA     X'567D'
     3765                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=2,BYTEINDEX=0, NO TRAP
     3766   01 01DD8    120E102A A   DST14    MODULE,1
     3767   01 01DD9    7F202FFF              DST,2    MEMORY-1
     3768   01 01DDA    03301148              K        0,3,3,LOC
     3769   01 01DDB    4330114A              K        4,3,3,LOC+2
     3770   01 01DDC    00000000 A            DATA     0
     3771   01 01DDD    00000000 A            DATA     0
     3772   01 01DDE    00000000 A            DATA     0
     3773   01 01DDF    678C0000 A            DATA     X'678C0000'
     3774   01 01DE0    00000000 A            DATA     0
     3775   01 01DE1    00000000 A            DATA     0
     3776   01 01DE2    00000000 A            DATA     0
     3777   01 01DE3    00000000 A            DATA     0
     3778   01 01DE4    00000000 A            DATA     0
     3779   01 01DE5    00000000 A            DATA     0
     3780   01 01DE6    00000000 A            DATA     0
     3781   01 01DE7    00000000 A            DATA     0
     3782   01 01DE8    2345678C A            DATA     X'2345678C'
     3783   01 01DE9    2345678C A            DATA     X'2345678C'
     3784                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=4,BYTEINDEX=0, NO TRAP
     3785   01 01DEA    120F102B A   DST15    MODULE,1
     3786   01 01DEB    7F402FFF              DST,4    MEMORY-1
     3787   01 01DEC    03301148              K        0,3,3,LOC
     3788   01 01DED    0330114A              K        0,3,3,LOC+2
     3789   01 01DEE    00000000 A            DATA     0
     3790   01 01DEF    00000000 A            DATA     0
     3791   01 01DF0    00000000 A            DATA     0
     3792   01 01DF1    1536249D A            DATA     X'1536249D'
     3793   01 01DF2    00000000 A            DATA     0
     3794   01 01DF3    00000000 A            DATA     0
     3795   01 01DF4    00000000 A            DATA     0
     3796   01 01DF5    00000000 A            DATA     0
     3797   01 01DF6    00000000 A            DATA     0
     3798   01 01DF7    00000000 A            DATA     0
     3799   01 01DF8    00000000 A            DATA     0
     3800   01 01DF9    00000000 A            DATA     0
     3801   01 01DFA    1536249D A            DATA     X'1536249D'
     3802   01 01DFB    1536249D A            DATA     X'1536249D'
     3803                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=5,BYTEINDEX=0,EXPECTED TRAP
     3804   01 01DFC    1210102C A   DST16    MODULE,1
     3805   01 01DFD    7F502FFF              DST,5    MEMORY-1
     3806   01 01DFE    03301148              K        0,3,3,LOC
     3807   01 01DFF    03301016              K        0,3,3,EXP:TRAP
     3808   01 01E00    00000000 A            DATA     0
     3809   01 01E01    00000000 A            DATA     0
     3810   01 01E02    00000000 A            DATA     0
     3811   01 01E03    00000000 A            DATA     0
     3812   01 01E04    00000000 A            DATA     0
     3813   01 01E05    00000000 A            DATA     0
     3814   01 01E06    00000000 A            DATA     0
     3815   01 01E07    00000000 A            DATA     0
     3816   01 01E08    00000098 A            DATA     X'98'
     3817   01 01E09    00000098 A            DATA     X'98'
     3818   01 01E0A    00000000 A            DATA     0
     3819   01 01E0B    00000000 A            DATA     0
     3820   01 01E0C    7654321C A            DATA     X'7654321C'
     3821   01 01E0D    7654321C A            DATA     X'7654321C'
     3822                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=0,BYTEINDEX=1,EXPECTED TRAP
     3823   01 01E0E    1211102D A   DST17    MODULE,1
     3824   01 01E0F    7F022FFC              DST,0    MEMORY-4,1
     3825   01 01E10    03301148              K        0,3,3,LOC
     3826   01 01E11    03301016              K        0,3,3,EXP:TRAP
     3827   01 01E12    24681357 A            DATA     X'24681357'
     3828   01 01E13    24681357 A            DATA     X'24681357'
     3829   01 01E14    00000000 A            DATA     0
     3830   01 01E15    00000000 A            DATA     0
     3831   01 01E16    10203040 A            DATA     X'10203040'
     3832   01 01E17    10203040 A            DATA     X'10203040'
     3833   01 01E18    00000000 A            DATA     0
     3834   01 01E19    00000000 A            DATA     0
     3835   01 01E1A    04050607 A            DATA     X'04050607'
     3836   01 01E1B    04050607 A            DATA     X'04050607'
     3837   01 01E1C    00000000 A            DATA     0
     3838   01 01E1D    00000000 A            DATA     0
     3839   01 01E1E    5432987D A            DATA     X'5432987D'
     3840   01 01E1F    5432987D A            DATA     X'5432987D'
     3841                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=1,BYTEINDEX=1,EXPECTED TRAP
     3842   01 01E20    1212102E A   DST18    MODULE,1
     3843   01 01E21    7F123000              DST,1    MEMORY,1
     3844   01 01E22    03301148              K        0,3,3,LOC
     3845   01 01E23    03301016              K        0,3,3,EXP:TRAP
     3846   01 01E24    00000000 A            DATA     0
     3847   01 01E25    00000000 A            DATA     0
     3848   01 01E26    00000000 A            DATA     0
     3849   01 01E27    00000000 A            DATA     0
     3850   01 01E28    00000000 A            DATA     0
     3851   01 01E29    00000000 A            DATA     0
     3852   01 01E2A    00000000 A            DATA     0
     3853   01 01E2B    00000000 A            DATA     0
     3854   01 01E2C    00000000 A            DATA     0
     3855   01 01E2D    00000000 A            DATA     0
     3856   01 01E2E    00000000 A            DATA     0
     3857   01 01E2F    00000000 A            DATA     0
     3858   01 01E30    0024364B A            DATA     X'24364B'
     3859   01 01E31    0024364B A            DATA     X'24364B'
     3860                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=2,BYTEINDEX=1,EXPECTED TRAP
     3861   01 01E32    1213102F A   DST19    MODULE,1
     3862   01 01E33    7F223000              DST,2    MEMORY,1
     3863   01 01E34    03301148              K        0,3,3,LOC
     3864   01 01E35    03301016              K        0,3,3,EXP:TRAP
     3865   01 01E36    00000000 A            DATA     0
     3866   01 01E37    00000000 A            DATA     0
     3867   01 01E38    00000000 A            DATA     0
     3868   01 01E39    00000000 A            DATA     0
     3869   01 01E3A    00000000 A            DATA     0
     3870   01 01E3B    00000000 A            DATA     0
     3871   01 01E3C    00000000 A            DATA     0
     3872   01 01E3D    00000000 A            DATA     0
     3873   01 01E3E    00000000 A            DATA     0
     3874   01 01E3F    00000000 A            DATA     0
     3875   01 01E40    00000000 A            DATA     0
     3876   01 01E41    00000000 A            DATA     0
     3877   01 01E42    0000147A A            DATA     X'147A'
     3878   01 01E43    0000147A A            DATA     X'147A'
     3879                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=2,BYTEINDEX=1,NO TRAP
     3880   01 01E44    12141030 A   DST20    MODULE,1
     3881   01 01E45    7F222FFF              DST,2    MEMORY-1,1
     3882   01 01E46    03301148              K        0,3,3,LOC
     3883   01 01E47    4330114A              K        4,3,3,LOC+2
     3884   01 01E48    12349876 A            DATA     X'12349876'
     3885   01 01E49    12349876 A            DATA     X'12349876'
     3886   01 01E4A    00000000 A            DATA     0
     3887   01 01E4B    00246C00 A            DATA     X'246C00'
     3888   01 01E4C    43212345 A            DATA     X'43212345'
     3889   01 01E4D    43212345 A            DATA     X'43212345'
     3890   01 01E4E    00000000 A            DATA     0
     3891   01 01E4F    00000000 A            DATA     0
     3892   01 01E50    98767890 A            DATA     X'98767890'
     3893   01 01E51    98767890 A            DATA     X'98767890'
     3894   01 01E52    00000000 A            DATA     0
     3895   01 01E53    00000000 A            DATA     0
     3896   01 01E54    1357246A A            DATA     X'1357246A'
     3897   01 01E55    1357246A A            DATA     X'1357246A'
     3898                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=3,BYTEINDEX=1,NO TRAP
     3899   01 01E56    12151031 A   DST21    MODULE,1
     3900   01 01E57    7F322FFF              DST,3    MEMORY-1,1
     3901   01 01E58    03301148              K        0,3,3,LOC
     3902   01 01E59    0330114A              K        0,3,3,LOC+2
     3903   01 01E5A    00000000 A            DATA     0
     3904   01 01E5B    00000000 A            DATA     0
     3905   01 01E5C    00000000 A            DATA     0
     3906   01 01E5D    0098765D A            DATA     X'98765D'
     3907   01 01E5E    00000000 A            DATA     0
     3908   01 01E5F    00000000 A            DATA     0
     3909   01 01E60    00000000 A            DATA     0
     3910   01 01E61    00000000 A            DATA     0
     3911   01 01E62    00000000 A            DATA     0
     3912   01 01E63    00000000 A            DATA     0
     3913   01 01E64    00000000 A            DATA     0
     3914   01 01E65    00000000 A            DATA     0
     3915   01 01E66    0098765B A            DATA     X'98765B'
     3916   01 01E67    0098765B A            DATA     X'98765B'
     3917                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=4,BYTEINDEX=1,EXPECTED TRAP
     3918   01 01E68    12161032 A   DST22    MODULE,1
     3919   01 01E69    7F422FFF              DST,4    MEMORY-1,1
     3920   01 01E6A    03301148              K        0,3,3,LOC
     3921   01 01E6B    03301016              K        0,3,3,EXP:TRAP
     3922   01 01E6C    00000009 A            DATA     9
     3923   01 01E6D    00000009 A            DATA     9
     3924   01 01E6E    00000000 A            DATA     0
     3925   01 01E6F    00000000 A            DATA     0
     3926   01 01E70    00000002 A            DATA     2
     3927   01 01E71    00000002 A            DATA     2
     3928   01 01E72    00000000 A            DATA     0
     3929   01 01E73    00000000 A            DATA     0
     3930   01 01E74    00000005 A            DATA     5
     3931   01 01E75    00000005 A            DATA     5
     3932   01 01E76    00000000 A            DATA     0
     3933   01 01E77    00000000 A            DATA     0
     3934   01 01E78    1379265C A            DATA     X'1379265C'
     3935   01 01E79    1379265C A            DATA     X'1379265C'
     3936                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=2,BYTEINDEX=2, NO TRAP
     3937   01 01E7A    12171033 A   DST23    MODULE,1
     3938   01 01E7B    7F242FFF              DST,2    MEMORY-1,2
     3939   01 01E7C    03301148              K        0,3,3,LOC
     3940   01 01E7D    4330114A              K        4,3,3,LOC+2
     3941   01 01E7E    10000000 A            DATA     X'10000000'
     3942   01 01E7F    10000000 A            DATA     X'10000000'
     3943   01 01E80    00000000 A            DATA     0
     3944   01 01E81    0000192D A            DATA     X'192D'
     3945   01 01E82    20000000 A            DATA     X'20000000'
     3946   01 01E83    20000000 A            DATA     X'20000000'
     3947   01 01E84    00000000 A            DATA     0
     3948   01 01E85    00000000 A            DATA     0
     3949   01 01E86    30000000 A            DATA     X'30000000'
     3950   01 01E87    30000000 A            DATA     X'30000000'
     3951   01 01E88    00000000 A            DATA     0
     3952   01 01E89    00000000 A            DATA     0
     3953   01 01E8A    0000192B A            DATA     X'192B'
     3954   01 01E8B    0000192B A            DATA     X'192B'
     3955                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=3,BYTEINDEX=2,EXPECTED TRAP
     3956   01 01E8C    12181034 A   DST24    MODULE,1
     3957   01 01E8D    7F342FFF              DST,3    MEMORY-1,2
     3958   01 01E8E    03301148              K        0,3,3,LOC
     3959   01 01E8F    03301016              K        0,3,3,EXP:TRAP
     3960   01 01E90    00000000 A            DATA     0
     3961   01 01E91    00000000 A            DATA     0
     3962   01 01E92    00000000 A            DATA     0
     3963   01 01E93    00000000 A            DATA     0
     3964   01 01E94    00000000 A            DATA     0
     3965   01 01E95    00000000 A            DATA     0
     3966   01 01E96    00000000 A            DATA     0
     3967   01 01E97    00000000 A            DATA     0
     3968   01 01E98    00000000 A            DATA     0
     3969   01 01E99    00000000 A            DATA     0
     3970   01 01E9A    00000000 A            DATA     0
     3971   01 01E9B    00000000 A            DATA     0
     3972   01 01E9C    8134927C A            DATA     X'8134927C'
     3973   01 01E9D    8134927C A            DATA     X'8134927C'
     3974                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=4,BYTEINDEX=2,EXPECTED TRAP
     3975   01 01E9E    12191035 A   DST25    MODULE,1
     3976   01 01E9F    7F442FFF              DST,4    MEMORY-1,2
     3977   01 01EA0    03301148              K        0,3,3,LOC
     3978   01 01EA1    03301016              K        0,3,3,EXP:TRAP
     3979   01 01EA2    00000009 A            DATA     9
     3980   01 01EA3    00000009 A            DATA     9
     3981   01 01EA4    00000000 A            DATA     0
     3982   01 01EA5    00000000 A            DATA     0
     3983   01 01EA6    00000007 A            DATA     7
     3984   01 01EA7    00000007 A            DATA     7
     3985   01 01EA8    00000000 A            DATA     0
     3986   01 01EA9    00000000 A            DATA     0
     3987   01 01EAA    00000005 A            DATA     5
     3988   01 01EAB    00000005 A            DATA     5
     3989   01 01EAC    00000000 A            DATA     0
     3990   01 01EAD    00000000 A            DATA     0
     3991   01 01EAE    3742689D A            DATA     X'3742689D'
     3992   01 01EAF    3742689D A            DATA     X'3742689D'
     3993                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=0,NO TRAP
     3994   01 01EB0    121A1036 A   DST26    MODULE,1
     3995   01 01EB1    7F502FFE              DST,5    MEMORY-2
     3996   01 01EB2    03301148              K        0,3,3,LOC
     3997   01 01EB3    4330114A              K        4,3,3,LOC+2
     3998   01 01EB4    00000008 A            DATA     8
     3999   01 01EB5    00000008 A            DATA     8
     4000   01 01EB6    00000000 A            DATA     0
     4001   01 01EB7    89124637 A            DATA     X'89124637'
     4002   01 01EB8    00000005 A            DATA     5
     4003   01 01EB9    00000005 A            DATA     5
     4004   01 01EBA    00000000 A            DATA     0
     4005   01 01EBB    0C000000 A            DATA     X'0C000000'
     4006   01 01EBC    23456789 A            DATA     X'23456789'
     4007   01 01EBD    23456789 A            DATA     X'23456789'
     4008   01 01EBE    00000000 A            DATA     0
     4009   01 01EBF    00000000 A            DATA     0
     4010   01 01EC0    1246370A A            DATA     X'1246370A'
     4011   01 01EC1    1246370A A            DATA     X'1246370A'
     4012                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3, NO TRAP
     4013   01 01EC2    161B1037 A   DST27    MODULE,1
     4014   01 01EC3    7F062FFB              DST,0    MEMORY-5,3
     4015   01 01EC4    03301148              K        0,3,3,LOC
     4016   01 01EC5    0330114A              K        0,3,3,LOC+2
     4017   01 01EC6    98765432 A            DATA     X'98765432'
     4018   01 01EC7    98765432 A            DATA     X'98765432'
     4019   01 01EC8    00000000 A            DATA     0
     4020   01 01EC9    00000098 A            DATA     X'98'
     4021   01 01ECA    12345678 A            DATA     X'12345678'
     4022   01 01ECB    12345678 A            DATA     X'12345678'
     4023   01 01ECC    00000000 A            DATA     0
     4024   01 01ECD    76543212 A            DATA     X'76543212'
     4025   01 01ECE    90246813 A            DATA     X'90246813'
     4026   01 01ECF    90246813 A            DATA     X'90246813'
     4027   01 01ED0    00000000 A            DATA     0
     4028   01 01ED1    34567890 A            DATA     X'34567890'
     4029   01 01ED2    5791428A A            DATA     X'5791428A'
     4030   01 01ED3    5791428A A            DATA     X'5791428A'
     4031   01 01ED4    00000000 A            DATA     0
     4032   01 01ED5    24681357 A            DATA     X'24681357'
     4033   01 01ED6    00000000 A            DATA     0
     4034   01 01ED7    91428C00 A            DATA     X'91428C00'
     4035                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3, NO TRAP
     4036   01 01ED8    121C1038 A   DST28    MODULE,1
     4037   01 01ED9    7F162FFF              DST,1    MEMORY-1,3
     4038   01 01EDA    03301148              K        0,3,3,LOC
     4039   01 01EDB    4330114A              K        4,3,3,LOC+2
     4040   01 01EDC    00000005 A            DATA     5
     4041   01 01EDD    00000005 A            DATA     5
     4042   01 01EDE    00000000 A            DATA     0
     4043   01 01EDF    0000007D A            DATA     X'7D'
     4044   01 01EE0    00000009 A            DATA     9
     4045   01 01EE1    00000009 A            DATA     9
     4046   01 01EE2    00000000 A            DATA     0
     4047   01 01EE3    00000000 A            DATA     0
     4048   01 01EE4    00000003 A            DATA     3
     4049   01 01EE5    00000003 A            DATA     3
     4050   01 01EE6    00000000 A            DATA     0
     4051   01 01EE7    00000000 A            DATA     0
     4052   01 01EE8    1204067B A            DATA     X'1204067B'
     4053   01 01EE9    1204067B A            DATA     X'1204067B'
     4054                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3,EXPECTED TRAP
     4055   01 01EEA    121D1039 A   DST29    MODULE,1
     4056   01 01EEB    7F262FFF              DST,2    MEMORY-1,3
     4057   01 01EEC    03301148              K        0,3,3,LOC
     4058   01 01EED    03301016              K        0,3,3,EXP:TRAP
     4059   01 01EEE    00000001 A            DATA     1
     4060   01 01EEF    00000001 A            DATA     1
     4061   01 01EF0    00000000 A            DATA     0
     4062   01 01EF1    00000000 A            DATA     0
     4063   01 01EF2    00000002 A            DATA     2
     4064   01 01EF3    00000002 A            DATA     2
     4065   01 01EF4    00000000 A            DATA     0
     4066   01 01EF5    00000000 A            DATA     0
     4067   01 01EF6    00000003 A            DATA     3
     4068   01 01EF7    00000003 A            DATA     3
     4069   01 01EF8    00000000 A            DATA     0
     4070   01 01EF9    00000000 A            DATA     0
     4071   01 01EFA    9876543A A            DATA     X'9876543A'
     4072   01 01EFB    9876543A A            DATA     X'9876543A'
     4073                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3,EXPECTED TRAP
     4074   01 01EFC    121E103A A   DST30    MODULE,1
     4075   01 01EFD    7F362FFF              DST,3    MEMORY-1,3
     4076   01 01EFE    03301148              K        0,3,3,LOC
     4077   01 01EFF    03301016              K        0,3,3,EXP:TRAP
     4078   01 01F00    00000007 A            DATA     7
     4079   01 01F01    00000007 A            DATA     7
     4080   01 01F02    00000000 A            DATA     0
     4081   01 01F03    00000000 A            DATA     0
     4082   01 01F04    00000009 A            DATA     9
     4083   01 01F05    00000009 A            DATA     9
     4084   01 01F06    00000000 A            DATA     0
     4085   01 01F07    00000000 A            DATA     0
     4086   01 01F08    00000003 A            DATA     3
     4087   01 01F09    00000003 A            DATA     3
     4088   01 01F0A    00000000 A            DATA     0
     4089   01 01F0B    00000000 A            DATA     0
     4090   01 01F0C    8642135A A            DATA     X'8642135A'
     4091   01 01F0D    8642135A A            DATA     X'8642135A'
     4092                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3, NO TRAP
     4093   01 01F0E    121F103B A   DST31    MODULE,1
     4094   01 01F0F    7F562FFE              DST,5    MEMORY-2,3
     4095   01 01F10    03301148              K        0,3,3,LOC
     4096   01 01F11    4330114A              K        4,3,3,LOC+2
     4097   01 01F12    00000003 A            DATA     3
     4098   01 01F13    00000003 A            DATA     3
     4099   01 01F14    00000000 A            DATA     0
     4100   01 01F15    00000053 A            DATA     X'53'
     4101   01 01F16    00000004 A            DATA     4
     4102   01 01F17    00000004 A            DATA     4
     4103   01 01F18    00000000 A            DATA     0
     4104   01 01F19    9274268D A            DATA     X'9274268D'
     4105   01 01F1A    00000053 A            DATA     X'53'
     4106   01 01F1B    00000053 A            DATA     X'53'
     4107   01 01F1C    00000000 A            DATA     0
     4108   01 01F1D    00000000 A            DATA     0
     4109   01 01F1E    9274268B A            DATA     X'9274268B'
     4110   01 01F1F    9274268B A            DATA     X'9274268B'
     4111   01 01F20    1401003C A   DA01     MODULE   X'79'             DA - CHECK ADDER-SUBTRACTER
     4112   01 01F21    79003000              DA,0     MEMORY
     4113   01 01F22    03301148              K        0,3,3,LOC
     4114   01 01F23    2330114A              K        2,3,3,LOC+2
     4115   01 01F24    06530869 A            DATA     X'06530869'
     4116   01 01F25    29048908 A            DATA     X'29048908'
     4117   01 01F26    22518038 A            DATA     X'22518038'
     4118   01 01F27    22518038 A            DATA     X'22518038'
     4119   01 01F28    98607909 A            DATA     X'98607909'
     4120   01 01F29    97224856 A            DATA     X'97224856'
     4121   01 01F2A    98616947 A            DATA     X'98616947'
     4122   01 01F2B    98616947 A            DATA     X'98616947'
     4123   01 01F2C    07418080 A            DATA     X'07418080'
     4124   01 01F2D    14836881 A            DATA     X'14836881'
     4125   01 01F2E    07418800 A            DATA     X'07418800'
     4126   01 01F2F    07418800 A            DATA     X'07418800'
     4127   01 01F30    9107660A A            DATA     X'9107660A'
     4128   01 01F31    6117120C A            DATA     X'6117120C'
     4129   01 01F32    7009460A A            DATA     X'7009460A'
     4130   01 01F33    7009460A A            DATA     X'7009460A'
     4131   01 01F34    1402003D A   DA02     MODULE                     DA - CHECK ADDER-SUBTRACTER
     4132   01 01F35    79003000              DA,0     MEMORY
     4133   01 01F36    03301148              K        0,3,3,LOC
     4134   01 01F37    1330114A              K        1,3,3,LOC+2
     4135   01 01F38    28787178 A            DATA     X'28787178'
     4136   01 01F39    47276247 A            DATA     X'47276247'
     4137   01 01F3A    18489068 A            DATA     X'18489068'
     4138   01 01F3B    18489068 A            DATA     X'18489068'
     4139   01 01F3C    85484150 A            DATA     X'85484150'
     4140   01 01F3D    66569881 A            DATA     X'66569881'
     4141   01 01F3E    81085730 A            DATA     X'81085730'
     4142   01 01F3F    81085730 A            DATA     X'81085730'
     4143   01 01F40    70706004 A            DATA     X'70706004'
     4144   01 01F41    31422509 A            DATA     X'31422509'
     4145   01 01F42    60716504 A            DATA     X'60716504'
     4146   01 01F43    60716504 A            DATA     X'60716504'
     4147   01 01F44    7818980D A            DATA     X'7818980D'
     4148   01 01F45    4627960D A            DATA     X'4627960D'
     4149   01 01F46    6808980D A            DATA     X'6808980D'
     4150   01 01F47    6808980D A            DATA     X'6808980D'
     4151   01 01F48    1403003E A   DA03     MODULE                     DA - CHECK ADDER-SUBTRACTER
     4152   01 01F49    79C03000              DA,12    MEMORY
     4153   01 01F4A    03301148              K        0,3,3,LOC
     4154   01 01F4B    2330114A              K        2,3,3,LOC+2
     4155   01 01F4C    00000000 A            DATA     X'0'
     4156   01 01F4D    00000000 A            DATA     X'0'
     4157   01 01F4E    00000980 A            DATA     X'00000980'
     4158   01 01F4F    00000980 A            DATA     X'00000980'
     4159   01 01F50    00000680 A            DATA     X'00000680'
     4160   01 01F51    00001660 A            DATA     X'00001660'
     4161   01 01F52    00820000 A            DATA     X'00820000'
     4162   01 01F53    00820000 A            DATA     X'00820000'
     4163   01 01F54    03800200 A            DATA     X'03800200'
     4164   01 01F55    04620200 A            DATA     X'04620200'
     4165   01 01F56    0069110C A            DATA     X'0069110C'
     4166   01 01F57    0069110C A            DATA     X'0069110C'
     4167   01 01F58    0069310C A            DATA     X'0069310C'
     4168   01 01F59    0138420C A            DATA     X'0138420C'
     4169   01 01F5A    00000000 A            DATA     X'0'
     4170   01 01F5B    00000000 A            DATA     X'0'
     4171   01 01F5C    1404003F A   DA04     MODULE                     DA - ADD ZEROS
     4172   01 01F5D    79003000              DA,0     MEMORY
     4173   01 01F5E    F3301148              K        15,3,3,LOC
     4174   01 01F5F    0330114A              K        0,3,3,LOC+2
     4175   01 01F60    00000000 A            DATA     X'0'
     4176   01 01F61    00000000 A            DATA     X'0'
     4177   01 01F62    00000000 A            DATA     X'0'
     4178   01 01F63    00000000 A            DATA     X'0'
     4179   01 01F64    00000000 A            DATA     X'0'
     4180   01 01F65    00000000 A            DATA     X'0'
     4181   01 01F66    00000000 A            DATA     X'0'
     4182   01 01F67    00000000 A            DATA     X'0'
     4183   01 01F68    00000000 A            DATA     X'0'
     4184   01 01F69    00000000 A            DATA     X'0'
     4185   01 01F6A    00000000 A            DATA     X'0'
     4186   01 01F6B    00000000 A            DATA     X'0'
     4187   01 01F6C    0000000C A            DATA     X'C'
     4188   01 01F6D    0000000C A            DATA     X'C'
     4189   01 01F6E    0000000C A            DATA     X'C'
     4190   01 01F6F    0000000C A            DATA     X'C'
     4191   01 01F70    14050040 A   DA05     MODULE                     DA - OVERFLOW -TRAP
     4192   01 01F71    79003000              DA,0     MEMORY
     4193   01 01F72    0330114D              K        0,3,3,LOC+5
     4194   01 01F73    4330101B              K        4,3,3,EXP:TRAP+5
     4195   01 01F74    50000000 A            DATA     X'50000000'
     4196   01 01F75    50000000 A            DATA     X'50000000'
     4197   01 01F76    50000000 A            DATA     X'50000000'
     4198   01 01F77    50000000 A            DATA     X'50000000'
     4199   01 01F78    00000000 A            DATA     X'0'
     4200   01 01F79    00000000 A            DATA     X'0'
     4201   01 01F7A    00000000 A            DATA     X'0'
     4202   01 01F7B    00000000 A            DATA     X'0'
     4203   01 01F7C    00000000 A            DATA     X'0'
     4204   01 01F7D    00000000 A            DATA     X'0'
     4205   01 01F7E    00000000 A            DATA     X'0'
     4206   01 01F7F    00000000 A            DATA     X'0'
     4207   01 01F80    0000000C A            DATA     X'C'
     4208   01 01F81    0000000C A            DATA     X'C'
     4209   01 01F82    0000000C A            DATA     X'C'
     4210   01 01F83    0000000C A            DATA     X'C'
     4211   01 01F84    14060041 A   DA06     MODULE                     DA - OVERFLOW - NO TRAP
     4212   01 01F85    79003000              DA,0     MEMORY
     4213   01 01F86    03101148              K        0,3,1,LOC
     4214   01 01F87    4310114A              K        4,3,1,LOC+2
     4215   01 01F88    50000000 A            DATA     X'50000000'
     4216   01 01F89    50000000 A            DATA     X'50000000'
     4217   01 01F8A    50000000 A            DATA     X'50000000'
     4218   01 01F8B    50000000 A            DATA     X'50000000'
     4219   01 01F8C    00000000 A            DATA     X'0'
     4220   01 01F8D    00000000 A            DATA     X'0'
     4221   01 01F8E    00000000 A            DATA     X'0'
     4222   01 01F8F    00000000 A            DATA     X'0'
     4223   01 01F90    00000000 A            DATA     X'0'
     4224   01 01F91    00000000 A            DATA     X'0'
     4225   01 01F92    00000000 A            DATA     X'0'
     4226   01 01F93    00000000 A            DATA     X'0'
     4227   01 01F94    0000000C A            DATA     X'C'
     4228   01 01F95    0000000C A            DATA     X'C'
     4229   01 01F96    0000000C A            DATA     X'C'
     4230   01 01F97    0000000C A            DATA     X'C'
     4231   01 01F98    14070042 A   DA07     MODULE                     DA - MAX SUM
     4232   01 01F99    79003000              DA,0     MEMORY
     4233   01 01F9A    03301148              K        0,3,3,LOC
     4234   01 01F9B    2330114A              K        2,3,3,LOC+2
     4235   01 01F9C    55555555 A            DATA     X'55555555'
     4236   01 01F9D    99999999 A            DATA     X'99999999'
     4237   01 01F9E    44444444 A            DATA     X'44444444'
     4238   01 01F9F    44444444 A            DATA     X'44444444'
     4239   01 01FA0    55555555 A            DATA     X'55555555'
     4240   01 01FA1    99999999 A            DATA     X'99999999'
     4241   01 01FA2    44444444 A            DATA     X'44444444'
     4242   01 01FA3    44444444 A            DATA     X'44444444'
     4243   01 01FA4    55555555 A            DATA     X'55555555'
     4244   01 01FA5    99999999 A            DATA     X'99999999'
     4245   01 01FA6    44444444 A            DATA     X'44444444'
     4246   01 01FA7    44444444 A            DATA     X'44444444'
     4247   01 01FA8    5555555C A            DATA     X'5555555C'
     4248   01 01FA9    9999999C A            DATA     X'9999999C'
     4249   01 01FAA    4444444C A            DATA     X'4444444C'
     4250   01 01FAB    4444444C A            DATA     X'4444444C'
     4251   01 01FAC    14080043 A   DA08     MODULE                     DA-COMPLEMENT RESULT DURING P7
     4252   01 01FAD    79F03000              DA,15    MEMORY
     4253   01 01FAE    E3301148              K        14,3,3,LOC        PSW1 IN
     4254   01 01FAF    1330114A              K        1,3,3,LOC+2       PSW1 OUT
     4255   01 01FB0    00698841 A            DATA     X'00698841'       R12 IN
     4256   01 01FB1    00238817 A            DATA     X'00238817'       R12 OUT
     4257   01 01FB2    93765872 A            DATA     X'93765872'       MEMORY+0 IN
     4258   01 01FB3    93765872 A            DATA     X'93765872'       MEMORY+0 OUT
     4259   01 01FB4    52452246 A            DATA     X'52452246'       R13 IN
     4260   01 01FB5    20006420 A            DATA     X'20006420'       R13 OUT
     4261   01 01FB6    45866756 A            DATA     X'45866756'       MEMORY+1 IN
     4262   01 01FB7    45866756 A            DATA     X'45866756'       MEMORY+1 OUT
     4263   01 01FB8    90699255 A            DATA     X'90699255'       R14 IN
     4264   01 01FB9    65693182 A            DATA     X'65693182'       R14 OUT
     4265   01 01FBA    39243739 A            DATA     X'39243739'       MEMORY+2 IN
     4266   01 01FBB    39243739 A            DATA     X'39243739'       MEMORY+2 OUT
     4267   01 01FBC    1103567C A            DATA     X'1103567C'       R15 IN
     4268   01 01FBD    2842110D A            DATA     X'2842110D'       R15 OUT
     4269   01 01FBE    45677D00 A            DATA     X'45677D00'       MEMORY+3 IN
     4270   01 01FBF    45677D00 A            DATA     X'45677D00'       MEMORY+3 OUT
     4271                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO , R13 IN = ZERO ,
     4272                            * R14 IN = NONZERO , R15 IN = NONZERO  POSITIVE
     4273   01 01FC0    12090044 A   DA09     MODULE
     4274   01 01FC1    79703000              DA,7     MEMORY
     4275   01 01FC2    03301148              K        0,3,3,LOC
     4276   01 01FC3    2330114A              K        2,3,3,LOC+2
     4277   01 01FC4    00000000 A            DATA     0
     4278   01 01FC5    00000000 A            DATA     0
     4279   01 01FC6    11111112 A            DATA     X'11111112'
     4280   01 01FC7    11111112 A            DATA     X'11111112'
     4281   01 01FC8    00000000 A            DATA     0
     4282   01 01FC9    00000000 A            DATA     0
     4283   01 01FCA    33333C00 A            DATA     X'33333C00'
     4284   01 01FCB    33333C00 A            DATA     X'33333C00'
     4285   01 01FCC    33333333 A            DATA     X'33333333'
     4286   01 01FCD    33444444 A            DATA     X'33444444'
     4287   01 01FCE    00000000 A            DATA     0
     4288   01 01FCF    00000000 A            DATA     0
     4289   01 01FD0    1111111C A            DATA     X'1111111C'
     4290   01 01FD1    2344444C A            DATA     X'2344444C'
     4291                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO , R13 IN ZERO ,
     4292                            * R14 IN = NONZERO , R15 IN ZERO  NEGATIVE
     4293   01 01FD2    120A0045 A   DA10     MODULE
     4294   01 01FD3    79803000              DA,8     MEMORY
     4295   01 01FD4    03301148              K        0,3,3,LOC
     4296   01 01FD5    2330114A              K        2,3,3,LOC+2
     4297   01 01FD6    00000000 A            DATA     0
     4298   01 01FD7    00000000 A            DATA     0
     4299   01 01FD8    77777777 A            DATA     X'77777777'
     4300   01 01FD9    77777777 A            DATA     X'77777777'
     4301   01 01FDA    00000000 A            DATA     0
     4302   01 01FDB    00000000 A            DATA     0
     4303   01 01FDC    0000000C A            DATA     X'C'
     4304   01 01FDD    0000000C A            DATA     X'C'
     4305   01 01FDE    22222222 A            DATA     X'22222222'
     4306   01 01FDF    55555555 A            DATA     X'55555555'
     4307   01 01FE0    00000000 A            DATA     0
     4308   01 01FE1    00000000 A            DATA     0
     4309   01 01FE2    0000000D A            DATA     X'D'
     4310   01 01FE3    0000000C A            DATA     X'C'
     4311                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO , R13 IN = NONZERO ,
     4312                            * R14 IN = ZERO , R15 IN = NONZERO POSITIVE
     4313   01 01FE4    120B0046 A   DA11     MODULE
     4314   01 01FE5    79903000              DA,9     MEMORY
     4315   01 01FE6    03301148              K        0,3,3,LOC
     4316   01 01FE7    2330114A              K        2,3,3,LOC+2
     4317   01 01FE8    00000000 A            DATA     0
     4318   01 01FE9    00000000 A            DATA     0
     4319   01 01FEA    36363636 A            DATA     X'36363636'
     4320   01 01FEB    36363636 A            DATA     X'36363636'
     4321   01 01FEC    12121212 A            DATA     X'12121212'
     4322   01 01FED    12121248 A            DATA     X'12121248'
     4323   01 01FEE    63636363 A            DATA     X'63636363'
     4324   01 01FEF    63636363 A            DATA     X'63636363'
     4325   01 01FF0    00000000 A            DATA     0
     4326   01 01FF1    36363663 A            DATA     X'36363663'
     4327   01 01FF2    3C000000 A            DATA     X'3C000000'
     4328   01 01FF3    3C000000 A            DATA     X'3C000000'
     4329   01 01FF4    1111111C A            DATA     X'1111111C'
     4330   01 01FF5    7474744C A            DATA     X'7474744C'
     4331                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO ,R13 IN = NONZERO ,
     4332                            * R14 IN = NONZERO , R15 IN = ZERO NEGATIVE
     4333   01 01FF6    120C0047 A   DA12     MODULE
     4334   01 01FF7    79703000              DA,7     MEMORY
     4335   01 01FF8    03301148              K        0,3,3,LOC
     4336   01 01FF9    1330114A              K        1,3,3,LOC+2
     4337   01 01FFA    00000000 A            DATA     0
     4338   01 01FFB    00000000 A            DATA     0
     4339   01 01FFC    40213200 A            DATA     X'40213200'
     4340   01 01FFD    40213200 A            DATA     X'40213200'
     4341   01 01FFE    14362458 A            DATA     X'14362458'
     4342   01 01FFF    14362458 A            DATA     X'14362458'
     4343   01 02000    00000D00 A            DATA     X'D00'
     4344   01 02001    00000D00 A            DATA     X'D00'
     4345   01 02002    27394651 A            DATA     X'27394651'
     4346   01 02003    27796783 A            DATA     X'27796783'
     4347   01 02004    00000000 A            DATA     0
     4348   01 02005    00000000 A            DATA     0
     4349   01 02006    0000000D A            DATA     X'D'
     4350   01 02007    0000000D A            DATA     X'D'
     4351                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO , R13 IN = NONZERO,
     4352                            * R14 IN = ZERO , R15 IN = ZERO  POSITIVE
     4353   01 02008    120D0048 A   DA13     MODULE
     4354   01 02009    79803000              DA,8     MEMORY
     4355   01 0200A    03301148              K        0,3,3,LOC
     4356   01 0200B    2330114A              K        2,3,3,LOC+2
     4357   01 0200C    00000000 A            DATA     0
     4358   01 0200D    00000001 A            DATA     1
     4359   01 0200E    00000001 A            DATA     1
     4360   01 0200F    00000001 A            DATA     1
     4361   01 02010    99999999 A            DATA     X'99999999'
     4362   01 02011    00000000 A            DATA     0
     4363   01 02012    0000000C A            DATA     X'C'
     4364   01 02013    0000000C A            DATA     X'C'
     4365   01 02014    99999999 A            DATA     X'99999999'
     4366   01 02015    00000000 A            DATA     0
     4367   01 02016    00000000 A            DATA     0
     4368   01 02017    00000000 A            DATA     0
     4369   01 02018    0000000C A            DATA     X'C'
     4370   01 02019    0000000C A            DATA     X'C'
     4371                            * ZERO LOOKAHEAD TEST, R12 IN = NONZERO , R13 IN = ZERO ,
     4372                            * R14 IN = NONZERO , R15 IN = NONZERO POSITIVE
     4373   01 0201A    120E0049 A   DA14     MODULE
     4374   01 0201B    79903000              DA,9     MEMORY
     4375   01 0201C    03301148              K        0,3,3,LOC
     4376   01 0201D    2330114A              K        2,3,3,LOC+2
     4377   01 0201E    13131313 A            DATA     X'13131313'
     4378   01 0201F    13131313 A            DATA     X'13131313'
     4379   01 02020    00414141 A            DATA     X'414141'
     4380   01 02021    00414141 A            DATA     X'414141'
     4381   01 02022    00000000 A            DATA     0
     4382   01 02023    00000000 A            DATA     0
     4383   01 02024    41131313 A            DATA     X'41131313'
     4384   01 02025    41131313 A            DATA     X'41131313'
     4385   01 02026    52525252 A            DATA     X'52525252'
     4386   01 02027    11111111 A            DATA     X'11111111'
     4387   01 02028    1D000000 A            DATA     X'1D000000'
     4388   01 02029    1D000000 A            DATA     X'1D000000'
     4389   01 0202A    6464646C A            DATA     X'6464646C'
     4390   01 0202B    5151515C A            DATA     X'5151515C'
     4391                            * ZERO LOOKAHEAD TEST, R12 IN = NONZERO , R13 IN ZERO ,
     4392                            * R14 IN = NONZERO , R15 IN = ZERO  NEGATIVE
     4393   01 0202C    120F004A A   DA15     MODULE
     4394   01 0202D    79703000              DA,7     MEMORY
     4395   01 0202E    03301148              K        0,3,3,LOC
     4396   01 0202F    1330114A              K        1,3,3,LOC+2
     4397   01 02030    62626262 A            DATA     X'62626262'
     4398   01 02031    62626262 A            DATA     X'62626262'
     4399   01 02032    12121200 A            DATA     X'12121200'
     4400   01 02033    12121200 A            DATA     X'12121200'
     4401   01 02034    00000000 A            DATA     0
     4402   01 02035    00000000 A            DATA     0
     4403   01 02036    00000D00 A            DATA     X'D00'
     4404   01 02037    00000D00 A            DATA     X'D00'
     4405   01 02038    54545454 A            DATA     X'54545454'
     4406   01 02039    54666666 A            DATA     X'54666666'
     4407   01 0203A    00000000 A            DATA     0
     4408   01 0203B    00000000 A            DATA     0
     4409   01 0203C    0000000D A            DATA     X'D'
     4410   01 0203D    0000000D A            DATA     X'D'
     4411                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 0
     4412   01 0203E    1210004B A   DA16     MODULE
     4413   01 0203F    79103000              DA,1     MEMORY
     4414   01 02040    03301148              K        0,3,3,LOC
     4415   01 02041    2330114A              K        2,3,3,LOC+2
     4416   01 02042    12345678 A            DATA     X'12345678'
     4417   01 02043    12345678 A            DATA     X'12345678'
     4418   01 02044    5DEFABCD A            DATA     X'5DEFABCD'
     4419   01 02045    5DEFABCD A            DATA     X'5DEFABCD'
     4420   01 02046    23451234 A            DATA     X'23451234'
     4421   01 02047    23451234 A            DATA     X'23451234'
     4422   01 02048    00000000 A            DATA     0
     4423   01 02049    00000000 A            DATA     0
     4424   01 0204A    11111111 A            DATA     X'11111111'
     4425   01 0204B    11111111 A            DATA     X'11111111'
     4426   01 0204C    00000000 A            DATA     0
     4427   01 0204D    00000000 A            DATA     0
     4428   01 0204E    5432102C A            DATA     X'5432102C'
     4429   01 0204F    5432097C A            DATA     X'5432097C'
     4430                            * BYTE ADDRESSING TEST , L = 2 , R3 INDEX = 0
     4431   01 02050    1211004C A   DA17     MODULE
     4432   01 02051    79203000              DA,2     MEMORY
     4433   01 02052    03301148              K        0,3,3,LOC
     4434   01 02053    2330114A              K        2,3,3,LOC+2
     4435   01 02054    00000000 A            DATA     0
     4436   01 02055    00000000 A            DATA     0
     4437   01 02056    123CDEFA A            DATA     X'123CDEFA'
     4438   01 02057    123CDEFA A            DATA     X'123CDEFA'
     4439   01 02058    00000000 A            DATA     0
     4440   01 02059    00000000 A            DATA     0
     4441   01 0205A    00000000 A            DATA     0
     4442   01 0205B    00000000 A            DATA     0
     4443   01 0205C    00000000 A            DATA     0
     4444   01 0205D    00000000 A            DATA     0
     4445   01 0205E    00000000 A            DATA     0
     4446   01 0205F    00000000 A            DATA     0
     4447   01 02060    0000321C A            DATA     X'321C'
     4448   01 02061    0000444C A            DATA     X'444C'
     4449                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 0
     4450   01 02062    1212004D A   DA18     MODULE
     4451   01 02063    79303000              DA,3     MEMORY
     4452   01 02064    03301148              K        0,3,3,LOC
     4453   01 02065    1330114A              K        1,3,3,LOC+2
     4454   01 02066    11111111 A            DATA     X'11111111'
     4455   01 02067    11111111 A            DATA     X'11111111'
     4456   01 02068    13572BCD A            DATA     X'13572BCD'
     4457   01 02069    13572BCD A            DATA     X'13572BCD'
     4458   01 0206A    00000002 A            DATA     2
     4459   01 0206B    00000002 A            DATA     2
     4460   01 0206C    00000001 A            DATA     1
     4461   01 0206D    00000001 A            DATA     1
     4462   01 0206E    00000005 A            DATA     5
     4463   01 0206F    00000005 A            DATA     5
     4464   01 02070    00000003 A            DATA     3
     4465   01 02071    00000003 A            DATA     3
     4466   01 02072    0075316B A            DATA     X'75316B'
     4467   01 02073    0088888D A            DATA     X'88888D'
     4468                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 0
     4469   01 02074    1213004E A   DA19     MODULE
     4470   01 02075    79403000              DA,4     MEMORY
     4471   01 02076    03301148              K        0,3,3,LOC
     4472   01 02077    2330114A              K        2,3,3,LOC+2
     4473   01 02078    00000001 A            DATA     1
     4474   01 02079    00000001 A            DATA     1
     4475   01 0207A    9345127A A            DATA     X'9345127A'
     4476   01 0207B    9345127A A            DATA     X'9345127A'
     4477   01 0207C    00000002 A            DATA     2
     4478   01 0207D    00000002 A            DATA     2
     4479   01 0207E    00000000 A            DATA     0
     4480   01 0207F    00000000 A            DATA     0
     4481   01 02080    00000000 A            DATA     0
     4482   01 02081    00000001 A            DATA     1
     4483   01 02082    00000000 A            DATA     0
     4484   01 02083    00000000 A            DATA     0
     4485   01 02084    2000000C A            DATA     X'2000000C'
     4486   01 02085    1345127C A            DATA     X'1345127C'
     4487                            * BYTE ADDRESSING TEST , L = 5 , R3 INDEX = 0
     4488   01 02086    1214004F A   DA20     MODULE
     4489   01 02087    79503000              DA,5     MEMORY
     4490   01 02088    03301148              K        0,3,3,LOC
     4491   01 02089    1330114A              K        1,3,3,LOC+2
     4492   01 0208A    00000000 A            DATA     0
     4493   01 0208B    00000000 A            DATA     0
     4494   01 0208C    10973607 A            DATA     X'10973607'
     4495   01 0208D    10973607 A            DATA     X'10973607'
     4496   01 0208E    00000000 A            DATA     0
     4497   01 0208F    00000000 A            DATA     0
     4498   01 02090    3DEFABCD A            DATA     X'3DEFABCD'
     4499   01 02091    3DEFABCD A            DATA     X'3DEFABCD'
     4500   01 02092    00000000 A            DATA     0
     4501   01 02093    00000010 A            DATA     X'10'
     4502   01 02094    00000000 A            DATA     0
     4503   01 02095    00000000 A            DATA     0
     4504   01 02096    0123210D A            DATA     X'123210D'
     4505   01 02097    9859283D A            DATA     X'9859283D'
     4506                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 1
     4507   01 02098    12150050 A   DA21     MODULE
     4508   01 02099    79123000              DA,1     MEMORY,1
     4509   01 0209A    03301148              K        0,3,3,LOC
     4510   01 0209B    2330114A              K        2,3,3,LOC+2
     4511   01 0209C    00000000 A            DATA     0
     4512   01 0209D    00000000 A            DATA     0
     4513   01 0209E    357ABCDE A            DATA     X'357ABCDE'
     4514   01 0209F    357ABCDE A            DATA     X'357ABCDE'
     4515   01 020A0    00000000 A            DATA     0
     4516   01 020A1    00000000 A            DATA     0
     4517   01 020A2    00000000 A            DATA     0
     4518   01 020A3    00000000 A            DATA     0
     4519   01 020A4    00000000 A            DATA     0
     4520   01 020A5    00000000 A            DATA     0
     4521   01 020A6    00000000 A            DATA     0
     4522   01 020A7    00000000 A            DATA     0
     4523   01 020A8    1111118C A            DATA     X'1111118C'
     4524   01 020A9    1111125C A            DATA     X'1111125C'
     4525                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 2
     4526   01 020AA    12160051 A   DA22     MODULE
     4527   01 020AB    79343000              DA,3     MEMORY,2
     4528   01 020AC    03301148              K        0,3,3,LOC
     4529   01 020AD    2330114A              K        2,3,3,LOC+2
     4530   01 020AE    00000000 A            DATA     0
     4531   01 020AF    00000000 A            DATA     0
     4532   01 020B0    13572468 A            DATA     X'13572468'
     4533   01 020B1    13572468 A            DATA     X'13572468'
     4534   01 020B2    00000000 A            DATA     0
     4535   01 020B3    00000000 A            DATA     0
     4536   01 020B4    2DEFABCD A            DATA     X'2DEFABCD'
     4537   01 020B5    2DEFABCD A            DATA     X'2DEFABCD'
     4538   01 020B6    00000013 A            DATA     X'13'
     4539   01 020B7    00000013 A            DATA     X'13'
     4540   01 020B8    00000000 A            DATA     0
     4541   01 020B9    00000000 A            DATA     0
     4542   01 020BA    0024682C A            DATA     X'24682C'
     4543   01 020BB    0000000C A            DATA     X'C'
     4544                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 3
     4545   01 020BC    12170052 A   DA23     MODULE
     4546   01 020BD    79163000              DA,1     MEMORY,3
     4547   01 020BE    03301148              K        0,3,3,LOC
     4548   01 020BF    1330114A              K        1,3,3,LOC+2
     4549   01 020C0    00000000 A            DATA     0
     4550   01 020C1    00000000 A            DATA     0
     4551   01 020C2    1536249D A            DATA     X'1536249D'
     4552   01 020C3    1536249D A            DATA     X'1536249D'
     4553   01 020C4    00000000 A            DATA     0
     4554   01 020C5    00000000 A            DATA     0
     4555   01 020C6    00000000 A            DATA     0
     4556   01 020C7    00000000 A            DATA     0
     4557   01 020C8    00000000 A            DATA     0
     4558   01 020C9    00000000 A            DATA     0
     4559   01 020CA    00000000 A            DATA     0
     4560   01 020CB    00000000 A            DATA     0
     4561   01 020CC    1234565D A            DATA     X'1234565D'
     4562   01 020CD    1234574D A            DATA     X'1234574D'
     4563                            * BYTE ADDRESSING TEST , L = 5 , R3 INDEX = 3
     4564   01 020CE    12180053 A   DA24     MODULE
     4565   01 020CF    79563000              DA,5     MEMORY,3
     4566   01 020D0    03301148              K        0,3,3,LOC
     4567   01 020D1    2330114A              K        2,3,3,LOC+2
     4568   01 020D2    00000000 A            DATA     0
     4569   01 020D3    00000000 A            DATA     0
     4570   01 020D4    22222246 A            DATA     X'22222246'
     4571   01 020D5    22222246 A            DATA     X'22222246'
     4572   01 020D6    00000000 A            DATA     0
     4573   01 020D7    00000000 A            DATA     0
     4574   01 020D8    1203541A A            DATA     X'1203541A'
     4575   01 020D9    1203541A A            DATA     X'1203541A'
     4576   01 020DA    00000000 A            DATA     0
     4577   01 020DB    00000046 A            DATA     X'46'
     4578   01 020DC    00000000 A            DATA     0
     4579   01 020DD    00000000 A            DATA     0
     4580   01 020DE    1111111C A            DATA     X'1111111C'
     4581   01 020DF    2314652C A            DATA     X'2314652C'
     4582   01 020E0    12010054 A   DS00     MODULE   X'78'
     4583   01 020E1    78203000              DS,2     MEMORY
     4584   01 020E2    00001148              K        0,0,0,LOC
     4585   01 020E3    2000114A              K        2,0,0,LOC+2
     4586   01 020E4    10000000 A            DATA     X'10000000'
     4587   01 020E5    09999999 A            DATA     X'09999999'
     4588   01 020E6    001C0000 A            DATA     X'001C0000'
     4589   01 020E7    001C0000 A            DATA     X'001C0000'
     4590   01 020E8    00000000 A            DATA     0
     4591   01 020E9    99999999 A            DATA     X'99999999'
     4592   01 020EA    00000000 A            DATA     0
     4593   01 020EB    00000000 A            DATA     0
     4594   01 020EC    00000000 A            DATA     0
     4595   01 020ED    99999999 A            DATA     X'99999999'
     4596   01 020EE    00000000 A            DATA     0
     4597   01 020EF    00000000 A            DATA     0
     4598   01 020F0    0000000C A            DATA     12
     4599   01 020F1    9999999C A            DATA     X'9999999C'
     4600   01 020F2    14020055 A   DS01     MODULE                     DS - CHECK ADDER-SUBTRACTER
     4601   01 020F3    78003000              DS,0     MEMORY
     4602   01 020F4    03301148              K        0,3,3,LOC
     4603   01 020F5    2330114A              K        2,3,3,LOC+2
     4604   01 020F6    48728996 A            DATA     X'48728996'
     4605   01 020F7    20638097 A            DATA     X'20638097'
     4606   01 020F8    28090898 A            DATA     X'28090898'
     4607   01 020F9    28090898 A            DATA     X'28090898'
     4608   01 020FA    33248868 A            DATA     X'33248868'
     4609   01 020FB    42810059 A            DATA     X'42810059'
     4610   01 020FC    90438808 A            DATA     X'90438808'
     4611   01 020FD    90438808 A            DATA     X'90438808'
     4612   01 020FE    98201374 A            DATA     X'98201374'
     4613   01 020FF    98320491 A            DATA     X'98320491'
     4614   01 02100    99880883 A            DATA     X'99880883'
     4615   01 02101    99880883 A            DATA     X'99880883'
     4616   01 02102    4489280C A            DATA     X'4489280C'
     4617   01 02103    3366810C A            DATA     X'3366810C'
     4618   01 02104    1122470C A            DATA     X'1122470C'
     4619   01 02105    1122470C A            DATA     X'1122470C'
     4620   01 02106    14030056 A   DS02     MODULE                     DS - CHECK ADDER-SUBTRACTER
     4621   01 02107    78003000              DS,0     MEMORY
     4622   01 02108    03301148              K        0,3,3,LOC
     4623   01 02109    1330114A              K        1,3,3,LOC+2
     4624   01 0210A    53292101 A            DATA     X'53292101'
     4625   01 0210B    28306050 A            DATA     X'28306050'
     4626   01 0210C    24986050 A            DATA     X'24986050'
     4627   01 0210D    24986050 A            DATA     X'24986050'
     4628   01 0210E    23550351 A            DATA     X'23550351'
     4629   01 0210F    48886292 A            DATA     X'48886292'
     4630   01 02110    74664058 A            DATA     X'74664058'
     4631   01 02111    74664058 A            DATA     X'74664058'
     4632   01 02112    13111863 A            DATA     X'13111863'
     4633   01 02113    53621971 A            DATA     X'53621971'
     4634   01 02114    59489891 A            DATA     X'59489891'
     4635   01 02115    59489891 A            DATA     X'59489891'
     4636   01 02116    1247160D A            DATA     X'1247160D'
     4637   01 02117    2516200D A            DATA     X'2516200D'
     4638   01 02118    8730960D A            DATA     X'8730960D'
     4639   01 02119    8730960D A            DATA     X'8730960D'
     4640   01 0211A    14040057 A   DS03     MODULE                     DS - CHECK ADDER-SUBTRACTER
     4641   01 0211B    78C03000              DS,12    MEMORY
     4642   01 0211C    03301148              K        0,3,3,LOC
     4643   01 0211D    2330114A              K        2,3,3,LOC+2
     4644   01 0211E    00000000 A            DATA     X'0'
     4645   01 0211F    00000000 A            DATA     X'0'
     4646   01 02120    02706487 A            DATA     X'02706487'
     4647   01 02121    02706487 A            DATA     X'02706487'
     4648   01 02122    25655136 A            DATA     X'25655136'
     4649   01 02123    22948649 A            DATA     X'22948649'
     4650   01 02124    44533828 A            DATA     X'44533828'
     4651   01 02125    44533828 A            DATA     X'44533828'
     4652   01 02126    89166838 A            DATA     X'89166838'
     4653   01 02127    44633010 A            DATA     X'44633010'
     4654   01 02128    1000490C A            DATA     X'1000490C'
     4655   01 02129    1000490C A            DATA     X'1000490C'
     4656   01 0212A    4051940C A            DATA     X'4051940C'
     4657   01 0212B    3051450C A            DATA     X'3051450C'
     4658   01 0212C    00000000 A            DATA     X'0'
     4659   01 0212D    00000000 A            DATA     X'0'
     4660   01 0212E    14050058 A   DS04     MODULE                     DS - SUBTRACT ZEROS
     4661   01 0212F    78003000              DS,0     MEMORY
     4662   01 02130    F3301148              K        15,3,3,LOC
     4663   01 02131    0330114A              K        0,3,3,LOC+2
     4664   01 02132    00000000 A            DATA     X'0'
     4665   01 02133    00000000 A            DATA     X'0'
     4666   01 02134    00000000 A            DATA     X'0'
     4667   01 02135    00000000 A            DATA     X'0'
     4668   01 02136    00000000 A            DATA     X'0'
     4669   01 02137    00000000 A            DATA     X'0'
     4670   01 02138    00000000 A            DATA     X'0'
     4671   01 02139    00000000 A            DATA     X'0'
     4672   01 0213A    00000000 A            DATA     X'0'
     4673   01 0213B    00000000 A            DATA     X'0'
     4674   01 0213C    00000000 A            DATA     X'0'
     4675   01 0213D    00000000 A            DATA     X'0'
     4676   01 0213E    0000000C A            DATA     X'C'
     4677   01 0213F    0000000C A            DATA     X'C'
     4678   01 02140    0000000C A            DATA     X'C'
     4679   01 02141    0000000C A            DATA     X'C'
     4680   01 02142    14060059 A   DS05     MODULE                     DS - OVERFLOW - TRAP
     4681   01 02143    78003000              DS,0     MEMORY
     4682   01 02144    0330114D              K        0,3,3,LOC+5
     4683   01 02145    4330101B              K        4,3,3,EXP:TRAP+5
     4684   01 02146    50000000 A            DATA     X'50000000'
     4685   01 02147    50000000 A            DATA     X'50000000'
     4686   01 02148    50000000 A            DATA     X'50000000'
     4687   01 02149    50000000 A            DATA     X'50000000'
     4688   01 0214A    00000000 A            DATA     X'0'
     4689   01 0214B    00000000 A            DATA     X'0'
     4690   01 0214C    00000000 A            DATA     X'0'
     4691   01 0214D    00000000 A            DATA     X'0'
     4692   01 0214E    00000000 A            DATA     X'0'
     4693   01 0214F    00000000 A            DATA     X'0'
     4694   01 02150    00000000 A            DATA     X'0'
     4695   01 02151    00000000 A            DATA     X'0'
     4696   01 02152    0000000C A            DATA     X'C'
     4697   01 02153    0000000C A            DATA     X'C'
     4698   01 02154    0000000D A            DATA     X'D'
     4699   01 02155    0000000D A            DATA     X'D'
     4700   01 02156    1407005A A   DS06     MODULE                     DS - OVERFLOW - NO TRAP
     4701   01 02157    78003000              DS,0     MEMORY
     4702   01 02158    03101148              K        0,3,1,LOC
     4703   01 02159    4310114A              K        4,3,1,LOC+2
     4704   01 0215A    50000000 A            DATA     X'50000000'
     4705   01 0215B    50000000 A            DATA     X'50000000'
     4706   01 0215C    50000000 A            DATA     X'50000000'
     4707   01 0215D    50000000 A            DATA     X'50000000'
     4708   01 0215E    00000000 A            DATA     X'0'
     4709   01 0215F    00000000 A            DATA     X'0'
     4710   01 02160    00000000 A            DATA     X'0'
     4711   01 02161    00000000 A            DATA     X'0'
     4712   01 02162    00000000 A            DATA     X'0'
     4713   01 02163    00000000 A            DATA     X'0'
     4714   01 02164    00000000 A            DATA     X'0'
     4715   01 02165    00000000 A            DATA     X'0'
     4716   01 02166    0000000C A            DATA     X'C'
     4717   01 02167    0000000C A            DATA     X'C'
     4718   01 02168    0000000D A            DATA     X'D'
     4719   01 02169    0000000D A            DATA     X'D'
     4720   01 0216A    1408005B A   DS07     MODULE                     DS - MAX DIFF
     4721   01 0216B    78003000              DS,0     MEMORY
     4722   01 0216C    03301148              K        0,3,3,LOC
     4723   01 0216D    2330114A              K        2,3,3,LOC+2
     4724   01 0216E    55555555 A            DATA     X'55555555'
     4725   01 0216F    99999999 A            DATA     X'99999999'
     4726   01 02170    44444444 A            DATA     X'44444444'
     4727   01 02171    44444444 A            DATA     X'44444444'
     4728   01 02172    55555555 A            DATA     X'55555555'
     4729   01 02173    99999999 A            DATA     X'99999999'
     4730   01 02174    44444444 A            DATA     X'44444444'
     4731   01 02175    44444444 A            DATA     X'44444444'
     4732   01 02176    55555555 A            DATA     X'55555555'
     4733   01 02177    99999999 A            DATA     X'99999999'
     4734   01 02178    44444444 A            DATA     X'44444444'
     4735   01 02179    44444444 A            DATA     X'44444444'
     4736   01 0217A    5555555C A            DATA     X'5555555C'
     4737   01 0217B    9999999C A            DATA     X'9999999C'
     4738   01 0217C    4444444D A            DATA     X'4444444D'
     4739   01 0217D    4444444D A            DATA     X'4444444D'
     4740   01 0217E    1409005C A   DS08     MODULE                     DS-COMPLEMENT RESULT DURING P7
     4741   01 0217F    78E03000              DS,14    MEMORY
     4742   01 02180    E3301148              K        14,3,3,LOC        PSW1 IN
     4743   01 02181    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     4744   01 02182    00008275 A            DATA     X'00008275'       R12 IN
     4745   01 02183    00000431 A            DATA     X'00000431'       R12 OUT
     4746   01 02184    87067047 A            DATA     X'87067047'       MEMORY+0 IN
     4747   01 02185    87067047 A            DATA     X'87067047'       MEMORY+0 OUT
     4748   01 02186    27735988 A            DATA     X'27735988'       R13 IN
     4749   01 02187    42735135 A            DATA     X'42735135'       R13 OUT
     4750   01 02188    11245380 A            DATA     X'11245380'       MEMORY+1 IN
     4751   01 02189    11245380 A            DATA     X'11245380'       MEMORY+1 OUT
     4752   01 0218A    70360640 A            DATA     X'70360640'       R14 IN
     4753   01 0218B    83444352 A            DATA     X'83444352'       R14 OUT
     4754   01 0218C    49926731 A            DATA     X'49926731'       MEMORY+2 IN
     4755   01 0218D    49926731 A            DATA     X'49926731'       MEMORY+2 OUT
     4756   01 0218E    3689650D A            DATA     X'3689650D'       R15 IN
     4757   01 0218F    3042173C A            DATA     X'3042173C'       R15 OUT
     4758   01 02190    823D0000 A            DATA     X'823D0000'       MEMORY+3 IN
     4759   01 02191    823D0000 A            DATA     X'823D0000'       MEMORY+3 OUT
     4760                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO , R13 IN = ZERO
     4761                            *R14 IN = NONZERO , R15 IN = NONZERO  POSITIVE
     4762   01 02192    120A005D A   DS09     MODULE
     4763   01 02193    78803000              DS,8     MEMORY
     4764   01 02194    03301148              K        0,3,3,LOC
     4765   01 02195    1330114A              K        1,3,3,LOC+2
     4766   01 02196    00000000 A            DATA     0
     4767   01 02197    00000000 A            DATA     0
     4768   01 02198    67896789 A            DATA     X'67896789'
     4769   01 02199    67896789 A            DATA     X'67896789'
     4770   01 0219A    00000000 A            DATA     0
     4771   01 0219B    00000000 A            DATA     0
     4772   01 0219C    8765876C A            DATA     X'8765876C'
     4773   01 0219D    8765876C A            DATA     X'8765876C'
     4774   01 0219E    12341234 A            DATA     X'12341234'
     4775   01 0219F    55555555 A            DATA     X'55555555'
     4776   01 021A0    00000000 A            DATA     0
     4777   01 021A1    00000000 A            DATA     0
     4778   01 021A2    3210321C A            DATA     X'3210321C'
     4779   01 021A3    5555555D A            DATA     X'5555555D'
     4780                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO ,R13 IN = ZERO ,
     4781                            * R14 IN = NONZERO , R15 IN = ZERO POSITIVE
     4782   01 021A4    120B005E A   DS10     MODULE
     4783   01 021A5    78903000              DS,9     MEMORY
     4784   01 021A6    03301148              K        0,3,3,LOC
     4785   01 021A7    2330114A              K        2,3,3,LOC+2
     4786   01 021A8    00000000 A            DATA     0
     4787   01 021A9    00000000 A            DATA     0
     4788   01 021AA    85444444 A            DATA     X'85444444'
     4789   01 021AB    85444444 A            DATA     X'85444444'
     4790   01 021AC    00000000 A            DATA     0
     4791   01 021AD    00000085 A            DATA     X'85'
     4792   01 021AE    44000000 A            DATA     X'44000000'
     4793   01 021AF    44000000 A            DATA     X'44000000'
     4794   01 021B0    33333333 A            DATA     X'33333333'
     4795   01 021B1    77777777 A            DATA     X'77777777'
     4796   01 021B2    0D000000 A            DATA     X'0D000000'
     4797   01 021B3    0D000000 A            DATA     X'0D000000'
     4798   01 021B4    0000000C A            DATA     X'C'
     4799   01 021B5    0000000C A            DATA     X'C'
     4800                            * ZERO LOOKAHEAD TEST , R12 IN = ZERO , R13 IN NONZERO ,
     4801                            * R14 IN = ZERO , R15 IN = NONZERO  NEGATIVE
     4802   01 021B6    120C005F A   DS11     MODULE
     4803   01 021B7    78703000              DS,7     MEMORY
     4804   01 021B8    03301148              K        0,3,3,LOC
     4805   01 021B9    1330114A              K        1,3,3,LOC+2
     4806   01 021BA    00000000 A            DATA     0
     4807   01 021BB    00000000 A            DATA     0
     4808   01 021BC    45678912 A            DATA     X'45678912'
     4809   01 021BD    45678912 A            DATA     X'45678912'
     4810   01 021BE    15362447 A            DATA     X'15362447'
     4811   01 021BF    15362447 A            DATA     X'15362447'
     4812   01 021C0    34567C00 A            DATA     X'34567C00'
     4813   01 021C1    34567C00 A            DATA     X'34567C00'
     4814   01 021C2    00000000 A            DATA     0
     4815   01 021C3    00456789 A            DATA     X'456789'
     4816   01 021C4    00000000 A            DATA     0
     4817   01 021C5    00000000 A            DATA     0
     4818   01 021C6    7654321D A            DATA     X'7654321D'
     4819   01 021C7    8888888D A            DATA     X'8888888D'
     4820                            * ZERO LOOKAHEAD TEST , R12 IN = ZERO , R13 IN = NONZERO ,
     4821                            * R14 IN = NONZERO , R15 IN = ZERO  POSITIVE
     4822   01 021C8    120D0060 A   DS12     MODULE
     4823   01 021C9    78803000              DS,8     MEMORY
     4824   01 021CA    03301148              K        0,3,3,LOC
     4825   01 021CB    2330114A              K        2,3,3,LOC+2
     4826   01 021CC    00000000 A            DATA     0
     4827   01 021CD    00000000 A            DATA     0
     4828   01 021CE    36042571 A            DATA     X'36042571'
     4829   01 021CF    36042571 A            DATA     X'36042571'
     4830   01 021D0    71826425 A            DATA     X'71826425'
     4831   01 021D1    71826425 A            DATA     X'71826425'
     4832   01 021D2    0000000C A            DATA     X'C'
     4833   01 021D3    0000000C A            DATA     X'C'
     4834   01 021D4    52846317 A            DATA     X'52846317'
     4835   01 021D5    16803746 A            DATA     X'16803746'
     4836   01 021D6    00000000 A            DATA     0
     4837   01 021D7    00000000 A            DATA     0
     4838   01 021D8    0000000C A            DATA     X'C'
     4839   01 021D9    0000000C A            DATA     X'C'
     4840                            * ZERO LOOKAHEAD TEST , R12 IN = ZERO , R13 IN = NONZERO ,
     4841                            * R14 IN = ZERO , R15 IN = ZERO  NEGATIVE
     4842   01 021DA    120E0061 A   DS13     MODULE
     4843   01 021DB    78903000              DS,9     MEMORY
     4844   01 021DC    03301148              K        0,3,3,LOC
     4845   01 021DD    1330114A              K        1,3,3,LOC+2
     4846   01 021DE    00000000 A            DATA     0
     4847   01 021DF    00000000 A            DATA     0
     4848   01 021E0    88112233 A            DATA     X'88112233'
     4849   01 021E1    88112233 A            DATA     X'88112233'
     4850   01 021E2    77553311 A            DATA     X'77553311'
     4851   01 021E3    77553399 A            DATA     X'77553399'
     4852   01 021E4    44000000 A            DATA     X'44000000'
     4853   01 021E5    44000000 A            DATA     X'44000000'
     4854   01 021E6    00000000 A            DATA     0
     4855   01 021E7    11223344 A            DATA     X'11223344'
     4856   01 021E8    0C000000 A            DATA     X'0C000000'
     4857   01 021E9    0C000000 A            DATA     X'0C000000'
     4858   01 021EA    0000000D A            DATA     X'D'
     4859   01 021EB    0000000D A            DATA     X'D'
     4860                            * ZERO LOOKAHEAD TEST , R12 IN = NONZERO , R13 IN = ZERO ,
     4861                            * R14 IN = NONZERO , R15 IN = NONZERO  NEGATIVE
     4862   01 021EC    140F0062 A   DS14     MODULE
     4863   01 021ED    78703000              DS,7     MEMORY
     4864   01 021EE    03301148              K        0,3,3,LOC
     4865   01 021EF    1330114A              K        1,3,3,LOC+2
     4866   01 021F0    12345678 A            DATA     X'12345678'
     4867   01 021F1    12345678 A            DATA     X'12345678'
     4868   01 021F2    03254721 A            DATA     X'03254721'
     4869   01 021F3    03254721 A            DATA     X'03254721'
     4870   01 021F4    00000000 A            DATA     0
     4871   01 021F5    00000000 A            DATA     0
     4872   01 021F6    00321D00 A            DATA     X'321D00'
     4873   01 021F7    00321D00 A            DATA     X'321D00'
     4874   01 021F8    02143658 A            DATA     X'02143658'
     4875   01 021F9    02111111 A            DATA     X'2111111'
     4876   01 021FA    00000000 A            DATA     0
     4877   01 021FB    00000000 A            DATA     0
     4878   01 021FC    3210432D A            DATA     X'3210432D'
     4879   01 021FD    1110111D A            DATA     X'1110111D'
     4880   01 021FE    3210433D A            DATA     X'3210433D'
     4881   01 021FF    3210433D A            DATA     X'3210433D'
     4882                            * ZERO LOOKAHEAD TEST , R12 IN = NONZERO , R13 IN = ZERO ,
     4883                            * R14 IN = NONZERO , R15 IN = ZERO  POSITIVE
     4884   01 02200    12100063 A   DS15     MODULE
     4885   01 02201    78803000              DS,8     MEMORY
     4886   01 02202    03301148              K        0,3,3,LOC
     4887   01 02203    2330114A              K        2,3,3,LOC+2
     4888   01 02204    33333333 A            DATA     X'33333333'
     4889   01 02205    33333333 A            DATA     X'33333333'
     4890   01 02206    08060402 A            DATA     X'08060402'
     4891   01 02207    08060402 A            DATA     X'08060402'
     4892   01 02208    00000000 A            DATA     0
     4893   01 02209    00000000 A            DATA     0
     4894   01 0220A    0000000C A            DATA     X'C'
     4895   01 0220B    0000000C A            DATA     X'C'
     4896   01 0220C    09070503 A            DATA     X'09070503'
     4897   01 0220D    01010101 A            DATA     X'01010101'
     4898   01 0220E    00000000 A            DATA     0
     4899   01 0220F    00000000 A            DATA     0
     4900   01 02210    0000000C A            DATA     X'C'
     4901   01 02211    0000000C A            DATA     X'C'
     4902   01 02212    12110064 A   DS16     MODULE
     4903   01 02213    78103000              DS,1     MEMORY
     4904   01 02214    02001148              K        0,2,0,LOC
     4905   01 02215    2200114A              K        2,2,0,LOC+2
     4906   01 02216    00000000 A            DATA     0
     4907   01 02217    00000000 A            DATA     0
     4908   01 02218    3C000000 A            DATA     X'3C000000'
     4909   01 02219    3C000000 A            DATA     X'3C000000'
     4910   01 0221A    00000000 A            DATA     0
     4911   01 0221B    00000000 A            DATA     0
     4912   01 0221C    00000000 A            DATA     0
     4913   01 0221D    00000000 A            DATA     0
     4914   01 0221E    10000000 A            DATA     X'10000000'
     4915   01 0221F    09999999 A            DATA     X'09999999'
     4916   01 02220    00000000 A            DATA     0
     4917   01 02221    00000000 A            DATA     0
     4918   01 02222    0000001C A            DATA     X'1C'
     4919   01 02223    9999998C A            DATA     X'9999998C'
     4920   01 02224    12010065 A   DSA01    MODULE   X'7C'             DSA - SHIFT ALT BITS LEFT 1
     4921   01 02225    7C000001 A            DSA      X'1'
     4922   01 02226    03301148              K        0,3,3,LOC
     4923   01 02227    2330114A              K        2,3,3,LOC+2
     4924   01 02228    06969696 A            DATA     X'06969696'
     4925   01 02229    69696969 A            DATA     X'69696969'
     4926   01 0222A    00000000 A            DATA     X'0'
     4927   01 0222B    00000000 A            DATA     X'0'
     4928   01 0222C    96969696 A            DATA     X'96969696'
     4929   01 0222D    69696966 A            DATA     X'69696966'
     4930   01 0222E    00000000 A            DATA     X'0'
     4931   01 0222F    00000000 A            DATA     X'0'
     4932   01 02230    69696969 A            DATA     X'69696969'
     4933   01 02231    96969696 A            DATA     X'96969696'
     4934   01 02232    00000000 A            DATA     X'0'
     4935   01 02233    00000000 A            DATA     X'0'
     4936   01 02234    6969696C A            DATA     X'6969696C'
     4937   01 02235    9696960C A            DATA     X'9696960C'
     4938   01 02236    12020066 A   DSA02    MODULE                     DSA - SHIFT ALT BITS RIGHT 1
     4939   01 02237    7C01FFFF A            DSA      X'1FFFF'
     4940   01 02238    03301148              K        0,3,3,LOC
     4941   01 02239    1330114A              K        1,3,3,LOC+2
     4942   01 0223A    96969696 A            DATA     X'96969696'
     4943   01 0223B    09696969 A            DATA     X'09696969'
     4944   01 0223C    00000000 A            DATA     X'0'
     4945   01 0223D    00000000 A            DATA     X'0'
     4946   01 0223E    96969696 A            DATA     X'96969696'
     4947   01 0223F    69696969 A            DATA     X'69696969'
     4948   01 02240    00000000 A            DATA     X'0'
     4949   01 02241    00000000 A            DATA     X'0'
     4950   01 02242    69696969 A            DATA     X'69696969'
     4951   01 02243    66969696 A            DATA     X'66969696'
     4952   01 02244    00000000 A            DATA     X'0'
     4953   01 02245    00000000 A            DATA     X'0'
     4954   01 02246    6969696D A            DATA     X'6969696D'
     4955   01 02247    9696969D A            DATA     X'9696969D'
     4956   01 02248    12030067 A   DSA03    MODULE                     DSA - SHIFT > 31
     4957   01 02249    7C000020 A            DSA      X'20'
     4958   01 0224A    03301148              K        0,3,3,LOC
     4959   01 0224B    4330114A              K        4,3,3,LOC+2
     4960   01 0224C    77777777 A            DATA     X'77777777'
     4961   01 0224D    00000000 A            DATA     X'0'
     4962   01 0224E    00000000 A            DATA     X'0'
     4963   01 0224F    00000000 A            DATA     X'0'
     4964   01 02250    77777777 A            DATA     X'77777777'
     4965   01 02251    00000000 A            DATA     X'0'
     4966   01 02252    00000000 A            DATA     X'0'
     4967   01 02253    00000000 A            DATA     X'0'
     4968   01 02254    77777777 A            DATA     X'77777777'
     4969   01 02255    00000000 A            DATA     X'0'
     4970   01 02256    00000000 A            DATA     X'0'
     4971   01 02257    00000000 A            DATA     X'0'
     4972   01 02258    7777777C A            DATA     X'7777777C'
     4973   01 02259    0000000C A            DATA     X'C'
     4974   01 0225A    12040068 A   DSA04    MODULE                     DSA - EVEN SHIFT LEFT
     4975   01 0225B    7C000002 A            DSA      X'2'
     4976   01 0225C    03301148              K        0,3,3,LOC
     4977   01 0225D    5330114A              K        5,3,3,LOC+2
     4978   01 0225E    70707070 A            DATA     X'70707070'
     4979   01 0225F    70707070 A            DATA     X'70707070'
     4980   01 02260    00000000 A            DATA     X'0'
     4981   01 02261    00000000 A            DATA     X'0'
     4982   01 02262    70707070 A            DATA     X'70707070'
     4983   01 02263    70707070 A            DATA     X'70707070'
     4984   01 02264    00000000 A            DATA     X'0'
     4985   01 02265    00000000 A            DATA     X'0'
     4986   01 02266    70707070 A            DATA     X'70707070'
     4987   01 02267    70707070 A            DATA     X'70707070'
     4988   01 02268    00000000 A            DATA     X'0'
     4989   01 02269    00000000 A            DATA     X'0'
     4990   01 0226A    7070707D A            DATA     X'7070707D'
     4991   01 0226B    7070700D A            DATA     X'7070700D'
     4992   01 0226C    12050069 A   DSA05    MODULE                     DSA - EVEN SHIFT RIGHT
     4993   01 0226D    7C01FFFE A            DSA      X'1FFFE'
     4994   01 0226E    03301148              K        0,3,3,LOC
     4995   01 0226F    2330114A              K        2,3,3,LOC+2
     4996   01 02270    07070707 A            DATA     X'07070707'
     4997   01 02271    00070707 A            DATA     X'00070707'
     4998   01 02272    00000000 A            DATA     X'0'
     4999   01 02273    00000000 A            DATA     X'0'
     5000   01 02274    07070707 A            DATA     X'07070707'
     5001   01 02275    07070707 A            DATA     X'07070707'
     5002   01 02276    00000000 A            DATA     X'0'
     5003   01 02277    00000000 A            DATA     X'0'
     5004   01 02278    07070707 A            DATA     X'07070707'
     5005   01 02279    07070707 A            DATA     X'07070707'
     5006   01 0227A    00000000 A            DATA     X'0'
     5007   01 0227B    00000000 A            DATA     X'0'
     5008   01 0227C    0707070C A            DATA     X'0707070C'
     5009   01 0227D    0707070C A            DATA     X'0707070C'
     5010   01 0227E    1206006A A   DSA06    MODULE                     DSA - LEFT SHIFT 3
     5011   01 0227F    7C000003 A            DSA      X'3'
     5012   01 02280    03301148              K        0,3,3,LOC
     5013   01 02281    2330114A              K        2,3,3,LOC+2
     5014   01 02282    00069696 A            DATA     X'00069696'
     5015   01 02283    69696969 A            DATA     X'69696969'
     5016   01 02284    00000000 A            DATA     X'0'
     5017   01 02285    00000000 A            DATA     X'0'
     5018   01 02286    96969696 A            DATA     X'96969696'
     5019   01 02287    69696969 A            DATA     X'69696969'
     5020   01 02288    00000000 A            DATA     X'0'
     5021   01 02289    00000000 A            DATA     X'0'
     5022   01 0228A    96969696 A            DATA     X'96969696'
     5023   01 0228B    69696969 A            DATA     X'69696969'
     5024   01 0228C    00000000 A            DATA     X'0'
     5025   01 0228D    00000000 A            DATA     X'0'
     5026   01 0228E    9696969C A            DATA     X'9696969C'
     5027   01 0228F    6969000C A            DATA     X'6969000C'
     5028   01 02290    1207006B A   DSA07    MODULE                     DSA - LEFT SHIFT 4
     5029   01 02291    7C000004 A            DSA      X'4'
     5030   01 02292    03301148              K        0,3,3,LOC
     5031   01 02293    5330114A              K        5,3,3,LOC+2
     5032   01 02294    64352079 A            DATA     X'64352079'
     5033   01 02295    20798421 A            DATA     X'20798421'
     5034   01 02296    00000000 A            DATA     X'0'
     5035   01 02297    00000000 A            DATA     X'0'
     5036   01 02298    84213971 A            DATA     X'84213971'
     5037   01 02299    39717025 A            DATA     X'39717025'
     5038   01 0229A    00000000 A            DATA     X'0'
     5039   01 0229B    00000000 A            DATA     X'0'
     5040   01 0229C    70253468 A            DATA     X'70253468'
     5041   01 0229D    34687931 A            DATA     X'34687931'
     5042   01 0229E    00000000 A            DATA     X'0'
     5043   01 0229F    00000000 A            DATA     X'0'
     5044   01 022A0    7931248D A            DATA     X'7931248D'
     5045   01 022A1    2480000D A            DATA     X'2480000D'
     5046   01 022A2    1208006C A   DSA08    MODULE                     DSA - LEFT SHIFT 30
     5047   01 022A3    7C00001E A            DSA      X'1E'
     5048   01 022A4    03301148              K        0,3,3,LOC
     5049   01 022A5    6330114A              K        6,3,3,LOC+2
     5050   01 022A6    03568147 A            DATA     X'03568147'
     5051   01 022A7    30000000 A            DATA     X'30000000'
     5052   01 022A8    00000000 A            DATA     X'0'
     5053   01 022A9    00000000 A            DATA     X'0'
     5054   01 022AA    12345678 A            DATA     X'12345678'
     5055   01 022AB    00000000 A            DATA     X'0'
     5056   01 022AC    00000000 A            DATA     X'0'
     5057   01 022AD    00000000 A            DATA     X'0'
     5058   01 022AE    90123456 A            DATA     X'90123456'
     5059   01 022AF    00000000 A            DATA     X'0'
     5060   01 022B0    00000000 A            DATA     X'0'
     5061   01 022B1    00000000 A            DATA     X'0'
     5062   01 022B2    7890123C A            DATA     X'7890123C'
     5063   01 022B3    0000000C A            DATA     X'C'
     5064   01 022B4    1209006D A   DSA09    MODULE                     DSA - LEFT SHIFT 31
     5065   01 022B5    7C00001F A            DSA      X'1F'
     5066   01 022B6    03301148              K        0,3,3,LOC
     5067   01 022B7    4330114A              K        4,3,3,LOC+2
     5068   01 022B8    98765432 A            DATA     X'98765432'
     5069   01 022B9    00000000 A            DATA     X'0'
     5070   01 022BA    00000000 A            DATA     X'0'
     5071   01 022BB    00000000 A            DATA     X'0'
     5072   01 022BC    10987654 A            DATA     X'10987654'
     5073   01 022BD    00000000 A            DATA     X'0'
     5074   01 022BE    00000000 A            DATA     X'0'
     5075   01 022BF    00000000 A            DATA     X'0'
     5076   01 022C0    32102468 A            DATA     X'32102468'
     5077   01 022C1    00000000 A            DATA     X'0'
     5078   01 022C2    00000000 A            DATA     X'0'
     5079   01 022C3    00000000 A            DATA     X'0'
     5080   01 022C4    0369258D A            DATA     X'0369258D'
     5081   01 022C5    0000000D A            DATA     X'D'
     5082   01 022C6    120A006E A   DSA10    MODULE                     DSA - RIGHT SHIFT 3
     5083   01 022C7    7C01FFFD A            DSA      X'1FFFD'
     5084   01 022C8    03301148              K        0,3,3,LOC
     5085   01 022C9    2330114A              K        2,3,3,LOC+2
     5086   01 022CA    15937260 A            DATA     X'15937260'
     5087   01 022CB    00015937 A            DATA     X'00015937'
     5088   01 022CC    00000000 A            DATA     X'0'
     5089   01 022CD    00000000 A            DATA     X'0'
     5090   01 022CE    55555555 A            DATA     X'55555555'
     5091   01 022CF    26055555 A            DATA     X'26055555'
     5092   01 022D0    00000000 A            DATA     X'0'
     5093   01 022D1    00000000 A            DATA     X'0'
     5094   01 022D2    25814703 A            DATA     X'25814703'
     5095   01 022D3    55525814 A            DATA     X'55525814'
     5096   01 022D4    00000000 A            DATA     X'0'
     5097   01 022D5    00000000 A            DATA     X'0'
     5098   01 022D6    5555555C A            DATA     X'5555555C'
     5099   01 022D7    7035555C A            DATA     X'7035555C'
     5100   01 022D8    120B006F A   DSA11    MODULE                     DSA - RIGHT SHIFT 4
     5101   01 022D9    7C01FFFC A            DSA      X'1FFFC'
     5102   01 022DA    03301148              K        0,3,3,LOC
     5103   01 022DB    1330114A              K        1,3,3,LOC+2
     5104   01 022DC    01234567 A            DATA     X'01234567'
     5105   01 022DD    00000123 A            DATA     X'00000123'
     5106   01 022DE    00000000 A            DATA     X'0'
     5107   01 022DF    00000000 A            DATA     X'0'
     5108   01 022E0    89135792 A            DATA     X'89135792'
     5109   01 022E1    45678913 A            DATA     X'45678913'
     5110   01 022E2    00000000 A            DATA     X'0'
     5111   01 022E3    00000000 A            DATA     X'0'
     5112   01 022E4    58159495 A            DATA     X'58159495'
     5113   01 022E5    57925815 A            DATA     X'57925815'
     5114   01 022E6    00000000 A            DATA     X'0'
     5115   01 022E7    00000000 A            DATA     X'0'
     5116   01 022E8    8529754D A            DATA     X'8529754D'
     5117   01 022E9    9495852D A            DATA     X'9495852D'
     5118   01 022EA    120C0070 A   DSA12    MODULE                     DSA - RIGHT SHIFT 30
     5119   01 022EB    7C01FFE2 A            DSA      X'1FFE2'
     5120   01 022EC    03301148              K        0,3,3,LOC
     5121   01 022ED    2330114A              K        2,3,3,LOC+2
     5122   01 022EE    96969696 A            DATA     X'96969696'
     5123   01 022EF    00000000 A            DATA     X'0'
     5124   01 022F0    00000000 A            DATA     X'0'
     5125   01 022F1    00000000 A            DATA     X'0'
     5126   01 022F2    96969696 A            DATA     X'96969696'
     5127   01 022F3    00000000 A            DATA     X'0'
     5128   01 022F4    00000000 A            DATA     X'0'
     5129   01 022F5    00000000 A            DATA     X'0'
     5130   01 022F6    96969696 A            DATA     X'96969696'
     5131   01 022F7    00000000 A            DATA     X'0'
     5132   01 022F8    00000000 A            DATA     X'0'
     5133   01 022F9    00000000 A            DATA     X'0'
     5134   01 022FA    9696969C A            DATA     X'9696969C'
     5135   01 022FB    0000009C A            DATA     X'9C'
     5136   01 022FC    120D0071 A   DSA13    MODULE                     DSA - RIGHT SHIFT 31
     5137   01 022FD    7C01FFE1 A            DSA      X'1FFE1'
     5138   01 022FE    33301148              K        3,3,3,LOC
     5139   01 022FF    0330114A              K        0,3,3,LOC+2
     5140   01 02300    98639407 A            DATA     X'98639407'
     5141   01 02301    00000000 A            DATA     X'0'
     5142   01 02302    00000000 A            DATA     X'0'
     5143   01 02303    00000000 A            DATA     X'0'
     5144   01 02304    42102594 A            DATA     X'42102594'
     5145   01 02305    00000000 A            DATA     X'0'
     5146   01 02306    00000000 A            DATA     X'0'
     5147   01 02307    00000000 A            DATA     X'0'
     5148   01 02308    04936894 A            DATA     X'04936894'
     5149   01 02309    00000000 A            DATA     X'0'
     5150   01 0230A    00000000 A            DATA     X'0'
     5151   01 0230B    00000000 A            DATA     X'0'
     5152   01 0230C    9520124C A            DATA     X'9520124C'
     5153   01 0230D    0000000C A            DATA     X'C'
     5154   01 0230E    120E0072 A   DSA14    MODULE                     DSA - RIGHT SHIFT 32
     5155   01 0230F    7C01FFE0 A            DSA      X'1FFE0'
     5156   01 02310    03301148              K        0,3,3,LOC
     5157   01 02311    0330114A              K        0,3,3,LOC+2
     5158   01 02312    74409944 A            DATA     X'74409944'
     5159   01 02313    00000000 A            DATA     X'0'
     5160   01 02314    00000000 A            DATA     X'0'
     5161   01 02315    00000000 A            DATA     X'0'
     5162   01 02316    26230318 A            DATA     X'26230318'
     5163   01 02317    00000000 A            DATA     X'0'
     5164   01 02318    00000000 A            DATA     X'0'
     5165   01 02319    00000000 A            DATA     X'0'
     5166   01 0231A    19092429 A            DATA     X'19092429'
     5167   01 0231B    00000000 A            DATA     X'0'
     5168   01 0231C    00000000 A            DATA     X'0'
     5169   01 0231D    00000000 A            DATA     X'0'
     5170   01 0231E    4097235D A            DATA     X'4097235D'
     5171   01 0231F    0000000D A            DATA     X'D'
     5172   01 02320    120F0073 A   DSA15    MODULE                     DSA - LEFT SHIFT 1
     5173   01 02321    7C000001 A            DSA      X'1'
     5174   01 02322    03301148              K        0,3,3,LOC
     5175   01 02323    4330114A              K        4,3,3,LOC+2
     5176   01 02324    80000000 A            DATA     X'80000000'
     5177   01 02325    00000000 A            DATA     X'0'
     5178   01 02326    00000000 A            DATA     X'0'
     5179   01 02327    00000000 A            DATA     X'0'
     5180   01 02328    00000000 A            DATA     X'0'
     5181   01 02329    00000000 A            DATA     X'0'
     5182   01 0232A    00000000 A            DATA     X'0'
     5183   01 0232B    00000000 A            DATA     X'0'
     5184   01 0232C    00000000 A            DATA     X'0'
     5185   01 0232D    00000000 A            DATA     X'0'
     5186   01 0232E    00000000 A            DATA     X'0'
     5187   01 0232F    00000000 A            DATA     X'0'
     5188   01 02330    0000000C A            DATA     X'C'
     5189   01 02331    0000000C A            DATA     X'C'
     5190   01 02332    12100074 A   DSA16    MODULE                     DSA-RIGHT SHIFT 33
     5191   01 02333    7C00FFBF A            DSA      X'FFBF'
     5192   01 02334    F3301148              K        15,3,3,LOC        PSW1 IN
     5193   01 02335    0330114A              K         0,3,3,LOC+2      PSW1 OUT
     5194   01 02336    87878787 A            DATA     X'87878787'       R12 IN
     5195   01 02337    00000000 A            DATA     X'0'              R12 OUT
     5196   01 02338    00000000 A            DATA     X'0'              MEMORY+0 IN
     5197   01 02339    00000000 A            DATA     X'0'              MEMORY+0 OUT
     5198   01 0233A    87878787 A            DATA     X'87878787'       R13 IN
     5199   01 0233B    00000000 A            DATA     X'0'              R13 OUT
     5200   01 0233C    00000000 A            DATA     X'0'              MEMORY+1 IN
     5201   01 0233D    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5202   01 0233E    87878787 A            DATA     X'87878787'       R14 IN
     5203   01 0233F    00000000 A            DATA     X'0'              R14 OUT
     5204   01 02340    00000000 A            DATA     X'0'              MEMORY+2 IN
     5205   01 02341    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5206   01 02342    8787878D A            DATA     X'8787878D'       R15 IN
     5207   01 02343    0000000D A            DATA     X'D'              R15 OUT
     5208   01 02344    12110075 A   DSA17    MODULE                     DSA-RIGHT SHIFT 257
     5209   01 02345    7C00FEFF A            DSA      X'FEFF'
     5210   01 02346    F3301148              K        15,3,3,LOC        PSW1 IN
     5211   01 02347    0330114A              K         0,3,3,LOC+2      PSW1 OUT
     5212   01 02348    87878787 A            DATA     X'87878787'       R12 IN
     5213   01 02349    00000000 A            DATA     X'0'              R12 OUT
     5214   01 0234A    00000000 A            DATA     X'0'              MEMORY+0 IN
     5215   01 0234B    00000000 A            DATA     X'0'              MEMORY+0 OUT
     5216   01 0234C    87878787 A            DATA     X'87878787'       R13 IN
     5217   01 0234D    00000000 A            DATA     X'0'              R13 OUT
     5218   01 0234E    00000000 A            DATA     X'0'              MEMORY+1 IN
     5219   01 0234F    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5220   01 02350    87878787 A            DATA     X'87878787'       R14 IN
     5221   01 02351    00000000 A            DATA     X'0'              R14 OUT
     5222   01 02352    00000000 A            DATA     X'0'              MEMORY+2 IN
     5223   01 02353    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5224   01 02354    8787878C A            DATA     X'8787878C'       R15 IN
     5225   01 02355    0000000C A            DATA     X'C'              R15 OUT
     5226   01 02356    12120076 A   DSA18    MODULE                     DSA-RIGHT SHIFT 4097
     5227   01 02357    7C01EFFF A            DSA      X'1EFFF'
     5228   01 02358    F3301148              K        15,3,3,LOC        PSW1 IN
     5229   01 02359    0330114A              K         0,3,3,LOC+2      PSW1 OUT
     5230   01 0235A    87878787 A            DATA     X'87878787'       R12 IN
     5231   01 0235B    00000000 A            DATA     X'0'              R12 OUT
     5232   01 0235C    00000000 A            DATA     X'0'              MEMORY+0 IN
     5233   01 0235D    00000000 A            DATA     X'0'              MEMORY+0 OUT
     5234   01 0235E    87878787 A            DATA     X'87878787'       R13 IN
     5235   01 0235F    00000000 A            DATA     X'0'              R13 OUT
     5236   01 02360    00000000 A            DATA     X'0'              MEMORY+1 IN
     5237   01 02361    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5238   01 02362    87878787 A            DATA     X'87878787'       R14 IN
     5239   01 02363    00000000 A            DATA     X'0'              R14 OUT
     5240   01 02364    00000000 A            DATA     X'0'              MEMORY+2 IN
     5241   01 02365    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5242   01 02366    8787878C A            DATA     X'8787878C'       R15 IN
     5243   01 02367    0000000C A            DATA     X'C'              R15 OUT
     5244   01 02368    12130077 A   DSA19    MODULE                     DSA-LEFT SHIFT 2
     5245   01 02369    7C000002 A            DSA      X'2'
     5246   01 0236A    B3301148              K        11,3,3,LOC        PSW1 IN
     5247   01 0236B    4330114A              K         4,3,3,LOC+2      PSW1 OUT
     5248   01 0236C    04000000 A            DATA     X'04000000'       R12 IN
     5249   01 0236D    00000000 A            DATA     X'0'              R12 OUT
     5250   01 0236E    00000000 A            DATA     X'0'              MEMORY+0 IN
     5251   01 0236F    00000000 A            DATA     X'0'              MEMORY+0 OUT
     5252   01 02370    00000000 A            DATA     X'0'              R13 IN
     5253   01 02371    00000000 A            DATA     X'0'              R13 OUT
     5254   01 02372    00000000 A            DATA     X'0'              MEMORY+1 IN
     5255   01 02373    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5256   01 02374    00000000 A            DATA     X'0'              R14 IN
     5257   01 02375    00000000 A            DATA     X'0'              R14 OUT
     5258   01 02376    00000000 A            DATA     X'0'              MEMORY+2 IN
     5259   01 02377    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5260   01 02378    0000000C A            DATA     X'C'              R15 IN
     5261   01 02379    0000000C A            DATA     X'C'              R15 OUT
     5262   01 0237A    12140078 A   DSA20    MODULE                     DSA-LEFT SHIFT 64
     5263   01 0237B    7C000040 A            DSA      X'00040'
     5264   01 0237C    B3301148              K        11,3,3,LOC        PSW1 IN
     5265   01 0237D    4330114A              K         4,3,3,LOC+2      PSW1 OUT
     5266   01 0237E    00000000 A            DATA     X'0'              R12 IN
     5267   01 0237F    00000000 A            DATA     X'0'              R12 OUT
     5268   01 02380    00000000 A            DATA     X'0'              MEMORY+0 IN
     5269   01 02381    00000000 A            DATA     X'0'              MEMORY+0 OUT
     5270   01 02382    00000000 A            DATA     X'0'              R13 IN
     5271   01 02383    00000000 A            DATA     X'0'              R13 OUT
     5272   01 02384    00000000 A            DATA     X'0'              MEMORY+1 IN
     5273   01 02385    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5274   01 02386    00000000 A            DATA     X'0'              R14 IN
     5275   01 02387    00000000 A            DATA     X'0'              R14 OUT
     5276   01 02388    00000000 A            DATA     X'0'              MEMORY+2 IN
     5277   01 02389    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5278   01 0238A    0000008D A            DATA     X'8D'             R15 IN
     5279   01 0238B    0000000D A            DATA     X'D'              R15 OUT
     5280   01 0238C    12150079 A   DSA21    MODULE                     DSA-LEFT SHIFT 128
     5281   01 0238D    7C000080 A            DSA      X'00080'
     5282   01 0238E    B3301148              K        11,3,3,LOC        PSW1 IN
     5283   01 0238F    4330114A              K         4,3,3,LOC+2      PSW1 OUT
     5284   01 02390    00000000 A            DATA     X'0'              R12 IN
     5285   01 02391    00000000 A            DATA     X'0'              R12 OUT
     5286   01 02392    00000000 A            DATA     X'0'              MEMORY+0 IN
     5287   01 02393    00000000 A            DATA     X'0'              MEMORY+0 OUT
     5288   01 02394    00000000 A            DATA     X'0'              R13 IN
     5289   01 02395    00000000 A            DATA     X'0'              R13 OUT
     5290   01 02396    00000000 A            DATA     X'0'              MEMORY+1 IN
     5291   01 02397    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5292   01 02398    00000000 A            DATA     X'0'              R14 IN
     5293   01 02399    00000000 A            DATA     X'0'              R14 OUT
     5294   01 0239A    00000000 A            DATA     X'0'              MEMORY+2 IN
     5295   01 0239B    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5296   01 0239C    0000040D A            DATA     X'0000040D'       R15 IN
     5297   01 0239D    0000000D A            DATA     X'D'              R15 OUT
     5298   01 0239E    1216007A A   DSA22    MODULE                     DSA-LEFT SHIFT 256
     5299   01 0239F    7C000080 A            DSA      X'00080'
     5300   01 023A0    F3301148              K        15,3,3,LOC        PSW1 IN
     5301   01 023A1    0330114A              K         0,3,3,LOC+2      PSW1 OUT
     5302   01 023A2    00000000 A            DATA     X'0'              R12 IN
     5303   01 023A3    00000000 A            DATA     X'0'              R12 OUT
     5304   01 023A4    00000000 A            DATA     X'0'              MEMORY+0 IN
     5305   01 023A5    00000000 A            DATA     X'0'              MEMORY+0 OUT
     5306   01 023A6    00000000 A            DATA     X'0'              R13 IN
     5307   01 023A7    00000000 A            DATA     X'0'              R13 OUT
     5308   01 023A8    00000000 A            DATA     X'0'              MEMORY+1 IN
     5309   01 023A9    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5310   01 023AA    00000000 A            DATA     X'0'              R14 IN
     5311   01 023AB    00000000 A            DATA     X'0'              R14 OUT
     5312   01 023AC    00000000 A            DATA     X'0'              MEMORY+2 IN
     5313   01 023AD    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5314   01 023AE    0000000D A            DATA     X'D'              R15 IN
     5315   01 023AF    0000000D A            DATA     X'D'              R15 OUT
     5316   01 023B0    1217007B A   DSA23    MODULE                     DSA-RIGHT SHIFT 1
     5317   01 023B1    7C01FFFF A            DSA      X'1FFFF'
     5318   01 023B2    E3301148              K        14,3,3,LOC        PSW1 IN
     5319   01 023B3    1330114A              K         1,3,3,LOC+2      PSW1 OUT
     5320   01 023B4    20000000 A            DATA     X'20000000'       R12 IN
     5321   01 023B5    02000000 A            DATA     X'02000000'       R12 OUT
     5322   01 023B6    00000000 A            DATA     X'0'              MEMORY+0 IN
     5323   01 023B7    00000000 A            DATA     X'0'              MEMORY+0 OUT
     5324   01 023B8    00000000 A            DATA     X'0'              R13 IN
     5325   01 023B9    00000000 A            DATA     X'0'              R13 OUT
     5326   01 023BA    00000000 A            DATA     X'0'              MEMORY+1 IN
     5327   01 023BB    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5328   01 023BC    00000000 A            DATA     X'0'              R14 IN
     5329   01 023BD    00000000 A            DATA     X'0'              R14 OUT
     5330   01 023BE    00000000 A            DATA     X'0'              MEMORY+2 IN
     5331   01 023BF    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5332   01 023C0    0000000D A            DATA     X'D'              R15 IN
     5333   01 023C1    0000000D A            DATA     X'D'              R15 OUT
     5334   01 023C2    1218007C A   DSA24    MODULE
     5335   01 023C3    7C01FFFC A            DSA      X'1FFFC'
     5336   01 023C4    F3301148              K              15,3,3,LOC      PSW1 IN
     5337   01 023C5    0330114A              K              0,3,3,LOC+2     PSW1 OUT
     5338   01 023C6    00000000 A            DATA     0                 R12 IN
     5339   01 023C7    00000000 A            DATA     0                 R12 OUT
     5340   01 023C8    00000000 A            DATA     0                 MEMORY+0 IN
     5341   01 023C9    00000000 A            DATA     0                 MEMORY+0 OUT
     5342   01 023CA    00000000 A            DATA     0                 R13 IN
     5343   01 023CB    00000000 A            DATA     0                 R13 OUT
     5344   01 023CC    00000000 A            DATA     0                 MEMORY+1 IN
     5345   01 023CD    00000000 A            DATA     0                 MEMORY+1 OUT
     5346   01 023CE    00000000 A            DATA     0                 R14 IN
     5347   01 023CF    00000000 A            DATA     0                 R14 OUT
     5348   01 023D0    00000000 A            DATA     0                 MEMORY+2 IN
     5349   01 023D1    00000000 A            DATA     0                 MEMORY+2 OUT
     5350   01 023D2    0007777C A            DATA     X'7777C'          R15 IN
     5351   01 023D3    0000000C A            DATA     X'C'              R15 OUT
     5352   01 023D4    1219007D A   DSA25    MODULE
     5353   01 023D5    7C000080 A            DSA      X'00080'                                            *C
     5354   01 023D6    F3301148              K               15,3,3,LOC       PSW1 IN                     *C
     5355   01 023D7    0330114A              K               0,3,3,LOC+2   PSW1 OUT                       *C
     5356   01 023D8    00000000 A            DATA     X'0'              R12 IN                            *C
     5357   01 023D9    00000000 A            DATA     X'0'              R12 OUT                           *C
     5358   01 023DA    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     5359   01 023DB    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     5360   01 023DC    00000000 A            DATA     X'0'              R13 IN                            *C
     5361   01 023DD    00000000 A            DATA     X'0'              R13 OUT                           *C
     5362   01 023DE    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     5363   01 023DF    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     5364   01 023E0    00000000 A            DATA     X'0'              R14 IN                            *C
     5365   01 023E1    00000000 A            DATA     X'0'              R14 OUT                           *C
     5366   01 023E2    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     5367   01 023E3    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     5368   01 023E4    0000000D A            DATA     X'D'              R15 IN                            *C
     5369   01 023E5    0000000D A            DATA     X'D'              R15 OUT                           *C
     5370   01 023E6    141A007E A   DSA26    MODULE
     5371   01 023E7    7C000080 A            DSA      X'00080'                                            *C
     5372   01 023E8    F3301148              K               15,3,3,LOC       PSW1 IN                     *C
     5373   01 023E9    0330114A              K               0,3,3,LOC+2   PSW1 OUT                       *C
     5374   01 023EA    00000000 A            DATA     X'0'              R12 IN                            *C
     5375   01 023EB    00000000 A            DATA     X'0'              R12 OUT                           *C
     5376   01 023EC    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     5377   01 023ED    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     5378   01 023EE    00000000 A            DATA     X'0'              R13 IN                            *C
     5379   01 023EF    00000000 A            DATA     X'0'              R13 OUT                           *C
     5380   01 023F0    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     5381   01 023F1    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     5382   01 023F2    00000000 A            DATA     X'0'              R14 IN                            *C
     5383   01 023F3    00000000 A            DATA     X'0'              R14 OUT                           *C
     5384   01 023F4    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     5385   01 023F5    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     5386   01 023F6    0000000D A            DATA     X'D'              R15 IN                            *C
     5387   01 023F7    0000000D A            DATA     X'D'              R15 OUT                           *C
     5388   01 023F8    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     5389   01 023F9    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     5390   01 023FA    1401007F A   DC01     MODULE   X'7D'             DC - DECA = EDO
     5391   01 023FB    7D003000              DC,0     MEMORY
     5392   01 023FC    F3301148              K        15,3,3,LOC
     5393   01 023FD    0330114A              K        0,3,3,LOC+2
     5394   01 023FE    01234567 A            DATA     X'01234567'
     5395   01 023FF    01234567 A            DATA     X'01234567'
     5396   01 02400    01234567 A            DATA     X'01234567'
     5397   01 02401    01234567 A            DATA     X'01234567'
     5398   01 02402    89024680 A            DATA     X'89024680'
     5399   01 02403    89024680 A            DATA     X'89024680'
     5400   01 02404    89024680 A            DATA     X'89024680'
     5401   01 02405    89024680 A            DATA     X'89024680'
     5402   01 02406    36925814 A            DATA     X'36925814'
     5403   01 02407    36925814 A            DATA     X'36925814'
     5404   01 02408    36925814 A            DATA     X'36925814'
     5405   01 02409    36925814 A            DATA     X'36925814'
     5406   01 0240A    7046797C A            DATA     X'7046797C'
     5407   01 0240B    7046797C A            DATA     X'7046797C'
     5408   01 0240C    7046797C A            DATA     X'7046797C'
     5409   01 0240D    7046797C A            DATA     X'7046797C'
     5410   01 0240E    14020080 A   DC02     MODULE                     DC - DECA > EDO
     5411   01 0240F    7D003000              DC,0     MEMORY
     5412   01 02410    F3301148              K        15,3,3,LOC
     5413   01 02411    2330114A              K        2,3,3,LOC+2
     5414   01 02412    96969696 A            DATA     X'96969696'
     5415   01 02413    96969696 A            DATA     X'96969696'
     5416   01 02414    96969696 A            DATA     X'96969696'
     5417   01 02415    96969696 A            DATA     X'96969696'
     5418   01 02416    96969696 A            DATA     X'96969696'
     5419   01 02417    96969696 A            DATA     X'96969696'
     5420   01 02418    96969696 A            DATA     X'96969696'
     5421   01 02419    96969696 A            DATA     X'96969696'
     5422   01 0241A    96969696 A            DATA     X'96969696'
     5423   01 0241B    96969696 A            DATA     X'96969696'
     5424   01 0241C    96969696 A            DATA     X'96969696'
     5425   01 0241D    96969696 A            DATA     X'96969696'
     5426   01 0241E    9696969C A            DATA     X'9696969C'
     5427   01 0241F    9696969C A            DATA     X'9696969C'
     5428   01 02420    9696968C A            DATA     X'9696968C'
     5429   01 02421    9696968C A            DATA     X'9696968C'
     5430   01 02422    14030081 A   DC03     MODULE                     DC - DECA < EDO
     5431   01 02423    7D003000              DC,0     MEMORY
     5432   01 02424    F3301148              K        15,3,3,LOC
     5433   01 02425    1330114A              K        1,3,3,LOC+2
     5434   01 02426    69696969 A            DATA     X'69696969'
     5435   01 02427    69696969 A            DATA     X'69696969'
     5436   01 02428    69696969 A            DATA     X'69696969'
     5437   01 02429    69696969 A            DATA     X'69696969'
     5438   01 0242A    69696969 A            DATA     X'69696969'
     5439   01 0242B    69696969 A            DATA     X'69696969'
     5440   01 0242C    69696969 A            DATA     X'69696969'
     5441   01 0242D    69696969 A            DATA     X'69696969'
     5442   01 0242E    69696969 A            DATA     X'69696969'
     5443   01 0242F    69696969 A            DATA     X'69696969'
     5444   01 02430    69696969 A            DATA     X'69696969'
     5445   01 02431    69696969 A            DATA     X'69696969'
     5446   01 02432    6969697D A            DATA     X'6969697D'
     5447   01 02433    6969697D A            DATA     X'6969697D'
     5448   01 02434    6969696D A            DATA     X'6969696D'
     5449   01 02435    6969696D A            DATA     X'6969696D'
     5450   01 02436    14040082 A   DC04     MODULE
     5451   01 02437    7D003000              DC,0     MEMORY
     5452   01 02438    03301148              K              0,3,3,LOC      PSW1 IN
     5453   01 02439    2330114A              K              2,3,3,LOC+2    PSW1 OUT
     5454   01 0243A    99999999 A            DATA     X'99999999'       R12 IN
     5455   01 0243B    99999999 A            DATA     X'99999999'       R12 OUT
     5456   01 0243C    00000000 A            DATA     0                 MEMORY+0 IN
     5457   01 0243D    00000000 A            DATA     0                 MEMORY+0 OUT
     5458   01 0243E    99999999 A            DATA     X'99999999'       R13 IN
     5459   01 0243F    99999999 A            DATA     X'99999999'       R13 OUT
     5460   01 02440    00000000 A            DATA     0                 MEMORY+1 IN
     5461   01 02441    00000000 A            DATA     0                 MEMORY+1 OUT
     5462   01 02442    99999999 A            DATA     X'99999999'       R14 IN
     5463   01 02443    99999999 A            DATA     X'99999999'       R14 OUT
     5464   01 02444    00000000 A            DATA     0                 MEMORY+2 IN
     5465   01 02445    00000000 A            DATA     0                 MEMORY+2 OUT
     5466   01 02446    9999999C A            DATA     X'9999999C'       R15 IN
     5467   01 02447    9999999C A            DATA     X'9999999C'       R15 0UT
     5468   01 02448    0000001D A            DATA     X'1D'             MEMORY+3 IN
     5469   01 02449    0000001D A            DATA     X'1D'             MEMORY+3 OUT
     5470   01 0244A    14050083 A   DC05     MODULE
     5471   01 0244B    7D003000              DC,0     MEMORY
     5472   01 0244C    D3301148              K              13,3,3,LOC      PSW1 IN
     5473   01 0244D    2330114A              K              2,3,3,LOC+2     PSW1 OUT
     5474   01 0244E    80000000 A            DATA     X'80000000'       R12 IN
     5475   01 0244F    80000000 A            DATA     X'80000000'       R12 OUT
     5476   01 02450    80000000 A            DATA     X'80000000'       MEMORY+0 IN
     5477   01 02451    80000000 A            DATA     X'80000000'       MEMORY+0 OUT
     5478   01 02452    00000000 A            DATA     0                 R13 IN
     5479   01 02453    00000000 A            DATA     0                 R13 OUT
     5480   01 02454    00000000 A            DATA     0                 MEMORY+1 IN
     5481   01 02455    00000000 A            DATA     0                 MEMORY+1 OUT
     5482   01 02456    00000000 A            DATA     0                 R14 IN
     5483   01 02457    00000000 A            DATA     0                 R14 OUT
     5484   01 02458    00000000 A            DATA     0                 MEMORY+2 IN
     5485   01 02459    00000000 A            DATA     0                 MEMORY+2 OUT
     5486   01 0245A    0000000C A            DATA     X'C'              R15 IN
     5487   01 0245B    0000000C A            DATA     X'C'              R15 OUT
     5488   01 0245C    0000000D A            DATA     X'D'              MEMORY+3 IN
     5489   01 0245D    0000000D A            DATA     X'D'              MEMORY+3 OUT
     5490   01 0245E    12060084 A   DC06     MODULE
     5491   01 0245F    7D203000              DC,2     MEMORY
     5492   01 02460    F3301148              K              15,3,3,LOC      PSW1 IN
     5493   01 02461    0330114A              K              0,3,3,LOC+2     PSW1 OUT
     5494   01 02462    00000000 A            DATA     0
     5495   01 02463    00000000 A            DATA     0
     5496   01 02464    973C0000 A            DATA     X'973C0000'
     5497   01 02465    973C0000 A            DATA     X'973C0000'
     5498   01 02466    00000000 A            DATA     0                 R13 IN
     5499   01 02467    00000000 A            DATA     0                 R13 OUT
     5500   01 02468    00000000 A            DATA     0                 MEMORY+1 IN
     5501   01 02469    00000000 A            DATA     0                 MEMORY+1 OUT
     5502   01 0246A    00000000 A            DATA     0                 R14 IN
     5503   01 0246B    00000000 A            DATA     0                 R14 OUT
     5504   01 0246C    00000000 A            DATA     0                 MEMORY+2 IN
     5505   01 0246D    00000000 A            DATA     0                 MEMORY+2 OUT
     5506   01 0246E    0000973C A            DATA     X'973C'
     5507   01 0246F    0000973C A            DATA     X'973C'
     5508   01 02470    12010085 A   DM01     MODULE   X'7B'             DM - POS PROD
     5509   01 02471    7B803000              DM,8     MEMORY
     5510   01 02472    D3301148              K        13,3,3,LOC
     5511   01 02473    2330114A              K        2,3,3,LOC+2
     5512   01 02474    00000000 A            DATA     X'0'
     5513   01 02475    00091714 A            DATA     X'00091714'
     5514   01 02476    02468135 A            DATA     X'02468135'
     5515   01 02477    02468135 A            DATA     X'02468135'
     5516   01 02478    00000000 A            DATA     X'0'
     5517   01 02479    06717836 A            DATA     X'06717836'
     5518   01 0247A    7956493C A            DATA     X'7956493C'
     5519   01 0247B    7956493C A            DATA     X'7956493C'
     5520   01 0247C    37159246 A            DATA     X'37159246'
     5521   01 0247D    06432464 A            DATA     X'06432464'
     5522   01 0247E    00000000 A            DATA     X'0'
     5523   01 0247F    00000000 A            DATA     X'0'
     5524   01 02480    8048271C A            DATA     X'8048271C'
     5525   01 02481    1873603C A            DATA     X'1873603C'
     5526   01 02482    12020086 A   DM02     MODULE                     DM - NEG PROD
     5527   01 02483    7B803000              DM,8     MEMORY
     5528   01 02484    E3301148              K        14,3,3,LOC
     5529   01 02485    1330114A              K        1,3,3,LOC+2
     5530   01 02486    00000000 A            DATA     X'0'
     5531   01 02487    00438879 A            DATA     X'00438879'
     5532   01 02488    29630741 A            DATA     X'29630741'
     5533   01 02489    29630741 A            DATA     X'29630741'
     5534   01 0248A    00000000 A            DATA     X'0'
     5535   01 0248B    06222683 A            DATA     X'06222683'
     5536   01 0248C    8529567C A            DATA     X'8529567C'
     5537   01 0248D    8529567C A            DATA     X'8529567C'
     5538   01 0248E    14811612 A            DATA     X'14811612'
     5539   01 0248F    90972684 A            DATA     X'90972684'
     5540   01 02490    00000000 A            DATA     X'0'
     5541   01 02491    00000000 A            DATA     X'0'
     5542   01 02492    3587046D A            DATA     X'3587046D'
     5543   01 02493    9189082D A            DATA     X'9189082D'
     5544   01 02494    12030087 A   DM03     MODULE                     DM- L=1
     5545   01 02495    7B103000              DM,1     MEMORY
     5546   01 02496    D3301148              K        13,3,3,LOC
     5547   01 02497    2330114A              K        2,3,3,LOC+2
     5548   01 02498    00000000 A            DATA     X'0'
     5549   01 02499    00000000 A            DATA     X'0'
     5550   01 0249A    5C000000 A            DATA     X'5C000000'
     5551   01 0249B    5C000000 A            DATA     X'5C000000'
     5552   01 0249C    00000000 A            DATA     X'0'
     5553   01 0249D    00000004 A            DATA     X'4'
     5554   01 0249E    00000000 A            DATA     X'0'
     5555   01 0249F    00000000 A            DATA     X'0'
     5556   01 024A0    84268248 A            DATA     X'84268248'
     5557   01 024A1    21341240 A            DATA     X'21341240'
     5558   01 024A2    00000000 A            DATA     X'0'
     5559   01 024A3    00000000 A            DATA     X'0'
     5560   01 024A4    0529317C A            DATA     X'0529317C'
     5561   01 024A5    2646585C A            DATA     X'2646585C'
     5562   01 024A6    12040088 A   DM04     MODULE                     DM - ZERO PROD
     5563   01 024A7    7B803000              DM,8     MEMORY
     5564   01 024A8    F3301148              K        15,3,3,LOC
     5565   01 024A9    0330114A              K        0,3,3,LOC+2
     5566   01 024AA    00000000 A            DATA     X'0'
     5567   01 024AB    00000000 A            DATA     X'0'
     5568   01 024AC    00000000 A            DATA     X'0'
     5569   01 024AD    00000000 A            DATA     X'0'
     5570   01 024AE    00000000 A            DATA     X'0'
     5571   01 024AF    00000000 A            DATA     X'0'
     5572   01 024B0    0000000C A            DATA     X'C'
     5573   01 024B1    0000000C A            DATA     X'C'
     5574   01 024B2    00000000 A            DATA     X'0'
     5575   01 024B3    00000000 A            DATA     X'0'
     5576   01 024B4    00000000 A            DATA     X'0'
     5577   01 024B5    00000000 A            DATA     X'0'
     5578   01 024B6    0000000D A            DATA     X'D'
     5579   01 024B7    0000000C A            DATA     X'C'
     5580   01 024B8    12050089 A   DM05     MODULE                     DM-PREVIOUSLY INTERRUPTED
     5581   01 024B9    7B203000              DM,2     MEMORY
     5582   01 024BA    03301148              K        0,3,3,LOC
     5583   01 024BB    1330114A              K        1,3,3,LOC+2
     5584   01 024BC    00000000 A            DATA     X'0'
     5585   01 024BD    00000000 A            DATA     X'0'
     5586   01 024BE    999D0000 A            DATA     X'999D0000'
     5587   01 024BF    999D0000 A            DATA     X'999D0000'
     5588   01 024C0    00000A00 A            DATA     X'A00'
     5589   01 024C1    00000000 A            DATA     X'0'
     5590   01 024C2    00000000 A            DATA     X'0'
     5591   01 024C3    00000000 A            DATA     X'0'
     5592   01 024C4    00000000 A            DATA     X'0'
     5593   01 024C5    00000000 A            DATA     X'0'
     5594   01 024C6    00000000 A            DATA     X'0'
     5595   01 024C7    00000000 A            DATA     X'0'
     5596   01 024C8    00970032 A            DATA     X'00970032'
     5597   01 024C9    0026973D A            DATA     X'0026973D'
     5598   01 024CA    1206008A A   DM06     MODULE                     DM - PREVIOUSLY INTERRUPTED
     5599   01 024CB    7B803000              DM,8     MEMORY
     5600   01 024CC    03301148              K        0,3,3,LOC
     5601   01 024CD    2330114A              K        2,3,3,LOC+2
     5602   01 024CE    37159246 A            DATA     X'37159246'
     5603   01 024CF    00091714 A            DATA     X'00091714'
     5604   01 024D0    02468135 A            DATA     X'02468135'
     5605   01 024D1    02468135 A            DATA     X'02468135'
     5606   01 024D2    804827C0 A            DATA     X'804827C0'
     5607   01 024D3    06717836 A            DATA     X'06717836'
     5608   01 024D4    7956493C A            DATA     X'7956493C'
     5609   01 024D5    7956493C A            DATA     X'7956493C'
     5610   01 024D6    00000000 A            DATA     X'0'
     5611   01 024D7    06432464 A            DATA     X'06432464'
     5612   01 024D8    00000000 A            DATA     X'0'
     5613   01 024D9    00000000 A            DATA     X'0'
     5614   01 024DA    00000001 A            DATA     X'1'
     5615   01 024DB    1873603C A            DATA     X'1873603C'
     5616   01 024DC    1207008B A   DM07     MODULE                     DM - L=2
     5617   01 024DD    7B203000              DM,2     MEMORY
     5618   01 024DE    D3301148              K        13,3,3,LOC
     5619   01 024DF    2330114A              K        2,3,3,LOC+2
     5620   01 024E0    00000000 A            DATA     X'0'
     5621   01 024E1    00000000 A            DATA     X'0'
     5622   01 024E2    128C0000 A            DATA     X'128C0000'
     5623   01 024E3    128C0000 A            DATA     X'128C0000'
     5624   01 024E4    00000000 A            DATA     X'0'
     5625   01 024E5    00000000 A            DATA     X'0'
     5626   01 024E6    00000000 A            DATA     X'0'
     5627   01 024E7    00000000 A            DATA     X'0'
     5628   01 024E8    00000000 A            DATA     X'0'
     5629   01 024E9    00000000 A            DATA     X'0'
     5630   01 024EA    00000000 A            DATA     X'0'
     5631   01 024EB    00000000 A            DATA     X'0'
     5632   01 024EC    0002964C A            DATA     X'0002964C'
     5633   01 024ED    0379392C A            DATA     X'0379392C'
     5634   01 024EE    1208008C A   DM08     MODULE                     DM-ZERO OPERAND IN MEMORY
     5635   01 024EF    7B403000              DM,4     MEMORY
     5636   01 024F0    F3301148              K        15,3,3,LOC        PSW1 IN
     5637   01 024F1    0330114A              K        0,3,3,LOC+2       PSW1 OUT
     5638   01 024F2    00000000 A            DATA     X'0'              R12 IN
     5639   01 024F3    00000000 A            DATA     X'0'              R12 OUT
     5640   01 024F4    0000000C A            DATA     X'0000000C'       MEMORY+0 IN
     5641   01 024F5    0000000C A            DATA     X'0000000C'       MEMORY+0 OUT
     5642   01 024F6    00000000 A            DATA     X'0'              R13 IN
     5643   01 024F7    00000000 A            DATA     X'0'              R13 OUT
     5644   01 024F8    00000000 A            DATA     X'0'              MEMORY+1 IN
     5645   01 024F9    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5646   01 024FA    00000000 A            DATA     X'0'              R14 IN
     5647   01 024FB    00000000 A            DATA     X'0'              R14 OUT
     5648   01 024FC    00000000 A            DATA     X'0'              MEMORY+2 IN
     5649   01 024FD    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5650   01 024FE    1677000C A            DATA     X'1677000C'       R15 IN
     5651   01 024FF    0000000C A            DATA     X'0000000C'       R15 OUT
     5652   01 02500    1209008D A   DM09     MODULE                     DM-MULTIPLY 1957 BY 5
     5653   01 02501    7B103000              DM,1     MEMORY
     5654   01 02502    D3301148              K        13,3,3,LOC        PSW1 IN
     5655   01 02503    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     5656   01 02504    00000000 A            DATA     X'0'              R12 IN
     5657   01 02505    00000000 A            DATA     X'0'              R12 OUT
     5658   01 02506    5C000000 A            DATA     X'5C000000'       MEMORY+0 IN
     5659   01 02507    5C000000 A            DATA     X'5C000000'       MEMORY+0 OUT
     5660   01 02508    00000000 A            DATA     X'0'              R13 IN
     5661   01 02509    00000000 A            DATA     X'0'              R13 OUT
     5662   01 0250A    00000000 A            DATA     X'0'              MEMORY+1 IN
     5663   01 0250B    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5664   01 0250C    00000000 A            DATA     X'0'              R14 IN
     5665   01 0250D    00000000 A            DATA     X'0'              R14 OUT
     5666   01 0250E    00000000 A            DATA     X'0'              MEMORY+2 IN
     5667   01 0250F    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5668   01 02510    0001957C A            DATA     X'0001957C'       R15 IN
     5669   01 02511    0009785C A            DATA     X'0009785C'       R15 OUT
     5670   01 02512    120A008E A   DM10     MODULE                     DM-MULTIPLY 9009009 BY 3
     5671   01 02513    7B103000              DM,1     MEMORY
     5672   01 02514    D3301148              K        13,3,3,LOC        PSW1 IN
     5673   01 02515    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     5674   01 02516    00000000 A            DATA     X'0'              R12 IN
     5675   01 02517    00000000 A            DATA     X'0'              R12 OUT
     5676   01 02518    3C999999 A            DATA     X'3C999999'       MEMORY+0 IN
     5677   01 02519    3C999999 A            DATA     X'3C999999'       MEMORY+0 OUT
     5678   01 0251A    00000000 A            DATA     X'0'              R13 IN
     5679   01 0251B    00000000 A            DATA     X'0'              R13 OUT
     5680   01 0251C    00000000 A            DATA     X'0'              MEMORY+1 IN
     5681   01 0251D    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5682   01 0251E    00000000 A            DATA     X'0'              R14 IN
     5683   01 0251F    00000002 A            DATA     X'2'              R14 OUT
     5684   01 02520    00000000 A            DATA     X'0'              MEMORY+2 IN
     5685   01 02521    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5686   01 02522    9009009C A            DATA     X'9009009C'       R15 IN
     5687   01 02523    7027027C A            DATA     X'7027027C'       R15 OUT
     5688   01 02524    120B008F A   DM11     MODULE                     DM-MULTIPLY 2808 BY 1
     5689   01 02525    7B803000              DM,8     MEMORY
     5690   01 02526    E3301148              K        14,3,3,LOC        PSW1 IN
     5691   01 02527    1330114A              K         1,3,3,LOC+2      PSW1 OUT
     5692   01 02528    00000000 A            DATA     X'0'              R12 IN
     5693   01 02529    00000000 A            DATA     X'0'              R12 OUT
     5694   01 0252A    00000000 A            DATA     X'0'              MEMORY+0 IN
     5695   01 0252B    00000000 A            DATA     X'0'              MEMORY+0 OUT
     5696   01 0252C    00000000 A            DATA     X'0'              R13 IN
     5697   01 0252D    00000000 A            DATA     X'0'              R13 OUT
     5698   01 0252E    0000001D A            DATA     X'1D'             MEMORY+1 IN
     5699   01 0252F    0000001D A            DATA     X'1D'             MEMORY+1 OUT
     5700   01 02530    00000000 A            DATA     X'0'              R14 IN
     5701   01 02531    00000000 A            DATA     X'0'              R14 OUT
     5702   01 02532    00000000 A            DATA     X'0'              MEMORY+2 IN
     5703   01 02533    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5704   01 02534    0002808C A            DATA     X'0002808C'       R15 IN
     5705   01 02535    0002808D A            DATA     X'0002808D'       R15 OUT
     5706   01 02536    120C0090 A   DM12     MODULE                     DM-MULTIPLY +1 BY -1
     5707   01 02537    7B803000              DM,8     MEMORY
     5708   01 02538    E3301148              K        14,3,3,LOC        PSW1 IN
     5709   01 02539    1330114A              K         1,3,3,LOC+2      PSW1 OUT
     5710   01 0253A    00000000 A            DATA     X'0'              R12 IN
     5711   01 0253B    00000000 A            DATA     X'0'              R12 OUT
     5712   01 0253C    00000000 A            DATA     X'0'              MEMORY+0 IN
     5713   01 0253D    00000000 A            DATA     X'0'              MEMORY+0 OUT
     5714   01 0253E    00000000 A            DATA     X'0'              R13 IN
     5715   01 0253F    00000000 A            DATA     X'0'              R13 OUT
     5716   01 02540    0000001D A            DATA     X'1D'             MEMORY+1 IN
     5717   01 02541    0000001D A            DATA     X'1D'             MEMORY+1 OUT
     5718   01 02542    00000000 A            DATA     X'0'              R14 IN
     5719   01 02543    00000000 A            DATA     X'0'              R14 OUT
     5720   01 02544    00000000 A            DATA     X'0'              MEMORY+2 IN
     5721   01 02545    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5722   01 02546    0000001C A            DATA     X'1C'             R15 IN
     5723   01 02547    0000001D A            DATA     X'1D'             R15 OUT
     5724   01 02548    120D0091 A   DM13     MODULE                     DM-ABORT ON ILLEGAL L FIELD
     5725   01 02549    7B903000              DM,9     MEMORY
     5726   01 0254A    73101148              K         7,3,1,LOC        PSW1 IN
     5727   01 0254B    B310114A              K        11,3,1,LOC+2      PSW1 OUT
     5728   01 0254C    53359119 A            DATA     X'53359119'       R12 IN
     5729   01 0254D    53359119 A            DATA     X'53359119'       R12 OUT
     5730   01 0254E    82398275 A            DATA     X'82398275'       MEMORY+0 IN
     5731   01 0254F    82398275 A            DATA     X'82398275'       MEMORY+0 OUT
     5732   01 02550    42142773 A            DATA     X'42142773'       R13 IN
     5733   01 02551    42142773 A            DATA     X'42142773'       R13 OUT
     5734   01 02552    59887036 A            DATA     X'59887036'       MEMORY+1 IN
     5735   01 02553    59887036 A            DATA     X'59887036'       MEMORY+1 OUT
     5736   01 02554    06403689 A            DATA     X'06403689'       R14 IN
     5737   01 02555    06403689 A            DATA     X'06403689'       R14 OUT
     5738   01 02556    4D000000 A            DATA     X'4D000000'       MEMORY+2 IN
     5739   01 02557    4D000000 A            DATA     X'4D000000'       MEMORY+2 OUT
     5740   01 02558    6508670D A            DATA     X'6508670D'       R15 IN
     5741   01 02559    6508670D A            DATA     X'6508670D'       R15 OUT
     5742   01 0255A    120E0092 A   DM14     MODULE                     DM-RANDOM PATTERN
     5743   01 0255B    7B703000              DM,7     MEMORY
     5744   01 0255C    D3301148              K        13,3,3,LOC        PSW1 IN
     5745   01 0255D    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     5746   01 0255E    00000000 A            DATA     X'0'              R12 IN
     5747   01 0255F    00015876 A            DATA     X'00015876'       R12 OUT
     5748   01 02560    53808231 A            DATA     X'53808231'       MEMORY+0 IN
     5749   01 02561    53808231 A            DATA     X'53808231'       MEMORY+0 OUT
     5750   01 02562    00000000 A            DATA     X'0'              R13 IN
     5751   01 02563    63031352 A            DATA     X'63031352'       R13 OUT
     5752   01 02564    73412B86 A            DATA     X'73412B86'       MEMORY+1 IN
     5753   01 02565    73412B86 A            DATA     X'73412B86'       MEMORY+1 OUT
     5754   01 02566    29505950 A            DATA     X'29505950'       R14 IN
     5755   01 02567    97390640 A            DATA     X'97390640'       R14 OUT
     5756   01 02568    00000000 A            DATA     X'0'              MEMORY+2 IN
     5757   01 02569    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5758   01 0256A    6730869B A            DATA     X'6730869B'       R15 IN
     5759   01 0256B    0455028C A            DATA     X'0455028C'       R15 OUT
     5760   01 0256C    120F0093 A   DM15     MODULE                     DM-RANDOM PATTERN
     5761   01 0256D    7B603000              DM,6     MEMORY
     5762   01 0256E    D3301148              K        13,3,3,LOC        PSW1 IN
     5763   01 0256F    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     5764   01 02570    00000000 A            DATA     X'0'              R12 IN
     5765   01 02571    00000067 A            DATA     X'00000067'       R12 OUT
     5766   01 02572    47912447 A            DATA     X'47912447'       MEMORY+0 IN
     5767   01 02573    47912447 A            DATA     X'47912447'       MEMORY+0 OUT
     5768   01 02574    00000000 A            DATA     X'0'              R13 IN
     5769   01 02575    11632647 A            DATA     X'11632647'       R13 OUT
     5770   01 02576    267C0000 A            DATA     X'267C0000'       MEMORY+1 IN
     5771   01 02577    267C0000 A            DATA     X'267C0000'       MEMORY+1 OUT
     5772   01 02578    14008119 A            DATA     X'14008119'       R14 IN
     5773   01 02579    30007089 A            DATA     X'30007089'       R14 OUT
     5774   01 0257A    00000000 A            DATA     X'0'              MEMORY+2 IN
     5775   01 0257B    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5776   01 0257C    0382499C A            DATA     X'0382499C'       R15 IN
     5777   01 0257D    7180233C A            DATA     X'7180233C'       R15 OUT
     5778   01 0257E    12100094 A   DM16     MODULE                     DM-RANDOM PATTERN
     5779   01 0257F    7B503000              DM,5     MEMORY
     5780   01 02580    D3301148              K        13,3,3,LOC        PSW1 IN
     5781   01 02581    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     5782   01 02582    00000000 A            DATA     X'0'              R12 IN
     5783   01 02583    00000006 A            DATA     X'6'              R12 OUT
     5784   01 02584    93765872 A            DATA     X'93765872'       MEMORY+0 IN
     5785   01 02585    93765872 A            DATA     X'93765872'       MEMORY+0 OUT
     5786   01 02586    00000000 A            DATA     X'0'              R13 IN
     5787   01 02587    33519031 A            DATA     X'33519031'       R13 OUT
     5788   01 02588    4C000000 A            DATA     X'4C000000'       MEMORY+1 IN
     5789   01 02589    4C000000 A            DATA     X'4C000000'       MEMORY+1 OUT
     5790   01 0258A    67563924 A            DATA     X'67563924'       R14 IN
     5791   01 0258B    16906330 A            DATA     X'16906330'       R14 OUT
     5792   01 0258C    00000000 A            DATA     X'0'              MEMORY+2 IN
     5793   01 0258D    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5794   01 0258E    3739456C A            DATA     X'3739456C'       R15 IN
     5795   01 0258F    1414144C A            DATA     X'1414144C'       R15 OUT
     5796   01 02590    12110095 A   DM17     MODULE                     DM-EXAMPLE FROM DEC UNIT TECH MAN
     5797   01 02591    7B203000              DM,2     MEMORY
     5798   01 02592    03301148              K         0,3,3,LOC        PSW1 IN
     5799   01 02593    1330114A              K         1,3,3,LOC+2      PSW1 OUT
     5800   01 02594    00000000 A            DATA     X'0'              R12 IN
     5801   01 02595    00000000 A            DATA     X'0'              R12 OUT
     5802   01 02596    999D0000 A            DATA     X'999D0000'       MEMORY+0 IN
     5803   01 02597    999D0000 A            DATA     X'999D0000'       MEMORY+0 OUT
     5804   01 02598    00000000 A            DATA     X'0'              R13 IN
     5805   01 02599    00000000 A            DATA     X'0'              R13 OUT
     5806   01 0259A    00000000 A            DATA     X'0'              MEMORY+1 IN
     5807   01 0259B    00000000 A            DATA     X'0'              MEMORY+1 OUT
     5808   01 0259C    00000000 A            DATA     X'0'              R14 IN
     5809   01 0259D    00000000 A            DATA     X'0'              R14 OUT
     5810   01 0259E    00000000 A            DATA     X'0'              MEMORY+2 IN
     5811   01 0259F    00000000 A            DATA     X'0'              MEMORY+2 OUT
     5812   01 025A0    0000007C A            DATA     X'7C'             R15 IN
     5813   01 025A1    0006993D A            DATA     X'0006993D'       R15 OUT
     5814   01 025A2    12120096 A   DM18     MODULE
     5815   01 025A3    7B803000              DM,8     MEMORY
     5816   01 025A4    03301148              K        0,3,3,LOC
     5817   01 025A5    1330114A              K        1,3,3,LOC+2
     5818   01 025A6    90291999 A            DATA     X'90291999'
     5819   01 025A7    08297834 A            DATA     X'08297834'
     5820   01 025A8    91899993 A            DATA     X'91899993'
     5821   01 025A9    91899993 A            DATA     X'91899993'
     5822   01 025AA    43D21550 A            DATA     X'43D21550'
     5823   01 025AB    19440255 A            DATA     X'19440255'
     5824   01 025AC    8686290C A            DATA     X'8686290C'
     5825   01 025AD    8686290C A            DATA     X'8686290C'
     5826   01 025AE    54856219 A            DATA     X'54856219'
     5827   01 025AF    86362406 A            DATA     X'86362406'
     5828   01 025B0    00000000 A            DATA     0
     5829   01 025B1    00000000 A            DATA     0
     5830   01 025B2    35005002 A            DATA     X'35005002'
     5831   01 025B3    6300500D A            DATA     X'6300500D'
     5832   01 025B4    12010097 A   DD01     MODULE   X'7A'             DD - POS QUOT
     5833   01 025B5    7A803000              DD,8     MEMORY
     5834   01 025B6    D3301148              K        13,3,3,LOC
     5835   01 025B7    2330114A              K        2,3,3,LOC+2
     5836   01 025B8    07051259 A            DATA     X'07051259'
     5837   01 025B9    06610013 A            DATA     X'06610013'
     5838   01 025BA    70512596 A            DATA     X'70512596'
     5839   01 025BB    70512596 A            DATA     X'70512596'
     5840   01 025BC    61382601 A            DATA     X'61382601'
     5841   01 025BD    4078434C A            DATA     X'4078434C'
     5842   01 025BE    1382602C A            DATA     X'1382602C'
     5843   01 025BF    1382602C A            DATA     X'1382602C'
     5844   01 025C0    36097417 A            DATA     X'36097417'
     5845   01 025C1    99999999 A            DATA     X'99999999'
     5846   01 025C2    00000000 A            DATA     X'0'
     5847   01 025C3    00000000 A            DATA     X'0'
     5848   01 025C4    2695832C A            DATA     X'2695832C'
     5849   01 025C5    9999999C A            DATA     X'9999999C'
     5850   01 025C6    12020098 A   DD02     MODULE                     DD - NEG QUOT
     5851   01 025C7    7A803000              DD,8     MEMORY
     5852   01 025C8    E3301148              K        14,3,3,LOC
     5853   01 025C9    1330114A              K        1,3,3,LOC+2
     5854   01 025CA    03517849 A            DATA     X'03517849'
     5855   01 025CB    18596139 A            DATA     X'18596139'
     5856   01 025CC    35178496 A            DATA     X'35178496'
     5857   01 025CD    35178496 A            DATA     X'35178496'
     5858   01 025CE    62804321 A            DATA     X'62804321'
     5859   01 025CF    4765962D A            DATA     X'4765962D'
     5860   01 025D0    2804322C A            DATA     X'2804322C'
     5861   01 025D1    2804322C A            DATA     X'2804322C'
     5862   01 025D2    48239146 A            DATA     X'48239146'
     5863   01 025D3    99999999 A            DATA     X'99999999'
     5864   01 025D4    00000000 A            DATA     X'0'
     5865   01 025D5    00000000 A            DATA     X'0'
     5866   01 025D6    9157318D A            DATA     X'9157318D'
     5867   01 025D7    9999998D A            DATA     X'9999998D'
     5868   01 025D8    12030099 A   DD03     MODULE                     DD - L=1, NEQ QUOT 0 REM
     5869   01 025D9    7A103000              DD,1     MEMORY
     5870   01 025DA    F3301148              K        15,3,3,LOC
     5871   01 025DB    1330114A              K        1,3,3,LOC+2
     5872   01 025DC    00000000 A            DATA     X'0'
     5873   01 025DD    00000000 A            DATA     X'0'
     5874   01 025DE    5C000000 A            DATA     X'5C000000'
     5875   01 025DF    5C000000 A            DATA     X'5C000000'
     5876   01 025E0    00000004 A            DATA     X'4'
     5877   01 025E1    0000000D A            DATA     X'D'
     5878   01 025E2    00000000 A            DATA     X'0'
     5879   01 025E3    00000000 A            DATA     X'0'
     5880   01 025E4    00000000 A            DATA     X'0'
     5881   01 025E5    80000000 A            DATA     X'80000000'
     5882   01 025E6    00000000 A            DATA     X'0'
     5883   01 025E7    00000000 A            DATA     X'0'
     5884   01 025E8    0000000D A            DATA     X'D'
     5885   01 025E9    0000000D A            DATA     X'D'
     5886   01 025EA    1204009A A   DD04     MODULE                     DD - OVERFLOW - TRAP
     5887   01 025EB    7A803000              DD,8     MEMORY
     5888   01 025EC    8330114D              K        8,3,3,LOC+5
     5889   01 025ED    4330101B              K        4,3,3,EXP:TRAP+5
     5890   01 025EE    06000000 A            DATA     X'06000000'
     5891   01 025EF    06000000 A            DATA     X'06000000'
     5892   01 025F0    60000000 A            DATA     X'60000000'
     5893   01 025F1    60000000 A            DATA     X'60000000'
     5894   01 025F2    00000000 A            DATA     X'0'
     5895   01 025F3    00000000 A            DATA     X'0'
     5896   01 025F4    0000000D A            DATA     X'D'
     5897   01 025F5    0000000D A            DATA     X'D'
     5898   01 025F6    00000000 A            DATA     X'0'
     5899   01 025F7    00000000 A            DATA     X'0'
     5900   01 025F8    00000000 A            DATA     X'0'
     5901   01 025F9    00000000 A            DATA     X'0'
     5902   01 025FA    0000000D A            DATA     X'D'
     5903   01 025FB    0000000D A            DATA     X'D'
     5904   01 025FC    1205009B A   DD05     MODULE                     DD - OVERFLOW - TRAP
     5905   01 025FD    7A803000              DD,8     MEMORY
     5906   01 025FE    8330114D              K        8,3,3,LOC+5
     5907   01 025FF    4330101B              K        4,3,3,EXP:TRAP+5
     5908   01 02600    05000000 A            DATA     X'05000000'
     5909   01 02601    05000000 A            DATA     X'05000000'
     5910   01 02602    50000000 A            DATA     X'50000000'
     5911   01 02603    50000000 A            DATA     X'50000000'
     5912   01 02604    00000001 A            DATA     X'1'
     5913   01 02605    00000001 A            DATA     X'1'
     5914   01 02606    0000000C A            DATA     X'C'
     5915   01 02607    0000000C A            DATA     X'C'
     5916   01 02608    00000000 A            DATA     X'0'
     5917   01 02609    00000000 A            DATA     X'0'
     5918   01 0260A    00000000 A            DATA     X'0'
     5919   01 0260B    00000000 A            DATA     X'0'
     5920   01 0260C    0000000C A            DATA     X'C'
     5921   01 0260D    0000000C A            DATA     X'C'
     5922   01 0260E    1206009C A   DD06     MODULE                     DD - GROSS OVERFLOW - NO TRAP
     5923   01 0260F    7A403000              DD,4     MEMORY
     5924   01 02610    83101148              K        8,3,1,LOC
     5925   01 02611    4310114A              K        4,3,1,LOC+2
     5926   01 02612    60000000 A            DATA     X'60000000'
     5927   01 02613    60000000 A            DATA     X'60000000'
     5928   01 02614    0000008C A            DATA     X'8C'
     5929   01 02615    0000008C A            DATA     X'8C'
     5930   01 02616    00000000 A            DATA     X'0'
     5931   01 02617    00000000 A            DATA     X'0'
     5932   01 02618    00000000 A            DATA     X'0'
     5933   01 02619    00000000 A            DATA     X'0'
     5934   01 0261A    00000000 A            DATA     X'0'
     5935   01 0261B    00000000 A            DATA     X'0'
     5936   01 0261C    00000000 A            DATA     X'0'
     5937   01 0261D    00000000 A            DATA     X'0'
     5938   01 0261E    0000000C A            DATA     X'C'
     5939   01 0261F    0000000C A            DATA     X'C'
     5940   01 02620    1207009D A   DD07     MODULE                     DD - ZERO DIVIDE - NO TRAP
     5941   01 02621    7A803000              DD,8     MEMORY
     5942   01 02622    83101148              K        8,3,1,LOC
     5943   01 02623    4310114A              K        4,3,1,LOC+2
     5944   01 02624    00000000 A            DATA     X'0'
     5945   01 02625    00000000 A            DATA     X'0'
     5946   01 02626    00000000 A            DATA     X'0'
     5947   01 02627    00000000 A            DATA     X'0'
     5948   01 02628    00000000 A            DATA     X'0'
     5949   01 02629    00000000 A            DATA     X'0'
     5950   01 0262A    0000000D A            DATA     X'D'
     5951   01 0262B    0000000D A            DATA     X'D'
     5952   01 0262C    00000000 A            DATA     X'0'
     5953   01 0262D    00000000 A            DATA     X'0'
     5954   01 0262E    00000000 A            DATA     X'0'
     5955   01 0262F    00000000 A            DATA     X'0'
     5956   01 02630    0000000D A            DATA     X'D'
     5957   01 02631    0000000D A            DATA     X'D'
     5958   01 02632    1208009E A   DD08     MODULE                     DD - L=1
     5959   01 02633    7A103000              DD,1     MEMORY
     5960   01 02634    03301148              K        0,3,3,LOC
     5961   01 02635    2330114A              K        2,3,3,LOC+2
     5962   01 02636    00000000 A            DATA     X'0'
     5963   01 02637    00000000 A            DATA     X'0'
     5964   01 02638    3C000000 A            DATA     X'3C000000'
     5965   01 02639    3C000000 A            DATA     X'3C000000'
     5966   01 0263A    00000000 A            DATA     X'0'
     5967   01 0263B    0000000C A            DATA     X'C'
     5968   01 0263C    00000000 A            DATA     X'0'
     5969   01 0263D    00000000 A            DATA     X'0'
     5970   01 0263E    00000000 A            DATA     X'0'
     5971   01 0263F    00000000 A            DATA     X'0'
     5972   01 02640    00000000 A            DATA     X'0'
     5973   01 02641    00000000 A            DATA     X'0'
     5974   01 02642    0000009C A            DATA     X'9C'
     5975   01 02643    0000003C A            DATA     X'3C'
     5976   01 02644    1209009F A   DD09     MODULE                     DD - L=2
     5977   01 02645    7A203000              DD,2     MEMORY
     5978   01 02646    03301148              K        0,3,3,LOC
     5979   01 02647    2330114A              K        2,3,3,LOC+2
     5980   01 02648    00000000 A            DATA     X'0'
     5981   01 02649    00000000 A            DATA     X'0'
     5982   01 0264A    003D0000 A            DATA     X'003D0000'
     5983   01 0264B    003D0000 A            DATA     X'003D0000'
     5984   01 0264C    00000000 A            DATA     X'0'
     5985   01 0264D    0000002D A            DATA     X'2D'
     5986   01 0264E    00000000 A            DATA     X'0'
     5987   01 0264F    00000000 A            DATA     X'0'
     5988   01 02650    00000000 A            DATA     X'0'
     5989   01 02651    00000000 A            DATA     X'0'
     5990   01 02652    00000000 A            DATA     X'0'
     5991   01 02653    00000000 A            DATA     X'0'
     5992   01 02654    0000029D A            DATA     X'29D'
     5993   01 02655    0000009C A            DATA     X'9C'
     5994   01 02656    120A00A0 A   DD10     MODULE                     DD - L=3
     5995   01 02657    7A303000              DD,3     MEMORY
     5996   01 02658    03301148              K        0,3,3,LOC
     5997   01 02659    0330114A              K        0,3,3,LOC+2
     5998   01 0265A    00000000 A            DATA     X'0'
     5999   01 0265B    00000000 A            DATA     X'0'
     6000   01 0265C    00073D00 A            DATA     X'00073D00'
     6001   01 0265D    00073D00 A            DATA     X'00073D00'
     6002   01 0265E    00000000 A            DATA     X'0'
     6003   01 0265F    0000029C A            DATA     X'29C'
     6004   01 02660    00000000 A            DATA     X'0'
     6005   01 02661    00000000 A            DATA     X'0'
     6006   01 02662    00000000 A            DATA     X'0'
     6007   01 02663    00000000 A            DATA     X'0'
     6008   01 02664    00000000 A            DATA     X'0'
     6009   01 02665    00000000 A            DATA     X'0'
     6010   01 02666    0000029C A            DATA     X'29C'
     6011   01 02667    0000000C A            DATA     X'C'
     6012   01 02668    120B00A1 A   DD11     MODULE                     DD - L=4
     6013   01 02669    7A403000              DD,4     MEMORY
     6014   01 0266A    03301148              K        0,3,3,LOC
     6015   01 0266B    1330114A              K        1,3,3,LOC+2
     6016   01 0266C    00000000 A            DATA     X'0'
     6017   01 0266D    00000000 A            DATA     X'0'
     6018   01 0266E    0000073C A            DATA     X'0000073C'
     6019   01 0266F    0000073C A            DATA     X'0000073C'
     6020   01 02670    00000000 A            DATA     X'0'
     6021   01 02671    0000026D A            DATA     X'26D'
     6022   01 02672    00000000 A            DATA     X'0'
     6023   01 02673    00000000 A            DATA     X'0'
     6024   01 02674    00000000 A            DATA     X'0'
     6025   01 02675    00000000 A            DATA     X'0'
     6026   01 02676    00000000 A            DATA     X'0'
     6027   01 02677    00000000 A            DATA     X'0'
     6028   01 02678    0000829D A            DATA     X'829D'
     6029   01 02679    0000011D A            DATA     X'11D'
     6030   01 0267A    120C00A2 A   DD12     MODULE                     DD - PREVIOUSLY INTERRUPTED
     6031   01 0267B    7A103000              DD,1     MEMORY
     6032   01 0267C    03301148              K        0,3,3,LOC
     6033   01 0267D    2330114A              K        2,3,3,LOC+2
     6034   01 0267E    00000000 A            DATA     X'0'
     6035   01 0267F    00000000 A            DATA     X'0'
     6036   01 02680    3D000000 A            DATA     X'3D000000'
     6037   01 02681    3D000000 A            DATA     X'3D000000'
     6038   01 02682    000014D0 A            DATA     X'14D0'
     6039   01 02683    0000002D A            DATA     X'2D'
     6040   01 02684    00000000 A            DATA     X'0'
     6041   01 02685    00000000 A            DATA     X'0'
     6042   01 02686    00000000 A            DATA     X'0'
     6043   01 02687    00000000 A            DATA     X'0'
     6044   01 02688    00000000 A            DATA     X'0'
     6045   01 02689    00000000 A            DATA     X'0'
     6046   01 0268A    00000112 A            DATA     X'112'
     6047   01 0268B    0000145C A            DATA     X'145C'
     6048   01 0268C    120D00A3 A   DD13     MODULE                     DD - PREVIOUSLY INTERRUPTED
     6049   01 0268D    7A803000              DD,8     MEMORY
     6050   01 0268E    03301148              K        0,3,3,LOC
     6051   01 0268F    1330114A              K        1,3,3,LOC+2
     6052   01 02690    D0703569 A            DATA     X'D0703569'
     6053   01 02691    18596139 A            DATA     X'18596139'
     6054   01 02692    35178496 A            DATA     X'35178496'
     6055   01 02693    35178496 A            DATA     X'35178496'
     6056   01 02694    92560863 A            DATA     X'92560863'
     6057   01 02695    4765962D A            DATA     X'4765962D'
     6058   01 02696    2804322C A            DATA     X'2804322C'
     6059   01 02697    2804322C A            DATA     X'2804322C'
     6060   01 02698    88239146 A            DATA     X'88239146'
     6061   01 02699    99999999 A            DATA     X'99999999'
     6062   01 0269A    00000000 A            DATA     X'0'
     6063   01 0269B    00000000 A            DATA     X'0'
     6064   01 0269C    91573188 A            DATA     X'91573188'
     6065   01 0269D    9999998D A            DATA     X'9999998D'
     6066   01 0269E    120E00A4 A   DD14     MODULE                     DD - PREVIOUSLY INTERRUPTED
     6067   01 0269F    7A103000              DD,1     MEMORY
     6068   01 026A0    03301148              K        0,3,3,LOC
     6069   01 026A1    1330114A              K        1,3,3,LOC+2
     6070   01 026A2    00000002 A            DATA     X'2'
     6071   01 026A3    00000000 A            DATA     X'0'
     6072   01 026A4    3D000000 A            DATA     X'3D000000'
     6073   01 026A5    3D000000 A            DATA     X'3D000000'
     6074   01 026A6    1100C000 A            DATA     X'1100C000'
     6075   01 026A7    0000001C A            DATA     X'1C'
     6076   01 026A8    00000000 A            DATA     X'0'
     6077   01 026A9    00000000 A            DATA     X'0'
     6078   01 026AA    00000000 A            DATA     X'0'
     6079   01 026AB    00000002 A            DATA     X'2'
     6080   01 026AC    00000000 A            DATA     X'0'
     6081   01 026AD    00000000 A            DATA     X'0'
     6082   01 026AE    00000010 A            DATA     X'10'
     6083   01 026AF    1100000D A            DATA     X'1100000D'
     6084   01 026B0    120F00A5 A   DD15     MODULE                     DD - ZERO QUOTIENT, POS REMAINDER
     6085   01 026B1    7A303000              DD,3     MEMORY
     6086   01 026B2    03301148              K        0,3,3,LOC
     6087   01 026B3    0330114A              K        0,3,3,LOC+2
     6088   01 026B4    00000000 A            DATA     X'0'
     6089   01 026B5    00000000 A            DATA     X'0'
     6090   01 026B6    02468C00 A            DATA     X'02468C00'
     6091   01 026B7    02468C00 A            DATA     X'02468C00'
     6092   01 026B8    00000000 A            DATA     X'0'
     6093   01 026B9    0000009C A            DATA     X'9C'
     6094   01 026BA    00000000 A            DATA     X'0'
     6095   01 026BB    00000000 A            DATA     X'0'
     6096   01 026BC    00000000 A            DATA     X'0'
     6097   01 026BD    00000000 A            DATA     X'0'
     6098   01 026BE    00000000 A            DATA     X'0'
     6099   01 026BF    00000000 A            DATA     X'0'
     6100   01 026C0    0000009C A            DATA     X'9C'
     6101   01 026C1    0000000C A            DATA     X'C'
     6102   01 026C2    121000A6 A   DD16     MODULE                     DD-DIVIDE -9 BY +2468
     6103   01 026C3    7A303000              DD,3     MEMORY
     6104   01 026C4    F3301148              K        15,3,3,LOC        PSW1 IN
     6105   01 026C5    0330114A              K         0,3,3,LOC+2      PSW1 OUT
     6106   01 026C6    00000000 A            DATA     X'0'              R12 IN
     6107   01 026C7    00000000 A            DATA     X'0'              R12 OUT
     6108   01 026C8    02468C77 A            DATA     X'02468C77'       MEMORY+0 IN
     6109   01 026C9    02468C77 A            DATA     X'02468C77'       MEMORY+0 OUT
     6110   01 026CA    00000000 A            DATA     X'0'              R13 IN
     6111   01 026CB    0000009D A            DATA     X'9D'             R13 OUT
     6112   01 026CC    00000000 A            DATA     X'0'              MEMORY+1 IN
     6113   01 026CD    00000000 A            DATA     X'0'              MEMORY+1 OUT
     6114   01 026CE    00000000 A            DATA     X'0'              R14 IN
     6115   01 026CF    00000000 A            DATA     X'0'              R14 OUT
     6116   01 026D0    00000000 A            DATA     X'0'              MEMORY+2 IN
     6117   01 026D1    00000000 A            DATA     X'0'              MEMORY+2 OUT
     6118   01 026D2    0000009D A            DATA     X'9D'             R15 IN
     6119   01 026D3    0000000C A            DATA     X'C'              R15 OUT
     6120   01 026D4    121100A7 A   DD17     MODULE                     DD-DIVIDE FIELD OF NINES BY 999
     6121   01 026D5    7A403000              DD,4     MEMORY
     6122   01 026D6    D3301148              K        13,3,3,LOC        PSW1 IN
     6123   01 026D7    1330114A              K         1,3,3,LOC+2      PSW1 OUT
     6124   01 026D8    00000000 A            DATA     X'0'              R12 IN
     6125   01 026D9    00000000 A            DATA     X'0'              R12 OUT
     6126   01 026DA    0000999C A            DATA     X'999C'           MEMORY+0 IN
     6127   01 026DB    0000999C A            DATA     X'999C'           MEMORY+0 OUT
     6128   01 026DC    00000009 A            DATA     X'9'              R13 IN
     6129   01 026DD    0000009D A            DATA     X'9D'             R13 OUT
     6130   01 026DE    00000000 A            DATA     X'0'              MEMORY+1 IN
     6131   01 026DF    00000000 A            DATA     X'0'              MEMORY+1 OUT
     6132   01 026E0    99999999 A            DATA     X'99999999'       R14 IN
     6133   01 026E1    01001001 A            DATA     X'01001001'       R14 OUT
     6134   01 026E2    00000000 A            DATA     X'0'              MEMORY+2 IN
     6135   01 026E3    00000000 A            DATA     X'0'              MEMORY+2 OUT
     6136   01 026E4    9999999D A            DATA     X'9999999D'       R15 IN
     6137   01 026E5    0010010D A            DATA     X'0010010D'       R15 OUT
     6138   01 026E6    121200A8 A   DD18     MODULE                     DD-DIVIDE -1 BY -1
     6139   01 026E7    7A203000              DD,2     MEMORY
     6140   01 026E8    E3301148              K        14,3,3,LOC        PSW1 IN
     6141   01 026E9    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     6142   01 026EA    00000000 A            DATA     X'0'              R12 IN
     6143   01 026EB    00000000 A            DATA     X'0'              R12 OUT
     6144   01 026EC    001D0000 A            DATA     X'001D0000'       MEMORY+0 IN
     6145   01 026ED    001D0000 A            DATA     X'001D0000'       MEMORY+0 OUT
     6146   01 026EE    00000000 A            DATA     X'0'              R13 IN
     6147   01 026EF    0000000D A            DATA     X'D'              R13 OUT
     6148   01 026F0    00000000 A            DATA     X'0'              MEMORY+1 IN
     6149   01 026F1    00000000 A            DATA     X'0'              MEMORY+1 OUT
     6150   01 026F2    00000000 A            DATA     X'0'              R14 IN
     6151   01 026F3    00000000 A            DATA     X'0'              R14 OUT
     6152   01 026F4    00000000 A            DATA     X'0'              MEMORY+2 IN
     6153   01 026F5    00000000 A            DATA     X'0'              MEMORY+2 OUT
     6154   01 026F6    0000001D A            DATA     X'1D'             R15 IN
     6155   01 026F7    0000001C A            DATA     X'1C'             R15 OUT
     6156   01 026F8    121300A9 A   DD19     MODULE                     DD-TRAP ON ILLEGAL L FIELD
     6157   01 026F9    7AA03000              DD,10    MEMORY
     6158   01 026FA    7330114D              K         7,3,3,LOC+5      PSW1 IN
     6159   01 026FB    B330101B              K        11,3,3,EXP:TRAP+5 PSW1 OUT
     6160   01 026FC    12121212 A            DATA     X'12121212'       R12 IN
     6161   01 026FD    12121212 A            DATA     X'12121212'       R12 OUT
     6162   01 026FE    00000034 A            DATA     X'34'             MEMORY+0 IN
     6163   01 026FF    00000034 A            DATA     X'34'             MEMORY+0 OUT
     6164   01 02700    13131313 A            DATA     X'13131313'       R13 IN
     6165   01 02701    13131313 A            DATA     X'13131313'       R13 OUT
     6166   01 02702    00000000 A            DATA     X'0'              MEMORY+1 IN
     6167   01 02703    00000000 A            DATA     X'0'              MEMORY+1 OUT
     6168   01 02704    14141414 A            DATA     X'14141414'       R14 IN
     6169   01 02705    14141414 A            DATA     X'14141414'       R14 OUT
     6170   01 02706    000D0000 A            DATA     X'000D0000'       MEMORY+2 IN
     6171   01 02707    000D0000 A            DATA     X'000D0000'       MEMORY+2 OUT
     6172   01 02708    1515151C A            DATA     X'1515151C'       R15 IN
     6173   01 02709    1515151C A            DATA     X'1515151C'       R15 OUT
     6174   01 0270A    121400AA A   DD20     MODULE                     DD-RANDOM PATTERN
     6175   01 0270B    7A703000              DD,7     MEMORY
     6176   01 0270C    D3301148              K        13,3,3,LOC        PSW1 IN
     6177   01 0270D    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     6178   01 0270E    00015876 A            DATA     X'00015876'       R12 IN
     6179   01 0270F    00000000 A            DATA     X'0'              R12 OUT
     6180   01 02710    53808231 A            DATA     X'53808231'       MEMORY+0 IN
     6181   01 02711    53808231 A            DATA     X'53808231'       MEMORY+0 OUT
     6182   01 02712    63031352 A            DATA     X'63031352'       R13 IN
     6183   01 02713    0000000D A            DATA     X'D'              R13 OUT
     6184   01 02714    73412B86 A            DATA     X'73412B86'       MEMORY+1 IN
     6185   01 02715    73412B86 A            DATA     X'73412B86'       MEMORY+1 OUT
     6186   01 02716    97390640 A            DATA     X'97390640'       R14 IN
     6187   01 02717    29505950 A            DATA     X'29505950'       R14 OUT
     6188   01 02718    00000000 A            DATA     X'0'              MEMORY+2 IN
     6189   01 02719    00000000 A            DATA     X'0'              MEMORY+2 OUT
     6190   01 0271A    0455028B A            DATA     X'0455028B'       R15 IN
     6191   01 0271B    6730869C A            DATA     X'6730869C'       R15 OUT
     6192   01 0271C    121500AB A   DD21     MODULE                     DD-RANDOM PATTERN
     6193   01 0271D    7A603000              DD,6     MEMORY
     6194   01 0271E    D3301148              K        13,3,3,LOC        PSW1 IN
     6195   01 0271F    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     6196   01 02720    00000067 A            DATA     X'67'             R12 IN
     6197   01 02721    00000000 A            DATA     X'0'              R12 OUT
     6198   01 02722    47912447 A            DATA     X'47912447'       MEMORY+0 IN
     6199   01 02723    47912447 A            DATA     X'47912447'       MEMORY+0 OUT
     6200   01 02724    11632647 A            DATA     X'11632647'       R13 IN
     6201   01 02725    0000000C A            DATA     X'C'              R13 OUT
     6202   01 02726    267C0000 A            DATA     X'267C0000'       MEMORY+1 IN
     6203   01 02727    267C0000 A            DATA     X'267C0000'       MEMORY+1 OUT
     6204   01 02728    30007089 A            DATA     X'30007089'       R14 IN
     6205   01 02729    14008119 A            DATA     X'14008119'       R14 OUT
     6206   01 0272A    00000000 A            DATA     X'0'              MEMORY+2 IN
     6207   01 0272B    00000000 A            DATA     X'0'              MEMORY+2 OUT
     6208   01 0272C    7180233C A            DATA     X'7180233C'       R15 IN
     6209   01 0272D    0382499C A            DATA     X'0382499C'       R15 OUT
     6210   01 0272E    121600AC A   DD22     MODULE                     DD-RANDOM PATTERN
     6211   01 0272F    7A503000              DD,5     MEMORY
     6212   01 02730    D3301148              K        13,3,3,LOC        PSW1 IN
     6213   01 02731    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     6214   01 02732    00000006 A            DATA     X'6'              R12 IN
     6215   01 02733    00000000 A            DATA     X'0'              R12 OUT
     6216   01 02734    93765872 A            DATA     X'93765872'       MEMORY+0 IN
     6217   01 02735    93765872 A            DATA     X'93765872'       MEMORY+0 OUT
     6218   01 02736    33519031 A            DATA     X'33519031'       R13 IN
     6219   01 02737    0000000C A            DATA     X'C'              R13 OUT
     6220   01 02738    4C000000 A            DATA     X'4C000000'       MEMORY+1 IN
     6221   01 02739    4C000000 A            DATA     X'4C000000'       MEMORY+1 OUT
     6222   01 0273A    16906330 A            DATA     X'16906330'       R14 IN
     6223   01 0273B    67563924 A            DATA     X'67563924'       R14 OUT
     6224   01 0273C    00000000 A            DATA     X'0'              MEMORY+2 IN
     6225   01 0273D    00000000 A            DATA     X'0'              MEMORY+2 OUT
     6226   01 0273E    1414144C A            DATA     X'1414144C'       R15 IN
     6227   01 0273F    3739456C A            DATA     X'3739456C'       R15 OUT
     6228   01 02740    121700AD A   DD23     MODULE                     DD-EXAMPLE FROM DEC UNIT TECH MAN
     6229   01 02741    7A103000              DD,1     MEMORY
     6230   01 02742    03301148              K         0,3,3,LOC        PSW1 IN
     6231   01 02743    2330114A              K         2,3,3,LOC+2      PSW1 OUT
     6232   01 02744    00000000 A            DATA     X'0'              R12 IN
     6233   01 02745    00000000 A            DATA     X'0'              R12 OUT
     6234   01 02746    3D000000 A            DATA     X'3D000000'       MEMORY+0 IN
     6235   01 02747    3D000000 A            DATA     X'3D000000'       MEMORY+0 OUT
     6236   01 02748    00000000 A            DATA     X'0'              R13 IN
     6237   01 02749    0000002D A            DATA     X'2D'             R13 OUT
     6238   01 0274A    00000000 A            DATA     X'0'              MEMORY+1 IN
     6239   01 0274B    00000000 A            DATA     X'0'              MEMORY+1 OUT
     6240   01 0274C    00000000 A            DATA     X'0'              R14 IN
     6241   01 0274D    00000000 A            DATA     X'0'              R14 OUT
     6242   01 0274E    00000000 A            DATA     X'0'              MEMORY+2 IN
     6243   01 0274F    00000000 A            DATA     X'0'              MEMORY+2 OUT
     6244   01 02750    0000437D A            DATA     X'0000437D'       R15 IN
     6245   01 02751    0000145C A            DATA     X'0000145C'       R15 OUT
     6246   01 02752    121800AE A   DD24     MODULE
     6247   01 02753    7A803000              DD,8     MEMORY
     6248   01 02754    F3301148              K              15,3,3,LOC      PSW1 IN
     6249   01 02755    0330114A              K              0,3,3,LOC+2          OUT
     6250   01 02756    00000000 A            DATA     0                 R12 IN
     6251   01 02757    00000000 A            DATA     0                     OUT
     6252   01 02758    99999999 A            DATA     X'99999999'       MEMORY+0 IN
     6253   01 02759    99999999 A            DATA     X'99999999'             +0 OUT
     6254   01 0275A    00000000 A            DATA     0                 R13 IN
     6255   01 0275B    0000000C A            DATA     X'C'                  OUT
     6256   01 0275C    9999999C A            DATA     X'9999999C'       MEMORY+1 IN
     6257   01 0275D    9999999C A            DATA     X'9999999C'       MEMORY+1 OUT
     6258   01 0275E    00000000 A            DATA     0                 R14 IN
     6259   01 0275F    00000000 A            DATA     0                     OUT
     6260   01 02760    00000000 A            DATA     0                 MEMORY+2 IN
     6261   01 02761    00000000 A            DATA     0                     +2 OUT
     6262   01 02762    0000000C A            DATA     X'C'              R15 IN
     6263   01 02763    0000000C A            DATA     X'C'                  OUT
     6264   01 02764    121900AF A   DD25     MODULE
     6265   01 02765    7A103000              DD,1     MEMORY
     6266   01 02766    F3101148              K              15,3,1,LOC      PSW1 IN
     6267   01 02767    7310114A              K              7,3,1,LOC+2          OUT
     6268   01 02768    00000000 A            DATA     0                 R12 IN
     6269   01 02769    00000000 A            DATA     0                     OUT
     6270   01 0276A    0D000000 A            DATA     X'0D000000'       MEMORY+0 IN
     6271   01 0276B    0D000000 A            DATA     X'0D000000'             +0 OUT
     6272   01 0276C    00000000 A            DATA     0                 R13 IN
     6273   01 0276D    00000000 A            DATA     0                 R13 OUT
     6274   01 0276E    00000000 A            DATA     0                 MEMORY+1 IN
     6275   01 0276F    00000000 A            DATA     0                       +1 OUT
     6276   01 02770    00000000 A            DATA     0                 R14 IN
     6277   01 02771    00000000 A            DATA     0                     OUT
     6278   01 02772    00000000 A            DATA     0                 MEMORY+2 IN
     6279   01 02773    00000000 A            DATA     0                       +2 OUT
     6280   01 02774    0000000C A            DATA     X'C'              R15 IN
     6281   01 02775    0000000C A            DATA     X'C'                  OUT
     6282   01 02776    121A00B0 A   DD26     MODULE
     6283   01 02777    7A803000              DD,8     MEMORY
     6284   01 02778    E3301148              K        14,3,3,LOC
     6285   01 02779    2330114A              K        2,3,3,LOC+2
     6286   01 0277A    00000783 A            DATA     X'783'
     6287   01 0277B    00000000 A            DATA     0
     6288   01 0277C    00097998 A            DATA     X'97998'
     6289   01 0277D    00097998 A            DATA     X'97998'
     6290   01 0277E    40349266 A            DATA     X'40349266'
     6291   01 0277F    0000000C A            DATA     12
     6292   01 02780    9393760C A            DATA     X'9393760C'
     6293   01 02781    9393760C A            DATA     X'9393760C'
     6294   01 02782    36407023 A            DATA     X'36407023'
     6295   01 02783    07993999 A            DATA     X'07993999'
     6296   01 02784    00000000 A            DATA     0
     6297   01 02785    00000000 A            DATA     0
     6298   01 02786    7643200C A            DATA     X'7643200C'
     6299   01 02787    7070570C A            DATA     X'7070570C'
     6300   01 02788    200100B1 A   EBS01    MODULE   X'63'             PH1-PH5 EXIT TO PH8A VIA A0007Z,
     6301                            *                                   COUNT EQUALS ZERO.
     6302   01 02789    63A0C000              EBS,10   BA(MEMORY)        INSTRUCTION TO BE TESTED.
     6303   01 0278A    07301148              K        0,7,3,LOC
     6304   01 0278B    0730114A              K        0,7,3,LOC+2
     6305   01 0278C    00000000 A            DATA     0                 R12 IN (R1 IN FOR EBS).
     6306   01 0278D    00000000 A            DATA     0                 R12 OUT.
     6307   01 0278E    00000000 A            DATA     0                 MEMORY IN.
     6308   01 0278F    00000000 A            DATA     0                 MEMORY OUT.
     6309   01 02790    00000000 A            DATA     0                 R13 IN.
     6310   01 02791    00000000 A            DATA     0                 R13 OUT.
     6311   01 02792    00000000 A            DATA     0                 MEMORY+1 IN.
     6312   01 02793    00000000 A            DATA     0                 MEMORY+1 OUT.
     6313   01 02794    00000000 A            DATA     0                 R14 IN.
     6314   01 02795    00000000 A            DATA     0                 R14 OUT.
     6315   01 02796    00000000 A            DATA     0                 MEMORY+2 IN.
     6316   01 02797    00000000 A            DATA     0                 MEMORY+2 OUT.
     6317   01 02798    0000000A A            DATA     10                R15 IN.
     6318   01 02799    0000000A A            DATA     10                R15 OUT.
     6319   01 0279A    0000000A A            DATA     10                MEMORY+3 IN.
     6320   01 0279B    0000000A A            DATA     10                MEMORY+3 OUT.
     6321   01 0279C    00000000 A            DATA     0                 MEMORY+4 IN.
     6322   01 0279D    00000000 A            DATA     0                 MEMORY+4 OUT.
     6323   01 0279E    00000000 A            DATA     0                 MEMORY+5 IN.
     6324   01 0279F    00000000 A            DATA     0                 MEMORY+5 OUT.
     6325   01 027A0    00000000 A            DATA     0                 MEMORY+6 IN.
     6326   01 027A1    00000000 A            DATA     0                 MEMORY+6 OUT.
     6327   01 027A2    00000000 A            DATA     0                 MEMORY+7 IN.
     6328   01 027A3    00000000 A            DATA     0                 MEMORY+7 OUT.
     6329   01 027A4    40000000 A            GEN,8,24 ' ',0             R10 IN.
     6330   01 027A5    0000C000              GEN,8,24 0,BA(MEMORY)      R11 IN.
     6331   01 027A6    40000000 A            GEN,8,24 ' ',0             R10 OUT.
     6332   01 027A7    0000C000              GEN,8,24 0,BA(MEMORY)      R11 OUT.
     6333   01 027A8    200200B2 A   EBS02    MODULE                     PH1-PH5 EXIT TO PH8A VIA SWITCH 3,
     6334                            *                                   INVALID INPUT DIGIT.
     6335   01 027A9    63A0C010              EBS,10   BA(MEMORY)+16
     6336   01 027AA    0730114D              K        0,7,3,LOC+5
     6337   01 027AB    0730101B              K        0,7,3,EXP:TRAP+5
     6338   01 027AC    00000000 A            DATA     0
     6339   01 027AD    00000000 A            DATA     0
     6340   01 027AE    20202020 A            DATA     X'20202020'
     6341   01 027AF    20202020 A            DATA     X'20202020'
     6342   01 027B0    88888888 A            DATA     X'88888888'
     6343   01 027B1    88888888 A            DATA     X'88888888'
     6344   01 027B2    00000000 A            DATA     0
     6345   01 027B3    00000000 A            DATA     0
     6346   01 027B4    88888888 A            DATA     X'88888888'
     6347   01 027B5    88888888 A            DATA     X'88888888'
     6348   01 027B6    00000000 A            DATA     0
     6349   01 027B7    00000000 A            DATA     0
     6350   01 027B8    8888888C A            DATA     X'8888888C'
     6351   01 027B9    8888888C A            DATA     X'8888888C'
     6352   01 027BA    00000000 A            DATA     0
     6353   01 027BB    00000000 A            DATA     0
     6354   01 027BC    A0000000 A            DATA     X'A0000000'
     6355   01 027BD    A0000000 A            DATA     X'A0000000'
     6356   01 027BE    00000000 A            DATA     0
     6357   01 027BF    00000000 A            DATA     0
     6358   01 027C0    00000000 A            DATA     0
     6359   01 027C1    00000000 A            DATA     0
     6360   01 027C2    00000000 A            DATA     0
     6361   01 027C3    00000000 A            DATA     0
     6362   01 027C4    40000000 A            GEN,8,24 ' ',0
     6363   01 027C5    0100C000              GEN,8,24 1,BA(MEMORY)
     6364   01 027C6    40000000 A            GEN,8,24 ' ',0
     6365   01 027C7    0100C000              GEN,8,24 1,BA(MEMORY)
     6366                            *                                   TRAP ON INVALID DIGIT. (B)
     6367   01 027C8    200300B3 A   EBS03    MODULE
     6368   01 027C9    63A0C000              EBS,10   BA(MEMORY)
     6369   01 027CA    0730114D              K        0,7,3,LOC+5
     6370   01 027CB    0730101B              K        0,7,3,EXP:TRAP+5
     6371   01 027CC    00000000 A            DATA     0
     6372   01 027CD    00000000 A            DATA     0
     6373   01 027CE    B0000000 A            DATA     X'B0000000'
     6374   01 027CF    B0000000 A            DATA     X'B0000000'
     6375   01 027D0    11111111 A            DATA     X'11111111'
     6376   01 027D1    11111111 A            DATA     X'11111111'
     6377   01 027D2    20202020 A            DATA     X'20202020'
     6378   01 027D3    20202020 A            DATA     X'20202020'
     6379   01 027D4    11111111 A            DATA     X'11111111'
     6380   01 027D5    11111111 A            DATA     X'11111111'
     6381   01 027D6    00000000 A            DATA     0
     6382   01 027D7    00000000 A            DATA     0
     6383   01 027D8    1111111C A            DATA     X'1111111C'
     6384   01 027D9    1111111C A            DATA     X'1111111C'
     6385   01 027DA    00000000 A            DATA     0
     6386   01 027DB    00000000 A            DATA     0
     6387   01 027DC    00000000 A            DATA     0
     6388   01 027DD    00000000 A            DATA     0
     6389   01 027DE    00000000 A            DATA     0
     6390   01 027DF    00000000 A            DATA     0
     6391   01 027E0    00000000 A            DATA     0
     6392   01 027E1    00000000 A            DATA     0
     6393   01 027E2    00000000 A            DATA     0
     6394   01 027E3    00000000 A            DATA     0
     6395   01 027E4    40000000 A            GEN,8,24 ' ',0
     6396   01 027E5    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6397   01 027E6    40000000 A            GEN,8,24 ' ',0
     6398   01 027E7    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6399                            *                                   TRAP ON INVALID DIGIT. (C)
     6400   01 027E8    200400B4 A   EBS04    MODULE
     6401   01 027E9    63A0C000              EBS,10   BA(MEMORY)
     6402   01 027EA    0730114D              K        0,7,3,LOC+5
     6403   01 027EB    0730101B              K        0,7,3,EXP:TRAP+5
     6404   01 027EC    00000000 A            DATA     0
     6405   01 027ED    00000000 A            DATA     0
     6406   01 027EE    C0000000 A            DATA     X'C0000000'
     6407   01 027EF    C0000000 A            DATA     X'C0000000'
     6408   01 027F0    22222222 A            DATA     X'22222222'
     6409   01 027F1    22222222 A            DATA     X'22222222'
     6410   01 027F2    20202020 A            DATA     X'20202020'
     6411   01 027F3    20202020 A            DATA     X'20202020'
     6412   01 027F4    22222222 A            DATA     X'22222222'
     6413   01 027F5    22222222 A            DATA     X'22222222'
     6414   01 027F6    00000000 A            DATA     0
     6415   01 027F7    00000000 A            DATA     0
     6416   01 027F8    2222222C A            DATA     X'2222222C'
     6417   01 027F9    2222222C A            DATA     X'2222222C'
     6418   01 027FA    00000000 A            DATA     0
     6419   01 027FB    00000000 A            DATA     0
     6420   01 027FC    00000000 A            DATA     0
     6421   01 027FD    00000000 A            DATA     0
     6422   01 027FE    00000000 A            DATA     0
     6423   01 027FF    00000000 A            DATA     0
     6424   01 02800    00000000 A            DATA     0
     6425   01 02801    00000000 A            DATA     0
     6426   01 02802    00000000 A            DATA     0
     6427   01 02803    00000000 A            DATA     0
     6428   01 02804    40000000 A            GEN,8,24 ' ',0
     6429   01 02805    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6430   01 02806    40000000 A            GEN,8,24 ' ',0
     6431   01 02807    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6432                            *                                   TRAP ON INVALID DIGIT. (D)
     6433   01 02808    200500B5 A   EBS05    MODULE
     6434   01 02809    63A0C000              EBS,10   BA(MEMORY)
     6435   01 0280A    0730114D              K        0,7,3,LOC+5
     6436   01 0280B    0730101B              K        0,7,3,EXP:TRAP+5
     6437   01 0280C    00000000 A            DATA     0
     6438   01 0280D    00000000 A            DATA     0
     6439   01 0280E    D0000000 A            DATA     X'D0000000'
     6440   01 0280F    D0000000 A            DATA     X'D0000000'
     6441   01 02810    33333333 A            DATA     X'33333333'
     6442   01 02811    33333333 A            DATA     X'33333333'
     6443   01 02812    20202020 A            DATA     X'20202020'
     6444   01 02813    20202020 A            DATA     X'20202020'
     6445   01 02814    33333333 A            DATA     X'33333333'
     6446   01 02815    33333333 A            DATA     X'33333333'
     6447   01 02816    00000000 A            DATA     0
     6448   01 02817    00000000 A            DATA     0
     6449   01 02818    3333333C A            DATA     X'3333333C'
     6450   01 02819    3333333C A            DATA     X'3333333C'
     6451   01 0281A    00000000 A            DATA     0
     6452   01 0281B    00000000 A            DATA     0
     6453   01 0281C    00000000 A            DATA     0
     6454   01 0281D    00000000 A            DATA     0
     6455   01 0281E    00000000 A            DATA     0
     6456   01 0281F    00000000 A            DATA     0
     6457   01 02820    00000000 A            DATA     0
     6458   01 02821    00000000 A            DATA     0
     6459   01 02822    00000000 A            DATA     0
     6460   01 02823    00000000 A            DATA     0
     6461   01 02824    40000000 A            GEN,8,24 ' ',0
     6462   01 02825    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6463   01 02826    40000000 A            GEN,8,24 ' ',0
     6464   01 02827    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6465                            *                                   TRAP ON INVALID DIGIT. (E)
     6466   01 02828    200600B6 A   EBS06    MODULE
     6467   01 02829    63A0C000              EBS,10   BA(MEMORY)
     6468   01 0282A    0730114D              K        0,7,3,LOC+5
     6469   01 0282B    0730101B              K        0,7,3,EXP:TRAP+5
     6470   01 0282C    00000000 A            DATA     0
     6471   01 0282D    00000000 A            DATA     0
     6472   01 0282E    E0000000 A            DATA     X'E0000000'
     6473   01 0282F    E0000000 A            DATA     X'E0000000'
     6474   01 02830    44444444 A            DATA     X'44444444'
     6475   01 02831    44444444 A            DATA     X'44444444'
     6476   01 02832    20202020 A            DATA     X'20202020'
     6477   01 02833    20202020 A            DATA     X'20202020'
     6478   01 02834    44444444 A            DATA     X'44444444'
     6479   01 02835    44444444 A            DATA     X'44444444'
     6480   01 02836    00000000 A            DATA     0
     6481   01 02837    00000000 A            DATA     0
     6482   01 02838    4444444C A            DATA     X'4444444C'
     6483   01 02839    4444444C A            DATA     X'4444444C'
     6484   01 0283A    00000000 A            DATA     0
     6485   01 0283B    00000000 A            DATA     0
     6486   01 0283C    00000000 A            DATA     0
     6487   01 0283D    00000000 A            DATA     0
     6488   01 0283E    00000000 A            DATA     0
     6489   01 0283F    00000000 A            DATA     0
     6490   01 02840    00000000 A            DATA     0
     6491   01 02841    00000000 A            DATA     0
     6492   01 02842    00000000 A            DATA     0
     6493   01 02843    00000000 A            DATA     0
     6494   01 02844    40000000 A            GEN,8,24 ' ',0
     6495   01 02845    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6496   01 02846    40000000 A            GEN,8,24 ' ',0
     6497   01 02847    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6498                            *                                   TRAP ON INVALID DIGIT. (F)
     6499   01 02848    200700B7 A   EBS07    MODULE
     6500   01 02849    63A0C000              EBS,10   BA(MEMORY)
     6501   01 0284A    0730114D              K        0,7,3,LOC+5
     6502   01 0284B    0730101B              K        0,7,3,EXP:TRAP+5
     6503   01 0284C    00000000 A            DATA     0
     6504   01 0284D    00000000 A            DATA     0
     6505   01 0284E    F0000000 A            DATA     X'F0000000'
     6506   01 0284F    F0000000 A            DATA     X'F0000000'
     6507   01 02850    55555555 A            DATA     X'55555555'
     6508   01 02851    55555555 A            DATA     X'55555555'
     6509   01 02852    20202020 A            DATA     X'20202020'
     6510   01 02853    20202020 A            DATA     X'20202020'
     6511   01 02854    55555555 A            DATA     X'55555555'
     6512   01 02855    55555555 A            DATA     X'55555555'
     6513   01 02856    00000000 A            DATA     0
     6514   01 02857    00000000 A            DATA     0
     6515   01 02858    5555555D A            DATA     X'5555555D'
     6516   01 02859    5555555D A            DATA     X'5555555D'
     6517   01 0285A    00000000 A            DATA     0
     6518   01 0285B    00000000 A            DATA     0
     6519   01 0285C    00000000 A            DATA     0
     6520   01 0285D    00000000 A            DATA     0
     6521   01 0285E    00000000 A            DATA     0
     6522   01 0285F    00000000 A            DATA     0
     6523   01 02860    00000000 A            DATA     0
     6524   01 02861    00000000 A            DATA     0
     6525   01 02862    00000000 A            DATA     0
     6526   01 02863    00000000 A            DATA     0
     6527   01 02864    40000000 A            GEN,8,24 ' ',0
     6528   01 02865    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6529   01 02866    40000000 A            GEN,8,24 ' ',0
     6530   01 02867    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6531                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     6532   01 02868    200800B8 A   EBS08    MODULE
     6533   01 02869    63A0C000              EBS,10   BA(MEMORY)
     6534   01 0286A    4730114D              K        4,7,3,LOC+5
     6535   01 0286B    4730101B              K        4,7,3,EXP:TRAP+5
     6536   01 0286C    00000000 A            DATA     0
     6537   01 0286D    00000000 A            DATA     0
     6538   01 0286E    0A000000 A            DATA     X'0A000000'
     6539   01 0286F    0A000000 A            DATA     X'0A000000'
     6540   01 02870    66666666 A            DATA     X'66666666'
     6541   01 02871    66666666 A            DATA     X'66666666'
     6542   01 02872    20202020 A            DATA     X'20202020'
     6543   01 02873    20202020 A            DATA     X'20202020'
     6544   01 02874    66666666 A            DATA     X'66666666'
     6545   01 02875    66666666 A            DATA     X'66666666'
     6546   01 02876    00000000 A            DATA     0
     6547   01 02877    00000000 A            DATA     0
     6548   01 02878    6666666D A            DATA     X'6666666D'
     6549   01 02879    6666666D A            DATA     X'6666666D'
     6550   01 0287A    00000000 A            DATA     0
     6551   01 0287B    00000000 A            DATA     0
     6552   01 0287C    00000000 A            DATA     0
     6553   01 0287D    00000000 A            DATA     0
     6554   01 0287E    00000000 A            DATA     0
     6555   01 0287F    00000000 A            DATA     0
     6556   01 02880    00000000 A            DATA     0
     6557   01 02881    00000000 A            DATA     0
     6558   01 02882    00000000 A            DATA     0
     6559   01 02883    00000000 A            DATA     0
     6560   01 02884    40000000 A            GEN,8,24 ' ',0
     6561   01 02885    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6562   01 02886    40000000 A            GEN,8,24 ' ',0
     6563   01 02887    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6564                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     6565   01 02888    200900B9 A   EBS09    MODULE
     6566   01 02889    63A0C000              EBS,10   BA(MEMORY)
     6567   01 0288A    4730114D              K        4,7,3,LOC+5
     6568   01 0288B    4730101B              K        4,7,3,EXP:TRAP+5
     6569   01 0288C    00000000 A            DATA     0
     6570   01 0288D    00000000 A            DATA     0
     6571   01 0288E    0B000000 A            DATA     X'0B000000'
     6572   01 0288F    0B000000 A            DATA     X'0B000000'
     6573   01 02890    77777777 A            DATA     X'77777777'
     6574   01 02891    77777777 A            DATA     X'77777777'
     6575   01 02892    20202020 A            DATA     X'20202020'
     6576   01 02893    20202020 A            DATA     X'20202020'
     6577   01 02894    77777777 A            DATA     X'77777777'
     6578   01 02895    77777777 A            DATA     X'77777777'
     6579   01 02896    00000000 A            DATA     0
     6580   01 02897    00000000 A            DATA     0
     6581   01 02898    7777777D A            DATA     X'7777777D'
     6582   01 02899    7777777D A            DATA     X'7777777D'
     6583   01 0289A    00000000 A            DATA     0
     6584   01 0289B    00000000 A            DATA     0
     6585   01 0289C    00000000 A            DATA     0
     6586   01 0289D    00000000 A            DATA     0
     6587   01 0289E    00000000 A            DATA     0
     6588   01 0289F    00000000 A            DATA     0
     6589   01 028A0    00000000 A            DATA     0
     6590   01 028A1    00000000 A            DATA     0
     6591   01 028A2    00000000 A            DATA     0
     6592   01 028A3    00000000 A            DATA     0
     6593   01 028A4    40000000 A            GEN,8,24 ' ',0
     6594   01 028A5    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6595   01 028A6    40000000 A            GEN,8,24 ' ',0
     6596   01 028A7    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6597                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     6598   01 028A8    200A00BA A   EBS10    MODULE
     6599   01 028A9    63A0C000              EBS,10   BA(MEMORY)
     6600   01 028AA    4730114D              K        4,7,3,LOC+5
     6601   01 028AB    4730101B              K        4,7,3,EXP:TRAP+5
     6602   01 028AC    00000000 A            DATA     0
     6603   01 028AD    00000000 A            DATA     0
     6604   01 028AE    0C000000 A            DATA     X'0C000000'
     6605   01 028AF    0C000000 A            DATA     X'0C000000'
     6606   01 028B0    88888888 A            DATA     X'88888888'
     6607   01 028B1    88888888 A            DATA     X'88888888'
     6608   01 028B2    20202020 A            DATA     X'20202020'
     6609   01 028B3    20202020 A            DATA     X'20202020'
     6610   01 028B4    88888888 A            DATA     X'88888888'
     6611   01 028B5    88888888 A            DATA     X'88888888'
     6612   01 028B6    00000000 A            DATA     0
     6613   01 028B7    00000000 A            DATA     0
     6614   01 028B8    8888888D A            DATA     X'8888888D'
     6615   01 028B9    8888888D A            DATA     X'8888888D'
     6616   01 028BA    00000000 A            DATA     0
     6617   01 028BB    00000000 A            DATA     0
     6618   01 028BC    00000000 A            DATA     0
     6619   01 028BD    00000000 A            DATA     0
     6620   01 028BE    00000000 A            DATA     0
     6621   01 028BF    00000000 A            DATA     0
     6622   01 028C0    00000000 A            DATA     0
     6623   01 028C1    00000000 A            DATA     0
     6624   01 028C2    00000000 A            DATA     0
     6625   01 028C3    00000000 A            DATA     0
     6626   01 028C4    40000000 A            GEN,8,24 ' ',0
     6627   01 028C5    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6628   01 028C6    40000000 A            GEN,8,24 ' ',0
     6629   01 028C7    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6630                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     6631   01 028C8    200B00BB A   EBS11    MODULE
     6632   01 028C9    63A0C000              EBS,10   BA(MEMORY)
     6633   01 028CA    4730114D              K        4,7,3,LOC+5
     6634   01 028CB    4730101B              K        4,7,3,EXP:TRAP+5
     6635   01 028CC    00000000 A            DATA     0
     6636   01 028CD    00000000 A            DATA     0
     6637   01 028CE    0D000000 A            DATA     X'0D000000'
     6638   01 028CF    0D000000 A            DATA     X'0D000000'
     6639   01 028D0    99999999 A            DATA     X'99999999'
     6640   01 028D1    99999999 A            DATA     X'99999999'
     6641   01 028D2    20202020 A            DATA     X'20202020'
     6642   01 028D3    20202020 A            DATA     X'20202020'
     6643   01 028D4    99999999 A            DATA     X'99999999'
     6644   01 028D5    99999999 A            DATA     X'99999999'
     6645   01 028D6    00000000 A            DATA     0
     6646   01 028D7    00000000 A            DATA     0
     6647   01 028D8    9999999D A            DATA     X'9999999D'
     6648   01 028D9    9999999D A            DATA     X'9999999D'
     6649   01 028DA    00000000 A            DATA     0
     6650   01 028DB    00000000 A            DATA     0
     6651   01 028DC    00000000 A            DATA     0
     6652   01 028DD    00000000 A            DATA     0
     6653   01 028DE    00000000 A            DATA     0
     6654   01 028DF    00000000 A            DATA     0
     6655   01 028E0    00000000 A            DATA     0
     6656   01 028E1    00000000 A            DATA     0
     6657   01 028E2    00000000 A            DATA     0
     6658   01 028E3    00000000 A            DATA     0
     6659   01 028E4    40000000 A            GEN,8,24 ' ',0
     6660   01 028E5    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6661   01 028E6    40000000 A            GEN,8,24 ' ',0
     6662   01 028E7    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6663                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     6664   01 028E8    200C00BC A   EBS12    MODULE
     6665   01 028E9    63A0C000              EBS,10   BA(MEMORY)
     6666   01 028EA    4730114D              K        4,7,3,LOC+5
     6667   01 028EB    4730101B              K        4,7,3,EXP:TRAP+5
     6668   01 028EC    00000000 A            DATA     0
     6669   01 028ED    00000000 A            DATA     0
     6670   01 028EE    0E000000 A            DATA     X'0E000000'
     6671   01 028EF    0E000000 A            DATA     X'0E000000'
     6672   01 028F0    11111111 A            DATA     X'11111111'
     6673   01 028F1    11111111 A            DATA     X'11111111'
     6674   01 028F2    20202020 A            DATA     X'20202020'
     6675   01 028F3    20202020 A            DATA     X'20202020'
     6676   01 028F4    11111111 A            DATA     X'11111111'
     6677   01 028F5    11111111 A            DATA     X'11111111'
     6678   01 028F6    00000000 A            DATA     0
     6679   01 028F7    00000000 A            DATA     0
     6680   01 028F8    1111111D A            DATA     X'1111111D'
     6681   01 028F9    1111111D A            DATA     X'1111111D'
     6682   01 028FA    00000000 A            DATA     0
     6683   01 028FB    00000000 A            DATA     0
     6684   01 028FC    00000000 A            DATA     0
     6685   01 028FD    00000000 A            DATA     0
     6686   01 028FE    00000000 A            DATA     0
     6687   01 028FF    00000000 A            DATA     0
     6688   01 02900    00000000 A            DATA     0
     6689   01 02901    00000000 A            DATA     0
     6690   01 02902    00000000 A            DATA     0
     6691   01 02903    00000000 A            DATA     0
     6692   01 02904    40000000 A            GEN,8,24 ' ',0
     6693   01 02905    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6694   01 02906    40000000 A            GEN,8,24 ' ',0
     6695   01 02907    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6696                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     6697   01 02908    200D00BD A   EBS13    MODULE
     6698   01 02909    63A0C000              EBS,10   BA(MEMORY)
     6699   01 0290A    4730114D              K        4,7,3,LOC+5
     6700   01 0290B    4730101B              K        4,7,3,EXP:TRAP+5
     6701   01 0290C    00000000 A            DATA     0
     6702   01 0290D    00000000 A            DATA     0
     6703   01 0290E    0F000000 A            DATA     X'0F000000'
     6704   01 0290F    0F000000 A            DATA     X'0F000000'
     6705   01 02910    22222222 A            DATA     X'22222222'
     6706   01 02911    22222222 A            DATA     X'22222222'
     6707   01 02912    20202020 A            DATA     X'20202020'
     6708   01 02913    20202020 A            DATA     X'20202020'
     6709   01 02914    22222222 A            DATA     X'22222222'
     6710   01 02915    22222222 A            DATA     X'22222222'
     6711   01 02916    00000000 A            DATA     0
     6712   01 02917    00000000 A            DATA     0
     6713   01 02918    2222222D A            DATA     X'2222222D'
     6714   01 02919    2222222D A            DATA     X'2222222D'
     6715   01 0291A    00000000 A            DATA     0
     6716   01 0291B    00000000 A            DATA     0
     6717   01 0291C    00000000 A            DATA     0
     6718   01 0291D    00000000 A            DATA     0
     6719   01 0291E    00000000 A            DATA     0
     6720   01 0291F    00000000 A            DATA     0
     6721   01 02920    00000000 A            DATA     0
     6722   01 02921    00000000 A            DATA     0
     6723   01 02922    00000000 A            DATA     0
     6724   01 02923    00000000 A            DATA     0
     6725   01 02924    40000000 A            GEN,8,24 ' ',0
     6726   01 02925    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6727   01 02926    40000000 A            GEN,8,24 ' ',0
     6728   01 02927    0100C004              GEN,8,24 1,BA(MEMORY)+4
     6729                            *                                   VALID POSITIVE ZERO, 1 BYTE.
     6730   01 02928    200E00BE A   EBS14    MODULE
     6731   01 02929    63A0C010              EBS,10   BA(MEMORY+4)
     6732   01 0292A    07301148              K        0,7,3,LOC
     6733   01 0292B    8730114A              K        8,7,3,LOC+2
     6734   01 0292C    00000000 A            DATA     0
     6735   01 0292D    00000000 A            DATA     0
     6736   01 0292E    00000000 A            DATA     0
     6737   01 0292F    00000000 A            DATA     0
     6738   01 02930    99999999 A            DATA     X'99999999'
     6739   01 02931    99999999 A            DATA     X'99999999'
     6740   01 02932    00000000 A            DATA     0
     6741   01 02933    00000000 A            DATA     0
     6742   01 02934    99999999 A            DATA     X'99999999'
     6743   01 02935    99999999 A            DATA     X'99999999'
     6744   01 02936    00000000 A            DATA     0
     6745   01 02937    00000000 A            DATA     0
     6746   01 02938    9999999C A            DATA     X'9999999C'
     6747   01 02939    9999999C A            DATA     X'9999999C'
     6748   01 0293A    00000000 A            DATA     0
     6749   01 0293B    00000000 A            DATA     0
     6750   01 0293C    0C000000 A            DATA     X'0C'**24
     6751   01 0293D    0C000000 A            DATA     X'0C'**24
     6752   01 0293E    20000000 A            DATA     X'20'**24
     6753   01 0293F    40000000 A            DATA     X'40000000'
     6754         00000004                    DO       4
     6755   01 02940    00000000 A            DATA     0
     6756                                     FIN
            01 02941    00000000 A
            01 02942    00000000 A
            01 02943    00000000 A
     6757   01 02944    40000000 A            GEN,8,24 ' ',0
     6758   01 02945    0100C014              GEN,8,24 1,BA(MEMORY+5)
     6759   01 02946    40000001 A            GEN,8,24 ' ',1
     6760   01 02947    0000C015              GEN,8,24 0,BA(MEMORY+5)+1
     6761                            *                                   VALID SIGN OF X'A'.
     6762   01 02948    200F00BF A   EBS15    MODULE
     6763   01 02949    63A0C010              EBS,10   BA(MEMORY+4)
     6764   01 0294A    07301148              K        0,7,3,LOC
     6765   01 0294B    8730114A              K        8,7,3,LOC+2
     6766   01 0294C    00000000 A            DATA     0
     6767   01 0294D    00000000 A            DATA     0
     6768   01 0294E    00000000 A            DATA     0
     6769   01 0294F    00000000 A            DATA     0
     6770   01 02950    11121314 A            DATA     X'11121314'
     6771   01 02951    11121314 A            DATA     X'11121314'
     6772   01 02952    00000000 A            DATA     0
     6773   01 02953    00000000 A            DATA     0
     6774   01 02954    15161718 A            DATA     X'15161718'
     6775   01 02955    15161718 A            DATA     X'15161718'
     6776   01 02956    00000000 A            DATA     0
     6777   01 02957    00000000 A            DATA     0
     6778   01 02958    1992939D A            DATA     X'1992939D'
     6779   01 02959    1992939D A            DATA     X'1992939D'
     6780   01 0295A    0000000C A            DATA     12
     6781   01 0295B    0000000C A            DATA     12
     6782   01 0295C    0A000000 A            GEN,4,4,24  0,10,0
     6783   01 0295D    0A000000 A            GEN,4,4,24  0,10,0
     6784   01 0295E    20202020 A            DATA     X'20202020'
     6785   01 0295F    40202020 A            DATA     X'40202020'
     6786   01 02960    00000000 A            DATA     0
     6787   01 02961    00000000 A            DATA     0
     6788   01 02962    00000000 A            DATA     0
     6789   01 02963    00000000 A            DATA     0
     6790   01 02964    40000000 A            GEN,8,24 ' ',0
     6791   01 02965    0100C014              GEN,8,24 1,BA(MEMORY+5)
     6792   01 02966    40000001 A            GEN,8,24 ' ',1
     6793   01 02967    0000C015              GEN,8,24 0,BA(MEMORY+5)+1
     6794                            *                                   VALID SIGN OF X'B'.
     6795   01 02968    201000C0 A   EBS16    MODULE
     6796   01 02969    63A0C010              EBS,10   BA(MEMORY+4)
     6797   01 0296A    07301148              K        0,7,3,LOC
     6798   01 0296B    9730114A              K        9,7,3,LOC+2
     6799   01 0296C    00000000 A            DATA     0
     6800   01 0296D    00000000 A            DATA     0
     6801   01 0296E    00000000 A            DATA     0
     6802   01 0296F    00000000 A            DATA     0
     6803   01 02970    55555553 A            DATA     X'55555553'
     6804   01 02971    55555553 A            DATA     X'55555553'
     6805   01 02972    00000000 A            DATA     0
     6806   01 02973    00000000 A            DATA     0
     6807   01 02974    66666664 A            DATA     X'66666664'
     6808   01 02975    66666664 A            DATA     X'66666664'
     6809   01 02976    00000000 A            DATA     0
     6810   01 02977    00000000 A            DATA     0
     6811   01 02978    8888888C A            DATA     X'8888888C'
     6812   01 02979    8888888C A            DATA     X'8888888C'
     6813   01 0297A    0000000C A            DATA     12
     6814   01 0297B    0000000C A            DATA     12
     6815   01 0297C    0B000000 A            GEN,4,4,24  0,11,0
     6816   01 0297D    0B000000 A            GEN,4,4,24  0,11,0
     6817   01 0297E    20202020 A            DATA     X'20202020'
     6818   01 0297F    40202020 A            DATA     X'40202020'
     6819   01 02980    00000000 A            DATA     0
     6820   01 02981    00000000 A            DATA     0
     6821   01 02982    00000000 A            DATA     0
     6822   01 02983    00000000 A            DATA     0
     6823   01 02984    40000000 A            GEN,8,24 ' ',0
     6824   01 02985    0100C014              GEN,8,24 1,BA(MEMORY+5)
     6825   01 02986    40000001 A            GEN,8,24 ' ',1
     6826   01 02987    0000C015              GEN,8,24 0,BA(MEMORY+5)+1
     6827                            *                                   VALID SIGN OF X'C'.
     6828   01 02988    201100C1 A   EBS17    MODULE
     6829   01 02989    63A0C010              EBS,10   BA(MEMORY+4)
     6830   01 0298A    07301148              K        0,7,3,LOC
     6831   01 0298B    8730114A              K        8,7,3,LOC+2
     6832   01 0298C    00000000 A            DATA     0
     6833   01 0298D    00000000 A            DATA     0
     6834   01 0298E    00000000 A            DATA     0
     6835   01 0298F    00000000 A            DATA     0
     6836   01 02990    81828384 A            DATA     X'81828384'
     6837   01 02991    81828384 A            DATA     X'81828384'
     6838   01 02992    00000000 A            DATA     0
     6839   01 02993    00000000 A            DATA     0
     6840   01 02994    91929394 A            DATA     X'91929394'
     6841   01 02995    91929394 A            DATA     X'91929394'
     6842   01 02996    00000000 A            DATA     0
     6843   01 02997    00000000 A            DATA     0
     6844   01 02998    7172737D A            DATA     X'7172737D'
     6845   01 02999    7172737D A            DATA     X'7172737D'
     6846   01 0299A    0000000C A            DATA     12
     6847   01 0299B    0000000C A            DATA     12
     6848   01 0299C    0C000000 A            GEN,4,4,24  0,12,0
     6849   01 0299D    0C000000 A            GEN,4,4,24  0,12,0
     6850   01 0299E    20202020 A            DATA     X'20202020'
     6851   01 0299F    40202020 A            DATA     X'40202020'
     6852   01 029A0    00000000 A            DATA     0
     6853   01 029A1    00000000 A            DATA     0
     6854   01 029A2    00000000 A            DATA     0
     6855   01 029A3    00000000 A            DATA     0
     6856   01 029A4    40000000 A            GEN,8,24 ' ',0
     6857   01 029A5    0100C014              GEN,8,24 1,BA(MEMORY+5)
     6858   01 029A6    40000001 A            GEN,8,24 ' ',1
     6859   01 029A7    0000C015              GEN,8,24 0,BA(MEMORY+5)+1
     6860                            *                                   VALID SIGN OF X'D'.
     6861   01 029A8    201200C2 A   EBS18    MODULE
     6862   01 029A9    63A0C010              EBS,10   BA(MEMORY+4)
     6863   01 029AA    07301148              K        0,7,3,LOC
     6864   01 029AB    9730114A              K        9,7,3,LOC+2
     6865   01 029AC    00000000 A            DATA     0
     6866   01 029AD    00000000 A            DATA     0
     6867   01 029AE    00000000 A            DATA     0
     6868   01 029AF    00000000 A            DATA     0
     6869   01 029B0    23232323 A            DATA     X'23232323'
     6870   01 029B1    23232323 A            DATA     X'23232323'
     6871   01 029B2    00000000 A            DATA     0
     6872   01 029B3    00000000 A            DATA     0
     6873   01 029B4    94929395 A            DATA     X'94929395'
     6874   01 029B5    94929395 A            DATA     X'94929395'
     6875   01 029B6    00000000 A            DATA     0
     6876   01 029B7    00000000 A            DATA     0
     6877   01 029B8    1231231C A            DATA     X'1231231C'
     6878   01 029B9    1231231C A            DATA     X'1231231C'
     6879   01 029BA    0000000C A            DATA     12
     6880   01 029BB    0000000C A            DATA     12
     6881   01 029BC    0D000000 A            GEN,4,4,24  0,13,0
     6882   01 029BD    0D000000 A            GEN,4,4,24  0,13,0
     6883   01 029BE    20202020 A            DATA     X'20202020'
     6884   01 029BF    40202020 A            DATA     X'40202020'
     6885   01 029C0    00000000 A            DATA     0
     6886   01 029C1    00000000 A            DATA     0
     6887   01 029C2    00000000 A            DATA     0
     6888   01 029C3    00000000 A            DATA     0
     6889   01 029C4    40000000 A            GEN,8,24 ' ',0
     6890   01 029C5    0100C014              GEN,8,24 1,BA(MEMORY+5)
     6891   01 029C6    40000001 A            GEN,8,24 ' ',1
     6892   01 029C7    0000C015              GEN,8,24 0,BA(MEMORY+5)+1
     6893                            *                                   VALID SIGN OF X'E'.
     6894   01 029C8    201300C3 A   EBS19    MODULE
     6895   01 029C9    63A0C010              EBS,10   BA(MEMORY+4)
     6896   01 029CA    07301148              K        0,7,3,LOC
     6897   01 029CB    8730114A              K        8,7,3,LOC+2
     6898   01 029CC    00000000 A            DATA     0
     6899   01 029CD    00000000 A            DATA     0
     6900   01 029CE    00000000 A            DATA     0
     6901   01 029CF    00000000 A            DATA     0
     6902   01 029D0    01020356 A            DATA     X'01020356'
     6903   01 029D1    01020356 A            DATA     X'01020356'
     6904   01 029D2    00000000 A            DATA     0
     6905   01 029D3    00000000 A            DATA     0
     6906   01 029D4    73737372 A            DATA     X'73737372'
     6907   01 029D5    73737372 A            DATA     X'73737372'
     6908   01 029D6    00000000 A            DATA     0
     6909   01 029D7    00000000 A            DATA     0
     6910   01 029D8    9696968D A            DATA     X'9696968D'
     6911   01 029D9    9696968D A            DATA     X'9696968D'
     6912   01 029DA    0000000C A            DATA     12
     6913   01 029DB    0000000C A            DATA     12
     6914   01 029DC    0E000000 A            GEN,4,4,24  0,14,0
     6915   01 029DD    0E000000 A            GEN,4,4,24  0,14,0
     6916   01 029DE    20202020 A            DATA     X'20202020'
     6917   01 029DF    40202020 A            DATA     X'40202020'
     6918   01 029E0    00000000 A            DATA     0
     6919   01 029E1    00000000 A            DATA     0
     6920   01 029E2    00000000 A            DATA     0
     6921   01 029E3    00000000 A            DATA     0
     6922   01 029E4    40000000 A            GEN,8,24 ' ',0
     6923   01 029E5    0100C014              GEN,8,24 1,BA(MEMORY+5)
     6924   01 029E6    40000001 A            GEN,8,24 ' ',1
     6925   01 029E7    0000C015              GEN,8,24 0,BA(MEMORY+5)+1
     6926                            *                                   VALID SIGN OF X'F'.
     6927   01 029E8    201400C4 A   EBS20    MODULE
     6928   01 029E9    63A0C010              EBS,10   BA(MEMORY+4)
     6929   01 029EA    07301148              K        0,7,3,LOC
     6930   01 029EB    8730114A              K        8,7,3,LOC+2
     6931   01 029EC    00000000 A            DATA     0
     6932   01 029ED    00000000 A            DATA     0
     6933   01 029EE    00000000 A            DATA     0
     6934   01 029EF    00000000 A            DATA     0
     6935   01 029F0    53535353 A            DATA     X'53535353'
     6936   01 029F1    53535353 A            DATA     X'53535353'
     6937   01 029F2    00000000 A            DATA     0
     6938   01 029F3    00000000 A            DATA     0
     6939   01 029F4    64646464 A            DATA     X'64646464'
     6940   01 029F5    64646464 A            DATA     X'64646464'
     6941   01 029F6    00000000 A            DATA     0
     6942   01 029F7    00000000 A            DATA     0
     6943   01 029F8    8675423C A            DATA     X'8675423C'
     6944   01 029F9    8675423C A            DATA     X'8675423C'
     6945   01 029FA    0000000C A            DATA     12
     6946   01 029FB    0000000C A            DATA     12
     6947   01 029FC    0F000000 A            GEN,4,4,24  0,15,0
     6948   01 029FD    0F000000 A            GEN,4,4,24  0,15,0
     6949   01 029FE    20202020 A            DATA     X'20202020'
     6950   01 029FF    40202020 A            DATA     X'40202020'
     6951   01 02A00    00000000 A            DATA     0
     6952   01 02A01    00000000 A            DATA     0
     6953   01 02A02    00000000 A            DATA     0
     6954   01 02A03    00000000 A            DATA     0
     6955   01 02A04    40000000 A            GEN,8,24 ' ',0
     6956   01 02A05    0100C014              GEN,8,24 1,BA(MEMORY+5)
     6957   01 02A06    40000001 A            GEN,8,24 ' ',1
     6958   01 02A07    0000C015              GEN,8,24 0,BA(MEMORY+5)+1
     6959   01 02A08    201500C5 A   EBS21    MODULE
     6960                            *                                   TEST START ON RIGHT-MOST DIGIT.
     6961   01 02A09    63A0C010              EBS,10   BA(MEMORY+4)
     6962   01 02A0A    47301148              K        4,7,3,LOC
     6963   01 02A0B    0730114A              K        0,7,3,LOC+2
     6964   01 02A0C    00000000 A            DATA     0
     6965   01 02A0D    00000000 A            DATA     0
     6966   01 02A0E    00000000 A            DATA     0
     6967   01 02A0F    00000000 A            DATA     0
     6968   01 02A10    31243459 A            DATA     X'31243459'
     6969   01 02A11    31243459 A            DATA     X'31243459'
     6970   01 02A12    00000000 A            DATA     0
     6971   01 02A13    00000000 A            DATA     0
     6972   01 02A14    19911991 A            DATA     X'19911991'
     6973   01 02A15    19911991 A            DATA     X'19911991'
     6974   01 02A16    00000000 A            DATA     0
     6975   01 02A17    00000000 A            DATA     0
     6976   01 02A18    9119911C A            DATA     X'9119911C'
     6977   01 02A19    9119911C A            DATA     X'9119911C'
     6978   01 02A1A    00000000 A            DATA     0
     6979   01 02A1B    00000000 A            DATA     0
     6980   01 02A1C    00C00000 A            DATA     X'00C00000'
     6981   01 02A1D    00C00000 A            DATA     X'00C00000'
     6982   01 02A1E    20202020 A            DATA     X'20202020'
     6983   01 02A1F    40202020 A            DATA     X'40202020'
     6984   01 02A20    00000000 A            DATA     0
     6985   01 02A21    00000000 A            DATA     0
     6986   01 02A22    00000000 A            DATA     0
     6987   01 02A23    00000000 A            DATA     0
     6988   01 02A24    40000000 A            GEN,8,24 ' ',0
     6989   01 02A25    0100C014              GEN,8,24 1,BA(MEMORY)+20
     6990   01 02A26    40000001 A            GEN,8,24 ' ',1
     6991   01 02A27    0000C015              GEN,8,24 0,BA(MEMORY)+21
     6992   01 02A28    201600C6 A   EBS22    MODULE
     6993                            *                                   TEST END ON BYTE ONE.
     6994   01 02A29    63A0C00C              EBS,10   BA(MEMORY+3)
     6995   01 02A2A    07301148              K        0,7,3,LOC
     6996   01 02A2B    8730114A              K        8,7,3,LOC+2
     6997         0000000C                    DO       12
     6998   01 02A2C    00000000 A            DATA     0
     6999                                     FIN
            01 02A2D    00000000 A
            01 02A2E    00000000 A
            01 02A2F    00000000 A
            01 02A30    00000000 A
            01 02A31    00000000 A
            01 02A32    00000000 A
            01 02A33    00000000 A
            01 02A34    00000000 A
            01 02A35    00000000 A
            01 02A36    00000000 A
            01 02A37    00000000 A
     7000   01 02A38    0000000C A            DATA     12,12
            01 02A39    0000000C A
     7001   01 02A3A    00000000 A            DATA     0
     7002   01 02A3B    00000000 A            DATA     0
     7003   01 02A3C    0C000000 A            DATA     X'0C000000'
     7004   01 02A3D    0C000000 A            DATA     X'0C000000'
     7005   01 02A3E    20202020 A            DATA     X'20202020'
     7006   01 02A3F    40404040 A            DATA     '    '
     7007   01 02A40    20202020 A            DATA     X'20202020'
     7008   01 02A41    40404040 A            DATA     '    '
     7009   01 02A42    20202020 A            DATA     X'20202020'
     7010   01 02A43    40202020 A            DATA     X'40202020'
     7011   01 02A44    40000000 A            GEN,8,24 ' ',0
     7012   01 02A45    0900C014              GEN,8,24 9,BA(MEMORY+5)
     7013   01 02A46    40000005 A            GEN,8,24 ' ',5
     7014   01 02A47    0000C01D              GEN,8,24 0,BA(MEMORY+5)+9
     7015   01 02A48    211700C7 A   EBS23    MODULE
     7016   01 02A49    63A0C00C              EBS,10   BA(MEMORY+3)      TEST NO CHANGE OF DESTINATION ON
     7017                            *                                   NEGATIVE SIGN OF X'B'.
     7018   01 02A4A    07301148              K        0,7,3,LOC
     7019   01 02A4B    B730114A              K        11,7,3,LOC+2
     7020   01 02A4C    00000000 A            DATA     0
     7021   01 02A4D    00000000 A            DATA     0
     7022   01 02A4E    00000000 A            DATA     0
     7023   01 02A4F    00000000 A            DATA     0
     7024   01 02A50    87654321 A            DATA     X'87654321'       DATA FOR COMPOUND DECIMAL.
     7025   01 02A51    87654321 A            DATA     X'87654321'       *
     7026   01 02A52    00000000 A            DATA     0
     7027   01 02A53    00000000 A            DATA     0
     7028   01 02A54    09192939 A            DATA     X'09192939'       *
     7029   01 02A55    09192939 A            DATA     X'09192939'       *
     7030   01 02A56    00000000 A            DATA     0
     7031   01 02A57    00000000 A            DATA     0
     7032   01 02A58    8999182C A            DATA     X'8999182C'       *
     7033   01 02A59    8999182C A            DATA     X'8999182C'       *
     7034   01 02A5A    0000100B A            DATA     X'0000100B'       SOURCE IN. (MEMORY+3)
     7035   01 02A5B    0000100B A            DATA     X'0000100B'       SOURCE OUT.
     7036   01 02A5C    20202020 A            DATA     X'20202020'       DESINATION IN. (WORD 1, MEMORY+4)
     7037   01 02A5D    40404040 A            DATA     '    '            DESTINATION OUT.
     7038   01 02A5E    20202040 A            DATA     X'20202040'       DESTINATION IN. (WORD 2, MEMORY+5)
     7039   01 02A5F    F1F0F040 A            DATA     X'F1F0F040'       DESTINATION OUT.
     7040   01 02A60    40C3D940 A            DATA     X'40C3D940'       DESTINATION IN. (WORD 3, MEMORY+6)
     7041   01 02A61    40C3D940 A            DATA     X'40C3D940'       DESTINATION OUT.
     7042   01 02A62    00000000 A            DATA     0
     7043   01 02A63    00000000 A            DATA     0
     7044   01 02A64    40000000 A            GEN,8,24 ' ',0
     7045   01 02A65    0800C010              GEN,8,24 8,BA(MEMORY+4)
     7046   01 02A66    40000004 A            GEN,8,24 ' ',4
     7047   01 02A67    0000C018              GEN,8,24 0,BA(MEMORY+4)+8
     7048   01 02A68    0300C014              GEN,8,24 3,BA(MEMORY+5)
     7049   01 02A69    211800C8 A   EBS24    MODULE
     7050   01 02A6A    63A0C00C              EBS,10   BA(MEMORY+3)      TEST NO CHANGE OF DESTINATION ON
     7051                            *                                   NEGATIVE SIGN OF X'D'.
     7052   01 02A6B    07301148              K        0,7,3,LOC
     7053   01 02A6C    B730114A              K        11,7,3,LOC+2
     7054   01 02A6D    00000000 A            DATA     0
     7055   01 02A6E    00000000 A            DATA     0
     7056   01 02A6F    00000000 A            DATA     0
     7057   01 02A70    00000000 A            DATA     0
     7058   01 02A71    11111111 A            DATA     X'11111111'
     7059   01 02A72    11111111 A            DATA     X'11111111'
     7060   01 02A73    00000000 A            DATA     0
     7061   01 02A74    00000000 A            DATA     0
     7062   01 02A75    22222222 A            DATA     X'22222222'
     7063   01 02A76    22222222 A            DATA     X'22222222'
     7064   01 02A77    00000000 A            DATA     0
     7065   01 02A78    00000000 A            DATA     0
     7066   01 02A79    3333333D A            DATA     X'3333333D'
     7067   01 02A7A    3333333D A            DATA     X'3333333D'
     7068   01 02A7B    0000100D A            DATA     X'0000100D'
     7069   01 02A7C    0000100D A            DATA     X'0000100D'
     7070   01 02A7D    20202020 A            DATA     X'20202020'
     7071   01 02A7E    40404040 A            DATA     '    '
     7072   01 02A7F    20202040 A            DATA     X'20202040'
     7073   01 02A80    F1F0F040 A            DATA     '100 '
     7074   01 02A81    40C3D940 A            DATA     ' CR '
     7075   01 02A82    40C3D940 A            DATA     ' CR '
     7076   01 02A83    00000000 A            DATA     0
     7077   01 02A84    00000000 A            DATA     0
     7078   01 02A85    40000000 A            GEN,8,24 ' ',0
     7079   01 02A86    0C00C010              GEN,8,24 12,BA(MEMORY)+16
     7080   01 02A87    40000004 A            GEN,8,24 ' ',4
     7081   01 02A88    0000C01C              GEN,8,24 0,BA(MEMORY)+28
     7082   01 02A89    0700C014              GEN,8,24 7,BA(MEMORY+5)
     7083                            *                                   TEST VALID SUMMING OF DISPLACEMENT.
     7084   01 02A8A    201900C9 A   EBS25    MODULE
     7085   01 02A8B    63A0BFFD              EBS,10   BA(MEMORY)-3
     7086   01 02A8C    07301148              K        0,7,3,LOC
     7087   01 02A8D    8730114A              K        8,7,3,LOC+2
     7088   01 02A8E    00000000 A            DATA     0
     7089   01 02A8F    00000000 A            DATA     0
     7090   01 02A90    0C000000 A            DATA     X'0C000000'
     7091   01 02A91    0C000000 A            DATA     X'0C000000'
     7092   01 02A92    33333333 A            DATA     X'33333333'
     7093   01 02A93    33333333 A            DATA     X'33333333'
     7094   01 02A94    20202020 A            DATA     X'20202020'
     7095   01 02A95    40202020 A            DATA     X'40202020'
     7096   01 02A96    33333333 A            DATA     X'33333333'
     7097   01 02A97    33333333 A            DATA     X'33333333'
     7098   01 02A98    00000000 A            DATA     0
     7099   01 02A99    00000000 A            DATA     0
     7100   01 02A9A    3333333D A            DATA     X'3333333D'
     7101   01 02A9B    3333333D A            DATA     X'3333333D'
     7102   01 02A9C    00000000 A            DATA     0
     7103   01 02A9D    00000000 A            DATA     0
     7104   01 02A9E    00000000 A            DATA     0
     7105   01 02A9F    00000000 A            DATA     0
     7106   01 02AA0    00000000 A            DATA     0
     7107   01 02AA1    00000000 A            DATA     0
     7108   01 02AA2    00000000 A            DATA     0
     7109   01 02AA3    00000000 A            DATA     0
     7110   01 02AA4    00000000 A            DATA     0
     7111   01 02AA5    00000000 A            DATA     0
     7112   01 02AA6    40000003 A            GEN,8,24 ' ',3
     7113   01 02AA7    0100C004              GEN,8,24 1,BA(MEMORY)+4
     7114   01 02AA8    40000004 A            GEN,8,24 ' ',4
     7115   01 02AA9    0000C005              GEN,8,24 0,BA(MEMORY)+5
     7116                            *                                   TEST VALID SUMMING OF DISPLACEMENT.
     7117   01 02AAA    201A00CA A   EBS26    MODULE
     7118   01 02AAB    63A00003 A            EBS,10   3
     7119   01 02AAC    07301148              K        0,7,3,LOC
     7120   01 02AAD    8730114A              K        8,7,3,LOC+2
     7121   01 02AAE    00000000 A            DATA     0
     7122   01 02AAF    00000000 A            DATA     0
     7123   01 02AB0    0C000000 A            DATA     X'0C000000'
     7124   01 02AB1    0C000000 A            DATA     X'0C000000'
     7125   01 02AB2    44444444 A            DATA     X'44444444'
     7126   01 02AB3    44444444 A            DATA     X'44444444'
     7127   01 02AB4    20202020 A            DATA     X'20202020'
     7128   01 02AB5    40202020 A            DATA     X'40202020'
     7129   01 02AB6    44444444 A            DATA     X'44444444'
     7130   01 02AB7    44444444 A            DATA     X'44444444'
     7131   01 02AB8    00000000 A            DATA     0
     7132   01 02AB9    00000000 A            DATA     0
     7133   01 02ABA    4444444D A            DATA     X'4444444D'
     7134   01 02ABB    4444444D A            DATA     X'4444444D'
     7135   01 02ABC    00000000 A            DATA     0
     7136   01 02ABD    00000000 A            DATA     0
     7137   01 02ABE    00000000 A            DATA     0
     7138   01 02ABF    00000000 A            DATA     0
     7139   01 02AC0    00000000 A            DATA     0
     7140   01 02AC1    00000000 A            DATA     0
     7141   01 02AC2    00000000 A            DATA     0
     7142   01 02AC3    00000000 A            DATA     0
     7143   01 02AC4    00000000 A            DATA     0
     7144   01 02AC5    00000000 A            DATA     0
     7145   01 02AC6    4000BFFD              GEN,8,24 ' ',BA(MEMORY)-3
     7146   01 02AC7    0100C004              GEN,8,24 1,BA(MEMORY)+4
     7147   01 02AC8    4000BFFE              GEN,8,24 ' ',BA(MEMORY)-2
     7148   01 02AC9    0000C005              GEN,8,24 0,BA(MEMORY)+5
     7149                            *                                   IMMEDIATE SIGNIFICANCE START.(X'23')
     7150   01 02ACA    211B00CB A   EBS27    MODULE
     7151   01 02ACB    63A0C000              EBS,10   BA(MEMORY)
     7152   01 02ACC    07301148              K        0,7,3,LOC
     7153   01 02ACD    8730114A              K        8,7,3,LOC+2
     7154   01 02ACE    00000000 A            DATA     0
     7155   01 02ACF    00000000 A            DATA     0
     7156   01 02AD0    0C000000 A            DATA     X'0C000000'
     7157   01 02AD1    0C000000 A            DATA     X'0C000000'
     7158   01 02AD2    55555555 A            DATA     X'55555555'
     7159   01 02AD3    55555555 A            DATA     X'55555555'
     7160   01 02AD4    23202020 A            DATA     X'23202020'
     7161   01 02AD5    F0202020 A            DATA     X'F0202020'
     7162   01 02AD6    55555555 A            DATA     X'55555555'
     7163   01 02AD7    55555555 A            DATA     X'55555555'
     7164   01 02AD8    00000000 A            DATA     0
     7165   01 02AD9    00000000 A            DATA     0
     7166   01 02ADA    5555555C A            DATA     X'5555555C'
     7167   01 02ADB    5555555C A            DATA     X'5555555C'
     7168   01 02ADC    00000000 A            DATA     0
     7169   01 02ADD    00000000 A            DATA     0
     7170   01 02ADE    00000000 A            DATA     0
     7171   01 02ADF    00000000 A            DATA     0
     7172   01 02AE0    00000000 A            DATA     0
     7173   01 02AE1    00000000 A            DATA     0
     7174   01 02AE2    00000000 A            DATA     0
     7175   01 02AE3    00000000 A            DATA     0
     7176   01 02AE4    00000000 A            DATA     0
     7177   01 02AE5    00000000 A            DATA     0
     7178   01 02AE6    40000000 A            GEN,8,24 ' ',0
     7179   01 02AE7    0100C004              GEN,8,24 1,BA(MEMORY)+4
     7180   01 02AE8    40000001 A            GEN,8,24 ' ',1
     7181   01 02AE9    0000C005              GEN,8,24 0,BA(MEMORY)+5
     7182   01 02AEA    0000C004              DATA     BA(MEMORY)+4
     7183                            *                                   SIGNIFICANCE START. (X'21')
     7184   01 02AEB    211C00CC A   EBS28    MODULE
     7185   01 02AEC    63A0C000              EBS,10   BA(MEMORY)
     7186   01 02AED    07301148              K        0,7,3,LOC
     7187   01 02AEE    8730114A              K        8,7,3,LOC+2
     7188   01 02AEF    00000000 A            DATA     0
     7189   01 02AF0    00000000 A            DATA     0
     7190   01 02AF1    0C000000 A            DATA     X'0C000000'
     7191   01 02AF2    0C000000 A            DATA     X'0C000000'
     7192   01 02AF3    66666666 A            DATA     X'66666666'
     7193   01 02AF4    66666666 A            DATA     X'66666666'
     7194   01 02AF5    21202020 A            DATA     X'21202020'
     7195   01 02AF6    5C202020 A            DATA     X'5C202020'
     7196   01 02AF7    66666666 A            DATA     X'66666666'
     7197   01 02AF8    66666666 A            DATA     X'66666666'
     7198   01 02AF9    00000000 A            DATA     0
     7199   01 02AFA    00000000 A            DATA     0
     7200   01 02AFB    6666666C A            DATA     X'6666666C'
     7201   01 02AFC    6666666C A            DATA     X'6666666C'
     7202   01 02AFD    00000000 A            DATA     0
     7203   01 02AFE    00000000 A            DATA     0
     7204   01 02AFF    00000000 A            DATA     0
     7205   01 02B00    00000000 A            DATA     0
     7206   01 02B01    00000000 A            DATA     0
     7207   01 02B02    00000000 A            DATA     0
     7208   01 02B03    00000000 A            DATA     0
     7209   01 02B04    00000000 A            DATA     0
     7210   01 02B05    00000000 A            DATA     0
     7211   01 02B06    00000000 A            DATA     0
     7212   01 02B07    5C000000 A            GEN,8,24 '*',0
     7213   01 02B08    0100C004              GEN,8,24 1,BA(MEMORY)+4
     7214   01 02B09    5C000001 A            GEN,8,24 '*',1
     7215   01 02B0A    0000C005              GEN,8,24 0,BA(MEMORY)+5
     7216   01 02B0B    0000C005              DATA     BA(MEMORY)+5
     7217                            *                                   FIELD SEPARATOR. (X'22')
     7218   01 02B0C    211D00CD A   EBS29    MODULE
     7219   01 02B0D    63A0C000              EBS,10   BA(MEMORY)
     7220   01 02B0E    07301148              K        0,7,3,LOC
     7221   01 02B0F    A730114A              K        10,7,3,LOC+2
     7222   01 02B10    00000000 A            DATA     0
     7223   01 02B11    00000000 A            DATA     0
     7224   01 02B12    2D3C0000 A            DATA     X'2D3C0000'
     7225   01 02B13    2D3C0000 A            DATA     X'2D3C0000'
     7226   01 02B14    77777777 A            DATA     X'77777777'
     7227   01 02B15    77777777 A            DATA     X'77777777'
     7228   01 02B16    204040C3 A            DATA     X'204040C3'
     7229   01 02B17    F24040C3 A            DATA     X'F24040C3'
     7230   01 02B18    77777777 A            DATA     X'77777777'
     7231   01 02B19    77777777 A            DATA     X'77777777'
     7232   01 02B1A    22205C5C A            DATA     X'22205C5C'
     7233   01 02B1B    6BF34040 A            DATA     X'6BF34040'
     7234   01 02B1C    7777777C A            DATA     X'7777777C'
     7235   01 02B1D    7777777C A            DATA     X'7777777C'
     7236   01 02B1E    C3D94040 A            DATA     X'C3D94040'
     7237   01 02B1F    40404040 A            DATA     '    '
     7238   01 02B20    00000000 A            DATA     0
     7239   01 02B21    00000000 A            DATA     0
     7240   01 02B22    00000000 A            DATA     0
     7241   01 02B23    00000000 A            DATA     0
     7242   01 02B24    00000000 A            DATA     0
     7243   01 02B25    00000000 A            DATA     0
     7244   01 02B26    00000000 A            DATA     0
     7245   01 02B27    00000000 A            DATA     0
     7246   01 02B28    6B000000 A            GEN,8,24 ',',0
     7247   01 02B29    0A00C004              GEN,8,24 10,BA(MEMORY)+4
     7248   01 02B2A    6B000002 A            GEN,8,24 ',',2
     7249   01 02B2B    0000C00E              GEN,8,24 0,BA(MEMORY)+14
     7250   01 02B2C    0400C009              GEN,8,24 4,BA(MEMORY)+9
     7251   01 02B2D    211E00CE A   EBS30    MODULE
     7252   01 02B2E    63A0C000              EBS,10   BA(MEMORY)
     7253   01 02B2F    07301148              K        0,7,3,LOC
     7254   01 02B30    8730114A              K        8,7,3,LOC+2
     7255   01 02B31    FFFFFFFF A            DATA     X'FFFFFFFF'       R12 IN
     7256   01 02B32    FFFFFFFF A            DATA     X'FFFFFFFF'       R12 OUT
     7257   01 02B33    0000000C A            DATA     X'C'              MEMORY+0 IN
     7258   01 02B34    0000000C A            DATA     X'C'              MEMORY+0 OUT
     7259   01 02B35    FFFFFFFF A            DATA     X'FFFFFFFF'       R13 IN
     7260   01 02B36    FFFFFFFF A            DATA     X'FFFFFFFF'       R13 OUT
     7261   01 02B37    20206B20 A            DATA     X'20206B20'       MEMORY+1 IN  (DS DS ,  DS)
     7262   01 02B38    5C5C5C5C A            DATA     X'5C5C5C5C'       MEMORY+1 OUT (*  *  *  * )
     7263   01 02B39    FFFFFFFF A            DATA     X'FFFFFFFF'       R14 IN
     7264   01 02B3A    FFFFFFFF A            DATA     X'FFFFFFFF'       R14 OUT
     7265   01 02B3B    20214B20 A            DATA     X'20214B20'       MEMORY+2 IN  (DS SS .  DS)
     7266   01 02B3C    5C5C4BF0 A            DATA     X'5C5C4BF0'       MEMORY+2 OUT (*  *  .  0 )
     7267   01 02B3D    FFFFFFFF A            DATA     X'FFFFFFFF'       R15 IN
     7268   01 02B3E    FFFFFFFF A            DATA     X'FFFFFFFF'       R15 OUT
     7269   01 02B3F    2040C3D9 A            DATA     X'2040C3D9'       MEMORY+3 IN  (DS    C  R )
     7270   01 02B40    F0404040 A            DATA     X'F0404040'       MEMORY+3 OUT (0          )
     7271   01 02B41    00000000 A            DATA     X'0'              MEMORY+4 IN
     7272   01 02B42    00000000 A            DATA     X'0'              MEMORY+4 OUT
     7273   01 02B43    00000000 A            DATA     X'0'              MEMORY+5 IN
     7274   01 02B44    00000000 A            DATA     X'0'              MEMORY+5 OUT
     7275   01 02B45    00000000 A            DATA     X'0'              MEMORY+6 IN
     7276   01 02B46    00000000 A            DATA     X'0'              MEMORY+6 OUT
     7277   01 02B47    00000000 A            DATA     X'0'              MEMORY+7 IN
     7278   01 02B48    00000000 A            DATA     X'0'              MEMORY+7 OUT
     7279   01 02B49    5C000000 A            GEN,8,24 '*',0             R10 IN
     7280   01 02B4A    0C00C004              GEN,8,24 12,BA(MEMORY+1)   R11 IN
     7281   01 02B4B    5C000004 A            GEN,8,24 '*',4             R10 OUT
     7282   01 02B4C    0000C010              GEN,8,24 0,BA(MEMORY+1)+12 R11 OUT
     7283   01 02B4D    0600C00A              GEN,8,24 6,BA(MEMORY+1)+6  R1  OUT
     7284   01 02B4E    211F00CF A   EBS31    MODULE
     7285   01 02B4F    63A00034 A            EBS,10   52                BYTE ADDRESS OF R13
     7286   01 02B50    47301148              K        4,7,3,LOC
     7287   01 02B51    B730114A              K        11,7,3,LOC+2
     7288   01 02B52    00000000 A            DATA     X'0'              R12 IN
     7289   01 02B53    00000000 A            DATA     X'0'              R12 OUT
     7290   01 02B54    C1202023 A            DATA     X'C1202023'       MEMORY+0 IN   (A  DS DS SI)
     7291   01 02B55    7BF6F1F2 A            DATA     X'7BF6F1F2'       MEMORY+0 OUT  (#  6  1  2 )
     7292   01 02B56    0612500C A            DATA     X'0612500C'       R13 IN
     7293   01 02B57    0612500C A            DATA     X'0612500C'       R13 OUT
     7294   01 02B58    4B202020 A            DATA     X'4B202020'       MEMORY+1 IN   (.  DS DS DS)
     7295   01 02B59    4BF5F0F0 A            DATA     X'4BF5F0F0'       MEMORY+1 OUT  (.  5  0  0 )
     7296   01 02B5A    01234C03 A            DATA     X'01234C03'       R14 IN
     7297   01 02B5B    01234C03 A            DATA     X'01234C03'       R14 OUT
     7298   01 02B5C    22C22020 A            DATA     X'22C22020'       MEMORY+2 IN   (FS B  DS DS)
     7299   01 02B5D    7B7B7BF1 A            DATA     X'7B7B7BF1'       MEMORY+2 OUT  (#  #  #  1 )
     7300   01 02B5E    5DFFFFFF A            DATA     X'5DFFFFFF'       R15 IN
     7301   01 02B5F    5DFFFFFF A            DATA     X'5DFFFFFF'       R15 OUT
     7302   01 02B60    214B2020 A            DATA     X'214B2020'       MEMORY+3 IN   (SS .  DS DS)
     7303   01 02B61    F24BF3F4 A            DATA     X'F24BF3F4'       MEMORY+3 OUT  (2  .  3  4 )
     7304   01 02B62    C322C423 A            DATA     X'C322C423'       MEMORY+4 IN   (C  FS D  SI)
     7305   01 02B63    407B7BF0 A            DATA     X'407B7BF0'       MEMORY+4 OUT  (   #  #  0 )
     7306   01 02B64    2020C5D5 A            DATA     X'2020C5D5'       MEMORY+5 IN   (DS DS E  N )
     7307   01 02B65    F3F5C5D5 A            DATA     X'F3F5C5D5'       MEMORY+5 OUT  (3  5  E  N )
     7308   01 02B66    C4202020 A            DATA     X'C4202020'       MEMORY+6 IN   (D )
     7309   01 02B67    C4202020 A            DATA     X'C4202020'       MEMORY+6 OUT  (D )
     7310   01 02B68    00000000 A            DATA     X'0'              MEMORY+7 IN
     7311   01 02B69    00000000 A            DATA     X'0'              MEMORY+7 OUT
     7312   01 02B6A    7B000000 A            GEN,8,24 '#',0             R10 IN
     7313   01 02B6B    1900C000              GEN,8,24 25,BA(MEMORY+0)   R11 IN
     7314   01 02B6C    7B000009 A            GEN,8,24 '#',9             R10 OUT
     7315   01 02B6D    0000C019              GEN,8,24 0,BA(MEMORY+0)+25 R11 OUT
     7316   01 02B6E    0500C013              GEN,8,24 5,BA(MEMORY+0)+19 R1  OUT
     7317   01 02B6F    120100D0 A   UNPK1    MODULE   X'77'             TRAP ON INVALID DIGIT.
     7318   01 02B70    77103000              UNPK,1   MEMORY
     7319   01 02B71    0730114D              K        0,7,3,LOC+5
     7320   01 02B72    8730101B              K        8,7,3,EXP:TRAP+5
     7321   01 02B73    F0000000 A            DATA     X'F0000000'
     7322   01 02B74    F0000000 A            DATA     X'F0000000'
     7323   01 02B75    00000000 A            DATA     0
     7324   01 02B76    00000000 A            DATA     0
     7325   01 02B77    00000000 A            DATA     0
     7326   01 02B78    00000000 A            DATA     0
     7327   01 02B79    00000000 A            DATA     0
     7328   01 02B7A    00000000 A            DATA     0
     7329   01 02B7B    00000000 A            DATA     0
     7330   01 02B7C    00000000 A            DATA     0
     7331   01 02B7D    00000000 A            DATA     0
     7332   01 02B7E    00000000 A            DATA     0
     7333   01 02B7F    0000000C A            DATA     12
     7334   01 02B80    0000000C A            DATA     12
     7335   01 02B81    040200D1 A   UNPK2    MODULE                     TRAP ON INVALID SIGN.
     7336   01 02B82    77103000              UNPK,1   MEMORY
     7337   01 02B83    0730114D              K        0,7,3,LOC+5
     7338   01 02B84    8730101B              K        8,7,3,EXP:TRAP+5
     7339                            *  ALL REMAINING INPUTS FOR THIS TEST ARE ZERO.
     7340   01 02B85    1C0300D2 A   UNPK3    MODULE                     31 DIGIT POSITIVE, WORD BOUNDARY.
     7341   01 02B86    77003000              UNPK,0   MEMORY
     7342   01 02B87    07301148              K        0,7,3,LOC
     7343   01 02B88    0730114A              K        0,7,3,LOC+2
     7344   01 02B89    12345678 A            DATA     X'12345678'
     7345   01 02B8A    12345678 A            DATA     X'12345678'
     7346   01 02B8B    00000000 A            DATA     0
     7347   01 02B8C    F1F2F3F4 A            DATA     '1234'
     7348   01 02B8D    90123456 A            DATA     X'90123456'
     7349   01 02B8E    90123456 A            DATA     X'90123456'
     7350   01 02B8F    00000000 A            DATA     0
     7351   01 02B90    F5F6F7F8 A            DATA     '5678'
     7352   01 02B91    09080706 A            DATA     X'09080706'
     7353   01 02B92    09080706 A            DATA     X'09080706'
     7354   01 02B93    00000000 A            DATA     0
     7355   01 02B94    F9F0F1F2 A            DATA     '9012'
     7356   01 02B95    0504037C A            DATA     X'0504037C'
     7357   01 02B96    0504037C A            DATA     X'0504037C'
     7358   01 02B97    00000000 A            DATA     0
     7359   01 02B98    F3F4F5F6 A            DATA     '3456'
     7360   01 02B99    00000000 A            DATA     0
     7361   01 02B9A    F0F9F0F8 A            DATA     '0908'
     7362   01 02B9B    00000000 A            DATA     0
     7363   01 02B9C    F0F7F0F6 A            DATA     '0706'
     7364   01 02B9D    00000000 A            DATA     0
     7365   01 02B9E    F0F5F0F4 A            DATA     '0504'
     7366   01 02B9F    00000000 A            DATA     0
     7367   01 02BA0    F0F3C700 A            DATA     X'F0F3C700'
     7368   01 02BA1    1C0400D3 A   UNPK4    MODULE                     31 DIGIT POSITIVE, ODD BYTE.
     7369   01 02BA2    77023000              UNPK,0   MEMORY,1
     7370   01 02BA3    07301148              K        0,7,3,LOC
     7371   01 02BA4    0730114A              K        0,7,3,LOC+2
     7372   01 02BA5    12483689 A            DATA     X'12483689'
     7373   01 02BA6    12483689 A            DATA     X'12483689'
     7374   01 02BA7    00000000 A            DATA     0
     7375   01 02BA8    00F1F2F4 A            DATA     X'00F1F2F4'
     7376   01 02BA9    69707787 A            DATA     X'69707787'
     7377   01 02BAA    69707787 A            DATA     X'69707787'
     7378   01 02BAB    00000000 A            DATA     0
     7379   01 02BAC    F8F3F6F8 A            DATA     '8368'
     7380   01 02BAD    87070770 A            DATA     X'87070770'
     7381   01 02BAE    87070770 A            DATA     X'87070770'
     7382   01 02BAF    00000000 A            DATA     0
     7383   01 02BB0    F9F6F9F7 A            DATA     '9697'
     7384   01 02BB1    9696969C A            DATA     X'9696969C'
     7385   01 02BB2    9696969C A            DATA     X'9696969C'
     7386   01 02BB3    00000000 A            DATA     0
     7387   01 02BB4    F0F7F7F8 A            DATA     '0778'
     7388   01 02BB5    00000000 A            DATA     0
     7389   01 02BB6    F7F8F7F0 A            DATA     '7870'
     7390   01 02BB7    00000000 A            DATA     0
     7391   01 02BB8    F7F0F7F7 A            DATA     '7077'
     7392   01 02BB9    00000000 A            DATA     0
     7393   01 02BBA    F0F9F6F9 A            DATA     '0969'
     7394   01 02BBB    00000000 A            DATA     0
     7395   01 02BBC    F6F9F6C9 A            DATA     X'F6F9F6C9'
     7396   01 02BBD    1C0500D4 A   UNPK5    MODULE                     31 DIGIT NEGATIVE, WORD BOUNDARY.
     7397   01 02BBE    77003000              UNPK,0   MEMORY
     7398   01 02BBF    07301148              K        0,7,3,LOC
     7399   01 02BC0    0730114A              K        0,7,3,LOC+2
     7400   01 02BC1    11112222 A            DATA     X'11112222'
     7401   01 02BC2    11112222 A            DATA     X'11112222'
     7402   01 02BC3    00000000 A            DATA     0
     7403   01 02BC4    F1F1F1F1 A            DATA     '1111'
     7404   01 02BC5    33334444 A            DATA     X'33334444'
     7405   01 02BC6    33334444 A            DATA     X'33334444'
     7406   01 02BC7    00000000 A            DATA     0
     7407   01 02BC8    F2F2F2F2 A            DATA     '2222'
     7408   01 02BC9    55556666 A            DATA     X'55556666'
     7409   01 02BCA    55556666 A            DATA     X'55556666'
     7410   01 02BCB    00000000 A            DATA     0
     7411   01 02BCC    F3F3F3F3 A            DATA     '3333'
     7412   01 02BCD    7777888D A            DATA     X'7777888D'
     7413   01 02BCE    7777888D A            DATA     X'7777888D'
     7414   01 02BCF    00000000 A            DATA     0
     7415   01 02BD0    F4F4F4F4 A            DATA     '4444'
     7416   01 02BD1    00000000 A            DATA     0
     7417   01 02BD2    F5F5F5F5 A            DATA     '5555'
     7418   01 02BD3    00000000 A            DATA     0
     7419   01 02BD4    F6F6F6F6 A            DATA     '6666'
     7420   01 02BD5    00000000 A            DATA     0
     7421   01 02BD6    F7F7F7F7 A            DATA     '7777'
     7422   01 02BD7    00000000 A            DATA     0
     7423   01 02BD8    F8F8D800 A            DATA     X'F8F8D800'
     7424   01 02BD9    1C0600D5 A   UNPK6    MODULE                     31 DIGIT NEGATIVE, ODD BYTE.
     7425   01 02BDA    77023000              UNPK,0   MEMORY,1
     7426   01 02BDB    07301148              K        0,7,3,LOC
     7427   01 02BDC    0730114A              K        0,7,3,LOC+2
     7428   01 02BDD    99990000 A            DATA     X'99990000'
     7429   01 02BDE    99990000 A            DATA     X'99990000'
     7430   01 02BDF    00000000 A            DATA     0
     7431   01 02BE0    00F9F9F9 A            DATA     X'00F9F9F9'
     7432   01 02BE1    88887777 A            DATA     X'88887777'
     7433   01 02BE2    88887777 A            DATA     X'88887777'
     7434   01 02BE3    00000000 A            DATA     0
     7435   01 02BE4    F9F0F0F0 A            DATA     '9000'
     7436   01 02BE5    07870842 A            DATA     X'07870842'
     7437   01 02BE6    07870842 A            DATA     X'07870842'
     7438   01 02BE7    00000000 A            DATA     0
     7439   01 02BE8    F0F8F8F8 A            DATA     '0888'
     7440   01 02BE9    1369693D A            DATA     X'1369693D'
     7441   01 02BEA    1369693D A            DATA     X'1369693D'
     7442   01 02BEB    00000000 A            DATA     0
     7443   01 02BEC    F8F7F7F7 A            DATA     '8777'
     7444   01 02BED    00000000 A            DATA     0
     7445   01 02BEE    F7F0F7F8 A            DATA     '7078'
     7446   01 02BEF    00000000 A            DATA     0
     7447   01 02BF0    F7F0F8F4 A            DATA     '7084'
     7448   01 02BF1    00000000 A            DATA     0
     7449   01 02BF2    F2F1F3F6 A            DATA     '2136'
     7450   01 02BF3    00000000 A            DATA     0
     7451   01 02BF4    F9F6F9D3 A            DATA     X'F9F6F9D3'
     7452   01 02BF5    120700D6 A   UNPK7    MODULE                     5 DIGIT, ALL SIGNIFICANCE
     7453   01 02BF6    77503000              UNPK,5   MEMORY            NOT ZONED AND STORED.
     7454   01 02BF7    07301148              K        0,7,3,LOC
     7455   01 02BF8    4730114A              K        4,7,3,LOC+2
     7456   01 02BF9    00000000 A            DATA     0
     7457   01 02BFA    00000000 A            DATA     0
     7458   01 02BFB    00000000 A            DATA     0
     7459   01 02BFC    F9F8F7F6 A            DATA     '9876'
     7460   01 02BFD    00000000 A            DATA     0
     7461   01 02BFE    00000000 A            DATA     0
     7462   01 02BFF    00000000 A            DATA     0
     7463   01 02C00    F5F4F3F2 A            DATA     '5432'
     7464   01 02C01    54321098 A            DATA     X'54321098'
     7465   01 02C02    54321098 A            DATA     X'54321098'
     7466   01 02C03    00000000 A            DATA     0
     7467   01 02C04    C1000000 A            DATA     X'C1000000'
     7468   01 02C05    7654321C A            DATA     X'7654321C'
     7469   01 02C06    7654321C A            DATA     X'7654321C'
     7470   01 02C07    120800D7 A   UNPK8    MODULE                     UNPACK 1 DIGIT
     7471   01 02C08    77103000              UNPK,1   MEMORY
     7472   01 02C09    B7301148              K        11,7,3,LOC
     7473   01 02C0A    7730114A              K        7,7,3,LOC+2
     7474   01 02C0B    00000000 A            DATA     0                 R12 IN
     7475   01 02C0C    00000000 A            DATA     0                 R12 OUT
     7476   01 02C0D    AAAAAAAA A            DATA     X'AAAAAAAA'       MEMORY+0 IN
     7477   01 02C0E    D3AAAAAA A            DATA     X'D3AAAAAA'       MEMORY+0 OUT
     7478   01 02C0F    00000000 A            DATA     0                 R13 IN
     7479   01 02C10    00000000 A            DATA     0                 R13 OUT
     7480   01 02C11    00000000 A            DATA     0                 MEMORY+1 IN
     7481   01 02C12    00000000 A            DATA     0                 MEMORY+1 OUT
     7482   01 02C13    00000000 A            DATA     0                 R14 IN
     7483   01 02C14    00000000 A            DATA     0                 R14 OUT
     7484   01 02C15    00000000 A            DATA     0                 MEMORY+2 IN
     7485   01 02C16    00000000 A            DATA     0                 MEMORY+2 OUT
     7486   01 02C17    0000013D A            DATA     X'0000013D'       R15 IN
     7487   01 02C18    0000013D A            DATA     X'0000013D'       R15 OUT
     7488   01 02C19    120910D8 A   UNPK09   MODULE,1
     7489   01 02C1A    77103000              UNPK,1   MEMORY
     7490   01 02C1B    07301148              K        0,7,3,LOC
     7491   01 02C1C    07301016              K        0,7,3,EXP:TRAP
     7492   01 02C1D    00000009 A            DATA     9
     7493   01 02C1E    00000009 A            DATA     9
     7494   01 02C1F    00000000 A            DATA     0
     7495   01 02C20    00000000 A            DATA     0
     7496   01 02C21    00000008 A            DATA     8
     7497   01 02C22    00000008 A            DATA     8
     7498   01 02C23    00000000 A            DATA     0
     7499   01 02C24    00000000 A            DATA     0
     7500   01 02C25    00000007 A            DATA     7
     7501   01 02C26    00000007 A            DATA     7
     7502   01 02C27    00000000 A            DATA     0
     7503   01 02C28    00000000 A            DATA     0
     7504   01 02C29    1234567C A            DATA     X'1234567C'
     7505   01 02C2A    1234567C A            DATA     X'1234567C'
     7506                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=0,EXPECTED TRAP
     7507   01 02C2B    120A10D9 A   UNPK10   MODULE,1
     7508   01 02C2C    77302FFF              UNPK,3   MEMORY-1
     7509   01 02C2D    07301148              K        0,7,3,LOC
     7510   01 02C2E    07301016              K        0,7,3,EXP:TRAP
     7511   01 02C2F    00000001 A            DATA     1
     7512   01 02C30    00000001 A            DATA     1
     7513   01 02C31    00000000 A            DATA     0
     7514   01 02C32    00000000 A            DATA     0
     7515   01 02C33    00000002 A            DATA     2
     7516   01 02C34    00000002 A            DATA     2
     7517   01 02C35    00000000 A            DATA     0
     7518   01 02C36    00000000 A            DATA     0
     7519   01 02C37    00000054 A            DATA     X'54'
     7520   01 02C38    00000054 A            DATA     X'54'
     7521   01 02C39    00000000 A            DATA     0
     7522   01 02C3A    00000000 A            DATA     0
     7523   01 02C3B    3210987D A            DATA     X'3210987D'
     7524   01 02C3C    3210987D A            DATA     X'3210987D'
     7525                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=1, NO TRAP
     7526   01 02C3D    120B10DA A   UNPK11   MODULE,1
     7527   01 02C3E    77122FFF              UNPK,1   MEMORY-1,1
     7528   01 02C3F    07301148              K        0,7,3,LOC
     7529   01 02C40    4730114A              K        4,7,3,LOC+2
     7530   01 02C41    00000005 A            DATA     5
     7531   01 02C42    00000005 A            DATA     5
     7532   01 02C43    00000000 A            DATA     0
     7533   01 02C44    00C80000 A            DATA     X'C80000'
     7534   01 02C45    00000007 A            DATA     7
     7535   01 02C46    00000007 A            DATA     7
     7536   01 02C47    00000000 A            DATA     0
     7537   01 02C48    00000000 A            DATA     0
     7538   01 02C49    00000006 A            DATA     6
     7539   01 02C4A    00000006 A            DATA     6
     7540   01 02C4B    00000000 A            DATA     0
     7541   01 02C4C    00000000 A            DATA     0
     7542   01 02C4D    5432108C A            DATA     X'5432108C'
     7543   01 02C4E    5432108C A            DATA     X'5432108C'
     7544                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=1,EXPECTED TRAP
     7545   01 02C4F    120C10DB A   UNPK12   MODULE,1
     7546   01 02C50    77522FFE              UNPK,5   MEMORY-2,1
     7547   01 02C51    07301148              K        0,7,3,LOC
     7548   01 02C52    07301016              K        0,7,3,EXP:TRAP
     7549   01 02C53    00000006 A            DATA     6
     7550   01 02C54    00000006 A            DATA     6
     7551   01 02C55    00000000 A            DATA     0
     7552   01 02C56    00000000 A            DATA     0
     7553   01 02C57    12345678 A            DATA     X'12345678'
     7554   01 02C58    12345678 A            DATA     X'12345678'
     7555   01 02C59    00000000 A            DATA     0
     7556   01 02C5A    00000000 A            DATA     0
     7557   01 02C5B    24681357 A            DATA     X'24681357'
     7558   01 02C5C    24681357 A            DATA     X'24681357'
     7559   01 02C5D    00000000 A            DATA     0
     7560   01 02C5E    00000000 A            DATA     0
     7561   01 02C5F    9876543D A            DATA     X'9876543D'
     7562   01 02C60    9876543D A            DATA     X'9876543D'
     7563                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=2,EXPECTED TRAP
     7564   01 02C61    120D10DC A   UNPK13   MODULE,1
     7565   01 02C62    77342FFF              UNPK,3   MEMORY-1,2
     7566   01 02C63    07301148              K        0,7,3,LOC
     7567   01 02C64    07301016              K        0,7,3,EXP:TRAP
     7568   01 02C65    00000003 A            DATA     3
     7569   01 02C66    00000003 A            DATA     3
     7570   01 02C67    00000000 A            DATA     0
     7571   01 02C68    00000000 A            DATA     0
     7572   01 02C69    00000007 A            DATA     7
     7573   01 02C6A    00000007 A            DATA     7
     7574   01 02C6B    00000000 A            DATA     0
     7575   01 02C6C    00000000 A            DATA     0
     7576   01 02C6D    13572468 A            DATA     X'13572468'
     7577   01 02C6E    13572468 A            DATA     X'13572468'
     7578   01 02C6F    00000000 A            DATA     0
     7579   01 02C70    00000000 A            DATA     0
     7580   01 02C71    9176553C A            DATA     X'9176553C'
     7581   01 02C72    9176553C A            DATA     X'9176553C'
     7582                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3,EXPECTED TRAP
     7583   01 02C73    120E10DD A   UNPK14   MODULE,1
     7584   01 02C74    77462FFE              UNPK,4   MEMORY-2,3
     7585   01 02C75    07301148              K        0,7,3,LOC
     7586   01 02C76    07301016              K        0,7,3,EXP:TRAP
     7587   01 02C77    00000005 A            DATA     5
     7588   01 02C78    00000005 A            DATA     5
     7589   01 02C79    00000000 A            DATA     0
     7590   01 02C7A    00000000 A            DATA     0
     7591   01 02C7B    00000088 A            DATA     X'88'
     7592   01 02C7C    00000088 A            DATA     X'88'
     7593   01 02C7D    00000000 A            DATA     0
     7594   01 02C7E    00000000 A            DATA     0
     7595   01 02C7F    58719264 A            DATA     X'58719264'
     7596   01 02C80    58719264 A            DATA     X'58719264'
     7597   01 02C81    00000000 A            DATA     0
     7598   01 02C82    00000000 A            DATA     0
     7599   01 02C83    3927156D A            DATA     X'3927156D'
     7600   01 02C84    3927156D A            DATA     X'3927156D'
     7601                            * TEST OF ASCII CODE GENERATION, DACA SIGN = EBCDIC -
     7602                            * MEMORY OPERAND SIGN AFTER UNPACK=ASCII - ,ZONE = ASCII
     7603   01 02C85    160F00DE A   UNPK15   MODULE
     7604   01 02C86    77A03000              UNPK,10  MEMORY
     7605   01 02C87    07381148              N        0,7,3,1,LOC
     7606   01 02C88    0738114A              N        0,7,3,1,LOC+2
     7607   01 02C89    00000000 A            DATA     0
     7608   01 02C8A    00000000 A            DATA     0
     7609   01 02C8B    00000000 A            DATA     0
     7610   01 02C8C    30303031 A            DATA     X'30303031'
     7611   01 02C8D    00000001 A            DATA     1
     7612   01 02C8E    00000001 A            DATA     1
     7613   01 02C8F    00000000 A            DATA     0
     7614   01 02C90    32333435 A            DATA     X'32333435'
     7615   01 02C91    23456789 A            DATA     X'23456789'
     7616   01 02C92    23456789 A            DATA     X'23456789'
     7617   01 02C93    00000000 A            DATA     0
     7618   01 02C94    36373839 A            DATA     X'36373839'
     7619   01 02C95    0123456D A            DATA     X'0123456D'
     7620   01 02C96    0123456D A            DATA     X'0123456D'
     7621   01 02C97    00000000 A            DATA     0
     7622   01 02C98    30313233 A            DATA     X'30313233'
     7623   01 02C99    00000000 A            DATA     0
     7624   01 02C9A    3435B600 A            DATA     X'3435B600'
     7625                            * TEST OF ASCII CODE GENERATION, DECA SIGN = EBCDIC +
     7626                            * MEMORY OPERAND SIGN AFTER UNPACK= ASCII +, ZONE = ASCII
     7627   01 02C9B    141000DF A   UNPK16   MODULE
     7628   01 02C9C    77803000              UNPK,8   MEMORY
     7629   01 02C9D    07381148              N        0,7,3,1,LOC
     7630   01 02C9E    4738114A              N        4,7,3,1,LOC+2
     7631   01 02C9F    00000000 A            DATA     0
     7632   01 02CA0    00000000 A            DATA     0
     7633   01 02CA1    00000000 A            DATA     0
     7634   01 02CA2    31303030 A            DATA     X'31303030'
     7635   01 02CA3    23000000 A            DATA     X'23000000'
     7636   01 02CA4    23000000 A            DATA     X'23000000'
     7637   01 02CA5    00000000 A            DATA     0
     7638   01 02CA6    31323334 A            DATA     X'31323334'
     7639   01 02CA7    10001234 A            DATA     X'10001234'
     7640   01 02CA8    10001234 A            DATA     X'10001234'
     7641   01 02CA9    00000000 A            DATA     0
     7642   01 02CAA    30303132 A            DATA     X'30303132'
     7643   01 02CAB    0012345C A            DATA     X'12345C'
     7644   01 02CAC    0012345C A            DATA     X'12345C'
     7645   01 02CAD    00000000 A            DATA     0
     7646   01 02CAE    3334A500 A            DATA     X'3334A500'
     7647                            * TEST OF ASCII CODE GENERATION, DACA SIGN = ASCII -
     7648                            * MEMORY OPERAND SIGN AFTER UNPACK= ASCII -, ZONE= ASCII
     7649   01 02CAF    121100E0 A   UNPK17   MODULE
     7650   01 02CB0    77403000              UNPK,4   MEMORY
     7651   01 02CB1    07381148              N        0,7,3,1,LOC
     7652   01 02CB2    4738114A              N        4,7,3,1,LOC+2
     7653   01 02CB3    00001001 A            DATA     X'1001'
     7654   01 02CB4    00001001 A            DATA     X'1001'
     7655   01 02CB5    00000000 A            DATA     0
     7656   01 02CB6    30303031 A            DATA     X'30303031'
     7657   01 02CB7    00001002 A            DATA     X'1002'
     7658   01 02CB8    00001002 A            DATA     X'1002'
     7659   01 02CB9    00000000 A            DATA     0
     7660   01 02CBA    3030B400 A            DATA     X'3030B400'
     7661   01 02CBB    00001003 A            DATA     X'1003'
     7662   01 02CBC    00001003 A            DATA     X'1003'
     7663   01 02CBD    00000000 A            DATA     0
     7664   01 02CBE    00000000 A            DATA     0
     7665   01 02CBF    0001004B A            DATA     X'1004B'
     7666   01 02CC0    0001004B A            DATA     X'1004B'
     7667                            * TEST OF ASCII CODE GENERATION, DACA SIGN = ASCII +
     7668                            * MEMORY OPERAND SIGN AFTER UNPACK= ASCII +, ZONE= ASCII
     7669   01 02CC1    161200E1 A   UNPK18   MODULE
     7670   01 02CC2    77A03000              UNPK,10 MEMORY
     7671   01 02CC3    07381148              N        0,7,3,1,LOC
     7672   01 02CC4    0738114A              N        0,7,3,1,LOC+2
     7673   01 02CC5    00000000 A            DATA     0
     7674   01 02CC6    00000000 A            DATA     0
     7675   01 02CC7    00000000 A            DATA     0
     7676   01 02CC8    30303031 A            DATA     X'30303031'
     7677   01 02CC9    00000001 A            DATA     1
     7678   01 02CCA    00000001 A            DATA     1
     7679   01 02CCB    00000000 A            DATA     0
     7680   01 02CCC    32333435 A            DATA     X'32333435'
     7681   01 02CCD    23456789 A            DATA     X'23456789'
     7682   01 02CCE    23456789 A            DATA     X'23456789'
     7683   01 02CCF    00000000 A            DATA     0
     7684   01 02CD0    36373839 A            DATA     X'36373839'
     7685   01 02CD1    0123456A A            DATA     X'0123456A'
     7686   01 02CD2    0123456A A            DATA     X'0123456A'
     7687   01 02CD3    00000000 A            DATA     0
     7688   01 02CD4    30313233 A            DATA     X'30313233'
     7689   01 02CD5    00000000 A            DATA     0
     7690   01 02CD6    3435A600 A            DATA     X'3435A600'
     7691                            * TEST OF EBCDIC CODE GENERATION, DECA SIGN = ASCII -
     7692                            * MEMORY OPERAND SIGN AFTER UNPACK = EBCDIC - , ZONE= EBCDIC
     7693   01 02CD7    141300E2 A   UNPK19   MODULE
     7694   01 02CD8    77803000              UNPK,8   MEMORY
     7695   01 02CD9    07301148              K        0,7,3,LOC
     7696   01 02CDA    4730114A              K        4,7,3,LOC+2
     7697   01 02CDB    00000000 A            DATA     0
     7698   01 02CDC    00000000 A            DATA     0
     7699   01 02CDD    00000000 A            DATA     0
     7700   01 02CDE    F1F0F0F0 A            DATA     X'F1F0F0F0'
     7701   01 02CDF    23000000 A            DATA     X'23000000'
     7702   01 02CE0    23000000 A            DATA     X'23000000'
     7703   01 02CE1    00000000 A            DATA     0
     7704   01 02CE2    F1F2F3F4 A            DATA     X'F1F2F3F4'
     7705   01 02CE3    10001234 A            DATA     X'10001234'
     7706   01 02CE4    10001234 A            DATA     X'10001234'
     7707   01 02CE5    00000000 A            DATA     0
     7708   01 02CE6    F0F0F1F2 A            DATA     X'F0F0F1F2'
     7709   01 02CE7    0012345B A            DATA     X'12345B'
     7710   01 02CE8    0012345B A            DATA     X'12345B'
     7711   01 02CE9    00000000 A            DATA     0
     7712   01 02CEA    F3F4D500 A            DATA     X'F3F4D500'
     7713                            * TEST OF EBCDIC CODE GENERATION, DECA SIGN =ASCII +
     7714                            * MEMORY OPERAND SIGN AFTER UNPACK = EBCDIC +, ZONE= EBCDIC
     7715   01 02CEB    121400E3 A   UNPK20   MODULE
     7716   01 02CEC    77403000              UNPK,4   MEMORY
     7717   01 02CED    07301148              K        0,7,3,LOC
     7718   01 02CEE    4730114A              K        4,7,3,LOC+2
     7719   01 02CEF    00001001 A            DATA     X'1001'
     7720   01 02CF0    00001001 A            DATA     X'1001'
     7721   01 02CF1    00000000 A            DATA     0
     7722   01 02CF2    F0F0F0F1 A            DATA     X'F0F0F0F1'
     7723   01 02CF3    00001002 A            DATA     X'1002'
     7724   01 02CF4    00001002 A            DATA     X'1002'
     7725   01 02CF5    00000000 A            DATA     0
     7726   01 02CF6    F0F0C400 A            DATA     X'F0F0C400'
     7727   01 02CF7    00001003 A            DATA     X'1003'
     7728   01 02CF8    00001003 A            DATA     X'1003'
     7729   01 02CF9    00000000 A            DATA     0
     7730   01 02CFA    00000000 A            DATA     0
     7731   01 02CFB    0001004A A            DATA     X'1004A'
     7732   01 02CFC    0001004A A            DATA     X'1004A'
     7733   01 02CFD    040100E4 A   PACK1    MODULE   X'76'             TRAP ON INVALID SIGN.
     7734   01 02CFE    76003000              PACK,0   MEMORY
     7735   01 02CFF    0730114D              K        0,7,3,LOC+5
     7736   01 02D00    8730101B              K        8,7,3,EXP:TRAP+5
     7737                            *  ALL REMAINING INPUTS FOR THIS TEST ARE ZERO.
     7738   01 02D01    140200E5 A   PACK2    MODULE                     TRAP ON INVALID DIGIT.
     7739   01 02D02    76003000              PACK,0   MEMORY
     7740   01 02D03    0730114D              K        0,7,3,LOC+5
     7741   01 02D04    8730101B              K        8,7,3,EXP:TRAP+5
     7742   01 02D05    00000000 A            DATA     0
     7743   01 02D06    00000000 A            DATA     0
     7744   01 02D07    0F000000 A            DATA     X'0F000000'
     7745   01 02D08    0F000000 A            DATA     X'0F000000'
     7746   01 02D09    00000000 A            DATA     0
     7747   01 02D0A    00000000 A            DATA     0
     7748   01 02D0B    00000000 A            DATA     0
     7749   01 02D0C    00000000 A            DATA     0
     7750   01 02D0D    00000000 A            DATA     0
     7751   01 02D0E    00000000 A            DATA     0
     7752   01 02D0F    00000000 A            DATA     0
     7753   01 02D10    00000000 A            DATA     0
     7754   01 02D11    00000000 A            DATA     0
     7755   01 02D12    00000000 A            DATA     0
     7756   01 02D13    0000000C A            DATA     X'0000000C'
     7757   01 02D14    0000000C A            DATA     X'0000000C'
     7758   01 02D15    1C0300E6 A   PACK3    MODULE                     31 DIGIT POSITIVE, WORD BOUNDARY.
     7759   01 02D16    76003000              PACK,0   MEMORY
     7760   01 02D17    07301148              K        0,7,3,LOC
     7761   01 02D18    2730114A              K        2,7,3,LOC+2
     7762   01 02D19    00000000 A            DATA     0
     7763   01 02D1A    12345678 A            DATA     X'12345678'
     7764   01 02D1B    F1F2F3F4 A            DATA     '1234'
     7765   01 02D1C    F1F2F3F4 A            DATA     '1234'
     7766   01 02D1D    00000000 A            DATA     0
     7767   01 02D1E    99876543 A            DATA     X'99876543'
     7768   01 02D1F    F5F6F7F8 A            DATA     '5678'
     7769   01 02D20    F5F6F7F8 A            DATA     '5678'
     7770   01 02D21    00000000 A            DATA     0
     7771   01 02D22    21076969 A            DATA     X'21076969'
     7772   01 02D23    F9F9F8F7 A            DATA     '9987'
     7773   01 02D24    F9F9F8F7 A            DATA     '9987'
     7774   01 02D25    00000000 A            DATA     0
     7775   01 02D26    8787777C A            DATA     X'8787777C'
     7776   01 02D27    F6F5F4F3 A            DATA     '6543'
     7777   01 02D28    F6F5F4F3 A            DATA     '6543'
     7778   01 02D29    F2F1F0F7 A            DATA     '2107'
     7779   01 02D2A    F2F1F0F7 A            DATA     '2107'
     7780   01 02D2B    F6F9F6F9 A            DATA     '6969'
     7781   01 02D2C    F6F9F6F9 A            DATA     '6969'
     7782   01 02D2D    F8F7F8F7 A            DATA     '8787'
     7783   01 02D2E    F8F7F8F7 A            DATA     '8787'
     7784   01 02D2F    F7F7C7FF A            DATA     X'F7F7C7FF'
     7785   01 02D30    F7F7C7FF A            DATA     X'F7F7C7FF'
     7786   01 02D31    1C0400E7 A   PACK4    MODULE                     31 DIGIT POSITIVE, ODD BYTE.
     7787   01 02D32    76023000              PACK,0   MEMORY,1
     7788   01 02D33    07301148              K        0,7,3,LOC
     7789   01 02D34    2730114A              K        2,7,3,LOC+2
     7790   01 02D35    FFFFFFFF A            DATA     -1
     7791   01 02D36    12345435 A            DATA     X'12345435'
     7792   01 02D37    0FF1F2F3 A            DATA     X'0FF1F2F3'
     7793   01 02D38    0FF1F2F3 A            DATA     X'0FF1F2F3'
     7794   01 02D39    FFFFFFF0 A            DATA     -16
     7795   01 02D3A    65467657 A            DATA     X'65467657'
     7796   01 02D3B    F4F5F4F3 A            DATA     '4543'
     7797   01 02D3C    F4F5F4F3 A            DATA     '4543'
     7798   01 02D3D    FFFFFFE0 A            DATA     -32
     7799   01 02D3E    87689877 A            DATA     X'87689877'
     7800   01 02D3F    F5F6F5F4 A            DATA     '5654'
     7801   01 02D40    F5F6F5F4 A            DATA     '5654'
     7802   01 02D41    FFFFFFC0 A            DATA     -64
     7803   01 02D42    8873687C A            DATA     X'8873687C'
     7804   01 02D43    F6F7F6F5 A            DATA     '6765'
     7805   01 02D44    F6F7F6F5 A            DATA     '6765'
     7806   01 02D45    F7F8F7F6 A            DATA     '7876'
     7807   01 02D46    F7F8F7F6 A            DATA     '7876'
     7808   01 02D47    F8F9F8F7 A            DATA     '8987'
     7809   01 02D48    F8F9F8F7 A            DATA     '8987'
     7810   01 02D49    F7F8F8F7 A            DATA     '7887'
     7811   01 02D4A    F7F8F8F7 A            DATA     '7887'
     7812   01 02D4B    F3F6F8C7 A            DATA     X'F3F6F8C7'
     7813   01 02D4C    F3F6F8C7 A            DATA     X'F3F6F8C7'
     7814   01 02D4D    1C0500E8 A   PACK5    MODULE                     31 DIGIT NEGATIVE, WORD BOUNDARY.
     7815   01 02D4E    76003000              PACK,0   MEMORY
     7816   01 02D4F    07301148              K        0,7,3,LOC
     7817   01 02D50    1730114A              K        1,7,3,LOC+2
     7818   01 02D51    00000010 A            DATA     16
     7819   01 02D52    10203040 A            DATA     X'10203040'
     7820   01 02D53    F1F0F2F0 A            DATA     '1020'
     7821   01 02D54    F1F0F2F0 A            DATA     '1020'
     7822   01 02D55    00000020 A            DATA     32
     7823   01 02D56    50607080 A            DATA     X'50607080'
     7824   01 02D57    F3F0F4F0 A            DATA     '3040'
     7825   01 02D58    F3F0F4F0 A            DATA     '3040'
     7826   01 02D59    00000040 A            DATA     64
     7827   01 02D5A    90010203 A            DATA     X'90010203'
     7828   01 02D5B    F5F0F6F0 A            DATA     '5060'
     7829   01 02D5C    F5F0F6F0 A            DATA     '5060'
     7830   01 02D5D    00000080 A            DATA     128
     7831   01 02D5E    0405060D A            DATA     X'0405060D'
     7832   01 02D5F    F7F0F8F0 A            DATA     '7080'
     7833   01 02D60    F7F0F8F0 A            DATA     '7080'
     7834   01 02D61    F9F0F0F1 A            DATA     '9001'
     7835   01 02D62    F9F0F0F1 A            DATA     '9001'
     7836   01 02D63    F0F2F0F3 A            DATA     '0203'
     7837   01 02D64    F0F2F0F3 A            DATA     '0203'
     7838   01 02D65    F0F4F0F5 A            DATA     '0405'
     7839   01 02D66    F0F4F0F5 A            DATA     '0405'
     7840   01 02D67    F0F6D0FF A            DATA     X'F0F6D0FF'
     7841   01 02D68    F0F6D0FF A            DATA     X'F0F6D0FF'
     7842   01 02D69    1C0600E9 A   PACK6    MODULE                     31 DIGIT NEGATIVE, ODD BYTE.
     7843   01 02D6A    76023000              PACK,0   MEMORY,1
     7844   01 02D6B    07301148              K        0,7,3,LOC
     7845   01 02D6C    1730114A              K        1,7,3,LOC+2
     7846   01 02D6D    FFFFFFFF A            DATA     -1
     7847   01 02D6E    96987870 A            DATA     X'96987870'
     7848   01 02D6F    FFF9F6F9 A            DATA     X'FFF9F6F9'
     7849   01 02D70    FFF9F6F9 A            DATA     X'FFF9F6F9'
     7850   01 02D71    FFFFFFFF A            DATA     -1
     7851   01 02D72    12487070 A            DATA     X'12487070'
     7852   01 02D73    F8F7F8F7 A            DATA     '8787'
     7853   01 02D74    F8F7F8F7 A            DATA     '8787'
     7854   01 02D75    FFFFFFFF A            DATA     -1
     7855   01 02D76    00077778 A            DATA     X'00077778'
     7856   01 02D77    F0F1F2F4 A            DATA     '0124'
     7857   01 02D78    F0F1F2F4 A            DATA     '0124'
     7858   01 02D79    FFFFFFFF A            DATA     -1
     7859   01 02D7A    8884242D A            DATA     X'8884242D'
     7860   01 02D7B    F8F7F0F7 A            DATA     '8707'
     7861   01 02D7C    F8F7F0F7 A            DATA     '8707'
     7862   01 02D7D    00000000 A            DATA     X'0000'
     7863   01 02D7E    00000000 A            DATA     X'0000'
     7864   01 02D7F    F7F7F7F7 A            DATA     '7777'
     7865   01 02D80    F7F7F7F7 A            DATA     '7777'
     7866   01 02D81    F8F8F8F8 A            DATA     '8888'
     7867   01 02D82    F8F8F8F8 A            DATA     '8888'
     7868   01 02D83    A402E4B2 A            DATA     X'A402E4B2'
     7869   01 02D84    A402E4B2 A            DATA     X'A402E4B2'
     7870   01 02D85    120700EA A   PACK7    MODULE                     10 DIGIT NEGATIVE, ODD BYTE
     7871   01 02D86    76523000              PACK,5   MEMORY,1
     7872   01 02D87    07301148              K        0,7,3,LOC
     7873   01 02D88    1730114A              K        1,7,3,LOC+2
     7874   01 02D89    FFFFFFFF A            DATA     -1
     7875   01 02D8A    00000000 A            DATA     0
     7876   01 02D8B    FFA1B2C3 A            DATA     X'FFA1B2C3'
     7877   01 02D8C    FFA1B2C3 A            DATA     X'FFA1B2C3'
     7878   01 02D8D    FFFFFFFF A            DATA     -1
     7879   01 02D8E    00000000 A            DATA     0
     7880   01 02D8F    D4E5F607 A            DATA     X'D4E5F607'
     7881   01 02D90    D4E5F607 A            DATA     X'D4E5F607'
     7882   01 02D91    FFFFFFFF A            DATA     -1
     7883   01 02D92    00000012 A            DATA     X'00000012'
     7884   01 02D93    18D90F0F A            DATA     X'18D90F0F'
     7885   01 02D94    18D90F0F A            DATA     X'18D90F0F'
     7886   01 02D95    FFFFFFFF A            DATA     -1
     7887   01 02D96    3456789D A            DATA     X'3456789D'
     7888   01 02D97    120800EB A   PACK8    MODULE                     1 DIGIT,WORD BOUNDARY
     7889   01 02D98    76103000              PACK,1   MEMORY
     7890   01 02D99    E7301148              K        14,7,3,LOC
     7891   01 02D9A    1730114A              K        1,7,3,LOC+2
     7892   01 02D9B    33333333 A            DATA     X'33333333'       R12 IN
     7893   01 02D9C    00000000 A            DATA     0                 R12 OUT
     7894   01 02D9D    D4999999 A            DATA     X'D4999999'       MEMORY+0 IN
     7895   01 02D9E    D4999999 A            DATA     X'D4999999'       MEMORY+0 OUT
     7896   01 02D9F    33333333 A            DATA     X'33333333'       R13 IN
     7897   01 02DA0    00000000 A            DATA     0                 R13 OUT
     7898   01 02DA1    00000000 A            DATA     0                 MEMORY+1 IN
     7899   01 02DA2    00000000 A            DATA     0                 MEMORY+1 OUT
     7900   01 02DA3    33333333 A            DATA     X'33333333'       R14 IN
     7901   01 02DA4    00000000 A            DATA     0                 R14 OUT
     7902   01 02DA5    00000000 A            DATA     0                 MEMORY+2 IN
     7903   01 02DA6    00000000 A            DATA     0                 MEMORY+2 OUT
     7904   01 02DA7    33333333 A            DATA     X'33333333'       R15 IN
     7905   01 02DA8    0000004D A            DATA     X'0000004D'       R15 OUT
     7906   01 02DA9    080900EC A   PACK9    MODULE                     TRAP ON ILLEGAL SIGN
     7907   01 02DAA    76203000              PACK,2   MEMORY
     7908   01 02DAB    7730114D              K        7,7,3,LOC+5
     7909   01 02DAC    B730101B              K        11,7,3,EXP:TRAP+5
     7910   01 02DAD    44444444 A            DATA     X'44444444'       R12 IN
     7911   01 02DAE    44444444 A            DATA     X'44444444'       R12 OUT
     7912   01 02DAF    FAC30000 A            DATA     X'FAC30000'       MEMORY+0 IN   X'A' IS ILLEGAL
     7913   01 02DB0    FAC30000 A            DATA     X'FAC30000'       MEMORY+0 OUT
     7914                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 0
     7915   01 02DB1    120A00ED A   PACK10   MODULE
     7916   01 02DB2    76303000              PACK,3   MEMORY
     7917   01 02DB3    07301148              K        0,7,3,LOC
     7918   01 02DB4    1730114A              K        1,7,3,LOC+2
     7919   01 02DB5    FFFFFFFF A            DATA     -1
     7920   01 02DB6    00000000 A            DATA     0
     7921   01 02DB7    F1F2D3F4 A            DATA     X'F1F2D3F4'
     7922   01 02DB8    F1F2D3F4 A            DATA     X'F1F2D3F4'
     7923   01 02DB9    FFFFFFFF A            DATA     -1
     7924   01 02DBA    00000000 A            DATA     0
     7925   01 02DBB    D5E6B7C8 A            DATA     X'D5E6B7C8'
     7926   01 02DBC    D5E6B7C8 A            DATA     X'D5E6B7C8'
     7927   01 02DBD    FFFFFFFF A            DATA     -1
     7928   01 02DBE    00000000 A            DATA     0
     7929   01 02DBF    00000000 A            DATA     0
     7930   01 02DC0    00000000 A            DATA     0
     7931   01 02DC1    FFFFFFFF A            DATA     -1
     7932   01 02DC2    0012345D A            DATA     X'0012345D'
     7933                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 0
     7934   01 02DC3    120B00EE A   PACK11   MODULE
     7935   01 02DC4    76403000              PACK,4   MEMORY
     7936   01 02DC5    07301148              K        0,7,3,LOC
     7937   01 02DC6    2730114A              K        2,7,3,LOC+2
     7938   01 02DC7    FFFFFFFF A            DATA     -1
     7939   01 02DC8    00000000 A            DATA     0
     7940   01 02DC9    F9F8C7D6 A            DATA     X'F9F8C7D6'
     7941   01 02DCA    F9F8C7D6 A            DATA     X'F9F8C7D6'
     7942   01 02DCB    FFFFFFFF A            DATA     -1
     7943   01 02DCC    00000000 A            DATA     0
     7944   01 02DCD    F5A4A3F2 A            DATA     X'F5A4A3F2'
     7945   01 02DCE    F5A4A3F2 A            DATA     X'F5A4A3F2'
     7946   01 02DCF    FFFFFFFF A            DATA     -1
     7947   01 02DD0    00000000 A            DATA     0
     7948   01 02DD1    00000000 A            DATA     0
     7949   01 02DD2    00000000 A            DATA     0
     7950   01 02DD3    FFFFFFFF A            DATA     -1
     7951   01 02DD4    9876543C A            DATA     X'9876543C'
     7952                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 1
     7953   01 02DD5    120C00EF A   PACK12   MODULE
     7954   01 02DD6    76323000              PACK,3   MEMORY,1
     7955   01 02DD7    07301148              K        0,7,3,LOC
     7956   01 02DD8    1730114A              K        1,7,3,LOC+2
     7957   01 02DD9    00000001 A            DATA     1
     7958   01 02DDA    00000000 A            DATA     0
     7959   01 02DDB    F9E8D7C6 A            DATA     X'F9E8D7C6'
     7960   01 02DDC    F9E8D7C6 A            DATA     X'F9E8D7C6'
     7961   01 02DDD    00000001 A            DATA     1
     7962   01 02DDE    00000000 A            DATA     0
     7963   01 02DDF    A5B49382 A            DATA     X'A5B49382'
     7964   01 02DE0    A5B49382 A            DATA     X'A5B49382'
     7965   01 02DE1    00000001 A            DATA     1
     7966   01 02DE2    00000000 A            DATA     0
     7967   01 02DE3    00000000 A            DATA     0
     7968   01 02DE4    00000000 A            DATA     0
     7969   01 02DE5    00000001 A            DATA     1
     7970   01 02DE6    0087654D A            DATA     X'87654D'
     7971                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 2
     7972   01 02DE7    120D00F0 A   PACK13   MODULE
     7973   01 02DE8    76143000              PACK,1   MEMORY,2
     7974   01 02DE9    07301148              K        0,7,3,LOC
     7975   01 02DEA    2730114A              K        2,7,3,LOC+2
     7976   01 02DEB    FFFFFFFF A            DATA     -1
     7977   01 02DEC    00000000 A            DATA     0
     7978   01 02DED    A5B7C9D3 A            DATA     X'A5B7C9D3'
     7979   01 02DEE    A5B7C9D3 A            DATA     X'A5B7C9D3'
     7980   01 02DEF    FFFFFFFF A            DATA     -1
     7981   01 02DF0    00000000 A            DATA     0
     7982   01 02DF1    00000000 A            DATA     0
     7983   01 02DF2    00000000 A            DATA     0
     7984   01 02DF3    FFFFFFFF A            DATA     -1
     7985   01 02DF4    00000000 A            DATA     0
     7986   01 02DF5    00000000 A            DATA     0
     7987   01 02DF6    00000000 A            DATA     0
     7988   01 02DF7    FFFFFFFF A            DATA     -1
     7989   01 02DF8    0000009C A            DATA     X'9C'
     7990                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 3
     7991   01 02DF9    120E00F1 A   PACK14   MODULE
     7992   01 02DFA    76463000              PACK,4   MEMORY,3
     7993   01 02DFB    07301148              K        0,7,3,LOC
     7994   01 02DFC    1730114A              K        1,7,3,LOC+2
     7995   01 02DFD    FFFFFFFF A            DATA     -1
     7996   01 02DFE    00000000 A            DATA     0
     7997   01 02DFF    F5F4F3F2 A            DATA     X'F5F4F3F2'
     7998   01 02E00    F5F4F3F2 A            DATA     X'F5F4F3F2'
     7999   01 02E01    FFFFFFFF A            DATA     -1
     8000   01 02E02    00000000 A            DATA     0
     8001   01 02E03    F1F0A9B8 A            DATA     X'F1F0A9B8'
     8002   01 02E04    F1F0A9B8 A            DATA     X'F1F0A9B8'
     8003   01 02E05    FFFFFFFF A            DATA     -1
     8004   01 02E06    00000000 A            DATA     0
     8005   01 02E07    C7D6F5F4 A            DATA     X'C7D6F5F4'
     8006   01 02E08    C7D6F5F4 A            DATA     X'C7D6F5F4'
     8007   01 02E09    FFFFFFFF A            DATA     -1
     8008   01 02E0A    2109876D A            DATA     X'2109876D'
     8009         000000F1           LAST:MOD SET      MODULE#
     8010   01 02E0B    010F00F2 A            MODULE
     8011         000000F2           CON:WORD SET      MODULE#
     8012         01 02E0C           LASTMODULE EQU    %
     8013   01 02E0C    001000F3 A            MODULE
     8014                            *
     8015   01 02E0D    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
     8016   01 02E0E    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
     8017   01 02E0F    EA6003C8              BAL,X6   *#GUIDE%
     8018   01 02E10    01205A00              GEN,8,3,21 1,1,BA(PROGTEXT)
     8019   01 02E11    00000000 A            DATA     0
     8020                            *
     8021                            *
     8022   01 02E12    00000000 A            DATA     0
     8023   01 02E13    00000000 A            DATA     0
     8024                            *
     8025   01 03000                 ENDE     ORG      ((ABSVAL(%)//512)*512)              PAGE BOUND
            01 03000
     8026                            *
     8027                            *
     8028         01 03000           MEMORY   EQU      ENDE
     8029         01 03010           RES:SAV  EQU      ENDE+16
     8030         01 03020           RTABLIN  EQU      ENDE+32
     8031         01 03030           MTABLIN  EQU      ENDE+48
     8032         01 03040           RTABLOUT EQU      ENDE+64
     8033         01 03054           MTABLOUT EQU      ENDE+84
     8034         01 02E0E           ENDADDR  END      GUIDE             GO TO GUIDE

  CONTROL SECTION SUMMARY: 01 03000   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   22:23 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, DECIMAL 960-0104-H01                         PAGE   17
A  A                718-COM
   ADR:MSK          938/AND      993/AND     1007/AND     1031/AND     1623/AND     2282-DATA
   ADV:PTR          902/BAL     1299-EQU
   ALPHATXT         656/GEN     2239-TEXT
   AMP:BUF         2088/STW     2090/STW     2093/STW     2095/STW     2097/STW     2099/STW     2101/STW
      2103/STW     2105/STW     2108/STW     2110/STW     2112/STW     2115/STW     2117/STW     2119/STW
      2120/STW     2124/STW     2126/STW     2128/STB     2129/#PRINT  2139-EQU
   AMP:HDR         2084/CI      2086/#PRINT  2130/LI      2146-TEXTCS
   AMPER%EXPL      2081/LW      2706-Z
   ASTR:MSK        1570/OR      1576-DATA
   AUTO:DL          894/LI      1081/LI      1211-DATA    2056/LI
   AUTO:DLE        1244-DATA
   AUTOTEST         892-EQU      903/B       1401/B       1874/J       1875/I
   BAD:PAR1        2027/BCR     2029/BG      2153-LW
   BAD:PAR2        2031/BCR     2033/BG      2155-LW
   BALNORM         1505/BCR     1511-BAL
   BRANCH           793-XPSD    1004/LW      1090/LW
   BYPASS           808/BCS      872-LI
   CA               518/SET      571-EQU
   CATALOG            1-EQU        3/EQU
   CB               518/SET      572-EQU
   CC               518/SET      573-EQU
   CD               518/SET      574-EQU
   CE               518/SET      575-EQU
   CHECK5          1625/BL      1633-LW
   CI:C            1752/D       1840-EQU
   CI:CNT           849/STW      873/STW     1095/LW      1144-DATA    1349/STW     1848/STW
   CI:PROC         1100/STW     1412/XPSD    1432-DATA    1436/LPSD    1587/LW      1591/#HTECON
   CI:SAV           856/STW     1122/LW      1335/LW      1348/LW      1851/STW     1856-DATA
   CICOUNT         1098/STW     1413/MTW     1414-DATA
   CIMTW           1344/LW      1413-MTW
   CIXPSD          1339/LW      1412-XPSD
   CK:BIAS         2262-DATA
   CK:CTR          2244-DATA
   CK:PTR          2263-DATA
   CK:SAV          2267-EQU
   CLN:TRP          958/LW      1055-DATA
   CLR:AUTO         893/BAL      905-EQU
   CLR:WL           857/LD      1064-DATA
   CM:C            1750/D       1790-EQU
   CM:LO           1460/STW     1488-DATA
   CM:OFF           866/STW     1126/LW      1456/STW     1487-DATA
   CM:ON            865/STW     1085/LW      1125/STW     1358/STW     1486-DATA    1560/LW      1805/STW
   CM:SAV          1357/LW      1463/STW     1489-DATA    1804/STW
   CM:TSTA         1566/CW      1573-DATA
   CM:TSTB         1578-DATA
   CM:VALU         1802/LW      1810-EQU
   CMP:AUTO         899/BAL     1147-EQU     1162/B       1191/B*
   CMP:REG         1164-LI      1176/BCS
   CNT:P3          1661-DATA
   COM:C           1748/D       1769-EQU
   CON:WORD        8011-SET
   CON7            2253-DATA
   CON7F            968/AND     1544/AND     2197/AND     2219/AND     2254-DATA
   CT:FLG           952/STW      954/LW      1054-DATA
   C0               539/GEN      561-EQU
   C1               518/SET      562-EQU
   C2               518/SET      563-EQU     1711/#PRINT
   C3               518/SET      564-EQU
   C4               518/SET      565-EQU
   C5               518/SET      566-EQU
   C6               518/SET      567-EQU
   C7               518/SET      568-EQU
   C8               518/SET      569-EQU
   C9               518/SET      570-EQU
   D                720-COM
   DATA:SAV        2274-DATA
   DA01            4111-MODULE
   DA02            4131-MODULE
   DA03            4151-MODULE
   DA04            4171-MODULE
   DA05            4191-MODULE
   DA06            4211-MODULE
   DA07            4231-MODULE
   DA08            4251-MODULE
   DA09            4273-MODULE
   DA10            4293-MODULE
   DA11            4313-MODULE
   DA12            4333-MODULE
   DA13            4353-MODULE
   DA14            4373-MODULE
   DA15            4393-MODULE
   DA16            4412-MODULE
   DA17            4431-MODULE
   DA18            4450-MODULE
   DA19            4469-MODULE
   DA20            4488-MODULE
   DA21            4507-MODULE
   DA22            4526-MODULE
   DA23            4545-MODULE
   DA24            4564-MODULE
   DCA              660-ORG
   DCMEM            980/STW      986/STW     1664-DATA
   DC01            5390-MODULE
   DC02            5410-MODULE
   DC03            5430-MODULE
   DC04            5450-MODULE
   DC05            5470-MODULE
   DC06            5490-MODULE
   DD01            5832-MODULE
   DD02            5850-MODULE
   DD03            5868-MODULE
   DD04            5886-MODULE
   DD05            5904-MODULE
   DD06            5922-MODULE
   DD07            5940-MODULE
   DD08            5958-MODULE
   DD09            5976-MODULE
   DD10            5994-MODULE
   DD11            6012-MODULE
   DD12            6030-MODULE
   DD13            6048-MODULE
   DD14            6066-MODULE
   DD15            6084-MODULE
   DD16            6102-MODULE
   DD17            6120-MODULE
   DD18            6138-MODULE
   DD19            6156-MODULE
   DD20            6174-MODULE
   DD21            6192-MODULE
   DD22            6210-MODULE
   DD23            6228-MODULE
   DD24            6246-MODULE
   DD25            6264-MODULE
   DD26            6282-MODULE
   DEAD            1211/DATA    1244/DATA    1246-DATA
   DHEX:CON        1507/BAL     1700/BAL     1716-EQU
   DL%EXPL         2538-TEXTCS  2731/Z
   DLTA            2025-EQU     2729/E
   DL01            2951-MODULE
   DL02            2971-MODULE
   DL03            2991-MODULE
   DL04            3011-MODULE
   DL05            3031-MODULE
   DL06            3052-MODULE
   DL07            3073-MODULE
   DL08            3094-MODULE
   DL09            3115-MODULE
   DL10            3136-MODULE
   DL11            3159-MODULE
   DL12            3180-MODULE
   DL13            3201-MODULE
   DL14            3222-MODULE
   DL15            3243-MODULE
   DL16            3264-MODULE
   DL17            3287-MODULE
   DL18            3308-MODULE
   DL19            3329-MODULE
   DL20            3350-MODULE
   DL21            3369-MODULE
   DL22            3388-MODULE
   DL23            3411-MODULE
   DL24            3430-MODULE
   DL25            3449-MODULE
   DL26            3468-MODULE
   DL27            3487-MODULE
   DL28            3505-MODULE
   DM%EXPL         2509-TEXTCS  2716/Z
   DM01            5508-MODULE
   DM02            5526-MODULE
   DM03            5544-MODULE
   DM04            5562-MODULE
   DM05            5580-MODULE
   DM06            5598-MODULE
   DM07            5616-MODULE
   DM08            5634-MODULE
   DM09            5652-MODULE
   DM10            5670-MODULE
   DM11            5688-MODULE
   DM12            5706-MODULE
   DM13            5724-MODULE
   DM14            5742-MODULE
   DM15            5760-MODULE
   DM16            5778-MODULE
   DM17            5796-MODULE
   DM18            5814-MODULE
   DONE            2827/GOTO    2949-PEND
   DR:ERET         2170/BCS     2186-#TYPE   2202/BCR
   DRTA            2168-EQU     2178/B       2724/E
   DSA01           4920-MODULE
   DSA02           4938-MODULE
   DSA03           4956-MODULE
   DSA04           4974-MODULE
   DSA05           4992-MODULE
   DSA06           5010-MODULE
   DSA07           5028-MODULE
   DSA08           5046-MODULE
   DSA09           5064-MODULE
   DSA10           5082-MODULE
   DSA11           5100-MODULE
   DSA12           5118-MODULE
   DSA13           5136-MODULE
   DSA14           5154-MODULE
   DSA15           5172-MODULE
   DSA16           5190-MODULE
   DSA17           5208-MODULE
   DSA18           5226-MODULE
   DSA19           5244-MODULE
   DSA20           5262-MODULE
   DSA21           5280-MODULE
   DSA22           5298-MODULE
   DSA23           5316-MODULE
   DSA24           5334-MODULE
   DSA25           5352-MODULE
   DSA26           5370-MODULE
   DST01           3523-MODULE
   DST02           3543-MODULE
   DST03           3563-MODULE
   DST04           3583-MODULE
   DST05           3603-MODULE
   DST06           3621-MODULE
   DST07           3639-MODULE
   DST08           3659-MODULE
   DST09           3669-MODULE
   DST10           3688-MODULE
   DST11           3709-MODULE
   DST12           3728-MODULE
   DST13           3747-MODULE
   DST14           3766-MODULE
   DST15           3785-MODULE
   DST16           3804-MODULE
   DST17           3823-MODULE
   DST18           3842-MODULE
   DST19           3861-MODULE
   DST20           3880-MODULE
   DST21           3899-MODULE
   DST22           3918-MODULE
   DST23           3937-MODULE
   DST24           3956-MODULE
   DST25           3975-MODULE
   DST26           3994-MODULE
   DST27           4013-MODULE
   DST28           4036-MODULE
   DST29           4055-MODULE
   DST30           4074-MODULE
   DST31           4093-MODULE
   DS00            4582-MODULE
   DS01            4600-MODULE
   DS02            4620-MODULE
   DS03            4640-MODULE
   DS04            4660-MODULE
   DS05            4680-MODULE
   DS06            4700-MODULE
   DS07            4720-MODULE
   DS08            4740-MODULE
   DS09            4762-MODULE
   DS10            4782-MODULE
   DS11            4802-MODULE
   DS12            4822-MODULE
   DS13            4842-MODULE
   DS14            4862-MODULE
   DS15            4884-MODULE
   DS16            4902-MODULE
   E                722-COM
   EBS01           6300-MODULE
   EBS02           6333-MODULE
   EBS03           6367-MODULE
   EBS04           6400-MODULE
   EBS05           6433-MODULE
   EBS06           6466-MODULE
   EBS07           6499-MODULE
   EBS08           6532-MODULE
   EBS09           6565-MODULE
   EBS10           6598-MODULE
   EBS11           6631-MODULE
   EBS12           6664-MODULE
   EBS13           6697-MODULE
   EBS14           6730-MODULE
   EBS15           6762-MODULE
   EBS16           6795-MODULE
   EBS17           6828-MODULE
   EBS18           6861-MODULE
   EBS19           6894-MODULE
   EBS20           6927-MODULE
   EBS21           6959-MODULE
   EBS22           6992-MODULE
   EBS23           7015-MODULE
   EBS24           7049-MODULE
   EBS25           7084-MODULE
   EBS26           7117-MODULE
   EBS27           7150-MODULE
   EBS28           7184-MODULE
   EBS29           7218-MODULE
   EBS30           7251-MODULE
   EBS31           7284-MODULE
   EL:MSK1         1538/AND     1681-DATA
   EM               847/STW      998/AW      1022/AW      1382/LW      1384/STW     1411-DATA    1830/STW
   EM:ADV          1377-LW
   EM:C            1751/D       1815-EQU
   EM:CNT          1379/LW      1400/STW     1409-DATA
   EM:FLG           852/STW     1377/LW      1410-DATA    1826/STW
   EM:LIST         1383/LW      1407-DATA
   EM:VALU         1829/LW      1838-DATA
   END:FLG         2270-DATA
   END:SW          2045/STCF    2047/LC      2055/STW     2060/LW      2152-DATA
   ENDADDR         8034-END
   ENDE            1063/GEN     8025-ORG     8028/EQU     8029/EQU     8030/EQU     8031/EQU     8032/EQU
      8033/EQU
   ERMSG8          1864/#TYPE   1880-TEXTCS
   ERR:CNT          844/STW     1260/LW      1262/STW     1375/STW     1548/LW      2013/STW     2257-DATA
   ERR:FLG         1252/STW     1301/STW     2258-DATA
   ERR:PASS        1333/BCS     1355/BCR     1359-LI
   ERR:RET         1912/B       1940/BCR     1942/BG      1963/BG      1965/BL      2000-LW
   ERR:RETJ        1761/B       1773/B       1796/B       1799/B       1821/BLE     1823/BGE     1846/B
      1883-LW
   ESM:CI          1586-EQU     1615/DATA    2111/BAL
   ESM:CM          1560-LW      1612/DATA    2104/BAL
   ESM:EL          1530-EQU     1601/DATA    1693/BAL     2089/BAL
   ESM:EM          1583-LW      1606/DATA
   ESM:ERRS        1548-LW      1604/DATA    2096/BAL
   ESM:FAIL        1608/DATA    1618-LB
   ESM:FAIL1       1609/DATA    1622-LB
   ESM:HEDR        1269/LI      1272/#PRINT  1284/LI      1521-TEXTCS
   ESM:MNEM        1541-LI      1607/DATA    1695/BAL     2102/BAL
   ESM:MOD         1524-LW      1600/DATA    1691/BAL     2087/BAL
   ESM:NULL        1657-LW      1875/I
   ESM:PASS        1554-LW      1605/DATA    2098/BAL
   ETM2:ADR        1029/EOR     1052-DATA
   ETP4:ADR        1026/EOR     1051-DATA
   EX:TRP0         1008/CW      1041-DATA
   EX:TRP5         1012/CW      1042-DATA
   EXIT:DL         2066-LW
   EXIT:EM         1378/BCS     1381/BCS     1397-LI
   EXIT:EXU        1078/STW     1129/B*      1131-DATA
   EXIT:MAR        1462-EOR
   EXP:TRAP         769/LC       771-DATA    1027/STW     1030/STW     1041/DATA    1042/DATA    1043/XPSD
      1044/XPSD    1045/XPSD    1051/DATA    1052/DATA    3014/K       3034/K       3662/K       3672/K
      3712/K       3750/K       3807/K       3826/K       3845/K       3864/K       3921/K       3959/K
      3978/K       4058/K       4077/K       4194/K       4683/K       5889/K       5907/K       6159/K
      6337/K       6370/K       6403/K       6436/K       6469/K       6502/K       6535/K       6568/K
      6601/K       6634/K       6667/K       6700/K       7320/K       7338/K       7491/K       7510/K
      7548/K       7567/K       7586/K       7736/K       7741/K       7909/K
   EXT:ERR         1185/BCR     1187-BAL
   EXTRAP00        1014/LW      1043-XPSD
   EXTRAP40        1016/LW      1044-XPSD
   EXTRAP46        1010/LW      1045-XPSD
   EXU:AUTO         897/BAL     1077-EQU
   F                738-COM
   FAIL:ID         1619/LW      1642-TEXT
   FIFTEEN         2249-DATA
   FILL:MSK         988/AND     1039-DATA
   FILLER           989/EOR     1040-DATA
   FLAG:MSK        1020/AND     1680-DATA
   FORM:ESM        1280/BAL     1501-EQU     1516/B       1519/B*
   FOUR            2248-DATA
   FT:CMP1         1179-LW      1188/BIR
   FT:ERR          1158/BAL     1173/BAL     1187/BAL     1249-EQU     1294/B*
   FT:ERR0         1290/BCS     1293-BAL
   FTE:SS3         1268/BCS     1289-LC
   FTERRMSG        1296/Z       2604-TEXTCS
   FTERSTAT        1286/LW      1296-Z
   FTFL             843/STW     1918/STW     2259-DATA
   F0               518/SET      577-EQU
   F1               518/SET      578-EQU     2035/#PRINT
   G                724-COM
   GIDLE           1919-LCF
   GO               876/DATA     878-DATA
   GUIDE            906/LI      8016-STW     8034/END
   H                726-COM
   HALT            1291/#TYPE   1297-TEXTCS
   HFF             2006/AND     2018-DATA
   I                728-COM
   IA              1094/STW     1202/DATA    2283-DATA
   ID:EL           1638/LW      1653-TEXT
   ID:EXT          1179/LW      1205-EQU
   IDX:EQ          1666-DATA
   IDX:FLG          946/STW     1663-DATA
   IDX:MSK          944/LW      1665-DATA
   IDX:SAV         2273-DATA
   INI:EXIT         806/STW      875/BAL*     881-DATA
   INIFLG           871/STW      883-DATA
   INITIAL          674/DATA     805-EQU
   IOBCIDX         1677-DATA
   IOFGIDX         1678-DATA
   IO34IDX         1675-DATA
   IO78IDX         1676-DATA
   J                746-CNAME
   J%EXPL          2544-TEXTCS  2736/Z
   JH              1723-TEXTCS  1727/DATA
   JINIT            831/STW      835/STW      837/LB       838/LB       860/LW      1725-TEXTCS
   JL:EXIT         1730/STW     1744-DATA    1885/B*
   JOUT             839/STB      861/STW     1396/STW     1445/LW      1457/STB     1565/LW      1583/LW
      1594/LW      1724-TEXTCS  1726/DATA    1735/LW      1764/STW     1776/STW     1785/STW     1807/STW
      1832/STW     1853/STW     1870/STW     2100/LW
   JP:LST          1738/LW*     1754-DATA    1883/LW*
   JRTA            1729-EQU     2734/E
   K                730-COM
   K%EXPL          2588-TEXTCS  2741/Z
   KH              1889-TEXTCS  1894/DATA
   KINIT            818/STW      824/LB       825/LB      1891-TEXTCS
   KL:EXIT         1896/STW     2002/B*      2021-DATA
   KL:FLG          1426/LW      1442-DATA    1914/STW     1917/STW     2041/STW     2054/STW
   KOUT             826/STB     1310/STW     1327/LW      1330/STW     1703/LW      1890-TEXTCS  1893/DATA
      1902/LW      1946/STW     1948/STW     1968/STW     1969/LW      1971/STW     1989/STW     1991/LW
      1993/STW     2015/STW     2106/LW      2109/LW
   KP:LST          1905/LW      1931-DATA    2000/LW*
   KRTA            1895-EQU     2739/E
   L                732-COM
   LAST:MOD         663/DATA     812/LI      1962/CI      8009-SET
   LASTMODULE      2201/CI      2805/DO      8012-EQU
   LC:C            1930/D       2004-EQU
   LC:EXIT         2268-DATA
   LC:FLG          2261-DATA
   LCNT             850/STW     1361/LW      1364/AW      2009/STW     2019-DATA
   LIST             665/DATA     862/LI      1418/LI      2194/LI      2759-RES
   LISTEXT          912/STW      937/STW     1024/LW      1092/STW     1182/LW      1193-EQU     1214/DATA
   LISTPTR          665-DATA     863/STW      927/LB*      929/LW*      948/LW*      992/LW*     1006/LW*
      1311/LB*     1312/AW      1313/STW     1419/STW     1524/LW*     1532/LB*     1542/LW*     1699/LW*
      2036/LW      2061/LB*     2062/AW      2063/STW     2067/STW
   LISTSAV         2037/STW     2066/LW      2149-DATA
   LO:MSK          1459/AW      1485-DATA
   LOC              797/DATA     910/STW      936/LW       945/AND      963/AND      967/LB       982/LB
       994/CI      1032/AI      1091/STW     1109/B       1110/EXU     1111/B       1113-DATA    1200/DATA
      1203/DATA    1212/DATA    1602/GEN     2091/#HTECON 2280/DATA    2281/DATA    2953/K       2954/K
      2973/K       2974/K       2993/K       2994/K       3013/K       3033/K       3054/K       3055/K
      3075/K       3076/K       3096/K       3097/K       3117/K       3118/K       3138/K       3139/K
      3161/K       3162/K       3182/K       3183/K       3203/K       3204/K       3224/K       3225/K
      3245/K       3246/K       3266/K       3267/K       3289/K       3290/K       3310/K       3311/K
      3331/K       3332/K       3352/K       3353/K       3371/K       3372/K       3390/K       3391/K
      3413/K       3414/K       3432/K       3433/K       3451/K       3452/K       3470/K       3471/K
      3489/K       3490/K       3507/K       3508/K       3525/K       3526/K       3545/K       3546/K
      3565/K       3566/K       3585/K       3586/K       3605/K       3606/K       3623/K       3624/K
      3641/K       3642/K       3661/K       3671/K       3690/K       3691/K       3711/K       3730/K
      3731/K       3749/K       3768/K       3769/K       3787/K       3788/K       3806/K       3825/K
      3844/K       3863/K       3882/K       3883/K       3901/K       3902/K       3920/K       3939/K
      3940/K       3958/K       3977/K       3996/K       3997/K       4015/K       4016/K       4038/K
      4039/K       4057/K       4076/K       4095/K       4096/K       4113/K       4114/K       4133/K
      4134/K       4153/K       4154/K       4173/K       4174/K       4193/K       4213/K       4214/K
      4233/K       4234/K       4253/K       4254/K       4275/K       4276/K       4295/K       4296/K
      4315/K       4316/K       4335/K       4336/K       4355/K       4356/K       4375/K       4376/K
      4395/K       4396/K       4414/K       4415/K       4433/K       4434/K       4452/K       4453/K
      4471/K       4472/K       4490/K       4491/K       4509/K       4510/K       4528/K       4529/K
      4547/K       4548/K       4566/K       4567/K       4584/K       4585/K       4602/K       4603/K
      4622/K       4623/K       4642/K       4643/K       4662/K       4663/K       4682/K       4702/K
      4703/K       4722/K       4723/K       4742/K       4743/K       4764/K       4765/K       4784/K
      4785/K       4804/K       4805/K       4824/K       4825/K       4844/K       4845/K       4864/K
      4865/K       4886/K       4887/K       4904/K       4905/K       4922/K       4923/K       4940/K
      4941/K       4958/K       4959/K       4976/K       4977/K       4994/K       4995/K       5012/K
      5013/K       5030/K       5031/K       5048/K       5049/K       5066/K       5067/K       5084/K
      5085/K       5102/K       5103/K       5120/K       5121/K       5138/K       5139/K       5156/K
      5157/K       5174/K       5175/K       5192/K       5193/K       5210/K       5211/K       5228/K
      5229/K       5246/K       5247/K       5264/K       5265/K       5282/K       5283/K       5300/K
      5301/K       5318/K       5319/K       5336/K       5337/K       5354/K       5355/K       5372/K
      5373/K       5392/K       5393/K       5412/K       5413/K       5432/K       5433/K       5452/K
      5453/K       5472/K       5473/K       5492/K       5493/K       5510/K       5511/K       5528/K
      5529/K       5546/K       5547/K       5564/K       5565/K       5582/K       5583/K       5600/K
      5601/K       5618/K       5619/K       5636/K       5637/K       5654/K       5655/K       5672/K
      5673/K       5690/K       5691/K       5708/K       5709/K       5726/K       5727/K       5744/K
      5745/K       5762/K       5763/K       5780/K       5781/K       5798/K       5799/K       5816/K
      5817/K       5834/K       5835/K       5852/K       5853/K       5870/K       5871/K       5888/K
      5906/K       5924/K       5925/K       5942/K       5943/K       5960/K       5961/K       5978/K
      5979/K       5996/K       5997/K       6014/K       6015/K       6032/K       6033/K       6050/K
      6051/K       6068/K       6069/K       6086/K       6087/K       6104/K       6105/K       6122/K
      6123/K       6140/K       6141/K       6158/K       6176/K       6177/K       6194/K       6195/K
      6212/K       6213/K       6230/K       6231/K       6248/K       6249/K       6266/K       6267/K
      6284/K       6285/K       6303/K       6304/K       6336/K       6369/K       6402/K       6435/K
      6468/K       6501/K       6534/K       6567/K       6600/K       6633/K       6666/K       6699/K
      6732/K       6733/K       6764/K       6765/K       6797/K       6798/K       6830/K       6831/K
      6863/K       6864/K       6896/K       6897/K       6929/K       6930/K       6962/K       6963/K
      6995/K       6996/K       7018/K       7019/K       7052/K       7053/K       7086/K       7087/K
      7119/K       7120/K       7152/K       7153/K       7186/K       7187/K       7220/K       7221/K
      7253/K       7254/K       7286/K       7287/K       7319/K       7337/K       7342/K       7343/K
      7370/K       7371/K       7398/K       7399/K       7426/K       7427/K       7454/K       7455/K
      7472/K       7473/K       7490/K       7509/K       7528/K       7529/K       7547/K       7566/K
      7585/K       7605/N       7606/N       7629/N       7630/N       7651/N       7652/N       7671/N
      7672/N       7695/K       7696/K       7717/K       7718/K       7735/K       7740/K       7760/K
      7761/K       7788/K       7789/K       7816/K       7817/K       7844/K       7845/K       7872/K
      7873/K       7890/K       7891/K       7908/K       7917/K       7918/K       7936/K       7937/K
      7955/K       7956/K       7974/K       7975/K       7993/K       7994/K
   LOCADR          1021/EOR     2280-DATA
   LOC2ADR         2281-DATA
   LS:MSK           817/AND     1309/AND     1527/AND     1551/AND     1557/AND     2229/AND     2255-DATA
   LS:MSK2         2256-DATA
   LST:NUM          813/STW     1941/CW      1951-DATA    2028/CW      2032/CW
   LSTSERVO        1331/BAL     1416-EQU     1425/B       1915/BAL     2052/BAL
   M                734-COM
   MA:PTR          2260-DATA
   MAR:FLG         1466/STW     1479-DATA
   MAR:SET          848/STW     1452/LB      1453/LW      1471/STB     1475-M
   MCR:C           1929/D       1977-EQU     1990/B*      1996/B*
   MCR:NUM          664-DATA     821/STW     1302/LW      1306/STW     1326/STW     1420/CW      1943/STW
      1973/STW     1987/STW     1995/STW     2038/LW      2043/STW     2069/STW
   MCR:SAV         2039/STW     2068/LW      2150-DATA
   MEM:REF          935/STW      943/STW     1053-DATA    1103/STM*    1150/LW*
   MEMORY           934/LI       939/CI       941/CI      1053/DATA    1093/LI      1196/DATA    2283/DATA
      2952/DL      2972/DL      2992/DL      3012/DL      3032/DL      3053/DL      3074/DL      3095/DL
      3116/DL      3137/DL      3160/DL      3181/DL      3202/DL      3223/DL      3244/DL      3265/DL
      3288/DL      3309/DL      3330/DL      3351/DL      3370/DL      3389/DL      3412/DL      3431/DL
      3450/DL      3469/DL      3488/DL      3506/DL      3524/DST     3544/DST     3564/DST     3584/DST
      3604/DST     3622/DST     3640/DST     3660/DST     3670/DST     3689/DST     3710/DST     3729/DST
      3748/DST     3767/DST     3786/DST     3805/DST     3824/DST     3843/DST     3862/DST     3881/DST
      3900/DST     3919/DST     3938/DST     3957/DST     3976/DST     3995/DST     4014/DST     4037/DST
      4056/DST     4075/DST     4094/DST     4112/DA      4132/DA      4152/DA      4172/DA      4192/DA
      4212/DA      4232/DA      4252/DA      4274/DA      4294/DA      4314/DA      4334/DA      4354/DA
      4374/DA      4394/DA      4413/DA      4432/DA      4451/DA      4470/DA      4489/DA      4508/DA
      4527/DA      4546/DA      4565/DA      4583/DS      4601/DS      4621/DS      4641/DS      4661/DS
      4681/DS      4701/DS      4721/DS      4741/DS      4763/DS      4783/DS      4803/DS      4823/DS
      4843/DS      4863/DS      4885/DS      4903/DS      5391/DC      5411/DC      5431/DC      5451/DC
      5471/DC      5491/DC      5509/DM      5527/DM      5545/DM      5563/DM      5581/DM      5599/DM
      5617/DM      5635/DM      5653/DM      5671/DM      5689/DM      5707/DM      5725/DM      5743/DM
      5761/DM      5779/DM      5797/DM      5815/DM      5833/DD      5851/DD      5869/DD      5887/DD
      5905/DD      5923/DD      5941/DD      5959/DD      5977/DD      5995/DD      6013/DD      6031/DD
      6049/DD      6067/DD      6085/DD      6103/DD      6121/DD      6139/DD      6157/DD      6175/DD
      6193/DD      6211/DD      6229/DD      6247/DD      6265/DD      6283/DD      6302/EBS     6330/GEN
      6332/GEN     6335/EBS     6363/GEN     6365/GEN     6368/EBS     6396/GEN     6398/GEN     6401/EBS
      6429/GEN     6431/GEN     6434/EBS     6462/GEN     6464/GEN     6467/EBS     6495/GEN     6497/GEN
      6500/EBS     6528/GEN     6530/GEN     6533/EBS     6561/GEN     6563/GEN     6566/EBS     6594/GEN
      6596/GEN     6599/EBS     6627/GEN     6629/GEN     6632/EBS     6660/GEN     6662/GEN     6665/EBS
      6693/GEN     6695/GEN     6698/EBS     6726/GEN     6728/GEN     6731/EBS     6758/GEN     6760/GEN
      6763/EBS     6791/GEN     6793/GEN     6796/EBS     6824/GEN     6826/GEN     6829/EBS     6857/GEN
      6859/GEN     6862/EBS     6890/GEN     6892/GEN     6895/EBS     6923/GEN     6925/GEN     6928/EBS
      6956/GEN     6958/GEN     6961/EBS     6989/GEN     6991/GEN     6994/EBS     7012/GEN     7014/GEN
      7016/EBS     7045/GEN     7047/GEN     7048/GEN     7050/EBS     7079/GEN     7081/GEN     7082/GEN
      7085/EBS     7113/GEN     7115/GEN     7145/GEN     7146/GEN     7147/GEN     7148/GEN     7151/EBS
      7179/GEN     7181/GEN     7182/DATA    7185/EBS     7213/GEN     7215/GEN     7216/DATA    7219/EBS
      7247/GEN     7249/GEN     7250/GEN     7252/EBS     7280/GEN     7282/GEN     7283/GEN     7313/GEN
      7315/GEN     7316/GEN     7318/UNPK    7336/UNPK    7341/UNPK    7369/UNPK    7397/UNPK    7425/UNPK
      7453/UNPK    7471/UNPK    7489/UNPK    7508/UNPK    7527/UNPK    7546/UNPK    7565/UNPK    7584/UNPK
      7604/UNPK    7628/UNPK    7650/UNPK    7670/UNPK    7694/UNPK    7716/UNPK    7734/PACK    7739/PACK
      7759/PACK    7787/PACK    7815/PACK    7843/PACK    7871/PACK    7889/PACK    7907/PACK    7916/PACK
      7935/PACK    7954/PACK    7973/PACK    7992/PACK    8028-EQU
   MI:ADR           859/HIO*    1860/HIO*    1868/STW     1879-DATA
   MI:C            1753/D       1858-EQU
   MINUS2          1660-DATA
   MNEM:MSG        2186/#TYPE   2189-TEXTC
   MNEM:X2         2183/BCR     2191-LI      2203/B
   MNEMEND         2454-EQU
   MNEMLIST        1545/LW      2182/CW      2324-EQU
   MOD%END         2807-EQU
   MOD:HDR         1686-EQU     1714/B*      2059/BAL
   MOD:MSK         1939/AND     1960/AND     1982/AND     2272-DATA
   MODLIST1        2766-SET     2780-SET     2780/SET     2861-SET     2914/GEN
   MODLIST2        2768-SET     2782-SET     2782/SET     2867-SET     2920/GEN
   MODLIST3        2770-SET     2784-SET     2784/SET     2873-SET     2926/GEN
   MODLIST4        2772-SET     2786-SET     2786/SET     2879-SET     2932/GEN
   MODLIST5        2774-SET     2788-SET     2788/SET     2883-SET     2936/GEN
   MODT            1683-TEXT    1689/LW
   MODULE          2800-CNAME
   MODULE%         2796-SET     2861/SET     2867/SET     2873/SET     2879/SET     2883/SET     2897-SET
   MODULE:         2798-SET     2832-SET     2834-SET     2834/SET     2914/GEN     2920/GEN     2926/GEN
      2932/GEN     2936/GEN
   MODULE#         2794-SET     2857/DO      2859/DO      2861-SET     2865/DO      2867-SET     2871/DO
      2873-SET     2877/DO      2879-SET     2883-SET     2895-SET     2895/SET     2906-SET     2906/SET
      2912/DO      2914/GEN     2914/GEN     2918/DO      2920/GEN     2920/GEN     2924/DO      2926/GEN
      2926/GEN     2930/DO      2932/GEN     2932/GEN     2936/GEN     2936/GEN     8009/SET     8011/SET
   MODULE@         2776-SET     2790-SET     2790/SET     2811/RES     2815/DO      2817/SET     2819/SET
      2844/DO      2846-SET     2850-SET     2850/SET
   MOVER            895/BAL      919-EQU     1082/BAL     2057/BAL
   MR%EXPL         2596-TEXTCS  2726/Z
   MSB21           1947/AW      1970/AW      1992/AW      1998-DATA    2107/AW
   MSG:C           1746/D       1756-EQU
   MSG:CNT         1277/STB     1517/LB      1599-DATA
   MSG:LST         1275/LI      1600-DATA
   MSG:OK          1759/BCR     1762-STW
   MSK:CM          1458/AND     1483-DATA
   MSK:LST         2035/#PRINT  2288-EQU
   MSP:C           1928/D       1955-EQU     1974/B*
   MSP:NUM          663-DATA     814/STW     1304/CW      1908/LW      1966/STW     1985/CW
   MST:C           1927/D       1934-EQU     1949/B*
   MST:INIT        1305/BCS     1316-EQU
   MST:NUM          662-DATA     820/STW     1325/LW      1909/CW      1944/STW     1964/CW      1972/LW
      1983/CW      1994/LW
   MTABLIN         1102/LM      1217/DATA    1221/DATA    1225/DATA    1229/DATA    1231/DATA    1233/DATA
      1235/DATA    1237/DATA    8031-EQU
   MTABLOUT         906/LI       908/STW     1151/LW      1218/DATA    1222/DATA    1226/DATA    1230/DATA
      1232/DATA    1234/DATA    1236/DATA    1238/DATA    8033-EQU
   N                736-COM
   NEG2MSK         1669-DATA
   NEW:CM           867/AND     1455/AND     1461/AND     1481-DATA    1801/AND
   NEW:MSK         1482-DATA
   NEW:MST         1901/STB     1919/LCF     1937/STW     1952-DATA    1958/STW     1980/STW
   NEXT:MOD        2055-STW     2064/BIR
   NO:GEN           960/BCR      982-LB
   NOCI            1336/BCR     1338/BCS     1351-LW
   NODEV           1760/#TYPE   1767-TEXTCS
   OB:CNT          2251-DATA
   OBSEXT          1180/LW      1199-EQU
   ONE             1634/AND     2247-DATA
   ONES            1389/EOR     1781/EOR     1827/EOR     2007/EOR     2046/EOR     2223/EOR     2269-DATA
   OUT:IDX         1662-DATA
   OUTBUF          1281/#PRINT  1508/STW     1512/STW     1518/STB     1690/STW     1692/STW     1694/STW
      1696/STW     1698/STW     1701/STW     1702/STW     1706/STW     1708/STB     1711/#PRINT  2193/STW
      2212/STW     2214/STW     2230/STW     2232/STB     2233/#TYPE   2250-RES
   PACK1           7733-MODULE
   PACK10          7915-MODULE
   PACK11          7934-MODULE
   PACK12          7953-MODULE
   PACK13          7972-MODULE
   PACK14          7991-MODULE
   PACK2           7738-MODULE
   PACK3           7758-MODULE
   PACK4           7786-MODULE
   PACK5           7814-MODULE
   PACK6           7842-MODULE
   PACK7           7870-MODULE
   PACK8           7888-MODULE
   PACK9           7906-MODULE
   PAR:ERR         2156/STW     2157/#PRINT  2163-TEXTCS
   PARA:SET         810-LW
   PAR1:LJ         2172/BCS     2180-LI      2185/BIR
   PASS:CNT         822/STW     1319/LW      1334/LW      1363/LW      1371/LW      1373/STW     1440-DATA
      1554/LW      2011/STW
   PASS:ERR        1253/STW     1332/LW      1360/STW     1679-DATA
   PASS:LIM        1354/CW      1441-DATA
   PASS:OK          845/STW     1351/LW      1353/STW     1439-DATA    1465/STW
   PASSES          2252-DATA
   PLINEIN          676/DATA    1736/CW      1757/#ETHCON 1763/LW      1770/#ETHCON 1775/LW
      1780/#ETHCON 1784/LW      1791/#ETHCON 1806/LW      1816/#ETHCON 1831/LW      1841/#ETHCON 1852/LW
      1859/#ETHCON 1869/LW      1903/CW      1938/#ETHCON 1945/LW      1959/#ETHCON 1967/LW
      1981/#ETHCON 1988/LW      2005/#ETHCON 2014/LW      2749-RES
   PRE:LOC         1090-LW
   PRIV:MSK        1025/AND     1028/AND     1050-DATA
   PRNT:MOD        1711-#PRINT
   PROGTEXT        2457-TEXTCS  8018/GEN
   PSW1             911/STW      997/LW       999/STW     1018/LW      1023/STW     1108/LPSD    1213/DATA
      2276-PZE
   PSW1SAV         2278-DATA
   PSW2             959/STW      987/LW       990/STW     2277-PZE
   PSW2SAV         2279-DATA
   PTR:ADV          901-EQU
   RD:SW           2271-DATA
   READSTAT        2704/E       2754-EQU
   REG:MSK          962/LW      1667-DATA
   REG:SP          1668-DATA
   REGN            1672-EQU
   RES:SAV         1119/STW     1128/STW     1134/STW     1136/STW     1165/LW      8029-EQU
   RESTART         1921/DATA    1924-DATA
   RETURN           770/XPSD     775/XPSD     776/XPSD     777/XPSD     778/XPSD     779/XPSD     780/XPSD
       781/XPSD     782/XPSD     783/XPSD     784/XPSD     785/XPSD     786/XPSD     787/XPSD     788/XPSD
       789/XPSD     790/XPSD     791/XPSD     793/XPSD     795-DATA    1112/BCS     1114/XPSD    1201/DATA
      1207/D
   RM%EXPL         2512-TEXTCS  2721/Z
   RTABLIN          921/STW      925/STD      973/AW      1105/LM      1215/DATA    1219/DATA    1223/DATA
      1227/DATA    1239/DATA    1240/DATA    8030-EQU
   RTABLOUT         922/STW      926/STD     1166/LW      1216/DATA    1220/DATA    1224/DATA    1228/DATA
      1241/DATA    1242/DATA    1243/DATA    8032-EQU
   S%EXPL          2518-EQU     2711/Z
   S:INT            410/ERROR    453/SET      461/SET      469/ERROR    472/ERROR    476/SET      478/SET
       486/DO
   S:PT               3/EQU
   S:RAD            469/ERROR    476/SET      513/ERROR
   S:UFV            469/ERROR    513/ERROR   2762/SET     2780/SET     2782/SET     2784/SET     2786/SET
      2788/SET     2790/SET
   SAMPLE          1069-EQU     1088/BAL
   SAV:RES          898/BAL     1133-EQU
   SAVE            2243-DATA
   SDAT            1067-DATA    1070/MTW     1074/STW
   SEQ:EM          1819/BL      1826-STW
   SEQ:MAR         1793/BL      1800-RD
   SET:CM          1079/B       1085-LW
   SET:IDX         1011/B       1018-LW
   SET:MCR         1984/BCS     1986/BCS     1991-LW
   SET:WL           956/LD      1062-DATA
   SHORTA          1081-LI      1190/BCS
   SHORTL          1097-LI      1118/BCS
   SI               870/STW     1317/LW      1320/AW      1783/STW     1788-DATA
   SI:C            1749/D       1779-EQU
   SN:OEPTR        1674-DATA
   SPACES          1328/LW      1392/LW      1627/LW      1657/LW      1697/LW      1704/LW      2118/LW
      2192/LW      2245-DATA
   START            878/DATA     888-EQU     1924/DATA
   STAT%EXPL       2460-TEXTCS  2706/Z
   STATEXIT        2075/STW     2135/B*      2137-DATA
   STATMSGS        1324/BAL     2074-EQU     2076/STW     2077/STW     2133/LW      2134/LW      2755/BAL
   SYNTAX%EXPL     2474-TEXTCS             2700.1/Z
   TABLE3           675/DATA    2696-EQU
   TABLE3END       2743-DATA
   TEXTCS           580-CNAME
   THREE           1564/AND     1581-DATA
   THRU:TXT        2213/LW      2237-TEXT
   TIC             1866/LI      1874-J       1876/D
   TITLE              3-EQU      386/TITLE   2457/TEXTCS
   TOO:FAR         2216/STB     2222/LB      2236-DATA
   TOT:ERRS         851/STW      882-DATA    1257/LW      1259/STW     2113/#HTECON
   TRAP:FLG         933/STW     1005/STW     1046-DATA
   TRAP:IDX        1035/STW     1049-DATA    1139/LW
   TRAP:SAV         811/STW     1034/STW     1047-DATA    1140/LW
   TRAP:SW          896/BAL     1002-EQU     1083/BAL     2058/BAL
   TRP:SAV1        1048-DATA
   TXT:PTR         1650-EQU
   TXTP1           2153/LW      2160-TEXT
   TXTP2           2155/LW      2161-TEXT
   UNPK09          7488-MODULE
   UNPK1           7317-MODULE
   UNPK10          7507-MODULE
   UNPK11          7526-MODULE
   UNPK12          7545-MODULE
   UNPK13          7564-MODULE
   UNPK14          7583-MODULE
   UNPK15          7603-MODULE
   UNPK16          7627-MODULE
   UNPK17          7649-MODULE
   UNPK18          7669-MODULE
   UNPK19          7693-MODULE
   UNPK2           7335-MODULE
   UNPK20          7715-MODULE
   UNPK3           7340-MODULE
   UNPK4           7368-MODULE
   UNPK5           7396-MODULE
   UNPK6           7424-MODULE
   UNPK7           7452-MODULE
   UNPK8           7470-MODULE
   VALBIT           647-DATA
   VALDEX           651-EQU
   VALTYPE          655-EQU
   VERSION          1.1-EQU        3/EQU
   VM:CM           1356/BAL     1444-EQU
   VM:MSK          1449/AND     1484-DATA
   WL:ZERO          889/LD       890/LD      1057-DATA    1064/DATA
   WLIMAGE         1056-DATA    1062/DATA
   WRD:CNT         1279/STW     1514/CW      1598-DATA
   X40C3           1446/CW      1480-DATA
   Z                740-COM
   ZERO            1438-DATA
   #BRKOUT          614-EQU
   #BTE%            623-EQU
   #DIAG@           677-GEN
   #DISUSER%        624-EQU     1255/BAL*    2080/BAL*
   #DM%END          616-EQU
   #DM%START        615-EQU
   #DMENTRY%        638-EQU
   #ENUSER%         625-EQU     1293/BAL*    2132/BAL*
   #ERRTEXT%        633-EQU     1287/STW*    2082/STW*
   #ERR1PTR%        635-EQU
   #ETH%            485/BAL*     621-EQU
   #ETHCON          450-CNAME
   #FIDLE%          628-EQU     1732/BCR*    1742/B*      1898/BCR*    1920/BAL*    2070/B*      2158/B*
      2187/B*      2234/B*
   #GUIDE%          627-EQU     8017/BAL*
   #HDRFLG          594-EQU      846/STW     1270/CW      1285/STW     2083/LW      2131/STW
   #HTE%            416/BAL*     622-EQU
   #HTECON          407-CNAME
   #INDEX           601-EQU
   #INITIAL@        674-DATA
   #LOADER@         678-DATA    8016/STW
   #LOADFLAG        595-EQU      807/LC
   #MAXMEM          612-EQU
   #MTLFLAG         596-EQU
   #OUTPTR          599-EQU
   #P%MODE%         639-EQU
   #PAKDEX          600-EQU
   #PARAM%H1        602-EQU     2026/LW      2042/LW
   #PARAM%H2        603-EQU     2030/LW
   #PARAM%H3        604-EQU
   #PARAM%H4        605-EQU
   #PARAM1          608-EQU     2169/LW      2171/LW      2177/STW
   #PARAM2          609-EQU
   #PARAM3          610-EQU
   #PARAM4          611-EQU
   #PASS           2762-SET     2762/SET     2764/DO      2809/DO      2836/DO
   #PLINEIN@        676-DATA
   #PRINT           498-CNAME
   #PRINTER%        498/CNAME    632-EQU
   #PRTADDR         598-EQU      829/#HTECON 1762/STW
   #RETURN%         630-EQU     2756/B*
   #RUNADDR%        629-EQU     1274/XPSD*   1283/XPSD*   1292/XPSD*   1368/XPSD*   1713/XPSD*   2121/LW*
   #SAMPLE%         613-EQU     1072/XPSD*
   #SENSE           593-EQU     1117/LC      1189/LC      1267/LC      1289/LC
   #STATUS          607-EQU
   #TABLE1A         592-ORG
   #TABLE1B         620-ORG
   #TABLE2@         673-ORG
   #TABLE3@         675-DATA
   #TESTINIT        606-EQU      874/LC
   #TOADDR          597-EQU      833/#HTECON 1774/STW
   #TYPE            499-CNAME
   #TYPER%          499/CNAME    631-EQU
   #VALTAB%         637-EQU
