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

      592                            *
      593         00000002           #PRINT   CNAME    2,#PRINTER%
      594         00000001           #TYPE    CNAME    1,#TYPER%
      595                                     PROC
      596                            *
      597                                     LOCAL    A
      598                            *
      599                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      600                             '**CF(2) MUST BE POSITIVE INTEGER**'
      601                            *
      602                                     ERROR,0,NUM(CF)>3 ;
      603                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      604                            *
      605                                     ERROR,0,NUM(AF)>NAME(1) ;
      606                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      607                            *
      608                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      609                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      610                            *
      611                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      612                            *
      613                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      614                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      615                            *
      616                                     ERROR,0,A=0  ;
      617                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      618                            *
      619                                     ELSE
      620                            *
      621                            A        SET      0
      622                            *
      623                                     FIN
      624                            *
      625                            LF       BAL,X6   *NAME(2)                                          *A04
      626                            *
      627                                     DO       NUM(CF)=1&NAME(1)=1
      628                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      629                                     ELSE
      630                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      631                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      632                                     ELSE
      633                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      634                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      635                                     ELSE
      636                                     DO       NUM(CF)=2&CF(2)>0
      637                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      638                                     ELSE
      639                                     DO       NUM(CF)=2&CF(2)=0
      640                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      641                                     ELSE
      642                                     DO       NUM(CF)>2&CF(2)>0
      643                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      644                                     ELSE
      645                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      646                                     FIN
      647                                     FIN
      648                                     FIN
      649                                     FIN
      650                                     FIN
      651                                     FIN
      652                            *
      653                            *
      654                                     PEND
      655                            *
      656         000000C0           C0       EQU      X'C0'
      657         000000C1           C1       EQU      X'C1'
      658         000000C2           C2       EQU      X'C2'
      659         000000C3           C3       EQU      X'C3'
      660         000000C4           C4       EQU      X'C4'
      661         000000C5           C5       EQU      X'C5'
      662         000000C6           C6       EQU      X'C6'
      663         000000C7           C7       EQU      X'C7'
      664         000000C8           C8       EQU      X'C8'
      665         000000C9           C9       EQU      X'C9'
      666         000000CA           CA       EQU      X'CA'
      667         000000CB           CB       EQU      X'CB'
      668         000000CC           CC       EQU      X'CC'
      669         000000CD           CD       EQU      X'CD'
      670         000000CE           CE       EQU      X'CE'
      671         000000CF           CF       EQU      X'CF'
      672         000000F0           F0       EQU      X'F0'
      673         000000F1           F1       EQU      X'F1'
      674                            *
      675         00000000           TEXTCS   CNAME
      676                                     PROC
      677                                     DISP     %
      678                                     LIST     0
      679                            LF       TEXTC    AF
      680                                     LIST     1
      681                                     PEND
      682                            *********************************************
      683                                     SYSTEM   SIG9P
1 C00   23:55 JUN 20,'83    SIGMA 9 CPU DIAG DECIMAL 706136-11/51A04  8-31-72                     PAGE    4
A     685                            *********************************************
      686                            *
      687   01 00392                 #TABLE1A   ORG     X'392'           THIS TABLE IS USED BY THE USER
            01 00392
      688         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      689         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      690         01 00394           #LOADFLAG  EQU    %+2
      691         01 00395           #MTLFLAG   EQU    %+3
      692         01 00396           #TOADDR    EQU    %+4
      693         01 00397           #PRTADDR   EQU    %+5
      694                            *                                                                   *A/O
      695         01 00399           #OUTPTR    EQU    %+7
      696         01 0039A           #PAKDEX    EQU    %+8
      697         01 0039B           #INDEX     EQU    %+9
      698         01 0039C           #PARAM%H1 EQU     %+10
      699         01 0039D           #PARAM%H2 EQU     %+11
      700         01 0039E           #PARAM%H3 EQU     %+12
      701         01 0039F           #PARAM%H4 EQU     %+13
      702         01 003A0           #TESTINIT EQU     %+14
      703         01 003A1           #STATUS   EQU     %+15
      704         01 003A2           #PARAM1  EQU      %+16
      705         01 003A4           #PARAM2  EQU      %+18
      706         01 003A6           #PARAM3  EQU      %+20
      707         01 003A8           #PARAM4  EQU      %+22
      708         01 003AA           #MAXMEM   EQU     %+24
      709         01 003AB           #SAMPLE% EQU      %+25                                              *A04
      710         01 003AC           #BRKOUT  EQU      %+26
      711         01 003AD           #DM%START EQU     %+27
      712         01 003AE           #DM%END  EQU      %+28
      713                            *
      714                            ************
      715                            *
      716   01 003C2                 #TABLE1B   ORG     X'3C2'           THIS TABLE IS USED BY USER
            01 003C2
      717         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      718         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      719         01 003C4           #BTE%      EQU    %+2
      720         01 003C5           #DISUSER%  EQU    %+3
      721         01 003C6           #ENUSER%   EQU    %+4
      722                            *
      723         01 003C8           #GUIDE%    EQU    %+6
      724         01 003C9           #FIDLE%    EQU    %+7
      725         01 003CA           #RUNADDR%  EQU    %+8
      726         01 003CB           #RETURN%   EQU    %+9
      727         01 003CC           #TYPER%    EQU    %+10
      728         01 003CD           #PRINTER%  EQU    %+11
      729         01 003CE           #ERRTEXT%  EQU    %+12
      730                            *                                                                   *A03
      731         01 003D0           #ERR1PTR%  EQU    %+14
      732                            *                                                                   *A03
      733         01 003D2           #VALTAB% EQU      %+16
      734         01 003D3           #DMENTRY% EQU     %+17
      735         01 003D4           #P%MODE% EQU      %+18
      736                            *
      737                            **************:
      738                            *
      739                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      740                            *
      741   01 003E5                          ORG      X'3E5'
            01 003E5
      742                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      743   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
      744                            *
      745   01 003E7                          ORG      X'3E7'
            01 003E7
      746                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      747         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      748   01 003E7    00       A            DATA,1   ,,,-30
            01 003E7 1  00       A
            01 003E7 2  00       A
            01 003E7 3  E2       A
      749                            *
      750   01 003EC                          ORG      X'3EC'
            01 003EC
      751         01 003EC           VALTYPE  EQU      %
      752   01 003EC    1E006D84              GEN,8,24  30,BA(ALPHATXT)
      753                            *
      754                            ************
      755                            *
      756   01 003F0                 DCA        ORG     X'3F0'
            01 003F0
      757                            *
      758   01 003F0    00000001 A   MST:NUM  DATA     1
      759   01 003F1    000000F1 A   MSP:NUM  DATA     LAST:MOD
      760   01 003F2    00000001 A   MCR:NUM  DATA     1
      761   01 003F3    00002338     LISTPTR  DATA     LIST
      762                            *                 **********
      763                            *                DESIGNERS CONSTANT AREA.
      764                            *                THIS SECTION IS NOT REQUIRED IF
      765                            *                THE USER PROGRAM DOES NOT USE IT!
      766                            *                **********
      767                            ************
      768                            *
      769   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      770   01 01000    00001034     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      771   01 01001    000022AB     #TABLE3@   DATA   TABLE3
      772   01 01002    000022D4     #PLINEIN@  DATA   PLINEIN
      773   01 01003    80000000 A   #DIAG@   GEN,1,31 1,0               SAMPLE FLAG FOR GUIDE           *A04
      774   01 01004    00000000 A   #LOADER@ DATA     0
      775                            *
      776                            ************
      777                            *                **********
      778         00000000           R0         EQU    0
      779         00000001           R1         EQU    1
      780         00000001           X1         EQU    1
      781         00000002           R2         EQU    2
      782         00000002           X2         EQU    2
      783         00000003           R3         EQU    3
      784         00000003           X3         EQU    3
      785         00000004           R4         EQU    4          **********
      786         00000004           X4         EQU    4          PREFFERED AREA TO BE USED
      787         00000005           R5         EQU    5          FOR USER PROGRAM EQU TABLES.
      788         00000005           X5         EQU    5          NOT MANDATORY BUT DESIRABLE
      789         00000006           R6         EQU    6          FOR CONSISTANTCY.
      790         00000006           X6         EQU    6          **********
      791         00000007           R7         EQU    7
      792         00000007           X7         EQU    7
      793         00000008           R8         EQU    8
      794         00000009           R9         EQU    9
      795         0000000A           R10        EQU    10
      796         0000000B           R11        EQU    11
      797         0000000C           R12        EQU    12
      798         0000000D           R13        EQU    13
      799         0000000E           R14        EQU    14
      800         0000000F           R15        EQU    15
      801                            *
      802                            *
      803                            ************                 **********
      804                            *                            PREFFERED AREA TO BE USED
      805                            *                            FOR USER PROGRAM FORM TABLES.
      806                            *                            NOT MANDATORY BUT DESIRABLE
      807                            *                            FOR CONSISTANTCY.
      808                            **********
      809                            *
      810                            *       FORMS   THE ADDRESS FIELD SPECIFIES HOW THE WORD IS DIVIDED AND
      811                            *              HOW MANY BITS THERE WILL BE IN EACH PART OF THE WORD.
      812                            *              EFFECTIVE AT ASSEMBLY TIME ONLY.
      813                            *
      814                        *S* A        COM,4,4,24 AF(1),AF(2),AF(3)
      815         00000004           D        COM,8,24 AF(1),AF(2)
      816         00000004           E        COM,8,8,16 AF(1),AF(2),AF(3)
      817                        *S* G        COM,16,8,8 AF(1),AF(2),AF(3)
      818         00000004           H        COM,8,8,8,8 AF(1),AF(2),AF(3),AF(4)
      819         00000004           I        COM,4,28 AF(1),AF(2)
      820         00000004           K        COM,4,4,4,20 AF(1),AF(2),AF(3),AF(4)
      821                            L        COM,3,2,3,5,3,1,3,3,3,3,3 AF(1),AF(2),AF(3),AF(4),AF(5),;
      822         00000004                             AF(6),AF(7),AF(8),AF(9),AF(10),AF(11)
      823         00000004           M        COM,4,2,2,2,6,8,8 AF(1),AF(2),AF(3),AF(4),AF(5),AF(6),AF(7)
      824         00000004           N        COM,4,4,4,1,19 AF(1),AF(2),AF(3),AF(4),AF(5)
      825                        *S* F        COM,8,5,19 AF(1),AF(2),AF(3)
      826         00000004           Z        COM,8,2,6,16 AF(1),AF(2),AF(3),AF(4)
      827                            *
      828                            *      PROCS                       EFFECTIVE AT ASSEMBLY TIME ONLY
      829                            *
      830                            *
      831                            *        J        CONVERTS TO BYTE ADDRESS
      832         00000000           J        CNAME
      833                                     PROC
      834                            LF       GEN,8,24 AF(1),BA(AF(2))
      835                                     PEND
      836                            *
      837                            *      R8      ERROR IDENTIFIER AND ADDRESS:
      838                            *              01000000 = INSTRUCTION
      839                            *              02000000 = LOCATION+1 OF THE EXECUTION LOCATION
      840                            *              03000000 = INDIRECT ADDRESS
      841                            *              0400000X = INDEX REGISTER X: X=1(NORMAL) OR 7(ONE)
      842                            *              0500000X = PROGRAM STATUS WORD X: X=1 OR 2
      843                            *              0600000X = REGISTER X: X=C(12)OR D(13)
      844                            *              0700WXYZ = MEMORY WORD IN LOCATION WXYZ (WXYZ=0-FFFF)
      845                            *      R9      EXPECTED  RESULT
      846                            *      R10     OBSERVED RESULT
      847                            *      R11     EXCLUSIVE 'OR' OF R9 AND R10
      848                            *
      849   01 01010                          ORG      X'1010'                                           *A03
            01 01010
      850                                     BOUND    8
      851   01 01010    00000000 A            DATA     0
      852   01 01011    00000000 A            DATA     0
      853   01 01012    00001014              DATA     %+2
      854   01 01013    00000000 A            DATA     0
      855   01 01014    70201010              LC       EXP:TRAP-6
      856   01 01015    0F00102C              XPSD,0   RETURN
      857   01 01016    00000000 A   EXP:TRAP DATA     0
      858   01 01017    00000000 A            DATA     0
      859   01 01018    0000101A              DATA     %+2
      860   01 01019    00000000 A            DATA     0
      861   01 0101A    0F00102C              XPSD,0   RETURN
      862   01 0101B    0F00102C              XPSD,0   RETURN
      863   01 0101C    0F00102C              XPSD,0   RETURN
      864   01 0101D    0F00102C              XPSD,0   RETURN
      865   01 0101E    0F00102C              XPSD,0   RETURN
      866   01 0101F    0F00102C              XPSD,0   RETURN
      867   01 01020    0F00102C              XPSD,0   RETURN
      868   01 01021    0F00102C              XPSD,0   RETURN
      869   01 01022    0F00102C              XPSD,0   RETURN
      870   01 01023    0F00102C              XPSD,0   RETURN
      871   01 01024    0F00102C              XPSD,0   RETURN
      872   01 01025    0F00102C              XPSD,0   RETURN
      873   01 01026    0F00102C              XPSD,0   RETURN
      874   01 01027    0F00102C              XPSD,0   RETURN
      875   01 01028    0F00102C              XPSD,0   RETURN
      876   01 01029    0F00102C              XPSD,0   RETURN
      877   01 0102A    0F00102C              XPSD,0   RETURN
      878                            *
      879   01 0102B    0F80102C     BRANCH   XPSD,8   RETURN
      880                                     BOUND    8
      881   01 0102C    00000000 A   RETURN   DATA     0
      882   01 0102D    00000000 A            DATA     0
      883   01 0102E    000011DF              DATA     LOC+2
      884   01 0102F    00000000 A            DATA     0
      885   01 01030    02000000 A            NOP
      886   01 01031    02000000 A            NOP
      887   01 01032    02000000 A            NOP
      888   01 01033    02000000 A            NOP
1 C00   23:55 JUN 20,'83    SIGMA 9 CPU DIAG DECIMAL 706136-11/51A04  8-31-72                     PAGE    5
A     890                            *
      891                            ********************************************************************
      892                            ***         CONTROL  PROGRAM  BEGINS  HERE            ***
      893                            ********************************************************************
      894                            *
      895         01 01034           INITIAL  EQU      %
      896   01 01034    356010BA              STW,X6     INI:EXIT        YES RECOVERY IF 'LOADFLAG'
      897   01 01035    70200394              LC       #LOADFLAG         IS ZERO.
      898   01 01036    69F010B0              BCS,15   BYPASS
      899                            *
      900   01 01037    32600395              LW,X6    #MTLFLAG          #MTLFLAG CONTAINS THE ADDRESS
      901   01 01038    68301047              BCR,3    NOTAPE            OF THE MAGTAPE LIBRARY'S LINK
      902   01 01039    328010BC              LW,R8    INIFLG
      903   01 0103A    69301042              BCS,3    NOTAPE-5
      904   01 0103B    328C0004 A            LW,R8    4,X6              TABLE IF THE PROGRAM IS LOADED
      905   01 0103C    35801C39              STW,R8   TAPE0ADR          FROM TAPE; OTHERWISE IT IS 0.
      906   01 0103D    20800001 A            AI,R8    1
      907   01 0103E    35801C3A              STW,R8   TAPE1ADR          IDX:TAPE IS A SIBROUTINE USED
      908   01 0103F    20800001 A            AI,R8    1                 TO POSITION THE LIBRARY TAPE
      909   01 01040    35801C3B              STW,R8   TAPE2ADR          AT THE SNAP COMPARE DATA.
      910   01 01041    68001047              B        NOTAPE
      911   01 01042    32801B73              LW,R8    SO
      912   01 01043    68301047              BCR,3    NOTAPE
      913   01 01044    21800007 A            CI,R8    7
      914   01 01045    68301047              BCR,3    NOTAPE
      915   01 01046    6AF01781              BAL,R15  MAR:TAPE
      916                            *
      917   01 01047    328010BC     NOTAPE   LW,R8    INIFLG            SET:MEM IS A SUBROUTINE USED
      918   01 01048    6930104A              BCS,3    %+2               TO SET UP BUFFER ADDRESSES TO
      919   01 01049    6AE0172B              BAL,R14  SET:MEM           BE USED BY THE SNAP ROUTINES
      920                            *                                   ACCORDING TO AVAIALABLE MEMORY.
      921   01 0104A    32800040 A   PARA:SET LW,R8    X'40'             ONLY REQ'D ONCE PER LOAD.
      922   01 0104B    35801189              STW,R8   TRAP:SAV
      923   01 0104C    328010BD              LW,R8    NO:DEC
      924   01 0104D    46800041 A            XW,R8    X'41'
      925   01 0104E    3580118A              STW,R8   TRP:SAV1
      926   01 0104F    02000000 A            NOP
      927   01 01050    02000000 A            NOP
      928   01 01051    02000000 A            NOP
      929   01 01052    02000000 A            NOP
      930   01 01053    228000F1 A            LI,R8    LAST:MOD          RESTORE 'MODULE STOP' AND LAST
      931   01 01054    358019C0              STW,R8   LST:NUM           NUMBER TO THE LAST MODULE #.
      932   01 01055    358003F1              STW,R8   MSP:NUM
      933   01 01056    EA6003C3              #HTECON  R8
            01 01057    00000008 A
      934   01 01058    328C0001 A            LW,R8    1,X6              INITIALIZE THE VALUES IN THE
      935   01 01059    4B801C2C              AND,R8   LS:MSK            K-PARAMETER LINE BY FIRST SET-
      936   01 0105A    35801978              STW,R8   KINIT+1           TING UP THE K-INITIAL LINE &
      937   01 0105B    22800001 A            LI,R8    1                 THEN WRITING IT OVER THE K-
      938   01 0105C    358003F0              STW,R8   MST:NUM           PARAMETER LINE.
      939   01 0105D    358003F2              STW,R8   MCR:NUM
      940   01 0105E    3580141B              STW,R8   PASS:CNT
      941   01 0105F    228011DD              LI,R8    LOC               SET VALUE OF 'LOC' IN
      942   01 01060    EA6003C3              #HTECON  R8                K-PARAMETER LINE.
            01 01061    00000008 A
      943   01 01062    328C0001 A            LW,R8    1,X6
      944   01 01063    3580197F              STW,R8   KINIT+8
      945                            *
      946   01 01064    72201977              LB,X2    KINIT
      947   01 01065    72841977              LB,R8    KINIT,X2
      948   01 01066    7584196E              STB,R8   KOUT,X2
      949   01 01067    64201065              BDR,X2   %-2
      950                            *
      951   01 01068    EA6003C3              #HTECON  #PRTADDR
            01 01069    00000397
      952   01 0106A    328C0001 A            LW,R8    1,X6              INITIALIZE THE VALUES IN THE
      953   01 0106B    358018A6              STW,R8   JINIT+1           J-PARAMETER LINE BY FIRST SET-
      954                            *                                   TING UP THE J-INITIAL LINE &
      955   01 0106C    EA6003C3              #HTECON  #TOADDR           THE WRTITING IT OVER THE
            01 0106D    00000396
      956   01 0106E    328C0001 A            LW,R8    1,X6              J-PARAMETER LINE.
      957   01 0106F    358018A8              STW,R8   JINIT+3
      958                            *
      959   01 01070    722018A5              LB,X2    JINIT
      960   01 01071    728418A5              LB,R8    JINIT,X2
      961   01 01072    7584189A              STB,R8   JOUT,X2
      962   01 01073    64201071              BDR,X2   %-2
      963                            *
      964   01 01074    22800000 A            LI,R8    0
      965   01 01075    35801C30              STW,R8   FTFL
      966   01 01076    35801C2E              STW,R8   ERR:CNT           FLAGS AND COUNTS THAT MUST BE
      967   01 01077    3580141A              STW,R8   PASS:OK           CLEARED TO ZERO UPON ANY 'YES'
      968   01 01078    35801501              STW,R8   SNAP:FLG          RECOVERY.
      969   01 01079    35801B73              STW,R8   SO
      970   01 0107A    35800393              STW,R8   #HDRFLG
      971   01 0107B    358013FA              STW,R8   EM
      972   01 0107C    3580143B              STW,R8   MAR:SET-1
      973   01 0107D    358011FC              STW,R8   CI:CNT
      974   01 0107E    358019FE              STW,R8   LCNT
      975   01 0107F    35801C33              STW,R8   CK:BIAS
      976   01 01080    35801C5D              STW,R8   CARD:SW
      977   01 01081    35801C5E              STW,R8   END:FLG
      978   01 01082    35801C5F              STW,R8   RD:SW
      979   01 01083    358010BB              STW,R8   TOT:ERRS
      980   01 01084    35801502              STW,R8   SNAP:UNC
      981   01 01085    35801505              STW,R8   GEN:FLG
      982   01 01086    35801C2F              STW,R8   ERR:FLG
      983   01 01087    35801A47              STW,R8   WDT:SNAP
      984   01 01088    358011AB              STW,R8   SNAPINT
      985   01 01089    35801506              STW,R8   VER:FLG
      986   01 0108A    358013F9              STW,R8   EM:FLG                                            *A02
      987   01 0108B    02000000 A            NOP
      988   01 0108C    02000000 A            NOP
      989   01 0108D    02000000 A            NOP
      990   01 0108E    02000000 A            NOP
      991   01 0108F    02000000 A            NOP
      992   01 01090    22800040 A            LI,R8    X'40'                                             *A04
      993   01 01091    6D801100 A            WD,R8    X'1100'                                           *A04
      994   01 01092    2280E390 A            LI,R8    X'E390'                                           *A02
      995   01 01093    35801931              STW,R8   CI:SAV                                            *A02
      996   01 01094    32801C43              LW,R8    SNAP:INI
      997   01 01095    35801C42              STW,R8   SNAP:SET
      998   01 01096    128011A6              LD,R8    CLR:WL
      999   01 01097    6F820000 A            MMC,R8   1
     1000   01 01098    CF001954              HIO,0    *MI:ADR           TURN OFF MEMORY INTERFERRENCE.
     1001   01 01099    328018AF              LW,R8    JINIT+10
     1002   01 0109A    358018A4              STW,R8   JOUT+10
     1003   01 0109B    22802338              LI,R8    LIST
     1004   01 0109C    358003F3              STW,R8   LISTPTR           RESET THE LISTPTR BACK TO THE
     1005   01 0109D    6C800045 A            RD,R8    X'45'             FIRST MODULE IN THE LIST.
     1006   01 0109E    35801446              STW,R8   CM:ON                                             *A01
     1007   01 0109F    35801447              STW,R8   CM:OFF                                            *A02
     1008   01 010A0    4B801441              AND,R8   NEW:CM            RESET THE CLOCK MARGINS TO
     1009   01 010A1    6D800045 A            WD,R8    X'45'             NORMAL.  RESET MAX CLOCK OVER-
     1010   01 010A2    32801A45              LW,R8    NORM:SNP          RIDE SET BY CB=FF IN K LINE.
     1011   01 010A3    35801227              STW,R8   SNAP:SW           PREPARE COUNTER ZERO ACTIVATION
     1012   01 010A4    228FFFF6 A            LI,R8    -10               SET THE STATUS REPORT INTERVAL
     1013   01 010A5    358018F1              STW,R8   SI                BACK TO ITS DEFAULT VALUE(10).
     1014   01 010A6    358010BC              STW,R8   INIFLG
     1015   01 010A7    32801822              LW,R8    CK:LIMIT          SET THE CLOCK END POINTER FOR
     1016   01 010A8    35801C41              STW,R8   CE:PTR            SNAPSHOT TO THE MAX VALUE CAL-
     1017   01 010A9    02000000 A            NOP                        CULATED BY THE SET:MEM ROUTINE.
     1018   01 010AA    02000000 A            NOP
     1019   01 010AB    02000000 A            NOP
     1020   01 010AC    22800001 A            LI,R8    1                 CK:SAV IS USED BY THE 'BACK12'
     1021   01 010AD    35801C37              STW,R8   CK:SAV-1          ROUTINE OF SNAP TO KEEP SNAP
     1022   01 010AE    35801C36              STW,R8   CK:SAV-2          OUTPUT ROUTINE FROM BACKING UP
     1023   01 010AF    35801C35              STW,R8   CK:SAV-3          1 CLOCK IN SEMI-INTERLACED
     1024   01 010B0    6C800049 A   BYPASS   RD,R8    X'49'             RESET SNAP
     1025   01 010B1    22800000 A            LI,R8    0                 OF ALL IMPLEMENTED COUNTERS     *A01
     1026   01 010B2    358011FC              STW,R8   CI:CNT            (AFTER 11TH ERROR FREE PASS).   *A01
     1027   01 010B3    02000000 A            NOP                        TURN OFF ANY COUNTERS SELECTED. *A01
     1028                            *                                   MODE WHE FAILING CLOCK IS #1.
     1029   01 010B4    702003A0              LC       #TESTINIT
     1030   01 010B5    EA6010BA              BAL,X6    *INI:EXIT        BYTE 0 OF #TESTINIT CONTROLS
     1031   01 010B6    000010B8              DATA     GO                THE AUTOMATIC START FEATURE
     1032                                     BOUND    8                 OF GUIDE INTERFACED PROGRAMS.
     1033   01 010B8    000010CF     GO       DATA     START             IF THE CC VALUE FETCHED IS NOT
     1034   01 010B9    00000000 A            DATA     0                 ZERO, THEN GUIDE WILL GO TO
     1035                            *                                   IDLE INSTEAD OF RUN.
     1036   01 010BA    00000000 A   INI:EXIT DATA     0
     1037   01 010BB    00000000 A   TOT:ERRS DATA    0
     1038   01 010BC    00000000 A   INIFLG   DATA     0
     1039   01 010BD    0F9010BE     NO:DEC   XPSD,9   TRAP:DEC
     1040                                     BOUND    8
     1041   01 010BE    00000000 A   TRAP:DEC DATA     0,0,%+2,0
            01 010BF    00000000 A
            01 010C0    000010C2
            01 010C1    00000000 A
     1042   01 010C2    02000000 A            NOP
     1043   01 010C3    EA6003CC              #TYPE    DEC:MSG
            01 010C4    00004324 A
     1044   01 010C5    8F9003CA              XPSD,9   *#RUNADDR%
     1045   01 010C6    3280118A              LW,R8    TRP:SAV1
     1046   01 010C7    46800041 A            XW,R8    X'41'
     1047   01 010C8    0E3010BE              LPSD,3   TRAP:DEC
     1048                            *
     1049         01 010C9           DEC:MSG  TEXTCS   'DECIMAL NOT INSTALLED'
1 C00   23:55 JUN 20,'83    SIGMA 9 CPU DIAG DECIMAL 706136-11/51A04  8-31-72                     PAGE    6
A    1051                            *
     1052                            **** NON-INITIALIZED START BEGINS HERE ****
     1053                            *
     1054         01 010CF           START    EQU      %
     1055   01 010CF    22C00000 A            LI,R12   0
     1056   01 010D0    35C01501              STW,R12  SNAP:FLG
     1057   01 010D1    22C011C8              LI,R12   SHORTL
     1058   01 010D2    35C014FF              STW,R12  SHORTPTR
     1059   01 010D3    12C01193              LD,R12   WL:ZERO
     1060   01 010D4    12E01193              LD,R14   WL:ZERO
     1061   01 010D5    7D001193              DC,0     WL:ZERO
     1062                            *
     1063         01 010D6           AUTOTEST EQU      %
     1064   01 010D6    6AF010E2              BAL,R15  CLR:AUTO          CLEAR DRIVER FOR TEST MODULE.
     1065   01 010D7    22A012F8              LI,R10   AUTO:DL           MOVE MODULE DATA INTO DRIVER
     1066   01 010D8    6AF010EE              BAL,R15  MOVER             USING DISPERSION LIST(AUTO:DL).
     1067   01 010D9    6AF0115F              BAL,R15  TRAP:SW           SET UP FOR TRAP IF ONE IS EXP
     1068   01 010DA    32A01501              LW,R10   SNAP:FLG          SNAP:FLG IS SET IN K-LINE OR AT
     1069   01 010DB    683010DD              BCR,3    %+2               FT:ERR DEPENDING UPON OPTION(SO)
     1070   01 010DC    6AF011FD              BAL,R15  SNAP:CON
     1071   01 010DD    6AF011A8              BAL,R15  EXU:AUTO          EXECUTE TEST MODULE
     1072   01 010DE    6AF011F1              BAL,R15  SAV:RES           SAVE TEST RESULTS
     1073   01 010DF    6AF012BD              BAL,R15  CMP:AUTO          COMPARE OBS'D W/EXP'D
     1074                            *
     1075         01 010E0           PTR:ADV  EQU      %
     1076   01 010E0    6AF01360              BAL,R15  ADV:PTR           ADVANCE LISTPTR & TEST FOR
     1077   01 010E1    680010D3              B        AUTOTEST-3                                          *A03
     1078                            *
     1079         01 010E2           CLR:AUTO EQU      %
     1080   01 010E2    221FFE35 A            LI,X1    (SN:OBS-SBUF:END)+6
     1081   01 010E3    22800000 A            LI,R8    0
     1082   01 010E4    35823860              STW,R8   SBUF:END,X1
     1083   01 010E5    651010E4              BIR,X1   %-1
     1084   01 010E6    358011DD              STW,R8   LOC
     1085   01 010E7    35801C64              STW,R8   PSW1
     1086   01 010E8    358012ED              STW,R8   LISTEXT+1
     1087   01 010E9    02000000 A            NOP
     1088   01 010EA    02000000 A            NOP
     1089   01 010EB    02000000 A            NOP
     1090   01 010EC    02000000 A            NOP
     1091   01 010ED    E800000F A            B        *R15
     1092                            *
     1093                            *            CALLING SEQUENCE
     1094                            *        LI,R10   AUTO:DL
     1095                            *        BAL,R15  MOVER
     1096                            *
     1097         01 010EE           MOVER    EQU      %
     1098   01 010EE    22800001 A            LI,R8    1
     1099   01 010EF    35803821              STW,R8   RTABLIN+1
     1100   01 010F0    35803841              STW,R8   RTABLOUT+1
     1101   01 010F1    22800002 A            LI,R8    2
     1102   01 010F2    22900003 A            LI,R9    3
     1103   01 010F3    15803822              STD,R8   RTABLIN+2
     1104   01 010F4    15803842              STD,R8   RTABLOUT+2
     1105   01 010F5    F21003F3              LB,X1    *LISTPTR          MOVE MODULE DATA FROM 'LIST' BY
     1106   01 010F6    02000000 A            NOP
     1107   01 010F7    201FFFFF A            AI,X1    -1                INDEXING THRU MODULE DISPERSION
     1108   01 010F8    B28203F3              LW,R8    *LISTPTR,X1       LIST.  USE MODULE COUNT AS INDEX
     1109   01 010F9    B292000A A            LW,R9    *R10,X1           TO LIST & DISPERSION LIST.
     1110   01 010FA    B5800009 A            STW,R8   *R9
     1111   01 010FB    641010F8              BDR,X1   %-3
     1112   01 010FC    35101188              STW,X1   TRAP:FLG          CLEAR TRAP FLAG.
     1113                            *
     1114   01 010FD    32801B73              LW,R8    SO
     1115   01 010FE    68301108              BCR,3    SKIPEM
     1116   01 010FF    21800007 A            CI,R8    7
     1117   01 01100    68301108              BCR,3    SKIPEM
     1118   01 01101    328018AB              LW,R8    JINIT+6
     1119   01 01102    358018A0              STW,R8   JOUT+6
     1120   01 01103    22800000 A            LI,R8    0
     1121   01 01104    358013FA              STW,R8   EM
     1122   01 01105    358011FC              STW,R8   CI:CNT
     1123   01 01106    2280E390 A            LI,R8    X'E390'
     1124   01 01107    6D801100 A            WD,R8    X'1100'
     1125   01 01108    22803800     SKIPEM   LI,R8    MEMORY
     1126   01 01109    3580118F              STW,R8   MEM:REF
     1127   01 0110A    328011DD              LW,R8    LOC
     1128   01 0110B    358012EC              STW,R8   LISTEXT
     1129   01 0110C    4B801C6A              AND,R8   ADR:MSK
     1130   01 0110D    218037F8              CI,R8    MEMORY-8
     1131   01 0110E    69101112              BCS,1    %+4
     1132   01 0110F    21803804              CI,R8    MEMORY+4
     1133   01 01110    69201112              BCS,2    %+2
     1134   01 01111    3580118F              STW,R8   MEM:REF
     1135   01 01112    328014F3              LW,R8    IDX:MSK
     1136   01 01113    4B8011DD              AND,R8   LOC
     1137   01 01114    358014F1              STW,R8   IDX:FLG
     1138                            *
     1139   01 01115    22900000 A            LI,R9    0
     1140   01 01116    B28003F3              LW,R8    *LISTPTR
     1141   01 01117    21801000 A            CI,R8    X'1000'
     1142   01 01118    6840111A              BCR,4    %+2
     1143   01 01119    229FFFFF A            LI,R9    -1
     1144   01 0111A    35901190              STW,R9   CT:FLG
     1145                            *
     1146                            *
     1147   01 0111B    22900000 A            LI,R9    0
     1148   01 0111C    32801190              LW,R8    CT:FLG
     1149   01 0111D    68301121              BCR,3    %+4
     1150   01 0111E    12A011A4              LD,R10   SET:WL
     1151   01 0111F    6FA20000 A            MMC,R10  1
     1152   01 01120    32901191              LW,R9    CLN:TRP
     1153   01 01121    35901C65              STW,R9   PSW2
     1154   01 01122    68301140              BCR,3    NO:GEN
     1155                            *
     1156   01 01123    22900000 A            LI,R9    0
     1157   01 01124    328014F5              LW,R8    REG:MSK
     1158   01 01125    4B8011DD              AND,R8   LOC
     1159   01 01126    2580006C A            SLS,R8   -20
     1160   01 01127    69301129              BCS,3    %+2
     1161   01 01128    22800010 A            LI,R8    16
     1162   01 01129    72A011DD              LB,R10   LOC
     1163   01 0112A    4BA01C2B              AND,R10  CON7F
     1164   01 0112B    21A00077 A            CI,R10   X'77'
     1165   01 0112C    6930112F              BCS,3    %+3
     1166   01 0112D    25800001 A            S,R8     1
     1167   01 0112E    208FFFFF A            AI,R8    -1
     1168   01 0112F    30803823              AW,R8    RTABLIN+3
     1169   01 01130    21800011 A            CI,R8    17
     1170   01 01131    69101136              BCS,1    %+5
     1171   01 01132    33100009 A            MTW,1    R9
     1172   01 01133    21800019 A            CI,R8    25
     1173   01 01134    69101136              BCS,1    %+2
     1174   01 01135    33100009 A            MTW,1    R9
     1175   01 01136    359014F2              STW,R9   DCMEM
     1176                            *
     1177   01 01137    02000000 A            NOP
     1178   01 01138    02000000 A            NOP
     1179   01 01139    02000000 A            NOP
     1180   01 0113A    02000000 A            NOP
     1181   01 0113B    02000000 A            NOP
     1182   01 0113C    02000000 A            NOP
     1183   01 0113D    02000000 A            NOP
     1184   01 0113E    02000000 A            NOP
     1185   01 0113F    02000000 A            NOP
     1186   01 01140    72A011DD     NO:GEN   LB,R10   LOC
     1187   01 01141    21A00063 A            CI,R10   X'63'
     1188   01 01142    69301145              BCS,3    %+3
     1189   01 01143    22AFFFFF A            LI,R10   -1
     1190   01 01144    35A014F2              STW,R10  DCMEM
     1191   01 01145    32801C65              LW,R8    PSW2              DUMMY DATA IS PUT IN PSW2 TO
     1192   01 01146    4B801181              AND,R8   FILL:MSK          OBSERVE A NON-ZERO DATA FLOW
     1193   01 01147    48801182              EOR,R8   FILLER            IN SNAPSHOT OUTPUT.
     1194   01 01148    35801C65              STW,R8   PSW2
     1195   01 01149    22100003 A            LI,X1    3
     1196   01 0114A    B28203F3              LW,R8    *LISTPTR,X1       PECTED VALUE IS LOC+1.
     1197   01 0114B    4B801C6A              AND,R8   ADR:MSK           IF PSW1 OUT ADDRESS IS LOC+2
     1198   01 0114C    218011DF              CI,R8    LOC+2
     1199   01 0114D    6830115A              BE       INC:RET           INCREMENT THE RETURN ADDRESS
     1200   01 0114E    02000000 A            NOP
     1201   01 0114F    02000000 A            NOP
     1202   01 01150    02000000 A            NOP
     1203   01 01151    02000000 A            NOP
     1204   01 01152    02000000 A            NOP
     1205   01 01153    02000000 A            NOP
     1206   01 01154    E800000F A            B        *R15
     1207   01 01155    02000000 A            NOP
     1208   01 01156    02000000 A            NOP
     1209   01 01157    02000000 A            NOP
     1210   01 01158    02000000 A            NOP
     1211   01 01159    02000000 A            NOP
     1212   01 0115A    20F00001 A   INC:RET  AI,R15   1
     1213   01 0115B    32801C64              LW,R8    PSW1
     1214   01 0115C    308013FA              AW,R8    EM
     1215   01 0115D    35801C64              STW,R8   PSW1
     1216   01 0115E    E800000F A            B        *R15
     1217                            *
     1218         01 0115F           TRAP:SW  EQU      %
     1219   01 0115F    22100003 A            LI,X1    3
     1220   01 01160    3290102B              LW,R9    BRANCH
     1221   01 01161    35801188              STW,R8   TRAP:FLG
     1222   01 01162    B28203F3              LW,R8    *LISTPTR,X1
     1223   01 01163    4B801C6A              AND,R8   ADR:MSK           TEST PSW1 OUT ADDRESS TO SELECT
     1224   01 01164    31801183              CW,R8    EX:TRP0           APPROPRIATE XPSD FOR EXPECTED
     1225   01 01165    69301168              BNE      %+3               TRAP LOCATION.  USE EXTRAP46 IF
     1226   01 01166    32901187              LW,R9    EXTRAP46          PSW1 SAYS EXP:TRAP, USE EXTRAP00 IF
     1227   01 01167    6800116D              B        SET:IDX           PSW1 SAYS EXP:TRAP+5.  IF NEITHER
     1228   01 01168    31801184              CW,R8    EX:TRP5           OF ABOVE, USE EXTRAP40 FOR ADD
     1229   01 01169    6930116C              BNE      %+3               IMMEDIATE TYPES.
     1230   01 0116A    32901185              LW,R9    EXTRAP00
     1231   01 0116B    6800116D              B        %+2
     1232   01 0116C    32901186              LW,R9    EXTRAP40
     1233                            *
     1234   01 0116D    32501C64     SET:IDX  LW,X5    PSW1
     1235   01 0116E    32800005 A            LW,R8    X5
     1236   01 0116F    4B801504              AND,R8   FLAG:MSK
     1237   01 01170    48801C68              EOR,R8   LOCADR            FETCH PSW1 IN, SET ADDRESS TO
     1238   01 01171    308013FA              AW,R8    EM                'LOC' AND ADD THE EXECUTION MODE
     1239   01 01172    35801C64              STW,R8   PSW1              BIAS.
     1240                            *
     1241   01 01173    328012ED              LW,R8    LISTEXT+1
     1242   01 01174    4B80118C              AND,R8   PRIV:MSK          PLACE EXPECTED FLAGS FROM TEST
     1243   01 01175    4880118D              EOR,R8   ETP4:ADR          MODULE'S PSW1-IN IN APPROPRIATE
     1244   01 01176    35801018              STW,R8   EXP:TRAP+2        TRAP LOCATION FOR COMPARATOR
     1245   01 01177    4B80118C              AND,R8   PRIV:MSK          VALIDATION AT CMP:AUTO.
     1246   01 01178    4880118E              EOR,R8   ETM2:ADR
     1247   01 01179    35801012              STW,R8   EXP:TRAP-4
     1248                            *
     1249   01 0117A    4B501C6A              AND,X5   ADR:MSK           COMPUTE THE LOCATION OF EXPECTED
     1250   01 0117B    205FEE23 N            AI,X5    0-LOC             TRAP BY USING THE EXCESS COUNT
     1251   01 0117C    328A0040 A            LW,R8     X'40',X5         AS AN INDEX (X5).
     1252   01 0117D    35801189              STW,R8   TRAP:SAV          SAVE THE OLD TRAP CONTENTS AND THE
     1253   01 0117E    3550118B              STW,X5   TRAP:IDX          INDEX COUNT TO RESTORE UPON EXIT.
     1254   01 0117F    359A0040 A            STW,R9    X'40',X5
     1255   01 01180    E800000F A            B        *R15
     1256                            *
     1257   01 01181    FFC0FFFF A   FILL:MSK DATA     X'FFC0FFFF'
     1258   01 01182    003F0000 A   FILLER   DATA     X'3F0000'
     1259   01 01183    00001016     EX:TRP0  DATA     EXP:TRAP
     1260   01 01184    0000101B     EX:TRP5  DATA     EXP:TRAP+5
     1261   01 01185    0F001016     EXTRAP00 XPSD,0   EXP:TRAP
     1262   01 01186    0F401016     EXTRAP40 XPSD,4   EXP:TRAP
     1263   01 01187    0F001010     EXTRAP46 XPSD,0   EXP:TRAP-6
     1264   01 01188    00000000 A   TRAP:FLG DATA     0
     1265   01 01189    00000000 A   TRAP:SAV DATA     0
     1266   01 0118A    00000000 A   TRP:SAV1 DATA     0
     1267   01 0118B    00000000 A   TRAP:IDX DATA     0
     1268   01 0118C    FF3E0000 A   PRIV:MSK DATA     X'FF3E0000'
     1269   01 0118D    0000101A     ETP4:ADR DATA     EXP:TRAP+4
     1270   01 0118E    00001014     ETM2:ADR DATA     EXP:TRAP-2
     1271   01 0118F    00003800     MEM:REF  DATA     MEMORY
     1272   01 01190    00000000 A   CT:FLG   DATA     0
     1273   01 01191    30000000 A   CLN:TRP  DATA     X'30000000'
     1274   01 01192    0000FF80 A   WLIMAGE  DATA     X'0000FF80'
     1275   01 01193    00000000 A   WL:ZERO  DATA     0,0,0,0
            01 01194    00000000 A
            01 01195    00000000 A
            01 01196    00000000 A
     1276   01 01197    00000000 A            DATA     0,0,0,0
            01 01198    00000000 A
            01 01199    00000000 A
            01 0119A    00000000 A
     1277   01 0119B    00000000 A            DATA     0,0,0,0
            01 0119C    00000000 A
            01 0119D    00000000 A
            01 0119E    00000000 A
     1278   01 0119F    00000000 A            DATA     0,0,0,0
            01 011A0    00000000 A
            01 011A1    00000000 A
            01 011A2    00000000 A
     1279                                     BOUND    8
     1280   01 011A4    00001192     SET:WL   DATA     WLIMAGE
     1281   01 011A5    01002000 A            DATA     X'01002000'
     1282   01 011A6    00001193     CLR:WL   DATA     WL:ZERO
     1283   01 011A7    10000000 A            DATA     X'10000000'
     1284                            *
     1285                            *
     1286         01 011A8           EXU:AUTO EQU      %
     1287   01 011A8    35F011F0              STW,R15  EXIT:EXU
     1288   01 011A9    02000000 A            NOP
     1289   01 011AA    680011B7              B        SET:CM
     1290                            *
     1291   01 011AB    00000000 A   SNAPINT  DATA     0
     1292   01 011AC    088011D8 N   SNAPINI  GEN,8,1,7,16  8,1,0,LOC-5
     1293   01 011AD    FFFFFF9C A   SDAT     DATA     -100                                              *A04
     1294                            *                                                                   *A04
     1295                            *                                                                   *A04
     1296         01 011AE           SAMPLE   EQU      %                                                 *A04
     1297   01 011AE    331011AD              MTW,1    SDAT                                              *A04
     1298   01 011AF    E820000F A           BCR,2     *R15                                              *A04
     1299   01 011B0    8F0003AB              XPSD,0   *#SAMPLE%                                         *A04
     1300   01 011B1    22CFFF9C A            LI,R12   -100                                              *A04
     1301   01 011B2    35C011AD              STW,R12  SDAT                                              *A04
     1302   01 011B3    E800000F A            B        *R15                                              *A04
     1303                            *
     1304   01 011B4    22A012F8     SHORTA   LI,R10   AUTO:DL
     1305   01 011B5    6AF010EE              BAL,R15  MOVER
     1306   01 011B6    6AF0115F              BAL,R15  TRAP:SW
     1307                            *
     1308   01 011B7    32701446     SET:CM   LW,X7    CM:ON             TURN SELECTED CLOCK MARGIN ON.
     1309   01 011B8    6D700045 A            WD,X7    X'45'
     1310   01 011B9    02000000 A            NOP
     1311   01 011BA    02000000 A            NOP                        THIS SET OF NOP'S ARE LEFT FOR
     1312   01 011BB    02000000 A            NOP                        THE USER TO INNOVATE AS HE SEES
     1313   01 011BC    02000000 A            NOP                        FIT.  THEY ARE OUTSIDE SHORT
     1314   01 011BD    32F01505              LW,R15   GEN:FLG                                           *A04
     1315   01 011BE    30F01507              AW,R15   VER:END                                           *A04
     1316   01 011BF    693011C1              BCS,3    %+2                                               *A04
     1317   01 011C0    6AF011AE              BAL,R15  SAMPLE                                            *A04
1 C00   23:55 JUN 20,'83    SIGMA 9 CPU DIAG DECIMAL 706136-11/51A04  8-31-72                     PAGE    7
A    1319   01 011C1    32F0102B     PRE:LOC  LW,R15   BRANCH            RESTORE XPSD IN LOC+1 AND IN
     1320   01 011C2    35F011DE              STW,R15  LOC+1             COMPARATOR REFERENCE TABLE.
     1321   01 011C3    35F012EF              STW,R15  LISTEXT+3         RESTORE INDIRECT ADDRESS (IA).
     1322   01 011C4    22F03800              LI,R15   MEMORY
     1323   01 011C5    35F01C6B              STW,R15  IA
     1324   01 011C6    32F011FC              LW,R15   CI:CNT            TURN ON COUNTERS AFTER 56TH     *A04
     1325   01 011C7    6DF01200 A            WD,R15   X'1200'           ERROR FREE PASS.
     1326   01 011C8    32F011AB     SHORTL   LW,R15   SNAPINT
     1327   01 011C9    683011CB              BCR,3    %+2
     1328   01 011CA    6DF00049 A            WD,R15   X'49'
     1329   01 011CB    32F01B73              LW,R15   SO                DISABLE COUNT                   *A03
     1330   01 011CC    683011CF              BCR,3    %+3               PULSE 4 IF                      *A03
     1331   01 011CD    22F01000 A            LI,R15   X'1000'           SNAP IS                         *A03
     1332   01 011CE    6DF01100 A            WD,R15   X'1100'           REQUESTED                       *A03
     1333   01 011CF    22FFFFFF A            LI,R15   -1                SET COUNTER ZERO LOCATION TO
     1334   01 011D0    35F013FD              STW,R15  CICOUNT           -1.  CLEAR LOCATION OF CNTR 0
     1335   01 011D1    22F00000 A            LI,R15   0                 STORED  ADDRESS FROM XPSD.
     1336   01 011D2    35F01414              STW,R15  CI:PROC           CM
     1337   01 011D3    02200080 A            LCI      8
     1338   01 011D4    2A003830              LM,R0    MTABLIN
     1339   01 011D5    AB00118F              STM,R0  *MEM:REF
     1340   01 011D6    02200000 A            LCI      0
     1341   01 011D7    2A003820              LM,R0    RTABLIN
     1342                            *
     1343                            ***********************************************************************
     1344   01 011D8    0E001C64              LPSD,0   PSW1                  SET  TEST  STATUS
     1345   01 011D9    680011DD              B        LOC               EM=3   EXECUTION MODE
     1346   01 011DA    670011DD              EXU      LOC               EM=2     VARIATION
     1347   01 011DB    680011DE              B        LOC+1                      (SEE J PARAMETER LINE)
     1348   01 011DC    6900102C              BCS,0    RETURN            EM=1
     1349   01 011DD    00000000 A   LOC      DATA     0                 EXECUTE  TEST  INSTRUCTION
     1350   01 011DE    0F80102C              XPSD,8   RETURN               SAVE  TEST  STATUS
     1351                            ***********************************************************************
     1352                            *
     1353   01 011DF    70200392              LC       #SENSE            SHORT LOOP.  SENSE SW1.
     1354   01 011E0    E98014FF              BCS,8    *SHORTPTR
     1355   01 011E1    35F0381F              STW,R15  RES:SAV+15
     1356   01 011E2    22F01000 A            LI,R15   X'1000'           TURN COUNT PULSE 4              *A03
     1357   01 011E3    6DF01200 A            WD,R15   X'1200'           BACK ON                         *A03
     1358   01 011E4    32F01931              LW,R15   CI:SAV            TURN OFF COUNTER INTERRUPTS.
     1359   01 011E5    6DF01100 A            WD,R15   X'1100'
     1360   01 011E6    6CF00045 A            RD,R15   X'45'             SAVE STATUS OF CLOCK MARGINS
     1361   01 011E7    35F01446              STW,R15  CM:ON             FOR ERROR AND STATUS REPORT
     1362   01 011E8    32F01447              LW,R15   CM:OFF            ROUTINES.  TURN CM OFF.
     1363   01 011E9    6DF00045 A            WD,R15   X'45'
     1364   01 011EA    35003810              STW,R0   RES:SAV
     1365   01 011EB    32001501              LW,R0    SNAP:FLG
     1366   01 011EC    693011FD              BCS,3    SNAP:CON
     1367   01 011ED    32001502              LW,R0    SNAP:UNC
     1368   01 011EE    693011FD              BCS,3    SNAP:CON
     1369   01 011EF    E80011F0              B        *EXIT:EXU
     1370                            *
     1371   01 011F0    00000000 A   EXIT:EXU DATA     0
     1372                            *
     1373         01 011F1           SAV:RES  EQU      %
     1374   01 011F1    35103811              STW,X1   RES:SAV+1         SAVE REGISTERS.
     1375   01 011F2    221FFFF3 A            LI,X1    -13
     1376   01 011F3    3522381F              STW,X2   RES:SAV+15,X1
     1377   01 011F4    32220010 A            LW,X2     X'10',X1
     1378   01 011F5    651011F3              BIR,X1   %-2
     1379   01 011F6    02000000 A            NOP
     1380   01 011F7    02000000 A            NOP
     1381   01 011F8    3250118B              LW,X5    TRAP:IDX
     1382   01 011F9    32801189              LW,R8    TRAP:SAV          RESTORE GUIDE'S TRAP XPSD'S.
     1383   01 011FA    358A0040 A            STW,R8    X'40',X5
     1384   01 011FB    E800000F A            B        *R15
     1385                            *
     1386   01 011FC    00000000 A   CI:CNT   DATA     0
     1387                            *
     1388         01 011FD           SNAP:CON EQU      %
     1389   01 011FD    32201C30              LW,X2    FTFL              GO TO SNAP:RUN AFTER FTFL IS
     1390   01 011FE    69301223              BCS,3    SNAP:RUN          SET BYPASSING SNAP INITIALIZER.
     1391   01 011FF    3220368F              LW,X2    SN:OBS            SET EXP/OBS POINTER TO PUT
     1392   01 01200    352014FA              STW,X2   SN:OEPTR          SNAP DATA INTO OBSERVED BUFF.
     1393   01 01201    32201B73              LW,X2    SO
     1394   01 01202    21200003 A            CI,X2    3
     1395   01 01203    68301255              BCR,3    SNAPEXIT
     1396   01 01204    222FFFFF A            LI,X2    -1                SET FTFL FLAG, RESET SNAP:FLG
     1397   01 01205    35201C30              STW,X2   FTFL              IF NOT UNCONDITIONAL SNAP;
     1398   01 01206    32201502              LW,X2    SNAP:UNC          CLEAR SNAP BUFFERS BASED
     1399   01 01207    6930120A              BCS,3    %+3               UPON AVAILABLE MEMORY FOUND
     1400   01 01208    22200000 A            LI,X2    0                 IN SET:MEM ROUTINE.  CLEAR
     1401   01 01209    35201501              STW,X2   SNAP:FLG          LAST CLOCK FLAG & EXIT
     1402   01 0120A    22800000 A            LI,R8    0
     1403   01 0120B    35801C31              STW,R8   MA:PTR
     1404   01 0120C    35801C32              STW,R8   LC:FLG
     1405   01 0120D    35801C38              STW,R8   LC:EXIT
     1406   01 0120E    02000000 A            NOP
     1407   01 0120F    02000000 A            NOP
     1408                            *                                   SET CLOCK POINTER VALUE ENT-
     1409                            *                                   ERED IN CLOCK BIAS FIELD OF
     1410   01 01210    22800001 A            LI,R8    1                 K-LINE.  IF BIAS IS 0 SET PTR TO
     1411   01 01211    35801C34              STW,R8   CK:PTR            ONE.  REFER TO CB:C,K-LINE.
     1412   01 01212    02000000 A            NOP
     1413                            *
     1414   01 01213    02000000 A            NOP                        SNAP DATA IS IN BLOCKS OF 23
     1415   01 01214    328014FA              LW,R8    SN:OEPTR          WORDS PER CPU CLOCK.  THIS
     1416   01 01215    68001217              B        %+2               CODE SERVOS THE 0BS/EXP PNTR
     1417   01 01216    20800017 A            AI,R8    23                TO THE SELECTED BLOCK OF 23.
     1418   01 01217    64201216              BDR,X2   %-1
     1419   01 01218    358014FA              STW,R8   SN:OEPTR
     1420   01 01219    32201C31              LW,X2    MA:PTR
     1421   01 0121A    32841BB5              LW,R8    MA:VAL,X2
     1422   01 0121B    30800008 A   SET:SNAP AW,R8    R8
     1423   01 0121C    22200001 A            LI,X2    1
     1424   01 0121D    75841C42              STB,R8   SNAP:SET,X2       SNAP:SET IS THE WORD USED BY
     1425   01 0121E    32801C34              LW,R8    CK:PTR            THE SNAP ACTIVATING WD TO LOAD
     1426                            *                                   AND ARM THE SNAP.  THE 1ST
     1427   01 0121F    75801C42              STB,R8   SNAP:SET          BYTE IS THE SELECTED CPU CLOCK
     1428   01 01220    32801C42              LW,R8    SNAP:SET          AND BITS 10-14 SELECT THE ITEM
     1429   01 01221    6D800049 A            WD,R8    X'49'             TO BE SNAPPED.  SEE SO:LINE0,1
     1430   01 01222    E8001500              B        *LONGPTR          AND 2 FOR THE RELATIVE POSITION
     1431                            *                                   OF SNAPPABLE ITEMS IN THE 23
     1432   01 01223    32401C31     SNAP:RUN LW,X4    MA:PTR            WORD BLOCK.
     1433   01 01224    6C200049 A            RD,X2    X'49'
     1434   01 01225    68201227              BCR,2    %+2
     1435   01 01226    6AC0129C              BAL,R12  NO:SNAP
     1436   01 01227    6810122A     SNAP:SW  BCR,1    %+3               SNAP:SW IS CHANGED TO UNCOND.
     1437   01 01228    223FFFFF A            LI,X3    -1                BRANCH IF CB=FF IN K-LINE.
     1438   01 01229    35301C32              STW,X3   LC:FLG            SEE CB:C.
     1439   01 0122A    B52814FA              STW,X2   *SN:OEPTR,X4
     1440   01 0122B    32801A47              LW,R8    WDT:SNAP
     1441   01 0122C    6830122E              BCR,3    %+2
     1442   01 0122D    6A80128F              BAL,R8   REPORT
     1443   01 0122E    02000000 A            NOP
     1444   01 0122F    02000000 A            NOP
     1445   01 01230    32801C31              LW,R8    MA:PTR
     1446   01 01231    20800001 A            AI,R8    1
     1447   01 01232    21800017 A            CI,R8    23                WHEN MATRIX ADDRESS POINTER =
     1448   01 01233    68301236              BCR,3    %+3               23 SNAP OF CURRET CLOCK IS
     1449   01 01234    35801C31              STW,R8   MA:PTR            COMPLETE.  MA:PTR IS SET TO
     1450   01 01235    68001219              B        SET:SNAP-2        ZERO AND CLOCK POINTER IS
     1451                            *                                   ADVANCED BY 1 AND TESTED FOR
     1452   01 01236    22800000 A            LI,R8    0                 LAST CLOCK(CC4=1).
     1453   01 01237    35801C31              STW,R8   MA:PTR            LC:FLG IS SET WHEN SNAP OCCURS
     1454   01 01238    32C014FA              LW,R12   SN:OEPTR
     1455   01 01239    20C00010 A            AI,R12   16
     1456   01 0123A    222FFFF8 A            LI,X2    -8
     1457   01 0123B    52341255              LH,X3    DU:IDX,X2
     1458   01 0123C    B28614FA              LW,R8    *SN:OEPTR,X3
     1459   01 0123D    D584000C A            STH,R8   *R12,X2
     1460   01 0123E    20200002 A            AI,X2    2
     1461   01 0123F    6910123B              BCS,1    %-4
     1462                            *
     1463   01 01240    32201C38     TST:EXIT LW,X2    LC:EXIT           ON LAST CLOCK.  LC:FLG IS
     1464   01 01241    69301255              BCS,3    SNAPEXIT          INTERLOCKED WITH LC:EXIT TO
     1465   01 01242    32201C32              LW,X2    LC:FLG            PERMIT SNAP TO TAKE AND PRINT
     1466   01 01243    68301246              BCR,3    %+3               ONE MORE CLOCK OF SNAP DATA.
     1467   01 01244    222FFFFF A            LI,X2    -1
     1468   01 01245    35201C38              STW,X2   LC:EXIT
     1469   01 01246    02000000 A            NOP
     1470   01 01247    02000000 A            NOP
     1471   01 01248    32801C34              LW,R8    CK:PTR            EXIT SNAP WHEN SNAP CLOCK
     1472   01 01249    31801C41              CW,R8    CE:PTR            POINTER.  CE:PTR IS DEFAULT
     1473   01 0124A    68301255              BCR,3    SNAPEXIT          TO CK:LIMIT SET IN
     1474   01 0124B    20800001 A            AI,R8    1                 POINTER EQUALS CLOCK END
     1475   01 0124C    35801C34              STW,R8   CK:PTR            SET:MEM ROUTINE BASED UPON
     1476   01 0124D    328014FA              LW,R8    SN:OEPTR          AVAILABLE MEMORY.
     1477   01 0124E    20800017 A            AI,R8    23                ADVANCE OBS/EXP PTRS IF NOT END.
     1478   01 0124F    358014FA              STW,R8   SN:OEPTR
     1479   01 01250    68001219              B        SET:SNAP-2
     1480                            *
     1481   01 01251    00010000 A            DATA     X'10000'
     1482   01 01252    00030000 A            DATA     X'30000'
     1483   01 01253    00050000 A            DATA     X'50000'
     1484   01 01254    00080000 A            DATA     X'80000'
     1485         01 01255           DU:IDX   EQU      %
     1486                            *
     1487   01 01255    22200000 A   SNAPEXIT LI,X2    0
     1488   01 01256    35201C30              STW,X2   FTFL              CLEAR SNAP CONTROL FLAGS.
     1489   01 01257    35201C5D              STW,X2   CARD:SW
     1490   01 01258    32201505              LW,X2    GEN:FLG
     1491   01 01259    69301760              BCS,3    WRT:MTL
     1492   01 0125A    02000000 A            NOP
     1493   01 0125B    02000000 A            NOP
     1494   01 0125C    02000000 A            NOP
     1495   01 0125D    02000000 A            NOP
     1496   01 0125E    02000000 A            NOP
     1497   01 0125F    02000000 A            NOP
     1498   01 01260    3280368F              LW,R8    SN:OBS
     1499   01 01261    35801B6B              STW,R8   SN:OBPTR
     1500   01 01262    22803965              LI,R8    SN:EXP
     1501   01 01263    35801B6C              STW,R8   SN:EXPTR
     1502   01 01264    32201C34              LW,X2    CK:PTR            SET SN:OBS-1 TO CURRENT
     1503   01 01265    B28003F3              LW,R8    *LISTPTR          MODULE # TO BE USED FOR
     1504   01 01266    75200008 A            STB,X2   R8                LATER COMPARISON WITH
     1505   01 01267    3580368E              STW,R8   SN:OBS-1          EXPECTED DATA FROM MAGTAPE
     1506   01 01268    02000000 A            NOP                        LIBRARY.  SEE CMP:OE.
     1507   01 01269    32201B73              LW,X2    SO
     1508   01 0126A    21200007 A            CI,X2    7
     1509   01 0126B    6830127A              BCR,3    SNAP:PRNT
     1510   01 0126C    6AF01781              BAL,R15  MAR:TAPE
     1511   01 0126D    32201B73              LW,X2    SO
     1512   01 0126E    21200003 A            CI,X2    3
     1513   01 0126F    69301276              BCS,3    %+7                                               *A01
     1514   01 01270    72203964              LB,X2    SN:EXP-1                                          *A01
     1515   01 01271    31201C41              CW,X2    CE:PTR                                            *A02
     1516   01 01272    69101274              BCS,1    %+2                                               *A02
     1517   01 01273    32201C41              LW,X2    CE:PTR                                            *A02
     1518   01 01274    7520368E              STB,X2   SN:OBS-1                                          *A01
     1519   01 01275    6800127A              B        SNAP:PRNT                                         *A01
     1520   01 01276    2220127D              LI,X2    FNC:RET
     1521   01 01277    35201609              STW,X2   SNAP:OUT-1
     1522   01 01278    35201B70              STW,X2   FLG126
     1523   01 01279    6AF016E3              BAL,R15  CMP:OE-2                                          *A03
     1524   01 0127A    6AF01531     SNAP:PRNT BAL,R15 MOD:HDR
     1525   01 0127B    6AF01551              BAL,R15  MOD:DATA
     1526   01 0127C    6AF0160A              BAL,R15   SNAP:OUT
     1527                            *
     1528   01 0127D    32C01502     FNC:RET  LW,R12   SNAP:UNC
     1529   01 0127E    693010E0              BCS,3    PTR:ADV
     1530   01 0127F    22C00000 A            LI,R12   0
     1531   01 01280    35C01501              STW,R12  SNAP:FLG
     1532   01 01281    35C01B70              STW,R12  FLG126
     1533   01 01282    32C01B73              LW,R12   SO
     1534   01 01283    21C00001 A            CI,R12   1
     1535   01 01284    69301286              BCS,3    %+2
     1536   01 01285    8F9003CA              XPSD,9   *#RUNADDR%
     1537   01 01286    680010E0              B        PTR:ADV
     1538   01 01287    02000000 A            NOP
     1539   01 01288    02000000 A            NOP
     1540   01 01289    02000000 A            NOP
     1541   01 0128A    02000000 A            NOP
     1542   01 0128B    02000000 A            NOP
     1543   01 0128C    02000000 A            NOP
     1544   01 0128D    02000000 A            NOP
     1545   01 0128E    02000000 A            NOP
     1546                            *
     1547         01 0128F           REPORT   EQU      %
     1548   01 0128F    32C00002 A            LW,R12   X2
     1549   01 01290    6AF01726              BAL,R15  DHEX:CON
     1550   01 01291    35D012BA              STW,R13  WDT:MSG+8
     1551   01 01292    35C012BB              STW,R12  WDT:MSG+9
     1552   01 01293    32C01C42              LW,R12   SNAP:SET
     1553   01 01294    6AF01726              BAL,R15  DHEX:CON
     1554   01 01295    35D012B6              STW,R13  WDT:MSG+4
     1555   01 01296    35C012B7              STW,R12  WDT:MSG+5
     1556   01 01297    EA6003CD              #PRINT   WDT:MSG
            01 01298    C0004AC8 A
     1557   01 01299    E8000008 A            B        *R8
     1558                            *
     1559   01 0129A    00000000 A            DATA     0
     1560   01 0129B    00000000 A            DATA     0
     1561         01 0129C           NO:SNAP  EQU      %
     1562   01 0129C    7400129A              STCF     %-2
     1563   01 0129D    35C0129B              STW,R12  %-2
     1564   01 0129E    20CFFFFD A            AI,R12   -3
     1565   01 0129F    32D01C33              LW,R13   CK:BIAS
     1566   01 012A0    681012A2              BCR,1    %+2
     1567   01 012A1    68001255              B        SNAPEXIT
     1568   01 012A2    6AF01726              BAL,R15  DHEX:CON
     1569   01 012A3    35D012B0              STW,R13  NSM+6
     1570   01 012A4    35C012B1              STW,R12  NSM+7
     1571   01 012A5    EA6003CC              #TYPE    NSM
            01 012A6    00004AA8 A
     1572   01 012A7    8F9003CA              XPSD,9   *#RUNADDR%
     1573   01 012A8    7030129A              LCF      NO:SNAP-2
     1574   01 012A9    E800129B              B        *NO:SNAP-1
     1575                            *
     1576         01 012AA           NSM      TEXTCS   'CC3 SET ON SNAP RD AT          '
     1577         01 012B2           WDT:MSG  TEXTCS   'WDT:SNAP  WD =            RD =         '
     1578                            *
     1579   01 012BC    00000000 A            DATA     0
     1580         01 012BD           CMP:AUTO EQU      %
     1581   01 012BD    35F012BC              STW,R15  %-1
     1582   01 012BE    223FFFFF A            LI,X3    -1
     1583   01 012BF    B2A6118F              LW,R10   *MEM:REF,X3
     1584   01 012C0    32963854              LW,R9    MTABLOUT,X3
     1585   01 012C1    32B00009 A            LW,R11   R9
     1586   01 012C2    48B0000A A            EOR,R11  R10
     1587   01 012C3    683012C8              BCR,3    %+5
     1588   01 012C4    32800003 A            LW,R8    X3
     1589   01 012C5    22F00007 A            LI,R15   7
     1590   01 012C6    75F00008 A            STB,R15  R8
     1591   01 012C7    6AF0131C              BAL,R15  FT:ERR
     1592   01 012C8    20300001 A            AI,X3    1
     1593   01 012C9    21300009 A            CI,X3    9
     1594   01 012CA    692012CC              BCS,2    %+2
     1595   01 012CB    680012BF              B        CMP:AUTO+2
     1596                            *
     1597   01 012CC    22300000 A   CMP:REG  LI,X3    0
     1598   01 012CD    32A63810              LW,R10   RES:SAV,X3
     1599   01 012CE    32963840              LW,R9    RTABLOUT,X3
     1600   01 012CF    32B00009 A            LW,R11   R9
     1601   01 012D0    48B0000A A            EOR,R11  R10
     1602   01 012D1    683012D6              BCR,3    %+5
     1603   01 012D2    22800006 A            LI,R8    6
     1604   01 012D3    25800018 A            SLS,R8   24
     1605   01 012D4    49800003 A            OR,R8    X3
     1606   01 012D5    6AF0131C              BAL,R15  FT:ERR
     1607   01 012D6    20300001 A            AI,X3    1
     1608   01 012D7    21300010 A            CI,X3    16
     1609   01 012D8    693012CD              BCS,3    CMP:REG+1
     1610   01 012D9    02000000 A            NOP
     1611   01 012DA    02000000 A            NOP
     1612   01 012DB    02000000 A            NOP
     1613   01 012DC    02000000 A            NOP
     1614   01 012DD    223FFFFC A            LI,X3    -4                ONLY ITEMS SPECIFIED IN MODULE
     1615                            *                                   ARE CHECKED.  (REG & MEM)
     1616   01 012DE    328612F8     FT:CMP1  LW,R8    ID:EXT+4,X3       EXTENSION ITEMS THAT ARE ALWAYS
     1617   01 012DF    32A612F4              LW,R10   OBSEXT+4,X3       CHECKED ARE, LOC+1,INDX 1,
     1618   01 012E0    B2A0000A A            LW,R10   *R10              INDX 7, AND INDIRECT ADDR.(IA).
     1619   01 012E1    329612F0              LW,R9    LISTEXT+4,X3
     1620   01 012E2    32B00009 A            LW,R11   R9
     1621   01 012E3    48B0000A A            EOR,R11  R10
     1622   01 012E4    683012E6              BCR,3    EXT:ERR+1
     1623                            *
     1624   01 012E5    6AF0131C     EXT:ERR  BAL,R15  FT:ERR
     1625   01 012E6    653012DE              BIR,X3   FT:CMP1
     1626   01 012E7    70200392              LC       #SENSE            LONG LOOP.   SENSE SW2.
     1627   01 012E8    E9C01500              BCS,12   *LONGPTR
     1628   01 012E9    32201505              LW,X2    GEN:FLG
     1629   01 012EA    6930182C              BCS,3    CARD:CON
     1630   01 012EB    E80012BC              B        *CMP:AUTO-1
     1631                            *
     1632         01 012EC           LISTEXT  EQU      %
     1633   01 012EC    00000000 A            DATA     0
     1634   01 012ED    00000000 A            DATA     0
     1635   01 012EE    00003800              DATA     MEMORY
     1636   01 012EF    00000000 A            DATA     0
     1637                            *
     1638         01 012F0           OBSEXT   EQU      %
     1639   01 012F0    000011DD              DATA     LOC
     1640   01 012F1    0000102C              DATA     RETURN
     1641   01 012F2    00001C6B              DATA     IA
     1642   01 012F3    000011DE              DATA     LOC+1
     1643                            *
     1644         01 012F4           ID:EXT   EQU      %
     1645   01 012F4    01000000 A            D        1,0
     1646   01 012F5    0500102C              D        5,RETURN
     1647   01 012F6    03000000 A            D        3,0               IAID
     1648   01 012F7    02000001 A            D        2,1
     1649                            *
     1650   01 012F8    0000131A     AUTO:DL  DATA     DEAD              MODULE DISPERSION LIST.
     1651   01 012F9    000011DD              DATA     LOC               DEAD RECEIVES ALL'EXPECTED'WORDS
     1652   01 012FA    00001C64              DATA     PSW1              TO SIMPLIFY MOVING FROM MODULE.
     1653   01 012FB    000012ED              DATA     LISTEXT+1
     1654   01 012FC    0000382C              DATA     RTABLIN+12
     1655   01 012FD    0000384C              DATA     RTABLOUT+12
     1656   01 012FE    00003830              DATA     MTABLIN
     1657   01 012FF    00003854              DATA     MTABLOUT
     1658   01 01300    0000382D              DATA     RTABLIN+13
     1659   01 01301    0000384D              DATA     RTABLOUT+13
     1660   01 01302    00003831              DATA     MTABLIN+1
     1661   01 01303    00003855              DATA     MTABLOUT+1
     1662   01 01304    0000382E              DATA     RTABLIN+14
     1663   01 01305    0000384E              DATA     RTABLOUT+14
     1664   01 01306    00003832              DATA     MTABLIN+2
     1665   01 01307    00003856              DATA     MTABLOUT+2
     1666   01 01308    0000382F              DATA     RTABLIN+15
     1667   01 01309    0000384F              DATA     RTABLOUT+15
     1668   01 0130A    00003833              DATA     MTABLIN+3
     1669   01 0130B    00003857              DATA     MTABLOUT+3
     1670   01 0130C    00003834              DATA     MTABLIN+4
     1671   01 0130D    00003858              DATA     MTABLOUT+4
     1672   01 0130E    00003835              DATA     MTABLIN+5
     1673   01 0130F    00003859              DATA     MTABLOUT+5
     1674   01 01310    00003836              DATA     MTABLIN+6
     1675   01 01311    0000385A              DATA     MTABLOUT+6
     1676   01 01312    00003837              DATA     MTABLIN+7
     1677   01 01313    0000385B              DATA     MTABLOUT+7
     1678   01 01314    0000382A              DATA     RTABLIN+10
     1679   01 01315    0000382B              DATA     RTABLIN+11
     1680   01 01316    0000384A              DATA     RTABLOUT+10
     1681   01 01317    0000384B              DATA     RTABLOUT+11
     1682   01 01318    00003841              DATA     RTABLOUT+1
     1683   01 01319    0000131A     AUTO:DLE DATA     DEAD
     1684                            *
     1685   01 0131A    00000000 A   DEAD     DATA     0
     1686                            *
     1687   01 0131B    00000000 A            DATA     0
     1688         01 0131C           FT:ERR   EQU      %
     1689   01 0131C    35F0131B              STW,R15  %-1               THIS CODE IS ENTERED IN THE
     1690   01 0131D    222FFFFF A            LI,X2    -1                EVENT OF A FUNCTIONAL TEST
     1691   01 0131E    35201C2F              STW,X2   ERR:FLG           ERROR.
     1692   01 0131F    35201503              STW,X2   PASS:ERR
     1693                            *
     1694   01 01320    322010BB              LW,X2    TOT:ERRS
     1695   01 01321    20200001 A            AI,X2    1
     1696   01 01322    352010BB              STW,X2   TOT:ERRS
     1697                            *
     1698   01 01323    32201C2E              LW,X2    ERR:CNT
     1699   01 01324    20200001 A            AI,X2    1
     1700   01 01325    35201C2E              STW,X2   ERR:CNT
     1701   01 01326    32201505              LW,X2    GEN:FLG
     1702   01 01327    E930000F A            BCS,3    *R15
     1703   01 01328    222F0FFF A            LI,X2    X'F0FFF'
     1704   01 01329    6D000041 A            WD,0     X'41'
     1705   01 0132A    6520132A              BIR,X2   %
     1706   01 0132B    6D000040 A            WD,0     X'40'
     1707   01 0132C    32201B73              LW,X2    SO
     1708   01 0132D    68301337              BCR,3    CONT:FTE
     1709   01 0132E    222FFFFF A            LI,X2    -1                SET SNAP FLAG IF SO IS NOT 0.
     1710   01 0132F    35201501              STW,X2   SNAP:FLG
     1711   01 01330    02000000 A            NOP
     1712   01 01331    02000000 A            NOP
     1713   01 01332    02000000 A            NOP
     1714   01 01333    02000000 A            NOP
     1715   01 01334    02000000 A            NOP
     1716   01 01335    02000000 A            NOP
     1717   01 01336    E8001500              B        *LONGPTR
     1718                            *
     1719   01 01337    70200392     CONT:FTE LC       #SENSE            BYPASS FT ERROR PRINTOUT IF
     1720   01 01338    6910134E              BCS,1    FTE:SS3           SENSE SW4 IS SET.
     1721   01 01339    2220145E              LI,X2    ESM:HEDR
     1722   01 0133A    31200393              CW,X2    #HDRFLG
     1723   01 0133B    68301340              BCR,3    %+5                                               *A04
     1724   01 0133C    EA6003CD              #PRINT   ESM:HEDR
            01 0133D    C0005178 A
     1725   01 0133E    69301340              BCS,3    %+2
     1726   01 0133F    8F9003CA              XPSD,9   *#RUNADDR%
     1727   01 01340    22E014B8              LI,R14   MSG:LST
     1728   01 01341    22C00047 A            LI,R12   71                LINKING DATA TO FORM ERROR
     1729   01 01342    75C014B7              STB,R12  MSG:CNT           STATUS MESSAGE.
     1730   01 01343    22C00012 A            LI,R12   18
     1731   01 01344    35C014B6              STW,R12  WRD:CNT
     1732   01 01345    6AF0144C              BAL,R15  FORM:ESM
     1733   01 01346    EA6003CD              #PRINT   OUTBUF
            01 01347    C0007058 A
     1734   01 01348    6930134A              BCS,3    %+2
     1735   01 01349    8F9003CA              XPSD,9   *#RUNADDR%
     1736   01 0134A    2220145E              LI,X2    ESM:HEDR
     1737   01 0134B    35200393              STW,X2   #HDRFLG
     1738   01 0134C    3220135A              LW,X2    FTERSTAT
     1739   01 0134D    B52003CE              STW,X2   *#ERRTEXT%
     1740                            *
     1741   01 0134E    70200392     FTE:SS3  LC       #SENSE            DONT HALT ON ERROR IF SENSE
     1742   01 0134F    E920131B              BCS,2    *FT:ERR-1         SW3 IS SET.
     1743   01 01350    EA6003CC              #TYPE    HALT
            01 01351    00004D6C A
     1744   01 01352    32201507              LW,X2    VER:END
     1745   01 01353    69301356              BCS,3    %+3
     1746   01 01354    32201505              LW,X2    GEN:FLG
     1747   01 01355    68301358              BCR,3    %+3
     1748   01 01356    32200395              LW,X2    #MTLFLAG
     1749   01 01357    68040003 A            B        3,X2
     1750   01 01358    8F9003CA              XPSD,9   *#RUNADDR%
     1751   01 01359    E800131B              B        *FT:ERR-1
     1752                            *
     1753   01 0135A    11028794 N   FTERSTAT Z        17,,2,BA(FTERRMSG)
     1754         01 0135B           HALT     TEXTCS   '***ERROR HALT***'
     1755                            *
     1756         01 01360           ADV:PTR  EQU      %
     1757   01 01360    02000000 A            NOP
     1758   01 01361    02000000 A            NOP
     1759   01 01362    22300000 A            LI,X3    0                 ADV:PTR ADVANCES THE LIST
     1760   01 01363    35301C2F              STW,X3   ERR:FLG           POINTER TO THE NEXT MODULE
     1761   01 01364    323003F0              LW,X3    MST:NUM
     1762   01 01365    313003F1              CW,X3    MSP:NUM
     1763   01 01366    6830136B              BCR,3    %+5
     1764   01 01367    32E01501              LW,R14   SNAP:FLG
     1765   01 01368    30E01505              AW,R14   GEN:FLG
     1766   01 01369    6830136B              BCR,3    %+2
     1767   01 0136A    6AE0174E              BAL,R14  CLR:SNP
     1768   01 0136B    323003F2              LW,X3    MCR:NUM           IN THE LIST.  IF THE
     1769   01 0136C    20300001 A            AI,X3    1                 CURRENT MODULE IS ADVANCED
     1770   01 0136D    313003F1              CW,X3    MSP:NUM           OUT OF SPECIFIED RANGE,
     1771   01 0136E    6920137F              BCS,2    MST:INIT          CONTROL IS PASSED TO
     1772   01 0136F    353003F2              STW,X3   MCR:NUM
     1773   01 01370    02000000 A            NOP
     1774   01 01371    02000000 A            NOP
     1775   01 01372    02000000 A            NOP
     1776   01 01373    02000000 A            NOP
     1777   01 01374    02000000 A            NOP
     1778   01 01375    02000000 A            NOP
     1779   01 01376    EA6003C3              #HTECON  X3
            01 01377    00000003 A
     1780   01 01378    323C0001 A            LW,X3    1,X6
     1781   01 01379    4B301C2C              AND,X3   LS:MSK            UPDATE K-LINE, MCR.
     1782   01 0137A    35301970              STW,X3   KOUT+2
     1783   01 0137B    F23003F3              LB,X3    *LISTPTR
     1784   01 0137C    303003F3              AW,X3    LISTPTR
     1785   01 0137D    353003F3              STW,X3   LISTPTR
     1786   01 0137E    E800000F A            B        *R15
     1787                            *
     1788         01 0137F           MST:INIT EQU      %
     1789   01 0137F    32301505              LW,X3    GEN:FLG           THIS ROUTINE SETS THE MODULE
     1790   01 01380    6930231C              BCS,3    VG:END            POINTERS BACK TO FIRST
     1791   01 01381    32301507              LW,X3    VER:END           SELECTED MODULE (MST).
     1792   01 01382    6930231C              BCS,3    VG:END
     1793   01 01383    323018F1              LW,X3    SI                IF SI, STATUS INTERVAL, IS
     1794   01 01384    6830138B              BCR,3    %+7                                               *A04
     1795   01 01385    3230141B              LW,X3    PASS:CNT          PASS:CNT GO TO PRINT A
     1796   01 01386    303018F1              AW,X3    SI                STATUS MESSAGE.
     1797   01 01387    6830138A              BCR,3    %+3
     1798   01 01388    69201386              BCS,2    %-2
     1799   01 01389    6800138B              B        %+2                                               *A04
     1800   01 0138A    6A601A9C              BAL,X6    STATMSGS
     1801                            *
     1802   01 0138B    323003F0              LW,X3    MST:NUM           SET MCR BACK TO MST.
     1803   01 0138C    353003F2              STW,X3   MCR:NUM
     1804   01 0138D    3230196E              LW,X3    KOUT
     1805   01 0138E    32401B74              LW,X4    SPACES
     1806   01 0138F    75400003 A            STB,X4   X3
     1807   01 01390    35301970              STW,X3   KOUT+2
     1808   01 01391    6A6013FE              BAL,X6    LSTSERVO         SERVO THE LISTPTR BACK TO
     1809   01 01392    02000000 A            NOP
     1810   01 01393    02000000 A            NOP
     1811   01 01394    32301503              LW,X3    PASS:ERR
     1812   01 01395    693013B5              BCS,3    ERR:PASS
     1813                            *
     1814   01 01396    3230141B              LW,X3    PASS:CNT          ENABLE COUNT PULSE 4 INTERUPT
     1815   01 01397    32C01B73              LW,R12   SO                ON THE 11TH ERROR FREE PASS.
     1816   01 01398    6830139C              BCR,3    %+4               IF SNAP OPTION IS NOT ZERO,
     1817   01 01399    22C00000 A            LI,R12   0                 THEN DISABLE INTERUPT BY
     1818   01 0139A    35C011AB              STW,R12  SNAPINT
     1819   01 0139B    680013AC              B        NOCI-1
     1820   01 0139C    32C01931              LW,R12   CI:SAV
     1821   01 0139D    683013AD              BCR,3    NOCI
     1822   01 0139E    21300038 A            CI,X3    56
     1823   01 0139F    691013AD              BCS,1    NOCI
     1824   01 013A0    32C013FB              LW,R12   CIXPSD            SET UP COUNT PULSE AND
     1825   01 013A1    35C00058 A            STW,R12  X'58'             COUNTER ZERO LOCATIONS.
     1826   01 013A2    35C00059 A            STW,R12  X'59'
     1827   01 013A3    35C0005A A            STW,R12  X'5A'
     1828   01 013A4    35C0005D A            STW,R12  X'5D'
     1829   01 013A5    32C011AC              LW,R12   SNAPINI
     1830   01 013A6    35C011AB              STW,R12  SNAPINT
     1831   01 013A7    32C013FC              LW,R12   CIMTW
     1832   01 013A8    35C00052 A            STW,R12  X'52'
     1833   01 013A9    35C00053 A            STW,R12  X'53'
     1834   01 013AA    35C00054 A            STW,R12  X'54'
     1835   01 013AB    32C01931              LW,R12   CI:SAV
     1836   01 013AC    35C011FC              STW,R12  CI:CNT
     1837                            *
     1838   01 013AD    3230141A     NOCI     LW,X3    PASS:OK
     1839   01 013AE    20300001 A            AI,X3    1
     1840   01 013AF    3530141A              STW,X3   PASS:OK
     1841   01 013B0    3130141C              CW,X3    PASS:LIM
     1842   01 013B1    682013B5              BCR,2    ERR:PASS                                          *A01
     1843   01 013B2    6A60141E              BAL,X6    VM:CM            SEQUENCE CLOCK MARGINS TO
     1844   01 013B3    32601449              LW,X6    CM:SAV                                            *A01
     1845   01 013B4    35601446              STW,X6   CM:ON                                             *A01
     1846   01 013B5    22300000 A   ERR:PASS LI,X3    0                 NEXT SETTING EVERY 10TH
     1847   01 013B6    35301503              STW,X3   PASS:ERR          ERROR FREE PASS.
     1848                            *
     1849   01 013B7    323019FE              LW,X3    LCNT
     1850   01 013B8    683013C1              BCR,3    %+9
     1851   01 013B9    3230141B              LW,X3    PASS:CNT
     1852                            *
     1853   01 013BA    303019FE              AW,X3    LCNT
     1854   01 013BB    683013BE              BCR,3    %+3               GO TO GUIDE IDLE WHEN LCNT
     1855   01 013BC    692013BA              BCS,2    %-2               IS AN EVEN MULTIPLE OF PASS:CNT.
     1856   01 013BD    680013C1              B        %+4
     1857                            *
     1858   01 013BE    8F9003CA              XPSD,9   *#RUNADDR%
     1859   01 013BF    22300000 A            LI,X3    0
     1860   01 013C0    680013C2              B        %+2
     1861   01 013C1    3230141B              LW,X3    PASS:CNT
     1862   01 013C2    20300001 A            AI,X3    1
     1863   01 013C3    3530141B              STW,X3   PASS:CNT
     1864   01 013C4    22300000 A            LI,X3    0
     1865   01 013C5    35301C2E              STW,X3   ERR:CNT
     1866   01 013C6    32301B73              LW,X3    SO
     1867   01 013C7    683013CF              BCR,3    EM:ADV
     1868   01 013C8    21300007 A            CI,X3    7
     1869   01 013C9    683013CF              BCR,3    EM:ADV
     1870   01 013CA    6AF01781              BAL,R15  MAR:TAPE
     1871   01 013CB    22300000 A            LI,X3    0
     1872   01 013CC    353013FA              STW,X3   EM
     1873   01 013CD    353011AB              STW,X3   SNAPINT
     1874   01 013CE    680010D6              B        AUTOTEST
     1875                            *
     1876   01 013CF    323013F9     EM:ADV   LW,X3    EM:FLG            EM:FLG IS SET IN EM:C,
     1877   01 013D0    693013E9              BCS,3    EXIT:EM           K-LINE INDICATING USER
     1878   01 013D1    323013F8              LW,X3    EM:CNT            HAS FIXED EM VALUE.
     1879   01 013D2    2130000D A            CI,X3    13
     1880   01 013D3    693013EB              BCS,3    EXIT:EM+2         SEQUENCE EXECUTION MODE
     1881   01 013D4    323013FA              LW,X3    EM                TO NEXT SETTING AFTER
     1882   01 013D5    213FFFFF A            CI,X3    -1                13 PASSES.
     1883   01 013D6    693013DA              BCS,3    %+4
     1884   01 013D7    32C01B73              LW,R12   SO
     1885   01 013D8    683013DA              BCR,3    %+2
     1886   01 013D9    203FFFFF A            AI,X3    -1                INHIBIT SNAPPING IF EM=2
     1887   01 013DA    323613F7              LW,X3    EM:LIST,X3        BY FORCING EM TO NEXT STATE.
     1888   01 013DB    353013FA              STW,X3   EM
     1889   01 013DC    683013E2              BCR,3    %+6
     1890   01 013DD    213FFFFF A            CI,X3    -1
     1891   01 013DE    683013E0              BE       %+2
     1892   01 013DF    20300001 A            AI,X3    1
     1893   01 013E0    48301C3F              EOR,X3   ONES
     1894   01 013E1    20300001 A            AI,X3    1
     1895   01 013E2    EA6003C3              #HTECON  X3
            01 013E3    00000003 A
     1896   01 013E4    32C01B74              LW,R12   SPACES            UPDATE EM PARAMETER IN J-LINE.
     1897   01 013E5    326C0001 A            LW,X6    1,X6
     1898   01 013E6    22300002 A            LI,X3    2
     1899   01 013E7    7566000C A            STB,X6    R12,X3
     1900   01 013E8    35C018A0              STW,R12  JOUT+6
     1901   01 013E9    22300000 A   EXIT:EM  LI,X3    0
     1902   01 013EA    680013EC              B        %+2
     1903   01 013EB    20300001 A            AI,X3    1
     1904   01 013EC    353013F8              STW,X3   EM:CNT
     1905                            *
     1906   01 013ED    680010D6              B        AUTOTEST
     1907   01 013EE    02000000 A            NOP
     1908   01 013EF    02000000 A            NOP
     1909   01 013F0    02000000 A            NOP
     1910   01 013F1    02000000 A            NOP
     1911   01 013F2    02000000 A            NOP
     1912                            *
     1913   01 013F3    00000000 A            DATA     0
     1914   01 013F4    FFFFFFFC A            DATA     -4
     1915   01 013F5    00000000 A            DATA     0
     1916   01 013F6    FFFFFFFD A            DATA     -3
     1917   01 013F7    FFFFFFFF A   EM:LIST  DATA     -1
     1918                            *
     1919   01 013F8    00000000 A   EM:CNT   DATA     0
     1920   01 013F9    00000000 A   EM:FLG   DATA     0
     1921   01 013FA    00000000 A   EM       DATA     0
     1922   01 013FB    0F001414     CIXPSD   XPSD,0   CI:PROC
     1923   01 013FC    331013FD     CIMTW    MTW,1    CICOUNT
     1924   01 013FD    00000000 A   CICOUNT  DATA     0
     1925                            *
     1926         01 013FE           LSTSERVO EQU      %
     1927   01 013FE    22700001 A            LI,X7    1                 LIST SERVO, SERVOS THE LIST
     1928   01 013FF    22A02338              LI,R10   LIST              POINTER TO THE MODULE
     1929   01 01400    35A003F3              STW,R10  LISTPTR           SPECIFIED BY MCR:NUM.  IT
     1930   01 01401    317003F2              CW,X7    MCR:NUM           IS USED BY THE ADV:PTR
     1931   01 01402    68301407              BCR,3    %+5               ROUTINE AND THE DISPLAY
     1932   01 01403    F290000A A            LB,R9    *R10              LIST ROUTINE(DL).
     1933   01 01404    30A00009 A            AW,R10   R9
     1934   01 01405    20700001 A            AI,X7    1
     1935   01 01406    68001400              B        LSTSERVO+2        IT IS ALSO USED BY THE
     1936   01 01407    3280141D              LW,R8    KL:FLG            K-LINE WHEN A DIFFERENT
     1937   01 01408    6830140A              BCR,3    %+2               MCR IS SPECIFIED.
     1938   01 01409    E800000F A            B        *R15
     1939   01 0140A    02000000 A            NOP
     1940   01 0140B    02000000 A            NOP
     1941   01 0140C    02000000 A            NOP
     1942   01 0140D    02000000 A            NOP
     1943   01 0140E    02000000 A            NOP
     1944   01 0140F    02000000 A            NOP
     1945   01 01410    22800000 A            LI,R8    0
     1946   01 01411    02000000 A            NOP
     1947   01 01412    E8000006 A            B        *X6
     1948                            *
     1949                                     BOUND    8                 THIS IS THE COUNTER ZERO
     1950   01 01414    00000000 A   CI:PROC  DATA     0                 INTERRUPT PROCESSOR.  THE
     1951   01 01415    00000000 A            DATA     0                 RIGHT HEX DIGTI OF CI:PROC
     1952   01 01416    00001418              DATA     %+2               IS OUTPUT ON ERROR AND
     1953   01 01417    04000000 A            DATA     X'04000000'       STATUS MESSAGES UNDER THE
     1954   01 01418    0E301414              LPSD,3   CI:PROC           CI HEADER.
     1955                            *
     1956   01 01419    00000000 A   ZERO     DATA     0
     1957   01 0141A    00000000 A   PASS:OK  DATA     0
     1958   01 0141B    00000001 A   PASS:CNT DATA     1
     1959   01 0141C    0000000A A   PASS:LIM DATA     10
     1960   01 0141D    00000000 A   KL:FLG   DATA     0
     1961                            *
     1962         01 0141E           VM:CM    EQU      %
     1963   01 0141E    3280189F              LW,R8    JOUT+5            EXIT CLOCK MARGIN IF JOUT
     1964   01 0141F    31801440              CW,R8    X40C3             INDICATES CM IS FIXED.
     1965   01 01420    69201422              BG       SET:MAR           CM IS NOT FIXED - GO SET MARGINS
     1966   01 01421    E8000006 A            B        *X6
     1967         01 01422           SET:MAR  EQU      %
     1968   01 01422    6C400045 A            RD,X4    X'45'             TEST THE VOLTAGE NOT NORMAL
     1969   01 01423    4B401444              AND,X4   VM:MSK            BIT IN THE MARGIN CONTROL
     1970   01 01424    E8200006 A            BCR,2    *X6               WORD. IF ANY SUPPLY IS NOT
     1971   01 01425    22400002 A            LI,X4    2                 IN THE NORMAL POSITION BIT 11
     1972   01 01426    7220143B              LB,X2    MAR:SET-1         WILL BE LOW.  THIS INHIBITS
     1973   01 01427    32A4143C              LW,R10   MAR:SET,X2        THE PROGRAM FROM SETTING
     1974   01 01428    6C800045 A            RD,R8    X'45'             CLOCK MARGINS.
     1975   01 01429    4B801441     VMF      AND,R8   NEW:CM
     1976   01 0142A    35801447              STW,R8   CM:OFF
     1977   01 0142B    75A8189F              STB,R10  JOUT+5,X4         STORE NEW CM IN JOUT
     1978   01 0142C    4BA01443              AND,R10  MSK:CM            REMOVE EBCDIC FROM MAR:SET IN R10
     1979   01 0142D    30801445              AW,R8    LO:MSK
     1980   01 0142E    35801448              STW,R8   CM:LO             SET UP CM:LO FOR USE IN
     1981   01 0142F    4B801441              AND,R8   NEW:CM
     1982   01 01430    4880000A A   EXIT:MAR EOR,R8   R10               SNAPPING ANY MULTIPLY
     1983   01 01431    35801449              STW,R8   CM:SAV            INSTRUCTION.
     1984   01 01432    22400000 A            LI,X4    0                 SET UP CM:ON WITH LATEST
     1985   01 01433    3540141A              STW,X4   PASS:OK           MARGIN SETTING.  CM:ON IS
     1986   01 01434    3540143F              STW,X4   MAR:FLG           USED JUST PRIOR TO LOC.
     1987   01 01435    20200001 A            AI,X2    1                 CM:OFF IS USED JUST AFTER
     1988   01 01436    21200003 A            CI,X2    3                 LOC.
     1989   01 01437    69101439              BL       %+2
     1990   01 01438    22200000 A            LI,X2    0
     1991   01 01439    7520143B              STB,X2   MAR:SET-1
     1992   01 0143A    E8000006 A            B        *X6
     1993                            *
     1994   01 0143B    00000000 A            DATA     0                 CM
     1995   01 0143C    0000F0F0 A   MAR:SET  M        0,0,0,0,0,X'F0',X'F0'
     1996   01 0143D    0040F0F1 A            M        0,0,0,1,0,X'F0',X'F1'
     1997   01 0143E    0480F1F2 A            M        0,1,0,2,0,X'F1',X'F2'
     1998                            *
     1999   01 0143F    00000000 A   MAR:FLG  DATA     0
     2000   01 01440    4040C340 A   X40C3    DATA     X'4040C340'
     2001   01 01441    FF3FFFFF A   NEW:CM   DATA     X'FF3FFFFF'
     2002   01 01442    F33FFFFF A   NEW:MSK  DATA     X'F33FFFFF'
     2003   01 01443    00C00000 A   MSK:CM   DATA     X'0C00000'
     2004   01 01444    00100000 A   VM:MSK   DATA     X'100000'
     2005   01 01445    00800000 A   LO:MSK   DATA     X'00800000'
     2006   01 01446    00000000 A   CM:ON    DATA     0
     2007   01 01447    00000000 A   CM:OFF   DATA     0
     2008   01 01448    00800000 A   CM:LO    DATA     X'00800000'
     2009   01 01449    00000000 A   CM:SAV   DATA     0
     2010   01 0144A    00000017 A   H17      DATA     X'17'
     2011                            *
     2012                            *    THE CALLING SEQUENCE TO USE FORM:ESM IS AS FOLLOWS:
     2013                            *
     2014                            *        LI,R14   MSG:LST
     2015                            *        LI,R12   71
     2016                            *        STB,R12  MSG:CNT
     2017                            *        LI,R12   18
     2018                            *        STW,R12  WRD:CNT
     2019                            *        BAL,R15  FORM:ESM
     2020                            *
     2021   01 0144B    00000000 A            DATA     0
     2022         01 0144C           FORM:ESM EQU      %                 THIS CODE IS ENTERED FROM
     2023   01 0144C    35F0144B              STW,R15  %-1               CONT:FTE, FUNCT. TEST ERR
     2024   01 0144D    22700000 A            LI,X7    0                 EXIT.  A LIST OF CONTROL
     2025   01 0144E    B2CE000E A            LW,R12   *R14,X7           WORDS, MSG:LST, CAUSE
     2026   01 0144F    68101455              BCR,1    BALNORM           BALNORM TO BAL OUT TO THE
     2027   01 01450    B2C0000C A            LW,R12   *R12              FETCHING SUBROUTINES TO
     2028   01 01451    6AF01726              BAL,R15  DHEX:CON          SET UP THE ERROR STATUS
     2029   01 01452    35DE1C16              STW,R13  OUTBUF,X7         MESSAGE.  IF THE MSG:LST
     2030   01 01453    20700001 A            AI,X7    1                 WORD IS NEG. IT CONTAINS
     2031   01 01454    68001456              B        %+2               THE WORD TO BE CONVERTED.
     2032   01 01455    EAF0000C A   BALNORM  BAL,R15  *R12
     2033   01 01456    35CE1C16              STW,R12  OUTBUF,X7
     2034   01 01457    20700001 A            AI,X7    1
     2035   01 01458    317014B6              CW,X7    WRD:CNT
     2036   01 01459    6830145B              BCR,3    %+2
     2037   01 0145A    6800144E              B        FORM:ESM+2                                        *A04
     2038   01 0145B    72C014B7              LB,R12   MSG:CNT
     2039   01 0145C    75C01C16              STB,R12  OUTBUF
     2040   01 0145D    E800144B              B        *FORM:ESM-1
     2041                            *
     2042                            ESM:HEDR TEXTCS   'MOD EL TESTINST E/P PAS EM MNEM FAILED ',;
     2043         01 0145E             'EXPECTED CM OBSERVED CI DIFF=EOR'
     2044                            *
     2045   01 01470    B2C003F3     ESM:MOD  LW,R12   *LISTPTR          FETCH MODULE NO. FROM MODULE
     2046   01 01471    EA6003C3              #HTECON  R12
            01 01472    0000000C A
     2047   01 01473    32CC0001 A            LW,R12   1,X6
     2048   01 01474    4BC01C2C              AND,R12  LS:MSK
     2049   01 01475    E800000F A            B        *R15
     2050                            *
     2051         01 01476           ESM:EL   EQU      %                 FETCH ELEMENT # FROM MODULE
     2052   01 01476    22200001 A            LI,X2    1
     2053   01 01477    F2C403F3              LB,R12   *LISTPTR,X2
     2054   01 01478    222FFFFC A            LI,X2    -4
     2055   01 01479    30C0000C A            AW,R12   R12
     2056   01 0147A    65201479              BIR,X2   %-1
     2057   01 0147B    EA6003C3              #HTECON  R12               EBCDIC AND HOLD IN R12.
            01 0147C    0000000C A
     2058   01 0147D    32CC0001 A            LW,R12   1,X6
     2059   01 0147E    4BC01508              AND,R12  EL:MSK1
     2060   01 0147F    E800000F A            B        *R15
     2061                            *
     2062   01 01480    22200001 A   ESM:MNEM LI,X2    1                 FETCH MNEMONIC FROM LIST.
     2063   01 01481    B25403F3              LW,X5    *LISTPTR,X2
     2064   01 01482    72500005 A            LB,X5    X5
     2065   01 01483    4B501C2B              AND,X5   CON7F
     2066   01 01484    32CA1C8E              LW,R12   MNEMLIST,X5       AND HOLD IN R12.
     2067   01 01485    E800000F A            B        *R15
     2068                            *
     2069   01 01486    32C01C2E     ESM:ERRS LW,R12   ERR:CNT           FETCH THE ERROR COUNTER, CONVERT
     2070   01 01487    EA6003C3              #HTECON  R12
            01 01488    0000000C A
     2071   01 01489    32CC0001 A            LW,R12   1,X6
     2072   01 0148A    4BC01C2C              AND,R12  LS:MSK
     2073   01 0148B    E800000F A            B        *R15
     2074                            *
     2075   01 0148C    32C0141B     ESM:PASS LW,R12   PASS:CNT          FETCH THE PASS COUNTER, CONVERT
     2076   01 0148D    EA6003C3              #HTECON  R12
            01 0148E    0000000C A
     2077   01 0148F    32CC0001 A            LW,R12   1,X6
     2078   01 01490    4BC01C2C              AND,R12  LS:MSK
     2079   01 01491    E800000F A            B        *R15
     2080                            *
     2081   01 01492    32201446     ESM:CM   LW,X2    CM:ON             FETCH CLOCK MARGIN THAT
     2082   01 01493    30200002 A            AW,X2    X2                WAS SAVED AT LOC EXIT.
     2083   01 01494    30200002 A            AW,X2    X2
     2084   01 01495    72200002 A            LB,X2    X2
     2085   01 01496    4B2014A7              AND,X2   THREE             PUT * BEFORE SETTING IF
     2086   01 01497    32C0189F              LW,R12   JOUT+5            IT DISAGREES WITH EXP.
     2087   01 01498    31C414A0              CW,R12   CM:TSTA,X2        SETTING.
     2088   01 01499    E830000F A            BCR,3    *R15
     2089   01 0149A    22600002 A            LI,X6    2
     2090   01 0149B    752C000C A            STB,X2   R12,X6
     2091   01 0149C    02000000 A            NOP
     2092   01 0149D    02000000 A            NOP
     2093   01 0149E    30C014A3              AW,R12   ASTR:MSK
     2094   01 0149F    E800000F A            B        *R15
     2095                            *
     2096   01 014A0    4040F040 A   CM:TSTA  DATA     X'4040F040'
     2097   01 014A1    4040F140 A            DATA     X'4040F140'
     2098   01 014A2    4040F240 A            DATA     X'4040F240'
     2099   01 014A3    405CF040 A   ASTR:MSK DATA     X'405CF040'
     2100                            *
     2101   01 014A4    4040C140 A   CM:TSTB  DATA     X'4040C140'
     2102   01 014A5    4040C240 A            DATA     X'4040C240'
     2103   01 014A6    4040C340 A            DATA     X'4040C340'
     2104   01 014A7    00000003 A   THREE    DATA     3
     2105                            *
     2106   01 014A8    E800000F A            B        *R15
     2107                            *
     2108   01 014A9    32C018A0     ESM:EM   LW,R12   JOUT+6
     2109   01 014AA    E800000F A            B        *R15
     2110                            *
     2111         01 014AB           ESM:CI   EQU      %
     2112   01 014AB    32601414              LW,X6    CI:PROC
     2113   01 014AC    693014AF              BCS,3    %+3
     2114   01 014AD    22600040 A            LI,X6    X'40'
     2115   01 014AE    680014B2              B        %+4
     2116   01 014AF    EA6003C3              #HTECON  CI:PROC           CONVERT RIGHT HEX DIGIT
            01 014B0    00001414
     2117   01 014B1    326C0001 A            LW,X6    1,X6              OF CI:PROC AND PUT IT
     2118   01 014B2    22200001 A            LI,X2    1                 IN FRONT OF CURRENT
     2119   01 014B3    32C018A1              LW,R12   JOUT+7            SETTING IF CI IN ERROR
     2120   01 014B4    7564000C A            STB,X6    R12,X2           AND STATUS MESSAGES.
     2121   01 014B5    E800000F A            B        *R15
     2122                            *
     2123   01 014B6    00000000 A   WRD:CNT  DATA     0
     2124   01 014B7    00000000 A   MSG:CNT  DATA     0
     2125   01 014B8    00001470     MSG:LST  DATA     ESM:MOD           0 <<< WORD POSITION IN OUTBUF FOR
     2126   01 014B9    00001476              DATA     ESM:EL            1
     2127   01 014BA    FF0011DD              GEN,8,24 -1,LOC            2,3
     2128   01 014BB    00000000 A            DATA     0
     2129   01 014BC    00001486              DATA     ESM:ERRS          4
     2130   01 014BD    0000148C              DATA     ESM:PASS          5     THESE ARE SUBROUTINE
     2131   01 014BE    000014A9              DATA     ESM:EM            6     ADDRESSES THAT ARE USED BY
     2132   01 014BF    00001480              DATA     ESM:MNEM          7
     2133   01 014C0    000014C9              DATA     ESM:FAIL          8     FORM:MSG TO STUFF OUTBUF.
     2134   01 014C1    000014CC              DATA     ESM:FAIL1         9
     2135   01 014C2    FF000009 A            GEN,8,24 -1,R9             10,11
     2136   01 014C3    00000000 A            DATA     0
     2137   01 014C4    00001492              DATA     ESM:CM            12
     2138   01 014C5    FF00000A A            GEN,8,24 -1,R10            13,14
     2139   01 014C6    00000000 A            DATA     0
     2140   01 014C7    000014AB              DATA     ESM:CI            15
     2141   01 014C8    FF00000B A            GEN,8,24 -1,R11            16,17
     2142                            *
     2143   01 014C9    72200008 A   ESM:FAIL LB,X2    R8                FETCH IDENTIFIER FLAG FROM 1ST
     2144   01 014CA    32C414E0              LW,R12   FAIL:ID,X2        BYTE OF R8.  USE AS INDEX TO
     2145   01 014CB    E800000F A            B        *R15              FETCH EBCDIC RELATED
     2146                            *                                   TO FAILING ITEM.
     2147   01 014CC    72200008 A   ESM:FAIL1 LB,X2   R8
     2148   01 014CD    4B801C6A              AND,R8   ADR:MSK
     2149   01 014CE    21200006 A            CI,X2    6
     2150   01 014CF    691014D8              BL       CHECK5
     2151   01 014D0    02000000 A            NOP
     2152   01 014D1    EA6003C3              #HTECON  R8
            01 014D2    00000008 A
     2153   01 014D3    32C01B74              LW,R12   SPACES
     2154   01 014D4    322C0001 A            LW,X2    1,X6
     2155   01 014D5    22500002 A            LI,X5    2
     2156   01 014D6    752A000C A            STB,X2   R12,X5
     2157   01 014D7    E800000F A            B        *R15
     2158                            *
     2159   01 014D8    32500008 A   CHECK5   LW,X5    R8
     2160   01 014D9    4B501C13              AND,X5   ONE
     2161   01 014DA    21200005 A            CI,X2    5                                                 *A01
     2162   01 014DB    693014DD              BCS,3    %+2                                               *A01
     2163   01 014DC    20500001 A            AI,X5    1
     2164   01 014DD    32CA14E9              LW,R12   ID:EL,X5
     2165   01 014DE    E800000F A            B        *R15
     2166                            *
     2167   01 014DF    40D4C5D4 A            TEXT     ' MEM'
     2168   01 014E0    5C5C5C5C A   FAIL:ID  TEXT     '****'
     2169   01 014E1    40D3D6C3 A            TEXT     ' LOC'
     2170   01 014E2    40D7E2C4 A            TEXT     ' PSD'
     2171   01 014E3    40C9C140 A            TEXT     ' IA '
     2172   01 014E4    40C9C4E7 A            TEXT     ' IDX'
     2173   01 014E5    40D7E2E6 A            TEXT     ' PSW'
     2174   01 014E6    40D9C5C7 A            TEXT     ' REG'
     2175   01 014E7    40D4C5D4 A            TEXT     ' MEM'
     2176         01 014E8           TXT:PTR  EQU      %
     2177                            *
     2178   01 014E8    40F37E40 A            TEXT     ' 3= '
     2179   01 014E9    4040F040 A   ID:EL    TEXT     '  0 '
     2180   01 014EA    4040F140 A            TEXT     '  1 '
     2181   01 014EB    4040F240 A            TEXT     '  2 '
     2182                            *
     2183   01 014EC    32C01B74     ESM:NULL LW,R12   SPACES
     2184   01 014ED    E800000F A            B        *R15
     2185                            *
     2186   01 014EE    FFFFFFFE A   MINUS2   DATA     -2
     2187   01 014EF    03000000 A   CNT:P3   DATA     X'03000000'
     2188   01 014F0    000000EF A   OUT:IDX  DATA     X'EF'
     2189   01 014F1    00000000 A   IDX:FLG  DATA     0
     2190   01 014F2    00000000 A   DCMEM    DATA     0
     2191   01 014F3    000E0000 A   IDX:MSK  DATA     X'E0000'
     2192   01 014F4    40F07E40 A   IDX:EQ   DATA     X'40F07E40'
     2193   01 014F5    00F00000 A   REG:MSK  DATA     X'F00000'
     2194   01 014F6    40400040 A   REG:SP   DATA     X'40400040'
     2195   01 014F7    4040FE40 A   NEG2MSK  DATA     X'4040FE40'
     2196   01 014F8    00000000 A            DATA     0
     2197   01 014F9    00000000 A            DATA     0
     2198         01 014FA           REGN     EQU      %
     2199                            *
     2200   01 014FA    00000000 A   SN:OEPTR DATA     0
     2201   01 014FB    00000000 A   IO34IDX  DATA     0
     2202   01 014FC    00000000 A   IO78IDX  DATA     0
     2203   01 014FD    00000000 A   IOBCIDX  DATA     0
     2204   01 014FE    00000000 A   IOFGIDX  DATA     0
     2205   01 014FF    00000000 A   SHORTPTR DATA     0
     2206   01 01500    000011B4     LONGPTR  DATA     SHORTA
     2207   01 01501    00000000 A   SNAP:FLG DATA     0
     2208   01 01502    00000000 A   SNAP:UNC DATA     0
     2209   01 01503    00000000 A   PASS:ERR DATA     0
     2210   01 01504    FFF80000 A   FLAG:MSK DATA     X'FFF80000'
     2211   01 01505    00000000 A   GEN:FLG  DATA     0
     2212   01 01506    00000000 A   VER:FLG  DATA     0
     2213   01 01507    00000000 A   VER:END  DATA     0
     2214   01 01508    40FFFF40 A   EL:MSK1  DATA     X'40FFFF40'
     2215                            *
     2216   01 01509    40D4D6C4 A   MODT     TEXT     ' MOD'
     2217                            *
     2218   01 0150A    4040F140 A            TEXT     '  1 '
     2219   01 0150B    40F1F240 A            TEXT     ' 12 '
     2220   01 0150C    404EF040 A            TEXT     ' +0 '
     2221         01 0150D           PTR:A    EQU      %
     2222                            *
     2223   01 0150D    4040F140 A            TEXT     '  1 '
     2224   01 0150E    40F1F340 A            TEXT     ' 13 '
     2225   01 0150F    404EF140 A            TEXT     ' +1 '
     2226         01 01510           PTR:B    EQU      %
     2227                            *
     2228   01 01510    40F1F040 A            TEXT     ' 10 '
     2229   01 01511    40F1F440 A            TEXT     ' 14 '
     2230   01 01512    404EF240 A            TEXT     ' +2 '
     2231         01 01513           PTR:C    EQU      %
     2232                            *
     2233   01 01513    40F1F140 A            TEXT     ' 11 '
     2234   01 01514    40F1F540 A            TEXT     ' 15 '
     2235   01 01515    404EF340 A            TEXT     ' +3 '
     2236         01 01516           PTR:D    EQU      %
     2237                            *
     2238   01 01516    00000002 A            DATA     2
     2239   01 01517    00000004 A            DATA     4
     2240   01 01518    00000006 A            DATA     6
     2241         01 01519           IN:0X34  EQU      %
     2242                            *
     2243   01 01519    00000000 A            DATA     0
     2244   01 0151A    00000008 A            DATA     8
     2245   01 0151B    0000000A A            DATA     10
     2246         01 0151C           IN:1X78  EQU      %
     2247                            *
     2248   01 0151C    0000001C A            DATA     28
     2249   01 0151D    0000000C A            DATA     12
     2250   01 0151E    0000000E A            DATA     14
     2251         01 0151F           IN:0XBC  EQU      %
     2252                            *
     2253   01 0151F    0000001D A            DATA     29
     2254   01 01520    00000010 A            DATA     16
     2255   01 01521    00000012 A            DATA     18
     2256         01 01522           IN:1XFG  EQU      %
     2257                            *
     2258   01 01522    00000003 A            DATA     3
     2259   01 01523    00000005 A            DATA     5
     2260   01 01524    00000007 A            DATA     7
     2261         01 01525           OUT:0X34 EQU      %
     2262                            *
     2263   01 01525    00000020 A            DATA     32
     2264   01 01526    00000009 A            DATA     9
     2265   01 01527    0000000B A            DATA     11
     2266         01 01528           OUT:1X78 EQU      %
     2267                            *
     2268   01 01528    0000001E A            DATA     30
     2269   01 01529    0000000D A            DATA     13
     2270   01 0152A    0000000F A            DATA     15
     2271         01 0152B           OUT:0XBC EQU      %
     2272                            *
     2273   01 0152B    0000001F A            DATA     31
     2274   01 0152C    00000011 A            DATA     17
     2275   01 0152D    00000013 A            DATA     19
     2276         01 0152E           OUT:1XFG EQU      %
     2277                            *
     2278   01 0152E    C9D54040 A            TEXT     'IN'
     2279   01 0152F    D6E4E340 A            TEXT     'OUT'
     2280         01 01530           IO:PTR   EQU      %
1 C00   23:55 JUN 20,'83    SIGMA 9 CPU DIAG DECIMAL 706136-11/51A04  8-31-72                     PAGE    8
A    2282                              TITLE 'MODULE FORMAT DATA STRUCTURE TABLE'
     2283                            *
     2284                            *  LABEL MAP FOR        -3        T    ' PSW'          T=TEXT
     2285                            *   MOD:DATA            -2        T    ' REG'          D=DATA
     2286                            *                       -1        T    ' MEM'
     2287                            *                         TXT:PTR EQU  %
     2288                            *
     2289                            * -3        T    '  1 '           D    2                D    3
     2290                            * -2        T    ' 12 '           D    4                D    5
     2291                            * -1        T    ' +0 '           D    6                D    7
     2292                            *   PTR:A   EQU  %        IN:0X34 EQU  %        OUT:0X34 EQU %
     2293                            *
     2294                            * -3        T    '  2 '           D    0                D    0
     2295                            * -2        T    ' 13 '           D    8                D    9
     2296                            * -1        T    ' +1 '           D    10               D    11
     2297                            *   PTR:B   EQU  %        IN:1X78 EQU  %        OUT:1X78 EQU %
     2298                            *
     2299                            * -3        T    '     '          D     0               D    0
     2300                            * -2        T    ' 14 '           D    12               D   13
     2301                            * -1        T    ' +2 '           D    14               D   15
     2302                            *   PTR:C   EQU  %        IN:0XBC EQU  %        OUT:0XBC EQU %
     2303                            *
     2304                            * -3        T    '    '           D     0               D    0
     2305                            * -2        T    ' 15 '           D    16               D   17
     2306                            * -1        T    ' +3 '           D    18               D   19
     2307                            *   PTR:D   EQU  %        IN:1XFG EQU  %        OUT:1XFG EQU %
     2308                            *
     2309                            *
     2310                            * 3,4&7,8 ARE WORD      -2        T    'IN  '
     2311                            * DISPLACEMENTS IN      -1        T    'OUT '
     2312                            * OUTBUF FOR 'MOD'        IO:PTR  EQU  %
1 C00   23:55 JUN 20,'83    SIGMA 9 CPU DIAG DECIMAL 706136-11/51A04  8-31-72                     PAGE    9
A    2314   01 01530    00000000 A            DATA     0
     2315         01 01531           MOD:HDR  EQU      %                 THE MOD:HDR AND MOD:DATA
     2316   01 01531    35F01530              STW,R15  %-1               ROUTINES ARE USED DURING
     2317   01 01532    6AF0169B              BAL,R15  TYPE:CR                                           *A03
     2318   01 01533    22700001 A            LI,X7    1                 OUTPUT OF SNAP DATA AND
     2319   01 01534    32C01509              LW,R12   MODT              BY THE 'DL' ROUTINE TO
     2320   01 01535    35C01C16              STW,R12  OUTBUF            PRESENT THE MODULE DATA
     2321   01 01536    6AF01470              BAL,R15  ESM:MOD           IN A SNAP HAEDER FORMAT.
     2322   01 01537    35C01C17              STW,R12  OUTBUF+1
     2323   01 01538    6AF01476              BAL,R15  ESM:EL
     2324   01 01539    35C01C18              STW,R12  OUTBUF+2
     2325   01 0153A    6AF01480              BAL,R15  ESM:MNEM
     2326   01 0153B    35C01C19              STW,R12  OUTBUF+3          MOD:HDR OUTPUTS THE FIRST
     2327   01 0153C    32C01B74              LW,R12   SPACES            LINE OF THE SNAP HEADER
     2328   01 0153D    35C01C1A              STW,R12  OUTBUF+4          BLOCK.
     2329   01 0153E    B2CE03F3              LW,R12   *LISTPTR,X7
     2330   01 0153F    6AF01726              BAL,R15  DHEX:CON
     2331   01 01540    35D01C1B              STW,R13  OUTBUF+5
     2332   01 01541    35C01C1C              STW,R12  OUTBUF+6
     2333   01 01542    32D01972              LW,R13   KOUT+4
     2334   01 01543    32C01B74              LW,R12   SPACES
     2335   01 01544    75D0000C A            STB,R13  R12
     2336   01 01545    35C01C1E              STW,R12  OUTBUF+8
     2337   01 01546    32C0154F              LW,R12   SO:MSG
     2338   01 01547    35C01C1D              STW,R12  OUTBUF+7
     2339   01 01548    22C00023 A            LI,R12   35
     2340   01 01549    75C01C16              STB,R12  OUTBUF
     2341                            *
     2342                            *
     2343   01 0154A    EA6003CD     PRNT:MOD #PRINT   OUTBUF,C2
            01 0154B    C2007058 A
     2344   01 0154C    6930154E              BCS,3    %+2
     2345   01 0154D    8F9003CA              XPSD,9   *#RUNADDR%
     2346   01 0154E    E8001530              B        *MOD:HDR-1
     2347                            *
     2348   01 0154F    40E2D67E A   SO:MSG   TEXT     ' SO='
     2349                            *
     2350   01 01550    00000000 A            DATA     0
     2351         01 01551           MOD:DATA EQU      %                 MOD:DATA OUTPUTS THE DATA
     2352   01 01551    35F01550              STW,R15  %-1               PERTAINING TO THE CURRENT
     2353   01 01552    32C01B74              LW,R12   SPACES
     2354   01 01553    35C01C1B              STW,R12  OUTBUF+5
     2355   01 01554    224FFFFD A            LI,X4    -3
     2356   01 01555    223FFFFE A            LI,X3    -2
     2357   01 01556    22C01519              LI,R12   IN:0X34
     2358   01 01557    35C014FB              STW,R12  IO34IDX
     2359   01 01558    22C0151C              LI,R12   IN:1X78
     2360   01 01559    35C014FC              STW,R12  IO78IDX
     2361   01 0155A    22C0151F              LI,R12   IN:0XBC
     2362   01 0155B    35C014FD              STW,R12  IOBCIDX
     2363   01 0155C    22C01522              LI,R12   IN:1XFG
     2364   01 0155D    35C014FE              STW,R12  IOFGIDX
     2365   01 0155E    F2A003F3              LB,R10   *LISTPTR
     2366   01 0155F    31A81525              CW,R10   OUT:0X34,X4
     2367   01 01560    E9101550              BCS,1    *MOD:DATA-1
     2368   01 01561    32C814E8              LW,R12   TXT:PTR,X4
     2369   01 01562    35C01C16              STW,R12  OUTBUF
     2370   01 01563    32C8150D              LW,R12   PTR:A,X4
     2371   01 01564    35C01C17              STW,R12  OUTBUF+1
     2372   01 01565    32C61530     M2LOOP   LW,R12   IO:PTR,X3
     2373   01 01566    35C01C18              STW,R12  OUTBUF+2
     2374   01 01567    35C01C1C              STW,R12  OUTBUF+6
     2375   01 01568    35C01C20              STW,R12  OUTBUF+10
     2376   01 01569    35C01C24              STW,R12  OUTBUF+14
     2377   01 0156A    B25814FB              LW,X5    *IO34IDX,X4
     2378   01 0156B    B2CA03F3              LW,R12   *LISTPTR,X5
     2379   01 0156C    6AF01726              BAL,R15  DHEX:CON
     2380   01 0156D    35D01C19              STW,R13  OUTBUF+3
     2381   01 0156E    35C01C1A              STW,R12  OUTBUF+4
     2382   01 0156F    22C00013 A            LI,R12   19
     2383   01 01570    75C01C16              STB,R12  OUTBUF
     2384   01 01571    02000000 A            NOP
     2385   01 01572    02000000 A            NOP
     2386   01 01573    31A81528              CW,R10   OUT:1X78,X4
     2387   01 01574    69101595              BCS,1    OUT:MOD
     2388   01 01575    32C81510              LW,R12   PTR:B,X4
     2389   01 01576    35C01C1B              STW,R12  OUTBUF+5
     2390   01 01577    B25814FC              LW,X5    *IO78IDX,X4
     2391   01 01578    B2CA03F3              LW,R12   *LISTPTR,X5
     2392   01 01579    6AF01726              BAL,R15  DHEX:CON
     2393   01 0157A    35D01C1D              STW,R13  OUTBUF+7
     2394   01 0157B    35C01C1E              STW,R12  OUTBUF+8
     2395   01 0157C    22C00023 A            LI,R12   35
     2396   01 0157D    75C01C16              STB,R12  OUTBUF
     2397                            *
     2398   01 0157E    31A8152B              CW,R10   OUT:0XBC,X4
     2399   01 0157F    69101595              BCS,1    OUT:MOD
     2400   01 01580    32C81513              LW,R12   PTR:C,X4
     2401   01 01581    35C01C1F              STW,R12  OUTBUF+9
     2402   01 01582    B25814FD              LW,X5    *IOBCIDX,X4
     2403   01 01583    B2CA03F3              LW,R12   *LISTPTR,X5
     2404   01 01584    6AF01726              BAL,R15  DHEX:CON
     2405   01 01585    35D01C21              STW,R13  OUTBUF+11
     2406   01 01586    35C01C22              STW,R12  OUTBUF+12
     2407   01 01587    22C00033 A            LI,R12   51
     2408   01 01588    75C01C16              STB,R12  OUTBUF
     2409                            *
     2410   01 01589    31A8152E              CW,R10   OUT:1XFG,X4
     2411   01 0158A    69101595              BCS,1    OUT:MOD
     2412   01 0158B    32C81516              LW,R12   PTR:D,X4
     2413   01 0158C    35C01C23              STW,R12  OUTBUF+13
     2414   01 0158D    B25814FE              LW,X5    *IOFGIDX,X4
     2415   01 0158E    B2CA03F3              LW,R12   *LISTPTR,X5
     2416   01 0158F    6AF01726              BAL,R15  DHEX:CON
     2417   01 01590    35D01C25              STW,R13  OUTBUF+15
     2418   01 01591    35C01C26              STW,R12  OUTBUF+16
     2419   01 01592    22C00043 A            LI,R12   67
     2420   01 01593    75C01C16              STB,R12  OUTBUF
     2421   01 01594    6AF015DD              BAL,R15  EBS:CHK
     2422   01 01595    EA6003CD     OUT:MOD  #PRINT   OUTBUF
            01 01596    C0007058 A
     2423   01 01597    69301599              BCS,3    %+2
     2424   01 01598    8F9003CA              XPSD,9   *#RUNADDR%
     2425   01 01599    22C01525              LI,R12   OUT:0X34
     2426   01 0159A    35C014FB              STW,R12  IO34IDX
     2427   01 0159B    22C01528              LI,R12   OUT:1X78
     2428   01 0159C    35C014FC              STW,R12  IO78IDX
     2429   01 0159D    22C0152B              LI,R12   OUT:0XBC
     2430   01 0159E    35C014FD              STW,R12  IOBCIDX
     2431   01 0159F    22C0152E              LI,R12   OUT:1XFG
     2432   01 015A0    35C014FE              STW,R12  IOFGIDX
     2433   01 015A1    65301565              BIR,X3   M2LOOP
     2434   01 015A2    20400001 A            AI,X4    1
     2435   01 015A3    E8301550              BCR,3    *MOD:DATA-1
     2436   01 015A4    214FFFFF A            CI,X4    -1
     2437   01 015A5    69301555              BCS,3    MOD:DATA+4
     2438   01 015A6    328014F2              LW,R8    DCMEM
     2439   01 015A7    68301555              BCR,3    MOD:DATA+4
     2440   01 015A8    691015C2              BCS,1    EBSMDC
     2441                            *
     2442   01 015A9    22000AF5     DCSET    LI,R0    DA(DC:DWT2)
     2443   01 015AA    350016A6              STW,R0   DBL:WRD
     2444   01 015AB    6AE015B6              BAL,R14  SETMDC
     2445   01 015AC    6AF01686              BAL,R15  DC:OUT
     2446   01 015AD    21800002 A            CI,R8    2
     2447   01 015AE    E9301550              BCS,3    *MOD:DATA-1
     2448   01 015AF    3360118F              MTW,6    MEM:REF
     2449   01 015B0    6AE015B6              BAL,R14  SETMDC
     2450   01 015B1    6AF01686              BAL,R15  DC:OUT
     2451   01 015B2    E8001550              B        *MOD:DATA-1
     2452   01 015B3    02000000 A            NOP
     2453   01 015B4    02000000 A            NOP
     2454   01 015B5    E8001550              B        *MOD:DATA-1
     2455                            *
     2456         01 015B6           SETMDC   EQU      %
     2457   01 015B6    22200000 A            LI,X2    0
     2458   01 015B7    221FFFFA A            LI,X1    -6
     2459   01 015B8    32C23836              LW,R12   MTABLIN+6,X1
     2460   01 015B9    6AF01726              BAL,R15  DHEX:CON
     2461   01 015BA    35D41B88              STW,R13  SN:COL1,X2
     2462   01 015BB    35C41B89              STW,R12  SN:COL1+1,X2
     2463   01 015BC    20200003 A            AI,X2    3
     2464   01 015BD    651015B8              BIR,X1   %-5
     2465   01 015BE    32C0118F              LW,R12   MEM:REF
     2466   01 015BF    6AF01726              BAL,R15  DHEX:CON
     2467   01 015C0    35C015FF              STW,R12  MEMDC+3
     2468   01 015C1    E800000E A            B        *R14
     2469                            *
     2470         01 015C2           EBSMDC   EQU      %
     2471   01 015C2    EA6003CD              #PRINT   EBSMEM
            01 015C3    C0005804 A
     2472   01 015C4    22200080 A            LI,X2    X'80'
     2473   01 015C5    752015F7              STB,X2   DC:DWT2+13
     2474   01 015C6    22000AF6              LI,R0    DA(DC:DWT1)
     2475   01 015C7    350016A6              STW,R0   DBL:WRD
     2476   01 015C8    22200000 A            LI,X2    0
     2477   01 015C9    221FFFF8 A            LI,X1    -8
     2478   01 015CA    32C23838              LW,R12   MTABLIN+8,X1
     2479   01 015CB    6AF01726              BAL,R15  DHEX:CON
     2480   01 015CC    35D41B88              STW,R13  SN:COL1,X2
     2481   01 015CD    35C41B89              STW,R12  SN:COL1+1,X2
     2482   01 015CE    20200003 A            AI,X2    3
     2483   01 015CF    651015CA              BIR,X1   %-5
     2484   01 015D0    6AF01686              BAL,R15  DC:OUT
     2485                            *
     2486   01 015D1    22200000 A            LI,X2    0
     2487   01 015D2    221FFFF8 A            LI,X1    -8
     2488   01 015D3    32C2385C              LW,R12   MTABLOUT+8,X1
     2489   01 015D4    6AF01726              BAL,R15  DHEX:CON
     2490   01 015D5    35D41B88              STW,R13  SN:COL1,X2
     2491   01 015D6    35C41B89              STW,R12  SN:COL1+1,X2
     2492   01 015D7    20200003 A            AI,X2    3
     2493   01 015D8    651015D3              BIR,X1   %-5
     2494   01 015D9    6AF01686              BAL,R15  DC:OUT
     2495                            *
     2496   01 015DA    22200000 A            LI,X2    0
     2497   01 015DB    752015F7              STB,X2   DC:DWT2+13
     2498   01 015DC    E8001550              B        *MOD:DATA-1
     2499                            *
     2500         01 015DD           EBS:CHK  EQU      %
     2501   01 015DD    32C014F2              LW,R12   DCMEM
     2502   01 015DE    E810000F A            BCR,1    *R15
     2503   01 015DF    214FFFFD A            CI,X4    -3
     2504   01 015E0    E930000F A            BCS,3    *R15
     2505   01 015E1    213FFFFE A            CI,X3    -2
     2506   01 015E2    E930000F A            BCS,3    *R15
     2507   01 015E3    225FFFFC A            LI,X5    -4
     2508   01 015E4    32CA1609              LW,R12   EBSREG+4,X5
     2509   01 015E5    35CA1C1F              STW,R12  OUTBUF+9,X5
     2510   01 015E6    655015E4              BIR,X5   %-2
     2511   01 015E7    E800000F A            B        *R15
     2512                            *
     2513   01 015E8    00000AF6     DWA:DWT1 DATA     DA(DC:DWT1)
     2514                                     BOUND    8
     2515   01 015EA    010057F1     DC:DWT2  D        1,BA(MEMDC)+1
     2516   01 015EB    80000013 A            I        8,19
     2517   01 015EC    01006E20     DC:DWT1  J        1,SN:COL1
     2518   01 015ED    80000009 A            I        8,9
     2519   01 015EE    01006E2C              J        1,SN:COL2
     2520   01 015EF    80000009 A            I        8,9
     2521   01 015F0    01006E38              J        1,SN:COL3
     2522   01 015F1    80000009 A            I        8,9
     2523   01 015F2    01006E44              J        1,SN:COL4
     2524   01 015F3    80000009 A            I        8,9
     2525   01 015F4    01006E50              J        1,SN:COL5
     2526   01 015F5    80000009 A            I        8,9
     2527   01 015F6    01006E5C              J        1,SN:COL6
     2528   01 015F7    00000009 A            I        0,9
     2529   01 015F8    01006E68              J        1,SN:COL7
     2530   01 015F9    80000009 A            I        8,9
     2531   01 015FA    01006E74              J        1,SN:COL8
     2532   01 015FB    00000009 A   DC:DWT1E I        0,9
     2533                            *
     2534         01 015FC           MEMDC    TEXTCS   'MEM IN @   XXXZ =  '
     2535         01 01601           EBSMEM   TEXTCS   'MEMORY IN/OUT:'
     2536   01 01605    404040C5 A   EBSREG   TEXT     '   EBS REGISTERS'
            01 01606    C2E240D9 A
            01 01607    C5C7C9E2 A
            01 01608    E3C5D9E2 A
     2537                            *     SNAP:OUT CONVERTS BOTH THE EXP AND OR OBS DATA INTO
     2538                            *     EBCDIC AND PLACES THEM IN A SPECIAL DATA CHAINING
     2539                            *     BUFFER FOR OUTPUT.  THE OUTPUT FORMAT IS CONTROLLED
     2540                            *     BY THE SO OPTION IN THE K-LINE.
     2541                            *
     2542                            *     THE SNAPSHOT OUTPUT IS 'FOLDED' INTO 3 SEPARATE SECTIONS.
     2543                            *     THE CURRENT SECTION IS KEPT TRACK OF BY X2.
     2544   01 01609    00000000 A            DATA     0
     2545         01 0160A           SNAP:OUT EQU      %                 THE INITIALIZATION CONSISTS
     2546   01 0160A    35F01609              STW,R15  %-1               OF SETTING THE CK:SAV'S(3)
     2547   01 0160B    6AF0169B              BAL,R15  TYPE:CR           TO 1, RESETTING THE FAILED
     2548   01 0160C    22C00001 A            LI,R12   1                 TO FIND NON-COMPARE FLAG,
     2549   01 0160D    222FFFFD A            LI,X2    -3                FETCHING THE # OF CLOCKS
     2550   01 0160E    35C41C38              STW,R12  CK:SAV,X2         USED BY THE CURRENT SNAP
     2551   01 0160F    6520160E              BIR,X2   %-1               FROM SN:OBS-1 AND SETTING
     2552                            *                                   THE EXIT VALUE IN CK:PTR,
     2553   01 01610    222FFFFD A            LI,X2    -3                AND BY SETTING THE EXP &
     2554   01 01611    22C00000 A            LI,R12   0                 OBS BUFFER POINTERS TO THE
     2555   01 01612    35C01B6F              STW,R12  CMP:ERR           START OF THEIR BUFFERS.
     2556   01 01613    72C0368E              LB,R12   SN:OBS-1          *
     2557   01 01614    31C01C41              CW,R12   CE:PTR                                            *A02
     2558   01 01615    68201617              BCR,2    %+2                                               *A02
     2559   01 01616    32C01C41              LW,R12   CE:PTR                                            *A02
     2560   01 01617    35C01C34              STW,R12  CK:PTR            IF THE SNAP OPTION IS LESS
     2561   01 01618    22C03965     NEW:HDR  LI,R12   SN:EXP            THAN 7, THE SNAP OUTPUT IS
     2562   01 01619    35C01B6C              STW,R12  SN:EXPTR          A FUNCTION OF A NON-COMPARE
     2563   01 0161A    32C0368F              LW,R12   SN:OBS            BEING DETECTED.  CONTROL
     2564   01 0161B    35C01B6B              STW,R12  SN:OBPTR          GOES TO CMP:OE TO COMPARE
     2565   01 0161C    22C00001 A            LI,R12   1                 EXP WITH OBS BUFFERS.
     2566   01 0161D    35C01B6A              STW,R12  CK:CTR            *
     2567   01 0161E    32D01C33              LW,R13   CK:BIAS
     2568   01 0161F    68201624              BCR,2    %+5
     2569   01 01620    22B00017 A            LI,R11   23
     2570   01 01621    22A00001 A            LI,R10   1                                                 *A02
     2571   01 01622    6AF016D9              BAL,R15  CK:ADV                                            *A02
     2572   01 01623    64D01622              BDR,R13  %-1
     2573   01 01624    32C01B73              LW,R12   SO                IF SNAP OPTION IS GREATER
     2574   01 01625    21C00003 A            CI,R12   3
     2575   01 01626    6830162A              BCR,3    %+4
     2576   01 01627    21C00006 A            CI,R12   6                 THAN 6 THE FIRST SECTION
     2577   01 01628    6810162A              BCR,1    %+2
     2578   01 01629    6AF016E5              BAL,R15  CMP:OE            OF THE HEADER CAN BE
     2579   01 0162A    32C41C13              LW,R12   HDR:ADR,X2        OUTPUT.  IF SO=7 OR F,
     2580   01 0162B    6AF0165E              BAL,R15  HDR:OUT           THERE IS NO EXP. DATA
     2581   01 0162C    32C01B73     SO126    LW,R12   SO                FROM TAPE AND CONTROL GOES
     2582   01 0162D    21C00003 A            CI,R12   3
     2583   01 0162E    69301630              BCS,3    %+2
     2584   01 0162F    225FFFFF A            LI,X5    -1
     2585   01 01630    21C00007 A            CI,R12   7                 TO OBS DATA ONLY.
     2586   01 01631    68301648              BE       OB:OUT            *
     2587   01 01632    32A01B6C              LW,R10   SN:EXPTR          IF SO<7 THE EXP DATA IS
     2588   01 01633    6AF016A8              BAL,R15  SOE:MOVR          MOVED BY SOE:MOVR INTO
     2589   01 01634    6AF016BB              BAL,R15  DIS:FLG-2         THE DATA CHAINING BUFFER;
     2590   01 01635    22000DBB              LI,R0    DA(DCB:DW0)       THE DISREGARD FLAGS ARE
     2591   01 01636    6AF0166E              BAL,R15  DAT:OUT           SET ACCORDING TO THE
     2592                            *                                   BIT MASK AND THE BUFFER
     2593         01 01637           SO12A    EQU      %                 IS OUTPUT BY DAT:OUT.
     2594   01 01637    32C01B73              LW,R12   SO                *
     2595   01 01638    21C00003 A            CI,R12   3                 IF SO<3 OR IF THE CLK:CTR
     2596   01 01639    68301651              BCR,3    SO12B+4
     2597   01 0163A    68101648              BCR,1    OB:OUT            =1 OR IF THE LOOP COUNT IN
     2598   01 0163B    02000000 A            NOP                        X5 GOES TO 0, THE NEXT
     2599   01 0163C    02000000 A            NOP                        OUTPUT IS FROM THE OBS
     2600   01 0163D    02000000 A            NOP                        BUFFER.  OTHERWISE THERE
     2601   01 0163E    65501640              BIR,X5   %+2               IS ONE MORE OUTPUT FROM
     2602   01 0163F    68001648              B        OB:OUT            THE EXP BUFFER.  THIS IS
     2603   01 01640    22A00001 A            LI,R10   1                 THE SEMI-INTERLACED FORMAT.
     2604   01 01641    22B00017 A            LI,R11   23                (EXP, EXP, OBS)
     2605   01 01642    6AF016D9              BAL,R15  CK:ADV            *
     2606   01 01643    68001632              B        SO126+6
     2607                            *
     2608         01 01644           SO67B    EQU      %
     2609   01 01644    32C01B73              LW,R12   SO
     2610   01 01645    21C00003 A            CI,R12   3
     2611   01 01646    69101718              BCS,1    BACK12
     2612   01 01647    68001618              B        NEW:HDR
     2613                            *                                   OB:OUT USES SOE:MOVR TO
     2614         01 01648           OB:OUT   EQU      %                 MOVE THE OBS DATA INTO
     2615   01 01648    32A01B6B              LW,R10   SN:OBPTR          THE DATA CHAINING BUFFER
     2616   01 01649    6AF016A8              BAL,R15  SOE:MOVR          FOR OUTPUT.  DAT:OUT IS
     2617   01 0164A    6AF016BD              BAL,R15  DIS:FLG           A SHARED SUBROUTINE USED
     2618   01 0164B    22000DBB              LI,R0    DA(DCB:DW0)       TO OUTPUT SNAP DATA.
     2619   01 0164C    6AF0166E              BAL,R15  DAT:OUT           *
     2620   01 0164D    32C01B73     SO12B    LW,R12   SO                IF SO=2 THE BUFFER POINTERS
     2621   01 0164E    21C00002 A            CI,R12   2                 MUST BE ADJUSTED AND
     2622   01 0164F    6830165A              BE       PTR:ADJ           CONTROL GOES BACK TO THE
     2623   01 01650    69101658              BL       SO2-1             COMPARE ROUTINE.  THIS
     2624   01 01651    32C01C34              LW,R12   CK:PTR            *
     2625   01 01652    31C01B6A              CW,R12   CK:CTR
     2626   01 01653    68301658              BCR,3    %+5
     2627   01 01654    22A00001 A            LI,R10   1                 OPTION SAYS TO PRINT ALL
     2628   01 01655    22B00017 A            LI,R11   23                NON-COMPARES IN THE RANGE
     2629   01 01656    6AF016D9              BAL,R15  CK:ADV            SPECIFIED BY MST/MSP.
     2630   01 01657    6800162C              B        SO126
     2631   01 01658    65201644              BIR,X2   SO67B
     2632   01 01659    68001725     SO2      B        SO:EXIT
     2633                            *
     2634         01 0165A           PTR:ADJ  EQU      %
     2635   01 0165A    22B00017 A            LI,R11   23
     2636   01 0165B    6AF016DC              BAL,R15  OE:ADV
     2637   01 0165C    680016FA              B        MS:RTN+1
     2638                            *
     2639   01 0165D    00000000 A            DATA     0
     2640         01 0165E           HDR:OUT  EQU      %
     2641   01 0165E    35F0165D              STW,R15  %-1               HDR:OUT PRINTS THE SNAP
     2642   01 0165F    31C00393              CW,R12   #HDRFLG           HEADERS.  (A FUNCTION
     2643   01 01660    E830000F A            BCR,3    *R15              OF X2)
     2644   01 01661    22D000C1 A            LI,R13   X'C1'
     2645   01 01662    75D0000C A            STB,R13  R12
     2646   01 01663    35C01666              STW,R12  %+3
     2647   01 01664    35C01666              STW,R12  %+2                                               *A04
     2648   01 01665    EA6003CD              #PRINT   %+1
            01 01666    C000599C A
     2649   01 01667    69301669              BCS,3    %+2
     2650   01 01668    8F9003CA              XPSD,9   *#RUNADDR%
     2651   01 01669    6AF0169B              BAL,R15  TYPE:CR
     2652   01 0166A    4BC01C6A              AND,R12  ADR:MSK
     2653   01 0166B    35C00393              STW,R12  #HDRFLG
     2654   01 0166C    E800165D              B        *HDR:OUT-1
     2655                            *
     2656   01 0166D    00000000 A            DATA     0
     2657         01 0166E           DAT:OUT  EQU      %
     2658   01 0166E    35F0166D              STW,R15  %-1               DAT:OUT IS A SHARED
     2659   01 0166F    32C41C13              LW,R12   HDR:ADR,X2        ROUTINE FOR OUTPUTTING
     2660   01 01670    31C00393              CW,R12   #HDRFLG           BOTH EXP AND OBS SNAP
     2661   01 01671    68301673              BCR,3    %+2               DATA.
     2662   01 01672    6AF0165E              BAL,R15  HDR:OUT
     2663                            *
     2664   01 01673    EA6003C2              #ETHCON,4  SN:COL1+1
            01 01674    04006E24
     2665   01 01675    22400010 A            LI,X4    16                THIS CODE CONVERTS THE RIGHT
     2666   01 01676    31681C7B              CW,X6    MSK:BTM-8,X4      16 BITS OF THE SNAPSHOT 'PHASE'
     2667   01 01677    6830167A              BCR,3    %+3               COLUMN INTO A HEX NUMBER
     2668   01 01678    64401676              BDR,X4   %-2               PRECEEDED BY A DASH AND
     2669   01 01679    68001680              B        NO:CON            REPLACES IT IN THE OUTPUT BUFFER.
     2670   01 0167A    EA6003C3              #HTECON  X4
            01 0167B    00000004 A
     2671   01 0167C    326C0001 A            LW,X6    1,X6              NO CONVERSION IS DONE IF MORE THAN
     2672   01 0167D    35601B89              STW,X6    SN:COL1+1        A SINGLE BIT IS PRESENT OR IF IT
     2673   01 0167E    22600060 A            LI,X6    X'60'             IS ALL ZERO.
     2674   01 0167F    75601B89              STB,X6    SN:COL1+1
     2675                            *                                                                   *A04
     2676   01 01680    22F00DBB     NO:CON   LI,R15   DA(DCB:DW0)                                       *A04
     2677   01 01681    35F016A6              STW,R15  DBL:WRD
     2678   01 01682    6AF01686              BAL,R15  DC:OUT
     2679   01 01683    35C00393              STW,R12  #HDRFLG
     2680   01 01684    E800166D              B        *DAT:OUT-1
     2681                            *
     2682   01 01685    00000000 A            DATA     0
     2683         01 01686           DC:OUT   EQU      %
     2684   01 01686    35F01685              STW,R15  %-1               DC:OUT DOES THE ACTUAL
     2685   01 01687    32000396              LW,R0    #TOADDR           PRINTING OR TYPING OF
     2686   01 01688    31000397              CW,R0    #PRTADDR          SNAP DATA.
     2687   01 01689    740016A5              STCF     SAVCC                                             *A03
     2688   01 0168A    6930168F              BNE      PRNTR             *
     2689   01 0168B    CDE00396              TIO,R14  *#TOADDR          OUTPUT IS ALWAYS TO
     2690   01 0168C    68C0168F              BCR,12   PRNTR             THE MESSAGE DEVICE
     2691   01 0168D    CF000396              HIO,R0   *#TOADDR          SPECIFIED IN THE J:LINE.
     2692   01 0168E    6980168D              BCS,8    %-1
     2693   01 0168F    320016A6     PRNTR    LW,R0    DBL:WRD
     2694   01 01690    CC000397              SIO,R0   *#PRTADDR
     2695   01 01691    CD100397              TIO,X1   *#PRTADDR
     2696   01 01692    69C01691              BCS,12   %-1
     2697   01 01693    703016A5              LCF      SAVCC                                             *A03
     2698   01 01694    69301697              BCS,3    %+3                                               *A03
     2699   01 01695    3200000E A            LW,R0    R14
     2700   01 01696    CC000396              SIO,R0   *#TOADDR                                          *A03
     2701   01 01697    31101C70              CW,X1    MSK:LST+4
     2702   01 01698    6840169A              BCR,4    %+2               'BREAK' OF OUTPUT CAUSES
     2703   01 01699    8F9003CA              XPSD,9   *#RUNADDR%        A RETURN TO GUIDE IDLE.
     2704   01 0169A    6800169C              B        %+2
     2705   01 0169B    35F01685     TYPE:CR  STW,R15  DC:OUT-1
     2706   01 0169C    32000396              LW,R0    #TOADDR
     2707   01 0169D    31000397              CW,R0    #PRTADDR
     2708   01 0169E    E9301685              BNE      *DC:OUT-1
     2709   01 0169F    EA6003CC              #TYPE    MSK:LST+7
            01 016A0    000071CC A
     2710   01 016A1    02000000 A            NOP
     2711   01 016A2    02000000 A            NOP
     2712   01 016A3    02000000 A            NOP
     2713   01 016A4    E8001685              B        *DC:OUT-1
     2714   01 016A5    00000000 A   SAVCC    DATA     0                                                 *A03
     2715                            *
     2716   01 016A6    00000000 A   DBL:WRD  DATA     0
     2717                            *
     2718   01 016A7    00000000 A            DATA     0
     2719         01 016A8           SOE:MOVR EQU      %
     2720   01 016A8    35F016A7              STW,R15  %-1               SNAPSHOT OBS/EXP MOVER,
     2721   01 016A9    6AF016D4              BAL,R15  CLR:DCB           MOVES DATA FROM THE OBS
     2722   01 016AA    227FFFF9 A            LI,X7    -7                OR EXP BUFFER, CONVERTS
     2723   01 016AB    32941BD8              LW,R9    LINEADR,X2        IT AND STORES IT IN THE
     2724   01 016AC    B23E0009 A   DISP#1   LW,X3    *R9,X7            DATA CHAINING BUFFER
     2725   01 016AD    B2C6000A A            LW,R12   *R10,X3           USING THE 'ITEM'
     2726   01 016AE    6AF01726              BAL,R15  DHEX:CON          DISPLACEMENTS IN DCB:LST.
     2727   01 016AF    326E1BD5              LW,X6    DCB:LST,X7        THERE ARE 7 ITEMS ON EACH
     2728   01 016B0    35DC0000 A            STW,R13  0,X6              ROW OF SNAP PRINTOUT.
     2729   01 016B1    35CC0001 A            STW,R12  1,X6              THE CURRENT SECTION OF
     2730   01 016B2    657016AC              BIR,X7   DISP#1            THE FOLDED SNAP OUTPUT
     2731   01 016B3    32C01B6A              LW,R12   CK:CTR            IS A FUNCTION OF X2.
     2732                            *                                   CK: HOLDS THE VALUE             *A03
     2733                            *                                   OF THE CURRENT CLOCK
     2734                            *                                   BEING PROCESSED BY THE
     2735                            *                                   SNAP OUTPUT ROUTINE.
     2736   01 016B4    02000000 A            NOP
     2737   01 016B5    02000000 A            NOP
     2738   01 016B6    02000000 A            NOP
     2739   01 016B7    02000000 A            NOP
     2740   01 016B8    6AF01726              BAL,R15  DHEX:CON
     2741   01 016B9    35C01B86              STW,R12  SN:COL0
     2742   01 016BA    E80016A7              B        *SOE:MOVR-1
     2743                            *
     2744   01 016BB    227FFFFF A            LI,X7    -1
     2745   01 016BC    357016D3              STW,X7   SKP:NC
     2746         01 016BD           DIS:FLG  EQU      %                 DISREGARD FLAGS ARE
     2747   01 016BD    227FFFF9 A            LI,X7    -7                INSERTED INTO THE DC
     2748   01 016BE    32401B6A              LW,X4    CK:CTR            BUFFER PRIOR TO OUTPUT
     2749   01 016BF    32C83864              LW,R12   BIT:MSK-1,X4      IF THE CORRESPONDING
     2750   01 016C0    32B01B6D     DISP#2   LW,R11   DISRGD            BIT:MSK BIT IS SET.
     2751   01 016C1    B23E0009 A            LW,X3    *R9,X7            DIS:FLG IS ENTERED FROM
     2752   01 016C2    31C61C6C              CW,R12   MSK:LST,X3        OB:OUT.  EXP DATA OUT
     2753   01 016C3    684016C9              BCR,4    NC:FLG            FROM SO126 ENTERS THRU
     2754   01 016C4    326E1BD5              LW,X6    DCB:LST,X7        DIS:FLG-2 TO KEEP THE
     2755   01 016C5    35BDFFFF A            STW,R11  -1,X6             NC:FLG ROUTINE FROM
     2756   01 016C6    657016C0     DIS:X7   BIR,X7   DISP#2            PUTTING *'S ON THE
     2757   01 016C7    357016D3              STW,X7   SKP:NC            EXPECTED DATA.
     2758   01 016C8    E800000F A            B        *R15
     2759                            *
     2760         01 016C9           NC:FLG   EQU      %
     2761   01 016C9    32D016D3              LW,R13   SKP:NC            NC:FLG PUTS THE *'S ON
     2762   01 016CA    693016C6              BCS,3    DIS:X7            THE NON-COMPARING OBS
     2763   01 016CB    32D01B73              LW,R13   SO                DATA.
     2764   01 016CC    21D00007 A            CI,R13   7
     2765   01 016CD    683016C6              BCR,3    DIS:X7
     2766   01 016CE    B2D61B6B              LW,R13   *SN:OBPTR,X3
     2767   01 016CF    B1D61B6C              CW,R13   *SN:EXPTR,X3
     2768   01 016D0    683016C6              BCR,3    DIS:X7
     2769   01 016D1    32B01B6E              LW,R11   ASTRSK
     2770   01 016D2    680016C4              B        DIS:X7-2
     2771                            *
     2772   01 016D3    00000000 A   SKP:NC   DATA     0
     2773                            *
     2774         01 016D4           CLR:DCB  EQU      %
     2775   01 016D4    226FFFE7 A            LI,X6    -25               CLEAR DATA CHAINING BUFF.
     2776   01 016D5    32801B74              LW,R8    SPACES
     2777   01 016D6    358C1B9F              STW,R8   SN:COL0+25,X6
     2778   01 016D7    656016D6              BIR,X6   %-1
     2779   01 016D8    E800000F A            B        *R15
     2780                            *
     2781                            *        LI,R10   +1   OR (-1)     CALLING SEQUENCE FOR CK:ADV
     2782                            *        LI,R11   +23  OR (-23)
     2783                            *        BAL,R15  CK:ADV
     2784                            *
     2785         01 016D9           CK:ADV   EQU      %                 THE CK:PTR AND THE EXP
     2786   01 016D9    32C01B6A              LW,R12   CK:CTR            AND OBS POINTERS ARE
     2787   01 016DA    30C0000A A            AW,R12   R10               MOVED UP OR DOWN THE
     2788   01 016DB    35C01B6A              STW,R12  CK:CTR            SNAP BUFFERS BY THIS
     2789   01 016DC    32C01B6C     OE:ADV   LW,R12   SN:EXPTR          ROUTINE.  ENTERING AT
     2790   01 016DD    30C0000B A            AW,R12   R11               CK:ADV MOVES THEM DOWN
     2791   01 016DE    35C01B6C              STW,R12  SN:EXPTR          IF R10/R11 ARE POSITIVE
     2792   01 016DF    32C01B6B              LW,R12   SN:OBPTR          OR BACK UP IF NEGATIVE.
     2793   01 016E0    30C0000B A            AW,R12   R11               ENTERING AT OE:ADV ONLY
     2794   01 016E1    35C01B6B              STW,R12  SN:OBPTR          MOVES THE BUFFER PTRS.
     2795   01 016E2    E800000F A            B        *R15
     2796                            *
     2797   01 016E3    22C00001 A            LI,R12   1                                                 *A03
     2798   01 016E4    35C01B6A              STW,R12  CK:CTR                                            *A03
     2799         01 016E5           CMP:OE   EQU      %                 SNAP OF A MODULE DURING
     2800   01 016E5    35F01709              STW,R15  CMPOE:EX
     2801   01 016E6    22C00000 A            LI,R12   0
     2802   01 016E7    35C01B6F              STW,R12  CMP:ERR
     2803   01 016E8    02000000 A            NOP                        THE GENERATE PASS, THE
     2804   01 016E9    02000000 A            NOP                        FIRST WORD OF THE MODULE
     2805   01 016EA    32C0368E              LW,R12   SN:OBS-1          IS FETCHED AND THE
     2806   01 016EB    4BC0170A              AND,R12  CLK:MSK
     2807   01 016EC    32D03964              LW,R13   SN:EXP-1
     2808   01 016ED    4BD0170A              AND,R13  CLK:MSK
     2809   01 016EE    31C0000D A            CW,R12   R13               FINAL CLOCK COUNT OF THE
     2810   01 016EF    683016F3              BCR,3    %+4               MODULE IS STORED IN THE         *A04
     2811   01 016F0    EA6003CC              #TYPE    ERMSG5            FIRST BYTE.  THIS WORD
            01 016F1    00005FEC A
     2812   01 016F2    8F9003CA              XPSD,9   *#RUNADDR%        IS THEN STORED IN SN:EXP-1
     2813                            *                                   PRIOR TO WRITING THE            *A03
     2814                            *                                   MODULE OUT TO TAPE              *A03
     2815   01 016F3    22B00017 A            LI,R11   23                *
     2816   01 016F4    6AF016DC              BAL,R15  OE:ADV            AT CMP:OE THIS SAME WORD
     2817   01 016F5    226FFFE9 A   NXT:CLK  LI,X6    -23               IS RECREATED AND VERIFIED
     2818   01 016F6    B2CC1B6B              LW,R12   *SN:OBPTR,X6      AGAINST THE ONE THAT HAS
     2819   01 016F7    B1CC1B6C              CW,R12   *SN:EXPTR,X6      BEEN READ IN OFF TAPE.
     2820   01 016F8    6930170B              BCS,3    MSK:TST           *
     2821   01 016F9    656016F6     MS:RTN   BIR,X6   %-3               COMPARE THE 23 ITEMS PER
     2822   01 016FA    32C01C34              LW,R12   CK:PTR            CORRESPONDING BIT IS SET
     2823   01 016FB    31C01B6A              CW,R12   CK:CTR            IN THE BIT:MSK.  IF NOT
     2824   01 016FC    68301701              BCR,3    %+5               SET THEY EXIT THRU MSK:TST
     2825   01 016FD    22A00001 A            LI,R10   1                 CPU CLOCK AT NXT:CLK.
     2826   01 016FE    22B00017 A            LI,R11   23                NON-COMPARES ARE REFERED
     2827   01 016FF    6AF016D9              BAL,R15  CK:ADV            TO MSK:TST TO SEE IF THE
     2828   01 01700    680016F5              B        NXT:CLK           AFTER THE EXP/OBS PTRS
     2829   01 01701    02000000 A            NOP                        ARE ADJUSTED.
     2830   01 01702    02000000 A            NOP
     2831   01 01703    02000000 A            NOP
     2832   01 01704    32C01B73              LW,R12   SO
     2833   01 01705    21C00002 A            CI,R12   2                 BY A 256 WORD BIT MASK.
     2834   01 01706    69301708              BNE      %+2               THERE IS ONE WORD FOR
     2835   01 01707    65201618              BIR,X2   NEW:HDR           EACH CPU CLOCK THAT CAN
     2836   01 01708    E8001609              B        *SNAP:OUT-1       BE SNAPPED.  THE FIRST 23
     2837                            *                                   BITS(0-22) ARE USED TO
     2838   01 01709    00000000 A   CMPOE:EX DATA     0                 INDICATE WHETHER THE
     2839   01 0170A    00FFFFFF A   CLK:MSK  DATA     X'FFFFFF'
     2840                            *                                   CORRESPONDING ENTRY IN
     2841         01 0170B           MSK:TST  EQU      %                 THE 23 WORD BLOCK OF SNAP
     2842   01 0170B    32401B6A              LW,X4    CK:CTR            DATA IS SUFFICIENTLY
     2843   01 0170C    32C83864              LW,R12   BIT:MSK-1,X4      STABLE FROM CPU CLOCK
     2844   01 0170D    31CC1C83              CW,R12   MSK:BTM,X6        TO CLOCK TO PERMIT
     2845   01 0170E    694016F9              BCS,4    MS:RTN            COMPARISSION.
     2846   01 0170F    22BFFFE9 A            LI,R11   -23               THE PRESENCE OF A BIT IN
     2847   01 01710    6AF016DC              BAL,R15  OE:ADV            THE MASK INDICATES THE
     2848   01 01711    22CFFFFF A            LI,R12   -1                WORD CANT BE COMPARED.
     2849   01 01712    35C01B6F              STW,R12  CMP:ERR           *
     2850   01 01713    32C01B70              LW,R12   FLG126
     2851   01 01714    68301718              BCR,3    BACK12
     2852   01 01715    22C00000 A            LI,R12   0
     2853   01 01716    35C01B70              STW,R12  FLG126
     2854   01 01717    E8001709              B        *CMPOE:EX
     2855                            *
     2856   01 01718    32901B6A     BACK12   LW,R9    CK:CTR            THIS ROUTINE MOVES THE
     2857   01 01719    02000000 A            NOP                        CLOCK AND OBS/EXP PTRS
     2858   01 0171A    31941C38              CW,R9    CK:SAV,X2         BACK ONE CLOCK FOR SO=1
     2859   01 0171B    68301721              BE       %+6               OR 2 TO OBTAIN THE SEMI-
     2860   01 0171C    22AFFFFF A            LI,R10   -1                INTERLACED FORMAT.  THE
     2861   01 0171D    22BFFFE9 A            LI,R11   -23               3 CK:SAV WORDS ARE USED
     2862   01 0171E    6AF016D9              BAL,R15  CK:ADV            HERE TO PREVENT BACKUP
     2863   01 0171F    225FFFFE A            LI,X5    -2                ON THE FIRST CLOCK.  X5
     2864   01 01720    68001722              B        %+2               IS SET TO -2 TO BE USED
     2865   01 01721    225FFFFF A            LI,X5    -1                AS THE LOOP COUNT IN THE
     2866   01 01722    20900001 A            AI,R9    1                 EXP DATA OUTPUT RUOTINE.
     2867   01 01723    35941C38              STW,R9   CK:SAV,X2         *
     2868   01 01724    6800162A              B        SO126-2
     2869                            *
     2870   01 01725    E8001609     SO:EXIT  B        *SNAP:OUT-1
     2871                            *
     2872         01 01726           DHEX:CON EQU      %                 DHEX:CON CONVERTS A WORD
     2873   01 01726    EA6003C3              #HTECON  R12               OF HEX IN TO 2 WORDS OF
            01 01727    0000000C A
     2874   01 01728    B2D00006 A            LW,R13   *X6               EBCDIC.  R13 HAS HIGH
     2875   01 01729    32CC0001 A            LW,R12   1,X6              SIDE, R12 HAS LOW SIDE.
     2876   01 0172A    E800000F A            B        *R15
     2877                            *
     2878         01 0172B           SET:MEM  EQU      %
     2879   01 0172B    328003AA              LW,R8    #MAXMEM           SET:MEM IS BAL'D TO FROM
     2880   01 0172C    21803FFF A            CI,R8    16383             THE INITIALIZER TO SETUP THE
     2881   01 0172D    69201731              BG       %+4               SNAP BUFFER SIZES BASED UPON
     2882   01 0172E    22803FFF A            LI,R8    16383             AVAILABLE MEMORY.  THE VALUE
     2883   01 0172F    208FC69B N            AI,R8    -SN:EXP           IN CK:LIMIT IS THE MAXIMUM #
     2884   01 01730    68001739              B        SETSIZE           OF CLOCKS THE AVAILABLE CORE
     2885   01 01731    208FE100 A            AI,R8    -X'1F00'          SPACE WILL PERMIT.  THE HARE-
     2886   01 01732    208FC69B N            AI,R8    -SN:EXP           WARE LIMIT IS 256 CLOCKS.
     2887   01 01733    21802E00 A            CI,R8    11776             *
     2888   01 01734    68101738              BGE      SETSIZE-1         AVAILABLE MEMORY, AVL:MEM IS
     2889   01 01735    35801820              STW,R8   MAX:CLR           SET TO THE MAXIMUM USED BY
     2890   01 01736    20800F00 A            AI,R8    X'F00'            THE SNAP IF THERE IS MORE
     2891   01 01737    6800173A              B        %+3               CORE THAN IS NEEDED TO SNAP.
     2892   01 01738    22802E00 A            LI,R8    11776             *
     2893   01 01739    35801820     SETSIZE  STW,R8   MAX:CLR           MAX:CLR IS X'F00' LESS THAN
     2894   01 0173A    35801821              STW,R8   AVL:MEM           AVL:MEM IF THE AVAILABLE
     2895                            *                                   CORE SPACE IS LESS THAN THAT
     2896   01 0173B    226FFF00 A            LI,X6    -256              REQUIRED FOR A FULL SNAP.
     2897   01 0173C    22100000 A            LI,X1    0                 THIS PERMITS THE PROGRAM TO
     2898   01 0173D    20100001 A            AI,X1    1                 OVERLAY MTL BUFFERS PROVIDED
     2899   01 0173E    208FFFD2 A            AI,R8    -46               THAT A GENERATION OF SNAP
     2900   01 0173F    69101741              BCS,1    %+2               DATA IS NOT REQUESTED.
     2901   01 01740    6560173D              BIR,X6   %-3               *(SEE UPDTA MEM TESTS)
     2902   01 01741    201FFFFF A            AI,X1    -1                R8 CONTAINS AVL:MEM VALUE.
     2903   01 01742    35101822              STW,X1   CK:LIMIT          IT IS USED TO CALCULATE
     2904                            *                                   THE NUMBER IF 23 WORD
     2905   01 01743    22800000 A            LI,R8    0                 EXP/OBS PAIRS IT CAN
     2906   01 01744    20800017 A            AI,R8    23                SUPPORT.  ONCE THE
     2907   01 01745    64101744              BDR,X1   %-1               MAXIMUM SIZE IS CALCULATED
     2908   01 01746    32900008 A            LW,R9    R8                A CORRESPONDING BYTE COUNT
     2909   01 01747    30900009 A            AW,R9    R9                FOR THE SNAP IOCD'S IS
     2910   01 01748    30900009 A            AW,R9    R9                CALCULATED AND STORED.
     2911   01 01749    20900404 A            AI,R9    1028
     2912   01 0174A    35901829              STW,R9   TAPE+1            CORE IS CLEARED AND
     2913   01 0174B    3590182B              STW,R9   SNAP:WRT+1        THE BIT:MSK IS FILLED
     2914   01 0174C    20803965              AI,R8    SN:EXP            WITH THE DEFAULT DATA (BM:FILL).
     2915   01 0174D    3580368F              STW,R8   SN:OBS
     2916                            *
     2917   01 0174E    32101821     CLR:SNP  LW,X1    AVL:MEM
     2918   01 0174F    02000000 A            NOP
     2919   01 01750    22900000 A            LI,R9    0
     2920   01 01751    35923965              STW,R9   SN:EXP,X1
     2921   01 01752    64101751              BDR,X1   %-1
     2922                            *
     2923   01 01753    221FFF00 A            LI,X1    -256
     2924   01 01754    32901758              LW,R9    BM:FILL
     2925   01 01755    35923964              STW,R9   BIT:MSK+255,X1
     2926   01 01756    65101755              BIR,X1   %-1
     2927                            *
     2928   01 01757    E800000E A            B        *R14
     2929                            *
     2930   01 01758    03002000 A   BM:FILL  DATA     X'03002000'
     2931                            *
     2932         01 01759           DUMMY    EQU      %
     2933   01 01759    4B8017A8              AND,R8   HFFFF
     2934   01 0175A    35803860              STW,R8   SN:CHECK
     2935   01 0175B    22000C0F              LI,R0    DA(ID:WRT)
     2936   01 0175C    CC001C3A              SIO,R0   *TAPE1ADR
     2937   01 0175D    CD001C3A              TIO,R0   *TAPE1ADR
     2938   01 0175E    69C0175D              BCS,12   %-1
     2939   01 0175F    E800000E A            B        *R14
     2940                            *
     2941         01 01760           WRT:MTL  EQU      %
     2942   01 01760    32201C34              LW,X2    CK:PTR
     2943   01 01761    B23003F3              LW,X3    *LISTPTR
     2944   01 01762    75200003 A            STB,X2   X3
     2945   01 01763    35303964              STW,X3   SN:EXP-1
     2946   01 01764    02000000 A            NOP
     2947   01 01765    02000000 A            NOP
     2948   01 01766    02000000 A            NOP
     2949   01 01767    22800000 A            LI,R8    0
     2950   01 01768    6A6017D0              BAL,X6    WRT:SNAP
     2951   01 01769    680010E0              B        PTR:ADV
     2952                            *
     2953         01 0176A           IDX:TAPE EQU      %                 INDEX TAPE IS USED TO
     2954   01 0176A    329017A7              LW,R9    TAPE:AT           LOCATE THE SNAP DATA ON THE     *A02
     2955   01 0176B    68301770              BCR,3    LOOKFWD           MAGTAPE LIBRARY AFTER           *A02
     2956   01 0176C    22000C0A              LI,R0    DA(SPF:BAK)       LOADING IS COMPLETE.            *A02
     2957   01 0176D    CC001C39              SIO,R0   *TAPE0ADR                                         *A02
     2958   01 0176E    CD001C39              TIO,R0   *TAPE0ADR                                         *A02
     2959   01 0176F    69C0176E              BCS,12   %-1               IT IS ALSO USED BY THE          *A02
     2960   01 01770    22000C0C     LOOKFWD  LI,R0    DA(SPF:FWD)       INITIALIZER ON 'YES'            *A02
     2961   01 01771    CC001C39              SIO,R0   *TAPE0ADR         ABSOLUTE RECOVERIES TO
     2962   01 01772    CD001C39              TIO,R0   *TAPE0ADR         REPOSITION THE TAPE TO
     2963   01 01773    69C01772              BCS,12   %-1               THE FIRST MODULE'S
     2964   01 01774    22000C0B              LI,R0    DA(READ:SN)       SNAP DATA.  THE FIRST
     2965   01 01775    CC001C39              SIO,R0   *TAPE0ADR         RECORD ON TAPE IS A 4
     2966   01 01776    CD001C39              TIO,R0   *TAPE0ADR         WORD BLOCK THAT CONTAINS
     2967   01 01777    69C01776              BCS,12   %-1               A UNIQUE PROGRAM
     2968   01 01778    CE901C39              TDV,R9   *TAPE0ADR
     2969   01 01779    3190181B              CW,R9    EOT               DESCRIPTOR WORD IN
     2970   01 0177A    694017F1              BCS,4    ERMG4             EBCDIC.  SEE TAPE:ID.
     2971   01 0177B    32803860              LW,R8    SN:CHECK
     2972   01 0177C    3180181C              CW,R8    TAPE:ID
     2973   01 0177D    69301770              BCS,3    LOOKFWD                                           *A02
     2974   01 0177E    228FFFFF A            LI,R8    -1
     2975   01 0177F    358017A7              STW,R8   TAPE:AT
     2976   01 01780    E800000E A            B        *R14
     2977                            *
     2978         01 01781           MAR:TAPE EQU      %                 MOVE AND READ TAPE IS
     2979   01 01781    328017A7              LW,R8    TAPE:AT
     2980   01 01782    69301785              BCS,3    %+3
     2981   01 01783    6AE0176A              BAL,R14  IDX:TAPE
     2982   01 01784    6AE017B8              BAL,R14  READ              ENTERED WHENEVER THE
     2983   01 01785    32803964              LW,R8    SN:EXP-1          SO OPTION REQUIRES EXP
     2984   01 01786    68301784              BCR,3    %-2               DATA FROM TAPE.
     2985   01 01787    4B801C60              AND,R8   MOD:MSK
     2986   01 01788    318003F2              CW,R8    MCR:NUM
     2987   01 01789    E830000F A            BCR,3    *R15
     2988   01 0178A    48801C3F              EOR,R8   ONES
     2989   01 0178B    308003F2              AW,R8    MCR:NUM
     2990   01 0178C    68301784              BCR,3    MAR:TAPE+3
     2991   01 0178D    69101790              BCS,1    BACKUP                                            *A02
     2992   01 0178E    22000C13              LI,R0    DA(MOVF)                                          *A02
     2993   01 0178F    68001797              B        TAPEMOV                                           *A02
     2994   01 01790    48801C3F     BACKUP   EOR,R8   ONES
     2995   01 01791    20800001 A            AI,R8    1
     2996   01 01792    22000C12              LI,R0    DA(MOVB)
     2997   01 01793    02000000 A            NOP
     2998   01 01794    02000000 A            NOP
     2999   01 01795    02000000 A            NOP
     3000   01 01796    02000000 A            NOP
     3001   01 01797    6AD017B0     TAPEMOV  BAL,R13  MOV:TAPE                                          *A02
     3002   01 01798    648017B0              BDR,R8   MOV:TAPE                                          *A02
     3003   01 01799    68001784              B        MAR:TAPE+3                                        *A02
     3004                            *
     3005   01 0179A    32601507     NO:SN    LW,X6    VER:END
     3006   01 0179B    693010E0              BCS,3    PTR:ADV
     3007   01 0179C    320003F2              LW,R0    MCR:NUM
     3008   01 0179D    02000000 A            NOP
     3009   01 0179E    EA6003C3              #HTECON  R0
            01 0179F    00000000 A
     3010   01 017A0    326C0001 A            LW,X6    1,X6
     3011   01 017A1    02000000 A            NOP
     3012   01 017A2    4B601C2C              AND,X6    LS:MSK
     3013   01 017A3    356017AA              STW,X6    NS:MSG+1
     3014   01 017A4    EA6003CD              #PRINT   NS:MSG,C1
            01 017A5    C1005EA4 A
     3015   01 017A6    680010E0              B        PTR:ADV                                           *A02
     3016                            *
     3017   01 017A7    00000000 A   TAPE:AT  DATA     0
     3018   01 017A8    0000FFFF A   HFFFF    DATA     X'FFFF'
     3019                            *
     3020         01 017A9           NS:MSG   TEXTCS   'MOD     CANNOT BE SNAPPED!'
     3021                            *
     3022         01 017B0           MOV:TAPE EQU      %
     3023   01 017B0    CC201C39              SIO,X2   *TAPE0ADR         USED TO MOVE TAPE
     3024   01 017B1    CD201C39              TIO,X2   *TAPE0ADR         FORWARD OR BACK.
     3025   01 017B2    69C017B1              BCS,12   %-1
     3026   01 017B3    4B30181A              AND,X3   LOADPNT                                           *A02
     3027   01 017B4    E820000D A            BCR,2    *R13                                              *A02
     3028   01 017B5    22200000 A            LI,X2    0                                                 *A02
     3029   01 017B6    352017A7              STW,X2   TAPE:AT                                           *A02
     3030   01 017B7    68001781              B        MAR:TAPE                                          *A02
     3031                            *
     3032         01 017B8           READ     EQU      %
     3033   01 017B8    22400000 A            LI,X4    0                                                 *A02
     3034   01 017B9    35403964              STW,X4   SN:EXP-1                                          *A02
     3035   01 017BA    224FFFFC A            LI,X4    -4                THE SNAP DATA READ
     3036   01 017BB    22000C14              LI,R0    DA(TAPE)          ROUTINE.  X4 IS THE
     3037   01 017BC    CC201C39              SIO,X2   *TAPE0ADR         RETRY COUNT IN THE
     3038   01 017BD    CD201C39              TIO,X2   *TAPE0ADR         EVENT OF A READ ERROR.
     3039   01 017BE    69C017BD              BCS,12   %-1               ERR:MSKT CONTAINS THE
     3040   01 017BF    02000000 A            NOP                        ERROR BITS CHECKED.
     3041   01 017C0    02000000 A            NOP
     3042   01 017C1    32803964              LW,R8    SN:EXP-1
     3043   01 017C2    6830179A              BCR,3    NO:SN
     3044   01 017C3    02000000 A            NOP
     3045   01 017C4    02000000 A            NOP
     3046   01 017C5    02000000 A            NOP
     3047   01 017C6    313017ED              CW,X3    ERR:MSKT
     3048   01 017C7    694017C9              BCS,4    %+2
     3049   01 017C8    E800000E A            B        *R14
     3050   01 017C9    22000C12              LI,R0    DA(MOVB)
     3051   01 017CA    6AD017B0              BAL,R13  MOV:TAPE
     3052   01 017CB    654017B9              BIR,X4   READ+1
     3053   01 017CC    EA6003CC              #TYPE    ERR:TAPE
            01 017CD    00005FB8 A
     3054   01 017CE    8F9003CA              XPSD,9   *#RUNADDR%
     3055   01 017CF    680017B8              B        READ
     3056                            *
     3057         01 017D0           WRT:SNAP EQU      %
     3058   01 017D0    22400003 A            LI,X4    3
     3059   01 017D1    223FFFA4 A            LI,X3    -92
     3060   01 017D2    30800002 A            AW,R8    X2
     3061   01 017D3    653017D2              BIR,X3   %-1
     3062   01 017D4    20800404 A            AI,R8    1028
     3063   01 017D5    3580182B              STW,R8   SNAP:WRT+1
     3064   01 017D6    CD001C3A              TIO,R0   *TAPE1ADR
     3065   01 017D7    69C017D6              BCS,12   %-1
     3066   01 017D8    02000000 A            NOP
     3067   01 017D9    02000000 A            NOP
     3068   01 017DA    02000000 A            NOP
     3069   01 017DB    22000C15     TRY:WRT  LI,R0    DA(SNAP:WRT)
     3070   01 017DC    CC201C3A              SIO,X2   *TAPE1ADR
     3071   01 017DD    CD201C3A              TIO,X2   *TAPE1ADR
     3072   01 017DE    69C017DD              BCS,12   %-1
     3073   01 017DF    02000000 A            NOP
     3074   01 017E0    02000000 A            NOP
     3075   01 017E1    02000000 A            NOP
     3076   01 017E2    02000000 A            NOP
     3077   01 017E3    313017ED              CW,X3    ERR:MSKT
     3078   01 017E4    694017E6              BCS,4    %+2
     3079   01 017E5    E8000006 A            B        *X6
     3080   01 017E6    22000C12              LI,R0    DA(MOVB)
     3081   01 017E7    6AD017B0              BAL,R13  MOV:TAPE
     3082   01 017E8    644017DB              BDR,X4   TRY:WRT
     3083   01 017E9    EA6003CC              #TYPE    ERR:TAPE
            01 017EA    00005FB8 A
     3084   01 017EB    8F9003CA              XPSD,9   *#RUNADDR%
     3085   01 017EC    680010E0              B        PTR:ADV
     3086                            *
     3087   01 017ED    007C0000 A   ERR:MSKT DATA     X'7C0000'
     3088   01 017EE    0AE3C1D7 A   ERR:TAPE TEXTC    'TAPE ERROR'
            01 017EF    C540C5D9 A
            01 017F0    D9D6D940 A
     3089                            *
     3090   01 017F1    EA6003CC     ERMG4    #TYPE    ERMSG4
            01 017F2    00005FD4 A
     3091   01 017F3    8F9003CA              XPSD,9   *#RUNADDR%
     3092   01 017F4    E800000E A            B        *R14
     3093                            *
     3094         01 017F5           ERMSG4   TEXTCS   'CANT LOCATE SNAP DATA'
     3095                            *
     3096                            ERMSG5   TEXTCS   ;
     3097         01 017FB             'CONTROL WORD FROM TAPE DOESNT MATCH CURRENT MODULE'
     3098                            *
     3099         01 01808           ERMSG6   TEXTCS   'SNAP UPDATE CARD KEYPUNCH ERROR'
     3100                                     BOUND    8
     3101   01 01810    73000000 A   EOF      D        X'73',0
     3102   01 01811    00000000 A            DATA     0
     3103   01 01812    33000000 A   REWT     D        X'33',0
     3104   01 01813    00000000 A            DATA     0
     3105   01 01814    5B000000 A   SPF:BAK  D        X'5B',0                                           *A02
     3106   01 01815    00000000 A            D        0                                                 *A02
     3107   01 01816    0200E180     READ:SN  D        2,BA(SN:CHECK)
     3108   01 01817    00000010 A            DATA     16
     3109   01 01818    53000000 A   SPF:FWD  D        X'53',0
     3110   01 01819    00000000 A            D        0
     3111                            *
     3112   01 0181A    04000000 A   LOADPNT  DATA     X'4000000'
     3113   01 0181B    10000000 A   EOT      DATA     X'10000000'
     3114   01 0181C    C4C5C3C9 A   TAPE:ID  TEXT     'DECI'
     3115                            *
     3116                                     BOUND    8
     3117   01 0181E    0100E180     ID:WRT   D        1,BA(SN:CHECK)
     3118   01 0181F    00000010 A            DATA     16
     3119                            *
     3120   01 01820    00000000 A   MAX:CLR  DATA     0
     3121   01 01821    00000000 A   AVL:MEM  DATA     0
     3122   01 01822    00000000 A   CK:LIMIT DATA     0
     3123                            *
     3124                                     BOUND    8
     3125   01 01824    4B000000 A   MOVB     D        X'4B',0
     3126   01 01825    00000000 A            D        0,0
     3127                            *
     3128   01 01826    43000000 A   MOVF     D        X'43',0
     3129   01 01827    00000000 A            D        0,0
     3130                            *
     3131   01 01828    0200E190     TAPE     J        2,BIT:MSK-1
     3132   01 01829    00001804 A            D        0,6148
     3133                            *
     3134   01 0182A    0100E190     SNAP:WRT J        1,BIT:MSK-1
     3135   01 0182B    00001804 A            D        0,6148
     3136                            *
     3137         01 0182C           CARD:CON EQU      %
     3138   01 0182C    02000000 A            NOP
     3139   01 0182D    02000000 A            NOP                        CARD CONTROL IS ENTERED
     3140   01 0182E    32201C2F              LW,X2    ERR:FLG           FROM EXT:ERR, THE FT:ERR
     3141   01 0182F    69301337              BCS,3    CONT:FTE          EXIT IF THE GENERATE
     3142   01 01830    02000000 A            NOP                        FLAG IS SET.  THIS ROUTINE
     3143   01 01831    02000000 A            NOP                        IS DESIGNED TO INTERPRET
     3144   01 01832    02000000 A            NOP                        BIT:MSK CARDS AND PLACE
     3145   01 01833    02000000 A            NOP                        THE DATA IN THE BUFFER
     3146   01 01834    32201C5D              LW,X2    CARD:SW           OVERLAYING THE DEFAULT
     3147   01 01835    69301885              BCS,3    GO:SNAP           DATA.  THE CARD FORMAT
     3148   01 01836    222FFFFF A            LI,X2    -1                IS:
     3149   01 01837    35201C5D              STW,X2   CARD:SW             #302,06,XXXXXXXX,CF,YYY
     3150   01 01838    6AE0174E              BAL,R14  CLR:SNP
     3151   01 01839    32201C5E              LW,X2    END:FLG               ETC.
     3152   01 0183A    69301885              BCS,3    GO:SNAP           WHERE 302 IS THE MODULE#
     3153   01 0183B    32201C5F              LW,X2    RD:SW             IN HEX, 06 AND CF ARE
     3154   01 0183C    69301853              BCS,3    MOD#CHK           THE CLOCKS WHOSE BIT MASK
     3155   01 0183D    222FFFFF A            LI,X2    -1                DATA IS BEING ALTERED AND
     3156   01 0183E    35201C5F              STW,X2   RD:SW             XXXXXXXX IS THE NEW DATA
     3157   01 0183F    22000E2D              LI,R0    DA(CARDIOCD)      FOR CLOCK 06 AND YYYYYYYY
     3158   01 01840    CC001C3C              SIO,0    *CARDADR          IS THE NEW DATA FOR CLOCK
     3159   01 01841    CD001C3C              TIO,R0   *CARDADR          CF.  EACH CARD MUST START
     3160   01 01842    69C01841              BCS,12   %-1               WITH #(MODULE#) IN HEX.
     3161   01 01843    02000000 A            NOP
     3162   01 01844    02000000 A            NOP
     3163   01 01845    02000000 A            NOP
     3164   01 01846    02000000 A            NOP
     3165   01 01847    72801C44              LB,R8    CARD:BUF
     3166   01 01848    2180007B A            CI,R8    X'7B'
     3167   01 01849    6830184D              BCR,3    %+4                                               *A04
     3168   01 0184A    EA6003CC              #TYPE    ERMSG6
            01 0184B    00006020 A
     3169   01 0184C    8F9003CA              XPSD,9   *#RUNADDR%
     3170   01 0184D    32801C44              LW,R8    CARD:BUF
     3171   01 0184E    31801C5C              CW,R8    ENDT               ENDT= TEXT '#END'
     3172   01 0184F    69301853              BCS,3    %+4               CARD:CON IS LOOKING FOR
     3173   01 01850    229FFFFF A            LI,R9    -1                A CARD WITH #END IN
     3174   01 01851    35901C5E              STW,R9   END:FLG           COLUMNS 1-4 TO EXIT THIS
     3175   01 01852    68001885              B        GO:SNAP           PHASE OF SNAP GENERATION.
     3176                            *
     3177   01 01853    02000000 A   MOD#CHK  NOP                                                        *A03
     3178   01 01854    EA6003C2              #ETHCON,3 CARD:BUF,1
            01 01855    03007111
     3179   01 01856    328003F2              LW,R8    MCR:NUM           MOD#CHK VALIDATES THE
     3180   01 01857    31600008 A            CW,X6    R8                MODULE NUMBERS ON EACH
     3181   01 01858    6810185C              BCR,1    %+4               CARD                            *A04
     3182   01 01859    EA6003CC              #TYPE    MOD:MSG
            01 0185A    00006228 A
     3183   01 0185B    E80003C9              B        *#FIDLE%
     3184   01 0185C    02000000 A            NOP
     3185   01 0185D    02000000 A            NOP
     3186   01 0185E    02000000 A            NOP
     3187   01 0185F    02000000 A            NOP
     3188   01 01860    68301862              BCR,3    %+2
     3189   01 01861    68001885              B        GO:SNAP
     3190   01 01862    22800000 A            LI,R8    0
     3191   01 01863    35801C5F              STW,R8   RD:SW
     3192         01 01864           CONVERT  EQU      %
     3193   01 01864    3280186E              LW,R8    MSK:IDX+1         CONVERT, CONVERTS THE
     3194   01 01865    35801C61              STW,R8   IDX:SAV           EBCDIC CARD DATA INTO
     3195   01 01866    32801873              LW,R8    MSK:DATA+1        HEX AND
     3196   01 01867    35801C62              STW,R8   DATA:SAV
     3197   01 01868    22300001 A            LI,X3    1                                                 *A02
     3198   01 01869    222FFFFA A            LI,X2    -6
     3199   01 0186A    32861C44              LW,R8    CARD:BUF,X3                                       *A02
     3200   01 0186B    31801B74              CW,R8    SPACES                                            *A02
     3201   01 0186C    68301881              BCR,3    RESTORE                                           *A02
     3202   01 0186D    EA6003C2     MSK:IDX  #ETHCON,2 CARD:BUF+1,1
            01 0186E    02007115
     3203   01 0186F    21604040 A            CI,X6    X'4040'
     3204   01 01870    68301881              BCR,3    RESTORE
     3205   01 01871    32700006 A            LW,X7    X6
     3206                            *
     3207   01 01872    EA6003C2     MSK:DATA #ETHCON  CARD:BUF+2
            01 01873    00007118
     3208   01 01874    356E3864              STW,X6    BIT:MSK-1,X7     STORES IT IN THE SELECTED
     3209   01 01875    3280186E              LW,R8    MSK:IDX+1         BIT MASK POSITION.
     3210   01 01876    2080000C A            AI,R8    12
     3211   01 01877    3580186E              STW,R8   MSK:IDX+1
     3212   01 01878    32801873              LW,R8    MSK:DATA+1
     3213   01 01879    2080000C A            AI,R8    12
     3214   01 0187A    35801873              STW,R8   MSK:DATA+1
     3215   01 0187B    20300003 A            AI,X3    3
     3216   01 0187C    6520186A              BIR,X2   MSK:IDX-3
     3217   01 0187D    02000000 A            NOP
     3218   01 0187E    02000000 A            NOP
     3219   01 0187F    02000000 A            NOP
     3220   01 01880    02000000 A            NOP
     3221   01 01881    32801C61     RESTORE  LW,R8    IDX:SAV
     3222   01 01882    3580186E              STW,R8   MSK:IDX+1
     3223   01 01883    32801C62              LW,R8    DATA:SAV
     3224   01 01884    35801873              STW,R8   MSK:DATA+1
     3225                            *                                   THIS ROUTINE PERMITS THE
     3226         01 01885           GO:SNAP  EQU      %                 GENERATE ROUTINE TO SHARE
     3227   01 01885    02000000 A            NOP                                                        *A03
     3228   01 01886    32201C30              LW,X2    FTFL              THE SNAP INITIALIZER
     3229   01 01887    69301223              BCS,3    SNAP:RUN          ROUTINE, EXCEPT SN:OEPTR
     3230   01 01888    22203965              LI,X2    SN:EXP            IS SET TO SN:EXP INSTEAD
     3231   01 01889    68001200              B        SNAP:CON+3        OF SN:OBS.
     3232                            *
     3233         01 0188A           MOD:MSG  TEXTCS   'MOD# SEQUENCE ERROR'
     3234                            *
     3235                               TITLE  'J PARAMETER LINE PROCESSING ROUTINE'
     3236         01 0188F           JH       TEXTCS   ' MSGDEV  COMDEV  SI CM  EM  CI MTADR  MIDEV'
     3237         01 0189A           JOUT     TEXTCS   '   0002    0001 00A  0   0   1 0080    0000'
     3238         01 018A5           JINIT    TEXTCS   '   0002    0001 00A  0   0   1 0080    0000'
     3239   01 018B0    00006268              DATA     BA(JOUT)
     3240   01 018B1    0000623C              DATA     BA(JH)
     3241                            *
     3242         01 018B2           JRTA     EQU      %
     3243   01 018B2    356018C3              STW,X6    JL:EXIT
     3244   01 018B3    70200006 A            LC       X6
     3245   01 018B4    E83003C9              BCR,3    *#FIDLE%          EXIT THIS ROUTINE IF NO
     3246                            *                                   CHANGES WERE MADE               *A04
     3247   01 018B5    223FFFF6 A            LI,X3    -10
     3248   01 018B6    328618A5              LW,R8    JOUT+11,X3
     3249   01 018B7    318622DF              CW,R8    PLINEIN+11,X3     USE JP:LST TO ENTER ONLY
     3250   01 018B8    683018BC              BCR,3    %+4               THOSE SUBROUTINES IN
     3251   01 018B9    B2C618CE              LW,R12   *JP:LST,X3        WHICH PARAMETER CHANGES
     3252   01 018BA    691018BC              BCS,1    %+2               WERE MADE BY THE USER.
     3253   01 018BB    EAF0000C A            BAL,R15  *R12
     3254   01 018BC    653018B6              BIR,X3   %-6
     3255   01 018BD    02000000 A            NOP
     3256   01 018BE    02000000 A            NOP
     3257   01 018BF    02000000 A            NOP
     3258   01 018C0    02000000 A            NOP
     3259   01 018C1    02000000 A            NOP
     3260   01 018C2    E80003C9              B        *#FIDLE%
     3261                            *
     3262   01 018C3    00000000 A   JL:EXIT  DATA     0
     3263                            *
     3264   01 018C4    010018CF              D        1,MSG:C           ARRANGED IN A 1 TO 1
     3265   01 018C5    FF000000 A            D        -1,0              CORRESPONDENCE WITH THE
     3266   01 018C6    020018E0              D        2,COM:C           COMPUTER WORDS IN THE
     3267   01 018C7    030018E9              D        3,SI:C            J-PARAMETER LINE.  NEG.
     3268   01 018C8    040018F2              D        4,CM:C            ENTRIES ARE SPACE FIELDS
     3269   01 018C9    05001908              D        5,EM:C            IN THE J-LINE.
     3270   01 018CA    06001921              D        6,CI:C
     3271   01 018CB    07001932              D        7,MT:C
     3272   01 018CC    FF000000 A            D        -1,0
     3273   01 018CD    0800193C              D        8,MI:C
     3274   01 018CE    000018CE     JP:LST   DATA     %
     3275                            *
     3276         01 018CF           MSG:C    EQU      %
     3277   01 018CF    EA6003C2              #ETHCON,4 PLINEIN+1
            01 018D0    04008B54
     3278   01 018D1    CD000006 A            TIO,0    *X6
     3279   01 018D2    688018D6              BCR,8    MSG:OK                                            *A02
     3280   01 018D3    EA6003CC              #TYPE    NODEV                                             *A02
            01 018D4    00006368 A
     3281   01 018D5    68001962              B        ERR:RETJ
     3282   01 018D6    35600397     MSG:OK   STW,X6    #PRTADDR
     3283   01 018D7    326022D5              LW,X6    PLINEIN+1
     3284   01 018D8    3560189B              STW,X6   JOUT+1
     3285   01 018D9    E800000F A            B        *R15
     3286                            *
     3287         01 018DA           NODEV    TEXTCS   'DEVICE NOT AVAILABLE'                             *A02
     3288                            *
     3289         01 018E0           COM:C    EQU      %
     3290   01 018E0    EA6003C2              #ETHCON,4 PLINEIN+3
            01 018E1    04008B5C
     3291   01 018E2    CD000006 A            TIO,0    *X6
     3292   01 018E3    688018E5              BCR,8    %+2
     3293   01 018E4    68001962              B        ERR:RETJ
     3294   01 018E5    35600396              STW,X6    #TOADDR
     3295   01 018E6    326022D7              LW,X6    PLINEIN+3
     3296   01 018E7    3560189D              STW,X6    JOUT+3
     3297   01 018E8    E800000F A            B        *R15
     3298                            *
     3299         01 018E9           SI:C     EQU      %
     3300   01 018E9    EA6003C2              #ETHCON,3 PLINEIN+4,1
            01 018EA    03008B61
     3301   01 018EB    48601C3F              EOR,X6    ONES
     3302   01 018EC    20600001 A            AI,X6    1
     3303   01 018ED    356018F1              STW,X6    SI
     3304   01 018EE    326022D8              LW,X6    PLINEIN+4
     3305   01 018EF    3560189E              STW,X6    JOUT+4
     3306   01 018F0    E800000F A            B        *R15
     3307                            *
     3308   01 018F1    FFFFFFF6 A   SI       DATA     -10
     3309                            *
     3310         01 018F2           CM:C     EQU      %
     3311   01 018F2    EA6003C2              #ETHCON,1 PLINEIN+5,2
            01 018F3    01008B66
     3312   01 018F4    21600003 A            CI,X6    3
     3313   01 018F5    691018FC              BL       SEQ:MAR
     3314   01 018F6    21600009 A            CI,X6    9
     3315   01 018F7    692018F9              BG       %+2
     3316   01 018F8    68001962              B        ERR:RETJ
     3317   01 018F9    2160000D A            CI,X6    13
     3318   01 018FA    691018FC              BL       %+2
     3319   01 018FB    68001962              B        ERR:RETJ
     3320   01 018FC    6C800045 A   SEQ:MAR  RD,R8    X'45'
     3321   01 018FD    4B801441              AND,R8   NEW:CM
     3322   01 018FE    326C18FB              LW,X6    CM:VALU,X6
     3323   01 018FF    48800006 A            EOR,R8   X6
     3324   01 01900    35801449              STW,R8   CM:SAV                                            *A01
     3325   01 01901    35801446              STW,R8   CM:ON                                             *A01
     3326   01 01902    326022D9              LW,X6    PLINEIN+5
     3327   01 01903    3560189F              STW,X6    JOUT+5
     3328   01 01904    E800000F A            B        *R15
     3329                            *
     3330         01 018FB           CM:VALU  EQU      %-10
     3331   01 01905    00000000 A            M        0,0,0,0,0,0,0
     3332   01 01906    00400000 A            M        0,0,0,1,0,0,0
     3333   01 01907    00800000 A            M        0,0,0,2,0,0,0
     3334                            *
     3335         01 01908           EM:C     EQU      %
     3336   01 01908    EA6003C2              #ETHCON,1 PLINEIN+6,2
            01 01909    01008B6A
     3337   01 0190A    22800000 A            LI,R8    0
     3338   01 0190B    21600004 A            CI,X6    4
     3339   01 0190C    69101915              BL       SEQ:EM
     3340   01 0190D    21600009 A            CI,X6    9
     3341   01 0190E    69201910              BG       %+2
     3342   01 0190F    68001962              B        ERR:RETJ
     3343   01 01910    2160000E A            CI,X6    14
     3344   01 01911    69101913              BL       %+2
     3345   01 01912    68001962              B        ERR:RETJ
     3346   01 01913    206FFFF6 A            AI,X6    -10
     3347   01 01914    228FFFFF A            LI,R8    -1
     3348   01 01915    358013F9     SEQ:EM   STW,R8   EM:FLG
     3349   01 01916    48601C3F              EOR,X6    ONES
     3350   01 01917    20600001 A            AI,X6    1
     3351   01 01918    326C1920              LW,X6    EM:VALU,X6
     3352   01 01919    356013FA              STW,X6    EM
     3353   01 0191A    326022DA              LW,X6    PLINEIN+6
     3354   01 0191B    356018A0              STW,X6    JOUT+6
     3355   01 0191C    E800000F A            B        *R15
     3356                            *
     3357   01 0191D    FFFFFFFC A            DATA     -4
     3358   01 0191E    FFFFFFFD A            DATA     -3
     3359   01 0191F    FFFFFFFF A            DATA     -1
     3360   01 01920    00000000 A   EM:VALU  DATA     0
     3361                            *
     3362         01 01921           CI:C     EQU      %
     3363   01 01921    EA6003C2              #ETHCON,1 PLINEIN+7,2
            01 01922    01008B6E
     3364   01 01923    32600006 A            LW,X6    X6
     3365   01 01924    68301928              BCR,3    %+4
     3366   01 01925    21600001 A            CI,X6    1
     3367   01 01926    6830192C              BCR,3    %+6
     3368   01 01927    68001962              B        ERR:RETJ
     3369   01 01928    22600000 A            LI,X6    0
     3370   01 01929    356011FC              STW,X6    CI:CNT
     3371   01 0192A    356011AB              STW,X6   SNAPINT
     3372   01 0192B    6800192D              B        %+2
     3373   01 0192C    2260E390 A            LI,X6    X'E390'
     3374   01 0192D    35601931              STW,X6    CI:SAV
     3375   01 0192E    326022DB              LW,X6    PLINEIN+7
     3376   01 0192F    356018A1              STW,X6    JOUT+7
     3377   01 01930    E800000F A            B        *R15
     3378                            *
     3379   01 01931    0000E390 A   CI:SAV   DATA     X'E390'
     3380                            *
     3381         01 01932           MT:C     EQU      %
     3382   01 01932    EA6003C2              #ETHCON,4 PLINEIN+8
            01 01933    04008B70
     3383   01 01934    CD000006 A            TIO,0    *X6
     3384   01 01935    68801937              BCR,8    %+2
     3385   01 01936    68001962              B        ERR:RETJ
     3386   01 01937    35601C39              STW,X6    TAPE0ADR
     3387   01 01938    326022DC              LW,X6    PLINEIN+8
     3388   01 01939    356018A2              STW,X6    JOUT+8
     3389   01 0193A    356018AD              STW,X6   JINIT+8
     3390   01 0193B    E800000F A            B        *R15
     3391                            *
     3392         01 0193C           MI:C     EQU      %
     3393   01 0193C    EA6003C2              #ETHCON,4 PLINEIN+10
            01 0193D    04008B78
     3394   01 0193E    CF001954              HIO,R0   *MI:ADR
     3395   01 0193F    CF000006 A            HIO,0    *X6
     3396   01 01940    CD000006 A            TIO,0    *X6
     3397   01 01941    68C01945              BCR,12   %+4                                               *A04
     3398   01 01942    EA6003CC              #TYPE    ERMSG8
            01 01943    00006554 A
     3399   01 01944    E800000F A            B        *R15
     3400   01 01945    22000CA8              LI,R0    DA(TIC)
     3401   01 01946    CC000006 A            SIO,R0   *X6
     3402   01 01947    35601954              STW,X6   MI:ADR
     3403   01 01948    02000000 A            NOP
     3404   01 01949    02000000 A            NOP
     3405   01 0194A    02000000 A            NOP
     3406   01 0194B    02000000 A            NOP
     3407   01 0194C    326022DE              LW,X6    PLINEIN+10
     3408   01 0194D    356018A4              STW,X6   JOUT+10
     3409   01 0194E    E800000F A            B        *R15
     3410                            *
     3411                                     BOUND    8
     3412   01 01950    01004358     TIC      J        1,AUTOTEST
     3413   01 01951    20001058 A            I        2,(ESM:NULL-AUTOTEST)**2
     3414   01 01952    08000CA8              D        8,DA(TIC)
     3415   01 01953    00000000 A            I        0
     3416                            *
     3417   01 01954    00000000 A   MI:ADR   DATA     X'0000'
     3418                            ERMSG8   TEXTCS   ;
     3419         01 01955            'NO RECOGNITION FROM MEMORY INTERFERRENCE ADDRESS'
     3420                            *
     3421   01 01962    B26618CE     ERR:RETJ LW,X6    *JP:LST,X3
     3422   01 01963    72600006 A            LB,X6    X6
     3423   01 01964    E80018C3              B        *JL:EXIT
     3424                            *
     3425                             TITLE  'K PARAMETER LINE PROCESSING ROUTINE'
     3426                            *
     3427         01 01965           KH       TEXTCS   'MST MSP MCR  LC  SO  CB  CE  SNPADR'
     3428         01 0196E           KOUT     TEXTCS   '001 000 001  00  00  00  00    0000'
     3429         01 01977           KINIT    TEXTCS   '001 000 001  00  00  00  00    0000'
     3430                            *
     3431   01 01980    000065B8              DATA     BA(KOUT)
     3432   01 01981    00006594              DATA     BA(KH)
     3433         01 01982           KRTA     EQU      %
     3434   01 01982    35601A60              STW,X6     KL:EXIT
     3435   01 01983    70200006 A            LC       X6
     3436   01 01984    E83003C9              BCR,3    *#FIDLE%
     3437   01 01985    223FFFF7 A            LI,X3    -9                  !EXIT!  IF NOT,COMPARE THE ELEMENT
     3438   01 01986    22800010 A            LI,R8    X'10'             OF KOUT AND PLINEIN  TO PROCESS ALL
     3439   01 01987    758019C1              STB,R8   NEW:MST           THOSE NOT COMPARING.  RESET NEW:MST.
     3440   01 01988    32861977              LW,R8    KOUT+9,X3          NEW:MST WILL BE SET IN MST:C IF A
     3441   01 01989    318622DD              CW,R8    PLINEIN+9,X3       NEW STARTING ADDRESS HAS BEEN
     3442   01 0198A    6830198D              BCR,3    %+3                REQUESTED.
     3443   01 0198B    32C619AD              LW,R12   KP:LST,X3            MOVE PLINEIN  INTO KOUT
     3444   01 0198C    EAF0000C A            BAL,R15  *R12
     3445   01 0198D    65301988              BIR,X3   %-5
     3446   01 0198E    02000000 A            NOP
     3447   01 0198F    02000000 A            NOP
     3448   01 01990    02000000 A            NOP
     3449   01 01991    328003F1              LW,R8    MSP:NUM
     3450   01 01992    318003F0              CW,R8    MST:NUM
     3451   01 01993    68101996              BGE      %+3
     3452   01 01994    223FFFF8 A            LI,X3    -8
     3453   01 01995    680019ED              B        ERR:RET
     3454   01 01996    22FFFFFF A            LI,R15   -1
     3455   01 01997    35F0141D              STW,R15  KL:FLG
     3456   01 01998    6AF013FE              BAL,R15  LSTSERVO          SERVO LIST POINTER TO
     3457   01 01999    22F00000 A            LI,R15   0                 THE SELECTED MODULE(MCR)
     3458   01 0199A    35F0141D              STW,R15  KL:FLG
     3459   01 0199B    35F01C30              STW,R15  FTFL
     3460   01 0199C    02000000 A            NOP
     3461   01 0199D    02000000 A            NOP
     3462   01 0199E    02000000 A            NOP
     3463   01 0199F    703019C1     GIDLE    LCF      NEW:MST
     3464   01 019A0    EA6003C9              BAL,X6    *#FIDLE%          ADDRESS AT RESTART IF REQUESTED.
     3465   01 019A1    000019A2              DATA     RESTART
     3466                            *
     3467                                     BOUND    8
     3468   01 019A2    000010D1     RESTART  DATA     START+2
     3469   01 019A3    00000000 A            DATA     0
     3470                            *
     3471   01 019A4    010019AF              D        1,MST:C
     3472   01 019A5    020019C3              D        2,MSP:C
     3473   01 019A6    030019D8              D        3,MCR:C
     3474   01 019A7    040019F0              D        4,LC:C
     3475   01 019A8    050019FF              D        5,SO:C
     3476   01 019A9    06001A2A              D        6,CB:C
     3477   01 019AA    07001A48              D        7,CE:C
     3478   01 019AB    000019AB              DATA     %
     3479   01 019AC    08001A55              D        8,SNPADR:C
     3480   01 019AD    000019AD     KP:LST   DATA     %
     3481                            *
     3482   01 019AE    00000000 A            DATA     0
     3483         01 019AF           MST:C    EQU      %
     3484   01 019AF    35F019AE              STW,R15  %-1
     3485   01 019B0    22600000 A            LI,X6    0
     3486   01 019B1    356019C1              STW,X6   NEW:MST
     3487   01 019B2    EA6003C2              #ETHCON,3 PLINEIN,1
            01 019B3    03008B51
     3488   01 019B4    4B601C60              AND,X6    MOD:MSK          VERIFY THAT THE NEW MST IS SMALLER
     3489   01 019B5    683019ED              BCR,3    ERR:RET
     3490   01 019B6    316019C0              CW,X6    LST:NUM           THAN THE LAST MODULE NUMBER (+1).
     3491   01 019B7    692019ED              BG       ERR:RET
     3492   01 019B8    02000000 A            NOP
     3493   01 019B9    356003F2              STW,X6   MCR:NUM
     3494   01 019BA    356003F0              STW,X6    MST:NUM           SAVE VALID MST AT MST:NUM.
     3495   01 019BB    329022D4              LW,R9    PLINEIN
     3496   01 019BC    3590196E              STW,R9   KOUT
     3497   01 019BD    309019EC              AW,R9    MSB21
     3498   01 019BE    35901970              STW,R9   KOUT+2
     3499   01 019BF    E80019AE              B        *MST:C-1
     3500                            *
     3501   01 019C0    00000000 A   LST:NUM  DATA     0
     3502   01 019C1    FFFFFFFF A   NEW:MST  DATA     -1
     3503                            *
     3504   01 019C2    00000000 A            DATA     0
     3505         01 019C3           MSP:C    EQU      %
     3506   01 019C3    35F019C2              STW,R15  %-1
     3507   01 019C4    22600000 A            LI,X6    0
     3508   01 019C5    356019C1              STW,X6   NEW:MST
     3509   01 019C6    EA6003C2              #ETHCON,3 PLINEIN+1,1      VERIFY THAT MSP IS SMALLER THAN THE
            01 019C7    03008B55
     3510   01 019C8    4B601C60              AND,X6    MOD:MSK          LAST MODULE NUMBER (+1). AND GREATER
     3511   01 019C9    683019CC              BCR,3    %+3
     3512   01 019CA    216000F1 A            CI,X6    LAST:MOD
     3513   01 019CB    692019ED              BG       ERR:RET
     3514   01 019CC    316003F0              CW,X6    MST:NUM
     3515   01 019CD    691019ED              BL       ERR:RET
     3516   01 019CE    356003F1              STW,X6    MSP:NUM          SAVE VOLID MSP AT MSP:NUM.
     3517   01 019CF    329022D5              LW,R9    PLINEIN+1
     3518   01 019D0    3590196F              STW,R9   KOUT+1
     3519   01 019D1    3290196E              LW,R9    KOUT
     3520   01 019D2    309019EC              AW,R9    MSB21
     3521   01 019D3    35901970              STW,R9   KOUT+2
     3522   01 019D4    329003F0              LW,R9    MST:NUM
     3523   01 019D5    359003F2              STW,R9   MCR:NUM
     3524   01 019D6    E80019C2              B        *MSP:C-1
     3525                            *
     3526   01 019D7    00000000 A            DATA     0
     3527         01 019D8           MCR:C    EQU      %
     3528   01 019D8    35F019D7              STW,R15  %-1
     3529   01 019D9    22600000 A            LI,X6    0
     3530   01 019DA    356019C1              STW,X6   NEW:MST
     3531   01 019DB    EA6003C2              #ETHCON,3 PLINEIN+2,1      IF MCR IS BEYOND THE RANGE OF
            01 019DC    03008B59
     3532   01 019DD    4B601C60              AND,X6    MOD:MSK          MST TO MSP SET IT EQUAL TO MST
     3533   01 019DE    316003F0              CW,X6    MST:NUM           AT SET:MCR.
     3534   01 019DF    691019E6              BCS,1    SET:MCR
     3535   01 019E0    316003F1              CW,X6    MSP:NUM
     3536   01 019E1    692019E6              BCS,2    SET:MCR
     3537   01 019E2    356003F2              STW,X6    MCR:NUM
     3538   01 019E3    329022D6              LW,R9    PLINEIN+2
     3539   01 019E4    35901970              STW,R9   KOUT+2
     3540   01 019E5    E80019D7              B        *MCR:C-1
     3541   01 019E6    3290196E     SET:MCR  LW,R9    KOUT              STARTING POINT.
     3542   01 019E7    309019EC              AW,R9    MSB21             MSB21 IS A CONSTANT THAT ADJUSTS THE
     3543   01 019E8    35901970              STW,R9   KOUT+2            KOUT BYTE COUNT TO A SPACE CODE X'40
     3544   01 019E9    329003F0              LW,R9    MST:NUM
     3545   01 019EA    359003F2              STW,R9   MCR:NUM
     3546   01 019EB    E80019D7              B        *MCR:C-1
     3547                            *
     3548   01 019EC    1D000000 A   MSB21    DATA     X'1D000000'
     3549                            *
     3550   01 019ED    B26619AD     ERR:RET  LW,X6    *KP:LST,X3
     3551   01 019EE    72600006 A            LB,X6    X6
     3552   01 019EF    E8001A60              B        *KL:EXIT
     3553                            *
     3554         01 019F0           LC:C     EQU      %
     3555   01 019F0    EA6003C2              #ETHCON,2  PLINEIN+3,2
            01 019F1    02008B5E
     3556   01 019F2    4B6019FD              AND,X6     HFF             LOOP COUNT.  THE NUMBER
     3557   01 019F3    48601C3F              EOR,X6    ONES             OF TIMES THRU THE MODULE
     3558   01 019F4    20600001 A            AI,X6    1                 RANGE SPECIFIED BY
     3559   01 019F5    356019FE              STW,X6     LCNT            MST/MSP.
     3560   01 019F6    22600001 A            LI,X6    1
     3561   01 019F7    3560141B              STW,X6   PASS:CNT
     3562   01 019F8    22600000 A            LI,X6    0
     3563   01 019F9    35601C2E              STW,X6   ERR:CNT
     3564   01 019FA    326022D7              LW,X6    PLINEIN+3
     3565   01 019FB    35601971              STW,X6    KOUT+3
     3566   01 019FC    E800000F A            B        *R15
     3567                            *
     3568   01 019FD    000000FF A   HFF      DATA     X'FF'
     3569   01 019FE    00000000 A   LCNT     DATA     0
     3570                            *
     3571         01 019FF           SO:C     EQU      %                 SNAP OPTION PARAMETER VALIDATION.
     3572   01 019FF    22900000 A            LI,R9    0
     3573   01 01A00    35901501              STW,R9   SNAP:FLG
     3574   01 01A01    35901502              STW,R9   SNAP:UNC
     3575   01 01A02    35901C30              STW,R9   FTFL
     3576   01 01A03    35901506              STW,R9   VER:FLG
     3577   01 01A04    359019C1              STW,R9   NEW:MST
     3578   01 01A05    2290E390 A            LI,R9    X'E390'
     3579   01 01A06    35901931              STW,R9   CI:SAV
     3580   01 01A07    EA6003C2              #ETHCON,2 PLINEIN+4,2
            01 01A08    02008B62
     3581   01 01A09    4B6019FD              AND,X6    HFF
     3582   01 01A0A    68301A1F              BCR,3    SO:CEX
     3583   01 01A0B    21600003 A            CI,X6    3                 IF LESS THAN 3 SET SO AND EXIT.
     3584   01 01A0C    69101A1F              BCS,1    SO:CEX
     3585   01 01A0D    68301A17              BCR,3    DO:SN
     3586   01 01A0E    21600006 A            CI,X6    6
     3587   01 01A0F    691019ED              BCS,1    ERR:RET
     3588   01 01A10    21600008 A            CI,X6    8
     3589   01 01A11    69101A1F              BCS,1    SO:CEX
     3590   01 01A12    683019ED              BCR,3    ERR:RET
     3591   01 01A13    2160000C A            CI,X6    12
     3592   01 01A14    683019ED              BCR,3    ERR:RET
     3593   01 01A15    2160000D A            CI,X6    13
     3594   01 01A16    683019ED              BCR,3    ERR:RET
     3595   01 01A17    229FFFFF A   DO:SN    LI,R9    -1                IF GREATER THAN 8 SET SNAP:FLG
     3596   01 01A18    35901501              STW,R9   SNAP:FLG          IF SO=15 RESET SNAP;FLG AND SAME AS5
     3597   01 01A19    35901502              STW,R9   SNAP:UNC
     3598   01 01A1A    22900000 A            LI,R9    0
     3599   01 01A1B    35901931              STW,R9   CI:SAV
     3600   01 01A1C    2290E390 A            LI,R9    X'E390'
     3601   01 01A1D    6D901100 A            WD,R9    X'1100'
     3602   01 01A1E    4B601C2A              AND,X6     CON7
     3603   01 01A1F    35601B73     SO:CEX   STW,X6    SO
     3604   01 01A20    68301A27              BCR,3    %+7
     3605   01 01A21    21600007 A            CI,X6    7
     3606   01 01A22    68301A27              BCR,3    %+5
     3607   01 01A23    21600003 A            CI,X6    3
     3608   01 01A24    68301A26              BCR,3    %+2
     3609   01 01A25    35601506              STW,X6   VER:FLG
     3610   01 01A26    02000000 A            NOP
     3611   01 01A27    329022D8              LW,R9    PLINEIN+4
     3612   01 01A28    35901972              STW,R9   KOUT+4
     3613   01 01A29    E800000F A            B        *R15
     3614                            *
     3615         01 01A2A           CB:C     EQU      %
     3616   01 01A2A    22900000 A            LI,R9    0
     3617   01 01A2B    35901C30              STW,R9   FTFL
     3618   01 01A2C    35901A47              STW,R9   WDT:SNAP
     3619   01 01A2D    35901C33              STW,R9   CK:BIAS
     3620   01 01A2E    EA6003C2              #ETHCON,2 PLINEIN+5,2
            01 01A2F    02008B66
     3621   01 01A30    32801A45              LW,R8    NORM:SNP          CLOCK BIAS SETS THE CLOCK
     3622   01 01A31    216000FF A            CI,X6    X'FF'             ON WHICH SNAPPING WILL
     3623   01 01A32    69301A35              BCS,3    %+3               BEGIN.
     3624   01 01A33    226FFFFF A            LI,X6    -1
     3625   01 01A34    32801A46              LW,R8    LONG:SNP
     3626   01 01A35    35801227              STW,R8   SNAP:SW           IF CB IS SET TO X'FF'
     3627   01 01A36    216000FE A            CI,X6    X'FE'
     3628   01 01A37    68301A3D              BCR,3    %+6                                               *A03
     3629   01 01A38    21600000 A            CI,X6    0                                                 *A03
     3630   01 01A39    68301A3B              BCR,3    %+2                                               *A03
     3631   01 01A3A    206FFFFF A            AI,X6    -1                                                *A03
     3632   01 01A3B    68301A41              BCR,3    %+6
     3633   01 01A3C    21600000 A            CI,X6    0
     3634   01 01A3D    68301A3F              BCR,3    %+2
     3635   01 01A3E    206FFFFF A            AI,X6    -1
     3636   01 01A3F    35601C33              STW,X6    CK:BIAS          SNAPPING WILL CONTINUE
     3637   01 01A40    68001A42              B        %+2
     3638   01 01A41    35601A47              STW,X6   WDT:SNAP
     3639   01 01A42    329022D9              LW,R9    PLINEIN+5         UNTIL THE BUFFER IS FULL.
     3640   01 01A43    35901973              STW,R9   KOUT+5
     3641   01 01A44    E800000F A            B        *R15
     3642                            *
     3643   01 01A45    6810122A     NORM:SNP BCR,1    SNAP:SW+3
     3644   01 01A46    6800122A     LONG:SNP B        SNAP:SW+3
     3645   01 01A47    00000000 A   WDT:SNAP DATA     0
     3646                            *
     3647         01 01A48           CE:C     EQU      %                 CLOCK END SETS THE CLOCK
     3648   01 01A48    32901822              LW,R9    CK:LIMIT          ON WHICH SNAPPING WILL
     3649   01 01A49    35901C41              STW,R9   CE:PTR            STOP.
     3650   01 01A4A    EA6003C2              #ETHCON,2 PLINEIN+6,2
            01 01A4B    02008B6A
     3651   01 01A4C    21600000 A            CI,X6    0                                                 *A02
     3652   01 01A4D    68301A50              BCR,3    %+3                                               *A02
     3653   01 01A4E    02000000 A            NOP
     3654   01 01A4F    35601C41              STW,X6   CE:PTR
     3655   01 01A50    02000000 A            NOP
     3656   01 01A51    02000000 A            NOP
     3657   01 01A52    329022DA              LW,R9    PLINEIN+6
     3658   01 01A53    35901974              STW,R9   KOUT+6
     3659   01 01A54    E800000F A            B        *R15
     3660                            *
     3661         01 01A55           SNPADR:C EQU      %                 SNAP ADDRESS.  SET TO LOC
     3662   01 01A55    EA6003C2              #ETHCON,4 PLINEIN+8        IN THE INITIALIZER.
            01 01A56    04008B70
     3663   01 01A57    316003AA              CW,X6    #MAXMEM           THE RANGE OF SNAPPABLE
     3664   01 01A58    692019ED              BG       ERR:RET           ADDRESSES IS LIMITED TO
     3665   01 01A59    02000000 A            NOP                        THE CODE PASSED THRU
     3666   01 01A5A    02000000 A            NOP                        AFTER SNAP IS ARMED AT
     3667   01 01A5B    02000000 A            NOP                        SET:SNAP AND TURNED OFF
     3668   01 01A5C    35601C42              STW,X6    SNAP:SET         AT SNAP:RUN.  THIS IS
     3669   01 01A5D    329022DC              LW,R9    PLINEIN+8         ESSENTIALLY THE AREA OF
     3670   01 01A5E    35901976              STW,R9   KOUT+8            LOC DURING SHORT LOOP.
     3671   01 01A5F    E800000F A            B        *R15
     3672                            *
     3673   01 01A60    00000000 A   KL:EXIT  DATA     0
1 C00   23:55 JUN 20,'83    SIGMA 9 CPU DIAG DECIMAL 706136-11/51A04  8-31-72                     PAGE   10
A    3675                                     TITLE  '*****DISPLAY  LIST  ROUTINE  (DL) *****'
     3676                            *
     3677         01 01A61           DLTA     EQU      %
     3678   01 01A61    02000000 A            NOP
     3679   01 01A62    02000000 A            NOP
     3680   01 01A63    3260039C              LW,X6    #PARAM%H1         FIRST PARAMETER ENTERED.
     3681   01 01A64    68301B0A              BCR,3    BAD:PAR1                                          *A03
     3682   01 01A65    316019C0              CW,X6    LST:NUM
     3683   01 01A66    69201B0A              BG       BAD:PAR1
     3684   01 01A67    02000000 A            NOP
     3685   01 01A68    02000000 A            NOP
     3686   01 01A69    3260039D              LW,X6    #PARAM%H2         SECOND PARAMETER ENTERED.
     3687   01 01A6A    68301B0C              BCR,3    BAD:PAR2                                          *A03
     3688   01 01A6B    02000000 A            NOP
     3689   01 01A6C    316019C0              CW,X6    LST:NUM
     3690   01 01A6D    69201B0C              BG       BAD:PAR2
     3691   01 01A6E    35600001 A            STW,X6    X1
     3692   01 01A6F    EA6003CD              #PRINT   MSK:LST+7,F1      TOP OF FORM ONLY.
            01 01A70    F10071CC A
     3693   01 01A71    328003F3              LW,R8    LISTPTR           SAVE CURRENT LIST POINTER
     3694   01 01A72    35801B07              STW,R8   LISTSAV           AND MCR SO THAT LISTSERVO
     3695   01 01A73    328003F2              LW,R8    MCR:NUM           ROUTINE CAN BE USED AS
     3696   01 01A74    35801B08              STW,R8   MCR:SAV           A SUBROUTINE.
     3697   01 01A75    229FFFFF A            LI,R9    -1
     3698   01 01A76    3590141D              STW,R9   KL:FLG
     3699   01 01A77    3280039C              LW,R8    #PARAM%H1
     3700   01 01A78    358003F2              STW,R8   MCR:NUM
     3701   01 01A79    31800001 A            CW,R8    X1
     3702   01 01A7A    74001B09              STCF     END:SW
     3703   01 01A7B    48101C3F              EOR,X1   ONES
     3704   01 01A7C    70201B09              LC       END:SW
     3705   01 01A7D    68201A80              BCR,2    %+3
     3706   01 01A7E    20100001 A            AI,X1    1
     3707   01 01A7F    68001A81              B        %+2
     3708   01 01A80    30100008 A            AW,X1    R8
     3709   01 01A81    6AF013FE              BAL,R15  LSTSERVO
     3710   01 01A82    22800000 A            LI,R8    0
     3711   01 01A83    3580141D              STW,R8   KL:FLG
     3712   01 01A84    35101B09     NEXT:MOD STW,X1   END:SW
     3713   01 01A85    02000000 A            NOP
     3714   01 01A86    02000000 A            NOP
     3715   01 01A87    02000000 A            NOP
     3716   01 01A88    22A012F8              LI,R10   AUTO:DL
     3717   01 01A89    6AF010EE              BAL,R15  MOVER
     3718   01 01A8A    6AF0115F              BAL,R15  TRAP:SW
     3719   01 01A8B    02000000 A            NOP
     3720   01 01A8C    02000000 A            NOP
     3721   01 01A8D    02000000 A            NOP
     3722   01 01A8E    6AF01531              BAL,R15  MOD:HDR           USE MODULE HEADER ROUTINES
     3723   01 01A8F    6AF01551              BAL,R15  MOD:DATA          NORMALLY USED FOR SNAP
     3724   01 01A90    32101B09              LW,X1    END:SW            OUTPUT.
     3725   01 01A91    F28003F3              LB,R8    *LISTPTR
     3726   01 01A92    308003F3              AW,R8    LISTPTR
     3727   01 01A93    358003F3              STW,R8   LISTPTR
     3728   01 01A94    65101A84              BIR,X1   NEXT:MOD
     3729                            *
     3730   01 01A95    32801B07     EXIT:DL  LW,R8    LISTSAV           RESTORE LISTPTR AND MCR.
     3731   01 01A96    358003F3              STW,R8   LISTPTR
     3732   01 01A97    32801B08              LW,R8    MCR:SAV
     3733   01 01A98    358003F2              STW,R8   MCR:NUM
     3734   01 01A99    E80003C9              B        *#FIDLE%
     3735                            *
     3736   01 01A9A    00000000 A            DATA     0
     3737   01 01A9B    00000000 A            DATA     0
     3738         01 01A9C           STATMSGS  EQU     %
     3739   01 01A9C    35601AE2              STW,X6    STATEXIT         STATUS MESSAGE ROUTINE.
     3740   01 01A9D    35C01A9B              STW,R12  STATMSGS-1
     3741   01 01A9E    35F01A9A              STW,R15  STATMSGS-2        ENTERED FROM GUIDE IN
     3742   01 01A9F    02000000 A            NOP                        RESPONSE TO AMPERSAND
     3743   01 01AA0    02000000 A            NOP                        FROM READSTAT.  SEE TABLE3.
     3744   01 01AA1    02000000 A            NOP
     3745   01 01AA2    02000000 A            NOP
     3746   01 01AA3    32C022B2              LW,R12   AMPER%EXPL
     3747   01 01AA4    B5C003CE              STW,R12  *#ERRTEXT%
     3748   01 01AA5    32C00393              LW,R12   #HDRFLG
     3749   01 01AA6    21C01AF5              CI,R12   AMP:HDR
     3750   01 01AA7    68301AAA              BCR,3    %+3                                               *A04
     3751   01 01AA8    EA6003CD              #PRINT   AMP:HDR
            01 01AA9    C0006BD4 A
     3752   01 01AAA    6AF01470              BAL,R15  ESM:MOD           ENTERED FROM MST:INIT IF
     3753   01 01AAB    35C01AE3              STW,R12  AMP:BUF           THE SI PARAMETER IS AN
     3754   01 01AAC    6AF01476              BAL,R15  ESM:EL            EVEN MULTIPLE OF THE
     3755   01 01AAD    35C01AE4              STW,R12  AMP:BUF+1         PASS COUNT AND NOT =0.
     3756   01 01AAE    EA6003C3              #HTECON  LOC
            01 01AAF    000011DD
     3757   01 01AB0    32CC0000 A            LW,R12   0,X6              STATMSGS SHARES MOST OF
     3758   01 01AB1    35C01AE5              STW,R12  AMP:BUF+2         THE SUBROUTINES USED BY
     3759   01 01AB2    32CC0001 A            LW,R12   1,X6              THE FT ERROR MESSAGE.
     3760   01 01AB3    35C01AE6              STW,R12  AMP:BUF+3
     3761   01 01AB4    6AF01486              BAL,R15  ESM:ERRS
     3762   01 01AB5    35C01AE7              STW,R12  AMP:BUF+4
     3763   01 01AB6    6AF0148C              BAL,R15  ESM:PASS
     3764   01 01AB7    35C01AE8              STW,R12  AMP:BUF+5
     3765   01 01AB8    32C018A0              LW,R12   JOUT+6
     3766   01 01AB9    35C01AE9              STW,R12  AMP:BUF+6
     3767   01 01ABA    6AF01480              BAL,R15  ESM:MNEM
     3768   01 01ABB    35C01AEA              STW,R12  AMP:BUF+7
     3769   01 01ABC    6AF01492              BAL,R15  ESM:CM
     3770   01 01ABD    35C01AEB              STW,R12  AMP:BUF+8
     3771   01 01ABE    32C0196E              LW,R12   KOUT
     3772   01 01ABF    30C019EC              AW,R12   MSB21
     3773   01 01AC0    35C01AEC              STW,R12  AMP:BUF+9
     3774   01 01AC1    32C0196F              LW,R12   KOUT+1
     3775   01 01AC2    35C01AED              STW,R12  AMP:BUF+10
     3776   01 01AC3    6AF014AB              BAL,R15  ESM:CI
     3777   01 01AC4    35C01AEE              STW,R12  AMP:BUF+11
     3778   01 01AC5    EA6003C3              #HTECON  TOT:ERRS
            01 01AC6    000010BB
     3779   01 01AC7    32CC0000 A            LW,R12   0,X6
     3780   01 01AC8    35C01AEF              STW,R12  AMP:BUF+12
     3781   01 01AC9    32CC0001 A            LW,R12   1,X6
     3782   01 01ACA    35C01AF0              STW,R12  AMP:BUF+13
     3783   01 01ACB    32C01B74              LW,R12   SPACES                                            *A02
     3784   01 01ACC    35C01AF1              STW,R12  AMP:BUF+14                                        *A02
     3785   01 01ACD    35C01AF2              STW,R12  AMP:BUF+15                                        *A02
     3786   01 01ACE    B2C003CA              LW,R12   *#RUNADDR%
     3787   01 01ACF    EA6003C3              #HTECON  R12
            01 01AD0    0000000C A
     3788   01 01AD1    32CC0000 A            LW,R12   0,X6
     3789   01 01AD2    35C01AF3              STW,R12  AMP:BUF+16
     3790   01 01AD3    32CC0001 A            LW,R12   1,X6
     3791   01 01AD4    35C01AF4              STW,R12  AMP:BUF+17
     3792   01 01AD5    22C00047 A            LI,R12   71
     3793   01 01AD6    75C01AE3              STB,R12  AMP:BUF
     3794   01 01AD7    EA6003CD              #PRINT   AMP:BUF
            01 01AD8    C0006B8C A
     3795   01 01AD9    22C01AF5              LI,R12   AMP:HDR
     3796   01 01ADA    35C00393              STW,R12  #HDRFLG
     3797   01 01ADB    02000000 A            NOP
     3798   01 01ADC    02000000 A            NOP
     3799   01 01ADD    02000000 A            NOP
     3800   01 01ADE    02000000 A            NOP
     3801   01 01ADF    32C01A9B              LW,R12   STATMSGS-1
     3802   01 01AE0    32F01A9A              LW,R15   STATMSGS-2
     3803   01 01AE1    E8001AE2              B        *STATEXIT
     3804                            *
     3805   01 01AE2    00000000 A   STATEXIT DATA     0
     3806                            *
     3807         01 01AE3           AMP:BUF  EQU      %
     3813                            *
     3814                            AMP:HDR  TEXTCS  'MOD EL TESTINST E/P PAS EM MNEM ',;
     3815         01 01AF5                    'CM  MST MSP CI TOT:ERRS        PROGADDR'
     3816                            *
     3817   01 01B07    00000000 A   LISTSAV  DATA     0
     3818   01 01B08    00000000 A   MCR:SAV  DATA     0
     3819                            *
     3820   01 01B09    00000000 A   END:SW   DATA     0
     3821   01 01B0A    32801B11     BAD:PAR1 LW,R8    TXTP1
     3822   01 01B0B    68001B0D              B        %+2
     3823   01 01B0C    32801B12     BAD:PAR2 LW,R8    TXTP2
     3824   01 01B0D    35801B15              STW,R8   PAR:ERR+2
     3825   01 01B0E    EA6003CD              #PRINT   PAR:ERR
            01 01B0F    C0006C4C A
     3826   01 01B10    E80003C9              B        *#FIDLE%
     3827                            *
     3828   01 01B11    40D7F140 A   TXTP1    TEXT     ' P1 '
     3829   01 01B12    40D7F240 A   TXTP2    TEXT     ' P2 '
     3830                            *
     3831         01 01B13           PAR:ERR  TEXTCS   'INVALID P1 PARAMETER.'
1 C00   23:55 JUN 20,'83    SIGMA 9 CPU DIAG DECIMAL 706136-11/51A04  8-31-72                     PAGE   11
A    3833                            *
     3834                                TITLE   'MODULE RANGE (MR) ROUTINE'
     3835                            *
     3836         01 01B19           DRTA     EQU      %
     3837   01 01B19    328003A2              LW,R8    #PARAM1
     3838   01 01B1A    69301B29              BCS,3    DR:ERET           SEARCH MNEMONIC LIST WITH
     3839   01 01B1B    328003A3              LW,R8    #PARAM1+1         INPUT PARAMETER.
     3840   01 01B1C    69101B23              BCS,1    PAR1:LJ
     3841   01 01B1D    222FFFF8 A            LI,X2    -8
     3842   01 01B1E    30800008 A            AW,R8    R8
     3843   01 01B1F    65201B1E              BIR,X2   %-1
     3844   01 01B20    20800040 A            AI,R8    X'40'
     3845   01 01B21    358003A3              STW,R8   #PARAM1+1
     3846   01 01B22    68001B1B              B        DRTA+2
     3847                            *
     3848   01 01B23    221FFF80 A   PAR1:LJ  LI,X1    -128
     3849   01 01B24    22200000 A            LI,X2    0
     3850   01 01B25    31841C8E              CW,R8    MNEMLIST,X2
     3851   01 01B26    68301B31              BCR,3    MNEM:X2
     3852   01 01B27    20200001 A            AI,X2    1
     3853   01 01B28    65101B25              BIR,X1   PAR1:LJ+2
     3854   01 01B29    EA6003CC     DR:ERET  #TYPE    MNEM:MSG
            01 01B2A    00006CB0 A
     3855   01 01B2B    E80003C9              B        *#FIDLE%
     3856                            *
     3857   01 01B2C    10C9D5E5 A   MNEM:MSG TEXTC    'INVALID MNEMONIC'
            01 01B2D    C1D3C9C4 A
            01 01B2E    40D4D5C5 A
            01 01B2F    D4D6D5C9 A
            01 01B30    C3404040 A
     3858                            *
     3859   01 01B31    22100004 A   MNEM:X2  LI,X1    4
     3860   01 01B32    32801B74              LW,R8    SPACES
     3861   01 01B33    35801C16              STW,R8   OUTBUF
     3862   01 01B34    22802338              LI,R8    LIST
     3863   01 01B35    F2900008 A            LB,R9    *R8
     3864   01 01B36    F2A20008 A            LB,R10   *R8,X1
     3865   01 01B37    4BA01C2B              AND,R10  CON7F
     3866   01 01B38    31A00002 A            CW,R10   X2
     3867   01 01B39    68301B3E              BCR,3    %+5
     3868   01 01B3A    30800009 A            AW,R8    R9
     3869   01 01B3B    21803688              CI,R8    LASTMODULE
     3870   01 01B3C    68301B29              BCR,3    DR:ERET
     3871   01 01B3D    68001B35              B        MNEM:X2+4
     3872                            *
     3873   01 01B3E    B2C00008 A            LW,R12   *R8
     3874   01 01B3F    EA6003C3              #HTECON  R12
            01 01B40    0000000C A
     3875   01 01B41    32CC0001 A            LW,R12   1,X6
     3876   01 01B42    223FFFF8 A            LI,X3    -8
     3877   01 01B43    30C0000C A            AW,R12   R12
     3878   01 01B44    65301B43              BIR,X3   %-1
     3879   01 01B45    20C00040 A            AI,R12   X'40'
     3880   01 01B46    35C01C17              STW,R12  OUTBUF+1
     3881   01 01B47    32C01B60              LW,R12   THRU:TXT
     3882   01 01B48    35C01C18              STW,R12  OUTBUF+2
     3883   01 01B49    30800009 A            AW,R8    R9
     3884   01 01B4A    75901B5F              STB,R9   TOO:FAR
     3885   01 01B4B    F2900008 A            LB,R9    *R8
     3886   01 01B4C    F2A20008 A            LB,R10   *R8,X1
     3887   01 01B4D    4BA01C2B              AND,R10  CON7F
     3888   01 01B4E    31A00002 A            CW,R10   X2
     3889   01 01B4F    68301B49              BCR,3    %-6
     3890   01 01B50    72901B5F              LB,R9    TOO:FAR
     3891   01 01B51    48901C3F              EOR,R9   ONES
     3892   01 01B52    20900001 A            AI,R9    1
     3893   01 01B53    30800009 A            AW,R8    R9
     3894   01 01B54    B2C00008 A            LW,R12   *R8
     3895   01 01B55    EA6003C3              #HTECON  R12
            01 01B56    0000000C A
     3896   01 01B57    32CC0001 A            LW,R12   1,X6
     3897   01 01B58    4BC01C2C              AND,R12  LS:MSK
     3898   01 01B59    35C01C19              STW,R12  OUTBUF+3
     3899   01 01B5A    22C0000F A            LI,R12   15
     3900   01 01B5B    75C01C16              STB,R12  OUTBUF
     3901   01 01B5C    EA6003CC              #TYPE    OUTBUF
            01 01B5D    00007058 A
     3902   01 01B5E    E80003C9              B        *#FIDLE%
     3903                            *
     3904   01 01B5F    00000000 A   TOO:FAR  DATA     0
     3905   01 01B60    E3C8D9E4 A   THRU:TXT TEXT     'THRU'
     3906                            *
     3907   01 01B61    F1F2F3F4 A   ALPHATXT TEXT     '1234ABCDEFGHIJKLMNOPQRSTUVWXYZ'
            01 01B62    C1C2C3C4 A
            01 01B63    C5C6C7C8 A
            01 01B64    C9D1D2D3 A
            01 01B65    D4D5D6D7 A
            01 01B66    D8D9E2E3 A
            01 01B67    E4E5E6E7 A
            01 01B68    E8E94040 A
     3908                            *
     3909                                TITLE   'CONSTANTS & DATA STORAGE AREA'
     3910                            *
     3911   01 01B69    00000000 A   SAVE     DATA     0                                                 *A04
     3912   01 01B6A    00000000 A   CK:CTR   DATA     0
     3913   01 01B6B    00000000 A   SN:OBPTR DATA     0
     3914   01 01B6C    00000000 A   SN:EXPTR DATA     0
     3915   01 01B6D    40614040 A   DISRGD   DATA     X'40614040'
     3916   01 01B6E    405C4040 A   ASTRSK   DATA     X'405C4040'
     3917   01 01B6F    00000000 A   CMP:ERR  DATA     0
     3918   01 01B70    00000000 A   FLG126   DATA     0
     3919   01 01B71    00000000 A   FLAG7    DATA     0
     3920   01 01B72    00000000 A   OB:SW    DATA     0
     3921   01 01B73    00000000 A   SO       DATA     0
     3922   01 01B74    40404040 A   SPACES   DATA     X'40404040'
     3923                                     BOUND    8
     3924   01 01B76    01006E1A     DCB:DW0  D        1,BA(SN:COL0)+2
     3925   01 01B77    80000004 A            I        8,4
     3926   01 01B78    01006E20              J        1,SN:COL1
     3927   01 01B79    8000000A A            I        8,10
     3928   01 01B7A    01006E2C              J        1,SN:COL2
     3929   01 01B7B    8000000A A            I        8,10
     3930   01 01B7C    01006E38              J        1,SN:COL3
     3931   01 01B7D    8000000A A            I        8,10
     3932   01 01B7E    01006E44              J        1,SN:COL4
     3933   01 01B7F    8000000A A            I        8,10
     3934   01 01B80    01006E50              J        1,SN:COL5
     3935   01 01B81    8000000A A            I        8,10
     3936   01 01B82    01006E5C              J        1,SN:COL6
     3937   01 01B83    8000000A A            I        8,10
     3938   01 01B84    01006E68              J        1,SN:COL7
     3939   01 01B85    0000000A A            I        0,10
     3940                            *
     3941         01 01B86           DC:BUF   EQU      %                 DATA CHAINING BUFFER FOR SNAP
     3942   01 01B86    00000000 A   SN:COL0  DATA     0
     3943   01 01B87    00000000 A            DATA     0
     3944   01 01B88    00000000 A   SN:COL1  DATA     0
     3945   01 01B89    00000000 A            DATA     0
     3946   01 01B8A    00000000 A            DATA     0
     3947   01 01B8B    00000000 A   SN:COL2  DATA     0
     3948   01 01B8C    00000000 A            DATA     0
     3949   01 01B8D    00000000 A            DATA     0
     3950   01 01B8E    00000000 A   SN:COL3  DATA     0
     3951   01 01B8F    00000000 A            DATA     0
     3952   01 01B90    00000000 A            DATA     0
     3953   01 01B91    00000000 A   SN:COL4  DATA     0
     3954   01 01B92    00000000 A            DATA     0
     3955   01 01B93    00000000 A            DATA     0
     3956   01 01B94    00000000 A   SN:COL5  DATA     0
     3957   01 01B95    00000000 A            DATA     0
     3958   01 01B96    00000000 A            DATA     0
     3959   01 01B97    00000000 A   SN:COL6  DATA     0
     3960   01 01B98    00000000 A            DATA     0
     3961   01 01B99    00000000 A            DATA     0
     3962   01 01B9A    00000000 A   SN:COL7  DATA     0
     3963   01 01B9B    00000000 A            DATA     0
     3964   01 01B9C    00000000 A            DATA     0
     3965   01 01B9D    00000000 A   SN:COL8  DATA     0
     3966   01 01B9E    00000000 A            DATA     0
     3967   01 01B9F    00000000 A            DATA     0
     3968                            *
     3969   01 01BA0    00000010 A            DATA     16                PHASE
     3970   01 01BA1    00000000 A            DATA     0                 A
     3971   01 01BA2    00000002 A            DATA     2                 B
     3972   01 01BA3    00000004 A            DATA     4                 S
     3973   01 01BA4    00000006 A            DATA     6                 C  DISRGD
     3974   01 01BA5    00000009 A            DATA     9                 D
     3975   01 01BA6    00000007 A            DATA     7                 CA  DISRGD
     3976         01 01BA7           SO:LINE0 EQU      %
     3977                            *
     3978   01 01BA7    00000010 A            DATA     16                PHASE
     3979   01 01BA8    0000000C A            DATA     12                DU0/DU1
     3980   01 01BA9    0000000D A            DATA     13                DU2/DU3
     3981   01 01BAA    0000000E A            DATA     14                DU4/DU5
     3982   01 01BAB    0000000F A            DATA     15                DU6/DU7
     3983   01 01BAC    0000000B A            DATA     11                D(L)
     3984   01 01BAD    0000000A A            DATA     10                DA
     3985         01 01BAE           SO:LINE1 EQU      %
     3986                            *
     3987   01 01BAE    00000010 A            DATA     16                PHASE
     3988   01 01BAF    00000012 A            DATA     18                LB  DISRGD
     3989   01 01BB0    00000016 A            DATA     22                P24
     3990   01 01BB1    00000011 A            DATA     17                MEM
     3991   01 01BB2    00000015 A            DATA     21                E/F
     3992   01 01BB3    00000013 A            DATA     19                C1
     3993   01 01BB4    00000014 A            DATA     20                C2
     3994         01 01BB5           SO:LINE2 EQU      %
     3995                            *
     3996         01 01BB5           MA:VAL   EQU      %
     3997   01 01BB5    00000000 A            DATA     0
     3998   01 01BB6    00000018 A            DATA     24                1        DU0
     3999   01 01BB7    00000002 A            DATA     2                 2        B
     4000   01 01BB8    0000001A A            DATA     26                3        DU2
     4001   01 01BB9    00000004 A            DATA     4                 4        S
     4002   01 01BBA    0000001C A            DATA     28                5        DU4
     4003   01 01BBB    00000006 A            DATA     6                 6        C
     4004   01 01BBC    00000007 A            DATA     7                 7        CA
     4005   01 01BBD    0000001E A            DATA     30                8        DU6
     4006   01 01BBE    00000009 A            DATA     9                 9        D
     4007   01 01BBF    0000000A A            DATA     10                10        DA
     4008   01 01BC0    0000000B A            DATA     11                11        D(L)
     4009   01 01BC1    00000019 A            DATA     25                12       DU1
     4010   01 01BC2    0000001B A            DATA     27                13       DU3
     4011   01 01BC3    0000001D A            DATA     29                14       DU5
     4012   01 01BC4    0000001F A            DATA     31                15       DU7
     4013   01 01BC5    00000010 A            DATA     16                16       PHASE
     4014   01 01BC6    00000011 A            DATA     17                17       MEM/SW
     4015   01 01BC7    00000012 A            DATA     18                18       LB
     4016   01 01BC8    00000013 A            DATA     19                19       CONT1
     4017   01 01BC9    00000014 A            DATA     20                20       CONT2
     4018   01 01BCA    00000015 A            DATA     21                21       E/F
     4019   01 01BCB    00000016 A            DATA     22                22       P/Q
     4020   01 01BCC    00000000 A            DATA     0
     4021   01 01BCD    00001B86              DATA     SN:COL0
     4022                            *
     4023   01 01BCE    00001B88              DATA     SN:COL1
     4024   01 01BCF    00001B8B              DATA     SN:COL2
     4025   01 01BD0    00001B8E              DATA     SN:COL3
     4026   01 01BD1    00001B91              DATA     SN:COL4
     4027   01 01BD2    00001B94              DATA     SN:COL5
     4028   01 01BD3    00001B97              DATA     SN:COL6
     4029   01 01BD4    00001B9A              DATA     SN:COL7
     4030         01 01BD5           DCB:LST  EQU      %
     4031                            *
     4032   01 01BD5    00001BA7     LINE0ADR DATA     SO:LINE0
     4033   01 01BD6    00001BAE     LINE1ADR DATA     SO:LINE1
     4034   01 01BD7    00001BB5     LINE2ADR DATA     SO:LINE2
     4035         01 01BD8           LINEADR  EQU      %
     4036                            *
     4037                            SN:HDR0  TEXTCS   'CLK  PHASE    A(00-31)  B(00-31)  S(00-31)',;
     4038         01 01BD8                             '  C(00-31)  D(00-31)  CA(0-31)'
     4039                            SN:HDR1  TEXTCS   'CLK  PHASE    DU0  DU1  DU2  DU3  DU4  DU5',;
     4040         01 01BEB                             '  DU6  DU7  D(46-71)  DA(0-31)'
     4041                            SN:HDR2  TEXTCS   'CLK  PHASE    LB &SPEC  P24PS3Q4  MEMORYSW',;
     4042         01 01BFE                             '  E07F2431   CONT1     CONT2'
     4043                            *
     4044   01 01C10    00006F60              DATA     BA(SN:HDR0)
     4045   01 01C11    00006FAC              DATA     BA(SN:HDR1)
     4046   01 01C12    00006FF8              DATA     BA(SN:HDR2)
     4047         01 01C13           HDR:ADR  EQU      %
     4048                            *
     4049   01 01C13    00000001 A   ONE      DATA     1
     4050   01 01C14    00000004 A   FOUR     DATA     4
     4051   01 01C15    0000000F A   FIFTEEN  DATA     15
     4052   01 01C16                 OUTBUF   RES      18
     4053   01 01C28    00000048 A   OB:CNT   DATA     72
     4054   01 01C29    00000000 A   PASSES   DATA     0
     4055   01 01C2A    00000007 A   CON7     DATA     7
     4056   01 01C2B    0000007F A   CON7F    DATA     X'7F'
     4057   01 01C2C    40FFFFFF A   LS:MSK   DATA     X'40FFFFFF'
     4058   01 01C2D    4040FFFF A   LS:MSK2  DATA     X'4040FFFF'
     4059   01 01C2E    00000000 A   ERR:CNT  DATA     0
     4060   01 01C2F    00000000 A   ERR:FLG  DATA     0
     4061   01 01C30    00000000 A   FTFL     DATA     0
     4062   01 01C31    00000000 A   MA:PTR   DATA     0
     4063   01 01C32    00000000 A   LC:FLG   DATA     0
     4064   01 01C33    00000000 A   CK:BIAS  DATA     0
     4065   01 01C34    00000000 A   CK:PTR   DATA     0
     4066   01 01C35    00000002 A            DATA     2
     4067   01 01C36    00000002 A            DATA     2
     4068   01 01C37    00000002 A            DATA     2
     4069         01 01C38           CK:SAV   EQU      %
     4070   01 01C38    00000000 A   LC:EXIT  DATA     0
     4071   01 01C39    00000080 A   TAPE0ADR DATA     X'80'
     4072   01 01C3A    00000081 A   TAPE1ADR DATA     X'81'
     4073   01 01C3B    00000082 A   TAPE2ADR DATA     X'82'
     4074   01 01C3C    00000003 A   CARDADR  DATA     3
     4075   01 01C3D    00000001 A   COMADR   DATA     1
     4076   01 01C3E    00000002 A   MSGADR   DATA     2
     4077   01 01C3F    FFFFFFFF A   ONES     DATA     -1
     4078   01 01C40    00000000 A   TAPE:PTR DATA     0
     4079   01 01C41    00000000 A   CE:PTR   DATA     0
     4080   01 01C42    010011DD     SNAP:SET GEN,8,7,17 1,0,LOC
     4081   01 01C43    010011DD     SNAP:INI GEN,8,7,17  1,0,LOC
     4082                            *
     4083         01 01C44           CARD:BUF EQU      %
     4084         01 01C44           IC:MSG   TEXTCS   'INSUFFICIENT CORE TO GENERATE SNAP DATA.'
     4085   01 01C4F                          RES      10
     4086                                     BOUND    8
     4087   01 01C5A    06007110     CARDIOCD J        6,CARD:BUF
     4088   01 01C5B    00000050 A            D        0,80
     4089   01 01C5C    7BC5D5C4 A   ENDT     TEXT     '#END'
     4090   01 01C5D    00000000 A   CARD:SW  DATA     0
     4091   01 01C5E    00000000 A   END:FLG  DATA     0
     4092   01 01C5F    00000000 A   RD:SW    DATA     0
     4093   01 01C60    00000FFF A   MOD:MSK  DATA     X'FFF'
     4094   01 01C61    00000000 A   IDX:SAV  DATA     0
     4095   01 01C62    00000000 A   DATA:SAV DATA     0
     4096                                     BOUND    8
     4097   01 01C64    00000000 A   PSW1     PZE                                                            AUTO7400
     4098   01 01C65    00000000 A   PSW2     PZE                                                            AUTO7410
     4099   01 01C66    00000000 A   PSW1SAV  DATA     0
     4100   01 01C67    00000000 A   PSW2SAV  DATA     0
     4101   01 01C68    000011DD     LOCADR   DATA     LOC
     4102   01 01C69    000011DF     LOC2ADR  DATA     LOC+2
     4103   01 01C6A    0001FFFF A   ADR:MSK  DATA     X'1FFFF'
     4104   01 01C6B    00003800     IA       DATA     MEMORY
     4105                            *
     4106                            *     ************CONSTANTS AND WORKING STORAGE************
     4107                            *
     4108                                     BOUND    8
     4109         01 01C6C           MSK:LST  EQU      %
     4110   01 01C6C    80000000 A            DATA     X'80000000'
     4111   01 01C6D    40000000 A            DATA     X'40000000'
     4112   01 01C6E    20000000 A            DATA     X'20000000'
     4113   01 01C6F    10000000 A            DATA     X'10000000'
     4114   01 01C70    08000000 A            DATA     X'8000000'
     4115   01 01C71    04000000 A            DATA     X'4000000'
     4116   01 01C72    02000000 A            DATA     X'2000000'
     4117   01 01C73    01000000 A            DATA     X'1000000'
     4118   01 01C74    00800000 A            DATA     X'800000'
     4119   01 01C75    00400000 A            DATA     X'400000'
     4120   01 01C76    00200000 A            DATA     X'200000'
     4121   01 01C77    00100000 A            DATA     X'100000'
     4122   01 01C78    00080000 A            DATA     X'80000'
     4123   01 01C79    00040000 A            DATA     X'40000'
     4124   01 01C7A    00020000 A            DATA     X'20000'
     4125   01 01C7B    00010000 A            DATA     X'10000'
     4126   01 01C7C    00008000 A            DATA     X'8000'
     4127   01 01C7D    00004000 A            DATA     X'4000'
     4128   01 01C7E    00002000 A            DATA     X'2000'
     4129   01 01C7F    00001000 A            DATA     X'1000'
     4130   01 01C80    00000800 A            DATA     X'800'
     4131   01 01C81    00000400 A            DATA     X'400'
     4132   01 01C82    00000200 A            DATA     X'200'
     4133         01 01C83           MSK:BTM  EQU      %
     4134   01 01C83    00000100 A            DATA     X'100'
     4135   01 01C84    00000080 A            DATA     X'80'
     4136   01 01C85    00000040 A            DATA     X'40'
     4137   01 01C86    00000020 A            DATA     X'20'
     4138   01 01C87    00000010 A            DATA     X'10'
     4139   01 01C88    00000008 A            DATA     X'8'
     4140   01 01C89    00000004 A            DATA     X'4'
     4141   01 01C8A    00000002 A            DATA     X'2'
     4142   01 01C8B    00000001 A            DATA     X'1'
     4143   01 01C8C    7FFFFFFF A            DATA     X'7FFFFFFF'
     4144                                     BOUND    8
     4145                            *
     4146         01 01C8E           MNEMLIST EQU      %
     4278                            *
     4279         01 01D0E           PROGTEXT TEXTCS   'DECIMAL A04'                                     *A04
     4280                                     TEXTCS   'SIGMA 9 CPU DIAGNOSTIC PROGRAM 706136-';
     4281         01 01D11                    ,'A04 MANUAL 901878'                                       *A04
     4282                            *
     4283                            *          **********
     4284         01 01D1F           STAT%EXPL  TEXTCS 'STATUS REPORT EXPLANATION'
     4285                                     TEXTCS   ;
     4286         01 01D26            '&      CAUSES OUTPUT OF THE CURRENT TESTING STATUS'
     4287                            *
     4288                                     TEXTCS   ;
     4289         01 01D33            'THE ITEMS THAT MAKE-UP THE STATUS MESSAGE ARE TAKEN FROM THE'
     4290                                     TEXTCS   ;
     4291         01 01D43            'FUNCTIONAL TEST ERROR MESSAGE AND THE J AND K PARAMETER LINES.'
     4292                                     TEXTCS   ;
     4293         01 01D53            'TOTAL ERRORS DIFFERS FROM ERRORS PER PASS BY ONLY GETTING'
     4294                                     TEXTCS   ;
     4295         01 01D62            ' RESET ON ABSOLUTE RECOVERY.  PROGADDR IS THE PROGRAM ADDRESS'
     4296                                     TEXTCS   ;
     4297         01 01D72            'AT THE TIME THE &  KEY WAS DEPRESSED.'
     4298                            SYNTAX%EXPL TEXTCS      ;
     4299                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
     4300         01 01D7C            ' EXPLANATION,'
     4301                                     TEXTCS   ;
     4302         01 01D8E            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
     4303         01 01D9A                    TEXTCS   ' '
     4304                                     TEXTCS   ;
     4305         01 01D9B            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
     4306         01 01DAB                    TEXTCS   ' '
     4307                                     TEXTCS   ;
     4308         01 01DAC            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
     4309                                     TEXTCS   ;
     4310         01 01DBB            'THE SPECIFIED ACTION.'
     4311         01 01DC1                    TEXTCS   ' '
     4312                                     TEXTCS   ;
     4313         01 01DC2            '(1) ''@''-ABSOLUTE RECOVERY,DOES SAME AS''SYSTEM RESET''FROM PCP'
     4314         01 01DD2                    TEXTCS   ' '
     4315                                     TEXTCS   ;
     4316         01 01DD3            '(2) ''%''-FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING PCP'
     4317                                     TEXTCS   ;
     4318         01 01DE3            '     ''COMPUTE''SWITCH TO ''IDLE''.  WHEN OUTPUT TO KSR, IT MEANS'
     4319                                     TEXTCS   ;
     4320         01 01DF3            '     THE PROGRAM IS WAITING FOR INPUT.'
     4321         01 01DFD                    TEXTCS   ' '
     4322                                     TEXTCS   ;
     4323         01 01DFE            '(3) ''#''- FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
     4324                                     TEXTCS   ;
     4325         01 01E0E            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
     4326         01 01E19                    TEXTCS   ' '
     4327                                     TEXTCS   ;
     4328         01 01E1A            '(4) ''QUEST. MARK''-OUTPUTS SYNTAX GLOSS. AFTER ''@'' PROMPT,'
     4329                                     TEXTCS   ;
     4330         01 01E29            '     OR CURRENT ''REQUEST'' EXPL. AFTER KEYIN, OR CURRENT ERROR EXPL.'
     4331                                     TEXTCS   ;
     4332         01 01E3A            '     AFTER AN ERROR MSG.'
     4333         01 01E41           DM%EXPL  TEXTCS   ' '
     4334                                     TEXTCS   ;
     4335         01 01E42            '(5) ''DM>X,Y''- DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
     4336         01 01E53           RM%EXPL  TEXTCS   ' '
     4337                                     TEXTCS   ;
     4338         01 01E54            '(6) ''RM>X,Y'' - DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
     4339                                     TEXTCS   ;
     4340         01 01E63             '      REPLACEMENT OF WORD DISPLAYED.'
     4341         01 01E6D                    TEXTCS   ' '
     4342         01 01E6E           S%EXPL   EQU      %
     4343                                     TEXTCS   ;
     4344         01 01E6E            '(7) "SS"-SENSE SW. OPTIONS DISPLAY TO MSG DEV THE CURRENT'        *A03
     4345                                     TEXTCS   ;
     4346         01 01E7D            '     SENSE SWITCH (SOFTWARE) STATUS AND ALLOW USER TO MODIFY STATUS'
     4347                                     TEXTCS   ;
     4348         01 01E8E            '      SW1=1 SHORT LOOP     SW1  OVERRIDES ALL OTHERS'
     4349                                     TEXTCS   ;
     4350         01 01E9C            '      SW2=1 LONG LOOP     REPORTS ERRORS IF SW4=0'
     4351                                     TEXTCS   ;
     4352         01 01EA9            '      SW3=1 NO HALT ON ERROR'
     4353                                     TEXTCS   ;
     4354         01 01EB1            '      SW4=1 SUPPRESS ERROR MESSAGES ONLY - NOT STATUS'
     4355                                     TEXTCS   ;                  TO MSG DEV THE CURRENT         *A03
     4356         01 01EBF            '      PCP IF M=1, SOFTWARE SS IF M=0.'                            *A03
     4357         01 01EC9                    TEXTCS   ' '
     4358                            *
     4359                            ******************************************************************
     4360                            *  DESIGNER INSERTS HIS SYNTAX EXPLANATIONS HERE
     4361                            ******************************************************************
     4362                            DL%EXPL  TEXTCS   ;
     4363         01 01ECA            '  ''DL'' MEANS DISPLAY MODULE DATA'
     4364                                     TEXTCS   ;
     4365         01 01ED3            'DL>XXX,YYY,   CAUSES A DISPLAY OF MODULES FROM XXX TO YYY'
     4366                                     TEXTCS   ;
     4367         01 01EE2            '        IF YYY<XXX IT IS USED AS THE # TO BE DISPLAYED'
     4368                            J%EXPL   TEXTCS   ;
     4369         01 01EF0            'J      SELECTS PROGRAM CONTROL PARAMETERS'
     4370                                     TEXTCS   ;
     4371         01 01EFB            '** PARAMETER LINE J (CONTROL  LINE) EXPLANATION'
     4372                                     TEXTCS   ;
     4373         01 01F07            'MSGDEV          MESSAGE OUTPUT DEVICE NUMBER'
     4374                                     TEXTCS   ;
     4375         01 01F13            'COMDEV          COMMUNICATION DEVICE NUMBER'
     4376                                     TEXTCS   ;
     4377         01 01F1E            'SI              STATUS INTERVAL'
     4378                                     TEXTCS   ;
     4379         01 01F26            '                  THE INTERVAL (TIME OR PASSES) BETWEEN AUTOMATIC'
     4380                                     TEXTCS   ;
     4381         01 01F37            '                      STATUS REPORTS    0=INFINITY'
     4382                                     TEXTCS   ;
     4383         01 01F44            'CM              CLOCK MARGIN'
     4384                                     TEXTCS   ;
     4385         01 01F4C            'MARGIN LIMITS:'
     4386                                     TEXTCS   ;
     4387         01 01F50            '     PROGRAM CONTROLLED    USER CONTROLLED (FIXED)'
     4388                                     TEXTCS   ;
     4389         01 01F5D            '       0 = NORMAL             A = NORMAL'
     4390                                     TEXTCS   ;
     4391         01 01F68            '       1 = HIGH               B = HIGH'
     4392                                     TEXTCS   ;
     4393         01 01F72            '       2 = LO                 C = LO'
     4394                                     TEXTCS   ;
     4395         01 01F7C            'EM         EXECUTION MODE - DEFINES THE ANTICIPATE PATH'
     4396                                     TEXTCS   ;
     4397         01 01F8A            '           TAKEN TO THE TEST INSTRUCTION AS FOLLOWS:'
     4398                                     TEXTCS   ;
     4399         01 01F98            '    PROGRAM CONTROLLED     USER CONTROLLED (FIXED)'
     4400                                     TEXTCS   ;
     4401         01 01FA5            '       0 = LPSD TO TI       A = SAME (FIXED)'
     4402                                     TEXTCS   ;
     4403         01 01FB1            '       1 = BRANCH (NOP)     B = SAME (FIXED)'
     4404                                     TEXTCS   ;
     4405         01 01FBD            '       2 = EXECUTE TI       C = SAME (FIXED)'
     4406                                     TEXTCS   ;
     4407         01 01FC9            '       3 = BRANCH TO TI     D = SAME (FIXED)'
     4408                                     TEXTCS   ;
     4409         01 01FD5            'CI     COUNT PULSE 4 INTERRUPT; 0 = OFF, 1 = ON'
     4410                                     TEXTCS   ;
     4411         01 01FE1            'MTADR  MAGTAPE ADDRESS FOR SNAP DATA DEFAULT = HEX80'
     4412                            K%EXPL   TEXTCS   ;
     4413         01 01FEF            'K   SELECTS THE SNAP OPTION PARAMETERS'
     4414                                     TEXTCS   ;
     4415         01 01FF9            'MST = MODULE START,  MSP = MODULE STOP,  MCR = MODULE CURRENT'
     4416                                     TEXTCS   ;
     4417         01 02009            'LC = LOOP COUNT, # OF ITERATIONS OVER RANGE OF MODULES'
     4418                                     TEXTCS   ;
     4419         01 02017            '     SPECIFIED BY MST THRU MSP'
     4420                                     TEXTCS   ;
     4421         01 0201F            'SO = SNAP OPTION.  ACCEPTABLE VALUES ARE AS FOLLOWS:'
     4422                                     TEXTCS   ;
     4423         01 0202D            '     0 = NONE'
     4424                                     TEXTCS   ;
     4425         01 02031            '     1 = SNAP AND PRINT FIRST NON-COMPARE IF THERE IS A'
     4426                                     TEXTCS   ;
     4427         01 0203F            '         FUNCTIONAL TEST ERROR---AND HALT.'
     4428                                     TEXTCS   ;
     4429         01 0204A            '     2 = SNAP AND PRINT ALL NON-COMPARES ON THOSE MODULES'
     4430                                     TEXTCS   ;
     4431         01 02059            '         THAT FAIL THEIR FUNCTIONAL TEST.'
     4432                                     TEXTCS   ;
     4433         01 02064            '     3 = PRINT DATA FROM SNAPTAPE.  LIKE SO=F, EXCEPT DATA'
     4434                                     TEXTCS   ;
     4435         01 02073            '         IS EXPECTED INSTEAD OF OBSERVED'
     4436                                     TEXTCS   ;
     4437         01 0207E            '     6 = FULL INTERLACED SNAP OF ALL CLOCKS OF BOTH EXPECTED'
     4438                                     TEXTCS   ;
     4439         01 0208E            '         AND OBSERVED DATA ON ONLY THOSE MODULES THAT FAIL FT.'
     4440                                     TEXTCS   ;
     4441         01 0209E            '     7 = SNAP AND PRINT ONLY THE OBSERVED DATA FOR THOSE MODULES'
     4442                                     TEXTCS   ;
     4443         01 020AF            '         THAT FAIL THEIR FUNCTIONAL TEST.'
     4444                                     TEXTCS   ;
     4445         01 020BA            '     9 = FORCED SNAP OPTION 1.  PRINTS ONLY IF NON-COMPARE.'
     4446                                     TEXTCS   ;
     4447         01 020C9            '     A = FORCED SNAP OPTION 2.  PRINTS ONLY IF NON-COMPARE.'
     4448                                     TEXTCS   ;
     4449         01 020D8            '     E = SNAP AND PRINT BOTH EXPECTED AND OBSERVED DATA FOR ALL'
     4450                                     TEXTCS   ;
     4451         01 020E8            '         MODULES IN THE RANGE SPECIFIED THAT HAVE COMPARE ERRORS'
     4452                                     TEXTCS   ;
     4453         01 020F9            '     F = SNAP AND PRINT ONLY THE OBSERVED DATA FOR ALL MODULES'
     4454                                     TEXTCS   ;
     4455         01 02109            '         IN THE SPECIFIED RANGE.'
     4456                                     TEXTCS   ;
     4457         01 02112            'NOTE:  OPTIONS 7 AND F DO NOT REQUIRE A COMPARE TAPE(MTL).'
     4458                                     TEXTCS   ;
     4459         01 02121            '       QPTIONS 1 AND 2 PRESENT THE SNAP DATA IN A SEMI-INTERLACED'
     4460                                     TEXTCS   ;
     4461         01 02132            '       FORMAT, THAT IS, EXPECTED DATA FOR CLOCK N-1, EXPECTED'
     4462                                     TEXTCS   ;
     4463         01 02142            '       EXPECTED DATA FOR CLOCK N, AND OBSERVED DATA FOR CLOCK N.'
     4464                                     TEXTCS   ;
     4465         01 02153            '     ONLY OPTIONS F AND 7 MAY BE USED WITHOUT MAGTAPE'
     4466                                     TEXTCS   ;
     4467         01 02161            'CB = CLOCK BIAS.  # OF CLOCKS INTO INSTRUCTION USER WISHES'
     4468                                     TEXTCS   ;
     4469         01 02170            '     TO START SNAPPING.  IF CB=FF, SNAP STOPS WHEN BUFFER IS FULL.'
     4470                                     TEXTCS   ;
     4471         01 02181            'CE = CLOCK END.  IF CE = 0 SNAP WILL STOP ON ONE CLOCK'
     4472                                     TEXTCS   ;
     4473         01 0218F            '     AFTER THE LAST CLOCK OF THE INSTRUCTION.  IF CE IS'
     4474                                     TEXTCS   ;
     4475         01 0219D            '     NOT 0 THEN SNAPPING WILL CONTINUE UNTIL THAT CLOCK'
     4476                                     TEXTCS   ;
     4477         01 021AB            '     NUMBER HAS BEEN SNAPPED'
     4478                            MR%EXPL  TEXTCS   ;
     4479         01 021B3            'MR  FOLLEWED BY AN INSTRUCTION MNEMONIC PRODUCES THE'
     4480                                     TEXTCS   ;
     4481         01 021C1            '     MODULE RANGE, IE, MR>AW,  2AC THRU 2F3'
     4482                                     TEXTCS   ;
     4483         01 021CC             'ENTER INSTRUCTION MNEMONIC AS THE ONLY PARAMETER'
     4484                                     TEXTCS   ;
     4485         01 021D9             ' TO OBTAIN STARTING AND ENDING MODULE NUMBERS.'
     4486                            FTERRMSG TEXTCS   ;
     4487         01 021E5            'MOD =  FAILING MODULE NUMBER'
     4488                                     TEXTCS   ;
     4489         01 021ED            'EL =  ELEMENT #,  WHICH AW OF 47 AW MODULES'
     4490                                     TEXTCS   ;
     4491         01 021F8            'TESTINST =  TEST INSTRUCTION'
     4492                                     TEXTCS   ;
     4493         01 02200            'E/P =  ERRORS PER PASS'
     4494                                     TEXTCS   ;
     4495         01 02206            'PAS =  NUMBER OF THE CURRENT PASS'
     4496                                     TEXTCS   ;
     4497         01 0220F            'EM =  EXECUTION MODE, SEE K PARAMETER EXPLANATION'
     4498                                     TEXTCS   ;
     4499         01 0221C            'MNEM =  INSTRUCTION MNEMONIC'
     4500                                     TEXTCS   ;
     4501         01 02224            'FAILED =  THE ITEM THAT DID NOT COMPARE'
     4502                                     TEXTCS   ;
     4503         01 0222E            'EXPECTED =  EXPECTED RESULTS FOR FAILING ITEM'
     4504                                     TEXTCS   ;
     4505         01 0223A            'CM =  CLOCK MARGIN  SEE J PARAMETER FO EXPLANATION'
     4506                                     TEXTCS   ;
     4507         01 02247            'OBSERVED =  OBSERVED RESULTS FOR FAILING ITEM'
     4508                                     TEXTCS   ;
     4509         01 02253            ' CI =  COUNT PULSE INTERRUPT.  RIGHT HEX IS FROM J PARAMETER'
     4510                                     TEXTCS   ;
     4511         01 02263            '       LINE.  1 = ACTIVE AFTER 11 ERROR FREE PASSES.'
     4512                                     TEXTCS   ;
     4513         01 02271            'LEFT HEX INDICATES THE LEAST SIGNIFICANT 4 BITS OF ADDRESS THAT'
     4514                                     TEXTCS   ;
     4515         01 02281            '      WAS STORED AS A RESULT OF AN INTERRUPT.  INTERRUPT IS'
     4516                                     TEXTCS   ;
     4517         01 02290            '     ARMED AT LOC-7 AND DISARMED AT LOC+6.'
     4518                                     TEXTCS   ;
     4519         01 0229B            'DIFF=EOR =  DIFFERENCE BETWEEN EXPECTED AND OBSERVED VIA EOR'
     4520                            **********************
     4521                            *        TABLE 3
     4522                            **********************
     4523                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     4524                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     4525                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     4526                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     4527                            *
     4528                            *  FORMAT
     4529                            *        WORD 1 = DIRECTIVE POINTER
     4530                            *         ***********
     4531                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     4532                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     4533                            *            AF(3)   BYTE 2 = SECOND CHAR.
     4534                            *            AF(4)   BYTE 3 = THIRD CHAR.
     4535                            *
     4536                            *
     4537                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     4538                            *         ***********
     4539                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     4540                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     4541                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     4542                            *                                       DIRECTIVE ROUTINE
     4543                            *
     4544                            *        WORD 3 = CONTROL WORD
     4545                            *         ***********
     4546                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     4547                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     4548                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     4549                            *             AF(4)   BITS 8-12= NOT USED
     4550                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     4551                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     4552                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     4553                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     4554                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     4555                            *                    OR INDEX PARAM #1 (MODE 6)
     4556                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     4557                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     4558                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     4559                            *
     4560                            *                 MODE:  0= UNCONDITIONAL (&)
     4561                            *                        1= IMMEDIATE     (DM)
     4562                            *                        2= PARAMETER LINE (S)
     4563                            *                        6= INDEXED PARAMETER LINE
     4564                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     4565                            *                            0 = HEX, 1 = BIN, AND
     4566                            *                            4-7 = DESIGNER DEFINED
     4567                            *
     4568                            *         WORD 4 = EXPLANATION POINTER
     4569                            *         ***********
     4570                            *  Z          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     4571                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     4572                            *                             = 1 IF TEXT IS COMPRESSED
     4573                            *                             = 2,3   ** NOT ALLOWED **
     4574                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     4575                            *                   TO CHARACTER #1 (REQUEST)
     4576                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     4577                            *
     4578         01 022AB           TABLE3            EQU      %
     4579                            *
     4580   01 022AB    017C0000 A            H        1,'@'
     4581   01 022AC    00000000 A            E        0
     4582   01 022AD    00000000 A            L        0
     4583   01 022AE    5F0075F0 N            Z        95,,0,BA(SYNTAX%EXPL)                             *A03
     4584                            *
     4585   01 022AF    01500000 A            H        1,'&'
     4586   01 022B0    00002335 N            E        ,,READSTAT
     4587   01 022B1    00000000 A            L        0
     4588   01 022B2    0700747C N   AMPER%EXPL Z      7,,0,BA(STAT%EXPL)
     4589                            *
     4590   01 022B3    02E2E200 A            H        2,'S','S'                                         *A02
     4591   01 022B4    00000000 A            E        0                                                 *A01
     4592   01 022B5    00000000 A            L        0                                                 *A01
     4593   01 022B6    060079B8 N            Z        6,,,BA(S%EXPL)                                    *A01
     4594                            *
     4595   01 022B7    02C4D400 A            H        2,'D','M'
     4596   01 022B8    00000000 A            E        0
     4597   01 022B9    00000000 A            L        0
     4598   01 022BA    02017904 N            Z        2,,1,BA(DM%EXPL)
     4599                            *
     4600   01 022BB    02D9D400 A            H        2,'R','M'
     4601   01 022BC    00000000 A            E        0
     4602   01 022BD    00000000 A            L        0
     4603   01 022BE    0301794C N            Z        3,,1,BA(RM%EXPL)
     4604                            *
     4605   01 022BF    02D4D900 A            H        2,'M','R'
     4606   01 022C0    00001B19 N            E        ,,DRTA
     4607   01 022C1    21000800 A            L        1,,1,,,,,4
     4608   01 022C2    040086CC N            Z        4,,0,BA(MR%EXPL)
     4609                            *
     4610   01 022C3    02C4D300 A            H        2,'D','L'
     4611   01 022C4    00001A61 N            E        ,,DLTA
     4612   01 022C5    22000000 A            L        1,,2
     4613   01 022C6    03017B28 N            Z        3,,1,BA(DL%EXPL)
     4614                            *
     4615   01 022C7    01D10000 A            H        1,'J'
     4616   01 022C8    000018B2 N            E        ,,JRTA
     4617   01 022C9    40000000 A            L        2
     4618   01 022CA    16007BC0 N            Z        22,,0,BA(J%EXPL)
     4619                            *
     4620   01 022CB    01D20000 A            H        1,'K'
     4621   01 022CC    00001982 N            E        ,,KRTA
     4622   01 022CD    40000000 A            L        2
     4623   01 022CE    21007FBC N            Z        33,,0,BA(K%EXPL)
     4624                            *
     4625   01 022CF    03E4D7C4 A            H        3,'U','P','D'
     4626   01 022D0    000022E7 N            E        ,,UPDTA
     4627   01 022D1    00000000 A            L        0
     4628   01 022D2    00000000 A            Z        0
     4629                            *
     4630   01 022D3    FF000000 A   TABLE3END  DATA   X'FF000000'
     4631                            *
     4632                            *
     4633                            ***************
     4634                            *
     4635                            *
     4636   01 022D4                 PLINEIN  RES      19
     4637                            *
     4638                            *
     4639                            ***************
     4640                            *
     4641         01 022E7           UPDTA    EQU      %
     4642   01 022E7    22800040 A            LI,R8    X'40'                                             *A03
     4643   01 022E8    6D801100 A            WD,R8    X'1100'                                           *A03
     4644   01 022E9    32801820              LW,R8    MAX:CLR                                           *A02
     4645   01 022EA    21802E00 A            CI,R8    11776                                             *A02
     4646   01 022EB    681022EF              BGE      %+4                                               *A04
     4647   01 022EC    EA6003CC              #TYPE    IC:MSG                                            *A02
            01 022ED    00007110 A
     4648   01 022EE    8F0003CA              XPSD,0   *#RUNADDR%                                        *A02
     4649   01 022EF    228FFFFF A            LI,R8    -1
     4650   01 022F0    35801505              STW,R8   GEN:FLG
     4651   01 022F1    22800007 A            LI,R8    7
     4652   01 022F2    35801B73              STW,R8   SO
     4653   01 022F3    32600395              LW,X6    #MTLFLAG
     4654   01 022F4    228022FB              LI,R8    STGEN
     4655   01 022F5    358C0000 A            STW,R8   0,X6
     4656   01 022F6    02000000 A            NOP
     4657   01 022F7    02000000 A            NOP
     4658   01 022F8    02000000 A            NOP
     4659   01 022F9    02000000 A            NOP
     4660   01 022FA    680C0001 A            B        1,X6
     4661                            *
     4662         01 022FB           STGEN    EQU      %
     4663   01 022FB    32600395              LW,X6    #MTLFLAG
     4664   01 022FC    320C0007 A            LW,R0    7,X6
     4665   01 022FD    35001C3C              STW,R0   CARDADR
     4666   01 022FE    CD001C3A              TIO,R0   *TAPE1ADR
     4667   01 022FF    69C022FE              BCS,12   %-1
     4668   01 02300    3200181C              LW,R0    TAPE:ID
     4669   01 02301    35003860              STW,R0   SN:CHECK
     4670   01 02302    22000C0F              LI,R0    DA(ID:WRT)
     4671   01 02303    CC001C3A              SIO,R0   *TAPE1ADR
     4672   01 02304    2200230E              LI,R0    STVER
     4673   01 02305    32600395              LW,X6    #MTLFLAG
     4674   01 02306    350C0000 A            STW,R0   0,X6
     4675   01 02307    220011B4              LI,R0    SHORTA
     4676   01 02308    350014FF              STW,R0   SHORTPTR
     4677   01 02309    02000000 A            NOP
     4678   01 0230A    02000000 A            NOP
     4679   01 0230B    02000000 A            NOP
     4680   01 0230C    02000000 A            NOP
     4681   01 0230D    680010D3              B        START+4
     4682                            *
     4683         01 0230E           STVER    EQU      %
     4684   01 0230E    33201C39              MTW,2    TAPE0ADR                                          *A03
     4685   01 0230F    CD001C39              TIO,R0   *TAPE0ADR                                         *A03
     4686   01 02310    69C0230F              BCS,12   %-1
     4687   01 02311    6AE01774              BAL,R14  LOOKFWD+4                                         *A03
     4688   01 02312    22002338              LI,R0    LIST
     4689   01 02313    350003F3              STW,R0   LISTPTR
     4690   01 02314    22000001 A            LI,R0    1
     4691   01 02315    350003F2              STW,R0   MCR:NUM
     4692   01 02316    22000000 A            LI,R0    0                                                 *A03
     4693   01 02317    35003964              STW,R0   SN:EXP-1                                          *A03
     4694   01 02318    02000000 A            NOP
     4695   01 02319    02000000 A            NOP
     4696   01 0231A    02000000 A            NOP
     4697   01 0231B    680010D3              B        START+4
     4698                            *
     4699         01 0231C           VG:END   EQU      %
     4700   01 0231C    32801506              LW,R8    VER:FLG
     4701   01 0231D    68302326              BCR,3    SET:VER
     4702   01 0231E    22000C0C              LI,R0    DA(SPF:FWD)
     4703   01 0231F    6AD017B0              BAL,R13  MOV:TAPE
     4704   01 02320    02000000 A            NOP
     4705   01 02321    02000000 A            NOP
     4706   01 02322    02000000 A            NOP
     4707   01 02323    02000000 A            NOP
     4708   01 02324    32600395              LW,X6    #MTLFLAG
     4709   01 02325    680C0002 A            B        2,X6
     4710                            *
     4711         01 02326           SET:VER  EQU      %
     4712   01 02326    22800000 A            LI,R8    0
     4713   01 02327    35801505              STW,R8   GEN:FLG
     4714   01 02328    228FFFFF A            LI,R8    -1
     4715   01 02329    35801506              STW,R8   VER:FLG
     4716   01 0232A    35801507              STW,R8   VER:END
     4717   01 0232B    35801502              STW,R8   SNAP:UNC
     4718   01 0232C    22000C08              LI,R0    DA(EOF)
     4719   01 0232D    CC001C3A              SIO,R0   *TAPE1ADR
     4720   01 0232E    22800002 A            LI,R8    2
     4721   01 0232F    35801B73              STW,R8   SO
     4722   01 02330    02000000 A            NOP
     4723   01 02331    02000000 A            NOP
     4724   01 02332    02000000 A            NOP
     4725   01 02333    02000000 A            NOP
     4726   01 02334    6800231E              B        VG:END+2
     4727                            *
     4728                            *
     4729         01 02335           READSTAT EQU      %
     4730   01 02335    6A601A9C              BAL,X6   STATMSGS
     4731   01 02336    E80003CB              B        *#RETURN%
1 C00   23:55 JUN 20,'83    SIGMA 9 CPU DIAG DECIMAL 706136-11/51A04  8-31-72                     PAGE   12
A    4733                                     BOUND 8
     4734   01 02338                 LIST     RES      0
     4735                            *'COMMAND PROCEDURE TO GENERATE TEST MODULE CONTROL WORD'
     4736         00000002           #PASS    SET      S:UFV(#PASS)+1
     4737         00000000                    DO       #PASS=1           FIRST ASSEMBLER PASS
     4738                        *S* *
     4739                        *S* MODLIST1 SET                        NULL
     4740                        *S* *
     4741                        *S* MODLIST2 SET                        NULL
     4742                        *S* *
     4743                        *S* MODLIST3 SET                        NULL
     4744                        *S* *
     4745                        *S* MODLIST4 SET                        NULL
     4746                        *S* *
     4747                        *S* MODLIST5 SET                        NULL
     4748                        *S* *
     4749                        *S* MODULE@  SET                        NULL
     4750                        *S* *
     4751                                     ELSE                       USE END OF PASS 1 VALUES FOR PASS 2.
     4752                            *
     4753         LIST               MODLIST1 SET      S:UFV(MODLIST1)   TEST MODULES 1-255
     4754                            *
     4755         00000000           MODLIST2 SET      S:UFV(MODLIST2)   TEST MODULES 256-510
     4756                            *
     4757         00000000           MODLIST3 SET      S:UFV(MODLIST3)   TEST MODULES 511-765
     4758                            *
     4759         00000000           MODLIST4 SET      S:UFV(MODLIST4)   TEST MODULES 766-1020
     4760                            *
     4761         00000000           MODLIST5 SET      S:UFV(MODLIST5)   TEST MODULES 1021-1276
     4762                            *
     4763         LIST               MODULE@  SET      S:UFV(MODULE@)
     4764                            *
     4765                                     FIN
     4766                            *
     4767         00000000           MODULE#  SET      0
     4768                            *
     4769         00000000           MODULE%  SET      0
     4770                            *
     4771         00000000           MODULE:  SET      0
     4772                            *
     4773         00000000           MODULE   CNAME
     4774                                     PROC
     4775                            *
     4776                                     LOCAL    I,OC,ML           SYMBOLS LOCALLY DEFINED AND USED
     4777                            *
     4778                                     DO       SCOR(LF(1),LASTMODULE)
     4779                            *
     4780                            MOD%END  EQU      %
     4781                            *
     4782                                     DO       #PASS=1
     4783                            *
     4784                                     RES      NUM(MODULE@)
     4785                            *
     4786                                     ELSE
     4787                            *
     4788                            I        DO       NUM(MODULE@)
     4789                            *
     4790                            OC       SET      MODULE@(I,1)      'OP'-CODE
     4791                            *
     4792                            ML       SET      MODULE@(I,2)      MEMORY LOCATION
     4793                            *
     4794                                     GEN,8,24 OC,ML
     4795                            *
     4796                                     FIN
     4797                            *
     4798                                     FIN
     4799                            *
     4800                                     GOTO     DONE
     4801                            *
     4802                                     FIN
     4803                            *
     4804                                     DO1      NUM(AF)>0
     4805                            MODULE:  SET      0                 RESET ELEMENT COUNTER
     4806                            *
     4807                            MODULE:  SET      MODULE:+1
     4808                            *
     4809                                     DO       #PASS=1           BUILD LISTS
     4810                            *
     4811                                     DO       NUM(AF)>0
     4812                            *
     4813                            OC       SET      AF(1)             'OP'-CODE
     4814                            *
     4815                            ML       SET      ABSVAL(%)         (LISTING) MODULE LOCATION
     4816                            *
     4817                                     DO       NUM(MODULE@)=0
     4818                            *
     4819                            MODULE@  SET      (OC,ML)
     4820                            *
     4821                                     ELSE                       LIST HAS BEEN STARTED
     4822                            *
     4823                            MODULE@  SET      MODULE@,(OC,ML)
     4824                            *
     4825                                     FIN
     4826                            *
     4827                                     FIN
     4828                            *
     4829                            *
     4830                                     DO       MODULE#>0
     4831                            *
     4832                                     DO       MODULE#<256
     4833                            *
     4834                            MODLIST1(MODULE#)   SET   %-MODULE%   SAVE MODULE DISPLACEMENT
     4835                            *
     4836                                     ELSE
     4837                            *
     4838                                     DO       MODULE#<511
     4839                            *
     4840                            MODLIST2(MODULE#-255)   SET   %-MODULE%
     4841                            *
     4842                                     ELSE
     4843                            *
     4844                                     DO       MODULE#<766
     4845                            *
     4846                            MODLIST3(MODULE#-510)   SET   %-MODULE%
     4847                            *
     4848                                     ELSE
     4849                            *
     4850                                     DO       MODULE#<1021
     4851                            *
     4852                            MODLIST4(MODULE#-765)   SET   %-MODULE%
     4853                            *
     4854                                     ELSE
     4855                            *
     4856                            MODLIST5(MODULE#-1020)  SET   %-MODULE%
     4857                            *
     4858                                     FIN                        <1021
     4859                            *
     4860                                     FIN                        <766
     4861                            *
     4862                                     FIN                        <511
     4863                            *
     4864                                     FIN                        <256
     4865                            *
     4866                                     FIN                        >0
     4867                            *
     4868                            MODULE#  SET      MODULE#+1
     4869                            *
     4870                            MODULE%  SET      %
     4871                            *
     4872                                     RES      1                 PUT 'LF' IN COLUMNS 1-2 TO ENTER
     4873                            *                                   LABEL FIELD ON PROC REFERENCE
     4874                            *                                   LINE IN 'SYMBOL' TABLE.  (ASSEMBLER)
     4875                            *
     4876                            *
     4877                                     ELSE                       PASS 2 GENERATES CODE
     4878                            *
     4879                            MODULE#  SET      MODULE#+1
     4880                            *
     4881                            *        ADD 'LF' TO COLUMNS 1-2 FOR EACH OF THE FOLLOWING
     4882                            *        'GEN,8,8,4,12' STATEMENTS TO DEFINE LABEL(S) ON
     4883                            *        THE 'PROC' REFERENCE LINE.
     4884                            *
     4885                                     DO       MODULE#<256
     4886                            *
     4887                                     GEN,8,8,4,12 MODLIST1(MODULE#),MODULE:,CF(2),MODULE#
     4888                            *
     4889                                     ELSE
     4890                            *
     4891                                     DO       MODULE#<511
     4892                            *
     4893                                     GEN,8,8,4,12 MODLIST2(MODULE#-255),MODULE:,CF(2),MODULE#
     4894                            *
     4895                                     ELSE
     4896                            *
     4897                                     DO       MODULE#<766
     4898                            *
     4899                                     GEN,8,8,4,12 MODLIST3(MODULE#-510),MODULE:,CF(2),MODULE#
     4900                            *
     4901                                     ELSE
     4902                            *
     4903                                     DO       MODULE#<1021
     4904                            *
     4905                                     GEN,8,8,4,12 MODLIST4(MODULE#-765),MODULE:,CF(2),MODULE#
     4906                            *
     4907                                     ELSE
     4908                            *
     4909                                     GEN,8,8,4,12 MODLIST5(MODULE#-1020),MODULE:,CF(2),MODULE#
     4910                            *
     4911                                     FIN                        <1021
     4912                            *
     4913                                     FIN                        <766
     4914                            *
     4915                                     FIN                        <511
     4916                            *
     4917                                     FIN                        <256
     4918                            *
     4919                                     FIN                        PASS SWITCH
     4920                            *
     4921                            *
     4922                            DONE     PEND
     4923                            *
     4924   01 02338    14010001 A   DL01     MODULE   X'7E'             DL - FULL WORD, ALT BITS
     4925   01 02339    7E003800              DL,0     MEMORY
     4926   01 0233A    033011DD              K        0,3,3,LOC
     4927   01 0233B    233011DF              K        2,3,3,LOC+2
     4928   01 0233C    00000000 A            DATA     X'0'              R12 IN
     4929   01 0233D    96969696 A            DATA     X'96969696'       R12 OUT
     4930   01 0233E    96969696 A            DATA     X'96969696'       MEMORY+0 IN
     4931   01 0233F    96969696 A            DATA     X'96969696'       MEMORY+0 OUT
     4932   01 02340    00000000 A            DATA     X'0'              R13 IN
     4933   01 02341    69696969 A            DATA     X'69696969'       R13 OUT
     4934   01 02342    69696969 A            DATA     X'69696969'       MEMORY+1 IN
     4935   01 02343    69696969 A            DATA     X'69696969'       MEMORY+1 OUT
     4936   01 02344    00000000 A            DATA     X'0'              R14 IN
     4937   01 02345    77777777 A            DATA     X'77777777'       R14 OUT
     4938   01 02346    77777777 A            DATA     X'77777777'       MEMORY+2 IN
     4939   01 02347    77777777 A            DATA     X'77777777'       MEMORY+2 OUT
     4940   01 02348    00000000 A            DATA     X'0'              R15 IN
     4941   01 02349    5555555C A            DATA     X'5555555C'       R15 OUT
     4942   01 0234A    5555555A A            DATA     X'5555555A'       MEMORY+3 IN
     4943   01 0234B    5555555A A            DATA     X'5555555A'       MEMORY+3 OUT
     4944   01 0234C    14020002 A   DL02     MODULE                    DL - FULL WORD, SINGLE BITS
     4945   01 0234D    7E003800            DL,0    MEMORY
     4946   01 0234E    033011DD            K       0,3,3,LOC
     4947   01 0234F    233011DF            K       2,3,3,LOC+2
     4948   01 02350    00000000 A          DATA    X'0'
     4949   01 02351    88888888 A          DATA    X'88888888'
     4950   01 02352    88888888 A          DATA    X'88888888'
     4951   01 02353    88888888 A          DATA    X'88888888'
     4952   01 02354    00000000 A          DATA    X'0'
     4953   01 02355    44444444 A          DATA    X'44444444'
     4954   01 02356    44444444 A          DATA    X'44444444'
     4955   01 02357    44444444 A          DATA    X'44444444'
     4956   01 02358    00000000 A          DATA    X'0'
     4957   01 02359    22222222 A          DATA    X'22222222'
     4958   01 0235A    22222222 A          DATA    X'22222222'
     4959   01 0235B    22222222 A          DATA    X'22222222'
     4960   01 0235C    00000000 A          DATA    X'0'
     4961   01 0235D    1111111C A          DATA    X'1111111C'
     4962   01 0235E    1111111C A          DATA    X'1111111C'
     4963   01 0235F    1111111C A          DATA    X'1111111C'
     4964   01 02360    14030003 A   DL03     MODULE                    DL - L=1
     4965   01 02361    7E103800            DL,1    MEMORY
     4966   01 02362    033011DD            K       0,3,3,LOC
     4967   01 02363    133011DF            K       1,3,3,LOC+2
     4968   01 02364    FFFFFFFF A          DATA    X'FFFFFFFF'
     4969   01 02365    00000000 A          DATA    X'0'
     4970   01 02366    1BABCDEF A          DATA    X'1BABCDEF'
     4971   01 02367    1BABCDEF A          DATA    X'1BABCDEF'
     4972   01 02368    FFFFFFFF A          DATA    X'FFFFFFFF'
     4973   01 02369    00000000 A          DATA    X'0'
     4974   01 0236A    96969696 A          DATA    X'96969696'
     4975   01 0236B    96969696 A          DATA    X'96969696'
     4976   01 0236C    FFFFFFFF A          DATA    X'FFFFFFFF'
     4977   01 0236D    00000000 A          DATA    X'0'
     4978   01 0236E    96969696 A          DATA    X'96969696'
     4979   01 0236F    96969696 A          DATA    X'96969696'
     4980   01 02370    FFFFFFFF A          DATA    X'FFFFFFFF'
     4981   01 02371    0000001D A          DATA    X'1D'
     4982   01 02372    96969696 A          DATA    X'96969696'
     4983   01 02373    96969696 A          DATA    X'96969696'
     4984   01 02374    14040004 A   DL04     MODULE                    DL - ILLEGAL DIGIT - TRAP
     4985   01 02375    7E003800            DL,0    MEMORY
     4986   01 02376    033011E2            K       0,3,3,LOC+5
     4987   01 02377    8330101B            K       8,3,3,EXP:TRAP+5
     4988   01 02378    00000000 A          DATA    X'0'
     4989   01 02379    00000000 A          DATA    X'0'
     4990   01 0237A    96969696 A          DATA    X'96969696'
     4991   01 0237B    96969696 A          DATA    X'96969696'
     4992   01 0237C    00000000 A          DATA    X'0'
     4993   01 0237D    00000000 A          DATA    X'0'
     4994   01 0237E    96969696 A          DATA    X'96969696'
     4995   01 0237F    96969696 A          DATA    X'96969696'
     4996   01 02380    00000000 A          DATA    X'0'
     4997   01 02381    00000000 A          DATA    X'0'
     4998   01 02382    96969696 A          DATA    X'96969696'
     4999   01 02383    96969696 A          DATA    X'96969696'
     5000   01 02384    00000000 A          DATA    X'0'
     5001   01 02385    00000000 A          DATA    X'0'
     5002   01 02386    96969A5A A          DATA    X'96969A5A'
     5003   01 02387    96969A5A A          DATA    X'96969A5A'
     5004   01 02388    14050005 A   DL05     MODULE                    DL - ILLEGAL SIGN - TRAP
     5005   01 02389    7E003800            DL,0    MEMORY
     5006   01 0238A    033011E2            K       0,3,3,LOC+5
     5007   01 0238B    8330101B            K       8,3,3,EXP:TRAP+5
     5008   01 0238C    00000000 A          DATA    X'0'
     5009   01 0238D    00000000 A          DATA    X'0'
     5010   01 0238E    77777777 A          DATA    X'77777777'
     5011   01 0238F    77777777 A          DATA    X'77777777'
     5012   01 02390    00000000 A          DATA    X'0'
     5013   01 02391    00000000 A          DATA    X'0'
     5014   01 02392    77777777 A          DATA    X'77777777'
     5015   01 02393    77777777 A          DATA    X'77777777'
     5016   01 02394    00000000 A          DATA    X'0'
     5017   01 02395    00000000 A          DATA    X'0'
     5018   01 02396    77777777 A          DATA    X'77777777'
     5019   01 02397    77777777 A          DATA    X'77777777'
     5020   01 02398    00000000 A          DATA    X'0'
     5021   01 02399    00000000 A          DATA    X'0'
     5022   01 0239A    77777777 A          DATA    X'77777777'
     5023   01 0239B    77777777 A          DATA    X'77777777'
     5024                            * BYTE ADDRESSING TEST , L = 2 , R3 INDEX = 0
     5025   01 0239C    14060006 A   DL06     MODULE
     5026   01 0239D    7E203800              DL,2     MEMORY
     5027   01 0239E    033011DD              K            0,3,3,LOC
     5028   01 0239F    133011DF              K            1,3,3,LOC+2
     5029   01 023A0    FFFFFFFF A            DATA     X'FFFFFFFF'
     5030   01 023A1    00000000 A            DATA     0
     5031   01 023A2    123BCDEF A            DATA     X'123BCDEF'
     5032   01 023A3    123BCDEF A            DATA     X'123BCDEF'
     5033   01 023A4    FFFFFFFF A            DATA     X'FFFFFFFF'
     5034   01 023A5    00000000 A            DATA     0
     5035   01 023A6    69696969 A            DATA     X'69696969'
     5036   01 023A7    69696969 A            DATA     X'69696969'
     5037   01 023A8    FFFFFFFF A            DATA     X'FFFFFFFF'
     5038   01 023A9    00000000 A            DATA     0
     5039   01 023AA    96969696 A            DATA     X'96969696'
     5040   01 023AB    96969696 A            DATA     X'96969696'
     5041   01 023AC    FFFFFFFF A            DATA     X'FFFFFFFF'
     5042   01 023AD    0000123D A            DATA     X'123D'
     5043   01 023AE    55555555 A            DATA     X'55555555'
     5044   01 023AF    55555555 A            DATA     X'55555555'
     5045                            * BYTE ADDRESSING TEST3, L = 3 , R3 INDEX = 0
     5046   01 023B0    14070007 A   DL07     MODULE
     5047   01 023B1    7E303800              DL,3     MEMORY
     5048   01 023B2    033011DD              K            0,3,3,LOC
     5049   01 023B3    233011DF              K            2,3,3,LOC+2
     5050   01 023B4    FFFFFFFF A            DATA     X'FFFFFFFF'
     5051   01 023B5    00000000 A            DATA     0
     5052   01 023B6    38241ABC A            DATA     X'38241ABC'
     5053   01 023B7    38241ABC A            DATA     X'38241ABC'
     5054   01 023B8    FFFFFFFF A            DATA     X'FFFFFFFF'
     5055   01 023B9    00000000 A            DATA     0
     5056   01 023BA    35353535 A            DATA     X'35353535'
     5057   01 023BB    35353535 A            DATA     X'35353535'
     5058   01 023BC    FFFFFFFF A            DATA     X'FFFFFFFF'
     5059   01 023BD    00000000 A            DATA     0
     5060   01 023BE    81818181 A            DATA     X'81818181'
     5061   01 023BF    81818181 A            DATA     X'81818181'
     5062   01 023C0    FFFFFFFF A            DATA     X'FFFFFFFF'
     5063   01 023C1    0038241C A            DATA     X'38241C'
     5064   01 023C2    96969696 A            DATA     X'96969696'
     5065   01 023C3    96969696 A            DATA     X'96969696'
     5066                            * BYTE ADDRESSING TEST3, L = 4 , R3 INDEX = 0
     5067   01 023C4    14080008 A   DL08     MODULE
     5068   01 023C5    7E403800              DL,4     MEMORY
     5069   01 023C6    033011DD              K            0,3,3,LOC
     5070   01 023C7    133011DF              K            1,3,3,LOC+2
     5071   01 023C8    FFFFFFFF A            DATA     X'FFFFFFFF'
     5072   01 023C9    00000000 A            DATA     0
     5073   01 023CA    0123456D A            DATA     X'0123456D'
     5074   01 023CB    0123456D A            DATA     X'0123456D'
     5075   01 023CC    FFFFFFFF A            DATA     X'FFFFFFFF'
     5076   01 023CD    00000000 A            DATA     0
     5077   01 023CE    55555555 A            DATA     X'55555555'
     5078   01 023CF    55555555 A            DATA     X'55555555'
     5079   01 023D0    FFFFFFFF A            DATA     X'FFFFFFFF'
     5080   01 023D1    00000000 A            DATA     0
     5081   01 023D2    96969696 A            DATA     X'96969696'
     5082   01 023D3    96969696 A            DATA     X'96969696'
     5083   01 023D4    FFFFFFFF A            DATA     X'FFFFFFFF'
     5084   01 023D5    0123456D A            DATA     X'0123456D'
     5085   01 023D6    11111111 A            DATA     X'11111111'
     5086   01 023D7    11111111 A            DATA     X'11111111'
     5087                            * BYTE ADDRESSING TEST3, L = 5 , R3 INDEX = 0
     5088   01 023D8    14090009 A   DL09     MODULE
     5089   01 023D9    7E503800              DL,5     MEMORY
     5090   01 023DA    033011DD              K            0,3,3,LOC
     5091   01 023DB    233011DF              K            2,3,3,LOC+2
     5092   01 023DC    FFFFFFFF A            DATA     X'FFFFFFFF'
     5093   01 023DD    00000000 A            DATA     0
     5094   01 023DE    98765432 A            DATA     X'98765432'
     5095   01 023DF    98765432 A            DATA     X'98765432'
     5096   01 023E0    FFFFFFFF A            DATA     X'FFFFFFFF'
     5097   01 023E1    00000000 A            DATA     0
     5098   01 023E2    1FABCDEF A            DATA     X'1FABCDEF'
     5099   01 023E3    1FABCDEF A            DATA     X'1FABCDEF'
     5100   01 023E4    FFFFFFFF A            DATA     X'FFFFFFFF'
     5101   01 023E5    00000098 A            DATA     X'98'
     5102   01 023E6    27272727 A            DATA     X'27272727'
     5103   01 023E7    27272727 A            DATA     X'27272727'
     5104   01 023E8    FFFFFFFF A            DATA     X'FFFFFFFF'
     5105   01 023E9    7654321C A            DATA     X'7654321C'
     5106   01 023EA    13131313 A            DATA     X'13131313'
     5107   01 023EB    13131313 A            DATA     X'13131313'
     5108                            * BYTE ADDRESSING TEST , L = 0 , R3 INDEX = 1
     5109   01 023EC    160A000A A   DL10     MODULE
     5110   01 023ED    7E023800              DL,0     MEMORY,1
     5111   01 023EE    033011DD              K            0,3,3,LOC
     5112   01 023EF    233011DF              K            2,3,3,LOC+2
     5113   01 023F0    FFFFFFFF A            DATA     X'FFFFFFFF'
     5114   01 023F1    56789013 A            DATA     X'56789013'
     5115   01 023F2    34567890 A            DATA     X'34567890'
     5116   01 023F3    34567890 A            DATA     X'34567890'
     5117   01 023F4    FFFFFFFF A            DATA     X'FFFFFFFF'
     5118   01 023F5    57924681 A            DATA     X'57924681'
     5119   01 023F6    13579246 A            DATA     X'13579246'
     5120   01 023F7    13579246 A            DATA     X'13579246'
     5121   01 023F8    FFFFFFFF A            DATA     X'FFFFFFFF'
     5122   01 023F9    35792411 A            DATA     X'35792411'
     5123   01 023FA    81357924 A            DATA     X'81357924'
     5124   01 023FB    81357924 A            DATA     X'81357924'
     5125   01 023FC    FFFFFFFF A            DATA     X'FFFFFFFF'
     5126   01 023FD    2233445C A            DATA     X'2233445C'
     5127   01 023FE    11223344 A            DATA     X'11223344'
     5128   01 023FF    11223344 A            DATA     X'11223344'
     5129   01 02400    5ABCDEFA A            DATA     X'5ABCDEFA'
     5130   01 02401    5ABCDEFA A            DATA     X'5ABCDEFA'
     5131                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 1
     5132   01 02402    140B000B A   DL11     MODULE
     5133   01 02403    7E123800              DL,1     MEMORY,1
     5134   01 02404    033011DD              K            0,3,3,LOC
     5135   01 02405    133011DF              K            1,3,3,LOC+2
     5136   01 02406    FFFFFFFF A            DATA     X'FFFFFFFF'
     5137   01 02407    00000000 A            DATA     0
     5138   01 02408    925BCDEF A            DATA     X'925BCDEF'
     5139   01 02409    925BCDEF A            DATA     X'925BCDEF'
     5140   01 0240A    FFFFFFFF A            DATA     X'FFFFFFFF'
     5141   01 0240B    00000000 A            DATA     0
     5142   01 0240C    13579246 A            DATA     X'13579246'
     5143   01 0240D    13579246 A            DATA     X'13579246'
     5144   01 0240E    FFFFFFFF A            DATA     X'FFFFFFFF'
     5145   01 0240F    00000000 A            DATA     0
     5146   01 02410    00000000 A            DATA     0
     5147   01 02411    00000000 A            DATA     0
     5148   01 02412    FFFFFFFF A            DATA     X'FFFFFFFF'
     5149   01 02413    0000005D A            DATA     X'5D'
     5150   01 02414    88888888 A            DATA     X'88888888'
     5151   01 02415    88888888 A            DATA     X'88888888'
     5152                            * BYTE ADDRESSING TEST , L = 2 , R3 INDEX = 1
     5153   01 02416    140C000C A   DL12     MODULE
     5154   01 02417    7E223800              DL,2     MEMORY,1
     5155   01 02418    033011DD              K            0,3,3,LOC
     5156   01 02419    233011DF              K            2,3,3,LOC+2
     5157   01 0241A    55555555 A            DATA     X'55555555'
     5158   01 0241B    00000000 A            DATA     0
     5159   01 0241C    98765ABC A            DATA     X'98765ABC'
     5160   01 0241D    98765ABC A            DATA     X'98765ABC'
     5161   01 0241E    FFFFFFFF A            DATA     X'FFFFFFFF'
     5162   01 0241F    00000000 A            DATA     0
     5163   01 02420    12345678 A            DATA     X'12345678'
     5164   01 02421    12345678 A            DATA     X'12345678'
     5165   01 02422    FFFFFFFF A            DATA     X'FFFFFFFF'
     5166   01 02423    00000000 A            DATA     0
     5167   01 02424    69696969 A            DATA     X'69696969'
     5168   01 02425    69696969 A            DATA     X'69696969'
     5169   01 02426    FFFFFFFF A            DATA     X'FFFFFFFF'
     5170   01 02427    0000765C A            DATA     X'765C'
     5171   01 02428    96969696 A            DATA     X'96969696'
     5172   01 02429    96969696 A            DATA     X'96969696'
     5173                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 1
     5174   01 0242A    140D000D A   DL13     MODULE
     5175   01 0242B    7E323800              DL,3     MEMORY,1
     5176   01 0242C    033011DD              K            0,3,3,LOC
     5177   01 0242D    133011DF              K            1,3,3,LOC+2
     5178   01 0242E    11111111 A            DATA     X'11111111'
     5179   01 0242F    00000000 A            DATA     0
     5180   01 02430    2468135B A            DATA     X'2468135B'
     5181   01 02431    2468135B A            DATA     X'2468135B'
     5182   01 02432    22222222 A            DATA     X'22222222'
     5183   01 02433    00000000 A            DATA     0
     5184   01 02434    53535353 A            DATA     X'53535353'
     5185   01 02435    53535353 A            DATA     X'53535353'
     5186   01 02436    33333333 A            DATA     X'33333333'
     5187   01 02437    00000000 A            DATA     0
     5188   01 02438    17171717 A            DATA     X'17171717'
     5189   01 02439    17171717 A            DATA     X'17171717'
     5190   01 0243A    FFFFFFFF A            DATA     X'FFFFFFFF'
     5191   01 0243B    0068135D A            DATA     X'68135D'
     5192   01 0243C    96969696 A            DATA     X'96969696'
     5193   01 0243D    96969696 A            DATA     X'96969696'
     5194                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 1
     5195   01 0243E    140E000E A   DL14     MODULE
     5196   01 0243F    7E423800              DL,4     MEMORY,1
     5197   01 02440    033011DD              K            0,3,3,LOC
     5198   01 02441    233011DF              K            2,3,3,LOC+2
     5199   01 02442    FFFFFFFF A            DATA     X'FFFFFFFF'
     5200   01 02443    00000000 A            DATA     0
     5201   01 02444    15362479 A            DATA     X'15362479'
     5202   01 02445    15362479 A            DATA     X'15362479'
     5203   01 02446    FFFFFFFF A            DATA     X'FFFFFFFF'
     5204   01 02447    00000000 A            DATA     0
     5205   01 02448    8EFABCDE A            DATA     X'8EFABCDE'
     5206   01 02449    8EFABCDE A            DATA     X'8EFABCDE'
     5207   01 0244A    FFFFFFFF A            DATA     X'FFFFFFFF'
     5208   01 0244B    00000000 A            DATA     0
     5209   01 0244C    55555555 A            DATA     X'55555555'
     5210   01 0244D    55555555 A            DATA     X'55555555'
     5211   01 0244E    FFFFFFFF A            DATA     X'FFFFFFFF'
     5212   01 0244F    3624798C A            DATA     X'3624798C'
     5213   01 02450    81818181 A            DATA     X'81818181'
     5214   01 02451    81818181 A            DATA     X'81818181'
     5215                            * BYTE ADDRESSING TEST , L = 5 , R3 INDEX = 1
     5216   01 02452    140F000F A   DL15     MODULE
     5217   01 02453    7E523800              DL,5     MEMORY,1
     5218   01 02454    033011DD              K            0,3,3,LOC
     5219   01 02455    133011DF              K            1,3,3,LOC+2
     5220   01 02456    33333333 A            DATA     X'33333333'
     5221   01 02457    00000000 A            DATA     0
     5222   01 02458    12987654 A            DATA     X'12987654'
     5223   01 02459    12987654 A            DATA     X'12987654'
     5224   01 0245A    55555555 A            DATA     X'55555555'
     5225   01 0245B    00000000 A            DATA     0
     5226   01 0245C    321BCDEF A            DATA     X'321BCDEF'
     5227   01 0245D    321BCDEF A            DATA     X'321BCDEF'
     5228   01 0245E    FFFFFFFF A            DATA     X'FFFFFFFF'
     5229   01 0245F    00000098 A            DATA     X'98'
     5230   01 02460    83838383 A            DATA     X'83838383'
     5231   01 02461    83838383 A            DATA     X'83838383'
     5232   01 02462    FFFFFFFF A            DATA     X'FFFFFFFF'
     5233   01 02463    7654321D A            DATA     X'7654321D'
     5234   01 02464    38383838 A            DATA     X'38383838'
     5235   01 02465    38383838 A            DATA     X'38383838'
     5236                            * BYTE ADDRESSING TEST , L = 0 , R3 INDEX = 2
     5237   01 02466    16100010 A   DL16     MODULE
     5238   01 02467    7E043800              DL,0     MEMORY,2
     5239   01 02468    033011DD              K            0,3,3,LOC
     5240   01 02469    233011DF              K            2,3,3,LOC+2
     5241   01 0246A    00000000 A            DATA     0
     5242   01 0246B    13575353 A            DATA     X'13575353'
     5243   01 0246C    24681357 A            DATA     X'24681357'
     5244   01 0246D    24681357 A            DATA     X'24681357'
     5245   01 0246E    00000000 A            DATA     0
     5246   01 0246F    35357171 A            DATA     X'35357171'
     5247   01 02470    53533535 A            DATA     X'53533535'
     5248   01 02471    53533535 A            DATA     X'53533535'
     5249   01 02472    00000000 A            DATA     0
     5250   01 02473    17171357 A            DATA     X'17171357'
     5251   01 02474    71711717 A            DATA     X'71711717'
     5252   01 02475    71711717 A            DATA     X'71711717'
     5253   01 02476    00000000 A            DATA     0
     5254   01 02477    2468999C A            DATA     X'2468999C'
     5255   01 02478    13572468 A            DATA     X'13572468'
     5256   01 02479    13572468 A            DATA     X'13572468'
     5257   01 0247A    999ABCDE A            DATA     X'999ABCDE'
     5258   01 0247B    999ABCDE A            DATA     X'999ABCDE'
     5259                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 2
     5260   01 0247C    14110011 A   DL17     MODULE
     5261   01 0247D    7E143800              DL,1     MEMORY,2
     5262   01 0247E    033011DD              K            0,3,3,LOC
     5263   01 0247F    133011DF              K            1,3,3,LOC+2
     5264   01 02480    FFFFFFFF A            DATA     X'FFFFFFFF'
     5265   01 02481    00000000 A            DATA     0
     5266   01 02482    12345BCD A            DATA     X'12345BCD'
     5267   01 02483    12345BCD A            DATA     X'12345BCD'
     5268   01 02484    CCCCCCCC A            DATA     X'CCCCCCCC'
     5269   01 02485    00000000 A            DATA     0
     5270   01 02486    37373737 A            DATA     X'37373737'
     5271   01 02487    37373737 A            DATA     X'37373737'
     5272   01 02488    AAAAAAAA A            DATA     X'AAAAAAAA'
     5273   01 02489    00000000 A            DATA     0
     5274   01 0248A    14141414 A            DATA     X'14141414'
     5275   01 0248B    14141414 A            DATA     X'14141414'
     5276   01 0248C    BBBBBBBB A            DATA     X'BBBBBBBB'
     5277   01 0248D    0000005D A            DATA     X'5D'
     5278   01 0248E    58585858 A            DATA     X'58585858'
     5279   01 0248F    58585858 A            DATA     X'58585858'
     5280                            * BYTE ADDRESSING TEST , L = 2 , R3 INDEX = 2
     5281   01 02490    14120012 A   DL18     MODULE
     5282   01 02491    7E243800              DL,2     MEMORY,2
     5283   01 02492    033011DD              K            0,3,3,LOC
     5284   01 02493    233011DF              K            2,3,3,LOC+2
     5285   01 02494    FFFFFFFF A            DATA     X'FFFFFFFF'
     5286   01 02495    00000000 A            DATA     0
     5287   01 02496    8642531E A            DATA     X'8642531E'
     5288   01 02497    8642531E A            DATA     X'8642531E'
     5289   01 02498    00000001 A            DATA     1
     5290   01 02499    00000000 A            DATA     0
     5291   01 0249A    15362487 A            DATA     X'15362487'
     5292   01 0249B    15362487 A            DATA     X'15362487'
     5293   01 0249C    00000002 A            DATA     2
     5294   01 0249D    00000000 A            DATA     0
     5295   01 0249E    16161616 A            DATA     X'16161616'
     5296   01 0249F    16161616 A            DATA     X'16161616'
     5297   01 024A0    FFFFFFFF A            DATA     X'FFFFFFFF'
     5298   01 024A1    0000531C A            DATA     X'531C'
     5299   01 024A2    00000003 A            DATA     3
     5300   01 024A3    00000003 A            DATA     3
     5301                            * BYTE ADDRESSING TEST , L = 3 R3 INDEX = 2
     5302   01 024A4    14130013 A   DL19     MODULE
     5303   01 024A5    7E343800              DL,3     MEMORY,2
     5304   01 024A6    033011DD              K            0,3,3,LOC
     5305   01 024A7    133011DF              K            1,3,3,LOC+2
     5306   01 024A8    00000000 A            DATA     0
     5307   01 024A9    00000000 A            DATA     0
     5308   01 024AA    87651357 A            DATA     X'87651357'
     5309   01 024AB    87651357 A            DATA     X'87651357'
     5310   01 024AC    FFFFFFFF A            DATA     X'FFFFFFFF'
     5311   01 024AD    00000000 A            DATA     0
     5312   01 024AE    9BCDEFAB A            DATA     X'9BCDEFAB'
     5313   01 024AF    9BCDEFAB A            DATA     X'9BCDEFAB'
     5314   01 024B0    00000000 A            DATA     0
     5315   01 024B1    00000000 A            DATA     0
     5316   01 024B2    96969696 A            DATA     X'96969696'
     5317   01 024B3    96969696 A            DATA     X'96969696'
     5318   01 024B4    FFFFFFFF A            DATA     X'FFFFFFFF'
     5319   01 024B5    0013579D A            DATA     X'13579D'
     5320   01 024B6    55555555 A            DATA     X'55555555'
     5321   01 024B7    55555555 A            DATA     X'55555555'
     5322                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 2
     5323   01 024B8    12140014 A   DL20     MODULE
     5324   01 024B9    7E443800              DL,4     MEMORY,2
     5325   01 024BA    033011DD              K            0,3,3,LOC
     5326   01 024BB    233011DF              K            2,3,3,LOC+2
     5327   01 024BC    13131313 A            DATA     X'13131313'
     5328   01 024BD    00000000 A            DATA     0
     5329   01 024BE    98761234 A            DATA     X'98761234'
     5330   01 024BF    98761234 A            DATA     X'98761234'
     5331   01 024C0    52525252 A            DATA     X'52525252'
     5332   01 024C1    00000000 A            DATA     0
     5333   01 024C2    567FABCD A            DATA     X'567FABCD'
     5334   01 024C3    567FABCD A            DATA     X'567FABCD'
     5335   01 024C4    96969696 A            DATA     X'96969696'
     5336   01 024C5    00000000 A            DATA     0
     5337   01 024C6    FFFFFFFF A            DATA     X'FFFFFFFF'
     5338   01 024C7    FFFFFFFF A            DATA     X'FFFFFFFF'
     5339   01 024C8    FFFFFFFF A            DATA     X'FFFFFFFF'
     5340   01 024C9    1234567C A            DATA     X'1234567C'
     5341                            * BYTE ADDRESSING TEST , L = 5 , R3 INDEX = 2
     5342   01 024CA    12150015 A   DL21     MODULE
     5343   01 024CB    7E543800              DL,5     MEMORY,2
     5344   01 024CC    033011DD              K            0,3,3,LOC
     5345   01 024CD    133011DF              K            1,3,3,LOC+2
     5346   01 024CE    FFFFFFFF A            DATA     X'FFFFFFFF'
     5347   01 024CF    00000000 A            DATA     0
     5348   01 024D0    13578642 A            DATA     X'13578642'
     5349   01 024D1    13578642 A            DATA     X'13578642'
     5350   01 024D2    FFFFFFFF A            DATA     X'FFFFFFFF'
     5351   01 024D3    00000000 A            DATA     0
     5352   01 024D4    09753DEF A            DATA     X'09753DEF'
     5353   01 024D5    09753DEF A            DATA     X'09753DEF'
     5354   01 024D6    FFFFFFFF A            DATA     X'FFFFFFFF'
     5355   01 024D7    00000086 A            DATA     X'86'
     5356   01 024D8    00000000 A            DATA     0
     5357   01 024D9    00000000 A            DATA     0
     5358   01 024DA    FFFFFFFF A            DATA     X'FFFFFFFF'
     5359   01 024DB    4209753D A            DATA     X'4209753D'
     5360                            * BYTE ADDRESSING TEST , L = 0 , R3 INDEX = 3
     5361   01 024DC    16160016 A   DL22     MODULE
     5362   01 024DD    7E063800              DL,0     MEMORY,3
     5363   01 024DE    033011DD              K            0,3,3,LOC
     5364   01 024DF    233011DF              K            2,3,3,LOC+2
     5365   01 024E0    00000000 A            DATA     0
     5366   01 024E1    88113355 A            DATA     X'88113355'
     5367   01 024E2    22446688 A            DATA     X'22446688'
     5368   01 024E3    22446688 A            DATA     X'22446688'
     5369   01 024E4    00000000 A            DATA     0
     5370   01 024E5    77997755 A            DATA     X'77997755'
     5371   01 024E6    11335577 A            DATA     X'11335577'
     5372   01 024E7    11335577 A            DATA     X'11335577'
     5373   01 024E8    00000000 A            DATA     0
     5374   01 024E9    11886644 A            DATA     X'11886644'
     5375   01 024EA    99775511 A            DATA     X'99775511'
     5376   01 024EB    99775511 A            DATA     X'99775511'
     5377   01 024EC    00000000 A            DATA     0
     5378   01 024ED    2255331C A            DATA     X'2255331C'
     5379   01 024EE    88664422 A            DATA     X'88664422'
     5380   01 024EF    88664422 A            DATA     X'88664422'
     5381   01 024F0    55331CDE A            DATA     X'55331CDE'
     5382   01 024F1    55331CDE A            DATA     X'55331CDE'
     5383                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 3
     5384   01 024F2    12170017 A   DL23     MODULE
     5385   01 024F3    7E163800              DL,1     MEMORY,3
     5386   01 024F4    033011DD              K            0,3,3,LOC
     5387   01 024F5    133011DF              K            1,3,3,LOC+2
     5388   01 024F6    00000000 A            DATA     0
     5389   01 024F7    00000000 A            DATA     0
     5390   01 024F8    9856312D A            DATA     X'9856312D'
     5391   01 024F9    9856312D A            DATA     X'9856312D'
     5392   01 024FA    00000000 A            DATA     0
     5393   01 024FB    00000000 A            DATA     0
     5394   01 024FC    00000000 A            DATA     0
     5395   01 024FD    00000000 A            DATA     0
     5396   01 024FE    00000000 A            DATA     0
     5397   01 024FF    00000000 A            DATA     0
     5398   01 02500    00000000 A            DATA     0
     5399   01 02501    00000000 A            DATA     0
     5400   01 02502    00000000 A            DATA     0
     5401   01 02503    0000002D A            DATA     X'2D'
     5402                            * BYTE ADDRESSING TEST , L = 2 R3 INDEX = 3
     5403   01 02504    12180018 A   DL24     MODULE
     5404   01 02505    7E263800              DL,2     MEMORY,3
     5405   01 02506    033011DD              K            0,3,3,LOC
     5406   01 02507    233011DF              K            2,3,3,LOC+2
     5407   01 02508    00000000 A            DATA     0
     5408   01 02509    00000000 A            DATA     0
     5409   01 0250A    57351386 A            DATA     X'57351386'
     5410   01 0250B    57351386 A            DATA     X'57351386'
     5411   01 0250C    00000000 A            DATA     0
     5412   01 0250D    00000000 A            DATA     0
     5413   01 0250E    4ABCDEFA A            DATA     X'4ABCDEFA'
     5414   01 0250F    4ABCDEFA A            DATA     X'4ABCDEFA'
     5415   01 02510    00000000 A            DATA     0
     5416   01 02511    00000000 A            DATA     0
     5417   01 02512    00000000 A            DATA     0
     5418   01 02513    00000000 A            DATA     0
     5419   01 02514    00000000 A            DATA     0
     5420   01 02515    0000864C A            DATA     X'864C'
     5421                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 3
     5422   01 02516    12190019 A   DL25     MODULE
     5423   01 02517    7E363800              DL,3     MEMORY,3
     5424   01 02518    033011DD              K            0,3,3,LOC
     5425   01 02519    133011DF              K            1,3,3,LOC+2
     5426   01 0251A    00000000 A            DATA     0
     5427   01 0251B    00000000 A            DATA     0
     5428   01 0251C    98765432 A            DATA     X'98765432'
     5429   01 0251D    98765432 A            DATA     X'98765432'
     5430   01 0251E    00000000 A            DATA     0
     5431   01 0251F    00000000 A            DATA     0
     5432   01 02520    109BCDEF A            DATA     X'109BCDEF'
     5433   01 02521    109BCDEF A            DATA     X'109BCDEF'
     5434   01 02522    00000000 A            DATA     0
     5435   01 02523    00000000 A            DATA     0
     5436   01 02524    00000000 A            DATA     0
     5437   01 02525    00000000 A            DATA     0
     5438   01 02526    FFFFFFFF A            DATA     X'FFFFFFFF'
     5439   01 02527    0032109D A            DATA     X'32109D'
     5440                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 3
     5441   01 02528    121A001A A   DL26     MODULE
     5442   01 02529    7E463800              DL,4     MEMORY,3
     5443   01 0252A    033011DD              K            0,3,3,LOC
     5444   01 0252B    233011DF              K            2,3,3,LOC+2
     5445   01 0252C    FFFFFFFF A            DATA     X'FFFFFFFF'
     5446   01 0252D    00000000 A            DATA     0
     5447   01 0252E    00000096 A            DATA     X'96'
     5448   01 0252F    00000096 A            DATA     X'96'
     5449   01 02530    0000000F A            DATA     X'F'
     5450   01 02531    00000000 A            DATA     0
     5451   01 02532    53186EFA A            DATA     X'53186EFA'
     5452   01 02533    53186EFA A            DATA     X'53186EFA'
     5453   01 02534    FFFFFFFF A            DATA     X'FFFFFFFF'
     5454   01 02535    00000000 A            DATA     0
     5455   01 02536    00000000 A            DATA     0
     5456   01 02537    00000000 A            DATA     0
     5457   01 02538    00000000 A            DATA     0
     5458   01 02539    9653186C A            DATA     X'9653186C'
     5459                            * BYTE ADDRESSING TEST , L = 5 , R3 INDEX = 3
     5460   01 0253A    121B001B A   DL27     MODULE
     5461   01 0253B    7E563800              DL,5     MEMORY,3
     5462   01 0253C    033011DD              K            0,3,3,LOC
     5463   01 0253D    133011DF              K            1,3,3,LOC+2
     5464   01 0253E    00000000 A            DATA     0
     5465   01 0253F    00000000 A            DATA     0
     5466   01 02540    98765432 A            DATA     X'98765432'
     5467   01 02541    98765432 A            DATA     X'98765432'
     5468   01 02542    00000000 A            DATA     0
     5469   01 02543    00000000 A            DATA     0
     5470   01 02544    1012345B A            DATA     X'1012345B'
     5471   01 02545    1012345B A            DATA     X'1012345B'
     5472   01 02546    00000000 A            DATA     0
     5473   01 02547    00000032 A            DATA     X'32'
     5474   01 02548    00000000 A            DATA     0
     5475   01 02549    00000000 A            DATA     0
     5476   01 0254A    FFFF0000 A            DATA     X'FFFF0000'
     5477   01 0254B    1012345D A            DATA     X'1012345D'
     5478   01 0254C    121C101C A   DL28     MODULE,1
     5479   01 0254D    7E3037FF              DL,3     MEMORY-1
     5480   01 0254E    000011DD              K        0,0,0,LOC
     5481   01 0254F    200011DF              K        2,0,0,LOC+2
     5482   01 02550    00000000 A            DATA     0
     5483   01 02551    00000000 A            DATA     0
     5484   01 02552    12345C00 A            DATA     X'12345C00'
     5485   01 02553    12345C00 A            DATA     X'12345C00'
     5486   01 02554    00000000 A            DATA     0
     5487   01 02555    00000000 A            DATA     0
     5488   01 02556    00000000 A            DATA     0
     5489   01 02557    00000000 A            DATA     0
     5490   01 02558    00000000 A            DATA     0
     5491   01 02559    00000000 A            DATA     0
     5492   01 0255A    00000000 A            DATA     0
     5493   01 0255B    00000000 A            DATA     0
     5494   01 0255C    00000000 A            DATA     0
     5495   01 0255D    0012345C A            DATA     X'12345C'
     5496   01 0255E    1401001D A   DST01    MODULE   X'7F'
     5497   01 0255F    7F003800            DST,0   MEMORY
     5498   01 02560    033011DD            K       0,3,3,LOC
     5499   01 02561    033011DF            K       0,3,3,LOC+2
     5500   01 02562    96969696 A          DATA    X'96969696'
     5501   01 02563    96969696 A          DATA    X'96969696'
     5502   01 02564    00000000 A          DATA    X'0'
     5503   01 02565    96969696 A          DATA    X'96969696'
     5504   01 02566    69696969 A          DATA    X'69696969'
     5505   01 02567    69696969 A          DATA    X'69696969'
     5506   01 02568    00000000 A          DATA    X'0'
     5507   01 02569    69696969 A          DATA    X'69696969'
     5508   01 0256A    77777777 A          DATA    X'77777777'
     5509   01 0256B    77777777 A          DATA    X'77777777'
     5510   01 0256C    00000000 A          DATA    X'0'
     5511   01 0256D    77777777 A          DATA    X'77777777'
     5512   01 0256E    5555555E A          DATA    X'5555555E'
     5513   01 0256F    5555555E A          DATA    X'5555555E'
     5514   01 02570    00000000 A          DATA    X'0'
     5515   01 02571    5555555C A          DATA    X'5555555C'
     5516   01 02572    1402001E A   DST02    MODULE                    DST - FULL WORD,SINGLE BITS
     5517   01 02573    7F003800            DST,0   MEMORY
     5518   01 02574    033011DD            K       0,3,3,LOC
     5519   01 02575    033011DF            K       0,3,3,LOC+2
     5520   01 02576    88888888 A          DATA    X'88888888'
     5521   01 02577    88888888 A          DATA    X'88888888'
     5522   01 02578    00000000 A          DATA    X'0'
     5523   01 02579    88888888 A          DATA    X'88888888'
     5524   01 0257A    44444444 A          DATA    X'44444444'
     5525   01 0257B    44444444 A          DATA    X'44444444'
     5526   01 0257C    00000000 A          DATA    X'0'
     5527   01 0257D    44444444 A          DATA    X'44444444'
     5528   01 0257E    22222222 A          DATA    X'22222222'
     5529   01 0257F    22222222 A          DATA    X'22222222'
     5530   01 02580    00000000 A          DATA    X'0'
     5531   01 02581    22222222 A          DATA    X'22222222'
     5532   01 02582    1111111F A          DATA    X'1111111F'
     5533   01 02583    1111111F A          DATA    X'1111111F'
     5534   01 02584    00000000 A          DATA    X'0'
     5535   01 02585    1111111C A          DATA    X'1111111C'
     5536   01 02586    1403001F A   DST03    MODULE                    DST - L=1
     5537   01 02587    7F103800            DST,1   MEMORY
     5538   01 02588    033011DD            K       0,3,3,LOC
     5539   01 02589    033011DF            K       0,3,3,LOC+2
     5540   01 0258A    00000000 A          DATA    X'0'
     5541   01 0258B    00000000 A          DATA    X'0'
     5542   01 0258C    FFFFFFFF A          DATA    X'FFFFFFFF'
     5543   01 0258D    1DFFFFFF A          DATA    X'1DFFFFFF'
     5544   01 0258E    00000000 A          DATA    X'0'
     5545   01 0258F    00000000 A          DATA    X'0'
     5546   01 02590    FFFFFFFF A          DATA    X'FFFFFFFF'
     5547   01 02591    FFFFFFFF A          DATA    X'FFFFFFFF'
     5548   01 02592    00000000 A          DATA    X'0'
     5549   01 02593    00000000 A          DATA    X'0'
     5550   01 02594    FFFFFFFF A          DATA    X'FFFFFFFF'
     5551   01 02595    FFFFFFFF A          DATA    X'FFFFFFFF'
     5552   01 02596    0000001D A          DATA    X'1D'
     5553   01 02597    0000001D A          DATA    X'1D'
     5554   01 02598    FFFFFFFF A          DATA    X'FFFFFFFF'
     5555   01 02599    FFFFFFFF A          DATA    X'FFFFFFFF'
     5556   01 0259A    14040020 A   DST04    MODULE                    DST - ILLEGAL DIGIT - NO TRAP
     5557   01 0259B    7F003800            DST,0   MEMORY
     5558   01 0259C    031011DD            K       0,3,1,LOC
     5559   01 0259D    831011DF            K       8,3,1,LOC+2
     5560   01 0259E    96969696 A          DATA    X'96969696'
     5561   01 0259F    96969696 A          DATA    X'96969696'
     5562   01 025A0    00000000 A          DATA    X'0'
     5563   01 025A1    00000000 A          DATA    X'0'
     5564   01 025A2    96969696 A          DATA    X'96969696'
     5565   01 025A3    96969696 A          DATA    X'96969696'
     5566   01 025A4    00000000 A          DATA    X'0'
     5567   01 025A5    00000000 A          DATA    X'0'
     5568   01 025A6    96969696 A          DATA    X'96969696'
     5569   01 025A7    96969696 A          DATA    X'96969696'
     5570   01 025A8    00000000 A          DATA    X'0'
     5571   01 025A9    00000000 A          DATA    X'0'
     5572   01 025AA    969696BD A          DATA    X'969696BD'
     5573   01 025AB    969696BD A          DATA    X'969696BD'
     5574   01 025AC    00000000 A          DATA    X'0'
     5575   01 025AD    00000000 A          DATA    X'0'
     5576   01 025AE    12050021 A   DST05    MODULE                    DST - ILLEGAL SIGN - NO TRAP
     5577   01 025AF    7F003800            DST,0   MEMORY
     5578   01 025B0    031011DD            K       0,3,1,LOC
     5579   01 025B1    831011DF            K       8,3,1,LOC+2
     5580   01 025B2    77777777 A          DATA    X'77777777'
     5581   01 025B3    77777777 A          DATA    X'77777777'
     5582   01 025B4    00000000 A          DATA    X'0'
     5583   01 025B5    00000000 A          DATA    X'0'
     5584   01 025B6    77777777 A          DATA    X'77777777'
     5585   01 025B7    77777777 A          DATA    X'77777777'
     5586   01 025B8    00000000 A          DATA    X'0'
     5587   01 025B9    00000000 A          DATA    X'0'
     5588   01 025BA    77777777 A          DATA    X'77777777'
     5589   01 025BB    77777777 A          DATA    X'77777777'
     5590   01 025BC    00000000 A          DATA    X'0'
     5591   01 025BD    00000000 A          DATA    X'0'
     5592   01 025BE    77777777 A          DATA    X'77777777'
     5593   01 025BF    77777777 A          DATA    X'77777777'
     5594   01 025C0    12060022 A   DST06    MODULE                    DST - ALL SIG INFO NOT STORED
     5595   01 025C1    7F103800            DST,1   MEMORY
     5596   01 025C2    033011DD            K       0,3,3,LOC
     5597   01 025C3    433011DF            K       4,3,3,LOC+2
     5598   01 025C4    00000000 A          DATA    X'0'
     5599   01 025C5    00000000 A          DATA    X'0'
     5600   01 025C6    00000000 A          DATA    X'0'
     5601   01 025C7    7C000000 A          DATA    X'7C000000'
     5602   01 025C8    00000000 A          DATA    X'0'
     5603   01 025C9    00000000 A          DATA    X'0'
     5604   01 025CA    00000000 A          DATA    X'0'
     5605   01 025CB    00000000 A          DATA    X'0'
     5606   01 025CC    00000000 A          DATA    X'0'
     5607   01 025CD    00000000 A          DATA    X'0'
     5608   01 025CE    00000000 A          DATA    X'0'
     5609   01 025CF    00000000 A          DATA    X'0'
     5610   01 025D0    0000077A A          DATA    X'77A'
     5611   01 025D1    0000077A A          DATA    X'77A'
     5612   01 025D2    14070023 A   DST07    MODULE                     DST - L=2
     5613   01 025D3    7F203800              DST,2    MEMORY
     5614   01 025D4    033011DD              K        0,3,3,LOC
     5615   01 025D5    033011DF              K        0,3,3,LOC+2
     5616   01 025D6    00000000 A            DATA     X'0'
     5617   01 025D7    00000000 A            DATA     X'0'
     5618   01 025D8    FFFFFFFF A            DATA     X'FFFFFFFF'
     5619   01 025D9    987DFFFF A            DATA     X'987DFFFF'
     5620   01 025DA    00000000 A            DATA     X'0'
     5621   01 025DB    00000000 A            DATA     X'0'
     5622   01 025DC    FFFFFFFF A            DATA     X'FFFFFFFF'
     5623   01 025DD    FFFFFFFF A            DATA     X'FFFFFFFF'
     5624   01 025DE    00000000 A            DATA     X'0'
     5625   01 025DF    00000000 A            DATA     X'0'
     5626   01 025E0    FFFFFFFF A            DATA     X'FFFFFFFF'
     5627   01 025E1    FFFFFFFF A            DATA     X'FFFFFFFF'
     5628   01 025E2    0000987D A            DATA     X'987D'
     5629   01 025E3    0000987D A            DATA     X'987D'
     5630   01 025E4    FFFFFFFF A            DATA     X'FFFFFFFF'
     5631   01 025E5    FFFFFFFF A            DATA     X'FFFFFFFF'
     5632   01 025E6    12080024 A   DST08    MODULE
     5633   01 025E7    7F303800              DST,3    MEMORY
     5634   01 025E8    F33011E2              K        15,3,3,LOC+5
     5635   01 025E9    B330101B              K        11,3,3,EXP:TRAP+5
     5636   01 025EA    0B124000 A            DATA     X'B124000'
     5637   01 025EB    0B124000 A            DATA     X'B124000'
     5638   01 025EC    00000000 A            DATA     0,0,0,0,0,0,0,0,0,0
            01 025ED    00000000 A
            01 025EE    00000000 A
            01 025EF    00000000 A
            01 025F0    00000000 A
            01 025F1    00000000 A
            01 025F2    00000000 A
            01 025F3    00000000 A
            01 025F4    00000000 A
            01 025F5    00000000 A
     5639   01 025F6    0000123C A            DATA     X'123C'
     5640   01 025F7    0000123C A            DATA     X'123C'
     5641                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=0,BYTEINDEX=0,EXPECTED TRAP
     5642   01 025F8    12091025 A   DST09    MODULE,1
     5643   01 025F9    7F0037FD              DST,0    MEMORY-3
     5644   01 025FA    033011DD              K            0,3,3,LOC
     5645   01 025FB    03301016              K            0,3,3,EXP:TRAP
     5646   01 025FC    12345678 A            DATA     X'12345678'
     5647   01 025FD    12345678 A            DATA     X'12345678'
     5648   01 025FE    00000000 A            DATA     0
     5649   01 025FF    00000000 A            DATA     0
     5650   01 02600    13572468 A            DATA     X'13572468'
     5651   01 02601    13572468 A            DATA     X'13572468'
     5652   01 02602    00000000 A            DATA     0
     5653   01 02603    00000000 A            DATA     0
     5654   01 02604    10203040 A            DATA     X'10203040'
     5655   01 02605    10203040 A            DATA     X'10203040'
     5656   01 02606    00000000 A            DATA     0
     5657   01 02607    00000000 A            DATA     0
     5658   01 02608    1122334A A            DATA     X'1122334A'
     5659   01 02609    1122334A A            DATA     X'1122334A'
     5660                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=0,BYTEINDEX=0, NO TRAP
     5661   01 0260A    140A1026 A   DST10    MODULE,1
     5662   01 0260B    7F0037FC              DST,0    MEMORY-4
     5663   01 0260C    033011DD              K            0,3,3,LOC
     5664   01 0260D    033011DF              K            0,3,3,LOC+2
     5665   01 0260E    11223344 A            DATA     X'11223344'
     5666   01 0260F    11223344 A            DATA     X'11223344'
     5667   01 02610    00000000 A            DATA     0
     5668   01 02611    11223344 A            DATA     X'11223344'
     5669   01 02612    55667788 A            DATA     X'55667788'
     5670   01 02613    55667788 A            DATA     X'55667788'
     5671   01 02614    00000000 A            DATA     0
     5672   01 02615    55667788 A            DATA     X'55667788'
     5673   01 02616    99001122 A            DATA     X'99001122'
     5674   01 02617    99001122 A            DATA     X'99001122'
     5675   01 02618    00000000 A            DATA     0
     5676   01 02619    99001122 A            DATA     X'99001122'
     5677   01 0261A    3344556C A            DATA     X'3344556C'
     5678   01 0261B    3344556C A            DATA     X'3344556C'
     5679   01 0261C    00000000 A            DATA     0
     5680   01 0261D    3344556C A            DATA     X'3344556C'
     5681                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=1,BYTEINDEX=0,EXPECTED TRAP
     5682   01 0261E    120B1027 A   DST11    MODULE,1
     5683   01 0261F    7F103800              DST,1    MEMORY
     5684   01 02620    033011DD              K            0,3,3,LOC
     5685   01 02621    03301016              K            0,3,3,EXP:TRAP
     5686   01 02622    00000001 A            DATA     1
     5687   01 02623    00000001 A            DATA     1
     5688   01 02624    00000000 A            DATA     0
     5689   01 02625    00000000 A            DATA     0
     5690   01 02626    00000002 A            DATA     2
     5691   01 02627    00000002 A            DATA     2
     5692   01 02628    00000000 A            DATA     0
     5693   01 02629    00000000 A            DATA     0
     5694   01 0262A    00000003 A            DATA     3
     5695   01 0262B    00000003 A            DATA     3
     5696   01 0262C    00000000 A            DATA     0
     5697   01 0262D    00000000 A            DATA     0
     5698   01 0262E    0000004D A            DATA     X'4D'
     5699   01 0262F    0000004D A            DATA     X'4D'
     5700                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=1,BYTEINDEX=0, NO TRAP
     5701   01 02630    120C1028 A   DST12    MODULE,1
     5702   01 02631    7F1037FF              DST,1    MEMORY-1
     5703   01 02632    033011DD              K            0,3,3,LOC
     5704   01 02633    433011DF              K            4,3,3,LOC+2
     5705   01 02634    00000003 A            DATA     3
     5706   01 02635    00000003 A            DATA     3
     5707   01 02636    00000000 A            DATA     0
     5708   01 02637    8C000000 A            DATA     X'8C000000'
     5709   01 02638    00000005 A            DATA     5
     5710   01 02639    00000005 A            DATA     5
     5711   01 0263A    00000000 A            DATA     0
     5712   01 0263B    00000000 A            DATA     0
     5713   01 0263C    00000007 A            DATA     7
     5714   01 0263D    00000007 A            DATA     7
     5715   01 0263E    00000000 A            DATA     0
     5716   01 0263F    00000000 A            DATA     0
     5717   01 02640    0000008A A            DATA     X'8A'
     5718   01 02641    0000008A A            DATA     X'8A'
     5719                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=2,BYTEINDEX=0,EXPECTED TRAP
     5720   01 02642    120D1029 A   DST13    MODULE,1
     5721   01 02643    7F203800              DST,2    MEMORY
     5722   01 02644    033011DD              K            0,3,3,LOC
     5723   01 02645    03301016              K            0,3,3,EXP:TRAP
     5724   01 02646    00000000 A            DATA     0
     5725   01 02647    00000000 A            DATA     0
     5726   01 02648    00000000 A            DATA     0
     5727   01 02649    00000000 A            DATA     0
     5728   01 0264A    00000000 A            DATA     0
     5729   01 0264B    00000000 A            DATA     0
     5730   01 0264C    00000000 A            DATA     0
     5731   01 0264D    00000000 A            DATA     0
     5732   01 0264E    00000000 A            DATA     0
     5733   01 0264F    00000000 A            DATA     0
     5734   01 02650    00000000 A            DATA     0
     5735   01 02651    00000000 A            DATA     0
     5736   01 02652    0000567D A            DATA     X'567D'
     5737   01 02653    0000567D A            DATA     X'567D'
     5738                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=2,BYTEINDEX=0, NO TRAP
     5739   01 02654    120E102A A   DST14    MODULE,1
     5740   01 02655    7F2037FF              DST,2    MEMORY-1
     5741   01 02656    033011DD              K            0,3,3,LOC
     5742   01 02657    433011DF              K            4,3,3,LOC+2
     5743   01 02658    00000000 A            DATA     0
     5744   01 02659    00000000 A            DATA     0
     5745   01 0265A    00000000 A            DATA     0
     5746   01 0265B    678C0000 A            DATA     X'678C0000'
     5747   01 0265C    00000000 A            DATA     0
     5748   01 0265D    00000000 A            DATA     0
     5749   01 0265E    00000000 A            DATA     0
     5750   01 0265F    00000000 A            DATA     0
     5751   01 02660    00000000 A            DATA     0
     5752   01 02661    00000000 A            DATA     0
     5753   01 02662    00000000 A            DATA     0
     5754   01 02663    00000000 A            DATA     0
     5755   01 02664    2345678C A            DATA     X'2345678C'
     5756   01 02665    2345678C A            DATA     X'2345678C'
     5757                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=4,BYTEINDEX=0, NO TRAP
     5758   01 02666    120F102B A   DST15    MODULE,1
     5759   01 02667    7F4037FF              DST,4    MEMORY-1
     5760   01 02668    033011DD              K            0,3,3,LOC
     5761   01 02669    033011DF              K            0,3,3,LOC+2
     5762   01 0266A    00000000 A            DATA     0
     5763   01 0266B    00000000 A            DATA     0
     5764   01 0266C    00000000 A            DATA     0
     5765   01 0266D    1536249D A            DATA     X'1536249D'
     5766   01 0266E    00000000 A            DATA     0
     5767   01 0266F    00000000 A            DATA     0
     5768   01 02670    00000000 A            DATA     0
     5769   01 02671    00000000 A            DATA     0
     5770   01 02672    00000000 A            DATA     0
     5771   01 02673    00000000 A            DATA     0
     5772   01 02674    00000000 A            DATA     0
     5773   01 02675    00000000 A            DATA     0
     5774   01 02676    1536249D A            DATA     X'1536249D'
     5775   01 02677    1536249D A            DATA     X'1536249D'
     5776                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=5,BYTEINDEX=0,EXPECTED TRAP
     5777   01 02678    1210102C A   DST16    MODULE,1
     5778   01 02679    7F5037FF              DST,5    MEMORY-1
     5779   01 0267A    033011DD              K            0,3,3,LOC
     5780   01 0267B    03301016              K            0,3,3,EXP:TRAP
     5781   01 0267C    00000000 A            DATA     0
     5782   01 0267D    00000000 A            DATA     0
     5783   01 0267E    00000000 A            DATA     0
     5784   01 0267F    00000000 A            DATA     0
     5785   01 02680    00000000 A            DATA     0
     5786   01 02681    00000000 A            DATA     0
     5787   01 02682    00000000 A            DATA     0
     5788   01 02683    00000000 A            DATA     0
     5789   01 02684    00000098 A            DATA     X'98'
     5790   01 02685    00000098 A            DATA     X'98'
     5791   01 02686    00000000 A            DATA     0
     5792   01 02687    00000000 A            DATA     0
     5793   01 02688    7654321C A            DATA     X'7654321C'
     5794   01 02689    7654321C A            DATA     X'7654321C'
     5795                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=0,BYTEINDEX=1,EXPECTED TRAP
     5796   01 0268A    1211102D A   DST17    MODULE,1
     5797   01 0268B    7F0237FC              DST,0    MEMORY-4,1
     5798   01 0268C    033011DD              K            0,3,3,LOC
     5799   01 0268D    03301016              K            0,3,3,EXP:TRAP
     5800   01 0268E    24681357 A            DATA     X'24681357'
     5801   01 0268F    24681357 A            DATA     X'24681357'
     5802   01 02690    00000000 A            DATA     0
     5803   01 02691    00000000 A            DATA     0
     5804   01 02692    10203040 A            DATA     X'10203040'
     5805   01 02693    10203040 A            DATA     X'10203040'
     5806   01 02694    00000000 A            DATA     0
     5807   01 02695    00000000 A            DATA     0
     5808   01 02696    04050607 A            DATA     X'04050607'
     5809   01 02697    04050607 A            DATA     X'04050607'
     5810   01 02698    00000000 A            DATA     0
     5811   01 02699    00000000 A            DATA     0
     5812   01 0269A    5432987D A            DATA     X'5432987D'
     5813   01 0269B    5432987D A            DATA     X'5432987D'
     5814                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=1,BYTEINDEX=1,EXPECTED TRAP
     5815   01 0269C    1212102E A   DST18    MODULE,1
     5816   01 0269D    7F123800              DST,1    MEMORY,1
     5817   01 0269E    033011DD              K            0,3,3,LOC
     5818   01 0269F    03301016              K            0,3,3,EXP:TRAP
     5819   01 026A0    00000000 A            DATA     0
     5820   01 026A1    00000000 A            DATA     0
     5821   01 026A2    00000000 A            DATA     0
     5822   01 026A3    00000000 A            DATA     0
     5823   01 026A4    00000000 A            DATA     0
     5824   01 026A5    00000000 A            DATA     0
     5825   01 026A6    00000000 A            DATA     0
     5826   01 026A7    00000000 A            DATA     0
     5827   01 026A8    00000000 A            DATA     0
     5828   01 026A9    00000000 A            DATA     0
     5829   01 026AA    00000000 A            DATA     0
     5830   01 026AB    00000000 A            DATA     0
     5831   01 026AC    0024364B A            DATA     X'24364B'
     5832   01 026AD    0024364B A            DATA     X'24364B'
     5833                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=2,BYTEINDEX=1,EXPECTED TRAP
     5834   01 026AE    1213102F A   DST19    MODULE,1
     5835   01 026AF    7F223800              DST,2    MEMORY,1
     5836   01 026B0    033011DD              K            0,3,3,LOC
     5837   01 026B1    03301016              K            0,3,3,EXP:TRAP
     5838   01 026B2    00000000 A            DATA     0
     5839   01 026B3    00000000 A            DATA     0
     5840   01 026B4    00000000 A            DATA     0
     5841   01 026B5    00000000 A            DATA     0
     5842   01 026B6    00000000 A            DATA     0
     5843   01 026B7    00000000 A            DATA     0
     5844   01 026B8    00000000 A            DATA     0
     5845   01 026B9    00000000 A            DATA     0
     5846   01 026BA    00000000 A            DATA     0
     5847   01 026BB    00000000 A            DATA     0
     5848   01 026BC    00000000 A            DATA     0
     5849   01 026BD    00000000 A            DATA     0
     5850   01 026BE    0000147A A            DATA     X'147A'
     5851   01 026BF    0000147A A            DATA     X'147A'
     5852                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=2,BYTEINDEX=1,NO TRAP
     5853   01 026C0    12141030 A   DST20    MODULE,1
     5854   01 026C1    7F2237FF              DST,2    MEMORY-1,1
     5855   01 026C2    033011DD              K            0,3,3,LOC
     5856   01 026C3    433011DF              K            4,3,3,LOC+2
     5857   01 026C4    12349876 A            DATA     X'12349876'
     5858   01 026C5    12349876 A            DATA     X'12349876'
     5859   01 026C6    00000000 A            DATA     0
     5860   01 026C7    00246C00 A            DATA     X'246C00'
     5861   01 026C8    43212345 A            DATA     X'43212345'
     5862   01 026C9    43212345 A            DATA     X'43212345'
     5863   01 026CA    00000000 A            DATA     0
     5864   01 026CB    00000000 A            DATA     0
     5865   01 026CC    98767890 A            DATA     X'98767890'
     5866   01 026CD    98767890 A            DATA     X'98767890'
     5867   01 026CE    00000000 A            DATA     0
     5868   01 026CF    00000000 A            DATA     0
     5869   01 026D0    1357246A A            DATA     X'1357246A'
     5870   01 026D1    1357246A A            DATA     X'1357246A'
     5871                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=3,BYTEINDEX=1,NO TRAP
     5872   01 026D2    12151031 A   DST21    MODULE,1
     5873   01 026D3    7F3237FF              DST,3    MEMORY-1,1
     5874   01 026D4    033011DD              K            0,3,3,LOC
     5875   01 026D5    033011DF              K            0,3,3,LOC+2
     5876   01 026D6    00000000 A            DATA     0
     5877   01 026D7    00000000 A            DATA     0
     5878   01 026D8    00000000 A            DATA     0
     5879   01 026D9    0098765D A            DATA     X'98765D'
     5880   01 026DA    00000000 A            DATA     0
     5881   01 026DB    00000000 A            DATA     0
     5882   01 026DC    00000000 A            DATA     0
     5883   01 026DD    00000000 A            DATA     0
     5884   01 026DE    00000000 A            DATA     0
     5885   01 026DF    00000000 A            DATA     0
     5886   01 026E0    00000000 A            DATA     0
     5887   01 026E1    00000000 A            DATA     0
     5888   01 026E2    0098765B A            DATA     X'98765B'
     5889   01 026E3    0098765B A            DATA     X'98765B'
     5890                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=4,BYTEINDEX=1,EXPECTED TRAP
     5891   01 026E4    12161032 A   DST22    MODULE,1
     5892   01 026E5    7F4237FF              DST,4    MEMORY-1,1
     5893   01 026E6    033011DD              K            0,3,3,LOC
     5894   01 026E7    03301016              K            0,3,3,EXP:TRAP
     5895   01 026E8    00000009 A            DATA     9
     5896   01 026E9    00000009 A            DATA     9
     5897   01 026EA    00000000 A            DATA     0
     5898   01 026EB    00000000 A            DATA     0
     5899   01 026EC    00000002 A            DATA     2
     5900   01 026ED    00000002 A            DATA     2
     5901   01 026EE    00000000 A            DATA     0
     5902   01 026EF    00000000 A            DATA     0
     5903   01 026F0    00000005 A            DATA     5
     5904   01 026F1    00000005 A            DATA     5
     5905   01 026F2    00000000 A            DATA     0
     5906   01 026F3    00000000 A            DATA     0
     5907   01 026F4    1379265C A            DATA     X'1379265C'
     5908   01 026F5    1379265C A            DATA     X'1379265C'
     5909                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=2,BYTEINDEX=2, NO TRAP
     5910   01 026F6    12171033 A   DST23    MODULE,1
     5911   01 026F7    7F2437FF              DST,2    MEMORY-1,2
     5912   01 026F8    033011DD              K            0,3,3,LOC
     5913   01 026F9    433011DF              K            4,3,3,LOC+2
     5914   01 026FA    10000000 A            DATA     X'10000000'
     5915   01 026FB    10000000 A            DATA     X'10000000'
     5916   01 026FC    00000000 A            DATA     0
     5917   01 026FD    0000192D A            DATA     X'192D'
     5918   01 026FE    20000000 A            DATA     X'20000000'
     5919   01 026FF    20000000 A            DATA     X'20000000'
     5920   01 02700    00000000 A            DATA     0
     5921   01 02701    00000000 A            DATA     0
     5922   01 02702    30000000 A            DATA     X'30000000'
     5923   01 02703    30000000 A            DATA     X'30000000'
     5924   01 02704    00000000 A            DATA     0
     5925   01 02705    00000000 A            DATA     0
     5926   01 02706    0000192B A            DATA     X'192B'
     5927   01 02707    0000192B A            DATA     X'192B'
     5928                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=3,BYTEINDEX=2,EXPECTED TRAP
     5929   01 02708    12181034 A   DST24    MODULE,1
     5930   01 02709    7F3437FF              DST,3    MEMORY-1,2
     5931   01 0270A    033011DD              K            0,3,3,LOC
     5932   01 0270B    03301016              K            0,3,3,EXP:TRAP
     5933   01 0270C    00000000 A            DATA     0
     5934   01 0270D    00000000 A            DATA     0
     5935   01 0270E    00000000 A            DATA     0
     5936   01 0270F    00000000 A            DATA     0
     5937   01 02710    00000000 A            DATA     0
     5938   01 02711    00000000 A            DATA     0
     5939   01 02712    00000000 A            DATA     0
     5940   01 02713    00000000 A            DATA     0
     5941   01 02714    00000000 A            DATA     0
     5942   01 02715    00000000 A            DATA     0
     5943   01 02716    00000000 A            DATA     0
     5944   01 02717    00000000 A            DATA     0
     5945   01 02718    8134927C A            DATA     X'8134927C'
     5946   01 02719    8134927C A            DATA     X'8134927C'
     5947                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,L=4,BYTEINDEX=2,EXPECTED TRAP
     5948   01 0271A    12191035 A   DST25    MODULE,1
     5949   01 0271B    7F4437FF              DST,4    MEMORY-1,2
     5950   01 0271C    033011DD              K            0,3,3,LOC
     5951   01 0271D    03301016              K            0,3,3,EXP:TRAP
     5952   01 0271E    00000009 A            DATA     9
     5953   01 0271F    00000009 A            DATA     9
     5954   01 02720    00000000 A            DATA     0
     5955   01 02721    00000000 A            DATA     0
     5956   01 02722    00000007 A            DATA     7
     5957   01 02723    00000007 A            DATA     7
     5958   01 02724    00000000 A            DATA     0
     5959   01 02725    00000000 A            DATA     0
     5960   01 02726    00000005 A            DATA     5
     5961   01 02727    00000005 A            DATA     5
     5962   01 02728    00000000 A            DATA     0
     5963   01 02729    00000000 A            DATA     0
     5964   01 0272A    3742689D A            DATA     X'3742689D'
     5965   01 0272B    3742689D A            DATA     X'3742689D'
     5966                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=0,NO TRAP
     5967   01 0272C    121A1036 A   DST26    MODULE,1
     5968   01 0272D    7F5037FE              DST,5    MEMORY-2
     5969   01 0272E    033011DD              K            0,3,3,LOC
     5970   01 0272F    433011DF              K            4,3,3,LOC+2
     5971   01 02730    00000008 A            DATA     8
     5972   01 02731    00000008 A            DATA     8
     5973   01 02732    00000000 A            DATA     0
     5974   01 02733    89124637 A            DATA     X'89124637'
     5975   01 02734    00000005 A            DATA     5
     5976   01 02735    00000005 A            DATA     5
     5977   01 02736    00000000 A            DATA     0
     5978   01 02737    0C000000 A            DATA     X'0C000000'
     5979   01 02738    23456789 A            DATA     X'23456789'
     5980   01 02739    23456789 A            DATA     X'23456789'
     5981   01 0273A    00000000 A            DATA     0
     5982   01 0273B    00000000 A            DATA     0
     5983   01 0273C    1246370A A            DATA     X'1246370A'
     5984   01 0273D    1246370A A            DATA     X'1246370A'
     5985                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3, NO TRAP
     5986   01 0273E    161B1037 A   DST27    MODULE,1
     5987   01 0273F    7F0637FB              DST,0    MEMORY-5,3
     5988   01 02740    033011DD              K            0,3,3,LOC
     5989   01 02741    033011DF              K            0,3,3,LOC+2
     5990   01 02742    98765432 A            DATA     X'98765432'
     5991   01 02743    98765432 A            DATA     X'98765432'
     5992   01 02744    00000000 A            DATA     0
     5993   01 02745    00000098 A            DATA     X'98'
     5994   01 02746    12345678 A            DATA     X'12345678'
     5995   01 02747    12345678 A            DATA     X'12345678'
     5996   01 02748    00000000 A            DATA     0
     5997   01 02749    76543212 A            DATA     X'76543212'
     5998   01 0274A    90246813 A            DATA     X'90246813'
     5999   01 0274B    90246813 A            DATA     X'90246813'
     6000   01 0274C    00000000 A            DATA     0
     6001   01 0274D    34567890 A            DATA     X'34567890'
     6002   01 0274E    5791428A A            DATA     X'5791428A'
     6003   01 0274F    5791428A A            DATA     X'5791428A'
     6004   01 02750    00000000 A            DATA     0
     6005   01 02751    24681357 A            DATA     X'24681357'
     6006   01 02752    00000000 A            DATA     0
     6007   01 02753    91428C00 A            DATA     X'91428C00'
     6008                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3, NO TRAP
     6009   01 02754    121C1038 A   DST28    MODULE,1
     6010   01 02755    7F1637FF              DST,1    MEMORY-1,3
     6011   01 02756    033011DD              K            0,3,3,LOC
     6012   01 02757    433011DF              K            4,3,3,LOC+2
     6013   01 02758    00000005 A            DATA     5
     6014   01 02759    00000005 A            DATA     5
     6015   01 0275A    00000000 A            DATA     0
     6016   01 0275B    0000007D A            DATA     X'7D'
     6017   01 0275C    00000009 A            DATA     9
     6018   01 0275D    00000009 A            DATA     9
     6019   01 0275E    00000000 A            DATA     0
     6020   01 0275F    00000000 A            DATA     0
     6021   01 02760    00000003 A            DATA     3
     6022   01 02761    00000003 A            DATA     3
     6023   01 02762    00000000 A            DATA     0
     6024   01 02763    00000000 A            DATA     0
     6025   01 02764    1204067B A            DATA     X'1204067B'
     6026   01 02765    1204067B A            DATA     X'1204067B'
     6027                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3,EXPECTED TRAP
     6028   01 02766    121D1039 A   DST29    MODULE,1
     6029   01 02767    7F2637FF              DST,2    MEMORY-1,3
     6030   01 02768    033011DD              K            0,3,3,LOC
     6031   01 02769    03301016              K            0,3,3,EXP:TRAP
     6032   01 0276A    00000001 A            DATA     1
     6033   01 0276B    00000001 A            DATA     1
     6034   01 0276C    00000000 A            DATA     0
     6035   01 0276D    00000000 A            DATA     0
     6036   01 0276E    00000002 A            DATA     2
     6037   01 0276F    00000002 A            DATA     2
     6038   01 02770    00000000 A            DATA     0
     6039   01 02771    00000000 A            DATA     0
     6040   01 02772    00000003 A            DATA     3
     6041   01 02773    00000003 A            DATA     3
     6042   01 02774    00000000 A            DATA     0
     6043   01 02775    00000000 A            DATA     0
     6044   01 02776    9876543A A            DATA     X'9876543A'
     6045   01 02777    9876543A A            DATA     X'9876543A'
     6046                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3,EXPECTED TRAP
     6047   01 02778    121E103A A   DST30    MODULE,1
     6048   01 02779    7F3637FF              DST,3    MEMORY-1,3
     6049   01 0277A    033011DD              K            0,3,3,LOC
     6050   01 0277B    03301016              K            0,3,3,EXP:TRAP
     6051   01 0277C    00000007 A            DATA     7
     6052   01 0277D    00000007 A            DATA     7
     6053   01 0277E    00000000 A            DATA     0
     6054   01 0277F    00000000 A            DATA     0
     6055   01 02780    00000009 A            DATA     9
     6056   01 02781    00000009 A            DATA     9
     6057   01 02782    00000000 A            DATA     0
     6058   01 02783    00000000 A            DATA     0
     6059   01 02784    00000003 A            DATA     3
     6060   01 02785    00000003 A            DATA     3
     6061   01 02786    00000000 A            DATA     0
     6062   01 02787    00000000 A            DATA     0
     6063   01 02788    8642135A A            DATA     X'8642135A'
     6064   01 02789    8642135A A            DATA     X'8642135A'
     6065                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3, NO TRAP
     6066   01 0278A    121F103B A   DST31    MODULE,1
     6067   01 0278B    7F5637FE              DST,5    MEMORY-2,3
     6068   01 0278C    033011DD              K            0,3,3,LOC
     6069   01 0278D    433011DF              K            4,3,3,LOC+2
     6070   01 0278E    00000003 A            DATA     3
     6071   01 0278F    00000003 A            DATA     3
     6072   01 02790    00000000 A            DATA     0
     6073   01 02791    00000053 A            DATA     X'53'
     6074   01 02792    00000004 A            DATA     4
     6075   01 02793    00000004 A            DATA     4
     6076   01 02794    00000000 A            DATA     0
     6077   01 02795    9274268D A            DATA     X'9274268D'
     6078   01 02796    00000053 A            DATA     X'53'
     6079   01 02797    00000053 A            DATA     X'53'
     6080   01 02798    00000000 A            DATA     0
     6081   01 02799    00000000 A            DATA     0
     6082   01 0279A    9274268B A            DATA     X'9274268B'
     6083   01 0279B    9274268B A            DATA     X'9274268B'
     6084   01 0279C    1401003C A   DA01     MODULE   X'79'             DA - CHECK ADDER-SUBTRACTER
     6085   01 0279D    79003800              DA,0     MEMORY
     6086   01 0279E    033011DD              K        0,3,3,LOC
     6087   01 0279F    233011DF              K        2,3,3,LOC+2
     6088   01 027A0    06530869 A            DATA     X'06530869'
     6089   01 027A1    29048908 A            DATA     X'29048908'
     6090   01 027A2    22518038 A            DATA     X'22518038'
     6091   01 027A3    22518038 A            DATA     X'22518038'
     6092   01 027A4    98607909 A            DATA     X'98607909'
     6093   01 027A5    97224856 A            DATA     X'97224856'
     6094   01 027A6    98616947 A            DATA     X'98616947'
     6095   01 027A7    98616947 A            DATA     X'98616947'
     6096   01 027A8    07418080 A            DATA     X'07418080'
     6097   01 027A9    14836881 A            DATA     X'14836881'
     6098   01 027AA    07418800 A            DATA     X'07418800'
     6099   01 027AB    07418800 A            DATA     X'07418800'
     6100   01 027AC    9107660A A            DATA     X'9107660A'
     6101   01 027AD    6117120C A            DATA     X'6117120C'
     6102   01 027AE    7009460A A            DATA     X'7009460A'
     6103   01 027AF    7009460A A            DATA     X'7009460A'
     6104   01 027B0    1402003D A   DA02     MODULE                     DA - CHECK ADDER-SUBTRACTER
     6105   01 027B1    79003800              DA,0     MEMORY
     6106   01 027B2    033011DD              K        0,3,3,LOC
     6107   01 027B3    133011DF              K        1,3,3,LOC+2
     6108   01 027B4    28787178 A            DATA     X'28787178'
     6109   01 027B5    47276247 A            DATA     X'47276247'
     6110   01 027B6    18489068 A            DATA     X'18489068'
     6111   01 027B7    18489068 A            DATA     X'18489068'
     6112   01 027B8    85484150 A            DATA     X'85484150'
     6113   01 027B9    66569881 A            DATA     X'66569881'
     6114   01 027BA    81085730 A            DATA     X'81085730'
     6115   01 027BB    81085730 A            DATA     X'81085730'
     6116   01 027BC    70706004 A            DATA     X'70706004'
     6117   01 027BD    31422509 A            DATA     X'31422509'
     6118   01 027BE    60716504 A            DATA     X'60716504'
     6119   01 027BF    60716504 A            DATA     X'60716504'
     6120   01 027C0    7818980D A            DATA     X'7818980D'
     6121   01 027C1    4627960D A            DATA     X'4627960D'
     6122   01 027C2    6808980D A            DATA     X'6808980D'
     6123   01 027C3    6808980D A            DATA     X'6808980D'
     6124   01 027C4    1403003E A   DA03     MODULE                     DA - CHECK ADDER-SUBTRACTER
     6125   01 027C5    79C03800              DA,12    MEMORY
     6126   01 027C6    033011DD              K        0,3,3,LOC
     6127   01 027C7    233011DF              K        2,3,3,LOC+2
     6128   01 027C8    00000000 A            DATA     X'0'
     6129   01 027C9    00000000 A            DATA     X'0'
     6130   01 027CA    00000980 A            DATA     X'00000980'
     6131   01 027CB    00000980 A            DATA     X'00000980'
     6132   01 027CC    00000680 A            DATA     X'00000680'
     6133   01 027CD    00001660 A            DATA     X'00001660'
     6134   01 027CE    00820000 A            DATA     X'00820000'
     6135   01 027CF    00820000 A            DATA     X'00820000'
     6136   01 027D0    03800200 A            DATA     X'03800200'
     6137   01 027D1    04620200 A            DATA     X'04620200'
     6138   01 027D2    0069110C A            DATA     X'0069110C'
     6139   01 027D3    0069110C A            DATA     X'0069110C'
     6140   01 027D4    0069310C A            DATA     X'0069310C'
     6141   01 027D5    0138420C A            DATA     X'0138420C'
     6142   01 027D6    00000000 A            DATA     X'0'
     6143   01 027D7    00000000 A            DATA     X'0'
     6144   01 027D8    1404003F A   DA04     MODULE                     DA - ADD ZEROS
     6145   01 027D9    79003800              DA,0     MEMORY
     6146   01 027DA    F33011DD              K        15,3,3,LOC
     6147   01 027DB    033011DF              K        0,3,3,LOC+2
     6148   01 027DC    00000000 A            DATA     X'0'
     6149   01 027DD    00000000 A            DATA     X'0'
     6150   01 027DE    00000000 A            DATA     X'0'
     6151   01 027DF    00000000 A            DATA     X'0'
     6152   01 027E0    00000000 A            DATA     X'0'
     6153   01 027E1    00000000 A            DATA     X'0'
     6154   01 027E2    00000000 A            DATA     X'0'
     6155   01 027E3    00000000 A            DATA     X'0'
     6156   01 027E4    00000000 A            DATA     X'0'
     6157   01 027E5    00000000 A            DATA     X'0'
     6158   01 027E6    00000000 A            DATA     X'0'
     6159   01 027E7    00000000 A            DATA     X'0'
     6160   01 027E8    0000000C A            DATA     X'C'
     6161   01 027E9    0000000C A            DATA     X'C'
     6162   01 027EA    0000000C A            DATA     X'C'
     6163   01 027EB    0000000C A            DATA     X'C'
     6164   01 027EC    14050040 A   DA05     MODULE                     DA - OVERFLOW -TRAP
     6165   01 027ED    79003800              DA,0     MEMORY
     6166   01 027EE    033011E2              K        0,3,3,LOC+5
     6167   01 027EF    4330101B              K        4,3,3,EXP:TRAP+5
     6168   01 027F0    50000000 A            DATA     X'50000000'
     6169   01 027F1    50000000 A            DATA     X'50000000'
     6170   01 027F2    50000000 A            DATA     X'50000000'
     6171   01 027F3    50000000 A            DATA     X'50000000'
     6172   01 027F4    00000000 A            DATA     X'0'
     6173   01 027F5    00000000 A            DATA     X'0'
     6174   01 027F6    00000000 A            DATA     X'0'
     6175   01 027F7    00000000 A            DATA     X'0'
     6176   01 027F8    00000000 A            DATA     X'0'
     6177   01 027F9    00000000 A            DATA     X'0'
     6178   01 027FA    00000000 A            DATA     X'0'
     6179   01 027FB    00000000 A            DATA     X'0'
     6180   01 027FC    0000000C A            DATA     X'C'
     6181   01 027FD    0000000C A            DATA     X'C'
     6182   01 027FE    0000000C A            DATA     X'C'
     6183   01 027FF    0000000C A            DATA     X'C'
     6184   01 02800    14060041 A   DA06     MODULE                     DA - OVERFLOW - NO TRAP
     6185   01 02801    79003800              DA,0     MEMORY
     6186   01 02802    031011DD              K        0,3,1,LOC
     6187   01 02803    431011DF              K        4,3,1,LOC+2
     6188   01 02804    50000000 A            DATA     X'50000000'
     6189   01 02805    50000000 A            DATA     X'50000000'
     6190   01 02806    50000000 A            DATA     X'50000000'
     6191   01 02807    50000000 A            DATA     X'50000000'
     6192   01 02808    00000000 A            DATA     X'0'
     6193   01 02809    00000000 A            DATA     X'0'
     6194   01 0280A    00000000 A            DATA     X'0'
     6195   01 0280B    00000000 A            DATA     X'0'
     6196   01 0280C    00000000 A            DATA     X'0'
     6197   01 0280D    00000000 A            DATA     X'0'
     6198   01 0280E    00000000 A            DATA     X'0'
     6199   01 0280F    00000000 A            DATA     X'0'
     6200   01 02810    0000000C A            DATA     X'C'
     6201   01 02811    0000000C A            DATA     X'C'
     6202   01 02812    0000000C A            DATA     X'C'
     6203   01 02813    0000000C A            DATA     X'C'
     6204   01 02814    14070042 A   DA07     MODULE                     DA - MAX SUM
     6205   01 02815    79003800              DA,0     MEMORY
     6206   01 02816    033011DD              K        0,3,3,LOC
     6207   01 02817    233011DF              K        2,3,3,LOC+2
     6208   01 02818    55555555 A            DATA     X'55555555'
     6209   01 02819    99999999 A            DATA     X'99999999'
     6210   01 0281A    44444444 A            DATA     X'44444444'
     6211   01 0281B    44444444 A            DATA     X'44444444'
     6212   01 0281C    55555555 A            DATA     X'55555555'
     6213   01 0281D    99999999 A            DATA     X'99999999'
     6214   01 0281E    44444444 A            DATA     X'44444444'
     6215   01 0281F    44444444 A            DATA     X'44444444'
     6216   01 02820    55555555 A            DATA     X'55555555'
     6217   01 02821    99999999 A            DATA     X'99999999'
     6218   01 02822    44444444 A            DATA     X'44444444'
     6219   01 02823    44444444 A            DATA     X'44444444'
     6220   01 02824    5555555C A            DATA     X'5555555C'
     6221   01 02825    9999999C A            DATA     X'9999999C'
     6222   01 02826    4444444C A            DATA     X'4444444C'
     6223   01 02827    4444444C A            DATA     X'4444444C'
     6224   01 02828    14080043 A   DA08     MODULE                     DA-COMPLEMENT RESULT DURING P7
     6225   01 02829    79F03800              DA,15    MEMORY
     6226   01 0282A    E33011DD              K        14,3,3,LOC        PSW1 IN
     6227   01 0282B    133011DF              K         1,3,3,LOC+2      PSW1 OUT
     6228   01 0282C    00698841 A            DATA     X'00698841'       R12 IN
     6229   01 0282D    00238817 A            DATA     X'00238817'       R12 OUT
     6230   01 0282E    93765872 A            DATA     X'93765872'       MEMORY+0 IN
     6231   01 0282F    93765872 A            DATA     X'93765872'       MEMORY+0 OUT
     6232   01 02830    52452246 A            DATA     X'52452246'       R13 IN
     6233   01 02831    20006420 A            DATA     X'20006420'       R13 OUT
     6234   01 02832    45866756 A            DATA     X'45866756'       MEMORY+1 IN
     6235   01 02833    45866756 A            DATA     X'45866756'       MEMORY+1 OUT
     6236   01 02834    90699255 A            DATA     X'90699255'       R14 IN
     6237   01 02835    65693182 A            DATA     X'65693182'       R14 OUT
     6238   01 02836    39243739 A            DATA     X'39243739'       MEMORY+2 IN
     6239   01 02837    39243739 A            DATA     X'39243739'       MEMORY+2 OUT
     6240   01 02838    1103567C A            DATA     X'1103567C'       R15 IN
     6241   01 02839    2842110D A            DATA     X'2842110D'       R15 OUT
     6242   01 0283A    45677D00 A            DATA     X'45677D00'       MEMORY+3 IN
     6243   01 0283B    45677D00 A            DATA     X'45677D00'       MEMORY+3 OUT
     6244                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO , R13 IN = ZERO ,
     6245                            * R14 IN = NONZERO , R15 IN = NONZERO  POSITIVE
     6246   01 0283C    12090044 A   DA09     MODULE
     6247   01 0283D    79703800              DA,7     MEMORY
     6248   01 0283E    033011DD              K            0,3,3,LOC
     6249   01 0283F    233011DF              K            2,3,3,LOC+2
     6250   01 02840    00000000 A            DATA     0
     6251   01 02841    00000000 A            DATA     0
     6252   01 02842    11111112 A            DATA     X'11111112'
     6253   01 02843    11111112 A            DATA     X'11111112'
     6254   01 02844    00000000 A            DATA     0
     6255   01 02845    00000000 A            DATA     0
     6256   01 02846    33333C00 A            DATA     X'33333C00'
     6257   01 02847    33333C00 A            DATA     X'33333C00'
     6258   01 02848    33333333 A            DATA     X'33333333'
     6259   01 02849    33444444 A            DATA     X'33444444'
     6260   01 0284A    00000000 A            DATA     0
     6261   01 0284B    00000000 A            DATA     0
     6262   01 0284C    1111111C A            DATA     X'1111111C'
     6263   01 0284D    2344444C A            DATA     X'2344444C'
     6264                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO , R13 IN ZERO ,
     6265                            * R14 IN = NONZERO , R15 IN ZERO  NEGATIVE
     6266   01 0284E    120A0045 A   DA10     MODULE
     6267   01 0284F    79803800              DA,8     MEMORY
     6268   01 02850    033011DD              K            0,3,3,LOC
     6269   01 02851    233011DF              K            2,3,3,LOC+2
     6270   01 02852    00000000 A            DATA     0
     6271   01 02853    00000000 A            DATA     0
     6272   01 02854    77777777 A            DATA     X'77777777'
     6273   01 02855    77777777 A            DATA     X'77777777'
     6274   01 02856    00000000 A            DATA     0
     6275   01 02857    00000000 A            DATA     0
     6276   01 02858    0000000C A            DATA     X'C'
     6277   01 02859    0000000C A            DATA     X'C'
     6278   01 0285A    22222222 A            DATA     X'22222222'
     6279   01 0285B    55555555 A            DATA     X'55555555'
     6280   01 0285C    00000000 A            DATA     0
     6281   01 0285D    00000000 A            DATA     0
     6282   01 0285E    0000000D A            DATA     X'D'
     6283   01 0285F    0000000C A            DATA     X'C'
     6284                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO , R13 IN = NONZERO ,
     6285                            * R14 IN = ZERO , R15 IN = NONZERO POSITIVE
     6286   01 02860    120B0046 A   DA11     MODULE
     6287   01 02861    79903800              DA,9     MEMORY
     6288   01 02862    033011DD              K            0,3,3,LOC
     6289   01 02863    233011DF              K            2,3,3,LOC+2
     6290   01 02864    00000000 A            DATA     0
     6291   01 02865    00000000 A            DATA     0
     6292   01 02866    36363636 A            DATA     X'36363636'
     6293   01 02867    36363636 A            DATA     X'36363636'
     6294   01 02868    12121212 A            DATA     X'12121212'
     6295   01 02869    12121248 A            DATA     X'12121248'
     6296   01 0286A    63636363 A            DATA     X'63636363'
     6297   01 0286B    63636363 A            DATA     X'63636363'
     6298   01 0286C    00000000 A            DATA     0
     6299   01 0286D    36363663 A            DATA     X'36363663'
     6300   01 0286E    3C000000 A            DATA     X'3C000000'
     6301   01 0286F    3C000000 A            DATA     X'3C000000'
     6302   01 02870    1111111C A            DATA     X'1111111C'
     6303   01 02871    7474744C A            DATA     X'7474744C'
     6304                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO ,R13 IN = NONZERO ,
     6305                            * R14 IN = NONZERO , R15 IN = ZERO NEGATIVE
     6306   01 02872    120C0047 A   DA12     MODULE
     6307   01 02873    79703800              DA,7     MEMORY
     6308   01 02874    033011DD              K            0,3,3,LOC
     6309   01 02875    133011DF              K            1,3,3,LOC+2
     6310   01 02876    00000000 A            DATA     0
     6311   01 02877    00000000 A            DATA     0
     6312   01 02878    40213200 A            DATA     X'40213200'
     6313   01 02879    40213200 A            DATA     X'40213200'
     6314   01 0287A    14362458 A            DATA     X'14362458'
     6315   01 0287B    14362458 A            DATA     X'14362458'
     6316   01 0287C    00000D00 A            DATA     X'D00'
     6317   01 0287D    00000D00 A            DATA     X'D00'
     6318   01 0287E    27394651 A            DATA     X'27394651'
     6319   01 0287F    27796783 A            DATA     X'27796783'
     6320   01 02880    00000000 A            DATA     0
     6321   01 02881    00000000 A            DATA     0
     6322   01 02882    0000000D A            DATA     X'D'
     6323   01 02883    0000000D A            DATA     X'D'
     6324                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO , R13 IN = NONZERO,
     6325                            * R14 IN = ZERO , R15 IN = ZERO  POSITIVE
     6326   01 02884    120D0048 A   DA13     MODULE
     6327   01 02885    79803800              DA,8     MEMORY
     6328   01 02886    033011DD              K            0,3,3,LOC
     6329   01 02887    233011DF              K            2,3,3,LOC+2
     6330   01 02888    00000000 A            DATA     0
     6331   01 02889    00000001 A            DATA     1
     6332   01 0288A    00000001 A            DATA     1
     6333   01 0288B    00000001 A            DATA     1
     6334   01 0288C    99999999 A            DATA     X'99999999'
     6335   01 0288D    00000000 A            DATA     0
     6336   01 0288E    0000000C A            DATA     X'C'
     6337   01 0288F    0000000C A            DATA     X'C'
     6338   01 02890    99999999 A            DATA     X'99999999'
     6339   01 02891    00000000 A            DATA     0
     6340   01 02892    00000000 A            DATA     0
     6341   01 02893    00000000 A            DATA     0
     6342   01 02894    0000000C A            DATA     X'C'
     6343   01 02895    0000000C A            DATA     X'C'
     6344                            * ZERO LOOKAHEAD TEST, R12 IN = NONZERO , R13 IN = ZERO ,
     6345                            * R14 IN = NONZERO , R15 IN = NONZERO POSITIVE
     6346   01 02896    120E0049 A   DA14     MODULE
     6347   01 02897    79903800              DA,9     MEMORY
     6348   01 02898    033011DD              K            0,3,3,LOC
     6349   01 02899    233011DF              K            2,3,3,LOC+2
     6350   01 0289A    13131313 A            DATA     X'13131313'
     6351   01 0289B    13131313 A            DATA     X'13131313'
     6352   01 0289C    00414141 A            DATA     X'414141'
     6353   01 0289D    00414141 A            DATA     X'414141'
     6354   01 0289E    00000000 A            DATA     0
     6355   01 0289F    00000000 A            DATA     0
     6356   01 028A0    41131313 A            DATA     X'41131313'
     6357   01 028A1    41131313 A            DATA     X'41131313'
     6358   01 028A2    52525252 A            DATA     X'52525252'
     6359   01 028A3    11111111 A            DATA     X'11111111'
     6360   01 028A4    1D000000 A            DATA     X'1D000000'
     6361   01 028A5    1D000000 A            DATA     X'1D000000'
     6362   01 028A6    6464646C A            DATA     X'6464646C'
     6363   01 028A7    5151515C A            DATA     X'5151515C'
     6364                            * ZERO LOOKAHEAD TEST, R12 IN = NONZERO , R13 IN ZERO ,
     6365                            * R14 IN = NONZERO , R15 IN = ZERO  NEGATIVE
     6366   01 028A8    120F004A A   DA15     MODULE
     6367   01 028A9    79703800              DA,7     MEMORY
     6368   01 028AA    033011DD              K            0,3,3,LOC
     6369   01 028AB    133011DF              K            1,3,3,LOC+2
     6370   01 028AC    62626262 A            DATA     X'62626262'
     6371   01 028AD    62626262 A            DATA     X'62626262'
     6372   01 028AE    12121200 A            DATA     X'12121200'
     6373   01 028AF    12121200 A            DATA     X'12121200'
     6374   01 028B0    00000000 A            DATA     0
     6375   01 028B1    00000000 A            DATA     0
     6376   01 028B2    00000D00 A            DATA     X'D00'
     6377   01 028B3    00000D00 A            DATA     X'D00'
     6378   01 028B4    54545454 A            DATA     X'54545454'
     6379   01 028B5    54666666 A            DATA     X'54666666'
     6380   01 028B6    00000000 A            DATA     0
     6381   01 028B7    00000000 A            DATA     0
     6382   01 028B8    0000000D A            DATA     X'D'
     6383   01 028B9    0000000D A            DATA     X'D'
     6384                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 0
     6385   01 028BA    1210004B A   DA16     MODULE
     6386   01 028BB    79103800              DA,1     MEMORY
     6387   01 028BC    033011DD              K            0,3,3,LOC
     6388   01 028BD    233011DF              K            2,3,3,LOC+2
     6389   01 028BE    12345678 A            DATA     X'12345678'
     6390   01 028BF    12345678 A            DATA     X'12345678'
     6391   01 028C0    5DEFABCD A            DATA     X'5DEFABCD'
     6392   01 028C1    5DEFABCD A            DATA     X'5DEFABCD'
     6393   01 028C2    23451234 A            DATA     X'23451234'
     6394   01 028C3    23451234 A            DATA     X'23451234'
     6395   01 028C4    00000000 A            DATA     0
     6396   01 028C5    00000000 A            DATA     0
     6397   01 028C6    11111111 A            DATA     X'11111111'
     6398   01 028C7    11111111 A            DATA     X'11111111'
     6399   01 028C8    00000000 A            DATA     0
     6400   01 028C9    00000000 A            DATA     0
     6401   01 028CA    5432102C A            DATA     X'5432102C'
     6402   01 028CB    5432097C A            DATA     X'5432097C'
     6403                            * BYTE ADDRESSING TEST , L = 2 , R3 INDEX = 0
     6404   01 028CC    1211004C A   DA17     MODULE
     6405   01 028CD    79203800              DA,2     MEMORY
     6406   01 028CE    033011DD              K            0,3,3,LOC
     6407   01 028CF    233011DF              K            2,3,3,LOC+2
     6408   01 028D0    00000000 A            DATA     0
     6409   01 028D1    00000000 A            DATA     0
     6410   01 028D2    123CDEFA A            DATA     X'123CDEFA'
     6411   01 028D3    123CDEFA A            DATA     X'123CDEFA'
     6412   01 028D4    00000000 A            DATA     0
     6413   01 028D5    00000000 A            DATA     0
     6414   01 028D6    00000000 A            DATA     0
     6415   01 028D7    00000000 A            DATA     0
     6416   01 028D8    00000000 A            DATA     0
     6417   01 028D9    00000000 A            DATA     0
     6418   01 028DA    00000000 A            DATA     0
     6419   01 028DB    00000000 A            DATA     0
     6420   01 028DC    0000321C A            DATA     X'321C'
     6421   01 028DD    0000444C A            DATA     X'444C'
     6422                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 0
     6423   01 028DE    1212004D A   DA18     MODULE
     6424   01 028DF    79303800              DA,3     MEMORY
     6425   01 028E0    033011DD              K            0,3,3,LOC
     6426   01 028E1    133011DF              K            1,3,3,LOC+2
     6427   01 028E2    11111111 A            DATA     X'11111111'
     6428   01 028E3    11111111 A            DATA     X'11111111'
     6429   01 028E4    13572BCD A            DATA     X'13572BCD'
     6430   01 028E5    13572BCD A            DATA     X'13572BCD'
     6431   01 028E6    00000002 A            DATA     2
     6432   01 028E7    00000002 A            DATA     2
     6433   01 028E8    00000001 A            DATA     1
     6434   01 028E9    00000001 A            DATA     1
     6435   01 028EA    00000005 A            DATA     5
     6436   01 028EB    00000005 A            DATA     5
     6437   01 028EC    00000003 A            DATA     3
     6438   01 028ED    00000003 A            DATA     3
     6439   01 028EE    0075316B A            DATA     X'75316B'
     6440   01 028EF    0088888D A            DATA     X'88888D'
     6441                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 0
     6442   01 028F0    1213004E A   DA19     MODULE
     6443   01 028F1    79403800              DA,4     MEMORY
     6444   01 028F2    033011DD              K            0,3,3,LOC
     6445   01 028F3    233011DF              K            2,3,3,LOC+2
     6446   01 028F4    00000001 A            DATA     1
     6447   01 028F5    00000001 A            DATA     1
     6448   01 028F6    9345127A A            DATA     X'9345127A'
     6449   01 028F7    9345127A A            DATA     X'9345127A'
     6450   01 028F8    00000002 A            DATA     2
     6451   01 028F9    00000002 A            DATA     2
     6452   01 028FA    00000000 A            DATA     0
     6453   01 028FB    00000000 A            DATA     0
     6454   01 028FC    00000000 A            DATA     0
     6455   01 028FD    00000001 A            DATA     1
     6456   01 028FE    00000000 A            DATA     0
     6457   01 028FF    00000000 A            DATA     0
     6458   01 02900    2000000C A            DATA     X'2000000C'
     6459   01 02901    1345127C A            DATA     X'1345127C'
     6460                            * BYTE ADDRESSING TEST , L = 5 , R3 INDEX = 0
     6461   01 02902    1214004F A   DA20     MODULE
     6462   01 02903    79503800              DA,5     MEMORY
     6463   01 02904    033011DD              K            0,3,3,LOC
     6464   01 02905    133011DF              K            1,3,3,LOC+2
     6465   01 02906    00000000 A            DATA     0
     6466   01 02907    00000000 A            DATA     0
     6467   01 02908    10973607 A            DATA     X'10973607'
     6468   01 02909    10973607 A            DATA     X'10973607'
     6469   01 0290A    00000000 A            DATA     0
     6470   01 0290B    00000000 A            DATA     0
     6471   01 0290C    3DEFABCD A            DATA     X'3DEFABCD'
     6472   01 0290D    3DEFABCD A            DATA     X'3DEFABCD'
     6473   01 0290E    00000000 A            DATA     0
     6474   01 0290F    00000010 A            DATA     X'10'
     6475   01 02910    00000000 A            DATA     0
     6476   01 02911    00000000 A            DATA     0
     6477   01 02912    0123210D A            DATA     X'123210D'
     6478   01 02913    9859283D A            DATA     X'9859283D'
     6479                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 1
     6480   01 02914    12150050 A   DA21     MODULE
     6481   01 02915    79123800              DA,1     MEMORY,1
     6482   01 02916    033011DD              K            0,3,3,LOC
     6483   01 02917    233011DF              K            2,3,3,LOC+2
     6484   01 02918    00000000 A            DATA     0
     6485   01 02919    00000000 A            DATA     0
     6486   01 0291A    357ABCDE A            DATA     X'357ABCDE'
     6487   01 0291B    357ABCDE A            DATA     X'357ABCDE'
     6488   01 0291C    00000000 A            DATA     0
     6489   01 0291D    00000000 A            DATA     0
     6490   01 0291E    00000000 A            DATA     0
     6491   01 0291F    00000000 A            DATA     0
     6492   01 02920    00000000 A            DATA     0
     6493   01 02921    00000000 A            DATA     0
     6494   01 02922    00000000 A            DATA     0
     6495   01 02923    00000000 A            DATA     0
     6496   01 02924    1111118C A            DATA     X'1111118C'
     6497   01 02925    1111125C A            DATA     X'1111125C'
     6498                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 2
     6499   01 02926    12160051 A   DA22     MODULE
     6500   01 02927    79343800              DA,3     MEMORY,2
     6501   01 02928    033011DD              K            0,3,3,LOC
     6502   01 02929    233011DF              K            2,3,3,LOC+2
     6503   01 0292A    00000000 A            DATA     0
     6504   01 0292B    00000000 A            DATA     0
     6505   01 0292C    13572468 A            DATA     X'13572468'
     6506   01 0292D    13572468 A            DATA     X'13572468'
     6507   01 0292E    00000000 A            DATA     0
     6508   01 0292F    00000000 A            DATA     0
     6509   01 02930    2DEFABCD A            DATA     X'2DEFABCD'
     6510   01 02931    2DEFABCD A            DATA     X'2DEFABCD'
     6511   01 02932    00000013 A            DATA     X'13'
     6512   01 02933    00000013 A            DATA     X'13'
     6513   01 02934    00000000 A            DATA     0
     6514   01 02935    00000000 A            DATA     0
     6515   01 02936    0024682C A            DATA     X'24682C'
     6516   01 02937    0000000C A            DATA     X'C'
     6517                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 3
     6518   01 02938    12170052 A   DA23     MODULE
     6519   01 02939    79163800              DA,1     MEMORY,3
     6520   01 0293A    033011DD              K            0,3,3,LOC
     6521   01 0293B    133011DF              K            1,3,3,LOC+2
     6522   01 0293C    00000000 A            DATA     0
     6523   01 0293D    00000000 A            DATA     0
     6524   01 0293E    1536249D A            DATA     X'1536249D'
     6525   01 0293F    1536249D A            DATA     X'1536249D'
     6526   01 02940    00000000 A            DATA     0
     6527   01 02941    00000000 A            DATA     0
     6528   01 02942    00000000 A            DATA     0
     6529   01 02943    00000000 A            DATA     0
     6530   01 02944    00000000 A            DATA     0
     6531   01 02945    00000000 A            DATA     0
     6532   01 02946    00000000 A            DATA     0
     6533   01 02947    00000000 A            DATA     0
     6534   01 02948    1234565D A            DATA     X'1234565D'
     6535   01 02949    1234574D A            DATA     X'1234574D'
     6536                            * BYTE ADDRESSING TEST , L = 5 , R3 INDEX = 3
     6537   01 0294A    12180053 A   DA24     MODULE
     6538   01 0294B    79563800              DA,5     MEMORY,3
     6539   01 0294C    033011DD              K            0,3,3,LOC
     6540   01 0294D    233011DF              K            2,3,3,LOC+2
     6541   01 0294E    00000000 A            DATA     0
     6542   01 0294F    00000000 A            DATA     0
     6543   01 02950    22222246 A            DATA     X'22222246'
     6544   01 02951    22222246 A            DATA     X'22222246'
     6545   01 02952    00000000 A            DATA     0
     6546   01 02953    00000000 A            DATA     0
     6547   01 02954    1203541A A            DATA     X'1203541A'
     6548   01 02955    1203541A A            DATA     X'1203541A'
     6549   01 02956    00000000 A            DATA     0
     6550   01 02957    00000046 A            DATA     X'46'
     6551   01 02958    00000000 A            DATA     0
     6552   01 02959    00000000 A            DATA     0
     6553   01 0295A    1111111C A            DATA     X'1111111C'
     6554   01 0295B    2314652C A            DATA     X'2314652C'
     6555   01 0295C    12010054 A   DS00     MODULE   X'78'
     6556   01 0295D    78203800              DS,2     MEMORY
     6557   01 0295E    000011DD              K        0,0,0,LOC
     6558   01 0295F    200011DF              K        2,0,0,LOC+2
     6559   01 02960    10000000 A            DATA     X'10000000'
     6560   01 02961    09999999 A            DATA     X'09999999'
     6561   01 02962    001C0000 A            DATA     X'001C0000'
     6562   01 02963    001C0000 A            DATA     X'001C0000'
     6563   01 02964    00000000 A            DATA     0
     6564   01 02965    99999999 A            DATA     X'99999999'
     6565   01 02966    00000000 A            DATA     0
     6566   01 02967    00000000 A            DATA     0
     6567   01 02968    00000000 A            DATA     0
     6568   01 02969    99999999 A            DATA     X'99999999'
     6569   01 0296A    00000000 A            DATA     0
     6570   01 0296B    00000000 A            DATA     0
     6571   01 0296C    0000000C A            DATA     12
     6572   01 0296D    9999999C A            DATA     X'9999999C'
     6573   01 0296E    14020055 A   DS01     MODULE                     DS - CHECK ADDER-SUBTRACTER
     6574   01 0296F    78003800              DS,0     MEMORY
     6575   01 02970    033011DD              K        0,3,3,LOC
     6576   01 02971    233011DF              K        2,3,3,LOC+2
     6577   01 02972    48728996 A            DATA     X'48728996'
     6578   01 02973    20638097 A            DATA     X'20638097'
     6579   01 02974    28090898 A            DATA     X'28090898'
     6580   01 02975    28090898 A            DATA     X'28090898'
     6581   01 02976    33248868 A            DATA     X'33248868'
     6582   01 02977    42810059 A            DATA     X'42810059'
     6583   01 02978    90438808 A            DATA     X'90438808'
     6584   01 02979    90438808 A            DATA     X'90438808'
     6585   01 0297A    98201374 A            DATA     X'98201374'
     6586   01 0297B    98320491 A            DATA     X'98320491'
     6587   01 0297C    99880883 A            DATA     X'99880883'
     6588   01 0297D    99880883 A            DATA     X'99880883'
     6589   01 0297E    4489280C A            DATA     X'4489280C'
     6590   01 0297F    3366810C A            DATA     X'3366810C'
     6591   01 02980    1122470C A            DATA     X'1122470C'
     6592   01 02981    1122470C A            DATA     X'1122470C'
     6593   01 02982    14030056 A   DS02     MODULE                     DS - CHECK ADDER-SUBTRACTER
     6594   01 02983    78003800              DS,0     MEMORY
     6595   01 02984    033011DD              K        0,3,3,LOC
     6596   01 02985    133011DF              K        1,3,3,LOC+2
     6597   01 02986    53292101 A            DATA     X'53292101'
     6598   01 02987    28306050 A            DATA     X'28306050'
     6599   01 02988    24986050 A            DATA     X'24986050'
     6600   01 02989    24986050 A            DATA     X'24986050'
     6601   01 0298A    23550351 A            DATA     X'23550351'
     6602   01 0298B    48886292 A            DATA     X'48886292'
     6603   01 0298C    74664058 A            DATA     X'74664058'
     6604   01 0298D    74664058 A            DATA     X'74664058'
     6605   01 0298E    13111863 A            DATA     X'13111863'
     6606   01 0298F    53621971 A            DATA     X'53621971'
     6607   01 02990    59489891 A            DATA     X'59489891'
     6608   01 02991    59489891 A            DATA     X'59489891'
     6609   01 02992    1247160D A            DATA     X'1247160D'
     6610   01 02993    2516200D A            DATA     X'2516200D'
     6611   01 02994    8730960D A            DATA     X'8730960D'
     6612   01 02995    8730960D A            DATA     X'8730960D'
     6613   01 02996    14040057 A   DS03     MODULE                     DS - CHECK ADDER-SUBTRACTER
     6614   01 02997    78C03800              DS,12    MEMORY
     6615   01 02998    033011DD              K        0,3,3,LOC
     6616   01 02999    233011DF              K        2,3,3,LOC+2
     6617   01 0299A    00000000 A            DATA     X'0'
     6618   01 0299B    00000000 A            DATA     X'0'
     6619   01 0299C    02706487 A            DATA     X'02706487'
     6620   01 0299D    02706487 A            DATA     X'02706487'
     6621   01 0299E    25655136 A            DATA     X'25655136'
     6622   01 0299F    22948649 A            DATA     X'22948649'
     6623   01 029A0    44533828 A            DATA     X'44533828'
     6624   01 029A1    44533828 A            DATA     X'44533828'
     6625   01 029A2    89166838 A            DATA     X'89166838'
     6626   01 029A3    44633010 A            DATA     X'44633010'
     6627   01 029A4    1000490C A            DATA     X'1000490C'
     6628   01 029A5    1000490C A            DATA     X'1000490C'
     6629   01 029A6    4051940C A            DATA     X'4051940C'
     6630   01 029A7    3051450C A            DATA     X'3051450C'
     6631   01 029A8    00000000 A            DATA     X'0'
     6632   01 029A9    00000000 A            DATA     X'0'
     6633   01 029AA    14050058 A   DS04     MODULE                     DS - SUBTRACT ZEROS
     6634   01 029AB    78003800              DS,0     MEMORY
     6635   01 029AC    F33011DD              K        15,3,3,LOC
     6636   01 029AD    033011DF              K        0,3,3,LOC+2
     6637   01 029AE    00000000 A            DATA     X'0'
     6638   01 029AF    00000000 A            DATA     X'0'
     6639   01 029B0    00000000 A            DATA     X'0'
     6640   01 029B1    00000000 A            DATA     X'0'
     6641   01 029B2    00000000 A            DATA     X'0'
     6642   01 029B3    00000000 A            DATA     X'0'
     6643   01 029B4    00000000 A            DATA     X'0'
     6644   01 029B5    00000000 A            DATA     X'0'
     6645   01 029B6    00000000 A            DATA     X'0'
     6646   01 029B7    00000000 A            DATA     X'0'
     6647   01 029B8    00000000 A            DATA     X'0'
     6648   01 029B9    00000000 A            DATA     X'0'
     6649   01 029BA    0000000C A            DATA     X'C'
     6650   01 029BB    0000000C A            DATA     X'C'
     6651   01 029BC    0000000C A            DATA     X'C'
     6652   01 029BD    0000000C A            DATA     X'C'
     6653   01 029BE    14060059 A   DS05     MODULE                     DS - OVERFLOW - TRAP
     6654   01 029BF    78003800              DS,0     MEMORY
     6655   01 029C0    033011E2              K        0,3,3,LOC+5
     6656   01 029C1    4330101B              K        4,3,3,EXP:TRAP+5
     6657   01 029C2    50000000 A            DATA     X'50000000'
     6658   01 029C3    50000000 A            DATA     X'50000000'
     6659   01 029C4    50000000 A            DATA     X'50000000'
     6660   01 029C5    50000000 A            DATA     X'50000000'
     6661   01 029C6    00000000 A            DATA     X'0'
     6662   01 029C7    00000000 A            DATA     X'0'
     6663   01 029C8    00000000 A            DATA     X'0'
     6664   01 029C9    00000000 A            DATA     X'0'
     6665   01 029CA    00000000 A            DATA     X'0'
     6666   01 029CB    00000000 A            DATA     X'0'
     6667   01 029CC    00000000 A            DATA     X'0'
     6668   01 029CD    00000000 A            DATA     X'0'
     6669   01 029CE    0000000C A            DATA     X'C'
     6670   01 029CF    0000000C A            DATA     X'C'
     6671   01 029D0    0000000D A            DATA     X'D'
     6672   01 029D1    0000000D A            DATA     X'D'
     6673   01 029D2    1407005A A   DS06     MODULE                     DS - OVERFLOW - NO TRAP
     6674   01 029D3    78003800              DS,0     MEMORY
     6675   01 029D4    031011DD              K        0,3,1,LOC
     6676   01 029D5    431011DF              K        4,3,1,LOC+2
     6677   01 029D6    50000000 A            DATA     X'50000000'
     6678   01 029D7    50000000 A            DATA     X'50000000'
     6679   01 029D8    50000000 A            DATA     X'50000000'
     6680   01 029D9    50000000 A            DATA     X'50000000'
     6681   01 029DA    00000000 A            DATA     X'0'
     6682   01 029DB    00000000 A            DATA     X'0'
     6683   01 029DC    00000000 A            DATA     X'0'
     6684   01 029DD    00000000 A            DATA     X'0'
     6685   01 029DE    00000000 A            DATA     X'0'
     6686   01 029DF    00000000 A            DATA     X'0'
     6687   01 029E0    00000000 A            DATA     X'0'
     6688   01 029E1    00000000 A            DATA     X'0'
     6689   01 029E2    0000000C A            DATA     X'C'
     6690   01 029E3    0000000C A            DATA     X'C'
     6691   01 029E4    0000000D A            DATA     X'D'
     6692   01 029E5    0000000D A            DATA     X'D'
     6693   01 029E6    1408005B A   DS07     MODULE                     DS - MAX DIFF
     6694   01 029E7    78003800              DS,0     MEMORY
     6695   01 029E8    033011DD              K        0,3,3,LOC
     6696   01 029E9    233011DF              K        2,3,3,LOC+2
     6697   01 029EA    55555555 A            DATA     X'55555555'
     6698   01 029EB    99999999 A            DATA     X'99999999'
     6699   01 029EC    44444444 A            DATA     X'44444444'
     6700   01 029ED    44444444 A            DATA     X'44444444'
     6701   01 029EE    55555555 A            DATA     X'55555555'
     6702   01 029EF    99999999 A            DATA     X'99999999'
     6703   01 029F0    44444444 A            DATA     X'44444444'
     6704   01 029F1    44444444 A            DATA     X'44444444'
     6705   01 029F2    55555555 A            DATA     X'55555555'
     6706   01 029F3    99999999 A            DATA     X'99999999'
     6707   01 029F4    44444444 A            DATA     X'44444444'
     6708   01 029F5    44444444 A            DATA     X'44444444'
     6709   01 029F6    5555555C A            DATA     X'5555555C'
     6710   01 029F7    9999999C A            DATA     X'9999999C'
     6711   01 029F8    4444444D A            DATA     X'4444444D'
     6712   01 029F9    4444444D A            DATA     X'4444444D'
     6713   01 029FA    1409005C A   DS08     MODULE                     DS-COMPLEMENT RESULT DURING P7
     6714   01 029FB    78E03800              DS,14    MEMORY
     6715   01 029FC    E33011DD              K        14,3,3,LOC        PSW1 IN
     6716   01 029FD    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     6717   01 029FE    00008275 A            DATA     X'00008275'       R12 IN
     6718   01 029FF    00000431 A            DATA     X'00000431'       R12 OUT
     6719   01 02A00    87067047 A            DATA     X'87067047'       MEMORY+0 IN
     6720   01 02A01    87067047 A            DATA     X'87067047'       MEMORY+0 OUT
     6721   01 02A02    27735988 A            DATA     X'27735988'       R13 IN
     6722   01 02A03    42735135 A            DATA     X'42735135'       R13 OUT
     6723   01 02A04    11245380 A            DATA     X'11245380'       MEMORY+1 IN
     6724   01 02A05    11245380 A            DATA     X'11245380'       MEMORY+1 OUT
     6725   01 02A06    70360640 A            DATA     X'70360640'       R14 IN
     6726   01 02A07    83444352 A            DATA     X'83444352'       R14 OUT
     6727   01 02A08    49926731 A            DATA     X'49926731'       MEMORY+2 IN
     6728   01 02A09    49926731 A            DATA     X'49926731'       MEMORY+2 OUT
     6729   01 02A0A    3689650D A            DATA     X'3689650D'       R15 IN
     6730   01 02A0B    3042173C A            DATA     X'3042173C'       R15 OUT
     6731   01 02A0C    823D0000 A            DATA     X'823D0000'       MEMORY+3 IN
     6732   01 02A0D    823D0000 A            DATA     X'823D0000'       MEMORY+3 OUT
     6733                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO , R13 IN = ZERO
     6734                            *R14 IN = NONZERO , R15 IN = NONZERO  POSITIVE
     6735   01 02A0E    120A005D A   DS09     MODULE
     6736   01 02A0F    78803800              DS,8     MEMORY
     6737   01 02A10    033011DD              K            0,3,3,LOC
     6738   01 02A11    133011DF              K            1,3,3,LOC+2
     6739   01 02A12    00000000 A            DATA     0
     6740   01 02A13    00000000 A            DATA     0
     6741   01 02A14    67896789 A            DATA     X'67896789'
     6742   01 02A15    67896789 A            DATA     X'67896789'
     6743   01 02A16    00000000 A            DATA     0
     6744   01 02A17    00000000 A            DATA     0
     6745   01 02A18    8765876C A            DATA     X'8765876C'
     6746   01 02A19    8765876C A            DATA     X'8765876C'
     6747   01 02A1A    12341234 A            DATA     X'12341234'
     6748   01 02A1B    55555555 A            DATA     X'55555555'
     6749   01 02A1C    00000000 A            DATA     0
     6750   01 02A1D    00000000 A            DATA     0
     6751   01 02A1E    3210321C A            DATA     X'3210321C'
     6752   01 02A1F    5555555D A            DATA     X'5555555D'
     6753                            * ZERO LOOKAHEAD TEST, R12 IN = ZERO ,R13 IN = ZERO ,
     6754                            * R14 IN = NONZERO , R15 IN = ZERO POSITIVE
     6755   01 02A20    120B005E A   DS10     MODULE
     6756   01 02A21    78903800              DS,9     MEMORY
     6757   01 02A22    033011DD              K            0,3,3,LOC
     6758   01 02A23    233011DF              K            2,3,3,LOC+2
     6759   01 02A24    00000000 A            DATA     0
     6760   01 02A25    00000000 A            DATA     0
     6761   01 02A26    85444444 A            DATA     X'85444444'
     6762   01 02A27    85444444 A            DATA     X'85444444'
     6763   01 02A28    00000000 A            DATA     0
     6764   01 02A29    00000085 A            DATA     X'85'
     6765   01 02A2A    44000000 A            DATA     X'44000000'
     6766   01 02A2B    44000000 A            DATA     X'44000000'
     6767   01 02A2C    33333333 A            DATA     X'33333333'
     6768   01 02A2D    77777777 A            DATA     X'77777777'
     6769   01 02A2E    0D000000 A            DATA     X'0D000000'
     6770   01 02A2F    0D000000 A            DATA     X'0D000000'
     6771   01 02A30    0000000C A            DATA     X'C'
     6772   01 02A31    0000000C A            DATA     X'C'
     6773                            * ZERO LOOKAHEAD TEST , R12 IN = ZERO , R13 IN NONZERO ,
     6774                            * R14 IN = ZERO , R15 IN = NONZERO  NEGATIVE
     6775   01 02A32    120C005F A   DS11     MODULE
     6776   01 02A33    78703800              DS,7     MEMORY
     6777   01 02A34    033011DD              K            0,3,3,LOC
     6778   01 02A35    133011DF              K            1,3,3,LOC+2
     6779   01 02A36    00000000 A            DATA     0
     6780   01 02A37    00000000 A            DATA     0
     6781   01 02A38    45678912 A            DATA     X'45678912'
     6782   01 02A39    45678912 A            DATA     X'45678912'
     6783   01 02A3A    15362447 A            DATA     X'15362447'
     6784   01 02A3B    15362447 A            DATA     X'15362447'
     6785   01 02A3C    34567C00 A            DATA     X'34567C00'
     6786   01 02A3D    34567C00 A            DATA     X'34567C00'
     6787   01 02A3E    00000000 A            DATA     0
     6788   01 02A3F    00456789 A            DATA     X'456789'
     6789   01 02A40    00000000 A            DATA     0
     6790   01 02A41    00000000 A            DATA     0
     6791   01 02A42    7654321D A            DATA     X'7654321D'
     6792   01 02A43    8888888D A            DATA     X'8888888D'
     6793                            * ZERO LOOKAHEAD TEST , R12 IN = ZERO , R13 IN = NONZERO ,
     6794                            * R14 IN = NONZERO , R15 IN = ZERO  POSITIVE
     6795   01 02A44    120D0060 A   DS12     MODULE
     6796   01 02A45    78803800              DS,8     MEMORY
     6797   01 02A46    033011DD              K            0,3,3,LOC
     6798   01 02A47    233011DF              K            2,3,3,LOC+2
     6799   01 02A48    00000000 A            DATA     0
     6800   01 02A49    00000000 A            DATA     0
     6801   01 02A4A    36042571 A            DATA     X'36042571'
     6802   01 02A4B    36042571 A            DATA     X'36042571'
     6803   01 02A4C    71826425 A            DATA     X'71826425'
     6804   01 02A4D    71826425 A            DATA     X'71826425'
     6805   01 02A4E    0000000C A            DATA     X'C'
     6806   01 02A4F    0000000C A            DATA     X'C'
     6807   01 02A50    52846317 A            DATA     X'52846317'
     6808   01 02A51    16803746 A            DATA     X'16803746'
     6809   01 02A52    00000000 A            DATA     0
     6810   01 02A53    00000000 A            DATA     0
     6811   01 02A54    0000000C A            DATA     X'C'
     6812   01 02A55    0000000C A            DATA     X'C'
     6813                            * ZERO LOOKAHEAD TEST , R12 IN = ZERO , R13 IN = NONZERO ,
     6814                            * R14 IN = ZERO , R15 IN = ZERO  NEGATIVE
     6815   01 02A56    120E0061 A   DS13     MODULE
     6816   01 02A57    78903800              DS,9     MEMORY
     6817   01 02A58    033011DD              K            0,3,3,LOC
     6818   01 02A59    133011DF              K            1,3,3,LOC+2
     6819   01 02A5A    00000000 A            DATA     0
     6820   01 02A5B    00000000 A            DATA     0
     6821   01 02A5C    88112233 A            DATA     X'88112233'
     6822   01 02A5D    88112233 A            DATA     X'88112233'
     6823   01 02A5E    77553311 A            DATA     X'77553311'
     6824   01 02A5F    77553399 A            DATA     X'77553399'
     6825   01 02A60    44000000 A            DATA     X'44000000'
     6826   01 02A61    44000000 A            DATA     X'44000000'
     6827   01 02A62    00000000 A            DATA     0
     6828   01 02A63    11223344 A            DATA     X'11223344'
     6829   01 02A64    0C000000 A            DATA     X'0C000000'
     6830   01 02A65    0C000000 A            DATA     X'0C000000'
     6831   01 02A66    0000000D A            DATA     X'D'
     6832   01 02A67    0000000D A            DATA     X'D'
     6833                            * ZERO LOOKAHEAD TEST , R12 IN = NONZERO , R13 IN = ZERO ,
     6834                            * R14 IN = NONZERO , R15 IN = NONZERO  NEGATIVE
     6835   01 02A68    140F0062 A   DS14     MODULE
     6836   01 02A69    78703800              DS,7     MEMORY
     6837   01 02A6A    033011DD              K            0,3,3,LOC
     6838   01 02A6B    133011DF              K            1,3,3,LOC+2
     6839   01 02A6C    12345678 A            DATA     X'12345678'
     6840   01 02A6D    12345678 A            DATA     X'12345678'
     6841   01 02A6E    03254721 A            DATA     X'03254721'
     6842   01 02A6F    03254721 A            DATA     X'03254721'
     6843   01 02A70    00000000 A            DATA     0
     6844   01 02A71    00000000 A            DATA     0
     6845   01 02A72    00321D00 A            DATA     X'321D00'
     6846   01 02A73    00321D00 A            DATA     X'321D00'
     6847   01 02A74    02143658 A            DATA     X'02143658'
     6848   01 02A75    02111111 A            DATA     X'2111111'
     6849   01 02A76    00000000 A            DATA     0
     6850   01 02A77    00000000 A            DATA     0
     6851   01 02A78    3210432D A            DATA     X'3210432D'
     6852   01 02A79    1110111D A            DATA     X'1110111D'
     6853   01 02A7A    3210433D A            DATA     X'3210433D'
     6854   01 02A7B    3210433D A            DATA     X'3210433D'
     6855                            * ZERO LOOKAHEAD TEST , R12 IN = NONZERO , R13 IN = ZERO ,
     6856                            * R14 IN = NONZERO , R15 IN = ZERO  POSITIVE
     6857   01 02A7C    12100063 A   DS15     MODULE
     6858   01 02A7D    78803800              DS,8     MEMORY
     6859   01 02A7E    033011DD              K            0,3,3,LOC
     6860   01 02A7F    233011DF              K            2,3,3,LOC+2
     6861   01 02A80    33333333 A            DATA     X'33333333'
     6862   01 02A81    33333333 A            DATA     X'33333333'
     6863   01 02A82    08060402 A            DATA     X'08060402'
     6864   01 02A83    08060402 A            DATA     X'08060402'
     6865   01 02A84    00000000 A            DATA     0
     6866   01 02A85    00000000 A            DATA     0
     6867   01 02A86    0000000C A            DATA     X'C'
     6868   01 02A87    0000000C A            DATA     X'C'
     6869   01 02A88    09070503 A            DATA     X'09070503'
     6870   01 02A89    01010101 A            DATA     X'01010101'
     6871   01 02A8A    00000000 A            DATA     0
     6872   01 02A8B    00000000 A            DATA     0
     6873   01 02A8C    0000000C A            DATA     X'C'
     6874   01 02A8D    0000000C A            DATA     X'C'
     6875   01 02A8E    12110064 A   DS16     MODULE
     6876   01 02A8F    78103800              DS,1     MEMORY
     6877   01 02A90    020011DD              K        0,2,0,LOC
     6878   01 02A91    220011DF              K        2,2,0,LOC+2
     6879   01 02A92    00000000 A            DATA     0
     6880   01 02A93    00000000 A            DATA     0
     6881   01 02A94    3C000000 A            DATA     X'3C000000'
     6882   01 02A95    3C000000 A            DATA     X'3C000000'
     6883   01 02A96    00000000 A            DATA     0
     6884   01 02A97    00000000 A            DATA     0
     6885   01 02A98    00000000 A            DATA     0
     6886   01 02A99    00000000 A            DATA     0
     6887   01 02A9A    10000000 A            DATA     X'10000000'
     6888   01 02A9B    09999999 A            DATA     X'09999999'
     6889   01 02A9C    00000000 A            DATA     0
     6890   01 02A9D    00000000 A            DATA     0
     6891   01 02A9E    0000001C A            DATA     X'1C'
     6892   01 02A9F    9999998C A            DATA     X'9999998C'
     6893   01 02AA0    12010065 A   DSA01    MODULE   X'7C'             DSA - SHIFT ALT BITS LEFT 1
     6894   01 02AA1    7C000001 A            DSA      X'1'
     6895   01 02AA2    033011DD              K        0,3,3,LOC
     6896   01 02AA3    233011DF              K        2,3,3,LOC+2
     6897   01 02AA4    06969696 A            DATA     X'06969696'
     6898   01 02AA5    69696969 A            DATA     X'69696969'
     6899   01 02AA6    00000000 A            DATA     X'0'
     6900   01 02AA7    00000000 A            DATA     X'0'
     6901   01 02AA8    96969696 A            DATA     X'96969696'
     6902   01 02AA9    69696966 A            DATA     X'69696966'
     6903   01 02AAA    00000000 A            DATA     X'0'
     6904   01 02AAB    00000000 A            DATA     X'0'
     6905   01 02AAC    69696969 A            DATA     X'69696969'
     6906   01 02AAD    96969696 A            DATA     X'96969696'
     6907   01 02AAE    00000000 A            DATA     X'0'
     6908   01 02AAF    00000000 A            DATA     X'0'
     6909   01 02AB0    6969696C A            DATA     X'6969696C'
     6910   01 02AB1    9696960C A            DATA     X'9696960C'
     6911   01 02AB2    12020066 A   DSA02    MODULE                     DSA - SHIFT ALT BITS RIGHT 1
     6912   01 02AB3    7C01FFFF A            DSA      X'1FFFF'
     6913   01 02AB4    033011DD              K        0,3,3,LOC
     6914   01 02AB5    133011DF              K        1,3,3,LOC+2
     6915   01 02AB6    96969696 A            DATA     X'96969696'
     6916   01 02AB7    09696969 A            DATA     X'09696969'
     6917   01 02AB8    00000000 A            DATA     X'0'
     6918   01 02AB9    00000000 A            DATA     X'0'
     6919   01 02ABA    96969696 A            DATA     X'96969696'
     6920   01 02ABB    69696969 A            DATA     X'69696969'
     6921   01 02ABC    00000000 A            DATA     X'0'
     6922   01 02ABD    00000000 A            DATA     X'0'
     6923   01 02ABE    69696969 A            DATA     X'69696969'
     6924   01 02ABF    66969696 A            DATA     X'66969696'
     6925   01 02AC0    00000000 A            DATA     X'0'
     6926   01 02AC1    00000000 A            DATA     X'0'
     6927   01 02AC2    6969696D A            DATA     X'6969696D'
     6928   01 02AC3    9696969D A            DATA     X'9696969D'
     6929   01 02AC4    12030067 A   DSA03    MODULE                     DSA - SHIFT > 31
     6930   01 02AC5    7C000020 A            DSA      X'20'
     6931   01 02AC6    033011DD              K        0,3,3,LOC
     6932   01 02AC7    433011DF              K        4,3,3,LOC+2
     6933   01 02AC8    77777777 A            DATA     X'77777777'
     6934   01 02AC9    00000000 A            DATA     X'0'
     6935   01 02ACA    00000000 A            DATA     X'0'
     6936   01 02ACB    00000000 A            DATA     X'0'
     6937   01 02ACC    77777777 A            DATA     X'77777777'
     6938   01 02ACD    00000000 A            DATA     X'0'
     6939   01 02ACE    00000000 A            DATA     X'0'
     6940   01 02ACF    00000000 A            DATA     X'0'
     6941   01 02AD0    77777777 A            DATA     X'77777777'
     6942   01 02AD1    00000000 A            DATA     X'0'
     6943   01 02AD2    00000000 A            DATA     X'0'
     6944   01 02AD3    00000000 A            DATA     X'0'
     6945   01 02AD4    7777777C A            DATA     X'7777777C'
     6946   01 02AD5    0000000C A            DATA     X'C'
     6947   01 02AD6    12040068 A   DSA04    MODULE                     DSA - EVEN SHIFT LEFT
     6948   01 02AD7    7C000002 A            DSA      X'2'
     6949   01 02AD8    033011DD              K        0,3,3,LOC
     6950   01 02AD9    533011DF              K        5,3,3,LOC+2
     6951   01 02ADA    70707070 A            DATA     X'70707070'
     6952   01 02ADB    70707070 A            DATA     X'70707070'
     6953   01 02ADC    00000000 A            DATA     X'0'
     6954   01 02ADD    00000000 A            DATA     X'0'
     6955   01 02ADE    70707070 A            DATA     X'70707070'
     6956   01 02ADF    70707070 A            DATA     X'70707070'
     6957   01 02AE0    00000000 A            DATA     X'0'
     6958   01 02AE1    00000000 A            DATA     X'0'
     6959   01 02AE2    70707070 A            DATA     X'70707070'
     6960   01 02AE3    70707070 A            DATA     X'70707070'
     6961   01 02AE4    00000000 A            DATA     X'0'
     6962   01 02AE5    00000000 A            DATA     X'0'
     6963   01 02AE6    7070707D A            DATA     X'7070707D'
     6964   01 02AE7    7070700D A            DATA     X'7070700D'
     6965   01 02AE8    12050069 A   DSA05    MODULE                     DSA - EVEN SHIFT RIGHT
     6966   01 02AE9    7C01FFFE A            DSA      X'1FFFE'
     6967   01 02AEA    033011DD              K        0,3,3,LOC
     6968   01 02AEB    233011DF              K        2,3,3,LOC+2
     6969   01 02AEC    07070707 A            DATA     X'07070707'
     6970   01 02AED    00070707 A            DATA     X'00070707'
     6971   01 02AEE    00000000 A            DATA     X'0'
     6972   01 02AEF    00000000 A            DATA     X'0'
     6973   01 02AF0    07070707 A            DATA     X'07070707'
     6974   01 02AF1    07070707 A            DATA     X'07070707'
     6975   01 02AF2    00000000 A            DATA     X'0'
     6976   01 02AF3    00000000 A            DATA     X'0'
     6977   01 02AF4    07070707 A            DATA     X'07070707'
     6978   01 02AF5    07070707 A            DATA     X'07070707'
     6979   01 02AF6    00000000 A            DATA     X'0'
     6980   01 02AF7    00000000 A            DATA     X'0'
     6981   01 02AF8    0707070C A            DATA     X'0707070C'
     6982   01 02AF9    0707070C A            DATA     X'0707070C'
     6983   01 02AFA    1206006A A   DSA06    MODULE                     DSA - LEFT SHIFT 3
     6984   01 02AFB    7C000003 A            DSA      X'3'
     6985   01 02AFC    033011DD              K        0,3,3,LOC
     6986   01 02AFD    233011DF              K        2,3,3,LOC+2
     6987   01 02AFE    00069696 A            DATA     X'00069696'
     6988   01 02AFF    69696969 A            DATA     X'69696969'
     6989   01 02B00    00000000 A            DATA     X'0'
     6990   01 02B01    00000000 A            DATA     X'0'
     6991   01 02B02    96969696 A            DATA     X'96969696'
     6992   01 02B03    69696969 A            DATA     X'69696969'
     6993   01 02B04    00000000 A            DATA     X'0'
     6994   01 02B05    00000000 A            DATA     X'0'
     6995   01 02B06    96969696 A            DATA     X'96969696'
     6996   01 02B07    69696969 A            DATA     X'69696969'
     6997   01 02B08    00000000 A            DATA     X'0'
     6998   01 02B09    00000000 A            DATA     X'0'
     6999   01 02B0A    9696969C A            DATA     X'9696969C'
     7000   01 02B0B    6969000C A            DATA     X'6969000C'
     7001   01 02B0C    1207006B A   DSA07    MODULE                     DSA - LEFT SHIFT 4
     7002   01 02B0D    7C000004 A            DSA      X'4'
     7003   01 02B0E    033011DD              K        0,3,3,LOC
     7004   01 02B0F    533011DF              K        5,3,3,LOC+2
     7005   01 02B10    64352079 A            DATA     X'64352079'
     7006   01 02B11    20798421 A            DATA     X'20798421'
     7007   01 02B12    00000000 A            DATA     X'0'
     7008   01 02B13    00000000 A            DATA     X'0'
     7009   01 02B14    84213971 A            DATA     X'84213971'
     7010   01 02B15    39717025 A            DATA     X'39717025'
     7011   01 02B16    00000000 A            DATA     X'0'
     7012   01 02B17    00000000 A            DATA     X'0'
     7013   01 02B18    70253468 A            DATA     X'70253468'
     7014   01 02B19    34687931 A            DATA     X'34687931'
     7015   01 02B1A    00000000 A            DATA     X'0'
     7016   01 02B1B    00000000 A            DATA     X'0'
     7017   01 02B1C    7931248D A            DATA     X'7931248D'
     7018   01 02B1D    2480000D A            DATA     X'2480000D'
     7019   01 02B1E    1208006C A   DSA08    MODULE                     DSA - LEFT SHIFT 30
     7020   01 02B1F    7C00001E A            DSA      X'1E'
     7021   01 02B20    033011DD              K        0,3,3,LOC
     7022   01 02B21    633011DF              K        6,3,3,LOC+2
     7023   01 02B22    03568147 A            DATA     X'03568147'
     7024   01 02B23    30000000 A            DATA     X'30000000'
     7025   01 02B24    00000000 A            DATA     X'0'
     7026   01 02B25    00000000 A            DATA     X'0'
     7027   01 02B26    12345678 A            DATA     X'12345678'
     7028   01 02B27    00000000 A            DATA     X'0'
     7029   01 02B28    00000000 A            DATA     X'0'
     7030   01 02B29    00000000 A            DATA     X'0'
     7031   01 02B2A    90123456 A            DATA     X'90123456'
     7032   01 02B2B    00000000 A            DATA     X'0'
     7033   01 02B2C    00000000 A            DATA     X'0'
     7034   01 02B2D    00000000 A            DATA     X'0'
     7035   01 02B2E    7890123C A            DATA     X'7890123C'
     7036   01 02B2F    0000000C A            DATA     X'C'
     7037   01 02B30    1209006D A   DSA09    MODULE                     DSA - LEFT SHIFT 31
     7038   01 02B31    7C00001F A            DSA      X'1F'
     7039   01 02B32    033011DD              K        0,3,3,LOC
     7040   01 02B33    433011DF              K        4,3,3,LOC+2
     7041   01 02B34    98765432 A            DATA     X'98765432'
     7042   01 02B35    00000000 A            DATA     X'0'
     7043   01 02B36    00000000 A            DATA     X'0'
     7044   01 02B37    00000000 A            DATA     X'0'
     7045   01 02B38    10987654 A            DATA     X'10987654'
     7046   01 02B39    00000000 A            DATA     X'0'
     7047   01 02B3A    00000000 A            DATA     X'0'
     7048   01 02B3B    00000000 A            DATA     X'0'
     7049   01 02B3C    32102468 A            DATA     X'32102468'
     7050   01 02B3D    00000000 A            DATA     X'0'
     7051   01 02B3E    00000000 A            DATA     X'0'
     7052   01 02B3F    00000000 A            DATA     X'0'
     7053   01 02B40    0369258D A            DATA     X'0369258D'
     7054   01 02B41    0000000D A            DATA     X'D'
     7055   01 02B42    120A006E A   DSA10    MODULE                     DSA - RIGHT SHIFT 3
     7056   01 02B43    7C01FFFD A            DSA      X'1FFFD'
     7057   01 02B44    033011DD              K        0,3,3,LOC
     7058   01 02B45    233011DF              K        2,3,3,LOC+2
     7059   01 02B46    15937260 A            DATA     X'15937260'
     7060   01 02B47    00015937 A            DATA     X'00015937'
     7061   01 02B48    00000000 A            DATA     X'0'
     7062   01 02B49    00000000 A            DATA     X'0'
     7063   01 02B4A    55555555 A            DATA     X'55555555'
     7064   01 02B4B    26055555 A            DATA     X'26055555'
     7065   01 02B4C    00000000 A            DATA     X'0'
     7066   01 02B4D    00000000 A            DATA     X'0'
     7067   01 02B4E    25814703 A            DATA     X'25814703'
     7068   01 02B4F    55525814 A            DATA     X'55525814'
     7069   01 02B50    00000000 A            DATA     X'0'
     7070   01 02B51    00000000 A            DATA     X'0'
     7071   01 02B52    5555555C A            DATA     X'5555555C'
     7072   01 02B53    7035555C A            DATA     X'7035555C'
     7073   01 02B54    120B006F A   DSA11    MODULE                     DSA - RIGHT SHIFT 4
     7074   01 02B55    7C01FFFC A            DSA      X'1FFFC'
     7075   01 02B56    033011DD              K        0,3,3,LOC
     7076   01 02B57    133011DF              K        1,3,3,LOC+2
     7077   01 02B58    01234567 A            DATA     X'01234567'
     7078   01 02B59    00000123 A            DATA     X'00000123'
     7079   01 02B5A    00000000 A            DATA     X'0'
     7080   01 02B5B    00000000 A            DATA     X'0'
     7081   01 02B5C    89135792 A            DATA     X'89135792'
     7082   01 02B5D    45678913 A            DATA     X'45678913'
     7083   01 02B5E    00000000 A            DATA     X'0'
     7084   01 02B5F    00000000 A            DATA     X'0'
     7085   01 02B60    58159495 A            DATA     X'58159495'
     7086   01 02B61    57925815 A            DATA     X'57925815'
     7087   01 02B62    00000000 A            DATA     X'0'
     7088   01 02B63    00000000 A            DATA     X'0'
     7089   01 02B64    8529754D A            DATA     X'8529754D'
     7090   01 02B65    9495852D A            DATA     X'9495852D'
     7091   01 02B66    120C0070 A   DSA12    MODULE                     DSA - RIGHT SHIFT 30
     7092   01 02B67    7C01FFE2 A            DSA      X'1FFE2'
     7093   01 02B68    033011DD              K        0,3,3,LOC
     7094   01 02B69    233011DF              K        2,3,3,LOC+2
     7095   01 02B6A    96969696 A            DATA     X'96969696'
     7096   01 02B6B    00000000 A            DATA     X'0'
     7097   01 02B6C    00000000 A            DATA     X'0'
     7098   01 02B6D    00000000 A            DATA     X'0'
     7099   01 02B6E    96969696 A            DATA     X'96969696'
     7100   01 02B6F    00000000 A            DATA     X'0'
     7101   01 02B70    00000000 A            DATA     X'0'
     7102   01 02B71    00000000 A            DATA     X'0'
     7103   01 02B72    96969696 A            DATA     X'96969696'
     7104   01 02B73    00000000 A            DATA     X'0'
     7105   01 02B74    00000000 A            DATA     X'0'
     7106   01 02B75    00000000 A            DATA     X'0'
     7107   01 02B76    9696969C A            DATA     X'9696969C'
     7108   01 02B77    0000009C A            DATA     X'9C'
     7109   01 02B78    120D0071 A   DSA13    MODULE                     DSA - RIGHT SHIFT 31
     7110   01 02B79    7C01FFE1 A            DSA      X'1FFE1'
     7111   01 02B7A    333011DD              K        3,3,3,LOC
     7112   01 02B7B    033011DF              K        0,3,3,LOC+2
     7113   01 02B7C    98639407 A            DATA     X'98639407'
     7114   01 02B7D    00000000 A            DATA     X'0'
     7115   01 02B7E    00000000 A            DATA     X'0'
     7116   01 02B7F    00000000 A            DATA     X'0'
     7117   01 02B80    42102594 A            DATA     X'42102594'
     7118   01 02B81    00000000 A            DATA     X'0'
     7119   01 02B82    00000000 A            DATA     X'0'
     7120   01 02B83    00000000 A            DATA     X'0'
     7121   01 02B84    04936894 A            DATA     X'04936894'
     7122   01 02B85    00000000 A            DATA     X'0'
     7123   01 02B86    00000000 A            DATA     X'0'
     7124   01 02B87    00000000 A            DATA     X'0'
     7125   01 02B88    9520124C A            DATA     X'9520124C'
     7126   01 02B89    0000000C A            DATA     X'C'
     7127   01 02B8A    120E0072 A   DSA14    MODULE                     DSA - RIGHT SHIFT 32
     7128   01 02B8B    7C01FFE0 A            DSA      X'1FFE0'
     7129   01 02B8C    033011DD              K        0,3,3,LOC
     7130   01 02B8D    033011DF              K        0,3,3,LOC+2
     7131   01 02B8E    74409944 A            DATA     X'74409944'
     7132   01 02B8F    00000000 A            DATA     X'0'
     7133   01 02B90    00000000 A            DATA     X'0'
     7134   01 02B91    00000000 A            DATA     X'0'
     7135   01 02B92    26230318 A            DATA     X'26230318'
     7136   01 02B93    00000000 A            DATA     X'0'
     7137   01 02B94    00000000 A            DATA     X'0'
     7138   01 02B95    00000000 A            DATA     X'0'
     7139   01 02B96    19092429 A            DATA     X'19092429'
     7140   01 02B97    00000000 A            DATA     X'0'
     7141   01 02B98    00000000 A            DATA     X'0'
     7142   01 02B99    00000000 A            DATA     X'0'
     7143   01 02B9A    4097235D A            DATA     X'4097235D'
     7144   01 02B9B    0000000D A            DATA     X'D'
     7145   01 02B9C    120F0073 A   DSA15    MODULE                     DSA - LEFT SHIFT 1
     7146   01 02B9D    7C000001 A            DSA      X'1'
     7147   01 02B9E    033011DD              K        0,3,3,LOC
     7148   01 02B9F    433011DF              K        4,3,3,LOC+2
     7149   01 02BA0    80000000 A            DATA     X'80000000'
     7150   01 02BA1    00000000 A            DATA     X'0'
     7151   01 02BA2    00000000 A            DATA     X'0'
     7152   01 02BA3    00000000 A            DATA     X'0'
     7153   01 02BA4    00000000 A            DATA     X'0'
     7154   01 02BA5    00000000 A            DATA     X'0'
     7155   01 02BA6    00000000 A            DATA     X'0'
     7156   01 02BA7    00000000 A            DATA     X'0'
     7157   01 02BA8    00000000 A            DATA     X'0'
     7158   01 02BA9    00000000 A            DATA     X'0'
     7159   01 02BAA    00000000 A            DATA     X'0'
     7160   01 02BAB    00000000 A            DATA     X'0'
     7161   01 02BAC    0000000C A            DATA     X'C'
     7162   01 02BAD    0000000C A            DATA     X'C'
     7163   01 02BAE    12100074 A   DSA16    MODULE                     DSA-RIGHT SHIFT 33
     7164   01 02BAF    7C00FFBF A            DSA      X'FFBF'
     7165   01 02BB0    F33011DD              K        15,3,3,LOC        PSW1 IN
     7166   01 02BB1    033011DF              K         0,3,3,LOC+2      PSW1 OUT
     7167   01 02BB2    87878787 A            DATA     X'87878787'       R12 IN
     7168   01 02BB3    00000000 A            DATA     X'0'              R12 OUT
     7169   01 02BB4    00000000 A            DATA     X'0'              MEMORY+0 IN
     7170   01 02BB5    00000000 A            DATA     X'0'              MEMORY+0 OUT
     7171   01 02BB6    87878787 A            DATA     X'87878787'       R13 IN
     7172   01 02BB7    00000000 A            DATA     X'0'              R13 OUT
     7173   01 02BB8    00000000 A            DATA     X'0'              MEMORY+1 IN
     7174   01 02BB9    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7175   01 02BBA    87878787 A            DATA     X'87878787'       R14 IN
     7176   01 02BBB    00000000 A            DATA     X'0'              R14 OUT
     7177   01 02BBC    00000000 A            DATA     X'0'              MEMORY+2 IN
     7178   01 02BBD    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7179   01 02BBE    8787878D A            DATA     X'8787878D'       R15 IN
     7180   01 02BBF    0000000D A            DATA     X'D'              R15 OUT
     7181   01 02BC0    12110075 A   DSA17    MODULE                     DSA-RIGHT SHIFT 257
     7182   01 02BC1    7C00FEFF A            DSA      X'FEFF'
     7183   01 02BC2    F33011DD              K        15,3,3,LOC        PSW1 IN
     7184   01 02BC3    033011DF              K         0,3,3,LOC+2      PSW1 OUT
     7185   01 02BC4    87878787 A            DATA     X'87878787'       R12 IN
     7186   01 02BC5    00000000 A            DATA     X'0'              R12 OUT
     7187   01 02BC6    00000000 A            DATA     X'0'              MEMORY+0 IN
     7188   01 02BC7    00000000 A            DATA     X'0'              MEMORY+0 OUT
     7189   01 02BC8    87878787 A            DATA     X'87878787'       R13 IN
     7190   01 02BC9    00000000 A            DATA     X'0'              R13 OUT
     7191   01 02BCA    00000000 A            DATA     X'0'              MEMORY+1 IN
     7192   01 02BCB    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7193   01 02BCC    87878787 A            DATA     X'87878787'       R14 IN
     7194   01 02BCD    00000000 A            DATA     X'0'              R14 OUT
     7195   01 02BCE    00000000 A            DATA     X'0'              MEMORY+2 IN
     7196   01 02BCF    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7197   01 02BD0    8787878C A            DATA     X'8787878C'       R15 IN
     7198   01 02BD1    0000000C A            DATA     X'C'              R15 OUT
     7199   01 02BD2    12120076 A   DSA18    MODULE                     DSA-RIGHT SHIFT 4097
     7200   01 02BD3    7C01EFFF A            DSA      X'1EFFF'
     7201   01 02BD4    F33011DD              K        15,3,3,LOC        PSW1 IN
     7202   01 02BD5    033011DF              K         0,3,3,LOC+2      PSW1 OUT
     7203   01 02BD6    87878787 A            DATA     X'87878787'       R12 IN
     7204   01 02BD7    00000000 A            DATA     X'0'              R12 OUT
     7205   01 02BD8    00000000 A            DATA     X'0'              MEMORY+0 IN
     7206   01 02BD9    00000000 A            DATA     X'0'              MEMORY+0 OUT
     7207   01 02BDA    87878787 A            DATA     X'87878787'       R13 IN
     7208   01 02BDB    00000000 A            DATA     X'0'              R13 OUT
     7209   01 02BDC    00000000 A            DATA     X'0'              MEMORY+1 IN
     7210   01 02BDD    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7211   01 02BDE    87878787 A            DATA     X'87878787'       R14 IN
     7212   01 02BDF    00000000 A            DATA     X'0'              R14 OUT
     7213   01 02BE0    00000000 A            DATA     X'0'              MEMORY+2 IN
     7214   01 02BE1    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7215   01 02BE2    8787878C A            DATA     X'8787878C'       R15 IN
     7216   01 02BE3    0000000C A            DATA     X'C'              R15 OUT
     7217   01 02BE4    12130077 A   DSA19    MODULE                     DSA-LEFT SHIFT 2
     7218   01 02BE5    7C000002 A            DSA      X'2'
     7219   01 02BE6    B33011DD              K        11,3,3,LOC        PSW1 IN
     7220   01 02BE7    433011DF              K         4,3,3,LOC+2      PSW1 OUT
     7221   01 02BE8    04000000 A            DATA     X'04000000'       R12 IN
     7222   01 02BE9    00000000 A            DATA     X'0'              R12 OUT
     7223   01 02BEA    00000000 A            DATA     X'0'              MEMORY+0 IN
     7224   01 02BEB    00000000 A            DATA     X'0'              MEMORY+0 OUT
     7225   01 02BEC    00000000 A            DATA     X'0'              R13 IN
     7226   01 02BED    00000000 A            DATA     X'0'              R13 OUT
     7227   01 02BEE    00000000 A            DATA     X'0'              MEMORY+1 IN
     7228   01 02BEF    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7229   01 02BF0    00000000 A            DATA     X'0'              R14 IN
     7230   01 02BF1    00000000 A            DATA     X'0'              R14 OUT
     7231   01 02BF2    00000000 A            DATA     X'0'              MEMORY+2 IN
     7232   01 02BF3    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7233   01 02BF4    0000000C A            DATA     X'C'              R15 IN
     7234   01 02BF5    0000000C A            DATA     X'C'              R15 OUT
     7235   01 02BF6    12140078 A   DSA20    MODULE                     DSA-LEFT SHIFT 64
     7236   01 02BF7    7C000040 A            DSA      X'00040'
     7237   01 02BF8    B33011DD              K        11,3,3,LOC        PSW1 IN
     7238   01 02BF9    433011DF              K         4,3,3,LOC+2      PSW1 OUT
     7239   01 02BFA    00000000 A            DATA     X'0'              R12 IN
     7240   01 02BFB    00000000 A            DATA     X'0'              R12 OUT
     7241   01 02BFC    00000000 A            DATA     X'0'              MEMORY+0 IN
     7242   01 02BFD    00000000 A            DATA     X'0'              MEMORY+0 OUT
     7243   01 02BFE    00000000 A            DATA     X'0'              R13 IN
     7244   01 02BFF    00000000 A            DATA     X'0'              R13 OUT
     7245   01 02C00    00000000 A            DATA     X'0'              MEMORY+1 IN
     7246   01 02C01    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7247   01 02C02    00000000 A            DATA     X'0'              R14 IN
     7248   01 02C03    00000000 A            DATA     X'0'              R14 OUT
     7249   01 02C04    00000000 A            DATA     X'0'              MEMORY+2 IN
     7250   01 02C05    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7251   01 02C06    0000008D A            DATA     X'8D'             R15 IN
     7252   01 02C07    0000000D A            DATA     X'D'              R15 OUT
     7253   01 02C08    12150079 A   DSA21    MODULE                     DSA-LEFT SHIFT 128
     7254   01 02C09    7C000080 A            DSA      X'00080'
     7255   01 02C0A    B33011DD              K        11,3,3,LOC        PSW1 IN
     7256   01 02C0B    433011DF              K         4,3,3,LOC+2      PSW1 OUT
     7257   01 02C0C    00000000 A            DATA     X'0'              R12 IN
     7258   01 02C0D    00000000 A            DATA     X'0'              R12 OUT
     7259   01 02C0E    00000000 A            DATA     X'0'              MEMORY+0 IN
     7260   01 02C0F    00000000 A            DATA     X'0'              MEMORY+0 OUT
     7261   01 02C10    00000000 A            DATA     X'0'              R13 IN
     7262   01 02C11    00000000 A            DATA     X'0'              R13 OUT
     7263   01 02C12    00000000 A            DATA     X'0'              MEMORY+1 IN
     7264   01 02C13    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7265   01 02C14    00000000 A            DATA     X'0'              R14 IN
     7266   01 02C15    00000000 A            DATA     X'0'              R14 OUT
     7267   01 02C16    00000000 A            DATA     X'0'              MEMORY+2 IN
     7268   01 02C17    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7269   01 02C18    0000040D A            DATA     X'0000040D'       R15 IN
     7270   01 02C19    0000000D A            DATA     X'D'              R15 OUT
     7271   01 02C1A    1216007A A   DSA22    MODULE                     DSA-LEFT SHIFT 256
     7272   01 02C1B    7C000080 A            DSA      X'00080'
     7273   01 02C1C    F33011DD              K        15,3,3,LOC        PSW1 IN
     7274   01 02C1D    033011DF              K         0,3,3,LOC+2      PSW1 OUT
     7275   01 02C1E    00000000 A            DATA     X'0'              R12 IN
     7276   01 02C1F    00000000 A            DATA     X'0'              R12 OUT
     7277   01 02C20    00000000 A            DATA     X'0'              MEMORY+0 IN
     7278   01 02C21    00000000 A            DATA     X'0'              MEMORY+0 OUT
     7279   01 02C22    00000000 A            DATA     X'0'              R13 IN
     7280   01 02C23    00000000 A            DATA     X'0'              R13 OUT
     7281   01 02C24    00000000 A            DATA     X'0'              MEMORY+1 IN
     7282   01 02C25    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7283   01 02C26    00000000 A            DATA     X'0'              R14 IN
     7284   01 02C27    00000000 A            DATA     X'0'              R14 OUT
     7285   01 02C28    00000000 A            DATA     X'0'              MEMORY+2 IN
     7286   01 02C29    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7287   01 02C2A    0000000D A            DATA     X'D'              R15 IN
     7288   01 02C2B    0000000D A            DATA     X'D'              R15 OUT
     7289   01 02C2C    1217007B A   DSA23    MODULE                     DSA-RIGHT SHIFT 1
     7290   01 02C2D    7C01FFFF A            DSA      X'1FFFF'
     7291   01 02C2E    E33011DD              K        14,3,3,LOC        PSW1 IN
     7292   01 02C2F    133011DF              K         1,3,3,LOC+2      PSW1 OUT
     7293   01 02C30    20000000 A            DATA     X'20000000'       R12 IN
     7294   01 02C31    02000000 A            DATA     X'02000000'       R12 OUT
     7295   01 02C32    00000000 A            DATA     X'0'              MEMORY+0 IN
     7296   01 02C33    00000000 A            DATA     X'0'              MEMORY+0 OUT
     7297   01 02C34    00000000 A            DATA     X'0'              R13 IN
     7298   01 02C35    00000000 A            DATA     X'0'              R13 OUT
     7299   01 02C36    00000000 A            DATA     X'0'              MEMORY+1 IN
     7300   01 02C37    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7301   01 02C38    00000000 A            DATA     X'0'              R14 IN
     7302   01 02C39    00000000 A            DATA     X'0'              R14 OUT
     7303   01 02C3A    00000000 A            DATA     X'0'              MEMORY+2 IN
     7304   01 02C3B    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7305   01 02C3C    0000000D A            DATA     X'D'              R15 IN
     7306   01 02C3D    0000000D A            DATA     X'D'              R15 OUT
     7307   01 02C3E    1218007C A   DSA24    MODULE
     7308   01 02C3F    7C01FFFC A            DSA      X'1FFFC'
     7309   01 02C40    F33011DD              K              15,3,3,LOC      PSW1 IN
     7310   01 02C41    033011DF              K              0,3,3,LOC+2     PSW1 OUT
     7311   01 02C42    00000000 A            DATA     0                 R12 IN
     7312   01 02C43    00000000 A            DATA     0                 R12 OUT
     7313   01 02C44    00000000 A            DATA     0                 MEMORY+0 IN
     7314   01 02C45    00000000 A            DATA     0                 MEMORY+0 OUT
     7315   01 02C46    00000000 A            DATA     0                 R13 IN
     7316   01 02C47    00000000 A            DATA     0                 R13 OUT
     7317   01 02C48    00000000 A            DATA     0                 MEMORY+1 IN
     7318   01 02C49    00000000 A            DATA     0                 MEMORY+1 OUT
     7319   01 02C4A    00000000 A            DATA     0                 R14 IN
     7320   01 02C4B    00000000 A            DATA     0                 R14 OUT
     7321   01 02C4C    00000000 A            DATA     0                 MEMORY+2 IN
     7322   01 02C4D    00000000 A            DATA     0                 MEMORY+2 OUT
     7323   01 02C4E    0007777C A            DATA     X'7777C'          R15 IN
     7324   01 02C4F    0000000C A            DATA     X'C'              R15 OUT
     7325   01 02C50    1219007D A   DSA25    MODULE
     7326   01 02C51    7C000080 A            DSA      X'00080'                                            *C
     7327   01 02C52    F33011DD              K               15,3,3,LOC       PSW1 IN                     *C
     7328   01 02C53    033011DF              K               0,3,3,LOC+2   PSW1 OUT                       *C
     7329   01 02C54    00000000 A            DATA     X'0'              R12 IN                            *C
     7330   01 02C55    00000000 A            DATA     X'0'              R12 OUT                           *C
     7331   01 02C56    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     7332   01 02C57    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     7333   01 02C58    00000000 A            DATA     X'0'              R13 IN                            *C
     7334   01 02C59    00000000 A            DATA     X'0'              R13 OUT                           *C
     7335   01 02C5A    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     7336   01 02C5B    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     7337   01 02C5C    00000000 A            DATA     X'0'              R14 IN                            *C
     7338   01 02C5D    00000000 A            DATA     X'0'              R14 OUT                           *C
     7339   01 02C5E    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     7340   01 02C5F    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     7341   01 02C60    0000000D A            DATA     X'D'              R15 IN                            *C
     7342   01 02C61    0000000D A            DATA     X'D'              R15 OUT                           *C
     7343   01 02C62    141A007E A   DSA26    MODULE
     7344   01 02C63    7C000080 A            DSA      X'00080'                                            *C
     7345   01 02C64    F33011DD              K               15,3,3,LOC       PSW1 IN                     *C
     7346   01 02C65    033011DF              K               0,3,3,LOC+2   PSW1 OUT                       *C
     7347   01 02C66    00000000 A            DATA     X'0'              R12 IN                            *C
     7348   01 02C67    00000000 A            DATA     X'0'              R12 OUT                           *C
     7349   01 02C68    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     7350   01 02C69    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     7351   01 02C6A    00000000 A            DATA     X'0'              R13 IN                            *C
     7352   01 02C6B    00000000 A            DATA     X'0'              R13 OUT                           *C
     7353   01 02C6C    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     7354   01 02C6D    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     7355   01 02C6E    00000000 A            DATA     X'0'              R14 IN                            *C
     7356   01 02C6F    00000000 A            DATA     X'0'              R14 OUT                           *C
     7357   01 02C70    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     7358   01 02C71    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     7359   01 02C72    0000000D A            DATA     X'D'              R15 IN                            *C
     7360   01 02C73    0000000D A            DATA     X'D'              R15 OUT                           *C
     7361   01 02C74    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     7362   01 02C75    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     7363   01 02C76    1401007F A   DC01     MODULE   X'7D'             DC - DECA = EDO
     7364   01 02C77    7D003800              DC,0     MEMORY
     7365   01 02C78    F33011DD              K        15,3,3,LOC
     7366   01 02C79    033011DF              K        0,3,3,LOC+2
     7367   01 02C7A    01234567 A            DATA     X'01234567'
     7368   01 02C7B    01234567 A            DATA     X'01234567'
     7369   01 02C7C    01234567 A            DATA     X'01234567'
     7370   01 02C7D    01234567 A            DATA     X'01234567'
     7371   01 02C7E    89024680 A            DATA     X'89024680'
     7372   01 02C7F    89024680 A            DATA     X'89024680'
     7373   01 02C80    89024680 A            DATA     X'89024680'
     7374   01 02C81    89024680 A            DATA     X'89024680'
     7375   01 02C82    36925814 A            DATA     X'36925814'
     7376   01 02C83    36925814 A            DATA     X'36925814'
     7377   01 02C84    36925814 A            DATA     X'36925814'
     7378   01 02C85    36925814 A            DATA     X'36925814'
     7379   01 02C86    7046797C A            DATA     X'7046797C'
     7380   01 02C87    7046797C A            DATA     X'7046797C'
     7381   01 02C88    7046797C A            DATA     X'7046797C'
     7382   01 02C89    7046797C A            DATA     X'7046797C'
     7383   01 02C8A    14020080 A   DC02     MODULE                     DC - DECA > EDO
     7384   01 02C8B    7D003800              DC,0     MEMORY
     7385   01 02C8C    F33011DD              K        15,3,3,LOC
     7386   01 02C8D    233011DF              K        2,3,3,LOC+2
     7387   01 02C8E    96969696 A            DATA     X'96969696'
     7388   01 02C8F    96969696 A            DATA     X'96969696'
     7389   01 02C90    96969696 A            DATA     X'96969696'
     7390   01 02C91    96969696 A            DATA     X'96969696'
     7391   01 02C92    96969696 A            DATA     X'96969696'
     7392   01 02C93    96969696 A            DATA     X'96969696'
     7393   01 02C94    96969696 A            DATA     X'96969696'
     7394   01 02C95    96969696 A            DATA     X'96969696'
     7395   01 02C96    96969696 A            DATA     X'96969696'
     7396   01 02C97    96969696 A            DATA     X'96969696'
     7397   01 02C98    96969696 A            DATA     X'96969696'
     7398   01 02C99    96969696 A            DATA     X'96969696'
     7399   01 02C9A    9696969C A            DATA     X'9696969C'
     7400   01 02C9B    9696969C A            DATA     X'9696969C'
     7401   01 02C9C    9696968C A            DATA     X'9696968C'
     7402   01 02C9D    9696968C A            DATA     X'9696968C'
     7403   01 02C9E    14030081 A   DC03     MODULE                     DC - DECA < EDO
     7404   01 02C9F    7D003800              DC,0     MEMORY
     7405   01 02CA0    F33011DD              K        15,3,3,LOC
     7406   01 02CA1    133011DF              K        1,3,3,LOC+2
     7407   01 02CA2    69696969 A            DATA     X'69696969'
     7408   01 02CA3    69696969 A            DATA     X'69696969'
     7409   01 02CA4    69696969 A            DATA     X'69696969'
     7410   01 02CA5    69696969 A            DATA     X'69696969'
     7411   01 02CA6    69696969 A            DATA     X'69696969'
     7412   01 02CA7    69696969 A            DATA     X'69696969'
     7413   01 02CA8    69696969 A            DATA     X'69696969'
     7414   01 02CA9    69696969 A            DATA     X'69696969'
     7415   01 02CAA    69696969 A            DATA     X'69696969'
     7416   01 02CAB    69696969 A            DATA     X'69696969'
     7417   01 02CAC    69696969 A            DATA     X'69696969'
     7418   01 02CAD    69696969 A            DATA     X'69696969'
     7419   01 02CAE    6969697D A            DATA     X'6969697D'
     7420   01 02CAF    6969697D A            DATA     X'6969697D'
     7421   01 02CB0    6969696D A            DATA     X'6969696D'
     7422   01 02CB1    6969696D A            DATA     X'6969696D'
     7423   01 02CB2    14040082 A   DC04     MODULE
     7424   01 02CB3    7D003800              DC,0     MEMORY
     7425   01 02CB4    033011DD              K              0,3,3,LOC      PSW1 IN
     7426   01 02CB5    233011DF              K              2,3,3,LOC+2    PSW1 OUT
     7427   01 02CB6    99999999 A            DATA     X'99999999'       R12 IN
     7428   01 02CB7    99999999 A            DATA     X'99999999'       R12 OUT
     7429   01 02CB8    00000000 A            DATA     0                 MEMORY+0 IN
     7430   01 02CB9    00000000 A            DATA     0                 MEMORY+0 OUT
     7431   01 02CBA    99999999 A            DATA     X'99999999'       R13 IN
     7432   01 02CBB    99999999 A            DATA     X'99999999'       R13 OUT
     7433   01 02CBC    00000000 A            DATA     0                 MEMORY+1 IN
     7434   01 02CBD    00000000 A            DATA     0                 MEMORY+1 OUT
     7435   01 02CBE    99999999 A            DATA     X'99999999'       R14 IN
     7436   01 02CBF    99999999 A            DATA     X'99999999'       R14 OUT
     7437   01 02CC0    00000000 A            DATA     0                 MEMORY+2 IN
     7438   01 02CC1    00000000 A            DATA     0                 MEMORY+2 OUT
     7439   01 02CC2    9999999C A            DATA     X'9999999C'       R15 IN
     7440   01 02CC3    9999999C A            DATA     X'9999999C'       R15 0UT
     7441   01 02CC4    0000001D A            DATA     X'1D'             MEMORY+3 IN
     7442   01 02CC5    0000001D A            DATA     X'1D'             MEMORY+3 OUT
     7443   01 02CC6    14050083 A   DC05     MODULE
     7444   01 02CC7    7D003800              DC,0     MEMORY
     7445   01 02CC8    D33011DD              K              13,3,3,LOC      PSW1 IN
     7446   01 02CC9    233011DF              K              2,3,3,LOC+2     PSW1 OUT
     7447   01 02CCA    80000000 A            DATA     X'80000000'       R12 IN
     7448   01 02CCB    80000000 A            DATA     X'80000000'       R12 OUT
     7449   01 02CCC    80000000 A            DATA     X'80000000'       MEMORY+0 IN
     7450   01 02CCD    80000000 A            DATA     X'80000000'       MEMORY+0 OUT
     7451   01 02CCE    00000000 A            DATA     0                 R13 IN
     7452   01 02CCF    00000000 A            DATA     0                 R13 OUT
     7453   01 02CD0    00000000 A            DATA     0                 MEMORY+1 IN
     7454   01 02CD1    00000000 A            DATA     0                 MEMORY+1 OUT
     7455   01 02CD2    00000000 A            DATA     0                 R14 IN
     7456   01 02CD3    00000000 A            DATA     0                 R14 OUT
     7457   01 02CD4    00000000 A            DATA     0                 MEMORY+2 IN
     7458   01 02CD5    00000000 A            DATA     0                 MEMORY+2 OUT
     7459   01 02CD6    0000000C A            DATA     X'C'              R15 IN
     7460   01 02CD7    0000000C A            DATA     X'C'              R15 OUT
     7461   01 02CD8    0000000D A            DATA     X'D'              MEMORY+3 IN
     7462   01 02CD9    0000000D A            DATA     X'D'              MEMORY+3 OUT
     7463   01 02CDA    12060084 A   DC06     MODULE
     7464   01 02CDB    7D203800              DC,2     MEMORY
     7465   01 02CDC    F33011DD              K              15,3,3,LOC      PSW1 IN
     7466   01 02CDD    033011DF              K              0,3,3,LOC+2     PSW1 OUT
     7467   01 02CDE    00000000 A            DATA     0
     7468   01 02CDF    00000000 A            DATA     0
     7469   01 02CE0    973C0000 A            DATA     X'973C0000'
     7470   01 02CE1    973C0000 A            DATA     X'973C0000'
     7471   01 02CE2    00000000 A            DATA     0                 R13 IN
     7472   01 02CE3    00000000 A            DATA     0                 R13 OUT
     7473   01 02CE4    00000000 A            DATA     0                 MEMORY+1 IN
     7474   01 02CE5    00000000 A            DATA     0                 MEMORY+1 OUT
     7475   01 02CE6    00000000 A            DATA     0                 R14 IN
     7476   01 02CE7    00000000 A            DATA     0                 R14 OUT
     7477   01 02CE8    00000000 A            DATA     0                 MEMORY+2 IN
     7478   01 02CE9    00000000 A            DATA     0                 MEMORY+2 OUT
     7479   01 02CEA    0000973C A            DATA     X'973C'
     7480   01 02CEB    0000973C A            DATA     X'973C'
     7481   01 02CEC    12010085 A   DM01     MODULE   X'7B'             DM - POS PROD
     7482   01 02CED    7B803800              DM,8     MEMORY
     7483   01 02CEE    D33011DD              K        13,3,3,LOC
     7484   01 02CEF    233011DF              K        2,3,3,LOC+2
     7485   01 02CF0    00000000 A            DATA     X'0'
     7486   01 02CF1    00091714 A            DATA     X'00091714'
     7487   01 02CF2    02468135 A            DATA     X'02468135'
     7488   01 02CF3    02468135 A            DATA     X'02468135'
     7489   01 02CF4    00000000 A            DATA     X'0'
     7490   01 02CF5    06717836 A            DATA     X'06717836'
     7491   01 02CF6    7956493C A            DATA     X'7956493C'
     7492   01 02CF7    7956493C A            DATA     X'7956493C'
     7493   01 02CF8    37159246 A            DATA     X'37159246'
     7494   01 02CF9    06432464 A            DATA     X'06432464'
     7495   01 02CFA    00000000 A            DATA     X'0'
     7496   01 02CFB    00000000 A            DATA     X'0'
     7497   01 02CFC    8048271C A            DATA     X'8048271C'
     7498   01 02CFD    1873603C A            DATA     X'1873603C'
     7499   01 02CFE    12020086 A   DM02     MODULE                     DM - NEG PROD
     7500   01 02CFF    7B803800              DM,8     MEMORY
     7501   01 02D00    E33011DD              K        14,3,3,LOC
     7502   01 02D01    133011DF              K        1,3,3,LOC+2
     7503   01 02D02    00000000 A            DATA     X'0'
     7504   01 02D03    00438879 A            DATA     X'00438879'
     7505   01 02D04    29630741 A            DATA     X'29630741'
     7506   01 02D05    29630741 A            DATA     X'29630741'
     7507   01 02D06    00000000 A            DATA     X'0'
     7508   01 02D07    06222683 A            DATA     X'06222683'
     7509   01 02D08    8529567C A            DATA     X'8529567C'
     7510   01 02D09    8529567C A            DATA     X'8529567C'
     7511   01 02D0A    14811612 A            DATA     X'14811612'
     7512   01 02D0B    90972684 A            DATA     X'90972684'
     7513   01 02D0C    00000000 A            DATA     X'0'
     7514   01 02D0D    00000000 A            DATA     X'0'
     7515   01 02D0E    3587046D A            DATA     X'3587046D'
     7516   01 02D0F    9189082D A            DATA     X'9189082D'
     7517   01 02D10    12030087 A   DM03     MODULE                     DM- L=1
     7518   01 02D11    7B103800              DM,1     MEMORY
     7519   01 02D12    D33011DD              K        13,3,3,LOC
     7520   01 02D13    233011DF              K        2,3,3,LOC+2
     7521   01 02D14    00000000 A            DATA     X'0'
     7522   01 02D15    00000000 A            DATA     X'0'
     7523   01 02D16    5C000000 A            DATA     X'5C000000'
     7524   01 02D17    5C000000 A            DATA     X'5C000000'
     7525   01 02D18    00000000 A            DATA     X'0'
     7526   01 02D19    00000004 A            DATA     X'4'
     7527   01 02D1A    00000000 A            DATA     X'0'
     7528   01 02D1B    00000000 A            DATA     X'0'
     7529   01 02D1C    84268248 A            DATA     X'84268248'
     7530   01 02D1D    21341240 A            DATA     X'21341240'
     7531   01 02D1E    00000000 A            DATA     X'0'
     7532   01 02D1F    00000000 A            DATA     X'0'
     7533   01 02D20    0529317C A            DATA     X'0529317C'
     7534   01 02D21    2646585C A            DATA     X'2646585C'
     7535   01 02D22    12040088 A   DM04     MODULE                     DM - ZERO PROD
     7536   01 02D23    7B803800              DM,8     MEMORY
     7537   01 02D24    F33011DD              K        15,3,3,LOC
     7538   01 02D25    033011DF              K        0,3,3,LOC+2
     7539   01 02D26    00000000 A            DATA     X'0'
     7540   01 02D27    00000000 A            DATA     X'0'
     7541   01 02D28    00000000 A            DATA     X'0'
     7542   01 02D29    00000000 A            DATA     X'0'
     7543   01 02D2A    00000000 A            DATA     X'0'
     7544   01 02D2B    00000000 A            DATA     X'0'
     7545   01 02D2C    0000000C A            DATA     X'C'
     7546   01 02D2D    0000000C A            DATA     X'C'
     7547   01 02D2E    00000000 A            DATA     X'0'
     7548   01 02D2F    00000000 A            DATA     X'0'
     7549   01 02D30    00000000 A            DATA     X'0'
     7550   01 02D31    00000000 A            DATA     X'0'
     7551   01 02D32    0000000D A            DATA     X'D'
     7552   01 02D33    0000000C A            DATA     X'C'
     7553   01 02D34    12050089 A   DM05     MODULE                     DM-PREVIOUSLY INTERRUPTED
     7554   01 02D35    7B203800              DM,2     MEMORY
     7555   01 02D36    033011DD              K        0,3,3,LOC
     7556   01 02D37    133011DF              K        1,3,3,LOC+2
     7557   01 02D38    00000000 A            DATA     X'0'
     7558   01 02D39    00000000 A            DATA     X'0'
     7559   01 02D3A    999D0000 A            DATA     X'999D0000'
     7560   01 02D3B    999D0000 A            DATA     X'999D0000'
     7561   01 02D3C    00000A00 A            DATA     X'A00'
     7562   01 02D3D    00000000 A            DATA     X'0'
     7563   01 02D3E    00000000 A            DATA     X'0'
     7564   01 02D3F    00000000 A            DATA     X'0'
     7565   01 02D40    00000000 A            DATA     X'0'
     7566   01 02D41    00000000 A            DATA     X'0'
     7567   01 02D42    00000000 A            DATA     X'0'
     7568   01 02D43    00000000 A            DATA     X'0'
     7569   01 02D44    00970032 A            DATA     X'00970032'
     7570   01 02D45    0026973D A            DATA     X'0026973D'
     7571   01 02D46    1206008A A   DM06     MODULE                     DM - PREVIOUSLY INTERRUPTED
     7572   01 02D47    7B803800              DM,8     MEMORY
     7573   01 02D48    033011DD              K        0,3,3,LOC
     7574   01 02D49    233011DF              K        2,3,3,LOC+2
     7575   01 02D4A    37159246 A            DATA     X'37159246'
     7576   01 02D4B    00091714 A            DATA     X'00091714'
     7577   01 02D4C    02468135 A            DATA     X'02468135'
     7578   01 02D4D    02468135 A            DATA     X'02468135'
     7579   01 02D4E    804827C0 A            DATA     X'804827C0'
     7580   01 02D4F    06717836 A            DATA     X'06717836'
     7581   01 02D50    7956493C A            DATA     X'7956493C'
     7582   01 02D51    7956493C A            DATA     X'7956493C'
     7583   01 02D52    00000000 A            DATA     X'0'
     7584   01 02D53    06432464 A            DATA     X'06432464'
     7585   01 02D54    00000000 A            DATA     X'0'
     7586   01 02D55    00000000 A            DATA     X'0'
     7587   01 02D56    00000001 A            DATA     X'1'
     7588   01 02D57    1873603C A            DATA     X'1873603C'
     7589   01 02D58    1207008B A   DM07     MODULE                     DM - L=2
     7590   01 02D59    7B203800              DM,2     MEMORY
     7591   01 02D5A    D33011DD              K        13,3,3,LOC
     7592   01 02D5B    233011DF              K        2,3,3,LOC+2
     7593   01 02D5C    00000000 A            DATA     X'0'
     7594   01 02D5D    00000000 A            DATA     X'0'
     7595   01 02D5E    128C0000 A            DATA     X'128C0000'
     7596   01 02D5F    128C0000 A            DATA     X'128C0000'
     7597   01 02D60    00000000 A            DATA     X'0'
     7598   01 02D61    00000000 A            DATA     X'0'
     7599   01 02D62    00000000 A            DATA     X'0'
     7600   01 02D63    00000000 A            DATA     X'0'
     7601   01 02D64    00000000 A            DATA     X'0'
     7602   01 02D65    00000000 A            DATA     X'0'
     7603   01 02D66    00000000 A            DATA     X'0'
     7604   01 02D67    00000000 A            DATA     X'0'
     7605   01 02D68    0002964C A            DATA     X'0002964C'
     7606   01 02D69    0379392C A            DATA     X'0379392C'
     7607   01 02D6A    1208008C A   DM08     MODULE                     DM-ZERO OPERAND IN MEMORY
     7608   01 02D6B    7B403800              DM,4     MEMORY
     7609   01 02D6C    F33011DD              K        15,3,3,LOC        PSW1 IN
     7610   01 02D6D    033011DF              K        0,3,3,LOC+2       PSW1 OUT
     7611   01 02D6E    00000000 A            DATA     X'0'              R12 IN
     7612   01 02D6F    00000000 A            DATA     X'0'              R12 OUT
     7613   01 02D70    0000000C A            DATA     X'0000000C'       MEMORY+0 IN
     7614   01 02D71    0000000C A            DATA     X'0000000C'       MEMORY+0 OUT
     7615   01 02D72    00000000 A            DATA     X'0'              R13 IN
     7616   01 02D73    00000000 A            DATA     X'0'              R13 OUT
     7617   01 02D74    00000000 A            DATA     X'0'              MEMORY+1 IN
     7618   01 02D75    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7619   01 02D76    00000000 A            DATA     X'0'              R14 IN
     7620   01 02D77    00000000 A            DATA     X'0'              R14 OUT
     7621   01 02D78    00000000 A            DATA     X'0'              MEMORY+2 IN
     7622   01 02D79    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7623   01 02D7A    1677000C A            DATA     X'1677000C'       R15 IN
     7624   01 02D7B    0000000C A            DATA     X'0000000C'       R15 OUT
     7625   01 02D7C    1209008D A   DM09     MODULE                     DM-MULTIPLY 1957 BY 5
     7626   01 02D7D    7B103800              DM,1     MEMORY
     7627   01 02D7E    D33011DD              K        13,3,3,LOC        PSW1 IN
     7628   01 02D7F    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     7629   01 02D80    00000000 A            DATA     X'0'              R12 IN
     7630   01 02D81    00000000 A            DATA     X'0'              R12 OUT
     7631   01 02D82    5C000000 A            DATA     X'5C000000'       MEMORY+0 IN
     7632   01 02D83    5C000000 A            DATA     X'5C000000'       MEMORY+0 OUT
     7633   01 02D84    00000000 A            DATA     X'0'              R13 IN
     7634   01 02D85    00000000 A            DATA     X'0'              R13 OUT
     7635   01 02D86    00000000 A            DATA     X'0'              MEMORY+1 IN
     7636   01 02D87    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7637   01 02D88    00000000 A            DATA     X'0'              R14 IN
     7638   01 02D89    00000000 A            DATA     X'0'              R14 OUT
     7639   01 02D8A    00000000 A            DATA     X'0'              MEMORY+2 IN
     7640   01 02D8B    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7641   01 02D8C    0001957C A            DATA     X'0001957C'       R15 IN
     7642   01 02D8D    0009785C A            DATA     X'0009785C'       R15 OUT
     7643   01 02D8E    120A008E A   DM10     MODULE                     DM-MULTIPLY 9009009 BY 3
     7644   01 02D8F    7B103800              DM,1     MEMORY
     7645   01 02D90    D33011DD              K        13,3,3,LOC        PSW1 IN
     7646   01 02D91    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     7647   01 02D92    00000000 A            DATA     X'0'              R12 IN
     7648   01 02D93    00000000 A            DATA     X'0'              R12 OUT
     7649   01 02D94    3C999999 A            DATA     X'3C999999'       MEMORY+0 IN
     7650   01 02D95    3C999999 A            DATA     X'3C999999'       MEMORY+0 OUT
     7651   01 02D96    00000000 A            DATA     X'0'              R13 IN
     7652   01 02D97    00000000 A            DATA     X'0'              R13 OUT
     7653   01 02D98    00000000 A            DATA     X'0'              MEMORY+1 IN
     7654   01 02D99    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7655   01 02D9A    00000000 A            DATA     X'0'              R14 IN
     7656   01 02D9B    00000002 A            DATA     X'2'              R14 OUT
     7657   01 02D9C    00000000 A            DATA     X'0'              MEMORY+2 IN
     7658   01 02D9D    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7659   01 02D9E    9009009C A            DATA     X'9009009C'       R15 IN
     7660   01 02D9F    7027027C A            DATA     X'7027027C'       R15 OUT
     7661   01 02DA0    120B008F A   DM11     MODULE                     DM-MULTIPLY 2808 BY 1
     7662   01 02DA1    7B803800              DM,8     MEMORY
     7663   01 02DA2    E33011DD              K        14,3,3,LOC        PSW1 IN
     7664   01 02DA3    133011DF              K         1,3,3,LOC+2      PSW1 OUT
     7665   01 02DA4    00000000 A            DATA     X'0'              R12 IN
     7666   01 02DA5    00000000 A            DATA     X'0'              R12 OUT
     7667   01 02DA6    00000000 A            DATA     X'0'              MEMORY+0 IN
     7668   01 02DA7    00000000 A            DATA     X'0'              MEMORY+0 OUT
     7669   01 02DA8    00000000 A            DATA     X'0'              R13 IN
     7670   01 02DA9    00000000 A            DATA     X'0'              R13 OUT
     7671   01 02DAA    0000001D A            DATA     X'1D'             MEMORY+1 IN
     7672   01 02DAB    0000001D A            DATA     X'1D'             MEMORY+1 OUT
     7673   01 02DAC    00000000 A            DATA     X'0'              R14 IN
     7674   01 02DAD    00000000 A            DATA     X'0'              R14 OUT
     7675   01 02DAE    00000000 A            DATA     X'0'              MEMORY+2 IN
     7676   01 02DAF    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7677   01 02DB0    0002808C A            DATA     X'0002808C'       R15 IN
     7678   01 02DB1    0002808D A            DATA     X'0002808D'       R15 OUT
     7679   01 02DB2    120C0090 A   DM12     MODULE                     DM-MULTIPLY +1 BY -1
     7680   01 02DB3    7B803800              DM,8     MEMORY
     7681   01 02DB4    E33011DD              K        14,3,3,LOC        PSW1 IN
     7682   01 02DB5    133011DF              K         1,3,3,LOC+2      PSW1 OUT
     7683   01 02DB6    00000000 A            DATA     X'0'              R12 IN
     7684   01 02DB7    00000000 A            DATA     X'0'              R12 OUT
     7685   01 02DB8    00000000 A            DATA     X'0'              MEMORY+0 IN
     7686   01 02DB9    00000000 A            DATA     X'0'              MEMORY+0 OUT
     7687   01 02DBA    00000000 A            DATA     X'0'              R13 IN
     7688   01 02DBB    00000000 A            DATA     X'0'              R13 OUT
     7689   01 02DBC    0000001D A            DATA     X'1D'             MEMORY+1 IN
     7690   01 02DBD    0000001D A            DATA     X'1D'             MEMORY+1 OUT
     7691   01 02DBE    00000000 A            DATA     X'0'              R14 IN
     7692   01 02DBF    00000000 A            DATA     X'0'              R14 OUT
     7693   01 02DC0    00000000 A            DATA     X'0'              MEMORY+2 IN
     7694   01 02DC1    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7695   01 02DC2    0000001C A            DATA     X'1C'             R15 IN
     7696   01 02DC3    0000001D A            DATA     X'1D'             R15 OUT
     7697   01 02DC4    120D0091 A   DM13     MODULE                     DM-ABORT ON ILLEGAL L FIELD
     7698   01 02DC5    7B903800              DM,9     MEMORY
     7699   01 02DC6    731011DD              K         7,3,1,LOC        PSW1 IN
     7700   01 02DC7    B31011DF              K        11,3,1,LOC+2      PSW1 OUT
     7701   01 02DC8    53359119 A            DATA     X'53359119'       R12 IN
     7702   01 02DC9    53359119 A            DATA     X'53359119'       R12 OUT
     7703   01 02DCA    82398275 A            DATA     X'82398275'       MEMORY+0 IN
     7704   01 02DCB    82398275 A            DATA     X'82398275'       MEMORY+0 OUT
     7705   01 02DCC    42142773 A            DATA     X'42142773'       R13 IN
     7706   01 02DCD    42142773 A            DATA     X'42142773'       R13 OUT
     7707   01 02DCE    59887036 A            DATA     X'59887036'       MEMORY+1 IN
     7708   01 02DCF    59887036 A            DATA     X'59887036'       MEMORY+1 OUT
     7709   01 02DD0    06403689 A            DATA     X'06403689'       R14 IN
     7710   01 02DD1    06403689 A            DATA     X'06403689'       R14 OUT
     7711   01 02DD2    4D000000 A            DATA     X'4D000000'       MEMORY+2 IN
     7712   01 02DD3    4D000000 A            DATA     X'4D000000'       MEMORY+2 OUT
     7713   01 02DD4    6508670D A            DATA     X'6508670D'       R15 IN
     7714   01 02DD5    6508670D A            DATA     X'6508670D'       R15 OUT
     7715   01 02DD6    120E0092 A   DM14     MODULE                     DM-RANDOM PATTERN
     7716   01 02DD7    7B703800              DM,7     MEMORY
     7717   01 02DD8    D33011DD              K        13,3,3,LOC        PSW1 IN
     7718   01 02DD9    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     7719   01 02DDA    00000000 A            DATA     X'0'              R12 IN
     7720   01 02DDB    00015876 A            DATA     X'00015876'       R12 OUT
     7721   01 02DDC    53808231 A            DATA     X'53808231'       MEMORY+0 IN
     7722   01 02DDD    53808231 A            DATA     X'53808231'       MEMORY+0 OUT
     7723   01 02DDE    00000000 A            DATA     X'0'              R13 IN
     7724   01 02DDF    63031352 A            DATA     X'63031352'       R13 OUT
     7725   01 02DE0    73412B86 A            DATA     X'73412B86'       MEMORY+1 IN
     7726   01 02DE1    73412B86 A            DATA     X'73412B86'       MEMORY+1 OUT
     7727   01 02DE2    29505950 A            DATA     X'29505950'       R14 IN
     7728   01 02DE3    97390640 A            DATA     X'97390640'       R14 OUT
     7729   01 02DE4    00000000 A            DATA     X'0'              MEMORY+2 IN
     7730   01 02DE5    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7731   01 02DE6    6730869B A            DATA     X'6730869B'       R15 IN
     7732   01 02DE7    0455028C A            DATA     X'0455028C'       R15 OUT
     7733   01 02DE8    120F0093 A   DM15     MODULE                     DM-RANDOM PATTERN
     7734   01 02DE9    7B603800              DM,6     MEMORY
     7735   01 02DEA    D33011DD              K        13,3,3,LOC        PSW1 IN
     7736   01 02DEB    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     7737   01 02DEC    00000000 A            DATA     X'0'              R12 IN
     7738   01 02DED    00000067 A            DATA     X'00000067'       R12 OUT
     7739   01 02DEE    47912447 A            DATA     X'47912447'       MEMORY+0 IN
     7740   01 02DEF    47912447 A            DATA     X'47912447'       MEMORY+0 OUT
     7741   01 02DF0    00000000 A            DATA     X'0'              R13 IN
     7742   01 02DF1    11632647 A            DATA     X'11632647'       R13 OUT
     7743   01 02DF2    267C0000 A            DATA     X'267C0000'       MEMORY+1 IN
     7744   01 02DF3    267C0000 A            DATA     X'267C0000'       MEMORY+1 OUT
     7745   01 02DF4    14008119 A            DATA     X'14008119'       R14 IN
     7746   01 02DF5    30007089 A            DATA     X'30007089'       R14 OUT
     7747   01 02DF6    00000000 A            DATA     X'0'              MEMORY+2 IN
     7748   01 02DF7    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7749   01 02DF8    0382499C A            DATA     X'0382499C'       R15 IN
     7750   01 02DF9    7180233C A            DATA     X'7180233C'       R15 OUT
     7751   01 02DFA    12100094 A   DM16     MODULE                     DM-RANDOM PATTERN
     7752   01 02DFB    7B503800              DM,5     MEMORY
     7753   01 02DFC    D33011DD              K        13,3,3,LOC        PSW1 IN
     7754   01 02DFD    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     7755   01 02DFE    00000000 A            DATA     X'0'              R12 IN
     7756   01 02DFF    00000006 A            DATA     X'6'              R12 OUT
     7757   01 02E00    93765872 A            DATA     X'93765872'       MEMORY+0 IN
     7758   01 02E01    93765872 A            DATA     X'93765872'       MEMORY+0 OUT
     7759   01 02E02    00000000 A            DATA     X'0'              R13 IN
     7760   01 02E03    33519031 A            DATA     X'33519031'       R13 OUT
     7761   01 02E04    4C000000 A            DATA     X'4C000000'       MEMORY+1 IN
     7762   01 02E05    4C000000 A            DATA     X'4C000000'       MEMORY+1 OUT
     7763   01 02E06    67563924 A            DATA     X'67563924'       R14 IN
     7764   01 02E07    16906330 A            DATA     X'16906330'       R14 OUT
     7765   01 02E08    00000000 A            DATA     X'0'              MEMORY+2 IN
     7766   01 02E09    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7767   01 02E0A    3739456C A            DATA     X'3739456C'       R15 IN
     7768   01 02E0B    1414144C A            DATA     X'1414144C'       R15 OUT
     7769   01 02E0C    12110095 A   DM17     MODULE                     DM-EXAMPLE FROM DEC UNIT TECH MAN
     7770   01 02E0D    7B203800              DM,2     MEMORY
     7771   01 02E0E    033011DD              K         0,3,3,LOC        PSW1 IN
     7772   01 02E0F    133011DF              K         1,3,3,LOC+2      PSW1 OUT
     7773   01 02E10    00000000 A            DATA     X'0'              R12 IN
     7774   01 02E11    00000000 A            DATA     X'0'              R12 OUT
     7775   01 02E12    999D0000 A            DATA     X'999D0000'       MEMORY+0 IN
     7776   01 02E13    999D0000 A            DATA     X'999D0000'       MEMORY+0 OUT
     7777   01 02E14    00000000 A            DATA     X'0'              R13 IN
     7778   01 02E15    00000000 A            DATA     X'0'              R13 OUT
     7779   01 02E16    00000000 A            DATA     X'0'              MEMORY+1 IN
     7780   01 02E17    00000000 A            DATA     X'0'              MEMORY+1 OUT
     7781   01 02E18    00000000 A            DATA     X'0'              R14 IN
     7782   01 02E19    00000000 A            DATA     X'0'              R14 OUT
     7783   01 02E1A    00000000 A            DATA     X'0'              MEMORY+2 IN
     7784   01 02E1B    00000000 A            DATA     X'0'              MEMORY+2 OUT
     7785   01 02E1C    0000007C A            DATA     X'7C'             R15 IN
     7786   01 02E1D    0006993D A            DATA     X'0006993D'       R15 OUT
     7787   01 02E1E    12120096 A   DM18     MODULE
     7788   01 02E1F    7B803800              DM,8     MEMORY
     7789   01 02E20    033011DD              K        0,3,3,LOC
     7790   01 02E21    133011DF              K        1,3,3,LOC+2
     7791   01 02E22    90291999 A            DATA     X'90291999'
     7792   01 02E23    08297834 A            DATA     X'08297834'
     7793   01 02E24    91899993 A            DATA     X'91899993'
     7794   01 02E25    91899993 A            DATA     X'91899993'
     7795   01 02E26    43D21550 A            DATA     X'43D21550'
     7796   01 02E27    19440255 A            DATA     X'19440255'
     7797   01 02E28    8686290C A            DATA     X'8686290C'
     7798   01 02E29    8686290C A            DATA     X'8686290C'
     7799   01 02E2A    54856219 A            DATA     X'54856219'
     7800   01 02E2B    86362406 A            DATA     X'86362406'
     7801   01 02E2C    00000000 A            DATA     0
     7802   01 02E2D    00000000 A            DATA     0
     7803   01 02E2E    35005002 A            DATA     X'35005002'
     7804   01 02E2F    6300500D A            DATA     X'6300500D'
     7805   01 02E30    12010097 A   DD01     MODULE   X'7A'             DD - POS QUOT
     7806   01 02E31    7A803800              DD,8     MEMORY
     7807   01 02E32    D33011DD              K        13,3,3,LOC
     7808   01 02E33    233011DF              K        2,3,3,LOC+2
     7809   01 02E34    07051259 A            DATA     X'07051259'
     7810   01 02E35    06610013 A            DATA     X'06610013'
     7811   01 02E36    70512596 A            DATA     X'70512596'
     7812   01 02E37    70512596 A            DATA     X'70512596'
     7813   01 02E38    61382601 A            DATA     X'61382601'
     7814   01 02E39    4078434C A            DATA     X'4078434C'
     7815   01 02E3A    1382602C A            DATA     X'1382602C'
     7816   01 02E3B    1382602C A            DATA     X'1382602C'
     7817   01 02E3C    36097417 A            DATA     X'36097417'
     7818   01 02E3D    99999999 A            DATA     X'99999999'
     7819   01 02E3E    00000000 A            DATA     X'0'
     7820   01 02E3F    00000000 A            DATA     X'0'
     7821   01 02E40    2695832C A            DATA     X'2695832C'
     7822   01 02E41    9999999C A            DATA     X'9999999C'
     7823   01 02E42    12020098 A   DD02     MODULE                     DD - NEG QUOT
     7824   01 02E43    7A803800              DD,8     MEMORY
     7825   01 02E44    E33011DD              K        14,3,3,LOC
     7826   01 02E45    133011DF              K        1,3,3,LOC+2
     7827   01 02E46    03517849 A            DATA     X'03517849'
     7828   01 02E47    18596139 A            DATA     X'18596139'
     7829   01 02E48    35178496 A            DATA     X'35178496'
     7830   01 02E49    35178496 A            DATA     X'35178496'
     7831   01 02E4A    62804321 A            DATA     X'62804321'
     7832   01 02E4B    4765962D A            DATA     X'4765962D'
     7833   01 02E4C    2804322C A            DATA     X'2804322C'
     7834   01 02E4D    2804322C A            DATA     X'2804322C'
     7835   01 02E4E    48239146 A            DATA     X'48239146'
     7836   01 02E4F    99999999 A            DATA     X'99999999'
     7837   01 02E50    00000000 A            DATA     X'0'
     7838   01 02E51    00000000 A            DATA     X'0'
     7839   01 02E52    9157318D A            DATA     X'9157318D'
     7840   01 02E53    9999998D A            DATA     X'9999998D'
     7841   01 02E54    12030099 A   DD03     MODULE                     DD - L=1, NEQ QUOT 0 REM
     7842   01 02E55    7A103800              DD,1     MEMORY
     7843   01 02E56    F33011DD              K        15,3,3,LOC
     7844   01 02E57    133011DF              K        1,3,3,LOC+2
     7845   01 02E58    00000000 A            DATA     X'0'
     7846   01 02E59    00000000 A            DATA     X'0'
     7847   01 02E5A    5C000000 A            DATA     X'5C000000'
     7848   01 02E5B    5C000000 A            DATA     X'5C000000'
     7849   01 02E5C    00000004 A            DATA     X'4'
     7850   01 02E5D    0000000D A            DATA     X'D'
     7851   01 02E5E    00000000 A            DATA     X'0'
     7852   01 02E5F    00000000 A            DATA     X'0'
     7853   01 02E60    00000000 A            DATA     X'0'
     7854   01 02E61    80000000 A            DATA     X'80000000'
     7855   01 02E62    00000000 A            DATA     X'0'
     7856   01 02E63    00000000 A            DATA     X'0'
     7857   01 02E64    0000000D A            DATA     X'D'
     7858   01 02E65    0000000D A            DATA     X'D'
     7859   01 02E66    1204009A A   DD04     MODULE                     DD - OVERFLOW - TRAP
     7860   01 02E67    7A803800              DD,8     MEMORY
     7861   01 02E68    833011E2              K        8,3,3,LOC+5
     7862   01 02E69    4330101B              K        4,3,3,EXP:TRAP+5
     7863   01 02E6A    06000000 A            DATA     X'06000000'
     7864   01 02E6B    06000000 A            DATA     X'06000000'
     7865   01 02E6C    60000000 A            DATA     X'60000000'
     7866   01 02E6D    60000000 A            DATA     X'60000000'
     7867   01 02E6E    00000000 A            DATA     X'0'
     7868   01 02E6F    00000000 A            DATA     X'0'
     7869   01 02E70    0000000D A            DATA     X'D'
     7870   01 02E71    0000000D A            DATA     X'D'
     7871   01 02E72    00000000 A            DATA     X'0'
     7872   01 02E73    00000000 A            DATA     X'0'
     7873   01 02E74    00000000 A            DATA     X'0'
     7874   01 02E75    00000000 A            DATA     X'0'
     7875   01 02E76    0000000D A            DATA     X'D'
     7876   01 02E77    0000000D A            DATA     X'D'
     7877   01 02E78    1205009B A   DD05     MODULE                     DD - OVERFLOW - TRAP
     7878   01 02E79    7A803800              DD,8     MEMORY
     7879   01 02E7A    833011E2              K        8,3,3,LOC+5
     7880   01 02E7B    4330101B              K        4,3,3,EXP:TRAP+5
     7881   01 02E7C    05000000 A            DATA     X'05000000'
     7882   01 02E7D    05000000 A            DATA     X'05000000'
     7883   01 02E7E    50000000 A            DATA     X'50000000'
     7884   01 02E7F    50000000 A            DATA     X'50000000'
     7885   01 02E80    00000001 A            DATA     X'1'
     7886   01 02E81    00000001 A            DATA     X'1'
     7887   01 02E82    0000000C A            DATA     X'C'
     7888   01 02E83    0000000C A            DATA     X'C'
     7889   01 02E84    00000000 A            DATA     X'0'
     7890   01 02E85    00000000 A            DATA     X'0'
     7891   01 02E86    00000000 A            DATA     X'0'
     7892   01 02E87    00000000 A            DATA     X'0'
     7893   01 02E88    0000000C A            DATA     X'C'
     7894   01 02E89    0000000C A            DATA     X'C'
     7895   01 02E8A    1206009C A   DD06     MODULE                     DD - GROSS OVERFLOW - NO TRAP
     7896   01 02E8B    7A403800              DD,4     MEMORY
     7897   01 02E8C    831011DD              K        8,3,1,LOC
     7898   01 02E8D    431011DF              K        4,3,1,LOC+2
     7899   01 02E8E    60000000 A            DATA     X'60000000'
     7900   01 02E8F    60000000 A            DATA     X'60000000'
     7901   01 02E90    0000008C A            DATA     X'8C'
     7902   01 02E91    0000008C A            DATA     X'8C'
     7903   01 02E92    00000000 A            DATA     X'0'
     7904   01 02E93    00000000 A            DATA     X'0'
     7905   01 02E94    00000000 A            DATA     X'0'
     7906   01 02E95    00000000 A            DATA     X'0'
     7907   01 02E96    00000000 A            DATA     X'0'
     7908   01 02E97    00000000 A            DATA     X'0'
     7909   01 02E98    00000000 A            DATA     X'0'
     7910   01 02E99    00000000 A            DATA     X'0'
     7911   01 02E9A    0000000C A            DATA     X'C'
     7912   01 02E9B    0000000C A            DATA     X'C'
     7913   01 02E9C    1207009D A   DD07     MODULE                     DD - ZERO DIVIDE - NO TRAP
     7914   01 02E9D    7A803800              DD,8     MEMORY
     7915   01 02E9E    831011DD              K        8,3,1,LOC
     7916   01 02E9F    431011DF              K        4,3,1,LOC+2
     7917   01 02EA0    00000000 A            DATA     X'0'
     7918   01 02EA1    00000000 A            DATA     X'0'
     7919   01 02EA2    00000000 A            DATA     X'0'
     7920   01 02EA3    00000000 A            DATA     X'0'
     7921   01 02EA4    00000000 A            DATA     X'0'
     7922   01 02EA5    00000000 A            DATA     X'0'
     7923   01 02EA6    0000000D A            DATA     X'D'
     7924   01 02EA7    0000000D A            DATA     X'D'
     7925   01 02EA8    00000000 A            DATA     X'0'
     7926   01 02EA9    00000000 A            DATA     X'0'
     7927   01 02EAA    00000000 A            DATA     X'0'
     7928   01 02EAB    00000000 A            DATA     X'0'
     7929   01 02EAC    0000000D A            DATA     X'D'
     7930   01 02EAD    0000000D A            DATA     X'D'
     7931   01 02EAE    1208009E A   DD08     MODULE                     DD - L=1
     7932   01 02EAF    7A103800              DD,1     MEMORY
     7933   01 02EB0    033011DD              K        0,3,3,LOC
     7934   01 02EB1    233011DF              K        2,3,3,LOC+2
     7935   01 02EB2    00000000 A            DATA     X'0'
     7936   01 02EB3    00000000 A            DATA     X'0'
     7937   01 02EB4    3C000000 A            DATA     X'3C000000'
     7938   01 02EB5    3C000000 A            DATA     X'3C000000'
     7939   01 02EB6    00000000 A            DATA     X'0'
     7940   01 02EB7    0000000C A            DATA     X'C'
     7941   01 02EB8    00000000 A            DATA     X'0'
     7942   01 02EB9    00000000 A            DATA     X'0'
     7943   01 02EBA    00000000 A            DATA     X'0'
     7944   01 02EBB    00000000 A            DATA     X'0'
     7945   01 02EBC    00000000 A            DATA     X'0'
     7946   01 02EBD    00000000 A            DATA     X'0'
     7947   01 02EBE    0000009C A            DATA     X'9C'
     7948   01 02EBF    0000003C A            DATA     X'3C'
     7949   01 02EC0    1209009F A   DD09     MODULE                     DD - L=2
     7950   01 02EC1    7A203800              DD,2     MEMORY
     7951   01 02EC2    033011DD              K        0,3,3,LOC
     7952   01 02EC3    233011DF              K        2,3,3,LOC+2
     7953   01 02EC4    00000000 A            DATA     X'0'
     7954   01 02EC5    00000000 A            DATA     X'0'
     7955   01 02EC6    003D0000 A            DATA     X'003D0000'
     7956   01 02EC7    003D0000 A            DATA     X'003D0000'
     7957   01 02EC8    00000000 A            DATA     X'0'
     7958   01 02EC9    0000002D A            DATA     X'2D'
     7959   01 02ECA    00000000 A            DATA     X'0'
     7960   01 02ECB    00000000 A            DATA     X'0'
     7961   01 02ECC    00000000 A            DATA     X'0'
     7962   01 02ECD    00000000 A            DATA     X'0'
     7963   01 02ECE    00000000 A            DATA     X'0'
     7964   01 02ECF    00000000 A            DATA     X'0'
     7965   01 02ED0    0000029D A            DATA     X'29D'
     7966   01 02ED1    0000009C A            DATA     X'9C'
     7967   01 02ED2    120A00A0 A   DD10     MODULE                     DD - L=3
     7968   01 02ED3    7A303800              DD,3     MEMORY
     7969   01 02ED4    033011DD              K        0,3,3,LOC
     7970   01 02ED5    033011DF              K        0,3,3,LOC+2
     7971   01 02ED6    00000000 A            DATA     X'0'
     7972   01 02ED7    00000000 A            DATA     X'0'
     7973   01 02ED8    00073D00 A            DATA     X'00073D00'
     7974   01 02ED9    00073D00 A            DATA     X'00073D00'
     7975   01 02EDA    00000000 A            DATA     X'0'
     7976   01 02EDB    0000029C A            DATA     X'29C'
     7977   01 02EDC    00000000 A            DATA     X'0'
     7978   01 02EDD    00000000 A            DATA     X'0'
     7979   01 02EDE    00000000 A            DATA     X'0'
     7980   01 02EDF    00000000 A            DATA     X'0'
     7981   01 02EE0    00000000 A            DATA     X'0'
     7982   01 02EE1    00000000 A            DATA     X'0'
     7983   01 02EE2    0000029C A            DATA     X'29C'
     7984   01 02EE3    0000000C A            DATA     X'C'
     7985   01 02EE4    120B00A1 A   DD11     MODULE                     DD - L=4
     7986   01 02EE5    7A403800              DD,4     MEMORY
     7987   01 02EE6    033011DD              K        0,3,3,LOC
     7988   01 02EE7    133011DF              K        1,3,3,LOC+2
     7989   01 02EE8    00000000 A            DATA     X'0'
     7990   01 02EE9    00000000 A            DATA     X'0'
     7991   01 02EEA    0000073C A            DATA     X'0000073C'
     7992   01 02EEB    0000073C A            DATA     X'0000073C'
     7993   01 02EEC    00000000 A            DATA     X'0'
     7994   01 02EED    0000026D A            DATA     X'26D'
     7995   01 02EEE    00000000 A            DATA     X'0'
     7996   01 02EEF    00000000 A            DATA     X'0'
     7997   01 02EF0    00000000 A            DATA     X'0'
     7998   01 02EF1    00000000 A            DATA     X'0'
     7999   01 02EF2    00000000 A            DATA     X'0'
     8000   01 02EF3    00000000 A            DATA     X'0'
     8001   01 02EF4    0000829D A            DATA     X'829D'
     8002   01 02EF5    0000011D A            DATA     X'11D'
     8003   01 02EF6    120C00A2 A   DD12     MODULE                     DD - PREVIOUSLY INTERRUPTED
     8004   01 02EF7    7A103800              DD,1     MEMORY
     8005   01 02EF8    033011DD              K        0,3,3,LOC
     8006   01 02EF9    233011DF              K        2,3,3,LOC+2
     8007   01 02EFA    00000000 A            DATA     X'0'
     8008   01 02EFB    00000000 A            DATA     X'0'
     8009   01 02EFC    3D000000 A            DATA     X'3D000000'
     8010   01 02EFD    3D000000 A            DATA     X'3D000000'
     8011   01 02EFE    000014D0 A            DATA     X'14D0'
     8012   01 02EFF    0000002D A            DATA     X'2D'
     8013   01 02F00    00000000 A            DATA     X'0'
     8014   01 02F01    00000000 A            DATA     X'0'
     8015   01 02F02    00000000 A            DATA     X'0'
     8016   01 02F03    00000000 A            DATA     X'0'
     8017   01 02F04    00000000 A            DATA     X'0'
     8018   01 02F05    00000000 A            DATA     X'0'
     8019   01 02F06    00000112 A            DATA     X'112'
     8020   01 02F07    0000145C A            DATA     X'145C'
     8021   01 02F08    120D00A3 A   DD13     MODULE                     DD - PREVIOUSLY INTERRUPTED
     8022   01 02F09    7A803800              DD,8     MEMORY
     8023   01 02F0A    033011DD              K        0,3,3,LOC
     8024   01 02F0B    133011DF              K        1,3,3,LOC+2
     8025   01 02F0C    D0703569 A            DATA     X'D0703569'
     8026   01 02F0D    18596139 A            DATA     X'18596139'
     8027   01 02F0E    35178496 A            DATA     X'35178496'
     8028   01 02F0F    35178496 A            DATA     X'35178496'
     8029   01 02F10    92560863 A            DATA     X'92560863'
     8030   01 02F11    4765962D A            DATA     X'4765962D'
     8031   01 02F12    2804322C A            DATA     X'2804322C'
     8032   01 02F13    2804322C A            DATA     X'2804322C'
     8033   01 02F14    88239146 A            DATA     X'88239146'
     8034   01 02F15    99999999 A            DATA     X'99999999'
     8035   01 02F16    00000000 A            DATA     X'0'
     8036   01 02F17    00000000 A            DATA     X'0'
     8037   01 02F18    91573188 A            DATA     X'91573188'
     8038   01 02F19    9999998D A            DATA     X'9999998D'
     8039   01 02F1A    120E00A4 A   DD14     MODULE                     DD - PREVIOUSLY INTERRUPTED
     8040   01 02F1B    7A103800              DD,1     MEMORY
     8041   01 02F1C    033011DD              K        0,3,3,LOC
     8042   01 02F1D    133011DF              K        1,3,3,LOC+2
     8043   01 02F1E    00000002 A            DATA     X'2'
     8044   01 02F1F    00000000 A            DATA     X'0'
     8045   01 02F20    3D000000 A            DATA     X'3D000000'
     8046   01 02F21    3D000000 A            DATA     X'3D000000'
     8047   01 02F22    1100C000 A            DATA     X'1100C000'
     8048   01 02F23    0000001C A            DATA     X'1C'
     8049   01 02F24    00000000 A            DATA     X'0'
     8050   01 02F25    00000000 A            DATA     X'0'
     8051   01 02F26    00000000 A            DATA     X'0'
     8052   01 02F27    00000002 A            DATA     X'2'
     8053   01 02F28    00000000 A            DATA     X'0'
     8054   01 02F29    00000000 A            DATA     X'0'
     8055   01 02F2A    00000010 A            DATA     X'10'
     8056   01 02F2B    1100000D A            DATA     X'1100000D'
     8057   01 02F2C    120F00A5 A   DD15     MODULE                     DD - ZERO QUOTIENT, POS REMAINDER
     8058   01 02F2D    7A303800              DD,3     MEMORY
     8059   01 02F2E    033011DD              K        0,3,3,LOC
     8060   01 02F2F    033011DF              K        0,3,3,LOC+2
     8061   01 02F30    00000000 A            DATA     X'0'
     8062   01 02F31    00000000 A            DATA     X'0'
     8063   01 02F32    02468C00 A            DATA     X'02468C00'
     8064   01 02F33    02468C00 A            DATA     X'02468C00'
     8065   01 02F34    00000000 A            DATA     X'0'
     8066   01 02F35    0000009C A            DATA     X'9C'
     8067   01 02F36    00000000 A            DATA     X'0'
     8068   01 02F37    00000000 A            DATA     X'0'
     8069   01 02F38    00000000 A            DATA     X'0'
     8070   01 02F39    00000000 A            DATA     X'0'
     8071   01 02F3A    00000000 A            DATA     X'0'
     8072   01 02F3B    00000000 A            DATA     X'0'
     8073   01 02F3C    0000009C A            DATA     X'9C'
     8074   01 02F3D    0000000C A            DATA     X'C'
     8075   01 02F3E    121000A6 A   DD16     MODULE                     DD-DIVIDE -9 BY +2468
     8076   01 02F3F    7A303800              DD,3     MEMORY
     8077   01 02F40    F33011DD              K        15,3,3,LOC        PSW1 IN
     8078   01 02F41    033011DF              K         0,3,3,LOC+2      PSW1 OUT
     8079   01 02F42    00000000 A            DATA     X'0'              R12 IN
     8080   01 02F43    00000000 A            DATA     X'0'              R12 OUT
     8081   01 02F44    02468C77 A            DATA     X'02468C77'       MEMORY+0 IN
     8082   01 02F45    02468C77 A            DATA     X'02468C77'       MEMORY+0 OUT
     8083   01 02F46    00000000 A            DATA     X'0'              R13 IN
     8084   01 02F47    0000009D A            DATA     X'9D'             R13 OUT
     8085   01 02F48    00000000 A            DATA     X'0'              MEMORY+1 IN
     8086   01 02F49    00000000 A            DATA     X'0'              MEMORY+1 OUT
     8087   01 02F4A    00000000 A            DATA     X'0'              R14 IN
     8088   01 02F4B    00000000 A            DATA     X'0'              R14 OUT
     8089   01 02F4C    00000000 A            DATA     X'0'              MEMORY+2 IN
     8090   01 02F4D    00000000 A            DATA     X'0'              MEMORY+2 OUT
     8091   01 02F4E    0000009D A            DATA     X'9D'             R15 IN
     8092   01 02F4F    0000000C A            DATA     X'C'              R15 OUT
     8093   01 02F50    121100A7 A   DD17     MODULE                     DD-DIVIDE FIELD OF NINES BY 999
     8094   01 02F51    7A403800              DD,4     MEMORY
     8095   01 02F52    D33011DD              K        13,3,3,LOC        PSW1 IN
     8096   01 02F53    133011DF              K         1,3,3,LOC+2      PSW1 OUT
     8097   01 02F54    00000000 A            DATA     X'0'              R12 IN
     8098   01 02F55    00000000 A            DATA     X'0'              R12 OUT
     8099   01 02F56    0000999C A            DATA     X'999C'           MEMORY+0 IN
     8100   01 02F57    0000999C A            DATA     X'999C'           MEMORY+0 OUT
     8101   01 02F58    00000009 A            DATA     X'9'              R13 IN
     8102   01 02F59    0000009D A            DATA     X'9D'             R13 OUT
     8103   01 02F5A    00000000 A            DATA     X'0'              MEMORY+1 IN
     8104   01 02F5B    00000000 A            DATA     X'0'              MEMORY+1 OUT
     8105   01 02F5C    99999999 A            DATA     X'99999999'       R14 IN
     8106   01 02F5D    01001001 A            DATA     X'01001001'       R14 OUT
     8107   01 02F5E    00000000 A            DATA     X'0'              MEMORY+2 IN
     8108   01 02F5F    00000000 A            DATA     X'0'              MEMORY+2 OUT
     8109   01 02F60    9999999D A            DATA     X'9999999D'       R15 IN
     8110   01 02F61    0010010D A            DATA     X'0010010D'       R15 OUT
     8111   01 02F62    121200A8 A   DD18     MODULE                     DD-DIVIDE -1 BY -1
     8112   01 02F63    7A203800              DD,2     MEMORY
     8113   01 02F64    E33011DD              K        14,3,3,LOC        PSW1 IN
     8114   01 02F65    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     8115   01 02F66    00000000 A            DATA     X'0'              R12 IN
     8116   01 02F67    00000000 A            DATA     X'0'              R12 OUT
     8117   01 02F68    001D0000 A            DATA     X'001D0000'       MEMORY+0 IN
     8118   01 02F69    001D0000 A            DATA     X'001D0000'       MEMORY+0 OUT
     8119   01 02F6A    00000000 A            DATA     X'0'              R13 IN
     8120   01 02F6B    0000000D A            DATA     X'D'              R13 OUT
     8121   01 02F6C    00000000 A            DATA     X'0'              MEMORY+1 IN
     8122   01 02F6D    00000000 A            DATA     X'0'              MEMORY+1 OUT
     8123   01 02F6E    00000000 A            DATA     X'0'              R14 IN
     8124   01 02F6F    00000000 A            DATA     X'0'              R14 OUT
     8125   01 02F70    00000000 A            DATA     X'0'              MEMORY+2 IN
     8126   01 02F71    00000000 A            DATA     X'0'              MEMORY+2 OUT
     8127   01 02F72    0000001D A            DATA     X'1D'             R15 IN
     8128   01 02F73    0000001C A            DATA     X'1C'             R15 OUT
     8129   01 02F74    121300A9 A   DD19     MODULE                     DD-TRAP ON ILLEGAL L FIELD
     8130   01 02F75    7AA03800              DD,10    MEMORY
     8131   01 02F76    733011E2              K         7,3,3,LOC+5      PSW1 IN
     8132   01 02F77    B330101B              K        11,3,3,EXP:TRAP+5 PSW1 OUT
     8133   01 02F78    12121212 A            DATA     X'12121212'       R12 IN
     8134   01 02F79    12121212 A            DATA     X'12121212'       R12 OUT
     8135   01 02F7A    00000034 A            DATA     X'34'             MEMORY+0 IN
     8136   01 02F7B    00000034 A            DATA     X'34'             MEMORY+0 OUT
     8137   01 02F7C    13131313 A            DATA     X'13131313'       R13 IN
     8138   01 02F7D    13131313 A            DATA     X'13131313'       R13 OUT
     8139   01 02F7E    00000000 A            DATA     X'0'              MEMORY+1 IN
     8140   01 02F7F    00000000 A            DATA     X'0'              MEMORY+1 OUT
     8141   01 02F80    14141414 A            DATA     X'14141414'       R14 IN
     8142   01 02F81    14141414 A            DATA     X'14141414'       R14 OUT
     8143   01 02F82    000D0000 A            DATA     X'000D0000'       MEMORY+2 IN
     8144   01 02F83    000D0000 A            DATA     X'000D0000'       MEMORY+2 OUT
     8145   01 02F84    1515151C A            DATA     X'1515151C'       R15 IN
     8146   01 02F85    1515151C A            DATA     X'1515151C'       R15 OUT
     8147   01 02F86    121400AA A   DD20     MODULE                     DD-RANDOM PATTERN
     8148   01 02F87    7A703800              DD,7     MEMORY
     8149   01 02F88    D33011DD              K        13,3,3,LOC        PSW1 IN
     8150   01 02F89    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     8151   01 02F8A    00015876 A            DATA     X'00015876'       R12 IN
     8152   01 02F8B    00000000 A            DATA     X'0'              R12 OUT
     8153   01 02F8C    53808231 A            DATA     X'53808231'       MEMORY+0 IN
     8154   01 02F8D    53808231 A            DATA     X'53808231'       MEMORY+0 OUT
     8155   01 02F8E    63031352 A            DATA     X'63031352'       R13 IN
     8156   01 02F8F    0000000D A            DATA     X'D'              R13 OUT
     8157   01 02F90    73412B86 A            DATA     X'73412B86'       MEMORY+1 IN
     8158   01 02F91    73412B86 A            DATA     X'73412B86'       MEMORY+1 OUT
     8159   01 02F92    97390640 A            DATA     X'97390640'       R14 IN
     8160   01 02F93    29505950 A            DATA     X'29505950'       R14 OUT
     8161   01 02F94    00000000 A            DATA     X'0'              MEMORY+2 IN
     8162   01 02F95    00000000 A            DATA     X'0'              MEMORY+2 OUT
     8163   01 02F96    0455028B A            DATA     X'0455028B'       R15 IN
     8164   01 02F97    6730869C A            DATA     X'6730869C'       R15 OUT
     8165   01 02F98    121500AB A   DD21     MODULE                     DD-RANDOM PATTERN
     8166   01 02F99    7A603800              DD,6     MEMORY
     8167   01 02F9A    D33011DD              K        13,3,3,LOC        PSW1 IN
     8168   01 02F9B    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     8169   01 02F9C    00000067 A            DATA     X'67'             R12 IN
     8170   01 02F9D    00000000 A            DATA     X'0'              R12 OUT
     8171   01 02F9E    47912447 A            DATA     X'47912447'       MEMORY+0 IN
     8172   01 02F9F    47912447 A            DATA     X'47912447'       MEMORY+0 OUT
     8173   01 02FA0    11632647 A            DATA     X'11632647'       R13 IN
     8174   01 02FA1    0000000C A            DATA     X'C'              R13 OUT
     8175   01 02FA2    267C0000 A            DATA     X'267C0000'       MEMORY+1 IN
     8176   01 02FA3    267C0000 A            DATA     X'267C0000'       MEMORY+1 OUT
     8177   01 02FA4    30007089 A            DATA     X'30007089'       R14 IN
     8178   01 02FA5    14008119 A            DATA     X'14008119'       R14 OUT
     8179   01 02FA6    00000000 A            DATA     X'0'              MEMORY+2 IN
     8180   01 02FA7    00000000 A            DATA     X'0'              MEMORY+2 OUT
     8181   01 02FA8    7180233C A            DATA     X'7180233C'       R15 IN
     8182   01 02FA9    0382499C A            DATA     X'0382499C'       R15 OUT
     8183   01 02FAA    121600AC A   DD22     MODULE                     DD-RANDOM PATTERN
     8184   01 02FAB    7A503800              DD,5     MEMORY
     8185   01 02FAC    D33011DD              K        13,3,3,LOC        PSW1 IN
     8186   01 02FAD    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     8187   01 02FAE    00000006 A            DATA     X'6'              R12 IN
     8188   01 02FAF    00000000 A            DATA     X'0'              R12 OUT
     8189   01 02FB0    93765872 A            DATA     X'93765872'       MEMORY+0 IN
     8190   01 02FB1    93765872 A            DATA     X'93765872'       MEMORY+0 OUT
     8191   01 02FB2    33519031 A            DATA     X'33519031'       R13 IN
     8192   01 02FB3    0000000C A            DATA     X'C'              R13 OUT
     8193   01 02FB4    4C000000 A            DATA     X'4C000000'       MEMORY+1 IN
     8194   01 02FB5    4C000000 A            DATA     X'4C000000'       MEMORY+1 OUT
     8195   01 02FB6    16906330 A            DATA     X'16906330'       R14 IN
     8196   01 02FB7    67563924 A            DATA     X'67563924'       R14 OUT
     8197   01 02FB8    00000000 A            DATA     X'0'              MEMORY+2 IN
     8198   01 02FB9    00000000 A            DATA     X'0'              MEMORY+2 OUT
     8199   01 02FBA    1414144C A            DATA     X'1414144C'       R15 IN
     8200   01 02FBB    3739456C A            DATA     X'3739456C'       R15 OUT
     8201   01 02FBC    121700AD A   DD23     MODULE                     DD-EXAMPLE FROM DEC UNIT TECH MAN
     8202   01 02FBD    7A103800              DD,1     MEMORY
     8203   01 02FBE    033011DD              K         0,3,3,LOC        PSW1 IN
     8204   01 02FBF    233011DF              K         2,3,3,LOC+2      PSW1 OUT
     8205   01 02FC0    00000000 A            DATA     X'0'              R12 IN
     8206   01 02FC1    00000000 A            DATA     X'0'              R12 OUT
     8207   01 02FC2    3D000000 A            DATA     X'3D000000'       MEMORY+0 IN
     8208   01 02FC3    3D000000 A            DATA     X'3D000000'       MEMORY+0 OUT
     8209   01 02FC4    00000000 A            DATA     X'0'              R13 IN
     8210   01 02FC5    0000002D A            DATA     X'2D'             R13 OUT
     8211   01 02FC6    00000000 A            DATA     X'0'              MEMORY+1 IN
     8212   01 02FC7    00000000 A            DATA     X'0'              MEMORY+1 OUT
     8213   01 02FC8    00000000 A            DATA     X'0'              R14 IN
     8214   01 02FC9    00000000 A            DATA     X'0'              R14 OUT
     8215   01 02FCA    00000000 A            DATA     X'0'              MEMORY+2 IN
     8216   01 02FCB    00000000 A            DATA     X'0'              MEMORY+2 OUT
     8217   01 02FCC    0000437D A            DATA     X'0000437D'       R15 IN
     8218   01 02FCD    0000145C A            DATA     X'0000145C'       R15 OUT
     8219   01 02FCE    121800AE A   DD24     MODULE
     8220   01 02FCF    7A803800              DD,8     MEMORY
     8221   01 02FD0    F33011DD              K              15,3,3,LOC      PSW1 IN
     8222   01 02FD1    033011DF              K              0,3,3,LOC+2          OUT
     8223   01 02FD2    00000000 A            DATA     0                 R12 IN
     8224   01 02FD3    00000000 A            DATA     0                     OUT
     8225   01 02FD4    99999999 A            DATA     X'99999999'       MEMORY+0 IN
     8226   01 02FD5    99999999 A            DATA     X'99999999'             +0 OUT
     8227   01 02FD6    00000000 A            DATA     0                 R13 IN
     8228   01 02FD7    0000000C A            DATA     X'C'                  OUT
     8229   01 02FD8    9999999C A            DATA     X'9999999C'       MEMORY+1 IN
     8230   01 02FD9    9999999C A            DATA     X'9999999C'       MEMORY+1 OUT
     8231   01 02FDA    00000000 A            DATA     0                 R14 IN
     8232   01 02FDB    00000000 A            DATA     0                     OUT
     8233   01 02FDC    00000000 A            DATA     0                 MEMORY+2 IN
     8234   01 02FDD    00000000 A            DATA     0                     +2 OUT
     8235   01 02FDE    0000000C A            DATA     X'C'              R15 IN
     8236   01 02FDF    0000000C A            DATA     X'C'                  OUT
     8237   01 02FE0    121900AF A   DD25     MODULE
     8238   01 02FE1    7A103800              DD,1     MEMORY
     8239   01 02FE2    F31011DD              K              15,3,1,LOC      PSW1 IN
     8240   01 02FE3    731011DF              K              7,3,1,LOC+2          OUT
     8241   01 02FE4    00000000 A            DATA     0                 R12 IN
     8242   01 02FE5    00000000 A            DATA     0                     OUT
     8243   01 02FE6    0D000000 A            DATA     X'0D000000'       MEMORY+0 IN
     8244   01 02FE7    0D000000 A            DATA     X'0D000000'             +0 OUT
     8245   01 02FE8    00000000 A            DATA     0                 R13 IN
     8246   01 02FE9    00000000 A            DATA     0                 R13 OUT
     8247   01 02FEA    00000000 A            DATA     0                 MEMORY+1 IN
     8248   01 02FEB    00000000 A            DATA     0                       +1 OUT
     8249   01 02FEC    00000000 A            DATA     0                 R14 IN
     8250   01 02FED    00000000 A            DATA     0                     OUT
     8251   01 02FEE    00000000 A            DATA     0                 MEMORY+2 IN
     8252   01 02FEF    00000000 A            DATA     0                       +2 OUT
     8253   01 02FF0    0000000C A            DATA     X'C'              R15 IN
     8254   01 02FF1    0000000C A            DATA     X'C'                  OUT
     8255   01 02FF2    121A00B0 A   DD26     MODULE
     8256   01 02FF3    7A803800              DD,8     MEMORY
     8257   01 02FF4    E33011DD              K        14,3,3,LOC
     8258   01 02FF5    233011DF              K        2,3,3,LOC+2
     8259   01 02FF6    00000783 A            DATA     X'783'
     8260   01 02FF7    00000000 A            DATA     0
     8261   01 02FF8    00097998 A            DATA     X'97998'
     8262   01 02FF9    00097998 A            DATA     X'97998'
     8263   01 02FFA    40349266 A            DATA     X'40349266'
     8264   01 02FFB    0000000C A            DATA     12
     8265   01 02FFC    9393760C A            DATA     X'9393760C'
     8266   01 02FFD    9393760C A            DATA     X'9393760C'
     8267   01 02FFE    36407023 A            DATA     X'36407023'
     8268   01 02FFF    07993999 A            DATA     X'07993999'
     8269   01 03000    00000000 A            DATA     0
     8270   01 03001    00000000 A            DATA     0
     8271   01 03002    7643200C A            DATA     X'7643200C'
     8272   01 03003    7070570C A            DATA     X'7070570C'
     8273   01 03004    200100B1 A   EBS01    MODULE   X'63'             PH1-PH5 EXIT TO PH8A VIA A0007Z,
     8274                            *                                   COUNT EQUALS ZERO.
     8275   01 03005    63A0E000              EBS,10   BA(MEMORY)        INSTRUCTION TO BE TESTED.
     8276   01 03006    073011DD              K        0,7,3,LOC
     8277   01 03007    073011DF              K        0,7,3,LOC+2
     8278   01 03008    00000000 A            DATA     0                 R12 IN (R1 IN FOR EBS).
     8279   01 03009    00000000 A            DATA     0                 R12 OUT.
     8280   01 0300A    00000000 A            DATA     0                 MEMORY IN.
     8281   01 0300B    00000000 A            DATA     0                 MEMORY OUT.
     8282   01 0300C    00000000 A            DATA     0                 R13 IN.
     8283   01 0300D    00000000 A            DATA     0                 R13 OUT.
     8284   01 0300E    00000000 A            DATA     0                 MEMORY+1 IN.
     8285   01 0300F    00000000 A            DATA     0                 MEMORY+1 OUT.
     8286   01 03010    00000000 A            DATA     0                 R14 IN.
     8287   01 03011    00000000 A            DATA     0                 R14 OUT.
     8288   01 03012    00000000 A            DATA     0                 MEMORY+2 IN.
     8289   01 03013    00000000 A            DATA     0                 MEMORY+2 OUT.
     8290   01 03014    0000000A A            DATA     10                R15 IN.
     8291   01 03015    0000000A A            DATA     10                R15 OUT.
     8292   01 03016    0000000A A            DATA     10                MEMORY+3 IN.
     8293   01 03017    0000000A A            DATA     10                MEMORY+3 OUT.
     8294   01 03018    00000000 A            DATA     0                 MEMORY+4 IN.
     8295   01 03019    00000000 A            DATA     0                 MEMORY+4 OUT.
     8296   01 0301A    00000000 A            DATA     0                 MEMORY+5 IN.
     8297   01 0301B    00000000 A            DATA     0                 MEMORY+5 OUT.
     8298   01 0301C    00000000 A            DATA     0                 MEMORY+6 IN.
     8299   01 0301D    00000000 A            DATA     0                 MEMORY+6 OUT.
     8300   01 0301E    00000000 A            DATA     0                 MEMORY+7 IN.
     8301   01 0301F    00000000 A            DATA     0                 MEMORY+7 OUT.
     8302   01 03020    40000000 A            GEN,8,24 ' ',0             R10 IN.
     8303   01 03021    0000E000              GEN,8,24 0,BA(MEMORY)      R11 IN.
     8304   01 03022    40000000 A            GEN,8,24 ' ',0             R10 OUT.
     8305   01 03023    0000E000              GEN,8,24 0,BA(MEMORY)      R11 OUT.
     8306   01 03024    200200B2 A   EBS02    MODULE                     PH1-PH5 EXIT TO PH8A VIA SWITCH 3,
     8307                            *                                   INVALID INPUT DIGIT.
     8308   01 03025    63A0E010              EBS,10   BA(MEMORY)+16
     8309   01 03026    073011E2              K        0,7,3,LOC+5
     8310   01 03027    0730101B              K        0,7,3,EXP:TRAP+5
     8311   01 03028    00000000 A            DATA     0
     8312   01 03029    00000000 A            DATA     0
     8313   01 0302A    20202020 A            DATA     X'20202020'
     8314   01 0302B    20202020 A            DATA     X'20202020'
     8315   01 0302C    88888888 A            DATA     X'88888888'
     8316   01 0302D    88888888 A            DATA     X'88888888'
     8317   01 0302E    00000000 A            DATA     0
     8318   01 0302F    00000000 A            DATA     0
     8319   01 03030    88888888 A            DATA     X'88888888'
     8320   01 03031    88888888 A            DATA     X'88888888'
     8321   01 03032    00000000 A            DATA     0
     8322   01 03033    00000000 A            DATA     0
     8323   01 03034    8888888C A            DATA     X'8888888C'
     8324   01 03035    8888888C A            DATA     X'8888888C'
     8325   01 03036    00000000 A            DATA     0
     8326   01 03037    00000000 A            DATA     0
     8327   01 03038    A0000000 A            DATA     X'A0000000'
     8328   01 03039    A0000000 A            DATA     X'A0000000'
     8329   01 0303A    00000000 A            DATA     0
     8330   01 0303B    00000000 A            DATA     0
     8331   01 0303C    00000000 A            DATA     0
     8332   01 0303D    00000000 A            DATA     0
     8333   01 0303E    00000000 A            DATA     0
     8334   01 0303F    00000000 A            DATA     0
     8335   01 03040    40000000 A            GEN,8,24 ' ',0
     8336   01 03041    0100E000              GEN,8,24 1,BA(MEMORY)
     8337   01 03042    40000000 A            GEN,8,24 ' ',0
     8338   01 03043    0100E000              GEN,8,24 1,BA(MEMORY)
     8339                            *                                   TRAP ON INVALID DIGIT. (B)
     8340   01 03044    200300B3 A   EBS03    MODULE
     8341   01 03045    63A0E000              EBS,10   BA(MEMORY)
     8342   01 03046    073011E2              K        0,7,3,LOC+5
     8343   01 03047    0730101B              K        0,7,3,EXP:TRAP+5
     8344   01 03048    00000000 A            DATA     0
     8345   01 03049    00000000 A            DATA     0
     8346   01 0304A    B0000000 A            DATA     X'B0000000'
     8347   01 0304B    B0000000 A            DATA     X'B0000000'
     8348   01 0304C    11111111 A            DATA     X'11111111'
     8349   01 0304D    11111111 A            DATA     X'11111111'
     8350   01 0304E    20202020 A            DATA     X'20202020'
     8351   01 0304F    20202020 A            DATA     X'20202020'
     8352   01 03050    11111111 A            DATA     X'11111111'
     8353   01 03051    11111111 A            DATA     X'11111111'
     8354   01 03052    00000000 A            DATA     0
     8355   01 03053    00000000 A            DATA     0
     8356   01 03054    1111111C A            DATA     X'1111111C'
     8357   01 03055    1111111C A            DATA     X'1111111C'
     8358   01 03056    00000000 A            DATA     0
     8359   01 03057    00000000 A            DATA     0
     8360   01 03058    00000000 A            DATA     0
     8361   01 03059    00000000 A            DATA     0
     8362   01 0305A    00000000 A            DATA     0
     8363   01 0305B    00000000 A            DATA     0
     8364   01 0305C    00000000 A            DATA     0
     8365   01 0305D    00000000 A            DATA     0
     8366   01 0305E    00000000 A            DATA     0
     8367   01 0305F    00000000 A            DATA     0
     8368   01 03060    40000000 A            GEN,8,24 ' ',0
     8369   01 03061    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8370   01 03062    40000000 A            GEN,8,24 ' ',0
     8371   01 03063    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8372                            *                                   TRAP ON INVALID DIGIT. (C)
     8373   01 03064    200400B4 A   EBS04    MODULE
     8374   01 03065    63A0E000              EBS,10   BA(MEMORY)
     8375   01 03066    073011E2              K        0,7,3,LOC+5
     8376   01 03067    0730101B              K        0,7,3,EXP:TRAP+5
     8377   01 03068    00000000 A            DATA     0
     8378   01 03069    00000000 A            DATA     0
     8379   01 0306A    C0000000 A            DATA     X'C0000000'
     8380   01 0306B    C0000000 A            DATA     X'C0000000'
     8381   01 0306C    22222222 A            DATA     X'22222222'
     8382   01 0306D    22222222 A            DATA     X'22222222'
     8383   01 0306E    20202020 A            DATA     X'20202020'
     8384   01 0306F    20202020 A            DATA     X'20202020'
     8385   01 03070    22222222 A            DATA     X'22222222'
     8386   01 03071    22222222 A            DATA     X'22222222'
     8387   01 03072    00000000 A            DATA     0
     8388   01 03073    00000000 A            DATA     0
     8389   01 03074    2222222C A            DATA     X'2222222C'
     8390   01 03075    2222222C A            DATA     X'2222222C'
     8391   01 03076    00000000 A            DATA     0
     8392   01 03077    00000000 A            DATA     0
     8393   01 03078    00000000 A            DATA     0
     8394   01 03079    00000000 A            DATA     0
     8395   01 0307A    00000000 A            DATA     0
     8396   01 0307B    00000000 A            DATA     0
     8397   01 0307C    00000000 A            DATA     0
     8398   01 0307D    00000000 A            DATA     0
     8399   01 0307E    00000000 A            DATA     0
     8400   01 0307F    00000000 A            DATA     0
     8401   01 03080    40000000 A            GEN,8,24 ' ',0
     8402   01 03081    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8403   01 03082    40000000 A            GEN,8,24 ' ',0
     8404   01 03083    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8405                            *                                   TRAP ON INVALID DIGIT. (D)
     8406   01 03084    200500B5 A   EBS05    MODULE
     8407   01 03085    63A0E000              EBS,10   BA(MEMORY)
     8408   01 03086    073011E2              K        0,7,3,LOC+5
     8409   01 03087    0730101B              K        0,7,3,EXP:TRAP+5
     8410   01 03088    00000000 A            DATA     0
     8411   01 03089    00000000 A            DATA     0
     8412   01 0308A    D0000000 A            DATA     X'D0000000'
     8413   01 0308B    D0000000 A            DATA     X'D0000000'
     8414   01 0308C    33333333 A            DATA     X'33333333'
     8415   01 0308D    33333333 A            DATA     X'33333333'
     8416   01 0308E    20202020 A            DATA     X'20202020'
     8417   01 0308F    20202020 A            DATA     X'20202020'
     8418   01 03090    33333333 A            DATA     X'33333333'
     8419   01 03091    33333333 A            DATA     X'33333333'
     8420   01 03092    00000000 A            DATA     0
     8421   01 03093    00000000 A            DATA     0
     8422   01 03094    3333333C A            DATA     X'3333333C'
     8423   01 03095    3333333C A            DATA     X'3333333C'
     8424   01 03096    00000000 A            DATA     0
     8425   01 03097    00000000 A            DATA     0
     8426   01 03098    00000000 A            DATA     0
     8427   01 03099    00000000 A            DATA     0
     8428   01 0309A    00000000 A            DATA     0
     8429   01 0309B    00000000 A            DATA     0
     8430   01 0309C    00000000 A            DATA     0
     8431   01 0309D    00000000 A            DATA     0
     8432   01 0309E    00000000 A            DATA     0
     8433   01 0309F    00000000 A            DATA     0
     8434   01 030A0    40000000 A            GEN,8,24 ' ',0
     8435   01 030A1    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8436   01 030A2    40000000 A            GEN,8,24 ' ',0
     8437   01 030A3    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8438                            *                                   TRAP ON INVALID DIGIT. (E)
     8439   01 030A4    200600B6 A   EBS06    MODULE
     8440   01 030A5    63A0E000              EBS,10   BA(MEMORY)
     8441   01 030A6    073011E2              K        0,7,3,LOC+5
     8442   01 030A7    0730101B              K        0,7,3,EXP:TRAP+5
     8443   01 030A8    00000000 A            DATA     0
     8444   01 030A9    00000000 A            DATA     0
     8445   01 030AA    E0000000 A            DATA     X'E0000000'
     8446   01 030AB    E0000000 A            DATA     X'E0000000'
     8447   01 030AC    44444444 A            DATA     X'44444444'
     8448   01 030AD    44444444 A            DATA     X'44444444'
     8449   01 030AE    20202020 A            DATA     X'20202020'
     8450   01 030AF    20202020 A            DATA     X'20202020'
     8451   01 030B0    44444444 A            DATA     X'44444444'
     8452   01 030B1    44444444 A            DATA     X'44444444'
     8453   01 030B2    00000000 A            DATA     0
     8454   01 030B3    00000000 A            DATA     0
     8455   01 030B4    4444444C A            DATA     X'4444444C'
     8456   01 030B5    4444444C A            DATA     X'4444444C'
     8457   01 030B6    00000000 A            DATA     0
     8458   01 030B7    00000000 A            DATA     0
     8459   01 030B8    00000000 A            DATA     0
     8460   01 030B9    00000000 A            DATA     0
     8461   01 030BA    00000000 A            DATA     0
     8462   01 030BB    00000000 A            DATA     0
     8463   01 030BC    00000000 A            DATA     0
     8464   01 030BD    00000000 A            DATA     0
     8465   01 030BE    00000000 A            DATA     0
     8466   01 030BF    00000000 A            DATA     0
     8467   01 030C0    40000000 A            GEN,8,24 ' ',0
     8468   01 030C1    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8469   01 030C2    40000000 A            GEN,8,24 ' ',0
     8470   01 030C3    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8471                            *                                   TRAP ON INVALID DIGIT. (F)
     8472   01 030C4    200700B7 A   EBS07    MODULE
     8473   01 030C5    63A0E000              EBS,10   BA(MEMORY)
     8474   01 030C6    073011E2              K        0,7,3,LOC+5
     8475   01 030C7    0730101B              K        0,7,3,EXP:TRAP+5
     8476   01 030C8    00000000 A            DATA     0
     8477   01 030C9    00000000 A            DATA     0
     8478   01 030CA    F0000000 A            DATA     X'F0000000'
     8479   01 030CB    F0000000 A            DATA     X'F0000000'
     8480   01 030CC    55555555 A            DATA     X'55555555'
     8481   01 030CD    55555555 A            DATA     X'55555555'
     8482   01 030CE    20202020 A            DATA     X'20202020'
     8483   01 030CF    20202020 A            DATA     X'20202020'
     8484   01 030D0    55555555 A            DATA     X'55555555'
     8485   01 030D1    55555555 A            DATA     X'55555555'
     8486   01 030D2    00000000 A            DATA     0
     8487   01 030D3    00000000 A            DATA     0
     8488   01 030D4    5555555D A            DATA     X'5555555D'
     8489   01 030D5    5555555D A            DATA     X'5555555D'
     8490   01 030D6    00000000 A            DATA     0
     8491   01 030D7    00000000 A            DATA     0
     8492   01 030D8    00000000 A            DATA     0
     8493   01 030D9    00000000 A            DATA     0
     8494   01 030DA    00000000 A            DATA     0
     8495   01 030DB    00000000 A            DATA     0
     8496   01 030DC    00000000 A            DATA     0
     8497   01 030DD    00000000 A            DATA     0
     8498   01 030DE    00000000 A            DATA     0
     8499   01 030DF    00000000 A            DATA     0
     8500   01 030E0    40000000 A            GEN,8,24 ' ',0
     8501   01 030E1    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8502   01 030E2    40000000 A            GEN,8,24 ' ',0
     8503   01 030E3    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8504                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     8505   01 030E4    200800B8 A   EBS08    MODULE
     8506   01 030E5    63A0E000              EBS,10   BA(MEMORY)
     8507   01 030E6    473011E2              K        4,7,3,LOC+5
     8508   01 030E7    4730101B              K        4,7,3,EXP:TRAP+5
     8509   01 030E8    00000000 A            DATA     0
     8510   01 030E9    00000000 A            DATA     0
     8511   01 030EA    0A000000 A            DATA     X'0A000000'
     8512   01 030EB    0A000000 A            DATA     X'0A000000'
     8513   01 030EC    66666666 A            DATA     X'66666666'
     8514   01 030ED    66666666 A            DATA     X'66666666'
     8515   01 030EE    20202020 A            DATA     X'20202020'
     8516   01 030EF    20202020 A            DATA     X'20202020'
     8517   01 030F0    66666666 A            DATA     X'66666666'
     8518   01 030F1    66666666 A            DATA     X'66666666'
     8519   01 030F2    00000000 A            DATA     0
     8520   01 030F3    00000000 A            DATA     0
     8521   01 030F4    6666666D A            DATA     X'6666666D'
     8522   01 030F5    6666666D A            DATA     X'6666666D'
     8523   01 030F6    00000000 A            DATA     0
     8524   01 030F7    00000000 A            DATA     0
     8525   01 030F8    00000000 A            DATA     0
     8526   01 030F9    00000000 A            DATA     0
     8527   01 030FA    00000000 A            DATA     0
     8528   01 030FB    00000000 A            DATA     0
     8529   01 030FC    00000000 A            DATA     0
     8530   01 030FD    00000000 A            DATA     0
     8531   01 030FE    00000000 A            DATA     0
     8532   01 030FF    00000000 A            DATA     0
     8533   01 03100    40000000 A            GEN,8,24 ' ',0
     8534   01 03101    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8535   01 03102    40000000 A            GEN,8,24 ' ',0
     8536   01 03103    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8537                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     8538   01 03104    200900B9 A   EBS09    MODULE
     8539   01 03105    63A0E000              EBS,10   BA(MEMORY)
     8540   01 03106    473011E2              K        4,7,3,LOC+5
     8541   01 03107    4730101B              K        4,7,3,EXP:TRAP+5
     8542   01 03108    00000000 A            DATA     0
     8543   01 03109    00000000 A            DATA     0
     8544   01 0310A    0B000000 A            DATA     X'0B000000'
     8545   01 0310B    0B000000 A            DATA     X'0B000000'
     8546   01 0310C    77777777 A            DATA     X'77777777'
     8547   01 0310D    77777777 A            DATA     X'77777777'
     8548   01 0310E    20202020 A            DATA     X'20202020'
     8549   01 0310F    20202020 A            DATA     X'20202020'
     8550   01 03110    77777777 A            DATA     X'77777777'
     8551   01 03111    77777777 A            DATA     X'77777777'
     8552   01 03112    00000000 A            DATA     0
     8553   01 03113    00000000 A            DATA     0
     8554   01 03114    7777777D A            DATA     X'7777777D'
     8555   01 03115    7777777D A            DATA     X'7777777D'
     8556   01 03116    00000000 A            DATA     0
     8557   01 03117    00000000 A            DATA     0
     8558   01 03118    00000000 A            DATA     0
     8559   01 03119    00000000 A            DATA     0
     8560   01 0311A    00000000 A            DATA     0
     8561   01 0311B    00000000 A            DATA     0
     8562   01 0311C    00000000 A            DATA     0
     8563   01 0311D    00000000 A            DATA     0
     8564   01 0311E    00000000 A            DATA     0
     8565   01 0311F    00000000 A            DATA     0
     8566   01 03120    40000000 A            GEN,8,24 ' ',0
     8567   01 03121    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8568   01 03122    40000000 A            GEN,8,24 ' ',0
     8569   01 03123    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8570                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     8571   01 03124    200A00BA A   EBS10    MODULE
     8572   01 03125    63A0E000              EBS,10   BA(MEMORY)
     8573   01 03126    473011E2              K        4,7,3,LOC+5
     8574   01 03127    4730101B              K        4,7,3,EXP:TRAP+5
     8575   01 03128    00000000 A            DATA     0
     8576   01 03129    00000000 A            DATA     0
     8577   01 0312A    0C000000 A            DATA     X'0C000000'
     8578   01 0312B    0C000000 A            DATA     X'0C000000'
     8579   01 0312C    88888888 A            DATA     X'88888888'
     8580   01 0312D    88888888 A            DATA     X'88888888'
     8581   01 0312E    20202020 A            DATA     X'20202020'
     8582   01 0312F    20202020 A            DATA     X'20202020'
     8583   01 03130    88888888 A            DATA     X'88888888'
     8584   01 03131    88888888 A            DATA     X'88888888'
     8585   01 03132    00000000 A            DATA     0
     8586   01 03133    00000000 A            DATA     0
     8587   01 03134    8888888D A            DATA     X'8888888D'
     8588   01 03135    8888888D A            DATA     X'8888888D'
     8589   01 03136    00000000 A            DATA     0
     8590   01 03137    00000000 A            DATA     0
     8591   01 03138    00000000 A            DATA     0
     8592   01 03139    00000000 A            DATA     0
     8593   01 0313A    00000000 A            DATA     0
     8594   01 0313B    00000000 A            DATA     0
     8595   01 0313C    00000000 A            DATA     0
     8596   01 0313D    00000000 A            DATA     0
     8597   01 0313E    00000000 A            DATA     0
     8598   01 0313F    00000000 A            DATA     0
     8599   01 03140    40000000 A            GEN,8,24 ' ',0
     8600   01 03141    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8601   01 03142    40000000 A            GEN,8,24 ' ',0
     8602   01 03143    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8603                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     8604   01 03144    200B00BB A   EBS11    MODULE
     8605   01 03145    63A0E000              EBS,10   BA(MEMORY)
     8606   01 03146    473011E2              K        4,7,3,LOC+5
     8607   01 03147    4730101B              K        4,7,3,EXP:TRAP+5
     8608   01 03148    00000000 A            DATA     0
     8609   01 03149    00000000 A            DATA     0
     8610   01 0314A    0D000000 A            DATA     X'0D000000'
     8611   01 0314B    0D000000 A            DATA     X'0D000000'
     8612   01 0314C    99999999 A            DATA     X'99999999'
     8613   01 0314D    99999999 A            DATA     X'99999999'
     8614   01 0314E    20202020 A            DATA     X'20202020'
     8615   01 0314F    20202020 A            DATA     X'20202020'
     8616   01 03150    99999999 A            DATA     X'99999999'
     8617   01 03151    99999999 A            DATA     X'99999999'
     8618   01 03152    00000000 A            DATA     0
     8619   01 03153    00000000 A            DATA     0
     8620   01 03154    9999999D A            DATA     X'9999999D'
     8621   01 03155    9999999D A            DATA     X'9999999D'
     8622   01 03156    00000000 A            DATA     0
     8623   01 03157    00000000 A            DATA     0
     8624   01 03158    00000000 A            DATA     0
     8625   01 03159    00000000 A            DATA     0
     8626   01 0315A    00000000 A            DATA     0
     8627   01 0315B    00000000 A            DATA     0
     8628   01 0315C    00000000 A            DATA     0
     8629   01 0315D    00000000 A            DATA     0
     8630   01 0315E    00000000 A            DATA     0
     8631   01 0315F    00000000 A            DATA     0
     8632   01 03160    40000000 A            GEN,8,24 ' ',0
     8633   01 03161    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8634   01 03162    40000000 A            GEN,8,24 ' ',0
     8635   01 03163    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8636                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     8637   01 03164    200C00BC A   EBS12    MODULE
     8638   01 03165    63A0E000              EBS,10   BA(MEMORY)
     8639   01 03166    473011E2              K        4,7,3,LOC+5
     8640   01 03167    4730101B              K        4,7,3,EXP:TRAP+5
     8641   01 03168    00000000 A            DATA     0
     8642   01 03169    00000000 A            DATA     0
     8643   01 0316A    0E000000 A            DATA     X'0E000000'
     8644   01 0316B    0E000000 A            DATA     X'0E000000'
     8645   01 0316C    11111111 A            DATA     X'11111111'
     8646   01 0316D    11111111 A            DATA     X'11111111'
     8647   01 0316E    20202020 A            DATA     X'20202020'
     8648   01 0316F    20202020 A            DATA     X'20202020'
     8649   01 03170    11111111 A            DATA     X'11111111'
     8650   01 03171    11111111 A            DATA     X'11111111'
     8651   01 03172    00000000 A            DATA     0
     8652   01 03173    00000000 A            DATA     0
     8653   01 03174    1111111D A            DATA     X'1111111D'
     8654   01 03175    1111111D A            DATA     X'1111111D'
     8655   01 03176    00000000 A            DATA     0
     8656   01 03177    00000000 A            DATA     0
     8657   01 03178    00000000 A            DATA     0
     8658   01 03179    00000000 A            DATA     0
     8659   01 0317A    00000000 A            DATA     0
     8660   01 0317B    00000000 A            DATA     0
     8661   01 0317C    00000000 A            DATA     0
     8662   01 0317D    00000000 A            DATA     0
     8663   01 0317E    00000000 A            DATA     0
     8664   01 0317F    00000000 A            DATA     0
     8665   01 03180    40000000 A            GEN,8,24 ' ',0
     8666   01 03181    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8667   01 03182    40000000 A            GEN,8,24 ' ',0
     8668   01 03183    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8669                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     8670   01 03184    200D00BD A   EBS13    MODULE
     8671   01 03185    63A0E000              EBS,10   BA(MEMORY)
     8672   01 03186    473011E2              K        4,7,3,LOC+5
     8673   01 03187    4730101B              K        4,7,3,EXP:TRAP+5
     8674   01 03188    00000000 A            DATA     0
     8675   01 03189    00000000 A            DATA     0
     8676   01 0318A    0F000000 A            DATA     X'0F000000'
     8677   01 0318B    0F000000 A            DATA     X'0F000000'
     8678   01 0318C    22222222 A            DATA     X'22222222'
     8679   01 0318D    22222222 A            DATA     X'22222222'
     8680   01 0318E    20202020 A            DATA     X'20202020'
     8681   01 0318F    20202020 A            DATA     X'20202020'
     8682   01 03190    22222222 A            DATA     X'22222222'
     8683   01 03191    22222222 A            DATA     X'22222222'
     8684   01 03192    00000000 A            DATA     0
     8685   01 03193    00000000 A            DATA     0
     8686   01 03194    2222222D A            DATA     X'2222222D'
     8687   01 03195    2222222D A            DATA     X'2222222D'
     8688   01 03196    00000000 A            DATA     0
     8689   01 03197    00000000 A            DATA     0
     8690   01 03198    00000000 A            DATA     0
     8691   01 03199    00000000 A            DATA     0
     8692   01 0319A    00000000 A            DATA     0
     8693   01 0319B    00000000 A            DATA     0
     8694   01 0319C    00000000 A            DATA     0
     8695   01 0319D    00000000 A            DATA     0
     8696   01 0319E    00000000 A            DATA     0
     8697   01 0319F    00000000 A            DATA     0
     8698   01 031A0    40000000 A            GEN,8,24 ' ',0
     8699   01 031A1    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8700   01 031A2    40000000 A            GEN,8,24 ' ',0
     8701   01 031A3    0100E004              GEN,8,24 1,BA(MEMORY)+4
     8702                            *                                   VALID POSITIVE ZERO, 1 BYTE.
     8703   01 031A4    200E00BE A   EBS14    MODULE
     8704   01 031A5    63A0E010              EBS,10   BA(MEMORY+4)
     8705   01 031A6    073011DD              K        0,7,3,LOC
     8706   01 031A7    873011DF              K        8,7,3,LOC+2
     8707   01 031A8    00000000 A            DATA     0
     8708   01 031A9    00000000 A            DATA     0
     8709   01 031AA    00000000 A            DATA     0
     8710   01 031AB    00000000 A            DATA     0
     8711   01 031AC    99999999 A            DATA     X'99999999'
     8712   01 031AD    99999999 A            DATA     X'99999999'
     8713   01 031AE    00000000 A            DATA     0
     8714   01 031AF    00000000 A            DATA     0
     8715   01 031B0    99999999 A            DATA     X'99999999'
     8716   01 031B1    99999999 A            DATA     X'99999999'
     8717   01 031B2    00000000 A            DATA     0
     8718   01 031B3    00000000 A            DATA     0
     8719   01 031B4    9999999C A            DATA     X'9999999C'
     8720   01 031B5    9999999C A            DATA     X'9999999C'
     8721   01 031B6    00000000 A            DATA     0
     8722   01 031B7    00000000 A            DATA     0
     8723   01 031B8    0C000000 A            DATA     X'0C'**24
     8724   01 031B9    0C000000 A            DATA     X'0C'**24
     8725   01 031BA    20000000 A            DATA     X'20'**24
     8726   01 031BB    40000000 A            DATA     X'40000000'
     8727         00000004                    DO       4
     8728   01 031BC    00000000 A            DATA     0
     8729                                     FIN
            01 031BD    00000000 A
            01 031BE    00000000 A
            01 031BF    00000000 A
     8730   01 031C0    40000000 A            GEN,8,24 ' ',0
     8731   01 031C1    0100E014              GEN,8,24 1,BA(MEMORY+5)
     8732   01 031C2    40000001 A            GEN,8,24 ' ',1
     8733   01 031C3    0000E015              GEN,8,24 0,BA(MEMORY+5)+1
     8734                            *                                   VALID SIGN OF X'A'.
     8735   01 031C4    200F00BF A   EBS15    MODULE
     8736   01 031C5    63A0E010              EBS,10   BA(MEMORY+4)
     8737   01 031C6    073011DD              K        0,7,3,LOC
     8738   01 031C7    873011DF              K        8,7,3,LOC+2
     8739   01 031C8    00000000 A            DATA     0
     8740   01 031C9    00000000 A            DATA     0
     8741   01 031CA    00000000 A            DATA     0
     8742   01 031CB    00000000 A            DATA     0
     8743   01 031CC    11121314 A            DATA     X'11121314'
     8744   01 031CD    11121314 A            DATA     X'11121314'
     8745   01 031CE    00000000 A            DATA     0
     8746   01 031CF    00000000 A            DATA     0
     8747   01 031D0    15161718 A            DATA     X'15161718'
     8748   01 031D1    15161718 A            DATA     X'15161718'
     8749   01 031D2    00000000 A            DATA     0
     8750   01 031D3    00000000 A            DATA     0
     8751   01 031D4    1992939D A            DATA     X'1992939D'
     8752   01 031D5    1992939D A            DATA     X'1992939D'
     8753   01 031D6    0000000C A            DATA     12
     8754   01 031D7    0000000C A            DATA     12
     8755   01 031D8    0A000000 A            GEN,4,4,24  0,10,0
     8756   01 031D9    0A000000 A            GEN,4,4,24  0,10,0
     8757   01 031DA    20202020 A            DATA     X'20202020'
     8758   01 031DB    40202020 A            DATA     X'40202020'
     8759   01 031DC    00000000 A            DATA     0
     8760   01 031DD    00000000 A            DATA     0
     8761   01 031DE    00000000 A            DATA     0
     8762   01 031DF    00000000 A            DATA     0
     8763   01 031E0    40000000 A            GEN,8,24 ' ',0
     8764   01 031E1    0100E014              GEN,8,24 1,BA(MEMORY+5)
     8765   01 031E2    40000001 A            GEN,8,24 ' ',1
     8766   01 031E3    0000E015              GEN,8,24 0,BA(MEMORY+5)+1
     8767                            *                                   VALID SIGN OF X'B'.
     8768   01 031E4    201000C0 A   EBS16    MODULE
     8769   01 031E5    63A0E010              EBS,10   BA(MEMORY+4)
     8770   01 031E6    073011DD              K        0,7,3,LOC
     8771   01 031E7    973011DF              K        9,7,3,LOC+2
     8772   01 031E8    00000000 A            DATA     0
     8773   01 031E9    00000000 A            DATA     0
     8774   01 031EA    00000000 A            DATA     0
     8775   01 031EB    00000000 A            DATA     0
     8776   01 031EC    55555553 A            DATA     X'55555553'
     8777   01 031ED    55555553 A            DATA     X'55555553'
     8778   01 031EE    00000000 A            DATA     0
     8779   01 031EF    00000000 A            DATA     0
     8780   01 031F0    66666664 A            DATA     X'66666664'
     8781   01 031F1    66666664 A            DATA     X'66666664'
     8782   01 031F2    00000000 A            DATA     0
     8783   01 031F3    00000000 A            DATA     0
     8784   01 031F4    8888888C A            DATA     X'8888888C'
     8785   01 031F5    8888888C A            DATA     X'8888888C'
     8786   01 031F6    0000000C A            DATA     12
     8787   01 031F7    0000000C A            DATA     12
     8788   01 031F8    0B000000 A            GEN,4,4,24  0,11,0
     8789   01 031F9    0B000000 A            GEN,4,4,24  0,11,0
     8790   01 031FA    20202020 A            DATA     X'20202020'
     8791   01 031FB    40202020 A            DATA     X'40202020'
     8792   01 031FC    00000000 A            DATA     0
     8793   01 031FD    00000000 A            DATA     0
     8794   01 031FE    00000000 A            DATA     0
     8795   01 031FF    00000000 A            DATA     0
     8796   01 03200    40000000 A            GEN,8,24 ' ',0
     8797   01 03201    0100E014              GEN,8,24 1,BA(MEMORY+5)
     8798   01 03202    40000001 A            GEN,8,24 ' ',1
     8799   01 03203    0000E015              GEN,8,24 0,BA(MEMORY+5)+1
     8800                            *                                   VALID SIGN OF X'C'.
     8801   01 03204    201100C1 A   EBS17    MODULE
     8802   01 03205    63A0E010              EBS,10   BA(MEMORY+4)
     8803   01 03206    073011DD              K        0,7,3,LOC
     8804   01 03207    873011DF              K        8,7,3,LOC+2
     8805   01 03208    00000000 A            DATA     0
     8806   01 03209    00000000 A            DATA     0
     8807   01 0320A    00000000 A            DATA     0
     8808   01 0320B    00000000 A            DATA     0
     8809   01 0320C    81828384 A            DATA     X'81828384'
     8810   01 0320D    81828384 A            DATA     X'81828384'
     8811   01 0320E    00000000 A            DATA     0
     8812   01 0320F    00000000 A            DATA     0
     8813   01 03210    91929394 A            DATA     X'91929394'
     8814   01 03211    91929394 A            DATA     X'91929394'
     8815   01 03212    00000000 A            DATA     0
     8816   01 03213    00000000 A            DATA     0
     8817   01 03214    7172737D A            DATA     X'7172737D'
     8818   01 03215    7172737D A            DATA     X'7172737D'
     8819   01 03216    0000000C A            DATA     12
     8820   01 03217    0000000C A            DATA     12
     8821   01 03218    0C000000 A            GEN,4,4,24  0,12,0
     8822   01 03219    0C000000 A            GEN,4,4,24  0,12,0
     8823   01 0321A    20202020 A            DATA     X'20202020'
     8824   01 0321B    40202020 A            DATA     X'40202020'
     8825   01 0321C    00000000 A            DATA     0
     8826   01 0321D    00000000 A            DATA     0
     8827   01 0321E    00000000 A            DATA     0
     8828   01 0321F    00000000 A            DATA     0
     8829   01 03220    40000000 A            GEN,8,24 ' ',0
     8830   01 03221    0100E014              GEN,8,24 1,BA(MEMORY+5)
     8831   01 03222    40000001 A            GEN,8,24 ' ',1
     8832   01 03223    0000E015              GEN,8,24 0,BA(MEMORY+5)+1
     8833                            *                                   VALID SIGN OF X'D'.
     8834   01 03224    201200C2 A   EBS18    MODULE
     8835   01 03225    63A0E010              EBS,10   BA(MEMORY+4)
     8836   01 03226    073011DD              K        0,7,3,LOC
     8837   01 03227    973011DF              K        9,7,3,LOC+2
     8838   01 03228    00000000 A            DATA     0
     8839   01 03229    00000000 A            DATA     0
     8840   01 0322A    00000000 A            DATA     0
     8841   01 0322B    00000000 A            DATA     0
     8842   01 0322C    23232323 A            DATA     X'23232323'
     8843   01 0322D    23232323 A            DATA     X'23232323'
     8844   01 0322E    00000000 A            DATA     0
     8845   01 0322F    00000000 A            DATA     0
     8846   01 03230    94929395 A            DATA     X'94929395'
     8847   01 03231    94929395 A            DATA     X'94929395'
     8848   01 03232    00000000 A            DATA     0
     8849   01 03233    00000000 A            DATA     0
     8850   01 03234    1231231C A            DATA     X'1231231C'
     8851   01 03235    1231231C A            DATA     X'1231231C'
     8852   01 03236    0000000C A            DATA     12
     8853   01 03237    0000000C A            DATA     12
     8854   01 03238    0D000000 A            GEN,4,4,24  0,13,0
     8855   01 03239    0D000000 A            GEN,4,4,24  0,13,0
     8856   01 0323A    20202020 A            DATA     X'20202020'
     8857   01 0323B    40202020 A            DATA     X'40202020'
     8858   01 0323C    00000000 A            DATA     0
     8859   01 0323D    00000000 A            DATA     0
     8860   01 0323E    00000000 A            DATA     0
     8861   01 0323F    00000000 A            DATA     0
     8862   01 03240    40000000 A            GEN,8,24 ' ',0
     8863   01 03241    0100E014              GEN,8,24 1,BA(MEMORY+5)
     8864   01 03242    40000001 A            GEN,8,24 ' ',1
     8865   01 03243    0000E015              GEN,8,24 0,BA(MEMORY+5)+1
     8866                            *                                   VALID SIGN OF X'E'.
     8867   01 03244    201300C3 A   EBS19    MODULE
     8868   01 03245    63A0E010              EBS,10   BA(MEMORY+4)
     8869   01 03246    073011DD              K        0,7,3,LOC
     8870   01 03247    873011DF              K        8,7,3,LOC+2
     8871   01 03248    00000000 A            DATA     0
     8872   01 03249    00000000 A            DATA     0
     8873   01 0324A    00000000 A            DATA     0
     8874   01 0324B    00000000 A            DATA     0
     8875   01 0324C    01020356 A            DATA     X'01020356'
     8876   01 0324D    01020356 A            DATA     X'01020356'
     8877   01 0324E    00000000 A            DATA     0
     8878   01 0324F    00000000 A            DATA     0
     8879   01 03250    73737372 A            DATA     X'73737372'
     8880   01 03251    73737372 A            DATA     X'73737372'
     8881   01 03252    00000000 A            DATA     0
     8882   01 03253    00000000 A            DATA     0
     8883   01 03254    9696968D A            DATA     X'9696968D'
     8884   01 03255    9696968D A            DATA     X'9696968D'
     8885   01 03256    0000000C A            DATA     12
     8886   01 03257    0000000C A            DATA     12
     8887   01 03258    0E000000 A            GEN,4,4,24  0,14,0
     8888   01 03259    0E000000 A            GEN,4,4,24  0,14,0
     8889   01 0325A    20202020 A            DATA     X'20202020'
     8890   01 0325B    40202020 A            DATA     X'40202020'
     8891   01 0325C    00000000 A            DATA     0
     8892   01 0325D    00000000 A            DATA     0
     8893   01 0325E    00000000 A            DATA     0
     8894   01 0325F    00000000 A            DATA     0
     8895   01 03260    40000000 A            GEN,8,24 ' ',0
     8896   01 03261    0100E014              GEN,8,24 1,BA(MEMORY+5)
     8897   01 03262    40000001 A            GEN,8,24 ' ',1
     8898   01 03263    0000E015              GEN,8,24 0,BA(MEMORY+5)+1
     8899                            *                                   VALID SIGN OF X'F'.
     8900   01 03264    201400C4 A   EBS20    MODULE
     8901   01 03265    63A0E010              EBS,10   BA(MEMORY+4)
     8902   01 03266    073011DD              K        0,7,3,LOC
     8903   01 03267    873011DF              K        8,7,3,LOC+2
     8904   01 03268    00000000 A            DATA     0
     8905   01 03269    00000000 A            DATA     0
     8906   01 0326A    00000000 A            DATA     0
     8907   01 0326B    00000000 A            DATA     0
     8908   01 0326C    53535353 A            DATA     X'53535353'
     8909   01 0326D    53535353 A            DATA     X'53535353'
     8910   01 0326E    00000000 A            DATA     0
     8911   01 0326F    00000000 A            DATA     0
     8912   01 03270    64646464 A            DATA     X'64646464'
     8913   01 03271    64646464 A            DATA     X'64646464'
     8914   01 03272    00000000 A            DATA     0
     8915   01 03273    00000000 A            DATA     0
     8916   01 03274    8675423C A            DATA     X'8675423C'
     8917   01 03275    8675423C A            DATA     X'8675423C'
     8918   01 03276    0000000C A            DATA     12
     8919   01 03277    0000000C A            DATA     12
     8920   01 03278    0F000000 A            GEN,4,4,24  0,15,0
     8921   01 03279    0F000000 A            GEN,4,4,24  0,15,0
     8922   01 0327A    20202020 A            DATA     X'20202020'
     8923   01 0327B    40202020 A            DATA     X'40202020'
     8924   01 0327C    00000000 A            DATA     0
     8925   01 0327D    00000000 A            DATA     0
     8926   01 0327E    00000000 A            DATA     0
     8927   01 0327F    00000000 A            DATA     0
     8928   01 03280    40000000 A            GEN,8,24 ' ',0
     8929   01 03281    0100E014              GEN,8,24 1,BA(MEMORY+5)
     8930   01 03282    40000001 A            GEN,8,24 ' ',1
     8931   01 03283    0000E015              GEN,8,24 0,BA(MEMORY+5)+1
     8932   01 03284    201500C5 A   EBS21    MODULE
     8933                            *                                   TEST START ON RIGHT-MOST DIGIT.
     8934   01 03285    63A0E010              EBS,10   BA(MEMORY+4)
     8935   01 03286    473011DD              K        4,7,3,LOC
     8936   01 03287    073011DF              K        0,7,3,LOC+2
     8937   01 03288    00000000 A            DATA     0
     8938   01 03289    00000000 A            DATA     0
     8939   01 0328A    00000000 A            DATA     0
     8940   01 0328B    00000000 A            DATA     0
     8941   01 0328C    31243459 A            DATA     X'31243459'
     8942   01 0328D    31243459 A            DATA     X'31243459'
     8943   01 0328E    00000000 A            DATA     0
     8944   01 0328F    00000000 A            DATA     0
     8945   01 03290    19911991 A            DATA     X'19911991'
     8946   01 03291    19911991 A            DATA     X'19911991'
     8947   01 03292    00000000 A            DATA     0
     8948   01 03293    00000000 A            DATA     0
     8949   01 03294    9119911C A            DATA     X'9119911C'
     8950   01 03295    9119911C A            DATA     X'9119911C'
     8951   01 03296    00000000 A            DATA     0
     8952   01 03297    00000000 A            DATA     0
     8953   01 03298    00C00000 A            DATA     X'00C00000'
     8954   01 03299    00C00000 A            DATA     X'00C00000'
     8955   01 0329A    20202020 A            DATA     X'20202020'
     8956   01 0329B    40202020 A            DATA     X'40202020'
     8957   01 0329C    00000000 A            DATA     0
     8958   01 0329D    00000000 A            DATA     0
     8959   01 0329E    00000000 A            DATA     0
     8960   01 0329F    00000000 A            DATA     0
     8961   01 032A0    40000000 A            GEN,8,24 ' ',0
     8962   01 032A1    0100E014              GEN,8,24 1,BA(MEMORY)+20
     8963   01 032A2    40000001 A            GEN,8,24 ' ',1
     8964   01 032A3    0000E015              GEN,8,24 0,BA(MEMORY)+21
     8965   01 032A4    201600C6 A   EBS22    MODULE
     8966                            *                                   TEST END ON BYTE ONE.
     8967   01 032A5    63A0E00C              EBS,10   BA(MEMORY+3)
     8968   01 032A6    073011DD              K        0,7,3,LOC
     8969   01 032A7    873011DF              K        8,7,3,LOC+2
     8970         0000000C                    DO       12
     8971   01 032A8    00000000 A            DATA     0
     8972                                     FIN
            01 032A9    00000000 A
            01 032AA    00000000 A
            01 032AB    00000000 A
            01 032AC    00000000 A
            01 032AD    00000000 A
            01 032AE    00000000 A
            01 032AF    00000000 A
            01 032B0    00000000 A
            01 032B1    00000000 A
            01 032B2    00000000 A
            01 032B3    00000000 A
     8973   01 032B4    0000000C A            DATA     12,12
            01 032B5    0000000C A
     8974   01 032B6    00000000 A            DATA     0
     8975   01 032B7    00000000 A            DATA     0
     8976   01 032B8    0C000000 A            DATA     X'0C000000'
     8977   01 032B9    0C000000 A            DATA     X'0C000000'
     8978   01 032BA    20202020 A            DATA     X'20202020'
     8979   01 032BB    40404040 A            DATA     '    '
     8980   01 032BC    20202020 A            DATA     X'20202020'
     8981   01 032BD    40404040 A            DATA     '    '
     8982   01 032BE    20202020 A            DATA     X'20202020'
     8983   01 032BF    40202020 A            DATA     X'40202020'
     8984   01 032C0    40000000 A            GEN,8,24 ' ',0
     8985   01 032C1    0900E014              GEN,8,24 9,BA(MEMORY+5)
     8986   01 032C2    40000005 A            GEN,8,24 ' ',5
     8987   01 032C3    0000E01D              GEN,8,24 0,BA(MEMORY+5)+9
     8988   01 032C4    211700C7 A   EBS23    MODULE
     8989   01 032C5    63A0E00C              EBS,10   BA(MEMORY+3)      TEST NO CHANGE OF DESTINATION ON
     8990                            *                                   NEGATIVE SIGN OF X'B'.
     8991   01 032C6    073011DD              K        0,7,3,LOC
     8992   01 032C7    B73011DF              K        11,7,3,LOC+2
     8993   01 032C8    00000000 A            DATA     0
     8994   01 032C9    00000000 A            DATA     0
     8995   01 032CA    00000000 A            DATA     0
     8996   01 032CB    00000000 A            DATA     0
     8997   01 032CC    87654321 A            DATA     X'87654321'       DATA FOR COMPOUND DECIMAL.
     8998   01 032CD    87654321 A            DATA     X'87654321'       *
     8999   01 032CE    00000000 A            DATA     0
     9000   01 032CF    00000000 A            DATA     0
     9001   01 032D0    09192939 A            DATA     X'09192939'       *
     9002   01 032D1    09192939 A            DATA     X'09192939'       *
     9003   01 032D2    00000000 A            DATA     0
     9004   01 032D3    00000000 A            DATA     0
     9005   01 032D4    8999182C A            DATA     X'8999182C'       *
     9006   01 032D5    8999182C A            DATA     X'8999182C'       *
     9007   01 032D6    0000100B A            DATA     X'0000100B'       SOURCE IN. (MEMORY+3)
     9008   01 032D7    0000100B A            DATA     X'0000100B'       SOURCE OUT.
     9009   01 032D8    20202020 A            DATA     X'20202020'       DESINATION IN. (WORD 1, MEMORY+4)
     9010   01 032D9    40404040 A            DATA     '    '            DESTINATION OUT.
     9011   01 032DA    20202040 A            DATA     X'20202040'       DESTINATION IN. (WORD 2, MEMORY+5)
     9012   01 032DB    F1F0F040 A            DATA     X'F1F0F040'       DESTINATION OUT.
     9013   01 032DC    40C3D940 A            DATA     X'40C3D940'       DESTINATION IN. (WORD 3, MEMORY+6)
     9014   01 032DD    40C3D940 A            DATA     X'40C3D940'       DESTINATION OUT.
     9015   01 032DE    00000000 A            DATA     0
     9016   01 032DF    00000000 A            DATA     0
     9017   01 032E0    40000000 A            GEN,8,24 ' ',0
     9018   01 032E1    0800E010              GEN,8,24 8,BA(MEMORY+4)
     9019   01 032E2    40000004 A            GEN,8,24 ' ',4
     9020   01 032E3    0000E018              GEN,8,24 0,BA(MEMORY+4)+8
     9021   01 032E4    0300E014              GEN,8,24 3,BA(MEMORY+5)
     9022   01 032E5    211800C8 A   EBS24    MODULE
     9023   01 032E6    63A0E00C              EBS,10   BA(MEMORY+3)      TEST NO CHANGE OF DESTINATION ON
     9024                            *                                   NEGATIVE SIGN OF X'D'.
     9025   01 032E7    073011DD              K        0,7,3,LOC
     9026   01 032E8    B73011DF              K        11,7,3,LOC+2
     9027   01 032E9    00000000 A            DATA     0
     9028   01 032EA    00000000 A            DATA     0
     9029   01 032EB    00000000 A            DATA     0
     9030   01 032EC    00000000 A            DATA     0
     9031   01 032ED    11111111 A            DATA     X'11111111'
     9032   01 032EE    11111111 A            DATA     X'11111111'
     9033   01 032EF    00000000 A            DATA     0
     9034   01 032F0    00000000 A            DATA     0
     9035   01 032F1    22222222 A            DATA     X'22222222'
     9036   01 032F2    22222222 A            DATA     X'22222222'
     9037   01 032F3    00000000 A            DATA     0
     9038   01 032F4    00000000 A            DATA     0
     9039   01 032F5    3333333D A            DATA     X'3333333D'
     9040   01 032F6    3333333D A            DATA     X'3333333D'
     9041   01 032F7    0000100D A            DATA     X'0000100D'
     9042   01 032F8    0000100D A            DATA     X'0000100D'
     9043   01 032F9    20202020 A            DATA     X'20202020'
     9044   01 032FA    40404040 A            DATA     '    '
     9045   01 032FB    20202040 A            DATA     X'20202040'
     9046   01 032FC    F1F0F040 A            DATA     '100 '
     9047   01 032FD    40C3D940 A            DATA     ' CR '
     9048   01 032FE    40C3D940 A            DATA     ' CR '
     9049   01 032FF    00000000 A            DATA     0
     9050   01 03300    00000000 A            DATA     0
     9051   01 03301    40000000 A            GEN,8,24 ' ',0
     9052   01 03302    0C00E010              GEN,8,24 12,BA(MEMORY)+16
     9053   01 03303    40000004 A            GEN,8,24 ' ',4
     9054   01 03304    0000E01C              GEN,8,24 0,BA(MEMORY)+28
     9055   01 03305    0700E014              GEN,8,24 7,BA(MEMORY+5)
     9056                            *                                   TEST VALID SUMMING OF DISPLACEMENT.
     9057   01 03306    201900C9 A   EBS25    MODULE
     9058   01 03307    63A0DFFD              EBS,10   BA(MEMORY)-3
     9059   01 03308    073011DD              K        0,7,3,LOC
     9060   01 03309    873011DF              K        8,7,3,LOC+2
     9061   01 0330A    00000000 A            DATA     0
     9062   01 0330B    00000000 A            DATA     0
     9063   01 0330C    0C000000 A            DATA     X'0C000000'
     9064   01 0330D    0C000000 A            DATA     X'0C000000'
     9065   01 0330E    33333333 A            DATA     X'33333333'
     9066   01 0330F    33333333 A            DATA     X'33333333'
     9067   01 03310    20202020 A            DATA     X'20202020'
     9068   01 03311    40202020 A            DATA     X'40202020'
     9069   01 03312    33333333 A            DATA     X'33333333'
     9070   01 03313    33333333 A            DATA     X'33333333'
     9071   01 03314    00000000 A            DATA     0
     9072   01 03315    00000000 A            DATA     0
     9073   01 03316    3333333D A            DATA     X'3333333D'
     9074   01 03317    3333333D A            DATA     X'3333333D'
     9075   01 03318    00000000 A            DATA     0
     9076   01 03319    00000000 A            DATA     0
     9077   01 0331A    00000000 A            DATA     0
     9078   01 0331B    00000000 A            DATA     0
     9079   01 0331C    00000000 A            DATA     0
     9080   01 0331D    00000000 A            DATA     0
     9081   01 0331E    00000000 A            DATA     0
     9082   01 0331F    00000000 A            DATA     0
     9083   01 03320    00000000 A            DATA     0
     9084   01 03321    00000000 A            DATA     0
     9085   01 03322    40000003 A            GEN,8,24 ' ',3
     9086   01 03323    0100E004              GEN,8,24 1,BA(MEMORY)+4
     9087   01 03324    40000004 A            GEN,8,24 ' ',4
     9088   01 03325    0000E005              GEN,8,24 0,BA(MEMORY)+5
     9089                            *                                   TEST VALID SUMMING OF DISPLACEMENT.
     9090   01 03326    201A00CA A   EBS26    MODULE
     9091   01 03327    63A00003 A            EBS,10   3
     9092   01 03328    073011DD              K        0,7,3,LOC
     9093   01 03329    873011DF              K        8,7,3,LOC+2
     9094   01 0332A    00000000 A            DATA     0
     9095   01 0332B    00000000 A            DATA     0
     9096   01 0332C    0C000000 A            DATA     X'0C000000'
     9097   01 0332D    0C000000 A            DATA     X'0C000000'
     9098   01 0332E    44444444 A            DATA     X'44444444'
     9099   01 0332F    44444444 A            DATA     X'44444444'
     9100   01 03330    20202020 A            DATA     X'20202020'
     9101   01 03331    40202020 A            DATA     X'40202020'
     9102   01 03332    44444444 A            DATA     X'44444444'
     9103   01 03333    44444444 A            DATA     X'44444444'
     9104   01 03334    00000000 A            DATA     0
     9105   01 03335    00000000 A            DATA     0
     9106   01 03336    4444444D A            DATA     X'4444444D'
     9107   01 03337    4444444D A            DATA     X'4444444D'
     9108   01 03338    00000000 A            DATA     0
     9109   01 03339    00000000 A            DATA     0
     9110   01 0333A    00000000 A            DATA     0
     9111   01 0333B    00000000 A            DATA     0
     9112   01 0333C    00000000 A            DATA     0
     9113   01 0333D    00000000 A            DATA     0
     9114   01 0333E    00000000 A            DATA     0
     9115   01 0333F    00000000 A            DATA     0
     9116   01 03340    00000000 A            DATA     0
     9117   01 03341    00000000 A            DATA     0
     9118   01 03342    4000DFFD              GEN,8,24 ' ',BA(MEMORY)-3
     9119   01 03343    0100E004              GEN,8,24 1,BA(MEMORY)+4
     9120   01 03344    4000DFFE              GEN,8,24 ' ',BA(MEMORY)-2
     9121   01 03345    0000E005              GEN,8,24 0,BA(MEMORY)+5
     9122                            *                                   IMMEDIATE SIGNIFICANCE START.(X'23')
     9123   01 03346    211B00CB A   EBS27    MODULE
     9124   01 03347    63A0E000              EBS,10   BA(MEMORY)
     9125   01 03348    073011DD              K        0,7,3,LOC
     9126   01 03349    873011DF              K        8,7,3,LOC+2
     9127   01 0334A    00000000 A            DATA     0
     9128   01 0334B    00000000 A            DATA     0
     9129   01 0334C    0C000000 A            DATA     X'0C000000'
     9130   01 0334D    0C000000 A            DATA     X'0C000000'
     9131   01 0334E    55555555 A            DATA     X'55555555'
     9132   01 0334F    55555555 A            DATA     X'55555555'
     9133   01 03350    23202020 A            DATA     X'23202020'
     9134   01 03351    F0202020 A            DATA     X'F0202020'
     9135   01 03352    55555555 A            DATA     X'55555555'
     9136   01 03353    55555555 A            DATA     X'55555555'
     9137   01 03354    00000000 A            DATA     0
     9138   01 03355    00000000 A            DATA     0
     9139   01 03356    5555555C A            DATA     X'5555555C'
     9140   01 03357    5555555C A            DATA     X'5555555C'
     9141   01 03358    00000000 A            DATA     0
     9142   01 03359    00000000 A            DATA     0
     9143   01 0335A    00000000 A            DATA     0
     9144   01 0335B    00000000 A            DATA     0
     9145   01 0335C    00000000 A            DATA     0
     9146   01 0335D    00000000 A            DATA     0
     9147   01 0335E    00000000 A            DATA     0
     9148   01 0335F    00000000 A            DATA     0
     9149   01 03360    00000000 A            DATA     0
     9150   01 03361    00000000 A            DATA     0
     9151   01 03362    40000000 A            GEN,8,24 ' ',0
     9152   01 03363    0100E004              GEN,8,24 1,BA(MEMORY)+4
     9153   01 03364    40000001 A            GEN,8,24 ' ',1
     9154   01 03365    0000E005              GEN,8,24 0,BA(MEMORY)+5
     9155   01 03366    0000E004              DATA     BA(MEMORY)+4
     9156                            *                                   SIGNIFICANCE START. (X'21')
     9157   01 03367    211C00CC A   EBS28    MODULE
     9158   01 03368    63A0E000              EBS,10   BA(MEMORY)
     9159   01 03369    073011DD              K        0,7,3,LOC
     9160   01 0336A    873011DF              K        8,7,3,LOC+2
     9161   01 0336B    00000000 A            DATA     0
     9162   01 0336C    00000000 A            DATA     0
     9163   01 0336D    0C000000 A            DATA     X'0C000000'
     9164   01 0336E    0C000000 A            DATA     X'0C000000'
     9165   01 0336F    66666666 A            DATA     X'66666666'
     9166   01 03370    66666666 A            DATA     X'66666666'
     9167   01 03371    21202020 A            DATA     X'21202020'
     9168   01 03372    5C202020 A            DATA     X'5C202020'
     9169   01 03373    66666666 A            DATA     X'66666666'
     9170   01 03374    66666666 A            DATA     X'66666666'
     9171   01 03375    00000000 A            DATA     0
     9172   01 03376    00000000 A            DATA     0
     9173   01 03377    6666666C A            DATA     X'6666666C'
     9174   01 03378    6666666C A            DATA     X'6666666C'
     9175   01 03379    00000000 A            DATA     0
     9176   01 0337A    00000000 A            DATA     0
     9177   01 0337B    00000000 A            DATA     0
     9178   01 0337C    00000000 A            DATA     0
     9179   01 0337D    00000000 A            DATA     0
     9180   01 0337E    00000000 A            DATA     0
     9181   01 0337F    00000000 A            DATA     0
     9182   01 03380    00000000 A            DATA     0
     9183   01 03381    00000000 A            DATA     0
     9184   01 03382    00000000 A            DATA     0
     9185   01 03383    5C000000 A            GEN,8,24 '*',0
     9186   01 03384    0100E004              GEN,8,24 1,BA(MEMORY)+4
     9187   01 03385    5C000001 A            GEN,8,24 '*',1
     9188   01 03386    0000E005              GEN,8,24 0,BA(MEMORY)+5
     9189   01 03387    0000E005              DATA     BA(MEMORY)+5
     9190                            *                                   FIELD SEPARATOR. (X'22')
     9191   01 03388    211D00CD A   EBS29    MODULE
     9192   01 03389    63A0E000              EBS,10   BA(MEMORY)
     9193   01 0338A    073011DD              K        0,7,3,LOC
     9194   01 0338B    A73011DF              K        10,7,3,LOC+2
     9195   01 0338C    00000000 A            DATA     0
     9196   01 0338D    00000000 A            DATA     0
     9197   01 0338E    2D3C0000 A            DATA     X'2D3C0000'
     9198   01 0338F    2D3C0000 A            DATA     X'2D3C0000'
     9199   01 03390    77777777 A            DATA     X'77777777'
     9200   01 03391    77777777 A            DATA     X'77777777'
     9201   01 03392    204040C3 A            DATA     X'204040C3'
     9202   01 03393    F24040C3 A            DATA     X'F24040C3'
     9203   01 03394    77777777 A            DATA     X'77777777'
     9204   01 03395    77777777 A            DATA     X'77777777'
     9205   01 03396    22205C5C A            DATA     X'22205C5C'
     9206   01 03397    6BF34040 A            DATA     X'6BF34040'
     9207   01 03398    7777777C A            DATA     X'7777777C'
     9208   01 03399    7777777C A            DATA     X'7777777C'
     9209   01 0339A    C3D94040 A            DATA     X'C3D94040'
     9210   01 0339B    40404040 A            DATA     '    '
     9211   01 0339C    00000000 A            DATA     0
     9212   01 0339D    00000000 A            DATA     0
     9213   01 0339E    00000000 A            DATA     0
     9214   01 0339F    00000000 A            DATA     0
     9215   01 033A0    00000000 A            DATA     0
     9216   01 033A1    00000000 A            DATA     0
     9217   01 033A2    00000000 A            DATA     0
     9218   01 033A3    00000000 A            DATA     0
     9219   01 033A4    6B000000 A            GEN,8,24 ',',0
     9220   01 033A5    0A00E004              GEN,8,24 10,BA(MEMORY)+4
     9221   01 033A6    6B000002 A            GEN,8,24 ',',2
     9222   01 033A7    0000E00E              GEN,8,24 0,BA(MEMORY)+14
     9223   01 033A8    0400E009              GEN,8,24 4,BA(MEMORY)+9
     9224   01 033A9    211E00CE A   EBS30    MODULE
     9225   01 033AA    63A0E000              EBS,10   BA(MEMORY)
     9226   01 033AB    073011DD              K        0,7,3,LOC
     9227   01 033AC    873011DF              K        8,7,3,LOC+2
     9228   01 033AD    FFFFFFFF A            DATA     X'FFFFFFFF'       R12 IN
     9229   01 033AE    FFFFFFFF A            DATA     X'FFFFFFFF'       R12 OUT
     9230   01 033AF    0000000C A            DATA     X'C'              MEMORY+0 IN
     9231   01 033B0    0000000C A            DATA     X'C'              MEMORY+0 OUT
     9232   01 033B1    FFFFFFFF A            DATA     X'FFFFFFFF'       R13 IN
     9233   01 033B2    FFFFFFFF A            DATA     X'FFFFFFFF'       R13 OUT
     9234   01 033B3    20206B20 A            DATA     X'20206B20'       MEMORY+1 IN  (DS DS ,  DS)
     9235   01 033B4    5C5C5C5C A            DATA     X'5C5C5C5C'       MEMORY+1 OUT (*  *  *  * )
     9236   01 033B5    FFFFFFFF A            DATA     X'FFFFFFFF'       R14 IN
     9237   01 033B6    FFFFFFFF A            DATA     X'FFFFFFFF'       R14 OUT
     9238   01 033B7    20214B20 A            DATA     X'20214B20'       MEMORY+2 IN  (DS SS .  DS)
     9239   01 033B8    5C5C4BF0 A            DATA     X'5C5C4BF0'       MEMORY+2 OUT (*  *  .  0 )
     9240   01 033B9    FFFFFFFF A            DATA     X'FFFFFFFF'       R15 IN
     9241   01 033BA    FFFFFFFF A            DATA     X'FFFFFFFF'       R15 OUT
     9242   01 033BB    2040C3D9 A            DATA     X'2040C3D9'       MEMORY+3 IN  (DS    C  R )
     9243   01 033BC    F0404040 A            DATA     X'F0404040'       MEMORY+3 OUT (0          )
     9244   01 033BD    00000000 A            DATA     X'0'              MEMORY+4 IN
     9245   01 033BE    00000000 A            DATA     X'0'              MEMORY+4 OUT
     9246   01 033BF    00000000 A            DATA     X'0'              MEMORY+5 IN
     9247   01 033C0    00000000 A            DATA     X'0'              MEMORY+5 OUT
     9248   01 033C1    00000000 A            DATA     X'0'              MEMORY+6 IN
     9249   01 033C2    00000000 A            DATA     X'0'              MEMORY+6 OUT
     9250   01 033C3    00000000 A            DATA     X'0'              MEMORY+7 IN
     9251   01 033C4    00000000 A            DATA     X'0'              MEMORY+7 OUT
     9252   01 033C5    5C000000 A            GEN,8,24 '*',0             R10 IN
     9253   01 033C6    0C00E004              GEN,8,24 12,BA(MEMORY+1)   R11 IN
     9254   01 033C7    5C000004 A            GEN,8,24 '*',4             R10 OUT
     9255   01 033C8    0000E010              GEN,8,24 0,BA(MEMORY+1)+12 R11 OUT
     9256   01 033C9    0600E00A              GEN,8,24 6,BA(MEMORY+1)+6  R1  OUT
     9257   01 033CA    211F00CF A   EBS31    MODULE
     9258   01 033CB    63A00034 A            EBS,10   52                BYTE ADDRESS OF R13
     9259   01 033CC    473011DD              K        4,7,3,LOC
     9260   01 033CD    B73011DF              K        11,7,3,LOC+2
     9261   01 033CE    00000000 A            DATA     X'0'              R12 IN
     9262   01 033CF    00000000 A            DATA     X'0'              R12 OUT
     9263   01 033D0    C1202023 A            DATA     X'C1202023'       MEMORY+0 IN   (A  DS DS SI)
     9264   01 033D1    7BF6F1F2 A            DATA     X'7BF6F1F2'       MEMORY+0 OUT  (#  6  1  2 )
     9265   01 033D2    0612500C A            DATA     X'0612500C'       R13 IN
     9266   01 033D3    0612500C A            DATA     X'0612500C'       R13 OUT
     9267   01 033D4    4B202020 A            DATA     X'4B202020'       MEMORY+1 IN   (.  DS DS DS)
     9268   01 033D5    4BF5F0F0 A            DATA     X'4BF5F0F0'       MEMORY+1 OUT  (.  5  0  0 )
     9269   01 033D6    01234C03 A            DATA     X'01234C03'       R14 IN
     9270   01 033D7    01234C03 A            DATA     X'01234C03'       R14 OUT
     9271   01 033D8    22C22020 A            DATA     X'22C22020'       MEMORY+2 IN   (FS B  DS DS)
     9272   01 033D9    7B7B7BF1 A            DATA     X'7B7B7BF1'       MEMORY+2 OUT  (#  #  #  1 )
     9273   01 033DA    5DFFFFFF A            DATA     X'5DFFFFFF'       R15 IN
     9274   01 033DB    5DFFFFFF A            DATA     X'5DFFFFFF'       R15 OUT
     9275   01 033DC    214B2020 A            DATA     X'214B2020'       MEMORY+3 IN   (SS .  DS DS)
     9276   01 033DD    F24BF3F4 A            DATA     X'F24BF3F4'       MEMORY+3 OUT  (2  .  3  4 )
     9277   01 033DE    C322C423 A            DATA     X'C322C423'       MEMORY+4 IN   (C  FS D  SI)
     9278   01 033DF    407B7BF0 A            DATA     X'407B7BF0'       MEMORY+4 OUT  (   #  #  0 )
     9279   01 033E0    2020C5D5 A            DATA     X'2020C5D5'       MEMORY+5 IN   (DS DS E  N )
     9280   01 033E1    F3F5C5D5 A            DATA     X'F3F5C5D5'       MEMORY+5 OUT  (3  5  E  N )
     9281   01 033E2    C4202020 A            DATA     X'C4202020'       MEMORY+6 IN   (D )
     9282   01 033E3    C4202020 A            DATA     X'C4202020'       MEMORY+6 OUT  (D )
     9283   01 033E4    00000000 A            DATA     X'0'              MEMORY+7 IN
     9284   01 033E5    00000000 A            DATA     X'0'              MEMORY+7 OUT
     9285   01 033E6    7B000000 A            GEN,8,24 '#',0             R10 IN
     9286   01 033E7    1900E000              GEN,8,24 25,BA(MEMORY+0)   R11 IN
     9287   01 033E8    7B000009 A            GEN,8,24 '#',9             R10 OUT
     9288   01 033E9    0000E019              GEN,8,24 0,BA(MEMORY+0)+25 R11 OUT
     9289   01 033EA    0500E013              GEN,8,24 5,BA(MEMORY+0)+19 R1  OUT
     9290   01 033EB    120100D0 A   UNPK1    MODULE   X'77'             TRAP ON INVALID DIGIT.
     9291   01 033EC    77103800              UNPK,1   MEMORY
     9292   01 033ED    073011E2              K        0,7,3,LOC+5
     9293   01 033EE    8730101B              K        8,7,3,EXP:TRAP+5
     9294   01 033EF    F0000000 A            DATA     X'F0000000'
     9295   01 033F0    F0000000 A            DATA     X'F0000000'
     9296   01 033F1    00000000 A            DATA     0
     9297   01 033F2    00000000 A            DATA     0
     9298   01 033F3    00000000 A            DATA     0
     9299   01 033F4    00000000 A            DATA     0
     9300   01 033F5    00000000 A            DATA     0
     9301   01 033F6    00000000 A            DATA     0
     9302   01 033F7    00000000 A            DATA     0
     9303   01 033F8    00000000 A            DATA     0
     9304   01 033F9    00000000 A            DATA     0
     9305   01 033FA    00000000 A            DATA     0
     9306   01 033FB    0000000C A            DATA     12
     9307   01 033FC    0000000C A            DATA     12
     9308   01 033FD    040200D1 A   UNPK2    MODULE                     TRAP ON INVALID SIGN.
     9309   01 033FE    77103800              UNPK,1   MEMORY
     9310   01 033FF    073011E2              K        0,7,3,LOC+5
     9311   01 03400    8730101B              K        8,7,3,EXP:TRAP+5
     9312                            *  ALL REMAINING INPUTS FOR THIS TEST ARE ZERO.
     9313   01 03401    1C0300D2 A   UNPK3    MODULE                     31 DIGIT POSITIVE, WORD BOUNDARY.
     9314   01 03402    77003800              UNPK,0   MEMORY
     9315   01 03403    073011DD              K        0,7,3,LOC
     9316   01 03404    073011DF              K        0,7,3,LOC+2
     9317   01 03405    12345678 A            DATA     X'12345678'
     9318   01 03406    12345678 A            DATA     X'12345678'
     9319   01 03407    00000000 A            DATA     0
     9320   01 03408    F1F2F3F4 A            DATA     '1234'
     9321   01 03409    90123456 A            DATA     X'90123456'
     9322   01 0340A    90123456 A            DATA     X'90123456'
     9323   01 0340B    00000000 A            DATA     0
     9324   01 0340C    F5F6F7F8 A            DATA     '5678'
     9325   01 0340D    09080706 A            DATA     X'09080706'
     9326   01 0340E    09080706 A            DATA     X'09080706'
     9327   01 0340F    00000000 A            DATA     0
     9328   01 03410    F9F0F1F2 A            DATA     '9012'
     9329   01 03411    0504037C A            DATA     X'0504037C'
     9330   01 03412    0504037C A            DATA     X'0504037C'
     9331   01 03413    00000000 A            DATA     0
     9332   01 03414    F3F4F5F6 A            DATA     '3456'
     9333   01 03415    00000000 A            DATA     0
     9334   01 03416    F0F9F0F8 A            DATA     '0908'
     9335   01 03417    00000000 A            DATA     0
     9336   01 03418    F0F7F0F6 A            DATA     '0706'
     9337   01 03419    00000000 A            DATA     0
     9338   01 0341A    F0F5F0F4 A            DATA     '0504'
     9339   01 0341B    00000000 A            DATA     0
     9340   01 0341C    F0F3C700 A            DATA     X'F0F3C700'
     9341   01 0341D    1C0400D3 A   UNPK4    MODULE                     31 DIGIT POSITIVE, ODD BYTE.
     9342   01 0341E    77023800              UNPK,0   MEMORY,1
     9343   01 0341F    073011DD              K        0,7,3,LOC
     9344   01 03420    073011DF              K        0,7,3,LOC+2
     9345   01 03421    12483689 A            DATA     X'12483689'
     9346   01 03422    12483689 A            DATA     X'12483689'
     9347   01 03423    00000000 A            DATA     0
     9348   01 03424    00F1F2F4 A            DATA     X'00F1F2F4'
     9349   01 03425    69707787 A            DATA     X'69707787'
     9350   01 03426    69707787 A            DATA     X'69707787'
     9351   01 03427    00000000 A            DATA     0
     9352   01 03428    F8F3F6F8 A            DATA     '8368'
     9353   01 03429    87070770 A            DATA     X'87070770'
     9354   01 0342A    87070770 A            DATA     X'87070770'
     9355   01 0342B    00000000 A            DATA     0
     9356   01 0342C    F9F6F9F7 A            DATA     '9697'
     9357   01 0342D    9696969C A            DATA     X'9696969C'
     9358   01 0342E    9696969C A            DATA     X'9696969C'
     9359   01 0342F    00000000 A            DATA     0
     9360   01 03430    F0F7F7F8 A            DATA     '0778'
     9361   01 03431    00000000 A            DATA     0
     9362   01 03432    F7F8F7F0 A            DATA     '7870'
     9363   01 03433    00000000 A            DATA     0
     9364   01 03434    F7F0F7F7 A            DATA     '7077'
     9365   01 03435    00000000 A            DATA     0
     9366   01 03436    F0F9F6F9 A            DATA     '0969'
     9367   01 03437    00000000 A            DATA     0
     9368   01 03438    F6F9F6C9 A            DATA     X'F6F9F6C9'
     9369   01 03439    1C0500D4 A   UNPK5    MODULE                     31 DIGIT NEGATIVE, WORD BOUNDARY.
     9370   01 0343A    77003800              UNPK,0   MEMORY
     9371   01 0343B    073011DD              K        0,7,3,LOC
     9372   01 0343C    073011DF              K        0,7,3,LOC+2
     9373   01 0343D    11112222 A            DATA     X'11112222'
     9374   01 0343E    11112222 A            DATA     X'11112222'
     9375   01 0343F    00000000 A            DATA     0
     9376   01 03440    F1F1F1F1 A            DATA     '1111'
     9377   01 03441    33334444 A            DATA     X'33334444'
     9378   01 03442    33334444 A            DATA     X'33334444'
     9379   01 03443    00000000 A            DATA     0
     9380   01 03444    F2F2F2F2 A            DATA     '2222'
     9381   01 03445    55556666 A            DATA     X'55556666'
     9382   01 03446    55556666 A            DATA     X'55556666'
     9383   01 03447    00000000 A            DATA     0
     9384   01 03448    F3F3F3F3 A            DATA     '3333'
     9385   01 03449    7777888D A            DATA     X'7777888D'
     9386   01 0344A    7777888D A            DATA     X'7777888D'
     9387   01 0344B    00000000 A            DATA     0
     9388   01 0344C    F4F4F4F4 A            DATA     '4444'
     9389   01 0344D    00000000 A            DATA     0
     9390   01 0344E    F5F5F5F5 A            DATA     '5555'
     9391   01 0344F    00000000 A            DATA     0
     9392   01 03450    F6F6F6F6 A            DATA     '6666'
     9393   01 03451    00000000 A            DATA     0
     9394   01 03452    F7F7F7F7 A            DATA     '7777'
     9395   01 03453    00000000 A            DATA     0
     9396   01 03454    F8F8D800 A            DATA     X'F8F8D800'
     9397   01 03455    1C0600D5 A   UNPK6    MODULE                     31 DIGIT NEGATIVE, ODD BYTE.
     9398   01 03456    77023800              UNPK,0   MEMORY,1
     9399   01 03457    073011DD              K        0,7,3,LOC
     9400   01 03458    073011DF              K        0,7,3,LOC+2
     9401   01 03459    99990000 A            DATA     X'99990000'
     9402   01 0345A    99990000 A            DATA     X'99990000'
     9403   01 0345B    00000000 A            DATA     0
     9404   01 0345C    00F9F9F9 A            DATA     X'00F9F9F9'
     9405   01 0345D    88887777 A            DATA     X'88887777'
     9406   01 0345E    88887777 A            DATA     X'88887777'
     9407   01 0345F    00000000 A            DATA     0
     9408   01 03460    F9F0F0F0 A            DATA     '9000'
     9409   01 03461    07870842 A            DATA     X'07870842'
     9410   01 03462    07870842 A            DATA     X'07870842'
     9411   01 03463    00000000 A            DATA     0
     9412   01 03464    F0F8F8F8 A            DATA     '0888'
     9413   01 03465    1369693D A            DATA     X'1369693D'
     9414   01 03466    1369693D A            DATA     X'1369693D'
     9415   01 03467    00000000 A            DATA     0
     9416   01 03468    F8F7F7F7 A            DATA     '8777'
     9417   01 03469    00000000 A            DATA     0
     9418   01 0346A    F7F0F7F8 A            DATA     '7078'
     9419   01 0346B    00000000 A            DATA     0
     9420   01 0346C    F7F0F8F4 A            DATA     '7084'
     9421   01 0346D    00000000 A            DATA     0
     9422   01 0346E    F2F1F3F6 A            DATA     '2136'
     9423   01 0346F    00000000 A            DATA     0
     9424   01 03470    F9F6F9D3 A            DATA     X'F9F6F9D3'
     9425   01 03471    120700D6 A   UNPK7    MODULE                     5 DIGIT, ALL SIGNIFICANCE
     9426   01 03472    77503800              UNPK,5   MEMORY            NOT ZONED AND STORED.
     9427   01 03473    073011DD              K        0,7,3,LOC
     9428   01 03474    473011DF              K        4,7,3,LOC+2
     9429   01 03475    00000000 A            DATA     0
     9430   01 03476    00000000 A            DATA     0
     9431   01 03477    00000000 A            DATA     0
     9432   01 03478    F9F8F7F6 A            DATA     '9876'
     9433   01 03479    00000000 A            DATA     0
     9434   01 0347A    00000000 A            DATA     0
     9435   01 0347B    00000000 A            DATA     0
     9436   01 0347C    F5F4F3F2 A            DATA     '5432'
     9437   01 0347D    54321098 A            DATA     X'54321098'
     9438   01 0347E    54321098 A            DATA     X'54321098'
     9439   01 0347F    00000000 A            DATA     0
     9440   01 03480    C1000000 A            DATA     X'C1000000'
     9441   01 03481    7654321C A            DATA     X'7654321C'
     9442   01 03482    7654321C A            DATA     X'7654321C'
     9443   01 03483    120800D7 A   UNPK8    MODULE                     UNPACK 1 DIGIT
     9444   01 03484    77103800              UNPK,1   MEMORY
     9445   01 03485    B73011DD              K        11,7,3,LOC
     9446   01 03486    773011DF              K        7,7,3,LOC+2
     9447   01 03487    00000000 A            DATA     0                 R12 IN
     9448   01 03488    00000000 A            DATA     0                 R12 OUT
     9449   01 03489    AAAAAAAA A            DATA     X'AAAAAAAA'       MEMORY+0 IN
     9450   01 0348A    D3AAAAAA A            DATA     X'D3AAAAAA'       MEMORY+0 OUT
     9451   01 0348B    00000000 A            DATA     0                 R13 IN
     9452   01 0348C    00000000 A            DATA     0                 R13 OUT
     9453   01 0348D    00000000 A            DATA     0                 MEMORY+1 IN
     9454   01 0348E    00000000 A            DATA     0                 MEMORY+1 OUT
     9455   01 0348F    00000000 A            DATA     0                 R14 IN
     9456   01 03490    00000000 A            DATA     0                 R14 OUT
     9457   01 03491    00000000 A            DATA     0                 MEMORY+2 IN
     9458   01 03492    00000000 A            DATA     0                 MEMORY+2 OUT
     9459   01 03493    0000013D A            DATA     X'0000013D'       R15 IN
     9460   01 03494    0000013D A            DATA     X'0000013D'       R15 OUT
     9461   01 03495    120910D8 A   UNPK09   MODULE,1
     9462   01 03496    77103800              UNPK,1   MEMORY
     9463   01 03497    073011DD              K        0,7,3,LOC
     9464   01 03498    07301016              K        0,7,3,EXP:TRAP
     9465   01 03499    00000009 A            DATA     9
     9466   01 0349A    00000009 A            DATA     9
     9467   01 0349B    00000000 A            DATA     0
     9468   01 0349C    00000000 A            DATA     0
     9469   01 0349D    00000008 A            DATA     8
     9470   01 0349E    00000008 A            DATA     8
     9471   01 0349F    00000000 A            DATA     0
     9472   01 034A0    00000000 A            DATA     0
     9473   01 034A1    00000007 A            DATA     7
     9474   01 034A2    00000007 A            DATA     7
     9475   01 034A3    00000000 A            DATA     0
     9476   01 034A4    00000000 A            DATA     0
     9477   01 034A5    1234567C A            DATA     X'1234567C'
     9478   01 034A6    1234567C A            DATA     X'1234567C'
     9479                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=0,EXPECTED TRAP
     9480   01 034A7    120A10D9 A   UNPK10   MODULE,1
     9481   01 034A8    773037FF              UNPK,3   MEMORY-1
     9482   01 034A9    073011DD              K        0,7,3,LOC
     9483   01 034AA    07301016              K        0,7,3,EXP:TRAP
     9484   01 034AB    00000001 A            DATA     1
     9485   01 034AC    00000001 A            DATA     1
     9486   01 034AD    00000000 A            DATA     0
     9487   01 034AE    00000000 A            DATA     0
     9488   01 034AF    00000002 A            DATA     2
     9489   01 034B0    00000002 A            DATA     2
     9490   01 034B1    00000000 A            DATA     0
     9491   01 034B2    00000000 A            DATA     0
     9492   01 034B3    00000054 A            DATA     X'54'
     9493   01 034B4    00000054 A            DATA     X'54'
     9494   01 034B5    00000000 A            DATA     0
     9495   01 034B6    00000000 A            DATA     0
     9496   01 034B7    3210987D A            DATA     X'3210987D'
     9497   01 034B8    3210987D A            DATA     X'3210987D'
     9498                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=1, NO TRAP
     9499   01 034B9    120B10DA A   UNPK11   MODULE,1
     9500   01 034BA    771237FF              UNPK,1   MEMORY-1,1
     9501   01 034BB    073011DD              K        0,7,3,LOC
     9502   01 034BC    473011DF              K        4,7,3,LOC+2
     9503   01 034BD    00000005 A            DATA     5
     9504   01 034BE    00000005 A            DATA     5
     9505   01 034BF    00000000 A            DATA     0
     9506   01 034C0    00C80000 A            DATA     X'C80000'
     9507   01 034C1    00000007 A            DATA     7
     9508   01 034C2    00000007 A            DATA     7
     9509   01 034C3    00000000 A            DATA     0
     9510   01 034C4    00000000 A            DATA     0
     9511   01 034C5    00000006 A            DATA     6
     9512   01 034C6    00000006 A            DATA     6
     9513   01 034C7    00000000 A            DATA     0
     9514   01 034C8    00000000 A            DATA     0
     9515   01 034C9    5432108C A            DATA     X'5432108C'
     9516   01 034CA    5432108C A            DATA     X'5432108C'
     9517                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=1,EXPECTED TRAP
     9518   01 034CB    120C10DB A   UNPK12   MODULE,1
     9519   01 034CC    775237FE              UNPK,5   MEMORY-2,1
     9520   01 034CD    073011DD              K        0,7,3,LOC
     9521   01 034CE    07301016              K        0,7,3,EXP:TRAP
     9522   01 034CF    00000006 A            DATA     6
     9523   01 034D0    00000006 A            DATA     6
     9524   01 034D1    00000000 A            DATA     0
     9525   01 034D2    00000000 A            DATA     0
     9526   01 034D3    12345678 A            DATA     X'12345678'
     9527   01 034D4    12345678 A            DATA     X'12345678'
     9528   01 034D5    00000000 A            DATA     0
     9529   01 034D6    00000000 A            DATA     0
     9530   01 034D7    24681357 A            DATA     X'24681357'
     9531   01 034D8    24681357 A            DATA     X'24681357'
     9532   01 034D9    00000000 A            DATA     0
     9533   01 034DA    00000000 A            DATA     0
     9534   01 034DB    9876543D A            DATA     X'9876543D'
     9535   01 034DC    9876543D A            DATA     X'9876543D'
     9536                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=2,EXPECTED TRAP
     9537   01 034DD    120D10DC A   UNPK13   MODULE,1
     9538   01 034DE    773437FF              UNPK,3   MEMORY-1,2
     9539   01 034DF    073011DD              K        0,7,3,LOC
     9540   01 034E0    07301016              K        0,7,3,EXP:TRAP
     9541   01 034E1    00000003 A            DATA     3
     9542   01 034E2    00000003 A            DATA     3
     9543   01 034E3    00000000 A            DATA     0
     9544   01 034E4    00000000 A            DATA     0
     9545   01 034E5    00000007 A            DATA     7
     9546   01 034E6    00000007 A            DATA     7
     9547   01 034E7    00000000 A            DATA     0
     9548   01 034E8    00000000 A            DATA     0
     9549   01 034E9    13572468 A            DATA     X'13572468'
     9550   01 034EA    13572468 A            DATA     X'13572468'
     9551   01 034EB    00000000 A            DATA     0
     9552   01 034EC    00000000 A            DATA     0
     9553   01 034ED    9176553C A            DATA     X'9176553C'
     9554   01 034EE    9176553C A            DATA     X'9176553C'
     9555                            * CLEAN TRAPS TEST IN WRITE LOCK MODE,BYTEINDEX=3,EXPECTED TRAP
     9556   01 034EF    120E10DD A   UNPK14   MODULE,1
     9557   01 034F0    774637FE              UNPK,4   MEMORY-2,3
     9558   01 034F1    073011DD              K        0,7,3,LOC
     9559   01 034F2    07301016              K        0,7,3,EXP:TRAP
     9560   01 034F3    00000005 A            DATA     5
     9561   01 034F4    00000005 A            DATA     5
     9562   01 034F5    00000000 A            DATA     0
     9563   01 034F6    00000000 A            DATA     0
     9564   01 034F7    00000088 A            DATA     X'88'
     9565   01 034F8    00000088 A            DATA     X'88'
     9566   01 034F9    00000000 A            DATA     0
     9567   01 034FA    00000000 A            DATA     0
     9568   01 034FB    58719264 A            DATA     X'58719264'
     9569   01 034FC    58719264 A            DATA     X'58719264'
     9570   01 034FD    00000000 A            DATA     0
     9571   01 034FE    00000000 A            DATA     0
     9572   01 034FF    3927156D A            DATA     X'3927156D'
     9573   01 03500    3927156D A            DATA     X'3927156D'
     9574                            * TEST OF ASCII CODE GENERATION, DACA SIGN = EBCDIC -
     9575                            * MEMORY OPERAND SIGN AFTER UNPACK=ASCII - ,ZONE = ASCII
     9576   01 03501    160F00DE A   UNPK15   MODULE
     9577   01 03502    77A03800              UNPK,10  MEMORY
     9578   01 03503    073811DD              N        0,7,3,1,LOC
     9579   01 03504    073811DF              N        0,7,3,1,LOC+2
     9580   01 03505    00000000 A            DATA     0
     9581   01 03506    00000000 A            DATA     0
     9582   01 03507    00000000 A            DATA     0
     9583   01 03508    30303031 A            DATA     X'30303031'
     9584   01 03509    00000001 A            DATA     1
     9585   01 0350A    00000001 A            DATA     1
     9586   01 0350B    00000000 A            DATA     0
     9587   01 0350C    32333435 A            DATA     X'32333435'
     9588   01 0350D    23456789 A            DATA     X'23456789'
     9589   01 0350E    23456789 A            DATA     X'23456789'
     9590   01 0350F    00000000 A            DATA     0
     9591   01 03510    36373839 A            DATA     X'36373839'
     9592   01 03511    0123456D A            DATA     X'0123456D'
     9593   01 03512    0123456D A            DATA     X'0123456D'
     9594   01 03513    00000000 A            DATA     0
     9595   01 03514    30313233 A            DATA     X'30313233'
     9596   01 03515    00000000 A            DATA     0
     9597   01 03516    3435B600 A            DATA     X'3435B600'
     9598                            * TEST OF ASCII CODE GENERATION, DECA SIGN = EBCDIC +
     9599                            * MEMORY OPERAND SIGN AFTER UNPACK= ASCII +, ZONE = ASCII
     9600   01 03517    141000DF A   UNPK16   MODULE
     9601   01 03518    77803800              UNPK,8   MEMORY
     9602   01 03519    073811DD              N        0,7,3,1,LOC
     9603   01 0351A    473811DF              N        4,7,3,1,LOC+2
     9604   01 0351B    00000000 A            DATA     0
     9605   01 0351C    00000000 A            DATA     0
     9606   01 0351D    00000000 A            DATA     0
     9607   01 0351E    31303030 A            DATA     X'31303030'
     9608   01 0351F    23000000 A            DATA     X'23000000'
     9609   01 03520    23000000 A            DATA     X'23000000'
     9610   01 03521    00000000 A            DATA     0
     9611   01 03522    31323334 A            DATA     X'31323334'
     9612   01 03523    10001234 A            DATA     X'10001234'
     9613   01 03524    10001234 A            DATA     X'10001234'
     9614   01 03525    00000000 A            DATA     0
     9615   01 03526    30303132 A            DATA     X'30303132'
     9616   01 03527    0012345C A            DATA     X'12345C'
     9617   01 03528    0012345C A            DATA     X'12345C'
     9618   01 03529    00000000 A            DATA     0
     9619   01 0352A    3334A500 A            DATA     X'3334A500'
     9620                            * TEST OF ASCII CODE GENERATION, DACA SIGN = ASCII -
     9621                            * MEMORY OPERAND SIGN AFTER UNPACK= ASCII -, ZONE= ASCII
     9622   01 0352B    121100E0 A   UNPK17   MODULE
     9623   01 0352C    77403800              UNPK,4   MEMORY
     9624   01 0352D    073811DD              N        0,7,3,1,LOC
     9625   01 0352E    473811DF              N        4,7,3,1,LOC+2
     9626   01 0352F    00001001 A            DATA     X'1001'
     9627   01 03530    00001001 A            DATA     X'1001'
     9628   01 03531    00000000 A            DATA     0
     9629   01 03532    30303031 A            DATA     X'30303031'
     9630   01 03533    00001002 A            DATA     X'1002'
     9631   01 03534    00001002 A            DATA     X'1002'
     9632   01 03535    00000000 A            DATA     0
     9633   01 03536    3030B400 A            DATA     X'3030B400'
     9634   01 03537    00001003 A            DATA     X'1003'
     9635   01 03538    00001003 A            DATA     X'1003'
     9636   01 03539    00000000 A            DATA     0
     9637   01 0353A    00000000 A            DATA     0
     9638   01 0353B    0001004B A            DATA     X'1004B'
     9639   01 0353C    0001004B A            DATA     X'1004B'
     9640                            * TEST OF ASCII CODE GENERATION, DACA SIGN = ASCII +
     9641                            * MEMORY OPERAND SIGN AFTER UNPACK= ASCII +, ZONE= ASCII
     9642   01 0353D    161200E1 A   UNPK18   MODULE
     9643   01 0353E    77A03800              UNPK,10 MEMORY
     9644   01 0353F    073811DD              N        0,7,3,1,LOC
     9645   01 03540    073811DF              N        0,7,3,1,LOC+2
     9646   01 03541    00000000 A            DATA     0
     9647   01 03542    00000000 A            DATA     0
     9648   01 03543    00000000 A            DATA     0
     9649   01 03544    30303031 A            DATA     X'30303031'
     9650   01 03545    00000001 A            DATA     1
     9651   01 03546    00000001 A            DATA     1
     9652   01 03547    00000000 A            DATA     0
     9653   01 03548    32333435 A            DATA     X'32333435'
     9654   01 03549    23456789 A            DATA     X'23456789'
     9655   01 0354A    23456789 A            DATA     X'23456789'
     9656   01 0354B    00000000 A            DATA     0
     9657   01 0354C    36373839 A            DATA     X'36373839'
     9658   01 0354D    0123456A A            DATA     X'0123456A'
     9659   01 0354E    0123456A A            DATA     X'0123456A'
     9660   01 0354F    00000000 A            DATA     0
     9661   01 03550    30313233 A            DATA     X'30313233'
     9662   01 03551    00000000 A            DATA     0
     9663   01 03552    3435A600 A            DATA     X'3435A600'
     9664                            * TEST OF EBCDIC CODE GENERATION, DECA SIGN = ASCII -
     9665                            * MEMORY OPERAND SIGN AFTER UNPACK = EBCDIC - , ZONE= EBCDIC
     9666   01 03553    141300E2 A   UNPK19   MODULE
     9667   01 03554    77803800              UNPK,8   MEMORY
     9668   01 03555    073011DD              K        0,7,3,LOC
     9669   01 03556    473011DF              K        4,7,3,LOC+2
     9670   01 03557    00000000 A            DATA     0
     9671   01 03558    00000000 A            DATA     0
     9672   01 03559    00000000 A            DATA     0
     9673   01 0355A    F1F0F0F0 A            DATA     X'F1F0F0F0'
     9674   01 0355B    23000000 A            DATA     X'23000000'
     9675   01 0355C    23000000 A            DATA     X'23000000'
     9676   01 0355D    00000000 A            DATA     0
     9677   01 0355E    F1F2F3F4 A            DATA     X'F1F2F3F4'
     9678   01 0355F    10001234 A            DATA     X'10001234'
     9679   01 03560    10001234 A            DATA     X'10001234'
     9680   01 03561    00000000 A            DATA     0
     9681   01 03562    F0F0F1F2 A            DATA     X'F0F0F1F2'
     9682   01 03563    0012345B A            DATA     X'12345B'
     9683   01 03564    0012345B A            DATA     X'12345B'
     9684   01 03565    00000000 A            DATA     0
     9685   01 03566    F3F4D500 A            DATA     X'F3F4D500'
     9686                            * TEST OF EBCDIC CODE GENERATION, DECA SIGN =ASCII +
     9687                            * MEMORY OPERAND SIGN AFTER UNPACK = EBCDIC +, ZONE= EBCDIC
     9688   01 03567    121400E3 A   UNPK20   MODULE
     9689   01 03568    77403800              UNPK,4   MEMORY
     9690   01 03569    073011DD              K        0,7,3,LOC
     9691   01 0356A    473011DF              K        4,7,3,LOC+2
     9692   01 0356B    00001001 A            DATA     X'1001'
     9693   01 0356C    00001001 A            DATA     X'1001'
     9694   01 0356D    00000000 A            DATA     0
     9695   01 0356E    F0F0F0F1 A            DATA     X'F0F0F0F1'
     9696   01 0356F    00001002 A            DATA     X'1002'
     9697   01 03570    00001002 A            DATA     X'1002'
     9698   01 03571    00000000 A            DATA     0
     9699   01 03572    F0F0C400 A            DATA     X'F0F0C400'
     9700   01 03573    00001003 A            DATA     X'1003'
     9701   01 03574    00001003 A            DATA     X'1003'
     9702   01 03575    00000000 A            DATA     0
     9703   01 03576    00000000 A            DATA     0
     9704   01 03577    0001004A A            DATA     X'1004A'
     9705   01 03578    0001004A A            DATA     X'1004A'
     9706   01 03579    040100E4 A   PACK1    MODULE   X'76'             TRAP ON INVALID SIGN.
     9707   01 0357A    76003800              PACK,0   MEMORY
     9708   01 0357B    073011E2              K        0,7,3,LOC+5
     9709   01 0357C    8730101B              K        8,7,3,EXP:TRAP+5
     9710                            *  ALL REMAINING INPUTS FOR THIS TEST ARE ZERO.
     9711   01 0357D    140200E5 A   PACK2    MODULE                     TRAP ON INVALID DIGIT.
     9712   01 0357E    76003800              PACK,0   MEMORY
     9713   01 0357F    073011E2              K        0,7,3,LOC+5
     9714   01 03580    8730101B              K        8,7,3,EXP:TRAP+5
     9715   01 03581    00000000 A            DATA     0
     9716   01 03582    00000000 A            DATA     0
     9717   01 03583    0F000000 A            DATA     X'0F000000'
     9718   01 03584    0F000000 A            DATA     X'0F000000'
     9719   01 03585    00000000 A            DATA     0
     9720   01 03586    00000000 A            DATA     0
     9721   01 03587    00000000 A            DATA     0
     9722   01 03588    00000000 A            DATA     0
     9723   01 03589    00000000 A            DATA     0
     9724   01 0358A    00000000 A            DATA     0
     9725   01 0358B    00000000 A            DATA     0
     9726   01 0358C    00000000 A            DATA     0
     9727   01 0358D    00000000 A            DATA     0
     9728   01 0358E    00000000 A            DATA     0
     9729   01 0358F    0000000C A            DATA     X'0000000C'
     9730   01 03590    0000000C A            DATA     X'0000000C'
     9731   01 03591    1C0300E6 A   PACK3    MODULE                     31 DIGIT POSITIVE, WORD BOUNDARY.
     9732   01 03592    76003800              PACK,0   MEMORY
     9733   01 03593    073011DD              K        0,7,3,LOC
     9734   01 03594    273011DF              K        2,7,3,LOC+2
     9735   01 03595    00000000 A            DATA     0
     9736   01 03596    12345678 A            DATA     X'12345678'
     9737   01 03597    F1F2F3F4 A            DATA     '1234'
     9738   01 03598    F1F2F3F4 A            DATA     '1234'
     9739   01 03599    00000000 A            DATA     0
     9740   01 0359A    99876543 A            DATA     X'99876543'
     9741   01 0359B    F5F6F7F8 A            DATA     '5678'
     9742   01 0359C    F5F6F7F8 A            DATA     '5678'
     9743   01 0359D    00000000 A            DATA     0
     9744   01 0359E    21076969 A            DATA     X'21076969'
     9745   01 0359F    F9F9F8F7 A            DATA     '9987'
     9746   01 035A0    F9F9F8F7 A            DATA     '9987'
     9747   01 035A1    00000000 A            DATA     0
     9748   01 035A2    8787777C A            DATA     X'8787777C'
     9749   01 035A3    F6F5F4F3 A            DATA     '6543'
     9750   01 035A4    F6F5F4F3 A            DATA     '6543'
     9751   01 035A5    F2F1F0F7 A            DATA     '2107'
     9752   01 035A6    F2F1F0F7 A            DATA     '2107'
     9753   01 035A7    F6F9F6F9 A            DATA     '6969'
     9754   01 035A8    F6F9F6F9 A            DATA     '6969'
     9755   01 035A9    F8F7F8F7 A            DATA     '8787'
     9756   01 035AA    F8F7F8F7 A            DATA     '8787'
     9757   01 035AB    F7F7C7FF A            DATA     X'F7F7C7FF'
     9758   01 035AC    F7F7C7FF A            DATA     X'F7F7C7FF'
     9759   01 035AD    1C0400E7 A   PACK4    MODULE                     31 DIGIT POSITIVE, ODD BYTE.
     9760   01 035AE    76023800              PACK,0   MEMORY,1
     9761   01 035AF    073011DD              K        0,7,3,LOC
     9762   01 035B0    273011DF              K        2,7,3,LOC+2
     9763   01 035B1    FFFFFFFF A            DATA     -1
     9764   01 035B2    12345435 A            DATA     X'12345435'
     9765   01 035B3    0FF1F2F3 A            DATA     X'0FF1F2F3'
     9766   01 035B4    0FF1F2F3 A            DATA     X'0FF1F2F3'
     9767   01 035B5    FFFFFFF0 A            DATA     -16
     9768   01 035B6    65467657 A            DATA     X'65467657'
     9769   01 035B7    F4F5F4F3 A            DATA     '4543'
     9770   01 035B8    F4F5F4F3 A            DATA     '4543'
     9771   01 035B9    FFFFFFE0 A            DATA     -32
     9772   01 035BA    87689877 A            DATA     X'87689877'
     9773   01 035BB    F5F6F5F4 A            DATA     '5654'
     9774   01 035BC    F5F6F5F4 A            DATA     '5654'
     9775   01 035BD    FFFFFFC0 A            DATA     -64
     9776   01 035BE    8873687C A            DATA     X'8873687C'
     9777   01 035BF    F6F7F6F5 A            DATA     '6765'
     9778   01 035C0    F6F7F6F5 A            DATA     '6765'
     9779   01 035C1    F7F8F7F6 A            DATA     '7876'
     9780   01 035C2    F7F8F7F6 A            DATA     '7876'
     9781   01 035C3    F8F9F8F7 A            DATA     '8987'
     9782   01 035C4    F8F9F8F7 A            DATA     '8987'
     9783   01 035C5    F7F8F8F7 A            DATA     '7887'
     9784   01 035C6    F7F8F8F7 A            DATA     '7887'
     9785   01 035C7    F3F6F8C7 A            DATA     X'F3F6F8C7'
     9786   01 035C8    F3F6F8C7 A            DATA     X'F3F6F8C7'
     9787   01 035C9    1C0500E8 A   PACK5    MODULE                     31 DIGIT NEGATIVE, WORD BOUNDARY.
     9788   01 035CA    76003800              PACK,0   MEMORY
     9789   01 035CB    073011DD              K        0,7,3,LOC
     9790   01 035CC    173011DF              K        1,7,3,LOC+2
     9791   01 035CD    00000010 A            DATA     16
     9792   01 035CE    10203040 A            DATA     X'10203040'
     9793   01 035CF    F1F0F2F0 A            DATA     '1020'
     9794   01 035D0    F1F0F2F0 A            DATA     '1020'
     9795   01 035D1    00000020 A            DATA     32
     9796   01 035D2    50607080 A            DATA     X'50607080'
     9797   01 035D3    F3F0F4F0 A            DATA     '3040'
     9798   01 035D4    F3F0F4F0 A            DATA     '3040'
     9799   01 035D5    00000040 A            DATA     64
     9800   01 035D6    90010203 A            DATA     X'90010203'
     9801   01 035D7    F5F0F6F0 A            DATA     '5060'
     9802   01 035D8    F5F0F6F0 A            DATA     '5060'
     9803   01 035D9    00000080 A            DATA     128
     9804   01 035DA    0405060D A            DATA     X'0405060D'
     9805   01 035DB    F7F0F8F0 A            DATA     '7080'
     9806   01 035DC    F7F0F8F0 A            DATA     '7080'
     9807   01 035DD    F9F0F0F1 A            DATA     '9001'
     9808   01 035DE    F9F0F0F1 A            DATA     '9001'
     9809   01 035DF    F0F2F0F3 A            DATA     '0203'
     9810   01 035E0    F0F2F0F3 A            DATA     '0203'
     9811   01 035E1    F0F4F0F5 A            DATA     '0405'
     9812   01 035E2    F0F4F0F5 A            DATA     '0405'
     9813   01 035E3    F0F6D0FF A            DATA     X'F0F6D0FF'
     9814   01 035E4    F0F6D0FF A            DATA     X'F0F6D0FF'
     9815   01 035E5    1C0600E9 A   PACK6    MODULE                     31 DIGIT NEGATIVE, ODD BYTE.
     9816   01 035E6    76023800              PACK,0   MEMORY,1
     9817   01 035E7    073011DD              K        0,7,3,LOC
     9818   01 035E8    173011DF              K        1,7,3,LOC+2
     9819   01 035E9    FFFFFFFF A            DATA     -1
     9820   01 035EA    96987870 A            DATA     X'96987870'
     9821   01 035EB    FFF9F6F9 A            DATA     X'FFF9F6F9'
     9822   01 035EC    FFF9F6F9 A            DATA     X'FFF9F6F9'
     9823   01 035ED    FFFFFFFF A            DATA     -1
     9824   01 035EE    12487070 A            DATA     X'12487070'
     9825   01 035EF    F8F7F8F7 A            DATA     '8787'
     9826   01 035F0    F8F7F8F7 A            DATA     '8787'
     9827   01 035F1    FFFFFFFF A            DATA     -1
     9828   01 035F2    00077778 A            DATA     X'00077778'
     9829   01 035F3    F0F1F2F4 A            DATA     '0124'
     9830   01 035F4    F0F1F2F4 A            DATA     '0124'
     9831   01 035F5    FFFFFFFF A            DATA     -1
     9832   01 035F6    8884242D A            DATA     X'8884242D'
     9833   01 035F7    F8F7F0F7 A            DATA     '8707'
     9834   01 035F8    F8F7F0F7 A            DATA     '8707'
     9835   01 035F9    00000000 A            DATA     X'0000'
     9836   01 035FA    00000000 A            DATA     X'0000'
     9837   01 035FB    F7F7F7F7 A            DATA     '7777'
     9838   01 035FC    F7F7F7F7 A            DATA     '7777'
     9839   01 035FD    F8F8F8F8 A            DATA     '8888'
     9840   01 035FE    F8F8F8F8 A            DATA     '8888'
     9841   01 035FF    A402E4B2 A            DATA     X'A402E4B2'
     9842   01 03600    A402E4B2 A            DATA     X'A402E4B2'
     9843   01 03601    120700EA A   PACK7    MODULE                     10 DIGIT NEGATIVE, ODD BYTE
     9844   01 03602    76523800              PACK,5   MEMORY,1
     9845   01 03603    073011DD              K        0,7,3,LOC
     9846   01 03604    173011DF              K        1,7,3,LOC+2
     9847   01 03605    FFFFFFFF A            DATA     -1
     9848   01 03606    00000000 A            DATA     0
     9849   01 03607    FFA1B2C3 A            DATA     X'FFA1B2C3'
     9850   01 03608    FFA1B2C3 A            DATA     X'FFA1B2C3'
     9851   01 03609    FFFFFFFF A            DATA     -1
     9852   01 0360A    00000000 A            DATA     0
     9853   01 0360B    D4E5F607 A            DATA     X'D4E5F607'
     9854   01 0360C    D4E5F607 A            DATA     X'D4E5F607'
     9855   01 0360D    FFFFFFFF A            DATA     -1
     9856   01 0360E    00000012 A            DATA     X'00000012'
     9857   01 0360F    18D90F0F A            DATA     X'18D90F0F'
     9858   01 03610    18D90F0F A            DATA     X'18D90F0F'
     9859   01 03611    FFFFFFFF A            DATA     -1
     9860   01 03612    3456789D A            DATA     X'3456789D'
     9861   01 03613    120800EB A   PACK8    MODULE                     1 DIGIT,WORD BOUNDARY
     9862   01 03614    76103800              PACK,1   MEMORY
     9863   01 03615    E73011DD              K        14,7,3,LOC
     9864   01 03616    173011DF              K        1,7,3,LOC+2
     9865   01 03617    33333333 A            DATA     X'33333333'       R12 IN
     9866   01 03618    00000000 A            DATA     0                 R12 OUT
     9867   01 03619    D4999999 A            DATA     X'D4999999'       MEMORY+0 IN
     9868   01 0361A    D4999999 A            DATA     X'D4999999'       MEMORY+0 OUT
     9869   01 0361B    33333333 A            DATA     X'33333333'       R13 IN
     9870   01 0361C    00000000 A            DATA     0                 R13 OUT
     9871   01 0361D    00000000 A            DATA     0                 MEMORY+1 IN
     9872   01 0361E    00000000 A            DATA     0                 MEMORY+1 OUT
     9873   01 0361F    33333333 A            DATA     X'33333333'       R14 IN
     9874   01 03620    00000000 A            DATA     0                 R14 OUT
     9875   01 03621    00000000 A            DATA     0                 MEMORY+2 IN
     9876   01 03622    00000000 A            DATA     0                 MEMORY+2 OUT
     9877   01 03623    33333333 A            DATA     X'33333333'       R15 IN
     9878   01 03624    0000004D A            DATA     X'0000004D'       R15 OUT
     9879   01 03625    080900EC A   PACK9    MODULE                     TRAP ON ILLEGAL SIGN
     9880   01 03626    76203800              PACK,2   MEMORY
     9881   01 03627    773011E2              K        7,7,3,LOC+5
     9882   01 03628    B730101B              K        11,7,3,EXP:TRAP+5
     9883   01 03629    44444444 A            DATA     X'44444444'       R12 IN
     9884   01 0362A    44444444 A            DATA     X'44444444'       R12 OUT
     9885   01 0362B    FAC30000 A            DATA     X'FAC30000'       MEMORY+0 IN   X'A' IS ILLEGAL
     9886   01 0362C    FAC30000 A            DATA     X'FAC30000'       MEMORY+0 OUT
     9887                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 0
     9888   01 0362D    120A00ED A   PACK10   MODULE
     9889   01 0362E    76303800              PACK,3   MEMORY
     9890   01 0362F    073011DD              K        0,7,3,LOC
     9891   01 03630    173011DF              K        1,7,3,LOC+2
     9892   01 03631    FFFFFFFF A            DATA     -1
     9893   01 03632    00000000 A            DATA     0
     9894   01 03633    F1F2D3F4 A            DATA     X'F1F2D3F4'
     9895   01 03634    F1F2D3F4 A            DATA     X'F1F2D3F4'
     9896   01 03635    FFFFFFFF A            DATA     -1
     9897   01 03636    00000000 A            DATA     0
     9898   01 03637    D5E6B7C8 A            DATA     X'D5E6B7C8'
     9899   01 03638    D5E6B7C8 A            DATA     X'D5E6B7C8'
     9900   01 03639    FFFFFFFF A            DATA     -1
     9901   01 0363A    00000000 A            DATA     0
     9902   01 0363B    00000000 A            DATA     0
     9903   01 0363C    00000000 A            DATA     0
     9904   01 0363D    FFFFFFFF A            DATA     -1
     9905   01 0363E    0012345D A            DATA     X'0012345D'
     9906                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 0
     9907   01 0363F    120B00EE A   PACK11   MODULE
     9908   01 03640    76403800              PACK,4   MEMORY
     9909   01 03641    073011DD              K        0,7,3,LOC
     9910   01 03642    273011DF              K        2,7,3,LOC+2
     9911   01 03643    FFFFFFFF A            DATA     -1
     9912   01 03644    00000000 A            DATA     0
     9913   01 03645    F9F8C7D6 A            DATA     X'F9F8C7D6'
     9914   01 03646    F9F8C7D6 A            DATA     X'F9F8C7D6'
     9915   01 03647    FFFFFFFF A            DATA     -1
     9916   01 03648    00000000 A            DATA     0
     9917   01 03649    F5A4A3F2 A            DATA     X'F5A4A3F2'
     9918   01 0364A    F5A4A3F2 A            DATA     X'F5A4A3F2'
     9919   01 0364B    FFFFFFFF A            DATA     -1
     9920   01 0364C    00000000 A            DATA     0
     9921   01 0364D    00000000 A            DATA     0
     9922   01 0364E    00000000 A            DATA     0
     9923   01 0364F    FFFFFFFF A            DATA     -1
     9924   01 03650    9876543C A            DATA     X'9876543C'
     9925                            * BYTE ADDRESSING TEST , L = 3 , R3 INDEX = 1
     9926   01 03651    120C00EF A   PACK12   MODULE
     9927   01 03652    76323800              PACK,3   MEMORY,1
     9928   01 03653    073011DD              K        0,7,3,LOC
     9929   01 03654    173011DF              K        1,7,3,LOC+2
     9930   01 03655    00000001 A            DATA     1
     9931   01 03656    00000000 A            DATA     0
     9932   01 03657    F9E8D7C6 A            DATA     X'F9E8D7C6'
     9933   01 03658    F9E8D7C6 A            DATA     X'F9E8D7C6'
     9934   01 03659    00000001 A            DATA     1
     9935   01 0365A    00000000 A            DATA     0
     9936   01 0365B    A5B49382 A            DATA     X'A5B49382'
     9937   01 0365C    A5B49382 A            DATA     X'A5B49382'
     9938   01 0365D    00000001 A            DATA     1
     9939   01 0365E    00000000 A            DATA     0
     9940   01 0365F    00000000 A            DATA     0
     9941   01 03660    00000000 A            DATA     0
     9942   01 03661    00000001 A            DATA     1
     9943   01 03662    0087654D A            DATA     X'87654D'
     9944                            * BYTE ADDRESSING TEST , L = 1 , R3 INDEX = 2
     9945   01 03663    120D00F0 A   PACK13   MODULE
     9946   01 03664    76143800              PACK,1   MEMORY,2
     9947   01 03665    073011DD              K        0,7,3,LOC
     9948   01 03666    273011DF              K        2,7,3,LOC+2
     9949   01 03667    FFFFFFFF A            DATA     -1
     9950   01 03668    00000000 A            DATA     0
     9951   01 03669    A5B7C9D3 A            DATA     X'A5B7C9D3'
     9952   01 0366A    A5B7C9D3 A            DATA     X'A5B7C9D3'
     9953   01 0366B    FFFFFFFF A            DATA     -1
     9954   01 0366C    00000000 A            DATA     0
     9955   01 0366D    00000000 A            DATA     0
     9956   01 0366E    00000000 A            DATA     0
     9957   01 0366F    FFFFFFFF A            DATA     -1
     9958   01 03670    00000000 A            DATA     0
     9959   01 03671    00000000 A            DATA     0
     9960   01 03672    00000000 A            DATA     0
     9961   01 03673    FFFFFFFF A            DATA     -1
     9962   01 03674    0000009C A            DATA     X'9C'
     9963                            * BYTE ADDRESSING TEST , L = 4 , R3 INDEX = 3
     9964   01 03675    120E00F1 A   PACK14   MODULE
     9965   01 03676    76463800              PACK,4   MEMORY,3
     9966   01 03677    073011DD              K        0,7,3,LOC
     9967   01 03678    173011DF              K        1,7,3,LOC+2
     9968   01 03679    FFFFFFFF A            DATA     -1
     9969   01 0367A    00000000 A            DATA     0
     9970   01 0367B    F5F4F3F2 A            DATA     X'F5F4F3F2'
     9971   01 0367C    F5F4F3F2 A            DATA     X'F5F4F3F2'
     9972   01 0367D    FFFFFFFF A            DATA     -1
     9973   01 0367E    00000000 A            DATA     0
     9974   01 0367F    F1F0A9B8 A            DATA     X'F1F0A9B8'
     9975   01 03680    F1F0A9B8 A            DATA     X'F1F0A9B8'
     9976   01 03681    FFFFFFFF A            DATA     -1
     9977   01 03682    00000000 A            DATA     0
     9978   01 03683    C7D6F5F4 A            DATA     X'C7D6F5F4'
     9979   01 03684    C7D6F5F4 A            DATA     X'C7D6F5F4'
     9980   01 03685    FFFFFFFF A            DATA     -1
     9981   01 03686    2109876D A            DATA     X'2109876D'
     9982         000000F1           LAST:MOD SET      MODULE#
     9983   01 03687    010F00F2 A            MODULE
     9984         000000F2           CON:WORD SET      MODULE#
     9985         01 03688           LASTMODULE EQU    %
     9986   01 03688    001000F3 A            MODULE
     9987                            *
     9988   01 03689    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
     9989   01 0368A    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
     9990   01 0368B    EA6003C8              BAL,X6   *#GUIDE%
     9991   01 0368C    02207438              GEN,8,3,21 2,1,BA(PROGTEXT)
     9992   01 0368D    1D20E000              GEN,8,3,21   29,1,BA(ENDE)                                 *A03
     9993                            *
     9994                            *
     9995   01 0368E    00000000 A            DATA     0
     9996   01 0368F    00000000 A   SN:OBS   DATA     0
     9997                            *
     9998   01 03800                 ENDE     ORG      ((ABSVAL(%)//512)*512)              PAGE BOUND
            01 03800
     9999                            *
    10000                            *
    10001         01 03800           MEMORY   EQU      ENDE
    10002         01 03810           RES:SAV  EQU      ENDE+16
    10003         01 03820           RTABLIN  EQU      ENDE+32
    10004         01 03830           MTABLIN  EQU      ENDE+48
    10005         01 03840           RTABLOUT EQU      ENDE+64
    10006         01 03854           MTABLOUT EQU      ENDE+84
    10007         01 03860           SBUF:END EQU      ENDE+96
    10008         01 03860           SN:CHECK EQU      ENDE+96
    10009         01 03865           BIT:MSK  EQU      ENDE+101
    10010         01 03965           SN:EXP   EQU      ENDE+357
    10011                            *
    10012         01 03800                    TEXTCS   'REVISION A04'                                    *A04
    10013                                     TEXTCS   ;                                                 *A04
    10014         01 03804                    'CORRECTED PROBLEM OF HANGING IN STATUS RESPOND LOOP'      *A04
    10015                                     TEXTCS   ;                                                 *A04
    10016         01 03811                    'AFTER TYPING IN THE & SYMBOL.  TAR #10944'                *A04
    10017         01 0381C                    TEXTCS   'REVISION *A03'                                   *A03
    10018                                     TEXTCS   ;                                                 *A03
    10019         01 03820                   'PROGRAM MODIFICATIONS'                                     *A03
    10020                                     TEXTCS   ;                                                 *A03
    10021         01 03826                   '1. ADDED ORG AT HEX 1010 FOR REMOTE GUIDE'                 *A03
    10022                                     TEXTCS   ;                                                 *A03
    10023         01 03831                   '2. CORRECTED SNAP OUTPUT TO TTY'                           *A03
    10024                                     TEXTCS   ;                                                 *A03
    10025         01 03839                   '3. CORRECTED  SNAP VERIFY PROBLEM'                         *A03
    10026                                     TEXTCS   ;                                                   *A03
    10027         01 03842                   '4. CORRECTED TAR#10822. PROBLEM OF LOOPING'                  *A03
    10028                                     TEXTCS   ;                                                   *A03
    10029         01 0384D                   '    ON DIVIDE WITH SNAP COMPARE'                             *A03
    10030         01 03855                    TEXTCS   'REVISION *A02- SNAP TO CPU REV. H'
    10031                                     TEXTCS   ;
    10032         01 0385E                   'PROGRAM MODIFICATIONS'
    10033                                     TEXTCS   ;
    10034         01 03864                   '----------------------------'
    10035                                     TEXTCS   ;
    10036         01 0386C                   '1.  RESTORE CI:SAV ON YES RECOVERY.'
    10037                                     TEXTCS   ;
    10038         01 03875                   '2.  CLOCK MARGINS CAN BE FIXED WITHOUT RECOVERY.'
    10039                                     TEXTCS   ;
    10040         01 03882                   '3. NOW CARD LOAD WONT MOVE MAGTAPE.'
    10041                                     TEXTCS   ;
    10042         01 0388B                   '4. BEGIN INTERRUPTABILITY ON 56TH PASS.'
    10043                                     TEXTCS   ;
    10044         01 03895                   '5. ADDED "DEV-NOT-AVAILABLE" MESSAGE TO J-LINE.'
    10045                                     TEXTCS   ;
    10046         01 038A1                   '6. FUNCTIONALLY TEST UNSNAPPABLE MODULES.'
    10047                                     TEXTCS   ;
    10048         01 038AC                   '7. DELETED CNT PULSE & CNT 4 ZERO FROM PROG.'
    10049                                     TEXTCS   ;
    10050         01 038B8                   '8. MODIFIED TAPE HANDLER TO REW CORRECT # MODS.'
    10051                                     TEXTCS   ;
    10052         01 038C4                    '10. CORRECTED CB AND CE CONTROL IN K-LINE.'
    10053         01 038CF                    TEXTCS   'REVISION *A01'
    10054                                     TEXTCS   ;
    10055         01 038D3                   '1.  FIX SO=3 TO NOT CAUSE SNAPPING.'
    10056                                     TEXTCS   ;
    10057         01 038DC                   '2.  RESET COUNTER INTERRUPTS ON ANY RECOVERY.'
    10058                                     TEXTCS   ;
    10059         01 038E8                   '3. FIX AMPERSAND LOOPING PROBLEM.'
    10060                                     TEXTCS   ;
    10061         01 038F1                   '4. FIX CLOCK MARGIN SO THAT IT IS PROPERLY'
    10062                                     TEXTCS   ;
    10063         01 038FC                      'CONTROLLED BY SELECTED PARAMETER.'
    10064                                     TEXTCS   ;
    10065         01 03905                   '5. FIX ERROR REPORT SO THAT IT DISPLAYS THE'
    10066                                     TEXTCS   ;
    10067         01 03910                      'CORRECT FAILING ITEM.'
    10068                                     TEXTCS   ;
    10069         01 03916                   '6. FIX SENSE SWITCH EXPLANATIONS.'
    10070                                     TEXTCS   ;
    10071         01 0391F                   '7. FIX REGISTER POINTER MODULES.'
    10072                            *
    10073         01 0368A           ENDADDR  END      GUIDE             GO TO GUIDE

  CONTROL SECTION SUMMARY: 01 03928   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   23:55 JUN 20,'83    SIGMA 9 CPU DIAG DECIMAL 706136-11/51A04  8-31-72                     PAGE   13
A  A                814-COM
   ADR:MSK         1129/AND     1197/AND     1223/AND     1249/AND     2148/AND     2652/AND     4103-DATA
   ADV:PTR         1076/BAL     1756-EQU
   ALPHATXT         752/GEN     3907-TEXT
   AMP:BUF         3753/STW     3755/STW     3758/STW     3760/STW     3762/STW     3764/STW     3766/STW
      3768/STW     3770/STW     3773/STW     3775/STW     3777/STW     3780/STW     3782/STW     3784/STW
      3785/STW     3789/STW     3791/STW     3793/STB     3794/#PRINT  3807-EQU
   AMP:HDR         3749/CI      3751/#PRINT  3795/LI      3814-TEXTCS
   AMPER%EXPL      3746/LW      4588-Z
   ASTR:MSK        2093/AW      2099-DATA
   ASTRSK          2769/LW      3916-DATA
   AUTO:DL         1065/LI      1304/LI      1650-DATA    3716/LI
   AUTO:DLE        1683-DATA
   AUTOTEST        1063-EQU     1077/B       1874/B       1906/B       3412/J       3413/I
   AVL:MEM         2894/STW     2917/LW      3121-DATA
   BACKUP          2991/BCS     2994-EOR
   BACK12          2611/BCS     2851/BCR     2856-LW
   BAD:PAR1        3681/BCR     3683/BG      3821-LW
   BAD:PAR2        3687/BCR     3690/BG      3823-LW
   BALNORM         2026/BCR     2032-BAL
   BIT:MSK         2749/LW      2843/LW      2925/STW     3131/J       3134/J       3208/STW    10009-EQU
   BM:FILL         2924/LW      2930-DATA
   BRANCH           879-XPSD    1220/LW      1319/LW
   BYPASS           898/BCS     1024-RD
   CA               613/SET      666-EQU
   CARD:BUF        3165/LB      3170/LW      3178/#ETHCON 3199/LW      3202/#ETHCON 3207/#ETHCON 4083-EQU
      4087/J
   CARD:CON        1629/BCS     3137-EQU
   CARD:SW          976/STW     1489/STW     3146/LW      3149/STW     4090-DATA
   CARDADR         3158/SIO*    3159/TIO*    4074-DATA    4665/STW
   CARDIOCD        3157/LI      4087-J
   CB               613/SET      667-EQU
   CB:C            3476/D       3615-EQU
   CC               613/SET      668-EQU
   CD               613/SET      669-EQU
   CE               613/SET      670-EQU
   CE:C            3477/D       3647-EQU
   CE:PTR          1016/STW     1472/CW      1515/CW      1517/LW      2557/CW      2559/LW      3649/STW
      3654/STW     4079-DATA
   CHECK5          2150/BL      2159-LW
   CI:C            3270/D       3362-EQU
   CI:CNT           973/STW     1026/STW     1122/STW     1324/LW      1386-DATA    1836/STW     3370/STW
   CI:PROC         1336/STW     1922/XPSD    1950-DATA    1954/LPSD    2112/LW      2116/#HTECON
   CI:SAV           995/STW     1358/LW      1820/LW      1835/LW      3374/STW     3379-DATA    3579/STW
      3599/STW
   CICOUNT         1334/STW     1923/MTW     1924-DATA
   CIMTW           1831/LW      1923-MTW
   CIXPSD          1824/LW      1922-XPSD
   CK:ADV          2571/BAL     2605/BAL     2629/BAL     2785-EQU     2827/BAL     2862/BAL
   CK:BIAS          975/STW     1565/LW      2567/LW      3619/STW     3636/STW     4064-DATA
   CK:CTR          2566/STW     2625/CW      2731/LW      2748/LW      2786/LW      2788/STW     2798/STW
      2823/CW      2842/LW      2856/LW      3912-DATA
   CK:LIMIT        1015/LW      2903/STW     3122-DATA    3648/LW
   CK:PTR          1411/STW     1425/LW      1471/LW      1475/STW     1502/LW      2560/STW     2624/LW
      2822/LW      2942/LW      4065-DATA
   CK:SAV          1021/STW     1022/STW     1023/STW     2550/STW     2858/CW      2867/STW     4069-EQU
   CLK:MSK         2806/AND     2808/AND     2839-DATA
   CLN:TRP         1152/LW      1273-DATA
   CLR:AUTO        1064/BAL     1079-EQU
   CLR:DCB         2721/BAL     2774-EQU
   CLR:SNP         1767/BAL     2917-LW      3150/BAL
   CLR:WL           998/LD      1282-DATA
   CM:C            3268/D       3310-EQU
   CM:LO           1980/STW     2008-DATA
   CM:OFF          1007/STW     1362/LW      1976/STW     2007-DATA
   CM:ON           1006/STW     1308/LW      1361/STW     1845/STW     2006-DATA    2081/LW      3325/STW
   CM:SAV          1844/LW      1983/STW     2009-DATA    3324/STW
   CM:TSTA         2087/CW      2096-DATA
   CM:TSTB         2101-DATA
   CM:VALU         3322/LW      3330-EQU
   CMP:AUTO        1073/BAL     1580-EQU     1595/B       1630/B*
   CMP:ERR         2555/STW     2802/STW     2849/STW     3917-DATA
   CMP:OE          1523/BAL     2578/BAL     2799-EQU
   CMP:REG         1597-LI      1609/BCS
   CMPOE:EX        2800/STW     2838-DATA    2854/B*
   CNT:P3          2187-DATA
   COM:C           3266/D       3289-EQU
   COMADR          4075-DATA
   CON:WORD        9984-SET
   CONT:FTE        1708/BCR     1719-LC      3141/BCS
   CONVERT         3192-EQU
   CON7            3602/AND     4055-DATA
   CON7F           1163/AND     2065/AND     3865/AND     3887/AND     4056-DATA
   CT:FLG          1144/STW     1148/LW      1272-DATA
   C0               634/GEN      656-EQU
   C1               613/SET      657-EQU     3014/#PRINT
   C2               613/SET      658-EQU     2343/#PRINT
   C3               613/SET      659-EQU
   C4               613/SET      660-EQU
   C5               613/SET      661-EQU
   C6               613/SET      662-EQU
   C7               613/SET      663-EQU
   C8               613/SET      664-EQU
   C9               613/SET      665-EQU
   D                815-COM
   DAT:OUT         2591/BAL     2619/BAL     2657-EQU     2680/B*
   DATA:SAV        3196/STW     3223/LW      4095-DATA
   DA01            6084-MODULE
   DA02            6104-MODULE
   DA03            6124-MODULE
   DA04            6144-MODULE
   DA05            6164-MODULE
   DA06            6184-MODULE
   DA07            6204-MODULE
   DA08            6224-MODULE
   DA09            6246-MODULE
   DA10            6266-MODULE
   DA11            6286-MODULE
   DA12            6306-MODULE
   DA13            6326-MODULE
   DA14            6346-MODULE
   DA15            6366-MODULE
   DA16            6385-MODULE
   DA17            6404-MODULE
   DA18            6423-MODULE
   DA19            6442-MODULE
   DA20            6461-MODULE
   DA21            6480-MODULE
   DA22            6499-MODULE
   DA23            6518-MODULE
   DA24            6537-MODULE
   DBL:WRD         2443/STW     2475/STW     2677/STW     2693/LW      2716-DATA
   DC:BUF          3941-EQU
   DC:DWT1         2474/LI      2513/DATA    2517-J
   DC:DWT1E        2532-I
   DC:DWT2         2442/LI      2473/STB     2497/STB     2515-D
   DC:OUT          2445/BAL     2450/BAL     2484/BAL     2494/BAL     2678/BAL     2683-EQU     2705/STW
      2708/BNE*    2713/B*
   DCA              756-ORG
   DCB:DW0         2590/LI      2618/LI      2676/LI      3924-D
   DCB:LST         2727/LW      2754/LW      4030-EQU
   DCMEM           1175/STW     1190/STW     2190-DATA    2438/LW      2501/LW
   DCSET           2442-LI
   DC01            7363-MODULE
   DC02            7383-MODULE
   DC03            7403-MODULE
   DC04            7423-MODULE
   DC05            7443-MODULE
   DC06            7463-MODULE
   DD01            7805-MODULE
   DD02            7823-MODULE
   DD03            7841-MODULE
   DD04            7859-MODULE
   DD05            7877-MODULE
   DD06            7895-MODULE
   DD07            7913-MODULE
   DD08            7931-MODULE
   DD09            7949-MODULE
   DD10            7967-MODULE
   DD11            7985-MODULE
   DD12            8003-MODULE
   DD13            8021-MODULE
   DD14            8039-MODULE
   DD15            8057-MODULE
   DD16            8075-MODULE
   DD17            8093-MODULE
   DD18            8111-MODULE
   DD19            8129-MODULE
   DD20            8147-MODULE
   DD21            8165-MODULE
   DD22            8183-MODULE
   DD23            8201-MODULE
   DD24            8219-MODULE
   DD25            8237-MODULE
   DD26            8255-MODULE
   DEAD            1650/DATA    1683/DATA    1685-DATA
   DEC:MSG         1043/#TYPE   1049-TEXTCS
   DHEX:CON        1549/BAL     1553/BAL     1568/BAL     2028/BAL     2330/BAL     2379/BAL     2392/BAL
      2404/BAL     2416/BAL     2460/BAL     2466/BAL     2479/BAL     2489/BAL     2726/BAL     2740/BAL
      2872-EQU
   DIS:FLG         2589/BAL     2617/BAL     2746-EQU
   DIS:X7          2756-BIR     2762/BCS     2765/BCR     2768/BCR     2770/B
   DISP#1          2724-LW      2730/BIR
   DISP#2          2750-LW      2756/BIR
   DISRGD          2750/LW      3915-DATA
   DL%EXPL         4362-TEXTCS  4613/Z
   DLTA            3677-EQU     4611/E
   DL01            4924-MODULE
   DL02            4944-MODULE
   DL03            4964-MODULE
   DL04            4984-MODULE
   DL05            5004-MODULE
   DL06            5025-MODULE
   DL07            5046-MODULE
   DL08            5067-MODULE
   DL09            5088-MODULE
   DL10            5109-MODULE
   DL11            5132-MODULE
   DL12            5153-MODULE
   DL13            5174-MODULE
   DL14            5195-MODULE
   DL15            5216-MODULE
   DL16            5237-MODULE
   DL17            5260-MODULE
   DL18            5281-MODULE
   DL19            5302-MODULE
   DL20            5323-MODULE
   DL21            5342-MODULE
   DL22            5361-MODULE
   DL23            5384-MODULE
   DL24            5403-MODULE
   DL25            5422-MODULE
   DL26            5441-MODULE
   DL27            5460-MODULE
   DL28            5478-MODULE
   DM%EXPL         4333-TEXTCS  4598/Z
   DM01            7481-MODULE
   DM02            7499-MODULE
   DM03            7517-MODULE
   DM04            7535-MODULE
   DM05            7553-MODULE
   DM06            7571-MODULE
   DM07            7589-MODULE
   DM08            7607-MODULE
   DM09            7625-MODULE
   DM10            7643-MODULE
   DM11            7661-MODULE
   DM12            7679-MODULE
   DM13            7697-MODULE
   DM14            7715-MODULE
   DM15            7733-MODULE
   DM16            7751-MODULE
   DM17            7769-MODULE
   DM18            7787-MODULE
   DO:SN           3585/BCR     3595-LI
   DONE            4800/GOTO    4922-PEND
   DR:ERET         3838/BCS     3854-#TYPE   3870/BCR
   DRTA            3836-EQU     3846/B       4606/E
   DSA01           6893-MODULE
   DSA02           6911-MODULE
   DSA03           6929-MODULE
   DSA04           6947-MODULE
   DSA05           6965-MODULE
   DSA06           6983-MODULE
   DSA07           7001-MODULE
   DSA08           7019-MODULE
   DSA09           7037-MODULE
   DSA10           7055-MODULE
   DSA11           7073-MODULE
   DSA12           7091-MODULE
   DSA13           7109-MODULE
   DSA14           7127-MODULE
   DSA15           7145-MODULE
   DSA16           7163-MODULE
   DSA17           7181-MODULE
   DSA18           7199-MODULE
   DSA19           7217-MODULE
   DSA20           7235-MODULE
   DSA21           7253-MODULE
   DSA22           7271-MODULE
   DSA23           7289-MODULE
   DSA24           7307-MODULE
   DSA25           7325-MODULE
   DSA26           7343-MODULE
   DST01           5496-MODULE
   DST02           5516-MODULE
   DST03           5536-MODULE
   DST04           5556-MODULE
   DST05           5576-MODULE
   DST06           5594-MODULE
   DST07           5612-MODULE
   DST08           5632-MODULE
   DST09           5642-MODULE
   DST10           5661-MODULE
   DST11           5682-MODULE
   DST12           5701-MODULE
   DST13           5720-MODULE
   DST14           5739-MODULE
   DST15           5758-MODULE
   DST16           5777-MODULE
   DST17           5796-MODULE
   DST18           5815-MODULE
   DST19           5834-MODULE
   DST20           5853-MODULE
   DST21           5872-MODULE
   DST22           5891-MODULE
   DST23           5910-MODULE
   DST24           5929-MODULE
   DST25           5948-MODULE
   DST26           5967-MODULE
   DST27           5986-MODULE
   DST28           6009-MODULE
   DST29           6028-MODULE
   DST30           6047-MODULE
   DST31           6066-MODULE
   DS00            6555-MODULE
   DS01            6573-MODULE
   DS02            6593-MODULE
   DS03            6613-MODULE
   DS04            6633-MODULE
   DS05            6653-MODULE
   DS06            6673-MODULE
   DS07            6693-MODULE
   DS08            6713-MODULE
   DS09            6735-MODULE
   DS10            6755-MODULE
   DS11            6775-MODULE
   DS12            6795-MODULE
   DS13            6815-MODULE
   DS14            6835-MODULE
   DS15            6857-MODULE
   DS16            6875-MODULE
   DU:IDX          1457/LH      1485-EQU
   DUMMY           2932-EQU
   DWA:DWT1        2513-DATA
   E                816-COM
   EBS:CHK         2421/BAL     2500-EQU
   EBSMDC          2440/BCS     2470-EQU
   EBSMEM          2471/#PRINT  2535-TEXTCS
   EBSREG          2508/LW      2536-TEXT
   EBS01           8273-MODULE
   EBS02           8306-MODULE
   EBS03           8340-MODULE
   EBS04           8373-MODULE
   EBS05           8406-MODULE
   EBS06           8439-MODULE
   EBS07           8472-MODULE
   EBS08           8505-MODULE
   EBS09           8538-MODULE
   EBS10           8571-MODULE
   EBS11           8604-MODULE
   EBS12           8637-MODULE
   EBS13           8670-MODULE
   EBS14           8703-MODULE
   EBS15           8735-MODULE
   EBS16           8768-MODULE
   EBS17           8801-MODULE
   EBS18           8834-MODULE
   EBS19           8867-MODULE
   EBS20           8900-MODULE
   EBS21           8932-MODULE
   EBS22           8965-MODULE
   EBS23           8988-MODULE
   EBS24           9022-MODULE
   EBS25           9057-MODULE
   EBS26           9090-MODULE
   EBS27           9123-MODULE
   EBS28           9157-MODULE
   EBS29           9191-MODULE
   EBS30           9224-MODULE
   EBS31           9257-MODULE
   EL:MSK1         2059/AND     2214-DATA
   EM               971/STW     1121/STW     1214/AW      1238/AW      1872/STW     1881/LW      1888/STW
      1921-DATA    3352/STW
   EM:ADV          1867/BCR     1869/BCR     1876-LW
   EM:C            3269/D       3335-EQU
   EM:CNT          1878/LW      1904/STW     1919-DATA
   EM:FLG           986/STW     1876/LW      1920-DATA    3348/STW
   EM:LIST         1887/LW      1917-DATA
   EM:VALU         3351/LW      3360-DATA
   END:FLG          977/STW     3151/LW      3174/STW     4091-DATA
   END:SW          3702/STCF    3704/LC      3712/STW     3724/LW      3820-DATA
   ENDADDR        10073-END
   ENDE            9992/GEN     9998-ORG    10001/EQU    10002/EQU    10003/EQU    10004/EQU    10005/EQU
     10006/EQU    10007/EQU    10008/EQU    10009/EQU    10010/EQU
   ENDT            3171/CW      4089-TEXT
   EOF             3101-D       4718/LI
   EOT             2969/CW      3113-DATA
   ERMG4           2970/BCS     3090-#TYPE
   ERMSG4          3090/#TYPE   3094-TEXTCS
   ERMSG5          2811/#TYPE   3096-TEXTCS
   ERMSG6          3099-TEXTCS  3168/#TYPE
   ERMSG8          3398/#TYPE   3418-TEXTCS
   ERR:CNT          966/STW     1698/LW      1700/STW     1865/STW     2069/LW      3563/STW     4059-DATA
   ERR:FLG          982/STW     1691/STW     1760/STW     3140/LW      4060-DATA
   ERR:MSKT        3047/CW      3077/CW      3087-DATA
   ERR:PASS        1812/BCS     1842/BCR     1846-LI
   ERR:RET         3453/B       3489/BCR     3491/BG      3513/BG      3515/BL      3550-LW      3587/BCS
      3590/BCR     3592/BCR     3594/BCR     3664/BG
   ERR:RETJ        3281/B       3293/B       3316/B       3319/B       3342/B       3345/B       3368/B
      3385/B       3421-LW
   ERR:TAPE        3053/#TYPE   3083/#TYPE   3088-TEXTC
   ESM:CI          2111-EQU     2140/DATA    3776/BAL
   ESM:CM          2081-LW      2137/DATA    3769/BAL
   ESM:EL          2051-EQU     2126/DATA    2323/BAL     3754/BAL
   ESM:EM          2108-LW      2131/DATA
   ESM:ERRS        2069-LW      2129/DATA    3761/BAL
   ESM:FAIL        2133/DATA    2143-LB
   ESM:FAIL1       2134/DATA    2147-LB
   ESM:HEDR        1721/LI      1724/#PRINT  1736/LI      2042-TEXTCS
   ESM:MNEM        2062-LI      2132/DATA    2325/BAL     3767/BAL
   ESM:MOD         2045-LW      2125/DATA    2321/BAL     3752/BAL
   ESM:NULL        2183-LW      3413/I
   ESM:PASS        2075-LW      2130/DATA    3763/BAL
   ETM2:ADR        1246/EOR     1270-DATA
   ETP4:ADR        1243/EOR     1269-DATA
   EX:TRP0         1224/CW      1259-DATA
   EX:TRP5         1228/CW      1260-DATA
   EXIT:DL         3730-LW
   EXIT:EM         1877/BCS     1880/BCS     1901-LI
   EXIT:EXU        1287/STW     1369/B*      1371-DATA
   EXIT:MAR        1982-EOR
   EXP:TRAP         855/LC       857-DATA    1244/STW     1247/STW     1259/DATA    1260/DATA    1261/XPSD
      1262/XPSD    1263/XPSD    1269/DATA    1270/DATA    4987/K       5007/K       5635/K       5645/K
      5685/K       5723/K       5780/K       5799/K       5818/K       5837/K       5894/K       5932/K
      5951/K       6031/K       6050/K       6167/K       6656/K       7862/K       7880/K       8132/K
      8310/K       8343/K       8376/K       8409/K       8442/K       8475/K       8508/K       8541/K
      8574/K       8607/K       8640/K       8673/K       9293/K       9311/K       9464/K       9483/K
      9521/K       9540/K       9559/K       9709/K       9714/K       9882/K
   EXT:ERR         1622/BCR     1624-BAL
   EXTRAP00        1230/LW      1261-XPSD
   EXTRAP40        1232/LW      1262-XPSD
   EXTRAP46        1226/LW      1263-XPSD
   EXU:AUTO        1071/BAL     1286-EQU
   F                825-COM
   FAIL:ID         2144/LW      2168-TEXT
   FIFTEEN         4051-DATA
   FILL:MSK        1192/AND     1257-DATA
   FILLER          1193/EOR     1258-DATA
   FLAG:MSK        1236/AND     2210-DATA
   FLAG7           3919-DATA
   FLG126          1522/STW     1532/STW     2850/LW      2853/STW     3918-DATA
   FNC:RET         1520/LI      1528-LW
   FORM:ESM        1732/BAL     2022-EQU     2037/B       2040/B*
   FOUR            4050-DATA
   FT:CMP1         1616-LW      1625/BIR
   FT:ERR          1591/BAL     1606/BAL     1624/BAL     1688-EQU     1742/BCS*    1751/B*
   FTE:SS3         1720/BCS     1741-LC
   FTERRMSG        1753/Z       4486-TEXTCS
   FTERSTAT        1738/LW      1753-Z
   FTFL             965/STW     1389/LW      1397/STW     1488/STW     3228/LW      3459/STW     3575/STW
      3617/STW     4061-DATA
   F0               613/SET      672-EQU
   F1               613/SET      673-EQU     3692/#PRINT
   G                817-COM
   GEN:FLG          981/STW     1314/LW      1490/LW      1628/LW      1701/LW      1746/LW      1765/AW
      1789/LW      2211-DATA    4650/STW     4713/STW
   GIDLE           3463-LCF
   GO              1031/DATA    1033-DATA
   GO:SNAP         3147/BCS     3152/BCS     3175/B       3189/B       3226-EQU
   GUIDE           9989-STW    10073/END
   H                818-COM
   HALT            1743/#TYPE   1754-TEXTCS
   HDR:ADR         2579/LW      2659/LW      4047-EQU
   HDR:OUT         2580/BAL     2640-EQU     2654/B*      2662/BAL
   HFF             3556/AND     3568-DATA    3581/AND
   HFFFF           2933/AND     3018-DATA
   H17             2010-DATA
   I                819-COM
   IA              1323/STW     1641/DATA    4104-DATA
   IC:MSG          4084-TEXTCS  4647/#TYPE
   ID:EL           2164/LW      2179-TEXT
   ID:EXT          1616/LW      1644-EQU
   ID:WRT          2935/LI      3117-D       4670/LI
   IDX:EQ          2192-DATA
   IDX:FLG         1137/STW     2189-DATA
   IDX:MSK         1135/LW      2191-DATA
   IDX:SAV         3194/STW     3221/LW      4094-DATA
   IDX:TAPE        2953-EQU     2981/BAL
   IN:0XBC         2251-EQU     2361/LI
   IN:0X34         2241-EQU     2357/LI
   IN:1XFG         2256-EQU     2363/LI
   IN:1X78         2246-EQU     2359/LI
   INC:RET         1199/BE      1212-AI
   INI:EXIT         896/STW     1030/BAL*    1036-DATA
   INIFLG           902/LW       917/LW      1014/STW     1038-DATA
   INITIAL          770/DATA     895-EQU
   IO:PTR          2280-EQU     2372/LW
   IOBCIDX         2203-DATA    2362/STW     2402/LW*     2430/STW
   IOFGIDX         2204-DATA    2364/STW     2414/LW*     2432/STW
   IO34IDX         2201-DATA    2358/STW     2377/LW*     2426/STW
   IO78IDX         2202-DATA    2360/STW     2390/LW*     2428/STW
   J                832-CNAME
   J%EXPL          4368-TEXTCS  4618/Z
   JH              3236-TEXTCS  3240/DATA
   JINIT            953/STW      957/STW      959/LB       960/LB      1001/LW      1118/LW
      3238-TEXTCS  3389/STW
   JL:EXIT         3243/STW     3262-DATA    3423/B*
   JOUT             961/STB     1002/STW     1119/STW     1900/STW     1963/LW      1977/STB     2086/LW
      2108/LW      2119/LW      3237-TEXTCS  3239/DATA    3248/LW      3284/STW     3296/STW     3305/STW
      3327/STW     3354/STW     3376/STW     3388/STW     3408/STW     3765/LW
   JP:LST          3251/LW*     3274-DATA    3421/LW*
   JRTA            3242-EQU     4616/E
   K                820-COM
   K%EXPL          4412-TEXTCS  4623/Z
   KH              3427-TEXTCS  3432/DATA
   KINIT            936/STW      944/STW      946/LB       947/LB      3429-TEXTCS
   KL:EXIT         3434/STW     3552/B*      3673-DATA
   KL:FLG          1936/LW      1960-DATA    3455/STW     3458/STW     3698/STW     3711/STW
   KOUT             948/STB     1782/STW     1804/LW      1807/STW     2333/LW      3428-TEXTCS  3431/DATA
      3440/LW      3496/STW     3498/STW     3518/STW     3519/LW      3521/STW     3539/STW     3541/LW
      3543/STW     3565/STW     3612/STW     3640/STW     3658/STW     3670/STW     3771/LW      3774/LW
   KP:LST          3443/LW      3480-DATA    3550/LW*
   KRTA            3433-EQU     4621/E
   L                821-COM
   LAST:MOD         759/DATA     930/LI      3512/CI      9982-SET
   LASTMODULE      3869/CI      4778/DO      9985-EQU
   LC:C            3474/D       3554-EQU
   LC:EXIT         1405/STW     1463/LW      1468/STW     4070-DATA
   LC:FLG          1404/STW     1438/STW     1465/LW      4063-DATA
   LCNT             974/STW     1849/LW      1853/AW      3559/STW     3569-DATA
   LINEADR         2723/LW      4035-EQU
   LINE0ADR        4032-DATA
   LINE1ADR        4033-DATA
   LINE2ADR        4034-DATA
   LIST             761/DATA    1003/LI      1928/LI      3862/LI      4688/LI      4734-RES
   LISTEXT         1086/STW     1128/STW     1241/LW      1321/STW     1619/LW      1632-EQU     1653/DATA
   LISTPTR          761-DATA    1004/STW     1105/LB*     1108/LW*     1140/LW*     1196/LW*     1222/LW*
      1503/LW*     1783/LB*     1784/AW      1785/STW     1929/STW     2045/LW*     2053/LB*     2063/LW*
      2329/LW*     2365/LB*     2378/LW*     2391/LW*     2403/LW*     2415/LW*     2943/LW*     3693/LW
      3725/LB*     3726/AW      3727/STW     3731/STW     4689/STW
   LISTSAV         3694/STW     3730/LW      3817-DATA
   LO:MSK          1979/AW      2005-DATA
   LOADPNT         3026/AND     3112-DATA
   LOC              883/DATA     941/LI      1084/STW     1127/LW      1136/AND     1158/AND     1162/LB
      1186/LB      1198/CI      1250/AI      1292/GEN     1320/STW     1345/B       1346/EXU     1347/B
      1349-DATA    1639/DATA    1642/DATA    1651/DATA    2127/GEN     3756/#HTECON 4080/GEN     4081/GEN
      4101/DATA    4102/DATA    4926/K       4927/K       4946/K       4947/K       4966/K       4967/K
      4986/K       5006/K       5027/K       5028/K       5048/K       5049/K       5069/K       5070/K
      5090/K       5091/K       5111/K       5112/K       5134/K       5135/K       5155/K       5156/K
      5176/K       5177/K       5197/K       5198/K       5218/K       5219/K       5239/K       5240/K
      5262/K       5263/K       5283/K       5284/K       5304/K       5305/K       5325/K       5326/K
      5344/K       5345/K       5363/K       5364/K       5386/K       5387/K       5405/K       5406/K
      5424/K       5425/K       5443/K       5444/K       5462/K       5463/K       5480/K       5481/K
      5498/K       5499/K       5518/K       5519/K       5538/K       5539/K       5558/K       5559/K
      5578/K       5579/K       5596/K       5597/K       5614/K       5615/K       5634/K       5644/K
      5663/K       5664/K       5684/K       5703/K       5704/K       5722/K       5741/K       5742/K
      5760/K       5761/K       5779/K       5798/K       5817/K       5836/K       5855/K       5856/K
      5874/K       5875/K       5893/K       5912/K       5913/K       5931/K       5950/K       5969/K
      5970/K       5988/K       5989/K       6011/K       6012/K       6030/K       6049/K       6068/K
      6069/K       6086/K       6087/K       6106/K       6107/K       6126/K       6127/K       6146/K
      6147/K       6166/K       6186/K       6187/K       6206/K       6207/K       6226/K       6227/K
      6248/K       6249/K       6268/K       6269/K       6288/K       6289/K       6308/K       6309/K
      6328/K       6329/K       6348/K       6349/K       6368/K       6369/K       6387/K       6388/K
      6406/K       6407/K       6425/K       6426/K       6444/K       6445/K       6463/K       6464/K
      6482/K       6483/K       6501/K       6502/K       6520/K       6521/K       6539/K       6540/K
      6557/K       6558/K       6575/K       6576/K       6595/K       6596/K       6615/K       6616/K
      6635/K       6636/K       6655/K       6675/K       6676/K       6695/K       6696/K       6715/K
      6716/K       6737/K       6738/K       6757/K       6758/K       6777/K       6778/K       6797/K
      6798/K       6817/K       6818/K       6837/K       6838/K       6859/K       6860/K       6877/K
      6878/K       6895/K       6896/K       6913/K       6914/K       6931/K       6932/K       6949/K
      6950/K       6967/K       6968/K       6985/K       6986/K       7003/K       7004/K       7021/K
      7022/K       7039/K       7040/K       7057/K       7058/K       7075/K       7076/K       7093/K
      7094/K       7111/K       7112/K       7129/K       7130/K       7147/K       7148/K       7165/K
      7166/K       7183/K       7184/K       7201/K       7202/K       7219/K       7220/K       7237/K
      7238/K       7255/K       7256/K       7273/K       7274/K       7291/K       7292/K       7309/K
      7310/K       7327/K       7328/K       7345/K       7346/K       7365/K       7366/K       7385/K
      7386/K       7405/K       7406/K       7425/K       7426/K       7445/K       7446/K       7465/K
      7466/K       7483/K       7484/K       7501/K       7502/K       7519/K       7520/K       7537/K
      7538/K       7555/K       7556/K       7573/K       7574/K       7591/K       7592/K       7609/K
      7610/K       7627/K       7628/K       7645/K       7646/K       7663/K       7664/K       7681/K
      7682/K       7699/K       7700/K       7717/K       7718/K       7735/K       7736/K       7753/K
      7754/K       7771/K       7772/K       7789/K       7790/K       7807/K       7808/K       7825/K
      7826/K       7843/K       7844/K       7861/K       7879/K       7897/K       7898/K       7915/K
      7916/K       7933/K       7934/K       7951/K       7952/K       7969/K       7970/K       7987/K
      7988/K       8005/K       8006/K       8023/K       8024/K       8041/K       8042/K       8059/K
      8060/K       8077/K       8078/K       8095/K       8096/K       8113/K       8114/K       8131/K
      8149/K       8150/K       8167/K       8168/K       8185/K       8186/K       8203/K       8204/K
      8221/K       8222/K       8239/K       8240/K       8257/K       8258/K       8276/K       8277/K
      8309/K       8342/K       8375/K       8408/K       8441/K       8474/K       8507/K       8540/K
      8573/K       8606/K       8639/K       8672/K       8705/K       8706/K       8737/K       8738/K
      8770/K       8771/K       8803/K       8804/K       8836/K       8837/K       8869/K       8870/K
      8902/K       8903/K       8935/K       8936/K       8968/K       8969/K       8991/K       8992/K
      9025/K       9026/K       9059/K       9060/K       9092/K       9093/K       9125/K       9126/K
      9159/K       9160/K       9193/K       9194/K       9226/K       9227/K       9259/K       9260/K
      9292/K       9310/K       9315/K       9316/K       9343/K       9344/K       9371/K       9372/K
      9399/K       9400/K       9427/K       9428/K       9445/K       9446/K       9463/K       9482/K
      9501/K       9502/K       9520/K       9539/K       9558/K       9578/N       9579/N       9602/N
      9603/N       9624/N       9625/N       9644/N       9645/N       9668/K       9669/K       9690/K
      9691/K       9708/K       9713/K       9733/K       9734/K       9761/K       9762/K       9789/K
      9790/K       9817/K       9818/K       9845/K       9846/K       9863/K       9864/K       9881/K
      9890/K       9891/K       9909/K       9910/K       9928/K       9929/K       9947/K       9948/K
      9966/K       9967/K
   LOCADR          1237/EOR     4101-DATA
   LOC2ADR         4102-DATA
   LONG:SNP        3625/LW      3644-B
   LONGPTR         1430/B*      1627/BCS*    1717/B*      2206-DATA
   LOOKFWD         2955/BCR     2960-LI      2973/BCS     4687/BAL
   LS:MSK           935/AND     1781/AND     2048/AND     2072/AND     2078/AND     3012/AND     3897/AND
      4057-DATA
   LS:MSK2         4058-DATA
   LST:NUM          931/STW     3490/CW      3501-DATA    3682/CW      3689/CW
   LSTSERVO        1808/BAL     1926-EQU     1935/B       3456/BAL     3709/BAL
   M                823-COM
   MA:PTR          1403/STW     1420/LW      1432/LW      1445/LW      1449/STW     1453/STW     4062-DATA
   MA:VAL          1421/LW      3996-EQU
   MAR:FLG         1986/STW     1999-DATA
   MAR:SET          972/STW     1972/LB      1973/LW      1991/STB     1995-M
   MAR:TAPE         915/BAL     1510/BAL     1870/BAL     2978-EQU     2990/BCR     3003/B       3030/B
   MAX:CLR         2889/STW     2893/STW     3120-DATA    4644/LW
   MCR:C           3473/D       3527-EQU     3540/B*      3546/B*
   MCR:NUM          760-DATA     939/STW     1768/LW      1772/STW     1803/STW     1930/CW      2986/CW
      2989/AW      3007/LW      3179/LW      3493/STW     3523/STW     3537/STW     3545/STW     3695/LW
      3700/STW     3733/STW     4691/STW
   MCR:SAV         3696/STW     3732/LW      3818-DATA
   MEM:REF         1126/STW     1134/STW     1271-DATA    1339/STM*    1583/LW*     2448/MTW     2465/LW
   MEMDC           2467/STW     2515/D       2534-TEXTCS
   MEMORY          1125/LI      1130/CI      1132/CI      1271/DATA    1322/LI      1635/DATA    4104/DATA
      4925/DL      4945/DL      4965/DL      4985/DL      5005/DL      5026/DL      5047/DL      5068/DL
      5089/DL      5110/DL      5133/DL      5154/DL      5175/DL      5196/DL      5217/DL      5238/DL
      5261/DL      5282/DL      5303/DL      5324/DL      5343/DL      5362/DL      5385/DL      5404/DL
      5423/DL      5442/DL      5461/DL      5479/DL      5497/DST     5517/DST     5537/DST     5557/DST
      5577/DST     5595/DST     5613/DST     5633/DST     5643/DST     5662/DST     5683/DST     5702/DST
      5721/DST     5740/DST     5759/DST     5778/DST     5797/DST     5816/DST     5835/DST     5854/DST
      5873/DST     5892/DST     5911/DST     5930/DST     5949/DST     5968/DST     5987/DST     6010/DST
      6029/DST     6048/DST     6067/DST     6085/DA      6105/DA      6125/DA      6145/DA      6165/DA
      6185/DA      6205/DA      6225/DA      6247/DA      6267/DA      6287/DA      6307/DA      6327/DA
      6347/DA      6367/DA      6386/DA      6405/DA      6424/DA      6443/DA      6462/DA      6481/DA
      6500/DA      6519/DA      6538/DA      6556/DS      6574/DS      6594/DS      6614/DS      6634/DS
      6654/DS      6674/DS      6694/DS      6714/DS      6736/DS      6756/DS      6776/DS      6796/DS
      6816/DS      6836/DS      6858/DS      6876/DS      7364/DC      7384/DC      7404/DC      7424/DC
      7444/DC      7464/DC      7482/DM      7500/DM      7518/DM      7536/DM      7554/DM      7572/DM
      7590/DM      7608/DM      7626/DM      7644/DM      7662/DM      7680/DM      7698/DM      7716/DM
      7734/DM      7752/DM      7770/DM      7788/DM      7806/DD      7824/DD      7842/DD      7860/DD
      7878/DD      7896/DD      7914/DD      7932/DD      7950/DD      7968/DD      7986/DD      8004/DD
      8022/DD      8040/DD      8058/DD      8076/DD      8094/DD      8112/DD      8130/DD      8148/DD
      8166/DD      8184/DD      8202/DD      8220/DD      8238/DD      8256/DD      8275/EBS     8303/GEN
      8305/GEN     8308/EBS     8336/GEN     8338/GEN     8341/EBS     8369/GEN     8371/GEN     8374/EBS
      8402/GEN     8404/GEN     8407/EBS     8435/GEN     8437/GEN     8440/EBS     8468/GEN     8470/GEN
      8473/EBS     8501/GEN     8503/GEN     8506/EBS     8534/GEN     8536/GEN     8539/EBS     8567/GEN
      8569/GEN     8572/EBS     8600/GEN     8602/GEN     8605/EBS     8633/GEN     8635/GEN     8638/EBS
      8666/GEN     8668/GEN     8671/EBS     8699/GEN     8701/GEN     8704/EBS     8731/GEN     8733/GEN
      8736/EBS     8764/GEN     8766/GEN     8769/EBS     8797/GEN     8799/GEN     8802/EBS     8830/GEN
      8832/GEN     8835/EBS     8863/GEN     8865/GEN     8868/EBS     8896/GEN     8898/GEN     8901/EBS
      8929/GEN     8931/GEN     8934/EBS     8962/GEN     8964/GEN     8967/EBS     8985/GEN     8987/GEN
      8989/EBS     9018/GEN     9020/GEN     9021/GEN     9023/EBS     9052/GEN     9054/GEN     9055/GEN
      9058/EBS     9086/GEN     9088/GEN     9118/GEN     9119/GEN     9120/GEN     9121/GEN     9124/EBS
      9152/GEN     9154/GEN     9155/DATA    9158/EBS     9186/GEN     9188/GEN     9189/DATA    9192/EBS
      9220/GEN     9222/GEN     9223/GEN     9225/EBS     9253/GEN     9255/GEN     9256/GEN     9286/GEN
      9288/GEN     9289/GEN     9291/UNPK    9309/UNPK    9314/UNPK    9342/UNPK    9370/UNPK    9398/UNPK
      9426/UNPK    9444/UNPK    9462/UNPK    9481/UNPK    9500/UNPK    9519/UNPK    9538/UNPK    9557/UNPK
      9577/UNPK    9601/UNPK    9623/UNPK    9643/UNPK    9667/UNPK    9689/UNPK    9707/PACK    9712/PACK
      9732/PACK    9760/PACK    9788/PACK    9816/PACK    9844/PACK    9862/PACK    9880/PACK    9889/PACK
      9908/PACK    9927/PACK    9946/PACK    9965/PACK   10001-EQU
   MI:ADR          1000/HIO*    3394/HIO*    3402/STW     3417-DATA
   MI:C            3273/D       3392-EQU
   MINUS2          2186-DATA
   MNEM:MSG        3854/#TYPE   3857-TEXTC
   MNEM:X2         3851/BCR     3859-LI      3871/B
   MNEMEND         4276-EQU
   MNEMLIST        2066/LW      3850/CW      4146-EQU
   MOD%END         4780-EQU
   MOD:DATA        1525/BAL     2351-EQU     2367/BCS*    2435/BCR*    2437/BCS     2439/BCR     2447/BCS*
      2451/B*      2454/B*      2498/B*      3723/BAL
   MOD:HDR         1524/BAL     2315-EQU     2346/B*      3722/BAL
   MOD:MSG         3182/#TYPE   3233-TEXTCS
   MOD:MSK         2985/AND     3488/AND     3510/AND     3532/AND     4093-DATA
   MOD#CHK         3154/BCS     3177-NOP
   MODLIST1        4739-SET     4753-SET     4753/SET     4834-SET     4887/GEN
   MODLIST2        4741-SET     4755-SET     4755/SET     4840-SET     4893/GEN
   MODLIST3        4743-SET     4757-SET     4757/SET     4846-SET     4899/GEN
   MODLIST4        4745-SET     4759-SET     4759/SET     4852-SET     4905/GEN
   MODLIST5        4747-SET     4761-SET     4761/SET     4856-SET     4909/GEN
   MODT            2216-TEXT    2319/LW
   MODULE          4773-CNAME
   MODULE%         4769-SET     4834/SET     4840/SET     4846/SET     4852/SET     4856/SET     4870-SET
   MODULE:         4771-SET     4805-SET     4807-SET     4807/SET     4887/GEN     4893/GEN     4899/GEN
      4905/GEN     4909/GEN
   MODULE#         4767-SET     4830/DO      4832/DO      4834-SET     4838/DO      4840-SET     4844/DO
      4846-SET     4850/DO      4852-SET     4856-SET     4868-SET     4868/SET     4879-SET     4879/SET
      4885/DO      4887/GEN     4887/GEN     4891/DO      4893/GEN     4893/GEN     4897/DO      4899/GEN
      4899/GEN     4903/DO      4905/GEN     4905/GEN     4909/GEN     4909/GEN     9982/SET     9984/SET
   MODULE@         4749-SET     4763-SET     4763/SET     4784/RES     4788/DO      4790/SET     4792/SET
      4817/DO      4819-SET     4823-SET     4823/SET
   MOV:TAPE        3001/BAL     3002/BDR     3022-EQU     3051/BAL     3081/BAL     4703/BAL
   MOVB            2996/LI      3050/LI      3080/LI      3125-D
   MOVER           1066/BAL     1097-EQU     1305/BAL     3717/BAL
   MOVF            2992/LI      3128-D
   MR%EXPL         4478-TEXTCS  4608/Z
   MS:RTN          2637/B       2821-BIR     2845/BCS
   MSB21           3497/AW      3520/AW      3542/AW      3548-DATA    3772/AW
   MSG:C           3264/D       3276-EQU
   MSG:CNT         1729/STB     2038/LB      2124-DATA
   MSG:LST         1727/LI      2125-DATA
   MSG:OK          3279/BCR     3282-STW
   MSGADR          4076-DATA
   MSK:BTM         2666/CW      2844/CW      4133-EQU
   MSK:CM          1978/AND     2003-DATA
   MSK:DATA        3195/LW      3207-#ETHCON 3212/LW      3214/STW     3224/STW
   MSK:IDX         3193/LW      3202-#ETHCON 3209/LW      3211/STW     3216/BIR     3222/STW
   MSK:LST         2701/CW      2709/#TYPE   2752/CW      3692/#PRINT  4109-EQU
   MSK:TST         2820/BCS     2841-EQU
   MSP:C           3472/D       3505-EQU     3524/B*
   MSP:NUM          759-DATA     932/STW     1762/CW      1770/CW      3449/LW      3516/STW     3535/CW
   MST:C           3471/D       3483-EQU     3499/B*
   MST:INIT        1771/BCS     1788-EQU
   MST:NUM          758-DATA     938/STW     1761/LW      1802/LW      3450/CW      3494/STW     3514/CW
      3522/LW      3533/CW      3544/LW
   MT:C            3271/D       3381-EQU
   MTABLIN         1338/LM      1656/DATA    1660/DATA    1664/DATA    1668/DATA    1670/DATA    1672/DATA
      1674/DATA    1676/DATA    2459/LW      2478/LW     10004-EQU
   MTABLOUT        1584/LW      1657/DATA    1661/DATA    1665/DATA    1669/DATA    1671/DATA    1673/DATA
      1675/DATA    1677/DATA    2488/LW     10006-EQU
   M2LOOP          2372-LW      2433/BIR
   N                824-COM
   NC:FLG          2753/BCR     2760-EQU
   NEG2MSK         2195-DATA
   NEW:CM          1008/AND     1975/AND     1981/AND     2001-DATA    3321/AND
   NEW:HDR         2561-LI      2612/B       2835/BIR
   NEW:MSK         2002-DATA
   NEW:MST         3439/STB     3463/LCF     3486/STW     3502-DATA    3508/STW     3530/STW     3577/STW
   NEXT:MOD        3712-STW     3728/BIR
   NO:CON          2669/B       2676-LI
   NO:DEC           923/LW      1039-XPSD
   NO:GEN          1154/BCR     1186-LB
   NO:SN           3005-LW      3043/BCR
   NO:SNAP         1435/BAL     1561-EQU     1573/LCF     1574/B*
   NOCI            1819/B       1821/BCR     1823/BCS     1838-LW
   NODEV           3280/#TYPE   3287-TEXTCS
   NORM:SNP        1010/LW      3621/LW      3643-BCR
   NOTAPE           901/BCR      903/BCS      910/B        912/BCR      914/BCR      917-LW
   NS:MSG          3013/STW     3014/#PRINT  3020-TEXTCS
   NSM             1569/STW     1570/STW     1571/#TYPE   1576-TEXTCS
   NXT:CLK         2817-LI      2828/B
   OB:CNT          4053-DATA
   OB:OUT          2586/BE      2597/BCR     2602/B       2614-EQU
   OB:SW           3920-DATA
   OBSEXT          1617/LW      1638-EQU
   OE:ADV          2636/BAL     2789-LW      2816/BAL     2847/BAL
   ONE             2160/AND     4049-DATA
   ONES            1893/EOR     2988/EOR     2994/EOR     3301/EOR     3349/EOR     3557/EOR     3703/EOR
      3891/EOR     4077-DATA
   OUT:IDX         2188-DATA
   OUT:MOD         2387/BCS     2399/BCS     2411/BCS     2422-#PRINT
   OUT:0XBC        2271-EQU     2398/CW      2429/LI
   OUT:0X34        2261-EQU     2366/CW      2425/LI
   OUT:1XFG        2276-EQU     2410/CW      2431/LI
   OUT:1X78        2266-EQU     2386/CW      2427/LI
   OUTBUF          1733/#PRINT  2029/STW     2033/STW     2039/STB     2320/STW     2322/STW     2324/STW
      2326/STW     2328/STW     2331/STW     2332/STW     2336/STW     2338/STW     2340/STB
      2343/#PRINT  2354/STW     2369/STW     2371/STW     2373/STW     2374/STW     2375/STW     2376/STW
      2380/STW     2381/STW     2383/STB     2389/STW     2393/STW     2394/STW     2396/STB     2401/STW
      2405/STW     2406/STW     2408/STB     2413/STW     2417/STW     2418/STW     2420/STB
      2422/#PRINT  2509/STW     3861/STW     3880/STW     3882/STW     3898/STW     3900/STB     3901/#TYPE
      4052-RES
   PACK1           9706-MODULE
   PACK10          9888-MODULE
   PACK11          9907-MODULE
   PACK12          9926-MODULE
   PACK13          9945-MODULE
   PACK14          9964-MODULE
   PACK2           9711-MODULE
   PACK3           9731-MODULE
   PACK4           9759-MODULE
   PACK5           9787-MODULE
   PACK6           9815-MODULE
   PACK7           9843-MODULE
   PACK8           9861-MODULE
   PACK9           9879-MODULE
   PAR:ERR         3824/STW     3825/#PRINT  3831-TEXTCS
   PARA:SET         921-LW
   PAR1:LJ         3840/BCS     3848-LI      3853/BIR
   PASS:CNT         940/STW     1795/LW      1814/LW      1851/LW      1861/LW      1863/STW     1958-DATA
      2075/LW      3561/STW
   PASS:ERR        1692/STW     1811/LW      1847/STW     2209-DATA
   PASS:LIM        1841/CW      1959-DATA
   PASS:OK          967/STW     1838/LW      1840/STW     1957-DATA    1985/STW
   PASSES          4054-DATA
   PLINEIN          772/DATA    3249/CW      3277/#ETHCON 3283/LW      3290/#ETHCON 3295/LW
      3300/#ETHCON 3304/LW      3311/#ETHCON 3326/LW      3336/#ETHCON 3353/LW      3363/#ETHCON 3375/LW
      3382/#ETHCON 3387/LW      3393/#ETHCON 3407/LW      3441/CW      3487/#ETHCON 3495/LW
      3509/#ETHCON 3517/LW      3531/#ETHCON 3538/LW      3555/#ETHCON 3564/LW      3580/#ETHCON 3611/LW
      3620/#ETHCON 3639/LW      3650/#ETHCON 3657/LW      3662/#ETHCON 3669/LW      4636-RES
   PRE:LOC         1319-LW
   PRIV:MSK        1242/AND     1245/AND     1268-DATA
   PRNT:MOD        2343-#PRINT
   PRNTR           2688/BNE     2690/BCR     2693-LW
   PROGTEXT        4279-TEXTCS  9991/GEN
   PSW1            1085/STW     1213/LW      1215/STW     1234/LW      1239/STW     1344/LPSD    1652/DATA
      4097-PZE
   PSW1SAV         4099-DATA
   PSW2            1153/STW     1191/LW      1194/STW     4098-PZE
   PSW2SAV         4100-DATA
   PTR:A           2221-EQU     2370/LW
   PTR:ADJ         2622/BE      2634-EQU
   PTR:ADV         1075-EQU     1529/BCS     1537/B       2951/B       3006/BCS     3015/B       3085/B
   PTR:B           2226-EQU     2388/LW
   PTR:C           2231-EQU     2400/LW
   PTR:D           2236-EQU     2412/LW
   RD:SW            978/STW     3153/LW      3156/STW     3191/STW     4092-DATA
   READ            2982/BAL     3032-EQU     3052/BIR     3055/B
   READ:SN         2964/LI      3107-D
   READSTAT        4586/E       4729-EQU
   REG:MSK         1157/LW      2193-DATA
   REG:SP          2194-DATA
   REGN            2198-EQU
   REPORT          1442/BAL     1547-EQU
   RES:SAV         1355/STW     1364/STW     1374/STW     1376/STW     1598/LW     10002-EQU
   RESTART         3465/DATA    3468-DATA
   RESTORE         3201/BCR     3204/BCR     3221-LW
   RETURN           856/XPSD     861/XPSD     862/XPSD     863/XPSD     864/XPSD     865/XPSD     866/XPSD
       867/XPSD     868/XPSD     869/XPSD     870/XPSD     871/XPSD     872/XPSD     873/XPSD     874/XPSD
       875/XPSD     876/XPSD     877/XPSD     879/XPSD     881-DATA    1348/BCS     1350/XPSD    1640/DATA
      1646/D
   REWT            3103-D
   RM%EXPL         4336-TEXTCS  4603/Z
   RTABLIN         1099/STW     1103/STD     1168/AW      1341/LM      1654/DATA    1658/DATA    1662/DATA
      1666/DATA    1678/DATA    1679/DATA   10003-EQU
   RTABLOUT        1100/STW     1104/STD     1599/LW      1655/DATA    1659/DATA    1663/DATA    1667/DATA
      1680/DATA    1681/DATA    1682/DATA   10005-EQU
   S%EXPL          4342-EQU     4593/Z
   S:INT            505/ERROR    548/SET      556/SET      564/ERROR    567/ERROR    571/SET      573/SET
       581/DO
   S:RAD            564/ERROR    571/SET      608/ERROR
   S:UFV            564/ERROR    608/ERROR   4736/SET     4753/SET     4755/SET     4757/SET     4759/SET
      4761/SET     4763/SET
   SAMPLE          1296-EQU     1317/BAL
   SAV:RES         1072/BAL     1373-EQU
   SAVCC           2687/STCF    2697/LCF     2714-DATA
   SAVE            3911-DATA
   SBUF:END        1080/LI      1082/STW    10007-EQU
   SDAT            1293-DATA    1297/MTW     1301/STW
   SEQ:EM          3339/BL      3348-STW
   SEQ:MAR         3313/BL      3320-RD
   SET:CM          1289/B       1308-LW
   SET:IDX         1227/B       1234-LW
   SET:MAR         1965/BG      1967-EQU
   SET:MCR         3534/BCS     3536/BCS     3541-LW
   SET:MEM          919/BAL     2878-EQU
   SET:SNAP        1422-AW      1450/B       1479/B
   SET:VER         4701/BCR     4711-EQU
   SET:WL          1150/LD      1280-DATA
   SETMDC          2444/BAL     2449/BAL     2456-EQU
   SETSIZE         2884/B       2888/BGE     2893-STW
   SHORTA          1304-LI      2206/DATA    4675/LI
   SHORTL          1057/LI      1326-LW
   SHORTPTR        1058/STW     1354/BCS*    2205-DATA    4676/STW
   SI              1013/STW     1793/LW      1796/AW      3303/STW     3308-DATA
   SI:C            3267/D       3299-EQU
   SKIPEM          1115/BCR     1117/BCR     1125-LI
   SKP:NC          2745/STW     2757/STW     2761/LW      2772-DATA
   SN:CHECK        2934/STW     2971/LW      3107/D       3117/D       4669/STW    10008-EQU
   SN:COL0         2741/STW     2777/STW     3924/D       3942-DATA    4021/DATA
   SN:COL1         2461/STW     2462/STW     2480/STW     2481/STW     2490/STW     2491/STW     2517/J
      2664/#ETHCON 2672/STW     2674/STB     3926/J       3944-DATA    4023/DATA
   SN:COL2         2519/J       3928/J       3947-DATA    4024/DATA
   SN:COL3         2521/J       3930/J       3950-DATA    4025/DATA
   SN:COL4         2523/J       3932/J       3953-DATA    4026/DATA
   SN:COL5         2525/J       3934/J       3956-DATA    4027/DATA
   SN:COL6         2527/J       3936/J       3959-DATA    4028/DATA
   SN:COL7         2529/J       3938/J       3962-DATA    4029/DATA
   SN:COL8         2531/J       3965-DATA
   SN:EXP          1500/LI      1514/LB      2561/LI      2807/LW      2883/AI      2886/AI      2914/AI
      2920/STW     2945/STW     2983/LW      3034/STW     3042/LW      3230/LI      4693/STW    10010-EQU
   SN:EXPTR        1501/STW     2562/STW     2587/LW      2767/CW*     2789/LW      2791/STW     2819/CW*
      3914-DATA
   SN:HDR0         4037-TEXTCS  4044/DATA
   SN:HDR1         4039-TEXTCS  4045/DATA
   SN:HDR2         4041-TEXTCS  4046/DATA
   SN:OBPTR        1499/STW     2564/STW     2615/LW      2766/LW*     2792/LW      2794/STW     2818/LW*
      3913-DATA
   SN:OBS          1080/LI      1391/LW      1498/LW      1505/STW     1518/STB     2556/LB      2563/LW
      2805/LW      2915/STW     9996-DATA
   SN:OEPTR        1392/STW     1415/LW      1419/STW     1439/STW*    1454/LW      1458/LW*     1476/LW
      1478/STW     2200-DATA
   SNAP:CON        1070/BAL     1366/BCS     1368/BCS     1388-EQU     3231/B
   SNAP:FLG         968/STW     1056/STW     1068/LW      1365/LW      1401/STW     1531/STW     1710/STW
      1764/LW      2207-DATA    3573/STW     3596/STW
   SNAP:INI         996/LW      4081-GEN
   SNAP:OUT        1521/STW     1526/BAL     2545-EQU     2836/B*      2870/B*
   SNAP:PRNT       1509/BCR     1519/B       1524-BAL
   SNAP:RUN        1390/BCS     1432-LW      3229/BCS
   SNAP:SET         997/STW     1424/STB     1427/STB     1428/LW      1552/LW      3668/STW     4080-GEN
   SNAP:SW         1011/STW     1436-BCR     3626/STW     3643/BCR     3644/B
   SNAP:UNC         980/STW     1367/LW      1398/LW      1528/LW      2208-DATA    3574/STW     3597/STW
      4717/STW
   SNAP:WRT        2913/STW     3063/STW     3069/LI      3134-J
   SNAPEXIT        1395/BCR     1464/BCS     1473/BCR     1487-LI      1567/B
   SNAPINI         1292-GEN     1829/LW
   SNAPINT          984/STW     1291-DATA    1326/LW      1818/STW     1830/STW     1873/STW     3371/STW
   SNPADR:C        3479/D       3661-EQU
   SO               911/LW       969/STW     1114/LW      1329/LW      1393/LW      1507/LW      1511/LW
      1533/LW      1707/LW      1815/LW      1866/LW      1884/LW      2573/LW      2581/LW      2594/LW
      2609/LW      2620/LW      2763/LW      2832/LW      3603/STW     3921-DATA    4652/STW     4721/STW
   SO:C            3475/D       3571-EQU
   SO:CEX          3582/BCR     3584/BCS     3589/BCS     3603-STW
   SO:EXIT         2632/B       2870-B
   SO:LINE0        3976-EQU     4032/DATA
   SO:LINE1        3985-EQU     4033/DATA
   SO:LINE2        3994-EQU     4034/DATA
   SO:MSG          2337/LW      2348-TEXT
   SOE:MOVR        2588/BAL     2616/BAL     2719-EQU     2742/B*
   SO12A           2593-EQU
   SO12B           2596/BCR     2620-LW
   SO126           2581-LW      2606/B       2630/B       2868/B
   SO2             2623/BL      2632-B
   SO67B           2608-EQU     2631/BIR
   SPACES          1805/LW      1896/LW      2153/LW      2183/LW      2327/LW      2334/LW      2353/LW
      2776/LW      3200/CW      3783/LW      3860/LW      3922-DATA
   SPF:BAK         2956/LI      3105-D
   SPF:FWD         2960/LI      3109-D       4702/LI
   START           1033/DATA    1054-EQU     3468/DATA    4681/B       4697/B
   STAT%EXPL       4284-TEXTCS  4588/Z
   STATEXIT        3739/STW     3803/B*      3805-DATA
   STATMSGS        1800/BAL     3738-EQU     3740/STW     3741/STW     3801/LW      3802/LW      4730/BAL
   STGEN           4654/LI      4662-EQU
   STVER           4672/LI      4683-EQU
   SYNTAX%EXPL     4298-TEXTCS  4583/Z
   TABLE3           771/DATA    4578-EQU
   TABLE3END       4630-DATA
   TAPE            2912/STW     3036/LI      3131-J
   TAPE:AT         2954/LW      2975/STW     2979/LW      3017-DATA    3029/STW
   TAPE:ID         2972/CW      3114-TEXT    4668/LW
   TAPE:PTR        4078-DATA
   TAPEMOV         2993/B       3001-BAL
   TAPE0ADR         905/STW     2957/SIO*    2958/TIO*    2961/SIO*    2962/TIO*    2965/SIO*    2966/TIO*
      2968/TDV*    3023/SIO*    3024/TIO*    3037/SIO*    3038/TIO*    3386/STW     4071-DATA    4684/MTW
      4685/TIO*
   TAPE1ADR         907/STW     2936/SIO*    2937/TIO*    3064/TIO*    3070/SIO*    3071/TIO*    4072-DATA
      4666/TIO*    4671/SIO*    4719/SIO*
   TAPE2ADR         909/STW     4073-DATA
   TEXTCS           675-CNAME
   THREE           2085/AND     2104-DATA
   THRU:TXT        3881/LW      3905-TEXT
   TIC             3400/LI      3412-J       3414/D
   TITLE            477/OPEN     478-CNAME
   TOO:FAR         3884/STB     3890/LB      3904-DATA
   TOT:ERRS         979/STW     1037-DATA    1694/LW      1696/STW     3778/#HTECON
   TRAP:DEC        1039/XPSD    1041-DATA    1047/LPSD
   TRAP:FLG        1112/STW     1221/STW     1264-DATA
   TRAP:IDX        1253/STW     1267-DATA    1381/LW
   TRAP:SAV         922/STW     1252/STW     1265-DATA    1382/LW
   TRAP:SW         1067/BAL     1218-EQU     1306/BAL     3718/BAL
   TRP:SAV1         925/STW     1045/LW      1266-DATA
   TRY:WRT         3069-LI      3082/BDR
   TST:EXIT        1463-LW
   TXT:PTR         2176-EQU     2368/LW
   TXTP1           3821/LW      3828-TEXT
   TXTP2           3823/LW      3829-TEXT
   TYPE:CR         2317/BAL     2547/BAL     2651/BAL     2705-STW
   UNPK09          9461-MODULE
   UNPK1           9290-MODULE
   UNPK10          9480-MODULE
   UNPK11          9499-MODULE
   UNPK12          9518-MODULE
   UNPK13          9537-MODULE
   UNPK14          9556-MODULE
   UNPK15          9576-MODULE
   UNPK16          9600-MODULE
   UNPK17          9622-MODULE
   UNPK18          9642-MODULE
   UNPK19          9666-MODULE
   UNPK2           9308-MODULE
   UNPK20          9688-MODULE
   UNPK3           9313-MODULE
   UNPK4           9341-MODULE
   UNPK5           9369-MODULE
   UNPK6           9397-MODULE
   UNPK7           9425-MODULE
   UNPK8           9443-MODULE
   UPDTA           4626/E       4641-EQU
   VALBIT           743-DATA
   VALDEX           747-EQU
   VALTYPE          751-EQU
   VER:END         1315/AW      1744/LW      1791/LW      2213-DATA    3005/LW      4716/STW
   VER:FLG          985/STW     2212-DATA    3576/STW     3609/STW     4700/LW      4715/STW
   VG:END          1790/BCS     1792/BCS     4699-EQU     4726/B
   VM:CM           1843/BAL     1962-EQU
   VM:MSK          1969/AND     2004-DATA
   VMF             1975-AND
   WDT:MSG         1550/STW     1551/STW     1554/STW     1555/STW     1556/#PRINT  1577-TEXTCS
   WDT:SNAP         983/STW     1440/LW      3618/STW     3638/STW     3645-DATA
   WL:ZERO         1059/LD      1060/LD      1061/DC      1275-DATA    1282/DATA
   WLIMAGE         1274-DATA    1280/DATA
   WRD:CNT         1731/STW     2035/CW      2123-DATA
   WRT:MTL         1491/BCS     2941-EQU
   WRT:SNAP        2950/BAL     3057-EQU
   X40C3           1964/CW      2000-DATA
   Z                826-COM
   ZERO            1956-DATA
   #BRKOUT          710-EQU
   #BTE%            719-EQU
   #DIAG@           773-GEN
   #DISUSER%        720-EQU
   #DM%END          712-EQU
   #DM%START        711-EQU
   #DMENTRY%        734-EQU
   #ENUSER%         721-EQU
   #ERRTEXT%        729-EQU     1739/STW*    3747/STW*
   #ERR1PTR%        731-EQU
   #ETH%            580/BAL*     717-EQU
   #ETHCON          545-CNAME
   #FIDLE%          724-EQU     3183/B*      3245/BCR*    3260/B*      3436/BCR*    3464/BAL*    3734/B*
      3826/B*      3855/B*      3902/B*
   #GUIDE%          723-EQU     9990/BAL*
   #HDRFLG          689-EQU      970/STW     1722/CW      1737/STW     2642/CW      2653/STW     2660/CW
      2679/STW     3748/LW      3796/STW
   #HTE%            511/BAL*     718-EQU
   #HTECON          502-CNAME
   #INDEX           697-EQU
   #INITIAL@        770-DATA
   #LOADER@         774-DATA    9989/STW
   #LOADFLAG        690-EQU      897/LC
   #MAXMEM          708-EQU     2879/LW      3663/CW
   #MTLFLAG         691-EQU      900/LW      1748/LW      4653/LW      4663/LW      4673/LW      4708/LW
   #OUTPTR          695-EQU
   #P%MODE%         735-EQU
   #PAKDEX          696-EQU
   #PARAM%H1        698-EQU     3680/LW      3699/LW
   #PARAM%H2        699-EQU     3686/LW
   #PARAM%H3        700-EQU
   #PARAM%H4        701-EQU
   #PARAM1          704-EQU     3837/LW      3839/LW      3845/STW
   #PARAM2          705-EQU
   #PARAM3          706-EQU
   #PARAM4          707-EQU
   #PASS           4736-SET     4736/SET     4737/DO      4782/DO      4809/DO
   #PLINEIN@        772-DATA
   #PRINT           593-CNAME
   #PRINTER%        593/CNAME    728-EQU
   #PRTADDR         693-EQU      951/#HTECON 2686/CW      2694/SIO*    2695/TIO*    2707/CW      3282/STW
   #RETURN%         726-EQU     4731/B*
   #RUNADDR%        725-EQU     1044/XPSD*   1536/XPSD*   1572/XPSD*   1726/XPSD*   1735/XPSD*   1750/XPSD*
      1858/XPSD*   2345/XPSD*   2424/XPSD*   2650/XPSD*   2703/XPSD*   2812/XPSD*   3054/XPSD*   3084/XPSD*
      3091/XPSD*   3169/XPSD*   3786/LW*     4648/XPSD*
   #SAMPLE%         709-EQU     1299/XPSD*
   #SENSE           688-EQU     1353/LC      1626/LC      1719/LC      1741/LC
   #STATUS          703-EQU
   #TABLE1A         687-ORG
   #TABLE1B         716-ORG
   #TABLE2@         769-ORG
   #TABLE3@         771-DATA
   #TESTINIT        702-EQU     1029/LC
   #TOADDR          692-EQU      955/#HTECON 2685/LW      2689/TIO*    2691/HIO*    2700/SIO*    2706/LW
      3294/STW
   #TYPE            594-CNAME
   #TYPER%          594/CNAME    727-EQU
   #VALTAB%         733-EQU
