1 C00   23:33 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:33 JUN 20,'83    SIGMA 7 CPU DIAGNOSTIC-DECIMAL   704047-11/51C02  MAY 8, 72           PAGE    2
A       1                             TITLE 'SIGMA 7 CPU DIAGNOSTIC-DECIMAL   704047-11/51C02  MAY 8, 72'
        2                            *
        3                            *
        4                            *
        5                            * PROGRAM NO. 704047                MANUAL NO. 900908
        6                            *
        7                            *
        8                            *REVISION C02   5/8/72   ADDED MODULE TO TEST -1 PLUS +3            *C02
        9                            *
       10                            * REVISION C01 (6/29/70) CHANGES INDICATED IN COLUMNS 69 - 72 BY -- *C01
       11                            *  PROGRAM REVISED TO CHECK REVISION 'N' OF SIGMA 7 DECIMAL UNIT,   *C01
       12                            *  (MODEL NO. 8419, PIN LIST 124822).  ADDS FIVE NEW TEST MODULES   *C01
       13                            *  TO CHECK THE DECIMAL SHIFT INSTRUCTION.                          *C01
       14                            *                                                                   *C01
       15                            *NOTE:   THIS PROGRAM REVISION REQUIRES REVISION 'N' TO PIN LIST    *C01
       16                            *        124822 FOR CORRECT OPERATION.  FIELD MOD KIT NO. 181994.   *C01
       17                            *
       18                            *
       19                            * REVISION C00 (1/16/70) ADDITIONAL TEST MODULES ADDED AND COMPOUND   *C
       20                            * DECIMAL TEST DISABLED.SUCCESSFUL OPERATION OF THIS REVISION OF THE  *C
       21                            * DIAGNOSTIC PROGRAM REQUIRES THAT THE SIGMA 7 DECIMAL UNIT BE WIRED  *C
       22                            * TO REVISION L OR LATER. SELECTING THE 60CPS FREQUENCY OF COUNTER 3  *C
       23                            * OF THE SIGMA 7 CPU GIVES THE MOST THOROUGH TEST OF DECIMAL UNIT     *C
       24                            * INTERRUPTABILITY.                                                   *C
       25                            *
       26                            * REVISION B00 (7/16/69) DOCUMENTATION REFORMATTING CHANGE ONLY       *B
       27                            *
       28                                     OPEN     PAGE              THIS INHIBITS
       29         00000000           PAGE     CNAME                       PAGE
       30                                     PROC                         DIRECTIVE
       31                                     PEND                          TO PERMIT MAX LINAGE/PAGE
       32                            *
       33                                     SYSTEM   SIG7FDP                                               AUTO0020
       34   01 00040                          ORG      64
            01 00040
       35                            *  THIS PROGRAM TESTS THE OPTIONAL DECIMAL INSTRUCTION SET. NO TESTING
       36                            *  OF THE STANDARD INSTRUCTION SET IS ATTEMPTED.
       37                            *
       38                            *  REQUIRED EQUIPMENT               SIGMA 7 WITH 8K WORDS OF CORE     *C
       39                            *                                   AND THE DECIMAL OPTION, CARD
       40                            *                                   OR PAPER TAPE READER TO LOAD,
       41                            *                                   AND A LINE PRINTER OR ASR/KSR
       42                            *                                   FOR MESSAGE OUTPUT.
       43                            *
       44                            *  OPTIONAL EQUIPMENT               NONE
       45                            *
       46                            *  PREREQUISITES                    'AUTO' DIAGNOSTIC MUST RUN
       47                            *                                   ERROR FREE.
       48                            *  CORE STORAGE USED
       49                            *
       50                            *  RUN TIME (APPROX)                10 SECONDS FOR 32 ERROR FREE PASSES.
       51                            *
       52                            *  PROGRAM MEDIA                    SELF LOADING CARDS OR PAPER TAPE.
       53                            *  SOURCE LANGUAGE                  META-SYMBOL.
       54                            *
       55                                     PAGE
       56                            *  LOADING PROCEDURE
       57                            *
       58                            *  USE STANDARD FILL PROCEDURE, AS DESCRIBED IN SIGMA 7 REFERENCE
       59                            *  MANUAL, NUMBER 900950.
       60                            *
       61                            *  SUCCESSFUL LOAD WILL BE INDICATED BY THE FOLLOWING PRINTOUT.
       62                            *
       63                            *  SIGMA 7 CPU DIAGNOSTIC-DECIMAL
       64                            *  PROGRAM 704047-C00 MANUAL 900908C                                  *C
       65                            *
       66                            *  AFTER APPROXIMITLY 10 SECONDS OF RUN TIME, THE REAL
       67                            *  TIME CLOCK MESSAGE WILL BE PRINTED OUT.                            *C
       68                            *
       69                                     PAGE
       70                            ****************  I/O COMPATIBILITY
       71                            *
       72                            *        THIS TEST IS DESIGNED TO TEST FOR CONFLICTS BETWEEN THE
       73                            *        EXECUTION OF THIS DIAGNOSTIC AND I/O OPERATIONS.
       74                            *        TO ACTIVATE THIS TEST:
       75                            *        1. CP INTERRUPT
       76                            *        2. ENTER DEVICE ADDRESS INTO LOCATION  X'10'
       77                            *        3. BRANCH TO LOCATION ASSEMBLED ON NEXT LINE (FOURTH FIELD).
       78   01 00040    00000274              DATA     SETINTR
       79                            *           (DISPLAY ADDRESS, MOVE COMPUTE SWITCH TO RUN, OR SET
       80                            *           (ADDRESS INTO PSW1, DISPLAY INSTRUCTION ADDRESS, MOVE
       81                            *           (COMPUTE SWITCH TO RUN.)
       82                            *           (IF THE SELECTED DEVICE SOES NOT GENERATE AN INTERRUPT
       83                            *            FOR ANY REASON, RESTART BY REPEATING STEP 3 )
       84                            *
       85                            *  TO MOST EFFECTIVELY RUN I/O COMPATIBILITY AND REPORT (SS 3 ON)
       86                            *  CONCURRENTLY, ASSIGN THE MESSAGE DEVICE TO A LINE PRINTER PER
       87                            *  DESCRIPTION OF REGISTER CONTENTS ON PCP INTERRUPT, AND ASSIGN
       88                            *  COMPATIBILITY DEVICE TO A KSR AS INDICATED ABOVE. OTHER COMBINATIONS
       89                            *  WILL WORK CORRECTLY, BUT THIS ALLOWS EXECUTING THE TEST MODULES AS
       90                            *  RAPIDLY AS POSSIBLE WITH THE I/O RUNNING.
       91                                     PAGE
       92                            *                                                                       AUTO0040
       93                            *                                                                       AUTO0050
       94                            *
       95                            ****************   OPERATING OPTIONS
       96                            *
       97                            *      SS1       SET=SHORT LOOP                                         AUTO0070
       98                            *              RESET=NORMAL OPERATION                                   AUTO0080
       99                            *                                                                       AUTO0090
      100                            *      SS2       SET=LONG LOOP                                          AUTO0100
      101                            *              RESET=NORMAL OPERATION                                   AUTO0110
      102                            *                                                                       AUTO0120
      103                            *      SS3       SET=REPORT                                             AUTO0130
      104                            *              RESET=NORMAL OPERATION                                   AUTO0140
      105                            *                                                                       AUTO0150
      106                            *      SS4       SET=NO HALT ON ERRORS                                  AUTO0160
      107                            *                 RESET=HALT ON ERRORS AND AFTER REPORT
      108                            *
      109                            *  TO LOOP ON A SPECIFIC MODULE, CONTROL PANEL INTERRUPT, STORE
      110                            *  'LIST' ADDRESS (ADDRESS OF FIRST WORD OF MODULE) IN REGISTER 1,
      111                            *  SET SS1 FOR SHORT LOOP, OR SS2 FOR LONG LOOP, AND CLEAR WAIT.
      112                                     PAGE
      113                            *                                  REGISTER CONTENTS ON ERROR HALT,     AUTO0190
      114                            *      R1      PRESENT LIST ADDRESS                                     AUTO0200
      115                            *      R2      ERROR COUNTER                                            AUTO0210
      116                            *      R3      PASS COUNTER (PASSES=0-15, MODULES=16-31)                AUTO0220
      117                            *      R4      INSTRUCTION                                              AUTO0230
      118                            *      R5      ERROR IDENTIFIER AND ADDRESS:                            AUTO0240
      119                            *              10000000 = INSTRUCTION                                   AUTO0250
      120                            *              20000000 = LOCATION+1 OF THE EXECUTION LOCATION          AUTO0260
      121                            *              30000000 = INDIRECT ADDRESS                              AUTO0270
      122                            *              4000000X = REGISTER X: X=1 OR 7.
      123                            *              5000000X = PROGRAM STATUS WORD X: X=1 OR 2               AUTO0290
      124                            *              6000000X = REGISTER X: X=A,B,C,D,E OR F.
      125                            *              7000WXYZ = MEMORY WORD IN LOCATION WXYZ (WXYZ=0-FFFF)    AUTO0310
      126                            *      R6      ERRONEOUS RESULT                                         AUTO0320
      127                            *      R7      PREDETERMINED RESULT                                     AUTO0330
      128                            *      R8      DIFFERENCE BETWEEN R6 AND R7                             AUTO0340
      129                                     PAGE
      130                            *        REGISTER CONTENTS ON CONTROL PANEL INTERRUPT
      131                            *
      132                            ************************************R0 AND OR R5 MAY BE MODIFIED AFTER
      133                            *                                   THE WAIT FROM CP INTERRUPT. R0 WILL
      134                            *                                   SELECT THE MSG DEVICE AND R5 THE
      135                            *                                   COUNT PULSE INTERRUPTS            *C
      136                            *
      137                            *        R0       T0000MSG   T=0 FOR KSR   MSG= DEVICE ADDR
      138                            *                            T=8 FOR LINE PRINTER
      139                            *
      140                            *        R1       3240YYYY          LW,4 OBJECT ADDRESS
      141                            *
      142                            *        R2       ERROR COUNTER
      143                            *
      144                            *        R3       XXXXZZZZ    X=PASS COUNT  Z= TEST COUNT
      145                            *
      146                            *        R5       0000N000    N= ACTIVE COUNTER INTERRUPTS
      147                            *                                                                     *C
      148                            *                 BIT POSITION    ACTIVATES COUNTER
      149                            *                 16 SET TO 1             1
      150                            *                 17 SET TO 1             2
      151                            *                 18 SET TO 1             3
      152                            *                 19 SET TO 1             4
      153                                     PAGE
      154                            *  RESTART PROCEDURE
      155                            *
      156                            *  COMPUTE SWITCH TO IDLE.
      157                            *  SYSTEM RESET.
      158                            *  COMPUTE SWITCH TO RUN.
      159                                     PAGE
      160                            *  ON ANY COUNT PULSE OR I/O INTERRUPT THAT OCCURS, THE CONTENTS OF
      161                            *  ALL REGISTERS ARE SAVED, AS WELL AS THE PSD STORED BY THE INTERRUPT.
      162                            *  IF A FAILURE OCCURS AFTER THE COUNT PULSE INTERRUPTS HAVE BEEN EN-
      163                            *  ABLED, OR WHILE I/O COMPATIBILITY IS BEING TESTED, THIS STORED DATA
      164                            *  COULD PROVIDE INFORMATION PERTINENT TO THE FAILURE. EXAMINATION OF
      165                            *  THE DATA STORED WILL INDICATE WHETHER OR NOT THE INTERRUPT OCCURRED
      166                            *  DURING THE EXECUTION OF THE TEST INSTRUCTION. IF THE TEST INSTRUC-
      167                            *  TION WAS INTERRUPTED, THE INTERMEDIATE PRODUCTS (CONDITION CODE,
      168                            *  REGISTER MODIFICATION) COULD INDICATE THE POINT OF FAILURE.
      169                            *
      170                            *  THE INFORMATION WILL BE STORED AT THE FOLLOWING LOCATIONS:
      171                            *  (FOURTH FIELD ON EACH LINE IS THE HEXIDECIMAL ADDRESS.)
      172                            *
      173   01 00041    0000009C              DATA     CP1SAVE     REGISTER CONTENTS, COUNT PULSE 1 INT.
      174   01 00042    000000B2              DATA     CP2SAVE     REGISTER CONTENTS, COUNT PULSE 2 INT.
      175   01 00043    000000C8              DATA     CP3SAVE     REGISTER CONTENTS, COUNT PULSE 3 INT.
      176   01 00044    000000DE              DATA     CP4SAVE     REGISTER CONTENTS, COUNT PULSE 4 INT.
      177   01 00045    00000280              DATA     IOSAV       REGISTER CONTENTS, I/O INTERRUPT.
      178                            *
      179   01 00046    00000096              DATA     CP1         PSD STORED BY COUNT PULSE 1 INTERRUPT.
      180   01 00047    000000AC              DATA     CP2         PSD STORED BY COUNT PULSE 2 INTERRUPT.
      181   01 00048    000000C2              DATA     CP3         PSD STORED BY COUNT PULSE 3 INTERRUPT.
      182   01 00049    000000D8              DATA     CP4         PSD STORED BY COUNT PULSE 4 INTERRUPT.
      183   01 0004A    0000027C              DATA     IOINTR      PSD STSTORED BY I/O INTERRUPT.
      184                            *
      185                            *  IMMEDIATELY PRECEDING THE EXECUTION OF EACH TEST MODULE, ALL THE
      186                            *  ABOVE STORAGE AREAS ARE SET TO ZERO. THEREFORE, ANY OTHER DATA
      187                            *  FOUND AT ANY OF THE LOCATIONS INDICATED WOULD PERTAIN ONLY TO THE
      188                            *  TEST MODULE JUST EXECUTED BEFORE THE MACHINE WAS STOPPED.
      189                                     PAGE
      190                            *  THE FOLLOWING CONDITIONS WOULD INDICATE THAT THE TEST INSTRUCTION
      191                            *  WAS INTERRUPTED:
      192                            *  THE ADDRESS STORED IN THE PSD LOCATION IS THE ADDRESS OF 'LOC'
      193                            *  (FOURTH FIELD)
      194   01 0004B    0000014E              DATA     LOC
      195                            *
      196                            *  THE CONDITION CODE STORED MAY BE DIFFERENT FROM THAT INDICATED.
      197                            *  BY THE TEST MODULE INPUT.
      198                            *
      199                            *  THE REGISTER CONTENTS (OF SOME REGISTERS) WILL BE DIFFERENT FROM
      200                            *  THE VALUES LOADED JUST PRIOR TO EXECUTION OF THE TEST INSTRUCTION.
      201                            *  THESE VALUES MAY BE DETERMINED BY EXAMINING THE CODING AT THE
      202                            *  ADDRESS OF 'SHORT'
      203                            *  (FOURTH FIELD)
      204   01 0004C    00000142              DATA     SHORT
      205                                     PAGE
      206         0000000F           F        EQU      15
      207         00200000           DM       EQU      X'200000'
      208         00000000           CC       FNAME                      YIELDS DESIRED CONDITION CODE.
      209                                     PROC
      210                                     PEND     AF**28
      211         00000004           I        COM,4,28  AF(1),AF(2)
      212         00000004           K        COM,4,4,4,20  AF(1),AF(2),AF(3),AF(4)
      213         00000000           P        CNAME
      214                                     PROC
      215                            LF       GEN,32   DA(AF(1))
      216                                     PEND
      217         00000000           J        CNAME
      218                                     PROC
      219                            LF       GEN,8,24 AF(1),BA(AF(2))
      220                                     PEND
      221         00000000           FILL     CNAME
      222                                     PROC
      223                                     DO       ABSVAL(AF)-ABSVAL(%)
      224                                     GEN,32   0
      225                                     FIN
      226                                     PEND
      227                                     PAGE                                                           AUTO0370
      228   01 00040                          ORG      X'40'             TRAP LOCATIONS                      AUTO0390
            01 00040
      229         00000005                    DO       5                 SET UP TRAP LOCATIONS.
      230   01 00040    0F0003EE              XPSD,0   RETURN
      231                                     FIN
            01 00041    0F0003EE
            01 00042    0F0003EE
            01 00043    0F0003EE
            01 00044    0F0003EE
      232   01 00045    0F000060              XPSD,0   DFTRAP
      233         0000000A                    DO       10
      234   01 00046    0F0003EE              XPSD,0   RETURN
      235                                     FIN
            01 00047    0F0003EE
            01 00048    0F0003EE
            01 00049    0F0003EE
            01 0004A    0F0003EE
            01 0004B    0F0003EE
            01 0004C    0F0003EE
            01 0004D    0F0003EE
            01 0004E    0F0003EE
            01 0004F    0F0003EE
      236   01 00050    0F8003EE     BRANCH   XPSD,8   RETURN
      237                            *                                  INTERRUPT LOCATIONS                  AUTO0520
      238   01 00051    00000000 A            FILL     X'52'
      239   01 00052    0F000096              XPSD,0   CP1
      240   01 00053    0F0000AC              XPSD,0   CP2
      241   01 00054    0F0000C2              XPSD,0   CP3
      242   01 00055    0F0000D8              XPSD,0   CP4
      243   01 00056    0F000072              XPSD,0   PARITY            MEMORY PARITY                       AUTO0570
      244   01 00057    00000000 A            FILL     X'5C'
            01 00058    00000000 A
            01 00059    00000000 A
            01 0005A    00000000 A
            01 0005B    00000000 A
      245   01 0005C    0F00027C              XPSD,0   IOINTR            IO INTERRUPT
      246   01 0005D    0F00007C              XPSD,0   RESET             INTERRUPT BUTTON                    AUTO0630
      247                                     BOUND    8
      248   01 0005E    0000014C     CDTRPLM  DATA     LOC-2,LOC-5
            01 0005F    00000149
      249   01 00060    00000000 A   DFTRAP   DATA     0,0
            01 00061    00000000 A
      250   01 00062    00000064              DATA     %+2,0
            01 00063    00000000 A
      251   01 00064    35500071              STW,5    5X
      252   01 00065    32500060              LW,5     DFTRAP            TEST FOR TRAP CAUSED BY
      253   01 00066    4B5002D7              AND,5    BIT15X31          COMPOUND DECIMAL FUNCTION.
      254   01 00067    1950005E              CLM,5    CDTRPLM           *
      255   01 00068    6860006F              BCR,6    CDTRAP            BR IF TRAP DUE TO COMPOUND DEC.
      256   01 00069    22500045 A            LI,5     X'45'             SET INDICATOR FOR DECIMAL FAULT.
      257   01 0006A    355003EF              STW,5    RETURN+1
      258   01 0006B    32500060              LW,5     DFTRAP
      259   01 0006C    355003EE              STW,5    RETURN
      260   01 0006D    32500071              LW,5     5X
      261   01 0006E    0E0003F0              LPSD,0   RETURN+2
      262   01 0006F    32500071     CDTRAP   LW,5     5X
      263   01 00070    6800014D              B        LOC-1
      264   01 00071    00000000 A   5X       DATA     0
      265                                     BOUND 8                                                        AUTO2260
      266   01 00072    00000000 A   PARITY   PZE                                                            AUTO2270
      267   01 00073    00000000 A            PZE                                                            AUTO2280
      268   01 00074    00000076              PZE,0    %+2                                                   AUTO2290
      269   01 00075    00000000 A            PZE                                                            AUTO2300
      270   01 00076    6C400010 A            RD,4     X'10'             RECORD PARITY ERROR PLANS           AUTO2310
      271   01 00077    325002EF              LW,5     CPINT             COUNT PULSE INTERRUPTS
      272   01 00078    6D501300 A            WD,5     X'1300'           ARM AND DISABLE
      273   01 00079    2E000000 A            WAIT,0   0                                                     AUTO2320
      274   01 0007A    0E3003F4              LPSD,3   REPEAT            RELEASE PARITY INTERRUPT-REPEAT TESTAUTO2330
      275                            *                                  INTERUPT BUTTON SERVICE ROUTINE      AUTO2440
      276                                     PAGE
      277                                     BOUND 8                                                        AUTO2450
      278   01 0007C    00000000 A   RESET    PZE                                                            AUTO2460
      279   01 0007D    00000000 A            PZE                                                            AUTO2470
      280   01 0007E    00000080              PZE,0    %+2                                                   AUTO2480
      281   01 0007F    07000000 A            DATA     X'07000000'       TURN ON INTERRUPT INHIBIT BITS
      282   01 00080    325002EF              LW,5     CPINT             COUNT PULSE INTERRUPTS
      283   01 00081    6D501300 A            WD,5     X'1300'           ARM AND DISABLE
      284   01 00082    323003FA              LW,3     PASSES            RESET PASSES TO LAST SETTING        AUTO2500
      285   01 00083    322003F9              LW,2     ERRORS            RESET ERRORS TO LAST SETTING        AUTO2510
      286   01 00084    3210010F              LW,1     SAVE              REINITIALIZE LOAD WITH LAST SETTING AUTO2520
      287   01 00085    320002F9              LW,0     TYPE
      288   01 00086    2E000000 A            WAIT,0   0                                                     AUTO2530
      289   01 00087    4B1002D7              AND,1    BIT15X31
      290   01 00088    491002D6              OR,1     LW4
      291   01 00089    4B500314              AND,5    MASK+5
      292   01 0008A    355002EF              STW,5    CPINT
      293   01 0008B    350002F9              STW,0    TYPE              DEVICE ADDR-IF BIT 0=0 KSR; =1 LP
      294   01 0008C    355002F0              STW,5    CPINTM
      295   01 0008D    32500005 A            LW,5     5
      296   01 0008E    68100092              BCR,1    %+4
      297   01 0008F    22500000 A            LI,5     0
      298   01 00090    355002DA              STW,5    XDFLAG
      299   01 00091    68000094              B        %+3
      300   01 00092    225FFFFF A            LI,5     -1
      301   01 00093    355002DA              STW,5    XDFLAG
      302   01 00094    0E3003F4              LPSD,3   REPEAT            RELEASE PANEL INTERRUPT-REPEAT TEST AUTO2540
      303                                     BOUND    8
      304   01 00096                 CP1      RES      2
      305   01 00098    0000009A              DATA     %+2,0
            01 00099    00000000 A
      306   01 0009A    2B00009C              STM,0    CP1SAVE           SAVE ALL REGS ON INTERRUPT.
      307   01 0009B    0E300096              LPSD,3   CP1
      308   01 0009C                 CP1SAVE  RES      16
      309                                     BOUND    8
      310   01 000AC                 CP2      RES      2
      311   01 000AE    000000B0              DATA     %+2,0
            01 000AF    00000000 A
      312   01 000B0    2B0000B2              STM,0    CP2SAVE           SAVE ALL REGS ON INTERRUPT.
      313   01 000B1    0E3000AC              LPSD,3   CP2
      314   01 000B2                 CP2SAVE  RES      16
      315                                     BOUND    8
      316   01 000C2                 CP3      RES      2
      317   01 000C4    000000C6              DATA     %+2,0
            01 000C5    00000000 A
      318   01 000C6    2B0000C8              STM,0    CP3SAVE           SAVE ALL REGS ON INTERRUPT.
      319   01 000C7    0E3000C2              LPSD,3   CP3
      320   01 000C8                 CP3SAVE  RES      16
      321                                     BOUND    8
      322   01 000D8                 CP4      RES      2
      323   01 000DA    000000DC              DATA     %+2,0
            01 000DB    00000000 A
      324   01 000DC    2B0000DE              STM,0    CP4SAVE           SAVE ALL REGS ON INTERRUPT.
      325   01 000DD    0E3000D8              LPSD,3   CP4
      326   01 000DE                 CP4SAVE  RES      16
      327   01 000EE    322003FD     AUTO     LW,2     ZERO              ERRORS                              AUTO2590
      328   01 000EF    323003FD              LW,3     ZERO              PASSES                              AUTO2600
      329   01 000F0    321002E6              LW,1     NEG51                                                 AUTO2630
      330   01 000F1    351002E7              STW,1    LINE              INITALIZE LINE COUNT                AUTO2640
      331   01 000F2    32100310              LW,1     NEG2                                                  AUTO2650
      332   01 000F3    351002E1              STW,1    FIRST             RESET FIRST PASS COUNTER            AUTO2660
      333   01 000F4    321002C8              LW,1     LOAD              INITIALIZE MODULE POINTER. SET C=0  AUTO2670
      334   01 000F5    3510010F     CYCLE    STW,1    SAVE              SAVE OLD POINTER FOR RESET.
      335   01 000F6    325002FA              LW,5     PCPINT
      336   01 000F7    6D501200 A            WD,5     X'1200'           ARM AND ENABLE
      337   01 000F8    352003F9              STW,2    ERRORS            SAVE ERROR COUNTER IN MEMORY        AUTO2730
      338   01 000F9    353003FA              STW,3    PASSES            SAVE PASS COUNTER IM MEMORY         AUTO2740
      339   01 000FA    22600021 A            LI,6     TABLEND-TABLE
      340   01 000FB    22400000 A            LI,4     0
      341   01 000FC    354C03B3              STW,4    TABLE-1,6
      342   01 000FD    646000FC              BDR,6    %-1
      343   01 000FE    226FFFF0 A            LI,6     -16               CLEAR SAVE AREAS FOR INTERMEDIATE
      344   01 000FF    354C00AC              STW,4    CP1SAVE+16,6      PRODUCT DEFINITION ON INTERRUPT.
      345   01 00100    354C00C2              STW,4    CP2SAVE+16,6      *
      346   01 00101    354C00D8              STW,4    CP3SAVE+16,6      *
      347   01 00102    354C00EE              STW,4    CP4SAVE+16,6      *
      348   01 00103    354C0290              STW,4    IOSAV+16,6        *
      349   01 00104    656000FF              BIR,6    %-5               *
      350   01 00105    35400096              STW,4    CP1               *
      351   01 00106    35400097              STW,4    CP1+1             *
      352   01 00107    354000AC              STW,4    CP2               *
      353   01 00108    354000AD              STW,4    CP2+1             *
      354   01 00109    354000C2              STW,4    CP3               *
      355   01 0010A    354000C3              STW,4    CP3+1             *
      356   01 0010B    354000D8              STW,4    CP4               *
      357   01 0010C    354000D9              STW,4    CP4+1             *
      358   01 0010D    3540027C              STW,4    IOINTR
      359   01 0010E    3540027D              STW,4    IOINTR+1
      360   01 0010F    32400412     SAVE     LW,4     LIST+C            PICK UP COUNT                       AUTO2810
      361   01 00110    69300114              BCS,3    NOTEND            TEST FOR MODULE END                 AUTO2820
      362   01 00111    4B3002D5              AND,3    M1Q15             DELETE MODULE COUNT                 AUTO2830
      363   01 00112    20310000 A            AI,3     X'10000'          INCREMENT PASS COUNTER              AUTO2840
      364   01 00113    68000260              B        DONE
      365   01 00114    325002C7     NOTEND   LW,5     STORE             PREPARE TO SET THE TABLE            AUTO2860
      366   01 00115    32600004 A            LW,6     4                                                     AUTO2870
      367   01 00116    35100118     MOVE     STW,1    FROM              SET LOAD                            AUTO2880
      368   01 00117    35500119              STW,5    TO                SET STORE                           AUTO2890
      369   01 00118    32400412     FROM     LW,4     LIST+C            LOAD VEHICAL                        AUTO2900
      370   01 00119    354003B4     TO       STW,4    TABLE+I           STORE VEHICAL                       AUTO2910
      371   01 0011A    6510011B              BIR,1    %+1               C+1 INTO C                          AUTO2920
      372   01 0011B    6550011C              BIR,5    %+1               I+1 INTO I                          AUTO2930
      373   01 0011C    65600116              BIR,6    MOVE                                                  AUTO2940
      374   01 0011D    35100118              STW,1    FROM              SET MODULE POINTER = NEXT MODULE    AUTO2950
      375   01 0011E    321003B8              LW,1     TABLE+4           PICK UP INDEX                       AUTO2980
      376   01 0011F    324003B6     SETPSW   LW,4     TABLE+2                                               AUTO3070
      377   01 00120    4B4002D4              AND,4    COND              CLEAR ADDRESS                       AUTO3080
      378   01 00121    2040014E              AI,4     LOC
      379   01 00122    354003F6              STW,4    PSW1                                                  AUTO3100
      380   01 00123    2240014D              LI,4     LOC-1
      381   01 00124    322002DA              LW,2     XDFLAG
      382   01 00125    68300127              BCR,3    %+2
      383   01 00126    204FFFFC A            AI,4     -4
      384   01 00127    354002CA              STW,4    CMPDEC
      385   01 00128    22400000 A   COMPIN   LI,4     0
      386   01 00129    354003F7              STW,4    PSW2
      387   01 0012A    324003B5              LW,4     TABLE+1           INSTRUCTION                         AUTO3110
      388   01 0012B    3540014E              STW,4    LOC
      389   01 0012C    325002C3              LW,5     INDA              INDIRECT ADDRESS                    AUTO3130
      390   01 0012D    355003D7              STW,5    IA                                                    AUTO3150
      391   01 0012E    322003BA              LW,2     TABLE+6
      392   01 0012F    323003BE              LW,3     TABLE+10
      393   01 00130    324003C2              LW,4     TABLE+14
      394   01 00131    325003C6              LW,5     TABLE+18
      395   01 00132    326003C8              LW,6     TABLE+20
      396   01 00133    327003CA              LW,7     TABLE+22
      397   01 00134    328003CC              LW,8     TABLE+24
      398   01 00135    329003CE              LW,9     TABLE+26
      399   01 00136    32A003D0              LW,10    TABLE+28
      400   01 00137    32B003D1              LW,11    TABLE+29
      401   01 00138    32C003B8              LW,12    TABLE+4
      402   01 00139    32D003BC              LW,13    TABLE+8
      403   01 0013A    32E003C0              LW,14    TABLE+12
      404   01 0013B    32F003C4              LW,15    TABLE+16
      405   01 0013C    022000F0 A            LCI      15                SET UP FOR HIGH SPEED
      406   01 0013D    2B10038F              STM,1    FASTIN            IF SHORT LOOP IS REQUESTED.
      407   01 0013E    325002EF              LW,5     CPINT             COUNT PULSE INTERRUPTS
      408   01 0013F    6D501200 A            WD,5     X'1200'           ARM AND ENABLE
      409   01 00140    32F002C4              LW,15    LOC2AD
      410   01 00141    35F003F0              STW,15   RETURN+2
      411   01 00142    022000F0 A   SHORT    LCI      15
      412   01 00143    2A10038F              LM,1     FASTIN
      413   01 00144    02200080 A            LCI      8
      414   01 00145    2B2003DD              STM,2    MEMORY
      415   01 00146    22700001 A            LI,7     1
      416   01 00147    325002EF              LW,5     CPINT
      417   01 00148    E80002CA              B        *CMPDEC
      418   01 00149    7F0002CB              DST,0    CDECOUT
      419   01 0014A    770002CB              UNPK,0   CDECOUT
      420   01 0014B    7F0002CB              DST,0    CDECOUT
      421   01 0014C    7D0002CB              DC,0     CDECOUT
      422   01 0014D    0E0003F6              LPSD,0   PSW1
      423   01 0014E    000003D6     LOC      DATA     INST              EACH TEST INSTR WILL BE STORED HERE.
      424   01 0014F    0F8003EE              XPSD,8   RETURN            GO TO LOC+2. ALSO X-FER 0 INTO RP
      425   01 00150    6C000000 A            RD,0     0                 READ SENSE SWITCHES                 AUTO3270
      426   01 00151    69800142              BCS,8    SHORT             SS1-SHORT LOOP                      AUTO3280
      427   01 00152    6D501100 A            WD,5     X'1100'           DISARM
      428   01 00153    322003F9              LW,2     ERRORS
      429   01 00154    323003FA              LW,3     PASSES
      430   01 00155    324003B5              LW,4     TABLE+1           LOAD TEST INSTRUCTION.
      431                            *                                  AUTO-TEST                            AUTO3300
      432   01 00156    351003D8              STW,1    TEST+3            IX                                  AUTO3310
      433   01 00157    3210030D              LW,1     ODDBALL           SET RETURN FOR SPURIOUS TRAPS
      434   01 00158    351003F0              STW,1    RETURN+2          SET RETURN TO RESET+2               AUTO3330
      435   01 00159    357003DC              STW,7    TEST+7            SAVE HALF WORD INDEX                AUTO3340
      436   01 0015A    3210010F              LW,1     SAVE              PICK UP PRESENT LIST ADDRESS        AUTO3350
      437   01 0015B    35C003D9              STW,12   TEST+4            R                                   AUTO3360
      438   01 0015C    35D003DA              STW,13   TEST+5            RU1                                 AUTO3370
      439   01 0015D    35E003E9              STW,14   TEST+20
      440   01 0015E    35F003EA              STW,15   TEST+21
      441   01 0015F    35A003EB              STW,10   TEST+22
      442   01 00160    35B003EC              STW,11   TEST+23
      443   01 00161    325002E8              LW,5     INSTID            PICK UP INSTRUCTION IDENTIFIED      AUTO3380
      444   01 00162    3260014E              LW,6     LOC               INSTR.
      445   01 00163    327003B5              LW,7     TABLE+1           INST(O)                             AUTO3400
      446   01 00164    0F0001D6              XPSD,0   ERROR             TEST INSTRUCTION                    AUTO3410
      447   01 00165    325002E9              LW,5     XPSDID            PICK LOCATION+1 IDENTIFIER          AUTO3420
      448   01 00166    3260014F              LW,6     LOC+1             LOC+1(R)                            AUTO3430
      449   01 00167    32700050              LW,7     XPSD              LOC+1(O)                            AUTO3440
      450   01 00168    0F0001D6              XPSD,0   ERROR             TEST LOCATION+1                     AUTO3450
      451   01 00169    325002EA              LW,5     IAID              PICK UP INDIRECT ADDRESS IDENTIFIER AUTO3460
      452   01 0016A    326003D7              LW,6     IA                IA(R)                               AUTO3470
      453   01 0016B    327002C3              LW,7     INDA              IA(O)                               AUTO3480
      454   01 0016C    0F0001D6              XPSD,0   ERROR             TEST INDIRECT ADDRESS WORD          AUTO3500
      455   01 0016D    7250014E              LB,5     LOC
      456   01 0016E    21500063 A            CI,5     X'63'
      457   01 0016F    68300175              BE       CHKR1EBS          BR IF EBS INSTRUCTION.
      458   01 00170    325002EB              LW,5     IXID              PICK UP INDEX IDENTIFIER            AUTO3510
      459   01 00171    326003D8              LW,6     TEST+3            IX(R)                               AUTO3520
      460   01 00172    327003B8              LW,7     TABLE+4           IX(O)                               AUTO3530
      461   01 00173    0F0001D6              XPSD,0   ERROR             TEXT INDEX R1                       AUTO3540
      462   01 00174    6800017A              B        NOTR1EBS
      463   01 00175    325002EB     CHKR1EBS LW,5     IXID
      464   01 00176    326003D8              LW,6     TEST+3
      465   01 00177    327003D4              LW,7     TABLEND-1
      466   01 00178    4B6002D8              AND,6    BIT13X31          STRIP UNPREDICTABLE PORTION.
      467   01 00179    0F0001D6              XPSD,0   ERROR
      468         01 0017A           NOTR1EBS EQU      %
      469   01 0017A    485002DF              EOR,5    SIX               SET INDEX 7 IDENTIFIER              AUTO3550
      470   01 0017B    326003DC              LW,6     TEST+7            IX7(R)                              AUTO3560
      471   01 0017C    327002E0              LW,7     ONE               IX7(O)                              AUTO3570
      472   01 0017D    0F0001D6              XPSD,0   ERROR             TEST INDEX R7                       AUTO3580
      473   01 0017E    325002EC              LW,5     PSDWID            PICK UP PROGRAM STATUS IDENTIFIER   AUTO3590
      474   01 0017F    326003EE              LW,6     RETURN            PSW1(R)
      475   01 00180    327003B7              LW,7     TABLE+3           PSW1(O)                             AUTO3610
      476   01 00181    0F0001D6              XPSD,0   ERROR             TEST PSW1                           AUTO3620
      477   01 00182    65500183              BIR,5    %+1               INCREMENT PSDW INDENTIFIER          AUTO3630
      478   01 00183    326003EE              LW,6     RETURN
      479   01 00184    4B6002D7              AND,6    BIT15X31
      480   01 00185    2160014E              CI,6     LOC
      481   01 00186    6930018C              BNE      NOTRAPD
      482   01 00187    326003EF              LW,6     RETURN+1
      483   01 00188    21600045 A            CI,6     X'45'
      484   01 00189    6830018C              BE       NOTRAPD
      485   01 0018A    22700045 A            LI,7     X'45'
      486   01 0018B    0F0001D6              XPSD,0   ERROR             TEST PSW2                           AUTO3660
      487         01 0018C           NOTRAPD  EQU      %%
      488   01 0018C    325002ED              LW,5     REGID             PICK UP REGISTER IDENTIFIER         AUTO3680
      489   01 0018D    485002DE              EOR,5    CEE               SET REGISTER ADDRESS =C(12)         AUTO3690
      490   01 0018E    326003D9              LW,6     TEST+4            R(R)                                AUTO3700
      491   01 0018F    327003B9              LW,7     TABLE+5           R(O)                                AUTO3710
      492   01 00190    0F0001D6              XPSD,0   ERROR             TEST REGISTER                       AUTO3720
      493   01 00191    65500192              BIR,5    %+1               INCREMENT REGISTER IDENTIFIER       AUTO3730
      494   01 00192    326003DA              LW,6     TEST+5            RU1(R)                              AUTO3740
      495   01 00193    327003BD              LW,7     TABLE+9           RU1(O)                              AUTO3750
      496   01 00194    0F0001D6              XPSD,0   ERROR             TEST REGISTER U 1                   AUTO3760
      497   01 00195    20500001 A            AI,5     1
      498   01 00196    326003E9              LW,6     TEST+20
      499   01 00197    327003C1              LW,7     TABLE+13
      500   01 00198    0F0001D6              XPSD,0   ERROR
      501   01 00199    20500001 A            AI,5     1
      502   01 0019A    326003EA              LW,6     TEST+21
      503   01 0019B    327003C5              LW,7     TABLE+17
      504   01 0019C    0F0001D6              XPSD,0   ERROR
      505   01 0019D    325002D9              LW,5     REGAPNT
      506   01 0019E    326003EB              LW,6     TEST+22
      507   01 0019F    4B6003FF              AND,6    ABMASK            STRIP UNPREDICTABLE PORTION.
      508   01 001A0    327003D2              LW,7     TABLE+30
      509   01 001A1    0F0001D6              XPSD,0   ERROR
      510   01 001A2    20500001 A            AI,5     1
      511   01 001A3    326003EC              LW,6     TEST+23
      512   01 001A4    4B6003FF              AND,6    ABMASK            STRIP UNPREDICTABLE PORTION.
      513   01 001A5    327003D3              LW,7     TABLE+31
      514   01 001A6    0F0001D6              XPSD,0   ERROR
      515   01 001A7    325002EE              LW,5     MEMID             PICK UP MEMORY IDENTIFIER           AUTO3770
      516   01 001A8    326003DD              LW,6     MEMORY            MW(R)                               AUTO3780
      517   01 001A9    327003BB              LW,7     TABLE+7           MW(O)                               AUTO3790
      518   01 001AA    0F0001D6              XPSD,0   ERROR             TEST MEMORY WORD                    AUTO3800
      519   01 001AB    655001AC              BIR,5    %+1               INCREMENT MEMORY IDENTIFIER         AUTO3810
      520   01 001AC    326003DE              LW,6     MEMORY+1          MW+1(R)                             AUTO3820
      521   01 001AD    327003BF              LW,7     TABLE+11          MW+1(O)                             AUTO3830
      522   01 001AE    0F0001D6              XPSD,0   ERROR             TEST MEMORY WORD + 1                AUTO3840
      523   01 001AF    20500001 A            AI,5     1
      524   01 001B0    326003DF              LW,6     MEMORY+2
      525   01 001B1    327003C3              LW,7     TABLE+15
      526   01 001B2    0F0001D6              XPSD,0   ERROR
      527   01 001B3    20500001 A            AI,5     1
      528   01 001B4    326003E0              LW,6     MEMORY+3
      529   01 001B5    327003C7              LW,7     TABLE+19
      530   01 001B6    0F0001D6              XPSD,0   ERROR
      531   01 001B7    20500001 A            AI,5     1
      532   01 001B8    326003E1              LW,6     MEMORY+4
      533   01 001B9    327003C9              LW,7     TABLE+21
      534   01 001BA    0F0001D6              XPSD,0   ERROR
      535   01 001BB    20500001 A            AI,5     1
      536   01 001BC    326003E2              LW,6     MEMORY+5
      537   01 001BD    327003CB              LW,7     TABLE+23
      538   01 001BE    0F0001D6              XPSD,0   ERROR
      539   01 001BF    20500001 A            AI,5     1
      540   01 001C0    326003E3              LW,6     MEMORY+6
      541   01 001C1    327003CD              LW,7     TABLE+25
      542   01 001C2    0F0001D6              XPSD,0   ERROR
      543   01 001C3    20500001 A            AI,5     1
      544   01 001C4    326003E4              LW,6     MEMORY+7
      545   01 001C5    327003CF              LW,7     TABLE+27
      546   01 001C6    0F0001D6              XPSD,0   ERROR
      547   01 001C7    325003FD              LW,5     ZERO              SET IDENTIFIER FOR REPORT           AUTO3850
      548   01 001C8    326001D5              LW,6     ERRIND
      549   01 001C9    692001CC              BCS,2    %+3
      550   01 001CA    6C000000 A            RD,0     0                 READ SENSE SWITCHES                 AUTO3880
      551   01 001CB    692001E1              BCS,2    ZR     SS3=REPORT
      552   01 001CC    326003FD              LW,6     ZERO
      553   01 001CD    356001D5              STW,6    ERRIND
      554   01 001CE    6D000040 A   END      WD,0     X'40'
      555   01 001CF    322003F9              LW,2     ERRORS
      556   01 001D0    653001D1              BIR,3    %+1               INCREMENT MODULE COUNTER            AUTO3910
      557   01 001D1    6C000000 A            RD,0     0                 READ SENSE SWITCHES                 AUTO3920
      558   01 001D2    69C000F5              BCS,12   CYCLE             LOOP ON CURRENT TEST (SS1 OR 2)
      559   01 001D3    32100118              LW,1     FROM              RESTORE NEW LIST ADDRESS            AUTO3940
      560   01 001D4    0E0003F4              LPSD,0   MODULE            UPDATE POINTER                      AUTO3950
      561   01 001D5    00000000 A   ERRIND   DATA     0
      562                            *                                   DECIMAL-ERROR
      563                                     BOUND    8
      564   01 001D6    00000000 A   ERROR    PZE                                                            AUTO4610
      565   01 001D7    00000000 A            PZE                                                            AUTO4620
      566   01 001D8    000001DA              PZE,0    %+2                                                   AUTO4630
      567   01 001D9    00000000 A            PZE                                                            AUTO4640
      568   01 001DA    32800006 A            LW,8     6                 PICK UP RESULT                      AUTO4650
      569   01 001DB    48800007 A            EOR,8    7                 COMPARE WITH PREDERMINED RESULT     AUTO4660
      570   01 001DC    693001DE              BCS,3    TSTDVC            DIFF  # 0                           AUTO4670
      571   01 001DD    0E0001D6              LPSD,0   ERROR                                                 AUTO4680
      572   01 001DE    652001DF     TSTDVC   BIR,2    %+1
      573   01 001DF    352003F9              STW,2    ERRORS
      574   01 001E0    6D000041 A            WD,0     65                TURN ON AUDIO ALARM.
      575   01 001E1    02200000 A   ZR       LCI      0
      576   01 001E2    2B0002FC              STM,0    XREGX
      577   01 001E3    32B00299              LW,11    IOM
      578                            **                IOM HAS IO INTERRUPT BIT IF IO COMPATIBILITY IS IN USE
      579   01 001E4    6DB01500 A            WD,11    X'1500'           DISABLE IO INTERRUPT
      580   01 001E5    331001D5              MTW,1    ERRIND
      581   01 001E6    6E000000 A   TESTIO   AIO,0    0                 CLEAR INTERRUPT PENDING
      582   01 001E7    CDB002F9              TIO,11   *TYPE
      583   01 001E8    68C001F5              BCR,12   EDIT              GO IF IO ADDR RECOG AND SIO POSSIBLE
      584   01 001E9    684001E6              BCR,4    TESTIO            REPEAT TIO IF SIOP IS BUSY
      585   01 001EA    688001EC              BCR,8    %+2               SIO NOT CURRENTLY POSSIBLE
      586   01 001EB    680001EF              B        HLTEST            IO ADDRESS NOT RECOGNIZED
      587   01 001EC    4BB002DB              AND,11   6Q3               SAVE OPERATIONAL STATE BITS
      588   01 001ED    48B002DB              EOR,11   6Q3
      589   01 001EE    683001E6              BEZ      TESTIO            DEVICE BUSY
      590   01 001EF    6C000000 A   HLTEST   RD,0     0                 READ SENSE SWITCHES                 AUTO4760
      591   01 001F0    691001F2              BCS,1    NOHALT                                                AUTO4770
      592   01 001F1    2E000000 A            WAIT                       COMMON ERROR HALT                   AUTO4780
      593   01 001F2    32B00299     NOHALT   LW,11    IOM
      594   01 001F3    6DB01400 A            WD,11    X'1400'           ENABLE I/O INTERRUPT.
      595   01 001F4    0E0001D6              LPSD,0   ERROR
      596                                     PAGE                                                           AUTO4800
      597         01 001F5           EDIT     EQU      %
      598   01 001F5    225FFFF8 A            LI,5     -8
      599   01 001F6    22700E7C              LI,7     BA(IMAGE+1)
      600   01 001F7    226FFFFC A   TWORDS   LI,6     -4
      601   01 001F8    328A0305              LW,8     XREGX+9,5         LOAD WORD TO TRANSLATE.
      602   01 001F9    729C0009 A   TBYTES   LB,9     9,6               LOAD BYTE TO TRANSLATE.
      603   01 001FA    32B00009 A            LW,11    9                 *
      604   01 001FB    25B0007C A            SLS,11   -4                ALIGN HIGH ORDER DIGIT
      605   01 001FC    4B90030C              AND,9    0F                STRIP TO LOW ORDER DIGIT.
      606   01 001FD    22A00002 A            LI,10    2                 DIGIT LOOP COUNT.
      607   01 001FE    20B000B7 A   TDIGITS  AI,11    183               ADD 'C' ZONE.
      608   01 001FF    21B000C1 A            CI,11    193               TEST FOR INCOMPLETE ZONE.
      609   01 00200    68100202              BGE      %+2               BR IF COMPLETE ZONE.
      610   01 00201    20B00039 A            AI,11    57                INCREMENT TO 'F' ZONE.
      611   01 00202    75BE0000 A            STB,11   0,7               STORE TRANSLATED DIGIT.
      612   01 00203    20700001 A            AI,7     1                 INCREMENT OUTPUT ADDRESS.
      613   01 00204    32B00009 A            LW,11    9                 LOAD SECOND DIGIT.
      614   01 00205    64A001FE              BDR,10   TDIGITS           TRANSLATE SECOND DIGIT.
      615   01 00206    656001F9              BIR,6    TBYTES            TRANSLATE NEXT BYTE.
      616   01 00207    22A00040 A            LI,10    ' '               INSERT BLANKS.
      617   01 00208    75AE0000 A            STB,10   0,7               *
      618   01 00209    20700001 A            AI,7     1                 *
      619   01 0020A    75AE0000 A            STB,10   0,7               *
      620   01 0020B    20700001 A            AI,7     1
      621   01 0020C    655001F7              BIR,5    TWORDS            TRANSLATE NEXT WORD.
      622   01 0020D    325003FE              LW,5     BLNKM
      623   01 0020E    4B50039F              AND,5    IMAGE+1
      624   01 0020F    3550039F              STW,5    IMAGE+1
      625   01 00210    02200000 A            LCI      0                 RESTORE REGS.
      626   01 00211    2A0002FC              LM,0     XREGX             *
      627                                     PAGE                                                           AUTO5470
      628                            *                                  OUTPUT-LEVEL 3                       AUTO5480
      629   01 00212    32F002E7              LW,15    LINE              LINE COUNT (-51)                    AUTO5490
      630   01 00213    32E002E1              LW,14    FIRST             =-2 FIRST TIME                      AUTO5500
      631   01 00214    320002F9              LW,0     TYPE              TEST FOR OUTPUT DEVICE
      632   01 00215    6910022A              BLZ      LPO
      633   01 00216    65E0021A              BIR,14   SKIP6             FIRST TIME THRU                     AUTO5510
      634   01 00217    65F0021F              BIR,15   LINOUT            LINE COUNT NOT ZERO                 AUTO5520
      635   01 00218    32000315              LW,0     PSIXCR                                                AUTO5530
      636   01 00219    0F000240              XPSD,0   PRINT             OUTPUT 6 CAR. RET.                  AUTO5540
      637   01 0021A    32000316     SKIP6    LW,0     PTITLE                                                AUTO5550
      638   01 0021B    0F000240              XPSD,0   PRINT             NEW PAGE TITLE                      AUTO5560
      639   01 0021C    32000317              LW,0     PHEAD                                                 AUTO5570
      640   01 0021D    0F000240              XPSD,0   PRINT             NEW HEADING                         AUTO5580
      641   01 0021E    32F002E6              LW,15    NEG51             RESET LINE COUNT                    AUTO5590
      642   01 0021F    32000319     LINOUT   LW,0     PLONGL            SET UP DISPLAY PRINTOUT             AUTO5600
      643   01 00220    32A00005 A            LW,10    5                 PICK UP IDENTIFIER                  AUTO5610
      644   01 00221    69300223              BCS,3    IO                                                    AUTO5620
      645   01 00222    32000318              LW,0     PSHRTL            SET UP RECORD PRINTOUT              AUTO5630
      646   01 00223    0F000240     IO       XPSD,0   PRINT                                                 AUTO5640
      647   01 00224    35F002E7              STW,15   LINE              SAVE NEW LINE COUNT                 AUTO5650
      648   01 00225    35E002E1              STW,14   FIRST             SAVE NEW FIRST PASS INDICATOR       AUTO5660
      649   01 00226    6D000040 A            WD,0     X'40'             TURN OFF ALARM                      AUTO5670
      650   01 00227    0E000228              LPSD,0   GETOUT                                                AUTO5680
      651                                     BOUND 8                                                        AUTO5690
      652   01 00228    003001EF     GETOUT   PZE,3    HLTEST                                                AUTO5700
      653   01 00229    00000000 A            PZE                                                            AUTO5710
      654                                     PAGE
      655   01 0022A    CEB002F9     LPO      TDV,11   *TYPE
      656   01 0022B    68C0022E              BCR,12   %+3               GO IF IOP AND DEVICE ADDR RECOG
      657   01 0022C    6840022A              BCR,4    %-2               GO IF SIOP BUSY
      658   01 0022D    68000224              B        IO+1              IO OPERATION NOT POSSIBLE
      659   01 0022E    35B002F5              STW,11   TEMP
      660   01 0022F    4BB002F4              AND,11   MOTION            PAPER IS MOVING
      661   01 00230    6930022A              BNEZ     LPO               LOOP TILL PAPER STOPS
      662   01 00231    32B002F5              LW,11    TEMP
      663   01 00232    4BB002F6              AND,11   TOP               CHECK FOR TOP OF FORM
      664   01 00233    6930023C              BNEZ     LPTOP             OUTPUT TITLE AND HEADING
      665   01 00234    65E0023A              BIR,14   GOTOP             GO TO TOP OF FORM IF FIRST PASS
      666   01 00235    3200031C     LPMSG    LW,0     LPERR             ERROR MSG CDA
      667   01 00236    32A00005 A            LW,10    5                 PICK UP IDENTIFIER
      668   01 00237    69300239              BCS,3    %+2               REPORT
      669   01 00238    3200031D              LW,0     LPREPORT          REPORT MSG CDA
      670   01 00239    68000223              B        IO
      671   01 0023A    3200031A     GOTOP    LW,0     LPGOTOP           GO TO TOP OF FORM
      672   01 0023B    0F000240              XPSD,0   PRINT
      673   01 0023C    3200031B     LPTOP    LW,0     LPFORMAT          PRITN TITLE AND HEADING
      674   01 0023D    0F000240              XPSD,0   PRINT
      675   01 0023E    68000235              B        LPMSG
      676                                     PAGE
      677                            *                                  PRINT-LEVEL 4                        AUTO5720
      678                                     BOUND 8                                                        AUTO5730
      679   01 00240    00000000 A   PRINT    PZE                                                            AUTO5740
      680   01 00241    00000000 A            PZE                                                            AUTO5750
      681   01 00242    00000244              PZE,0    %+2                                                   AUTO5760
      682   01 00243    00000000 A            PZE                                                            AUTO5770
      683   01 00244    CCB002F9     BUSY     SIO,11   *TYPE             OUTPUT MSG
      684   01 00245    68C0024D              BCR,12   DONEMSG           SIO ACCEPTED
      685   01 00246    68400244              BCR,4    BUSY              SIOP BUSY. REPEAT SIO
      686   01 00247    68800249              BCR,8    %+2               GO IF SIO NOT ACCEPTED
      687   01 00248    68000255              B        EXITIO            IO ADDR NOT RECOGNIZED
      688   01 00249    4BB002DB              AND,11   6Q3               SAVE OPERATIONAL STATE BITS
      689   01 0024A    48B002DB              EOR,11   6Q3
      690   01 0024B    68300244              BEZ      BUSY              DEVICE BUSY. REPEAT SIO
      691   01 0024C    68000255              B        EXITIO            DEVICE NOT OPERATIONAL OR UNAVAIL
      692   01 0024D    CDB002F9     DONEMSG  TIO,11   *TYPE
      693   01 0024E    68C00255              BCR,12   EXITIO
      694   01 0024F    6840024D              BCR,4    DONEMSG           SIOP BUSY
      695   01 00250    68800252              BCR,8    %+2               ACCEPTABLE SIO NOT CURRENTLY POSS
      696   01 00251    68000255              B        EXITIO            IO ADDR NOT RECOGNIZED
      697   01 00252    4BB002DB              AND,11   6Q3               SAVE OPERATIONAL STATE BITS
      698   01 00253    48B002DB              EOR,11   6Q3
      699   01 00254    6830024D              BEZ      DONEMSG           DEVICE BUSY. REPEAT TIO
      700   01 00255    0E000240     EXITIO   LPSD,0   PRINT                                                 AUTO5860
      701                                     PAGE
      702   01 00256    2200014F     SETRPLY  LI,0     DA(HDCDW)
      703   01 00257    0F000240              XPSD,0   PRINT
      704   01 00258    22000150              LI,0     DA(HD2CDW)
      705   01 00259    0F000240              XPSD,0   PRINT
      706   01 0025A    22000151              LI,0     DA(HD3CDW)        PRINT REVISION NOTICE           *C01
      707   01 0025B    0F000240              XPSD,0   PRINT                                             *C01
      708   01 0025C    3220025E              LW,2     REPLAY
      709   01 0025D    35200026 A            STW,2    38
      710   01 0025E    680000EE     REPLAY   B        AUTO
      711                                     BOUND    8
      712   01 00260    02000000 A   DONE     NOP      0                 NO ACTION REQUIRED SKIP TO RTC
      713                            *THE FOLLOWING ROUTINE IMPLEMENTS THE COUNT PULSE INTERRUPTS AFTER X'20
      714                            *PASSES WITHOUT ERROR
      715   01 00261    313002F7     RTC      CW,3     MAXCNT
      716   01 00262    693000F4              BNE      CYCLE-1
      717   01 00263    21200000 A            CI,2     0
      718   01 00264    693000F4              BNE      CYCLE-1
      719   01 00265    320002F0              LW,0     CPINTM
      720   01 00266    4B000313              AND,0    MASK+4
      721   01 00267    6830026C              BCR,3    TIDEC
      722   01 00268    3200031E              LW,0     PRTCMSG
      723   01 00269    0F000240              XPSD,0   PRINT
      724   01 0026A    32000313              LW,0     MASK+4            BITS FOR COUNTER 1,2,3 AND 4
      725   01 0026B    350002EF              STW,0    CPINT             STORED INTO CPINT
      726   01 0026C    320002F0     TIDEC    LW,0     CPINTM
      727   01 0026D    691000F4              BCS,1    CYCLE-1
      728   01 0026E    220FFFFF A            LI,0     -1
      729   01 0026F    350002DA              STW,0    XDFLAG
      730   01 00270    3200031F              LW,0     PRTCDMSG
      731   01 00271    0F000240              XPSD,0   PRINT
      732   01 00272    680000F4     XRTC     B        CYCLE-1           RESUME WITH FIRST MODULE
      733   01 00273    000003DC     IAP      DATA     MEMORY-1
      734                                     PAGE
      735                            ** ENTER AT THIS POINT TO BEGIN IO COMPATIBILITY TEST
      736                            ** ENTER I/O DEVICE ADDRESS IN LOCATION X'10'.
      737                            **
      738   01 00274    68000275     SETINTR  B        %+1
      739   01 00275    22E00020 A            LI,14    32
      740   01 00276    35E00299              STW,14   IOM               PUT IO INTERRUPT BIT IN IOM
      741   01 00277    6DE01200 A            WD,14    X'1200'           ARM AND ENABLE IO INTERRUPT
      742   01 00278    6E000000 A            AIO,0    0
      743   01 00279    3200029A              LW,0     PIOCOMP
      744   01 0027A    CC000010 A            SIO,0    *16
      745   01 0027B    0E300290              LPSD,3   IOSET
      746                                     BOUND    8
      747   01 0027C    000000F4     IOINTR   DATA     CYCLE-1,0,AIO,0   ENTRY TO INTERRUPT ROUTINE
            01 0027D    00000000 A
            01 0027E    00000292
            01 0027F    00000000 A
      748   01 00280                 IOSAV    RES      16
      749   01 00290    000000F4     IOSET    DATA     CYCLE-1,0
            01 00291    00000000 A
      750   01 00292    2B000280     AIO      STM,0    IOSAV
      751   01 00293    6EF00000 A            AIO,15   0                 CLEAR INTERRUPT.
      752   01 00294    3200029A              LW,0     PIOCOMP           COMMAND DOUBLEWORD ADDRESS
      753   01 00295    CC000010 A            SIO,0    *16               X'10' HAS DEVICE ADDRESS
      754   01 00296    02200000 A            LCI      0
      755   01 00297    2A000280              LM,0     IOSAV             RESTORE REGISTERS.
      756   01 00298    0E30027C              LPSD,3   IOINTR            RETURN TO PROGRAM
      757   01 00299    00000000 A   IOM      DATA     0                 CHANGED TO X'20' FOR IO COMPAT.
      758   01 0029A    0000014E     PIOCOMP  P        IOCOMP            CDA
      759                                     PAGE
      760                                     BOUND    8
      761   01 0029C    05000AD8     IOCOMP   J        5,COMP
      762   01 0029D    50000031 A            GEN,4,28 5,49
      763   01 0029E    05000A90     HDCDW    GEN,8,24 5,BA(TLN1)
      764   01 0029F    00000021 A            DATA     33
      765   01 002A0    05000AB4     HD2CDW   GEN,8,24 5,BA(TLN2)
      766   01 002A1    00000024 A            DATA     36
      767   01 002A2    050044F4     HD3CDW   GEN,8,24 5,BA(REV)         CDW FOR REVISION MESSAGE        *C01
      768   01 002A3    0000015C A            DATA     (REVEND-REV)*4                                    *C01
      769   01 002A4    154040E2 A   TLN1     TEXT     '
  SIGMA 7 CPU DIAGNOSTIC-DECIMAL '
            01 002A5    C9C7D4C1 A
            01 002A6    40F740C3 A
            01 002A7    D7E440C4 A
            01 002A8    C9C1C7D5 A
            01 002A9    D6E2E3C9 A
            01 002AA    C360C4C5 A
            01 002AB    C3C9D4C1 A
            01 002AC    D3404040 A
      770   01 002AD    154040D7 A   TLN2     TEXT     '
  PROGRAM 704047-C02 MANUAL 900908C'            *C02
            01 002AE    D9D6C7D9 A
            01 002AF    C1D440F7 A
            01 002B0    F0F4F0F4 A
            01 002B1    F760C3F0 A
            01 002B2    F240D4C1 A
            01 002B3    D5E4C1D3 A
            01 002B4    40F9F0F0 A
            01 002B5    F9F0F8C3 A
      771   01 002B6    15404040 A   COMP     TEXT     '
            IO COMPATABILITY TEST IS IN PROGRESS'
            01 002B7    40404040 A
            01 002B8    40404040 A
            01 002B9    40C9D640 A
            01 002BA    C3D6D4D7 A
            01 002BB    C1E3C1C2 A
            01 002BC    C9D3C9E3 A
            01 002BD    E840E3C5 A
            01 002BE    E2E340C9 A
            01 002BF    E240C9D5 A
            01 002C0    40D7D9D6 A
            01 002C1    C7D9C5E2 A
            01 002C2    E2404040 A
      772                            *                                  CONSTANTS AND WORKING STORAGE        AUTO5880
      773   01 002C3    000003DD     INDA     PZE,0    MEMORY            INDIRECT ADDRESS                    AUTO5920
      774   01 002C4    00000150     LOC2AD   PZE,0    LOC+2                                                 AUTO5930
      775   01 002C5    0000014E     LOCADD   PZE,0    LOC                                                   AUTO5940
      776   01 002C6    000003DC     MEMAD    PZE,0    DA(MEMORY)
      777   01 002C7    354003B4     STORE    STW,4    TABLE
      778   01 002C8    32400412     LOAD     LW,4     LIST              LOAD TRANSFER VEHICAL WITH DATA MODUAUTO6200
      779   01 002C9    000001CE     RETEND   PZE,0    END               RETURN TO END                       AUTO6210
      780   01 002CA                 CMPDEC   RES      1
      781   01 002CB                 CDECOUT  RES      8
      782                                     PAGE                                                           AUTO6240
      783   01 002D3    FF3FFFFF A   LINKAD   DATA     X'FF3FFFFF'                                           AUTO6250
      784   01 002D4    FFF00000 A   COND     DATA     X'FFF00000'                                           AUTO6260
      785   01 002D5    FFFF0000 A   M1Q15    DATA     X'FFFF0000'                                           AUTO6270
      786   01 002D6    32400000 A   LW4      LW,4     0                 LOAD WORD 4 MASK.
      787   01 002D7    0001FFFF A   BIT15X31 DATA     X'1FFFF'          ADDRESS MASK.
      788   01 002D8    0007FFFF A   BIT13X31 DATA     X'7FFFF'
      789   01 002D9    6000000A A   REGAPNT  DATA     X'6000000A'
      790   01 002DA    00000000 A   XDFLAG   DATA     0
      791   01 002DB    70000000 A   6Q3      GEN,4,28 7,0               CHECKS I/O FOR BUSY OR MANUAL
      792   01 002DC    20000000 A   2Q3      DATA     X'20000000'                                           AUTO6290
      793   01 002DD    00400000 A   I9       DATA     X'400000'                                             AUTO6300
      794   01 002DE    0000000C A   CEE      DATA     12                                                    AUTO6310
      795   01 002DF    00000006 A   SIX      DATA     6                                                     AUTO6320
      796   01 002E0    00000001 A   ONE      DATA     1                                                     AUTO6330
      797   01 002E1    FFFFFFFE A   FIRST    DATA     -2                                                    AUTO6340
      798   01 002E2    FFFFFFFD A   NEG3     DATA     -3                                                    AUTO6350
      799   01 002E3    FFFFFFF8 A   NEG8     DATA     -8                                                    AUTO6360
      800   01 002E4    FFFFFFF4 A   NEG12    DATA     -12                                                   AUTO6370
      801   01 002E5    FFFFFFEC A   NEG20    DATA     -20
      802   01 002E6    FFFFFFCD A   NEG51    DATA     -51                                                   AUTO6380
      803   01 002E7    FFFFFFCD A   LINE     DATA     -51                                                   AUTO6390
      804   01 002E8    10000000 A   INSTID   I        1,0               INSTRUCTION                         AUTO6400
      805   01 002E9    2000014F     XPSDID   I        2,LOC+1           LOCATION+1                          AUTO6410
      806   01 002EA    30000000 A   IAID     I        3,0               INDIRECT ADDRESS                    AUTO6420
      807   01 002EB    40000001 A   IXID     I        4,1               INDEX                               AUTO6430
      808   01 002EC    50000001 A   PSDWID   I        5,1               PROGRAM STATUS DOUBLEWORD           AUTO6440
      809   01 002ED    60000000 A   REGID    I        6,0               REGISTERS                           AUTO6450
      810   01 002EE    700003DD     MEMID    I        7,MEMORY          MEMORY WORDS                        AUTO6460
      811                                     PAGE
      812                            *CPINT   BECOMES  80002000 AFTER X'20' ERROR FREE PASSES (SEE RTC)    *C
      813   01 002EF    00000000 A   CPINT    DATA     0
      814   01 002F0    80002000 A   CPINTM   DATA     X'80002000'                                         *C
      815   01 002F1    40404040 A   SPACE    TEXT     '            '    12 SPACES
            01 002F2    40404040 A
            01 002F3    40404040 A
      816   01 002F4    08000000 A   MOTION   DATA     X'8000000'
      817   01 002F5    00000000 A   TEMP     DATA     0
      818   01 002F6    10000000 A   TOP      DATA     X'10000000'
      819   01 002F7    00200000 A   MAXCNT   DATA     X'200000'
      820   01 002F8    F1000000 A   PGO      DATA     X'F1000000'
      821   01 002F9    00000001 A   TYPE     DATA     1                 OUTPUT MSG DEVICE ADDR
      822   01 002FA    00000810 A   PCPINT   DATA     X'810'                                                AUTO6480
      823   01 002FB    00000020 A   IOINT    DATA     X'20'                                                 AUTO6490
      824   01 002FC                 XREGX    RES      16
      825   01 0030C    0000000F A   0F       DATA     15
      826   01 0030D    00000400     ODDBALL  DATA     SPURTRAP
      827                                     PAGE                                                           AUTO6540
      828   01 0030E    FFFFFFFC A   NUMBER   DATA     -4                                                    AUTO6550
      829   01 0030F    FFFFFFFC A            DATA     -4                                                    AUTO6560
      830   01 00310    FFFFFFFE A            DATA     -2                                                    AUTO6570
      831   01 00311    FFFFFFFC A            DATA     -4                                                    AUTO6580
      832   01 00312    FFFFFFFE A            DATA     -2                                                    AUTO6590
      833         01 0030F           MASK     EQU      %-4
      834   01 00313    80002000 A            DATA     X'80002000'                                         *C
      835   01 00314    8000F000 A            DATA     X'8000F000'
      836                            *                                  COMMAND PAIRS                        AUTO7010
      837   01 00315    00000190     PSIXCR   P        SIXCR
      838   01 00316    00000191     PTITLE   P        TITLE
      839   01 00317    00000192     PHEAD    P        HEAD
      840   01 00318    00000193     PSHRTL   P        SHRTL
      841   01 00319    00000194     PLONGL   P        LONGL
      842   01 0031A    00000195     LPGOTOP  P        PGOTOP
      843   01 0031B    0000019A     LPFORMAT P        PFORMAT
      844   01 0031C    00000196     LPERR    P        PERR
      845   01 0031D    00000198     LPREPORT P        PREPORT
      846   01 0031E    0000019F     PRTCMSG  P        RTCMSG
      847   01 0031F    0000019E     PRTCDMSG P        CDMSG
      848                                     BOUND 8                                                        AUTO7070
      849   01 00320    05000DB0     SIXCR    J        5,TTL
      850   01 00321    08000006 A            DATA     X'8000006'                                            AUTO7090
      851   01 00322    05000DB0     TITLE    J        5,TTL
      852   01 00323    08000039 A            DATA     X'8000039'                                            AUTO7110
      853   01 00324    05000DEC     HEAD     J        5,HDG
      854   01 00325    08000050 A            DATA     X'8000050'                                            AUTO7130
      855   01 00326    05000E78     SHRTL    J        5,IMAGE
      856   01 00327    0800002C A            DATA     X'800002C'                                            AUTO7150
      857   01 00328    05000E78     LONGL    J        5,IMAGE
      858   01 00329    08000054 A            DATA     X'8000054'                                            AUTO7170
      859                                     PAGE
      860   01 0032A    03000BE0     PGOTOP   J        3,PGO
      861   01 0032B    08000001 A            GEN,8,24 8,1
      862   01 0032C    01000BC4     PERR     J        1,SPACE
      863   01 0032D    80000008 A            GEN,4,28 8,8               DC
      864   01 0032E    01000E7C              J        1,IMAGE+1
      865   01 0032F    08000050 A            DATA     X'8000050'
      866   01 00330    01000BC4     PREPORT  J        1,SPACE
      867   01 00331    80000008 A            GEN,4,28 8,8
      868   01 00332    01000E7C              J        1,IMAGE+1
      869   01 00333    08000028 A            DATA     X'8000028'
      870   01 00334    01000BC4     PFORMAT  J        1,SPACE
      871   01 00335    80000008 A            GEN,4,28 8,8
      872   01 00336    01000DB8              J        1,TTL+2
      873   01 00337    20000031 A            GEN,8,24 32,49             CC
      874   01 00338    01000BC4              J        1,SPACE
      875   01 00339    8000000B A            GEN,4,28 8,11
      876   01 0033A    01000DF0              J        1,HDG+1
      877   01 0033B    0800004C A            GEN,8,24 X'8',X'4C'
      878   01 0033C    05000D58     CDMSG    J        5,DECMSG
      879   01 0033D    00000055 A            DATA     85
      880   01 0033E    05000D00     RTCMSG   J        5,MSG
      881   01 0033F    00000055 A            DATA     85
      882   01 00340    15404040 A   MSG TEXT '
          REAL TIME CLOCKS IN USE. TO DISABLE, PCP '
            01 00341    40404040 A
            01 00342    404040D9 A
            01 00343    C5C1D340 A
            01 00344    E3C9D4C5 A
            01 00345    40C3D3D6 A
            01 00346    C3D2E240 A
            01 00347    C9D540E4 A
            01 00348    E2C54B40 A
            01 00349    E3D640C4 A
            01 0034A    C9E2C1C2 A
            01 0034B    D3C56B40 A
            01 0034C    D7C3D740 A
      883   01 0034D    C9D5E3C5 A       TEXT 'INTERRUPT, CLEAR BITS 16-19 IN R5'
            01 0034E    D9D9E4D7 A
            01 0034F    E36B40C3 A
            01 00350    D3C5C1D9 A
            01 00351    40C2C9E3 A
            01 00352    E240F1F6 A
            01 00353    60F1F940 A
            01 00354    C9D540D9 A
            01 00355    F5404040 A
      884         01 00356           DECMSG   EQU      %
      885   01 00356    15404040 A            TEXT     '
          COMPOUND DECIMAL TEST ACTIVATED. '
            01 00357    40404040 A
            01 00358    404040C3 A
            01 00359    D6D4D7D6 A
            01 0035A    E4D5C440 A
            01 0035B    C4C5C3C9 A
            01 0035C    D4C1D340 A
            01 0035D    E3C5E2E3 A
            01 0035E    40C1C3E3 A
            01 0035F    C9E5C1E3 A
            01 00360    C5C44B40 A
      886   01 00361    E3D640C4 A            TEXT     'TO DISABLE, INTERRUPT, SET BIT 0 ON IN R5'
            01 00362    C9E2C1C2 A
            01 00363    D3C56B40 A
            01 00364    C9D5E3C5 A
            01 00365    D9D9E4D7 A
            01 00366    E36B40E2 A
            01 00367    C5E340C2 A
            01 00368    C9E340F0 A
            01 00369    40D6D540 A
            01 0036A    C9D540D9 A
            01 0036B    F5404040 A
      887                                     PAGE                                                           AUTO7180
      888   01 0036C    15151515 A   TTL      DATA     X'15151515'
      889   01 0036D    15151540 A            DATA     X'15151540'
      890         00000007                    DO       7
      891   01 0036E    40404040 A            TEXT     '    '
      892                                     FIN
            01 0036F    40404040 A
            01 00370    40404040 A
            01 00371    40404040 A
            01 00372    40404040 A
            01 00373    40404040 A
            01 00374    40404040 A
      893   01 00375    C4C5C3C9 A            TEXT     'DECIMAL ERROR DISPLAY'
            01 00376    D4C1D340 A
            01 00377    C5D9D9D6 A
            01 00378    D940C4C9 A
            01 00379    E2D7D3C1 A
            01 0037A    E8404040 A
      894                                     PAGE
      895   01 0037B    15404040 A   HDG      TEXT     '
   LIST    '
            01 0037C    D3C9E2E3 A
            01 0037D    40404040 A
      896   01 0037E    C5D9D9D6 A            TEXT     'ERRORS    PASSES '
            01 0037F    D9E24040 A
            01 00380    4040D7C1 A
            01 00381    E2E2C5E2 A
            01 00382    40404040 A
      897   01 00383    40C9D5E2 A            TEXT     ' INST'
            01 00384    E3404040 A
      898   01 00385    C9C4C5D5 A            TEXT     'IDENTIFIER'
            01 00386    E3C9C6C9 A
            01 00387    C5D94040 A
      899   01 00388    4040C9E2 A            TEXT     '  IS '
            01 00389    40404040 A
      900   01 0038A    40E2C8D6 A            TEXT     ' SHOULD BE'
            01 0038B    E4D3C440 A
            01 0038C    C2C54040 A
      901   01 0038D    40C4C9C6 A            TEXT     ' DIFF'
            01 0038E    C6404040 A
      902   01 0038F                 FASTIN   RES      15
      903                                     PAGE
      904   01 0039E    40404015 A   IMAGE    TEXT     '   
'
      905   01 0039F    00000000 A            FILL     %+19
            01 003A0    00000000 A
            01 003A1    00000000 A
            01 003A2    00000000 A
            01 003A3    00000000 A
            01 003A4    00000000 A
            01 003A5    00000000 A
            01 003A6    00000000 A
            01 003A7    00000000 A
            01 003A8    00000000 A
            01 003A9    00000000 A
            01 003AA    00000000 A
            01 003AB    00000000 A
            01 003AC    00000000 A
            01 003AD    00000000 A
            01 003AE    00000000 A
            01 003AF    00000000 A
            01 003B0    00000000 A
            01 003B1    00000000 A
      906   01 003B2    40404040 A   BLANK    DATA     X'40404040'                                           AUTO7250
      907                                     PAGE
      908                                     BOUND 8                                                        AUTO7270
      909   01 003B4                 TABLE    RES      0
      910   01 003B4    00000000 A            DATA     0                 NEG COUNT OF WORDS IN CURRENT MODULE
      911   01 003B5    00000000 A            DATA     0                 INSTRUCTION BEING TESTED
      912   01 003B6    00000000 A            DATA     0                 PSW1 IN
      913   01 003B7    00000000 A            DATA     0                 PSW1 OUT
      914   01 003B8    00000000 A            DATA     0                 R12 IN.
      915   01 003B9    00000000 A            DATA     0                 R12 OUT.
      916   01 003BA    00000000 A            DATA     0                 MEMORY IN
      917   01 003BB    00000000 A            DATA     0                 MEMORY OUT
      918   01 003BC    00000000 A            DATA     0                 R13 IN.
      919   01 003BD    00000000 A            DATA     0                 R13 OUT.
      920   01 003BE    00000000 A            DATA     0                 MEMORY+1 IN
      921   01 003BF    00000000 A            DATA     0                 MEMORY+1 OUT
      922   01 003C0    00000000 A            DATA     0                 R14 IN
      923   01 003C1    00000000 A            DATA     0                 R14 OUT
      924   01 003C2    00000000 A            DATA     0                 M+2 IN
      925   01 003C3    00000000 A            DATA     0                 M+2 OUT
      926   01 003C4    00000000 A            DATA     0                 R15 IN
      927   01 003C5    00000000 A            DATA     0                 R15 OUT
      928   01 003C6    00000000 A            DATA     0                 M+3 IN
      929   01 003C7    00000000 A            DATA     0                 M+3 OUT
      930   01 003C8    00000000 A            DATA     0                 M+4 IN
      931   01 003C9    00000000 A            DATA     0                 M+4 OUT
      932   01 003CA    00000000 A            DATA     0                 M+5 IN
      933   01 003CB    00000000 A            DATA     0                 M+5 OUT
      934   01 003CC    00000000 A            DATA     0                 M+6 IN
      935   01 003CD    00000000 A            DATA     0                 M+6 OUT
      936   01 003CE    00000000 A            DATA     0                 M+7 IN
      937   01 003CF    00000000 A            DATA     0                 M+7 OUT
      938   01 003D0    00000000 A            DATA     0                 R10 IN.
      939   01 003D1    00000000 A            DATA     0                 R11 IN.
      940   01 003D2    00000000 A            DATA     0                 R10 OUT.
      941   01 003D3    00000000 A            DATA     0                 R11 OUT.
      942   01 003D4    00000000 A            DATA     0                 R1 OUT FOR EBS.
      943         01 003D5           TABLEND  EQU      %
      944   01 003D5                 TEST     RES      0
      945   01 003D5    00000000 A            FILL     %+24
            01 003D6    00000000 A
            01 003D7    00000000 A
            01 003D8    00000000 A
            01 003D9    00000000 A
            01 003DA    00000000 A
            01 003DB    00000000 A
            01 003DC    00000000 A
            01 003DD    00000000 A
            01 003DE    00000000 A
            01 003DF    00000000 A
            01 003E0    00000000 A
            01 003E1    00000000 A
            01 003E2    00000000 A
            01 003E3    00000000 A
            01 003E4    00000000 A
            01 003E5    00000000 A
            01 003E6    00000000 A
            01 003E7    00000000 A
            01 003E8    00000000 A
            01 003E9    00000000 A
            01 003EA    00000000 A
            01 003EB    00000000 A
            01 003EC    00000000 A
      946                                     PAGE
      947                                     BOUND    8
      948   01 003EE    00000000 A   RETURN   PZE                                                            AUTO7300
      949   01 003EF    00000000 A            PZE                                                            AUTO7310
      950   01 003F0    00000150              PZE,0    LOC+2                                                 AUTO7320
      951   01 003F1    00000000 A            PZE                                                            AUTO7330
      952   01 003F2    00000000 A            PZE                                                            AUTO7370
      953                                     BOUND    8
      954   01 003F4    000000F5     REPEAT   PZE,0    CYCLE                                                 AUTO7380
      955   01 003F5    00000000 A            PZE                                                            AUTO7390
      956   01 003F6    00000000 A   PSW1     PZE                                                            AUTO7400
      957   01 003F7    00000000 A   PSW2     PZE                                                            AUTO7410
      958   01 003F8    00000000 A   COUNT    PZE                                                            AUTO7440
      959   01 003F9    00000000 A   ERRORS   PZE                                                            AUTO7450
      960   01 003FA    00000000 A   PASSES   PZE                                                            AUTO7460
      961   01 003FB    00000000 A   WKO      PZE                                                            AUTO7470
      962   01 003FC    00000000 A   WORD     PZE                                                            AUTO7480
      963   01 003FD    00000000 A   ZERO     DATA     0
      964         01 0030E           NEG4     EQU      NUMBER                                                AUTO7510
      965         01 00310           NEG2     EQU      NUMBER+2                                              AUTO7520
      966         01 00050           XPSD     EQU      BRANCH                                                AUTO7540
      967         00000000           C        EQU      0                                                     AUTO7550
      968         00000000           I        EQU      0                                                     AUTO7570
      969         00000000           Y        EQU      0                                                     AUTO7580
      970         01 003D6           INST     EQU      TEST+1                                                AUTO7590
      971         01 003D7           IA       EQU      TEST+2                                                AUTO7600
      972         01 003DD           MEMORY   EQU      TEST+8                                                AUTO7610
      973         01 003FD           CNT3Z    EQU      ZERO                                                  AUTO7620
      974         01 003FD           CNT4Z    EQU      ZERO                                                  AUTO7630
      975         01 003F4           MODULE   EQU      REPEAT                                                AUTO7640
      976         01 003F4           PASS     EQU      REPEAT                                                AUTO7650
      977         01 003DD           BAM      EQU      BA(MEMORY)
      978   01 003FE    404040F1 A   BLNKM    DATA     '   1'
      979   01 003FF    FF07FFFF A   ABMASK   DATA     X'FF07FFFF'
      980         20202020           DS       EQU      X'20202020'
      981   01 00400    0F000402     SPURTRAP XPSD,0   SPUR
      982                                     BOUND    8
      983   01 00402    00000000 A   SPUR     PZE      0
      984   01 00403    00000000 A            PZE      0
      985   01 00404    00000406              PZE,0    %+2
      986   01 00405    07000000 A            DATA     X'07000000'       TURN ON INTR INH BITS
      987   01 00406    325002EF              LW,5     CPINT
      988   01 00407    6D501300 A            WD,5     X'1300'           ARM AND DISABLE COUNT PULSE INTRS.
      989   01 00408    323003FA              LW,3     PASSES            RESET PASSES TO LAST SETTING
      990   01 00409    322003F9              LW,2     ERRORS            RESET ERRORS TO LAST SETTING
      991   01 0040A    3210010F              LW,1     SAVE              MODULE POINTER
      992   01 0040B    320002F9              LW,0     TYPE              I/O ADDR
      993   01 0040C    2E000000 A            WAIT,0   0                 ERROR HALT
      994                            *                                   DETERMINE SPURIOUS TRAP LOCATION.
      995   01 0040D    4B500314              AND,5    MASK+5
      996   01 0040E    355002EF              STW,5    CPINT             SELECTED INTERRUPTS
      997   01 0040F    350002F9              STW,0    TYPE              SELECTED  I/O ADDR
      998   01 00410    355002F0              STW,5    CPINTM            MASK FOR SELECTED INTERRUPTS
      999   01 00411    0E3003F4              LPSD,3   REPEAT            RELEASE PANEL INTERRUPT-REPEAT TEST
     1000                                     BOUND    8
     1001                                     PAGE
     1002         01 0014A           DFSW     EQU      LOC-4
     1003         01 0014D           DFRET    EQU      LOC-1
     1004         01 00412           LIST     EQU      %
     1005   01 00412    FFFFFFEC A   DL01     DATA     -20               DL - FULL WORD, ALT BITS
     1006   01 00413    7E0003DD              DL,0     MEMORY
     1007   01 00414    0330014A              K        0,3,3,DFSW
     1008   01 00415    23300150              K        2,3,3,LOC+2
     1009   01 00416    00000000 A            DATA     X'0'              R12 IN
     1010   01 00417    96969696 A            DATA     X'96969696'       R12 OUT
     1011   01 00418    96969696 A            DATA     X'96969696'       MEMORY+0 IN
     1012   01 00419    96969696 A            DATA     X'96969696'       MEMORY+0 OUT
     1013   01 0041A    00000000 A            DATA     X'0'              R13 IN
     1014   01 0041B    69696969 A            DATA     X'69696969'       R13 OUT
     1015   01 0041C    69696969 A            DATA     X'69696969'       MEMORY+1 IN
     1016   01 0041D    69696969 A            DATA     X'69696969'       MEMORY+1 OUT
     1017   01 0041E    00000000 A            DATA     X'0'              R14 IN
     1018   01 0041F    77777777 A            DATA     X'77777777'       R14 OUT
     1019   01 00420    77777777 A            DATA     X'77777777'       MEMORY+2 IN
     1020   01 00421    77777777 A            DATA     X'77777777'       MEMORY+2 OUT
     1021   01 00422    00000000 A            DATA     X'0'              R15 IN
     1022   01 00423    5555555C A            DATA     X'5555555C'       R15 OUT
     1023   01 00424    5555555A A            DATA     X'5555555A'       MEMORY+3 IN
     1024   01 00425    5555555A A            DATA     X'5555555A'       MEMORY+3 OUT
     1025                                     PAGE
     1026   01 00426    FFFFFFEC A   DL02   DATA    -20                 DL - FULL WORD, SINGLE BITS
     1027   01 00427    7E0003DD            DL,0    MEMORY
     1028   01 00428    0330014A            K       0,3,3,DFSW
     1029   01 00429    23300150            K       2,3,3,LOC+2
     1030   01 0042A    00000000 A          DATA    X'0'
     1031   01 0042B    88888888 A          DATA    X'88888888'
     1032   01 0042C    88888888 A          DATA    X'88888888'
     1033   01 0042D    88888888 A          DATA    X'88888888'
     1034   01 0042E    00000000 A          DATA    X'0'
     1035   01 0042F    44444444 A          DATA    X'44444444'
     1036   01 00430    44444444 A          DATA    X'44444444'
     1037   01 00431    44444444 A          DATA    X'44444444'
     1038   01 00432    00000000 A          DATA    X'0'
     1039   01 00433    22222222 A          DATA    X'22222222'
     1040   01 00434    22222222 A          DATA    X'22222222'
     1041   01 00435    22222222 A          DATA    X'22222222'
     1042   01 00436    00000000 A          DATA    X'0'
     1043   01 00437    1111111C A          DATA    X'1111111C'
     1044   01 00438    1111111C A          DATA    X'1111111C'
     1045   01 00439    1111111C A          DATA    X'1111111C'
     1046                                     PAGE
     1047   01 0043A    FFFFFFEC A   DL03   DATA    -20                 DL - L=1
     1048   01 0043B    7E1003DD            DL,1    MEMORY
     1049   01 0043C    0330014A            K       0,3,3,DFSW
     1050   01 0043D    13300150            K       1,3,3,LOC+2
     1051   01 0043E    FFFFFFFF A          DATA    X'FFFFFFFF'
     1052   01 0043F    00000000 A          DATA    X'0'
     1053   01 00440    1BABCDEF A          DATA    X'1BABCDEF'
     1054   01 00441    1BABCDEF A          DATA    X'1BABCDEF'
     1055   01 00442    FFFFFFFF A          DATA    X'FFFFFFFF'
     1056   01 00443    00000000 A          DATA    X'0'
     1057   01 00444    96969696 A          DATA    X'96969696'
     1058   01 00445    96969696 A          DATA    X'96969696'
     1059   01 00446    FFFFFFFF A          DATA    X'FFFFFFFF'
     1060   01 00447    00000000 A          DATA    X'0'
     1061   01 00448    96969696 A          DATA    X'96969696'
     1062   01 00449    96969696 A          DATA    X'96969696'
     1063   01 0044A    FFFFFFFF A          DATA    X'FFFFFFFF'
     1064   01 0044B    0000001D A          DATA    X'1D'
     1065   01 0044C    96969696 A          DATA    X'96969696'
     1066   01 0044D    96969696 A          DATA    X'96969696'
     1067                                     PAGE
     1068   01 0044E    FFFFFFEC A   DL04   DATA    -20                 DL - ILLEGAL DIGIT - TRAP
     1069   01 0044F    7E0003DD            DL,0    MEMORY
     1070   01 00450    0330014A            K       0,3,3,DFSW
     1071   01 00451    8330014E            K       8,3,3,DFRET+1
     1072   01 00452    00000000 A          DATA    X'0'
     1073   01 00453    00000000 A          DATA    X'0'
     1074   01 00454    96969696 A          DATA    X'96969696'
     1075   01 00455    96969696 A          DATA    X'96969696'
     1076   01 00456    00000000 A          DATA    X'0'
     1077   01 00457    00000000 A          DATA    X'0'
     1078   01 00458    96969696 A          DATA    X'96969696'
     1079   01 00459    96969696 A          DATA    X'96969696'
     1080   01 0045A    00000000 A          DATA    X'0'
     1081   01 0045B    00000000 A          DATA    X'0'
     1082   01 0045C    96969696 A          DATA    X'96969696'
     1083   01 0045D    96969696 A          DATA    X'96969696'
     1084   01 0045E    00000000 A          DATA    X'0'
     1085   01 0045F    00000000 A          DATA    X'0'
     1086   01 00460    96969A5A A          DATA    X'96969A5A'
     1087   01 00461    96969A5A A          DATA    X'96969A5A'
     1088                                     PAGE
     1089   01 00462    FFFFFFEC A   DL05   DATA    -20                 DL - ILLEGAL SIGN - TRAP
     1090   01 00463    7E0003DD            DL,0    MEMORY
     1091   01 00464    0330014A            K       0,3,3,DFSW
     1092   01 00465    8330014E            K       8,3,3,DFRET+1
     1093   01 00466    00000000 A          DATA    X'0'
     1094   01 00467    00000000 A          DATA    X'0'
     1095   01 00468    77777777 A          DATA    X'77777777'
     1096   01 00469    77777777 A          DATA    X'77777777'
     1097   01 0046A    00000000 A          DATA    X'0'
     1098   01 0046B    00000000 A          DATA    X'0'
     1099   01 0046C    77777777 A          DATA    X'77777777'
     1100   01 0046D    77777777 A          DATA    X'77777777'
     1101   01 0046E    00000000 A          DATA    X'0'
     1102   01 0046F    00000000 A          DATA    X'0'
     1103   01 00470    77777777 A          DATA    X'77777777'
     1104   01 00471    77777777 A          DATA    X'77777777'
     1105   01 00472    00000000 A          DATA    X'0'
     1106   01 00473    00000000 A          DATA    X'0'
     1107   01 00474    77777777 A          DATA    X'77777777'
     1108   01 00475    77777777 A          DATA    X'77777777'
     1109                                     PAGE
     1110   01 00476    FFFFFFEC A   DST01  DATA    -20                 DST - FULL WORD, ALT BITS
     1111   01 00477    7F0003DD            DST,0   MEMORY
     1112   01 00478    0330014A            K       0,3,3,DFSW
     1113   01 00479    03300150            K       0,3,3,LOC+2
     1114   01 0047A    96969696 A          DATA    X'96969696'
     1115   01 0047B    96969696 A          DATA    X'96969696'
     1116   01 0047C    00000000 A          DATA    X'0'
     1117   01 0047D    96969696 A          DATA    X'96969696'
     1118   01 0047E    69696969 A          DATA    X'69696969'
     1119   01 0047F    69696969 A          DATA    X'69696969'
     1120   01 00480    00000000 A          DATA    X'0'
     1121   01 00481    69696969 A          DATA    X'69696969'
     1122   01 00482    77777777 A          DATA    X'77777777'
     1123   01 00483    77777777 A          DATA    X'77777777'
     1124   01 00484    00000000 A          DATA    X'0'
     1125   01 00485    77777777 A          DATA    X'77777777'
     1126   01 00486    5555555E A          DATA    X'5555555E'
     1127   01 00487    5555555E A          DATA    X'5555555E'
     1128   01 00488    00000000 A          DATA    X'0'
     1129   01 00489    5555555C A          DATA    X'5555555C'
     1130                                     PAGE
     1131   01 0048A    FFFFFFEC A   DST02  DATA    -20                 DST - FULL WORD,SINGLE BITS
     1132   01 0048B    7F0003DD            DST,0   MEMORY
     1133   01 0048C    0330014A            K       0,3,3,DFSW
     1134   01 0048D    03300150            K       0,3,3,LOC+2
     1135   01 0048E    88888888 A          DATA    X'88888888'
     1136   01 0048F    88888888 A          DATA    X'88888888'
     1137   01 00490    00000000 A          DATA    X'0'
     1138   01 00491    88888888 A          DATA    X'88888888'
     1139   01 00492    44444444 A          DATA    X'44444444'
     1140   01 00493    44444444 A          DATA    X'44444444'
     1141   01 00494    00000000 A          DATA    X'0'
     1142   01 00495    44444444 A          DATA    X'44444444'
     1143   01 00496    22222222 A          DATA    X'22222222'
     1144   01 00497    22222222 A          DATA    X'22222222'
     1145   01 00498    00000000 A          DATA    X'0'
     1146   01 00499    22222222 A          DATA    X'22222222'
     1147   01 0049A    1111111F A          DATA    X'1111111F'
     1148   01 0049B    1111111F A          DATA    X'1111111F'
     1149   01 0049C    00000000 A          DATA    X'0'
     1150   01 0049D    1111111C A          DATA    X'1111111C'
     1151                                     PAGE
     1152   01 0049E    FFFFFFEC A   DST03  DATA    -20                 DST - L=1
     1153   01 0049F    7F1003DD            DST,1   MEMORY
     1154   01 004A0    0330014A            K       0,3,3,DFSW
     1155   01 004A1    03300150            K       0,3,3,LOC+2
     1156   01 004A2    00000000 A          DATA    X'0'
     1157   01 004A3    00000000 A          DATA    X'0'
     1158   01 004A4    FFFFFFFF A          DATA    X'FFFFFFFF'
     1159   01 004A5    1DFFFFFF A          DATA    X'1DFFFFFF'
     1160   01 004A6    00000000 A          DATA    X'0'
     1161   01 004A7    00000000 A          DATA    X'0'
     1162   01 004A8    FFFFFFFF A          DATA    X'FFFFFFFF'
     1163   01 004A9    FFFFFFFF A          DATA    X'FFFFFFFF'
     1164   01 004AA    00000000 A          DATA    X'0'
     1165   01 004AB    00000000 A          DATA    X'0'
     1166   01 004AC    FFFFFFFF A          DATA    X'FFFFFFFF'
     1167   01 004AD    FFFFFFFF A          DATA    X'FFFFFFFF'
     1168   01 004AE    0000001D A          DATA    X'1D'
     1169   01 004AF    0000001D A          DATA    X'1D'
     1170   01 004B0    FFFFFFFF A          DATA    X'FFFFFFFF'
     1171   01 004B1    FFFFFFFF A          DATA    X'FFFFFFFF'
     1172                                     PAGE
     1173   01 004B2    FFFFFFEC A   DST04  DATA    -20                 DST - ILLEGAL DIGIT - NO TRAP
     1174   01 004B3    7F0003DD            DST,0   MEMORY
     1175   01 004B4    0310014A            K       0,3,1,DFSW
     1176   01 004B5    83100150            K       8,3,1,LOC+2
     1177   01 004B6    96969696 A          DATA    X'96969696'
     1178   01 004B7    96969696 A          DATA    X'96969696'
     1179   01 004B8    00000000 A          DATA    X'0'
     1180   01 004B9    00000000 A          DATA    X'0'
     1181   01 004BA    96969696 A          DATA    X'96969696'
     1182   01 004BB    96969696 A          DATA    X'96969696'
     1183   01 004BC    00000000 A          DATA    X'0'
     1184   01 004BD    00000000 A          DATA    X'0'
     1185   01 004BE    96969696 A          DATA    X'96969696'
     1186   01 004BF    96969696 A          DATA    X'96969696'
     1187   01 004C0    00000000 A          DATA    X'0'
     1188   01 004C1    00000000 A          DATA    X'0'
     1189   01 004C2    969696BD A          DATA    X'969696BD'
     1190   01 004C3    969696BD A          DATA    X'969696BD'
     1191   01 004C4    00000000 A          DATA    X'0'
     1192   01 004C5    00000000 A          DATA    X'0'
     1193                                     PAGE
     1194   01 004C6    FFFFFFEC A   DST05  DATA    -20                 DST - ILLEGAL SIGN - NO TRAP
     1195   01 004C7    7F0003DD            DST,0   MEMORY
     1196   01 004C8    0310014A            K       0,3,1,DFSW
     1197   01 004C9    83100150            K       8,3,1,LOC+2
     1198   01 004CA    77777777 A          DATA    X'77777777'
     1199   01 004CB    77777777 A          DATA    X'77777777'
     1200   01 004CC    00000000 A          DATA    X'0'
     1201   01 004CD    00000000 A          DATA    X'0'
     1202   01 004CE    77777777 A          DATA    X'77777777'
     1203   01 004CF    77777777 A          DATA    X'77777777'
     1204   01 004D0    00000000 A          DATA    X'0'
     1205   01 004D1    00000000 A          DATA    X'0'
     1206   01 004D2    77777777 A          DATA    X'77777777'
     1207   01 004D3    77777777 A          DATA    X'77777777'
     1208   01 004D4    00000000 A          DATA    X'0'
     1209   01 004D5    00000000 A          DATA    X'0'
     1210   01 004D6    77777777 A          DATA    X'77777777'
     1211   01 004D7    77777777 A          DATA    X'77777777'
     1212   01 004D8    00000000 A          DATA    X'0'
     1213   01 004D9    00000000 A          DATA    X'0'
     1214                                     PAGE
     1215   01 004DA    FFFFFFEC A   DST06  DATA    -20                 DST - ALL SIG INFO NOT STORED
     1216   01 004DB    7F1003DD            DST,1   MEMORY
     1217   01 004DC    0330014A            K       0,3,3,DFSW
     1218   01 004DD    43300150            K       4,3,3,LOC+2
     1219   01 004DE    00000000 A          DATA    X'0'
     1220   01 004DF    00000000 A          DATA    X'0'
     1221   01 004E0    00000000 A          DATA    X'0'
     1222   01 004E1    7C000000 A          DATA    X'7C000000'
     1223   01 004E2    00000000 A          DATA    X'0'
     1224   01 004E3    00000000 A          DATA    X'0'
     1225   01 004E4    00000000 A          DATA    X'0'
     1226   01 004E5    00000000 A          DATA    X'0'
     1227   01 004E6    00000000 A          DATA    X'0'
     1228   01 004E7    00000000 A          DATA    X'0'
     1229   01 004E8    00000000 A          DATA    X'0'
     1230   01 004E9    00000000 A          DATA    X'0'
     1231   01 004EA    0000077A A          DATA    X'77A'
     1232   01 004EB    0000077A A          DATA    X'77A'
     1233   01 004EC    00000000 A          DATA    X'0'
     1234   01 004ED    00000000 A          DATA    X'0'
     1235                                     PAGE
     1236   01 004EE    FFFFFFEC A   DST07    DATA     -20               DST - L=2
     1237   01 004EF    7F2003DD              DST,2    MEMORY
     1238   01 004F0    0330014A              K        0,3,3,DFSW
     1239   01 004F1    03300150              K        0,3,3,LOC+2
     1240   01 004F2    00000000 A            DATA     X'0'
     1241   01 004F3    00000000 A            DATA     X'0'
     1242   01 004F4    FFFFFFFF A            DATA     X'FFFFFFFF'
     1243   01 004F5    987DFFFF A            DATA     X'987DFFFF'
     1244   01 004F6    00000000 A            DATA     X'0'
     1245   01 004F7    00000000 A            DATA     X'0'
     1246   01 004F8    FFFFFFFF A            DATA     X'FFFFFFFF'
     1247   01 004F9    FFFFFFFF A            DATA     X'FFFFFFFF'
     1248   01 004FA    00000000 A            DATA     X'0'
     1249   01 004FB    00000000 A            DATA     X'0'
     1250   01 004FC    FFFFFFFF A            DATA     X'FFFFFFFF'
     1251   01 004FD    FFFFFFFF A            DATA     X'FFFFFFFF'
     1252   01 004FE    0000987D A            DATA     X'987D'
     1253   01 004FF    0000987D A            DATA     X'987D'
     1254   01 00500    FFFFFFFF A            DATA     X'FFFFFFFF'
     1255   01 00501    FFFFFFFF A            DATA     X'FFFFFFFF'
     1256                                     PAGE
     1257   01 00502    FFFFFFEC A   DA01     DATA     -20               DA - CHECK ADDER-SUBTRACTER
     1258   01 00503    790003DD              DA,0     MEMORY
     1259   01 00504    0330014A              K        0,3,3,DFSW
     1260   01 00505    23300150              K        2,3,3,LOC+2
     1261   01 00506    06530869 A            DATA     X'06530869'
     1262   01 00507    29048908 A            DATA     X'29048908'
     1263   01 00508    22518038 A            DATA     X'22518038'
     1264   01 00509    22518038 A            DATA     X'22518038'
     1265   01 0050A    98607909 A            DATA     X'98607909'
     1266   01 0050B    97224856 A            DATA     X'97224856'
     1267   01 0050C    98616947 A            DATA     X'98616947'
     1268   01 0050D    98616947 A            DATA     X'98616947'
     1269   01 0050E    07418080 A            DATA     X'07418080'
     1270   01 0050F    14836881 A            DATA     X'14836881'
     1271   01 00510    07418800 A            DATA     X'07418800'
     1272   01 00511    07418800 A            DATA     X'07418800'
     1273   01 00512    9107660A A            DATA     X'9107660A'
     1274   01 00513    6117120C A            DATA     X'6117120C'
     1275   01 00514    7009460A A            DATA     X'7009460A'
     1276   01 00515    7009460A A            DATA     X'7009460A'
     1277                                     PAGE
     1278   01 00516    FFFFFFEC A   DA02     DATA     -20               DA - CHECK ADDER-SUBTRACTER
     1279   01 00517    790003DD              DA,0     MEMORY
     1280   01 00518    0330014A              K        0,3,3,DFSW
     1281   01 00519    13300150              K        1,3,3,LOC+2
     1282   01 0051A    28787178 A            DATA     X'28787178'
     1283   01 0051B    47276247 A            DATA     X'47276247'
     1284   01 0051C    18489068 A            DATA     X'18489068'
     1285   01 0051D    18489068 A            DATA     X'18489068'
     1286   01 0051E    85484150 A            DATA     X'85484150'
     1287   01 0051F    66569881 A            DATA     X'66569881'
     1288   01 00520    81085730 A            DATA     X'81085730'
     1289   01 00521    81085730 A            DATA     X'81085730'
     1290   01 00522    70706004 A            DATA     X'70706004'
     1291   01 00523    31422509 A            DATA     X'31422509'
     1292   01 00524    60716504 A            DATA     X'60716504'
     1293   01 00525    60716504 A            DATA     X'60716504'
     1294   01 00526    7818980D A            DATA     X'7818980D'
     1295   01 00527    4627960D A            DATA     X'4627960D'
     1296   01 00528    6808980D A            DATA     X'6808980D'
     1297   01 00529    6808980D A            DATA     X'6808980D'
     1298                                     PAGE
     1299   01 0052A    FFFFFFEC A   DA03     DATA     -20               DA - CHECK ADDER-SUBTRACTER
     1300   01 0052B    79C003DD              DA,12    MEMORY
     1301   01 0052C    0330014A              K        0,3,3,DFSW
     1302   01 0052D    23300150              K        2,3,3,LOC+2
     1303   01 0052E    00000000 A            DATA     X'0'
     1304   01 0052F    00000000 A            DATA     X'0'
     1305   01 00530    00000980 A            DATA     X'00000980'
     1306   01 00531    00000980 A            DATA     X'00000980'
     1307   01 00532    00000680 A            DATA     X'00000680'
     1308   01 00533    00001660 A            DATA     X'00001660'
     1309   01 00534    00820000 A            DATA     X'00820000'
     1310   01 00535    00820000 A            DATA     X'00820000'
     1311   01 00536    03800200 A            DATA     X'03800200'
     1312   01 00537    04620200 A            DATA     X'04620200'
     1313   01 00538    0069110C A            DATA     X'0069110C'
     1314   01 00539    0069110C A            DATA     X'0069110C'
     1315   01 0053A    0069310C A            DATA     X'0069310C'
     1316   01 0053B    0138420C A            DATA     X'0138420C'
     1317   01 0053C    00000000 A            DATA     X'0'
     1318   01 0053D    00000000 A            DATA     X'0'
     1319                                     PAGE
     1320   01 0053E    FFFFFFEC A   DA04     DATA     -20               DA - ADD ZEROS
     1321   01 0053F    790003DD              DA,0     MEMORY
     1322   01 00540    F330014A              K        15,3,3,DFSW
     1323   01 00541    03300150              K        0,3,3,LOC+2
     1324   01 00542    00000000 A            DATA     X'0'
     1325   01 00543    00000000 A            DATA     X'0'
     1326   01 00544    00000000 A            DATA     X'0'
     1327   01 00545    00000000 A            DATA     X'0'
     1328   01 00546    00000000 A            DATA     X'0'
     1329   01 00547    00000000 A            DATA     X'0'
     1330   01 00548    00000000 A            DATA     X'0'
     1331   01 00549    00000000 A            DATA     X'0'
     1332   01 0054A    00000000 A            DATA     X'0'
     1333   01 0054B    00000000 A            DATA     X'0'
     1334   01 0054C    00000000 A            DATA     X'0'
     1335   01 0054D    00000000 A            DATA     X'0'
     1336   01 0054E    0000000C A            DATA     X'C'
     1337   01 0054F    0000000C A            DATA     X'C'
     1338   01 00550    0000000C A            DATA     X'C'
     1339   01 00551    0000000C A            DATA     X'C'
     1340                                     PAGE
     1341   01 00552    FFFFFFEC A   DA05     DATA     -20               DA - OVERFLOW -TRAP
     1342   01 00553    790003DD              DA,0     MEMORY
     1343   01 00554    0330014A              K        0,3,3,DFSW
     1344   01 00555    4330014E              K        4,3,3,DFRET+1
     1345   01 00556    50000000 A            DATA     X'50000000'
     1346   01 00557    50000000 A            DATA     X'50000000'
     1347   01 00558    50000000 A            DATA     X'50000000'
     1348   01 00559    50000000 A            DATA     X'50000000'
     1349   01 0055A    00000000 A            DATA     X'0'
     1350   01 0055B    00000000 A            DATA     X'0'
     1351   01 0055C    00000000 A            DATA     X'0'
     1352   01 0055D    00000000 A            DATA     X'0'
     1353   01 0055E    00000000 A            DATA     X'0'
     1354   01 0055F    00000000 A            DATA     X'0'
     1355   01 00560    00000000 A            DATA     X'0'
     1356   01 00561    00000000 A            DATA     X'0'
     1357   01 00562    0000000C A            DATA     X'C'
     1358   01 00563    0000000C A            DATA     X'C'
     1359   01 00564    0000000C A            DATA     X'C'
     1360   01 00565    0000000C A            DATA     X'C'
     1361                                     PAGE
     1362   01 00566    FFFFFFEC A   DA06     DATA     -20               DA - OVERFLOW - NO TRAP
     1363   01 00567    790003DD              DA,0     MEMORY
     1364   01 00568    0310014A              K        0,3,1,DFSW
     1365   01 00569    43100150              K        4,3,1,LOC+2
     1366   01 0056A    50000000 A            DATA     X'50000000'
     1367   01 0056B    50000000 A            DATA     X'50000000'
     1368   01 0056C    50000000 A            DATA     X'50000000'
     1369   01 0056D    50000000 A            DATA     X'50000000'
     1370   01 0056E    00000000 A            DATA     X'0'
     1371   01 0056F    00000000 A            DATA     X'0'
     1372   01 00570    00000000 A            DATA     X'0'
     1373   01 00571    00000000 A            DATA     X'0'
     1374   01 00572    00000000 A            DATA     X'0'
     1375   01 00573    00000000 A            DATA     X'0'
     1376   01 00574    00000000 A            DATA     X'0'
     1377   01 00575    00000000 A            DATA     X'0'
     1378   01 00576    0000000C A            DATA     X'C'
     1379   01 00577    0000000C A            DATA     X'C'
     1380   01 00578    0000000C A            DATA     X'C'
     1381   01 00579    0000000C A            DATA     X'C'
     1382                                     PAGE
     1383   01 0057A    FFFFFFEC A   DA07     DATA     -20               DA - MAX SUM
     1384   01 0057B    790003DD              DA,0     MEMORY
     1385   01 0057C    0330014A              K        0,3,3,DFSW
     1386   01 0057D    23300150              K        2,3,3,LOC+2
     1387   01 0057E    55555555 A            DATA     X'55555555'
     1388   01 0057F    99999999 A            DATA     X'99999999'
     1389   01 00580    44444444 A            DATA     X'44444444'
     1390   01 00581    44444444 A            DATA     X'44444444'
     1391   01 00582    55555555 A            DATA     X'55555555'
     1392   01 00583    99999999 A            DATA     X'99999999'
     1393   01 00584    44444444 A            DATA     X'44444444'
     1394   01 00585    44444444 A            DATA     X'44444444'
     1395   01 00586    55555555 A            DATA     X'55555555'
     1396   01 00587    99999999 A            DATA     X'99999999'
     1397   01 00588    44444444 A            DATA     X'44444444'
     1398   01 00589    44444444 A            DATA     X'44444444'
     1399   01 0058A    5555555C A            DATA     X'5555555C'
     1400   01 0058B    9999999C A            DATA     X'9999999C'
     1401   01 0058C    4444444C A            DATA     X'4444444C'
     1402   01 0058D    4444444C A            DATA     X'4444444C'
     1403                                     PAGE                                                         *C
     1404   01 0058E    FFFFFFEC A   DA08     DATA     -20               DA-COMPLEMENT RESULT DURING P7    *C
     1405   01 0058F    79F003DD              DA,15    MEMORY                                              *C
     1406   01 00590    E330014A              K        14,3,3,DFSW       PSW1 IN                           *C
     1407   01 00591    13300150              K         1,3,3,LOC+2      PSW1 OUT                          *C
     1408   01 00592    00698841 A            DATA     X'00698841'       R12 IN                            *C
     1409   01 00593    00238817 A            DATA     X'00238817'       R12 OUT                           *C
     1410   01 00594    93765872 A            DATA     X'93765872'       MEMORY+0 IN                       *C
     1411   01 00595    93765872 A            DATA     X'93765872'       MEMORY+0 OUT                      *C
     1412   01 00596    52452246 A            DATA     X'52452246'       R13 IN                            *C
     1413   01 00597    20006420 A            DATA     X'20006420'       R13 OUT                           *C
     1414   01 00598    45866756 A            DATA     X'45866756'       MEMORY+1 IN                       *C
     1415   01 00599    45866756 A            DATA     X'45866756'       MEMORY+1 OUT                      *C
     1416   01 0059A    90699255 A            DATA     X'90699255'       R14 IN                            *C
     1417   01 0059B    65693182 A            DATA     X'65693182'       R14 OUT                           *C
     1418   01 0059C    39243739 A            DATA     X'39243739'       MEMORY+2 IN                       *C
     1419   01 0059D    39243739 A            DATA     X'39243739'       MEMORY+2 OUT                      *C
     1420   01 0059E    1103567C A            DATA     X'1103567C'       R15 IN                            *C
     1421   01 0059F    2842110D A            DATA     X'2842110D'       R15 OUT                           *C
     1422   01 005A0    45677D00 A            DATA     X'45677D00'       MEMORY+3 IN                       *C
     1423   01 005A1    45677D00 A            DATA     X'45677D00'       MEMORY+3 OUT                      *C
     1424                                     PAGE
     1425   01 005A2    FFFFFFEC A   DA09     DATA     -20                                               *C02
     1426   01 005A3    790003DD              DA,0     MEMORY                                            *C02
     1427   01 005A4    0330014A              K        0,3,3,DFSW        PSW1 IN                         *C02
     1428   01 005A5    23300150              K        2,3,3,LOC+2       PSW1 OUT                        *C02
     1429   01 005A6    00000000 A            DATA     X'0'              R12 IN                          *C02
     1430   01 005A7    00000000 A            DATA     X'0'              R12 OUT                         *C02
     1431   01 005A8    00000000 A            DATA     X'0'              MEMORY+0 IN                     *C02
     1432   01 005A9    00000000 A            DATA     X'0'              MEMORY+0 OUT                    *C02
     1433   01 005AA    00000000 A            DATA     X'0'              R13 IN                          *C02
     1434   01 005AB    00000000 A            DATA     X'0'              R13 OUT                         *C02
     1435   01 005AC    00000000 A            DATA     X'0'              MEMORY+1 IN                     *C02
     1436   01 005AD    00000000 A            DATA     X'0'              MEMORY+1 OUT                    *C02
     1437   01 005AE    00000000 A            DATA     X'0'              R14 IN                          *C02
     1438   01 005AF    00000000 A            DATA     X'0'              R14 OUT                         *C02
     1439   01 005B0    00000000 A            DATA     X'0'              MEMORY+2 IN                     *C02
     1440   01 005B1    00000000 A            DATA     X'0'              MEMORY+2 OUT                    *C02
     1441   01 005B2    0000001B A            DATA     X'1B'             R15 IN                          *C02
     1442   01 005B3    0000002C A            DATA     X'2C'             R15 OUT                         *C02
     1443   01 005B4    0000003C A            DATA     X'3C'             MEMORY+3 IN                     *C02
     1444   01 005B5    0000003C A            DATA     X'3C'             MEMORY+3 OUT                    *C02
     1445                                     PAGE
     1446   01 005B6    FFFFFFEC A   DS01     DATA     -20               DS - CHECK ADDER-SUBTRACTER
     1447   01 005B7    780003DD              DS,0     MEMORY
     1448   01 005B8    0330014A              K        0,3,3,DFSW
     1449   01 005B9    23300150              K        2,3,3,LOC+2
     1450   01 005BA    48728996 A            DATA     X'48728996'
     1451   01 005BB    20638097 A            DATA     X'20638097'
     1452   01 005BC    28090898 A            DATA     X'28090898'
     1453   01 005BD    28090898 A            DATA     X'28090898'
     1454   01 005BE    33248868 A            DATA     X'33248868'
     1455   01 005BF    42810059 A            DATA     X'42810059'
     1456   01 005C0    90438808 A            DATA     X'90438808'
     1457   01 005C1    90438808 A            DATA     X'90438808'
     1458   01 005C2    98201374 A            DATA     X'98201374'
     1459   01 005C3    98320491 A            DATA     X'98320491'
     1460   01 005C4    99880883 A            DATA     X'99880883'
     1461   01 005C5    99880883 A            DATA     X'99880883'
     1462   01 005C6    4489280C A            DATA     X'4489280C'
     1463   01 005C7    3366810C A            DATA     X'3366810C'
     1464   01 005C8    1122470C A            DATA     X'1122470C'
     1465   01 005C9    1122470C A            DATA     X'1122470C'
     1466                                     PAGE
     1467   01 005CA    FFFFFFEC A   DS02     DATA     -20               DS - CHECK ADDER-SUBTRACTER
     1468   01 005CB    780003DD              DS,0     MEMORY
     1469   01 005CC    0330014A              K        0,3,3,DFSW
     1470   01 005CD    13300150              K        1,3,3,LOC+2
     1471   01 005CE    53292101 A            DATA     X'53292101'
     1472   01 005CF    28306050 A            DATA     X'28306050'
     1473   01 005D0    24986050 A            DATA     X'24986050'
     1474   01 005D1    24986050 A            DATA     X'24986050'
     1475   01 005D2    23550351 A            DATA     X'23550351'
     1476   01 005D3    48886292 A            DATA     X'48886292'
     1477   01 005D4    74664058 A            DATA     X'74664058'
     1478   01 005D5    74664058 A            DATA     X'74664058'
     1479   01 005D6    13111863 A            DATA     X'13111863'
     1480   01 005D7    53621971 A            DATA     X'53621971'
     1481   01 005D8    59489891 A            DATA     X'59489891'
     1482   01 005D9    59489891 A            DATA     X'59489891'
     1483   01 005DA    1247160D A            DATA     X'1247160D'
     1484   01 005DB    2516200D A            DATA     X'2516200D'
     1485   01 005DC    8730960D A            DATA     X'8730960D'
     1486   01 005DD    8730960D A            DATA     X'8730960D'
     1487                                     PAGE
     1488   01 005DE    FFFFFFEC A   DS03     DATA     -20               DS - CHECK ADDER-SUBTRACTER
     1489   01 005DF    78C003DD              DS,12    MEMORY
     1490   01 005E0    0330014A              K        0,3,3,DFSW
     1491   01 005E1    23300150              K        2,3,3,LOC+2
     1492   01 005E2    00000000 A            DATA     X'0'
     1493   01 005E3    00000000 A            DATA     X'0'
     1494   01 005E4    02706487 A            DATA     X'02706487'
     1495   01 005E5    02706487 A            DATA     X'02706487'
     1496   01 005E6    25655136 A            DATA     X'25655136'
     1497   01 005E7    22948649 A            DATA     X'22948649'
     1498   01 005E8    44533828 A            DATA     X'44533828'
     1499   01 005E9    44533828 A            DATA     X'44533828'
     1500   01 005EA    89166838 A            DATA     X'89166838'
     1501   01 005EB    44633010 A            DATA     X'44633010'
     1502   01 005EC    1000490C A            DATA     X'1000490C'
     1503   01 005ED    1000490C A            DATA     X'1000490C'
     1504   01 005EE    4051940C A            DATA     X'4051940C'
     1505   01 005EF    3051450C A            DATA     X'3051450C'
     1506   01 005F0    00000000 A            DATA     X'0'
     1507   01 005F1    00000000 A            DATA     X'0'
     1508                                     PAGE
     1509   01 005F2    FFFFFFEC A   DS04     DATA     -20               DS - SUBTRACT ZEROS
     1510   01 005F3    780003DD              DS,0     MEMORY
     1511   01 005F4    F330014A              K        15,3,3,DFSW
     1512   01 005F5    03300150              K        0,3,3,LOC+2
     1513   01 005F6    00000000 A            DATA     X'0'
     1514   01 005F7    00000000 A            DATA     X'0'
     1515   01 005F8    00000000 A            DATA     X'0'
     1516   01 005F9    00000000 A            DATA     X'0'
     1517   01 005FA    00000000 A            DATA     X'0'
     1518   01 005FB    00000000 A            DATA     X'0'
     1519   01 005FC    00000000 A            DATA     X'0'
     1520   01 005FD    00000000 A            DATA     X'0'
     1521   01 005FE    00000000 A            DATA     X'0'
     1522   01 005FF    00000000 A            DATA     X'0'
     1523   01 00600    00000000 A            DATA     X'0'
     1524   01 00601    00000000 A            DATA     X'0'
     1525   01 00602    0000000C A            DATA     X'C'
     1526   01 00603    0000000C A            DATA     X'C'
     1527   01 00604    0000000C A            DATA     X'C'
     1528   01 00605    0000000C A            DATA     X'C'
     1529                                     PAGE
     1530   01 00606    FFFFFFEC A   DS05     DATA     -20               DS - OVERFLOW - TRAP
     1531   01 00607    780003DD              DS,0     MEMORY
     1532   01 00608    0330014A              K        0,3,3,DFSW
     1533   01 00609    4330014E              K        4,3,3,DFRET+1
     1534   01 0060A    50000000 A            DATA     X'50000000'
     1535   01 0060B    50000000 A            DATA     X'50000000'
     1536   01 0060C    50000000 A            DATA     X'50000000'
     1537   01 0060D    50000000 A            DATA     X'50000000'
     1538   01 0060E    00000000 A            DATA     X'0'
     1539   01 0060F    00000000 A            DATA     X'0'
     1540   01 00610    00000000 A            DATA     X'0'
     1541   01 00611    00000000 A            DATA     X'0'
     1542   01 00612    00000000 A            DATA     X'0'
     1543   01 00613    00000000 A            DATA     X'0'
     1544   01 00614    00000000 A            DATA     X'0'
     1545   01 00615    00000000 A            DATA     X'0'
     1546   01 00616    0000000C A            DATA     X'C'
     1547   01 00617    0000000C A            DATA     X'C'
     1548   01 00618    0000000D A            DATA     X'D'
     1549   01 00619    0000000D A            DATA     X'D'
     1550                                     PAGE
     1551   01 0061A    FFFFFFEC A   DS06     DATA     -20               DS - OVERFLOW - NO TRAP
     1552   01 0061B    780003DD              DS,0     MEMORY
     1553   01 0061C    0310014A              K        0,3,1,DFSW
     1554   01 0061D    43100150              K        4,3,1,LOC+2
     1555   01 0061E    50000000 A            DATA     X'50000000'
     1556   01 0061F    50000000 A            DATA     X'50000000'
     1557   01 00620    50000000 A            DATA     X'50000000'
     1558   01 00621    50000000 A            DATA     X'50000000'
     1559   01 00622    00000000 A            DATA     X'0'
     1560   01 00623    00000000 A            DATA     X'0'
     1561   01 00624    00000000 A            DATA     X'0'
     1562   01 00625    00000000 A            DATA     X'0'
     1563   01 00626    00000000 A            DATA     X'0'
     1564   01 00627    00000000 A            DATA     X'0'
     1565   01 00628    00000000 A            DATA     X'0'
     1566   01 00629    00000000 A            DATA     X'0'
     1567   01 0062A    0000000C A            DATA     X'C'
     1568   01 0062B    0000000C A            DATA     X'C'
     1569   01 0062C    0000000D A            DATA     X'D'
     1570   01 0062D    0000000D A            DATA     X'D'
     1571                                     PAGE
     1572   01 0062E    FFFFFFEC A   DS07     DATA     -20               DS - MAX DIFF
     1573   01 0062F    780003DD              DS,0     MEMORY
     1574   01 00630    0330014A              K        0,3,3,DFSW
     1575   01 00631    23300150              K        2,3,3,LOC+2
     1576   01 00632    55555555 A            DATA     X'55555555'
     1577   01 00633    99999999 A            DATA     X'99999999'
     1578   01 00634    44444444 A            DATA     X'44444444'
     1579   01 00635    44444444 A            DATA     X'44444444'
     1580   01 00636    55555555 A            DATA     X'55555555'
     1581   01 00637    99999999 A            DATA     X'99999999'
     1582   01 00638    44444444 A            DATA     X'44444444'
     1583   01 00639    44444444 A            DATA     X'44444444'
     1584   01 0063A    55555555 A            DATA     X'55555555'
     1585   01 0063B    99999999 A            DATA     X'99999999'
     1586   01 0063C    44444444 A            DATA     X'44444444'
     1587   01 0063D    44444444 A            DATA     X'44444444'
     1588   01 0063E    5555555C A            DATA     X'5555555C'
     1589   01 0063F    9999999C A            DATA     X'9999999C'
     1590   01 00640    4444444D A            DATA     X'4444444D'
     1591   01 00641    4444444D A            DATA     X'4444444D'
     1592                                     PAGE                                                         *C
     1593   01 00642    FFFFFFEC A   DS08     DATA     -20               DS-COMPLEMENT RESULT DURING P7    *C
     1594   01 00643    78E003DD              DS,14    MEMORY                                              *C
     1595   01 00644    E330014A              K        14,3,3,DFSW       PSW1 IN                           *C
     1596   01 00645    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     1597   01 00646    00008275 A            DATA     X'00008275'       R12 IN                            *C
     1598   01 00647    00000431 A            DATA     X'00000431'       R12 OUT                           *C
     1599   01 00648    87067047 A            DATA     X'87067047'       MEMORY+0 IN                       *C
     1600   01 00649    87067047 A            DATA     X'87067047'       MEMORY+0 OUT                      *C
     1601   01 0064A    27735988 A            DATA     X'27735988'       R13 IN                            *C
     1602   01 0064B    42735135 A            DATA     X'42735135'       R13 OUT                           *C
     1603   01 0064C    11245380 A            DATA     X'11245380'       MEMORY+1 IN                       *C
     1604   01 0064D    11245380 A            DATA     X'11245380'       MEMORY+1 OUT                      *C
     1605   01 0064E    70360640 A            DATA     X'70360640'       R14 IN                            *C
     1606   01 0064F    83444352 A            DATA     X'83444352'       R14 OUT                           *C
     1607   01 00650    49926731 A            DATA     X'49926731'       MEMORY+2 IN                       *C
     1608   01 00651    49926731 A            DATA     X'49926731'       MEMORY+2 OUT                      *C
     1609   01 00652    3689650D A            DATA     X'3689650D'       R15 IN                            *C
     1610   01 00653    3042173C A            DATA     X'3042173C'       R15 OUT                           *C
     1611   01 00654    823D0000 A            DATA     X'823D0000'       MEMORY+3 IN                       *C
     1612   01 00655    823D0000 A            DATA     X'823D0000'       MEMORY+3 OUT                      *C
     1613                                     PAGE
     1614   01 00656    FFFFFFEC A   DSA01    DATA     -20               DSA - SHIFT ALT BITS LEFT 1
     1615   01 00657    7C000001 A            DSA      X'1'
     1616   01 00658    0330014A              K        0,3,3,DFSW
     1617   01 00659    23300150              K        2,3,3,LOC+2
     1618   01 0065A    06969696 A            DATA     X'06969696'
     1619   01 0065B    69696969 A            DATA     X'69696969'
     1620   01 0065C    00000000 A            DATA     X'0'
     1621   01 0065D    00000000 A            DATA     X'0'
     1622   01 0065E    96969696 A            DATA     X'96969696'
     1623   01 0065F    69696966 A            DATA     X'69696966'
     1624   01 00660    00000000 A            DATA     X'0'
     1625   01 00661    00000000 A            DATA     X'0'
     1626   01 00662    69696969 A            DATA     X'69696969'
     1627   01 00663    96969696 A            DATA     X'96969696'
     1628   01 00664    00000000 A            DATA     X'0'
     1629   01 00665    00000000 A            DATA     X'0'
     1630   01 00666    6969696C A            DATA     X'6969696C'
     1631   01 00667    9696960C A            DATA     X'9696960C'
     1632   01 00668    00000000 A            DATA     X'0'
     1633   01 00669    00000000 A            DATA     X'0'
     1634                                     PAGE
     1635   01 0066A    FFFFFFEC A   DSA02    DATA     -20               DSA - SHIFT ALT BITS RIGHT 1
     1636   01 0066B    7C01FFFF A            DSA      X'1FFFF'
     1637   01 0066C    0330014A              K        0,3,3,DFSW
     1638   01 0066D    13300150              K        1,3,3,LOC+2
     1639   01 0066E    96969696 A            DATA     X'96969696'
     1640   01 0066F    09696969 A            DATA     X'09696969'
     1641   01 00670    00000000 A            DATA     X'0'
     1642   01 00671    00000000 A            DATA     X'0'
     1643   01 00672    96969696 A            DATA     X'96969696'
     1644   01 00673    69696969 A            DATA     X'69696969'
     1645   01 00674    00000000 A            DATA     X'0'
     1646   01 00675    00000000 A            DATA     X'0'
     1647   01 00676    69696969 A            DATA     X'69696969'
     1648   01 00677    66969696 A            DATA     X'66969696'
     1649   01 00678    00000000 A            DATA     X'0'
     1650   01 00679    00000000 A            DATA     X'0'
     1651   01 0067A    6969696D A            DATA     X'6969696D'
     1652   01 0067B    9696969D A            DATA     X'9696969D'
     1653   01 0067C    00000000 A            DATA     X'0'
     1654   01 0067D    00000000 A            DATA     X'0'
     1655                                     PAGE
     1656   01 0067E    FFFFFFEC A   DSA03    DATA     -20               DSA - SHIFT > 31
     1657   01 0067F    7C000020 A            DSA      X'20'
     1658   01 00680    0330014A              K        0,3,3,DFSW
     1659   01 00681    43300150              K        4,3,3,LOC+2
     1660   01 00682    77777777 A            DATA     X'77777777'
     1661   01 00683    00000000 A            DATA     X'0'
     1662   01 00684    00000000 A            DATA     X'0'
     1663   01 00685    00000000 A            DATA     X'0'
     1664   01 00686    77777777 A            DATA     X'77777777'
     1665   01 00687    00000000 A            DATA     X'0'
     1666   01 00688    00000000 A            DATA     X'0'
     1667   01 00689    00000000 A            DATA     X'0'
     1668   01 0068A    77777777 A            DATA     X'77777777'
     1669   01 0068B    00000000 A            DATA     X'0'
     1670   01 0068C    00000000 A            DATA     X'0'
     1671   01 0068D    00000000 A            DATA     X'0'
     1672   01 0068E    7777777C A            DATA     X'7777777C'
     1673   01 0068F    0000000C A            DATA     X'C'
     1674   01 00690    00000000 A            DATA     X'0'
     1675   01 00691    00000000 A            DATA     X'0'
     1676                                     PAGE
     1677   01 00692    FFFFFFEC A   DSA04    DATA     -20               DSA - EVEN SHIFT LEFT
     1678   01 00693    7C000002 A            DSA      X'2'
     1679   01 00694    0330014A              K        0,3,3,DFSW
     1680   01 00695    53300150              K        5,3,3,LOC+2
     1681   01 00696    70707070 A            DATA     X'70707070'
     1682   01 00697    70707070 A            DATA     X'70707070'
     1683   01 00698    00000000 A            DATA     X'0'
     1684   01 00699    00000000 A            DATA     X'0'
     1685   01 0069A    70707070 A            DATA     X'70707070'
     1686   01 0069B    70707070 A            DATA     X'70707070'
     1687   01 0069C    00000000 A            DATA     X'0'
     1688   01 0069D    00000000 A            DATA     X'0'
     1689   01 0069E    70707070 A            DATA     X'70707070'
     1690   01 0069F    70707070 A            DATA     X'70707070'
     1691   01 006A0    00000000 A            DATA     X'0'
     1692   01 006A1    00000000 A            DATA     X'0'
     1693   01 006A2    7070707D A            DATA     X'7070707D'
     1694   01 006A3    7070700D A            DATA     X'7070700D'
     1695   01 006A4    00000000 A            DATA     X'0'
     1696   01 006A5    00000000 A            DATA     X'0'
     1697                                     PAGE
     1698   01 006A6    FFFFFFEC A   DSA06    DATA     -20               DSA - LEFT SHIFT 3
     1699   01 006A7    7C000003 A            DSA      X'3'
     1700   01 006A8    0330014A              K        0,3,3,DFSW
     1701   01 006A9    23300150              K        2,3,3,LOC+2
     1702   01 006AA    00069696 A            DATA     X'00069696'
     1703   01 006AB    69696969 A            DATA     X'69696969'
     1704   01 006AC    00000000 A            DATA     X'0'
     1705   01 006AD    00000000 A            DATA     X'0'
     1706   01 006AE    96969696 A            DATA     X'96969696'
     1707   01 006AF    69696969 A            DATA     X'69696969'
     1708   01 006B0    00000000 A            DATA     X'0'
     1709   01 006B1    00000000 A            DATA     X'0'
     1710   01 006B2    96969696 A            DATA     X'96969696'
     1711   01 006B3    69696969 A            DATA     X'69696969'
     1712   01 006B4    00000000 A            DATA     X'0'
     1713   01 006B5    00000000 A            DATA     X'0'
     1714   01 006B6    9696969C A            DATA     X'9696969C'
     1715   01 006B7    6969000C A            DATA     X'6969000C'
     1716   01 006B8    00000000 A            DATA     X'0'
     1717   01 006B9    00000000 A            DATA     X'0'
     1718                                     PAGE
     1719   01 006BA    FFFFFFEC A   DSA07    DATA     -20               DSA - LEFT SHIFT 4
     1720   01 006BB    7C000004 A            DSA      X'4'
     1721   01 006BC    0330014A              K        0,3,3,DFSW
     1722   01 006BD    53300150              K        5,3,3,LOC+2
     1723   01 006BE    64352079 A            DATA     X'64352079'
     1724   01 006BF    20798421 A            DATA     X'20798421'
     1725   01 006C0    00000000 A            DATA     X'0'
     1726   01 006C1    00000000 A            DATA     X'0'
     1727   01 006C2    84213971 A            DATA     X'84213971'
     1728   01 006C3    39717025 A            DATA     X'39717025'
     1729   01 006C4    00000000 A            DATA     X'0'
     1730   01 006C5    00000000 A            DATA     X'0'
     1731   01 006C6    70253468 A            DATA     X'70253468'
     1732   01 006C7    34687931 A            DATA     X'34687931'
     1733   01 006C8    00000000 A            DATA     X'0'
     1734   01 006C9    00000000 A            DATA     X'0'
     1735   01 006CA    7931248D A            DATA     X'7931248D'
     1736   01 006CB    2480000D A            DATA     X'2480000D'
     1737   01 006CC    00000000 A            DATA     X'0'
     1738   01 006CD    00000000 A            DATA     X'0'
     1739                                     PAGE
     1740   01 006CE    FFFFFFEC A   DSA08    DATA     -20               DSA - LEFT SHIFT 30
     1741   01 006CF    7C00001E A            DSA      X'1E'
     1742   01 006D0    0330014A              K        0,3,3,DFSW
     1743   01 006D1    63300150              K        6,3,3,LOC+2
     1744   01 006D2    03568147 A            DATA     X'03568147'
     1745   01 006D3    30000000 A            DATA     X'30000000'
     1746   01 006D4    00000000 A            DATA     X'0'
     1747   01 006D5    00000000 A            DATA     X'0'
     1748   01 006D6    12345678 A            DATA     X'12345678'
     1749   01 006D7    00000000 A            DATA     X'0'
     1750   01 006D8    00000000 A            DATA     X'0'
     1751   01 006D9    00000000 A            DATA     X'0'
     1752   01 006DA    90123456 A            DATA     X'90123456'
     1753   01 006DB    00000000 A            DATA     X'0'
     1754   01 006DC    00000000 A            DATA     X'0'
     1755   01 006DD    00000000 A            DATA     X'0'
     1756   01 006DE    7890123C A            DATA     X'7890123C'
     1757   01 006DF    0000000C A            DATA     X'C'
     1758   01 006E0    00000000 A            DATA     X'0'
     1759   01 006E1    00000000 A            DATA     X'0'
     1760                                     PAGE
     1761   01 006E2    FFFFFFEC A   DSA09    DATA     -20               DSA - LEFT SHIFT 31
     1762   01 006E3    7C00001F A            DSA      X'1F'
     1763   01 006E4    0330014A              K        0,3,3,DFSW
     1764   01 006E5    43300150              K        4,3,3,LOC+2
     1765   01 006E6    98765432 A            DATA     X'98765432'
     1766   01 006E7    00000000 A            DATA     X'0'
     1767   01 006E8    00000000 A            DATA     X'0'
     1768   01 006E9    00000000 A            DATA     X'0'
     1769   01 006EA    10987654 A            DATA     X'10987654'
     1770   01 006EB    00000000 A            DATA     X'0'
     1771   01 006EC    00000000 A            DATA     X'0'
     1772   01 006ED    00000000 A            DATA     X'0'
     1773   01 006EE    32102468 A            DATA     X'32102468'
     1774   01 006EF    00000000 A            DATA     X'0'
     1775   01 006F0    00000000 A            DATA     X'0'
     1776   01 006F1    00000000 A            DATA     X'0'
     1777   01 006F2    0369258D A            DATA     X'0369258D'
     1778   01 006F3    0000000D A            DATA     X'D'
     1779   01 006F4    00000000 A            DATA     X'0'
     1780   01 006F5    00000000 A            DATA     X'0'
     1781                                     PAGE
     1782   01 006F6    FFFFFFEC A   DSA10    DATA     -20               DSA - RIGHT SHIFT 3
     1783   01 006F7    7C01FFFD A            DSA      X'1FFFD'
     1784   01 006F8    0330014A              K        0,3,3,DFSW
     1785   01 006F9    23300150              K        2,3,3,LOC+2
     1786   01 006FA    15937260 A            DATA     X'15937260'
     1787   01 006FB    00015937 A            DATA     X'00015937'
     1788   01 006FC    00000000 A            DATA     X'0'
     1789   01 006FD    00000000 A            DATA     X'0'
     1790   01 006FE    55555555 A            DATA     X'55555555'
     1791   01 006FF    26055555 A            DATA     X'26055555'
     1792   01 00700    00000000 A            DATA     X'0'
     1793   01 00701    00000000 A            DATA     X'0'
     1794   01 00702    25814703 A            DATA     X'25814703'
     1795   01 00703    55525814 A            DATA     X'55525814'
     1796   01 00704    00000000 A            DATA     X'0'
     1797   01 00705    00000000 A            DATA     X'0'
     1798   01 00706    5555555C A            DATA     X'5555555C'
     1799   01 00707    7035555C A            DATA     X'7035555C'
     1800   01 00708    00000000 A            DATA     X'0'
     1801   01 00709    00000000 A            DATA     X'0'
     1802                                     PAGE
     1803   01 0070A    FFFFFFEC A   DSA11    DATA     -20               DSA - RIGHT SHIFT 4
     1804   01 0070B    7C01FFFC A            DSA      X'1FFFC'
     1805   01 0070C    0330014A              K        0,3,3,DFSW
     1806   01 0070D    13300150              K        1,3,3,LOC+2
     1807   01 0070E    01234567 A            DATA     X'01234567'
     1808   01 0070F    00000123 A            DATA     X'00000123'
     1809   01 00710    00000000 A            DATA     X'0'
     1810   01 00711    00000000 A            DATA     X'0'
     1811   01 00712    89135792 A            DATA     X'89135792'
     1812   01 00713    45678913 A            DATA     X'45678913'
     1813   01 00714    00000000 A            DATA     X'0'
     1814   01 00715    00000000 A            DATA     X'0'
     1815   01 00716    58159495 A            DATA     X'58159495'
     1816   01 00717    57925815 A            DATA     X'57925815'
     1817   01 00718    00000000 A            DATA     X'0'
     1818   01 00719    00000000 A            DATA     X'0'
     1819   01 0071A    8529754D A            DATA     X'8529754D'
     1820   01 0071B    9495852D A            DATA     X'9495852D'
     1821   01 0071C    00000000 A            DATA     X'0'
     1822   01 0071D    00000000 A            DATA     X'0'
     1823                                     PAGE
     1824   01 0071E    FFFFFFEC A   DSA12    DATA     -20               DSA - RIGHT SHIFT 30
     1825   01 0071F    7C01FFE2 A            DSA      X'1FFE2'
     1826   01 00720    0330014A              K        0,3,3,DFSW
     1827   01 00721    23300150              K        2,3,3,LOC+2
     1828   01 00722    96969696 A            DATA     X'96969696'
     1829   01 00723    00000000 A            DATA     X'0'
     1830   01 00724    00000000 A            DATA     X'0'
     1831   01 00725    00000000 A            DATA     X'0'
     1832   01 00726    96969696 A            DATA     X'96969696'
     1833   01 00727    00000000 A            DATA     X'0'
     1834   01 00728    00000000 A            DATA     X'0'
     1835   01 00729    00000000 A            DATA     X'0'
     1836   01 0072A    96969696 A            DATA     X'96969696'
     1837   01 0072B    00000000 A            DATA     X'0'
     1838   01 0072C    00000000 A            DATA     X'0'
     1839   01 0072D    00000000 A            DATA     X'0'
     1840   01 0072E    9696969C A            DATA     X'9696969C'
     1841   01 0072F    0000009C A            DATA     X'9C'
     1842   01 00730    00000000 A            DATA     X'0'
     1843   01 00731    00000000 A            DATA     X'0'
     1844                                     PAGE
     1845   01 00732    FFFFFFEC A   DSA13    DATA     -20               DSA - RIGHT SHIFT 31
     1846   01 00733    7C01FFE1 A            DSA      X'1FFE1'
     1847   01 00734    3330014A              K        3,3,3,DFSW
     1848   01 00735    03300150              K        0,3,3,LOC+2
     1849   01 00736    98639407 A            DATA     X'98639407'
     1850   01 00737    00000000 A            DATA     X'0'
     1851   01 00738    00000000 A            DATA     X'0'
     1852   01 00739    00000000 A            DATA     X'0'
     1853   01 0073A    42102594 A            DATA     X'42102594'
     1854   01 0073B    00000000 A            DATA     X'0'
     1855   01 0073C    00000000 A            DATA     X'0'
     1856   01 0073D    00000000 A            DATA     X'0'
     1857   01 0073E    04936894 A            DATA     X'04936894'
     1858   01 0073F    00000000 A            DATA     X'0'
     1859   01 00740    00000000 A            DATA     X'0'
     1860   01 00741    00000000 A            DATA     X'0'
     1861   01 00742    9520124C A            DATA     X'9520124C'
     1862   01 00743    0000000C A            DATA     X'C'
     1863   01 00744    00000000 A            DATA     X'0'
     1864   01 00745    00000000 A            DATA     X'0'
     1865                                     PAGE
     1866   01 00746    FFFFFFEC A   DSA14    DATA     -20               DSA - RIGHT SHIFT 32
     1867   01 00747    7C01FFE0 A            DSA      X'1FFE0'
     1868   01 00748    0330014A              K        0,3,3,DFSW
     1869   01 00749    03300150              K        0,3,3,LOC+2
     1870   01 0074A    74409944 A            DATA     X'74409944'
     1871   01 0074B    00000000 A            DATA     X'0'
     1872   01 0074C    00000000 A            DATA     X'0'
     1873   01 0074D    00000000 A            DATA     X'0'
     1874   01 0074E    26230318 A            DATA     X'26230318'
     1875   01 0074F    00000000 A            DATA     X'0'
     1876   01 00750    00000000 A            DATA     X'0'
     1877   01 00751    00000000 A            DATA     X'0'
     1878   01 00752    19092429 A            DATA     X'19092429'
     1879   01 00753    00000000 A            DATA     X'0'
     1880   01 00754    00000000 A            DATA     X'0'
     1881   01 00755    00000000 A            DATA     X'0'
     1882   01 00756    4097235D A            DATA     X'4097235D'
     1883   01 00757    0000000D A            DATA     X'D'
     1884   01 00758    00000000 A            DATA     X'0'
     1885   01 00759    00000000 A            DATA     X'0'
     1886                                     PAGE
     1887   01 0075A    FFFFFFEC A   DSA15    DATA     -20               DSA - LEFT SHIFT 1
     1888   01 0075B    7C000001 A            DSA      X'1'
     1889   01 0075C    0330014A              K        0,3,3,DFSW
     1890   01 0075D    43300150              K        4,3,3,LOC+2
     1891   01 0075E    80000000 A            DATA     X'80000000'
     1892   01 0075F    00000000 A            DATA     X'0'
     1893   01 00760    00000000 A            DATA     X'0'
     1894   01 00761    00000000 A            DATA     X'0'
     1895   01 00762    00000000 A            DATA     X'0'
     1896   01 00763    00000000 A            DATA     X'0'
     1897   01 00764    00000000 A            DATA     X'0'
     1898   01 00765    00000000 A            DATA     X'0'
     1899   01 00766    00000000 A            DATA     X'0'
     1900   01 00767    00000000 A            DATA     X'0'
     1901   01 00768    00000000 A            DATA     X'0'
     1902   01 00769    00000000 A            DATA     X'0'
     1903   01 0076A    0000000C A            DATA     X'C'
     1904   01 0076B    0000000C A            DATA     X'C'
     1905   01 0076C    00000000 A            DATA     X'0'
     1906   01 0076D    00000000 A            DATA     X'0'
     1907                                     PAGE
     1908   01 0076E    FFFFFFEC A   DSA05    DATA     -20               DSA - EVEN SHIFT RIGHT
     1909   01 0076F    7C01FFFE A            DSA      X'1FFFE'
     1910   01 00770    0330014A              K        0,3,3,DFSW
     1911   01 00771    23300150              K        2,3,3,LOC+2
     1912   01 00772    07070707 A            DATA     X'07070707'
     1913   01 00773    00070707 A            DATA     X'00070707'
     1914   01 00774    00000000 A            DATA     X'0'
     1915   01 00775    00000000 A            DATA     X'0'
     1916   01 00776    07070707 A            DATA     X'07070707'
     1917   01 00777    07070707 A            DATA     X'07070707'
     1918   01 00778    00000000 A            DATA     X'0'
     1919   01 00779    00000000 A            DATA     X'0'
     1920   01 0077A    07070707 A            DATA     X'07070707'
     1921   01 0077B    07070707 A            DATA     X'07070707'
     1922   01 0077C    00000000 A            DATA     X'0'
     1923   01 0077D    00000000 A            DATA     X'0'
     1924   01 0077E    0707070C A            DATA     X'0707070C'
     1925   01 0077F    0707070C A            DATA     X'0707070C'
     1926   01 00780    00000000 A            DATA     X'0'
     1927   01 00781    00000000 A            DATA     X'0'
     1928                                     PAGE                                                         *C
     1929   01 00782    FFFFFFEC A   DSA16    DATA     -20               DSA-RIGHT SHIFT 33                *C
     1930   01 00783    7C00FFBF A            DSA      X'FFBF'                                             *C
     1931   01 00784    F330014A              K        15,3,3,DFSW       PSW1 IN                           *C
     1932   01 00785    03300150              K         0,3,3,LOC+2      PSW1 OUT                          *C
     1933   01 00786    87878787 A            DATA     X'87878787'       R12 IN                            *C
     1934   01 00787    00000000 A            DATA     X'0'              R12 OUT                           *C
     1935   01 00788    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     1936   01 00789    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     1937   01 0078A    87878787 A            DATA     X'87878787'       R13 IN                            *C
     1938   01 0078B    00000000 A            DATA     X'0'              R13 OUT                           *C
     1939   01 0078C    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     1940   01 0078D    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     1941   01 0078E    87878787 A            DATA     X'87878787'       R14 IN                            *C
     1942   01 0078F    00000000 A            DATA     X'0'              R14 OUT                           *C
     1943   01 00790    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     1944   01 00791    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     1945   01 00792    8787878D A            DATA     X'8787878D'       R15 IN                            *C
     1946   01 00793    0000000D A            DATA     X'D'              R15 OUT                           *C
     1947   01 00794    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     1948   01 00795    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     1949                                     PAGE                                                         *C
     1950   01 00796    FFFFFFEC A   DSA17    DATA     -20               DSA-RIGHT SHIFT 257               *C
     1951   01 00797    7C00FEFF A            DSA      X'FEFF'                                             *C
     1952   01 00798    F330014A              K        15,3,3,DFSW       PSW1 IN                           *C
     1953   01 00799    03300150              K         0,3,3,LOC+2      PSW1 OUT                          *C
     1954   01 0079A    87878787 A            DATA     X'87878787'       R12 IN                            *C
     1955   01 0079B    00000000 A            DATA     X'0'              R12 OUT                           *C
     1956   01 0079C    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     1957   01 0079D    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     1958   01 0079E    87878787 A            DATA     X'87878787'       R13 IN                            *C
     1959   01 0079F    00000000 A            DATA     X'0'              R13 OUT                           *C
     1960   01 007A0    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     1961   01 007A1    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     1962   01 007A2    87878787 A            DATA     X'87878787'       R14 IN                            *C
     1963   01 007A3    00000000 A            DATA     X'0'              R14 OUT                           *C
     1964   01 007A4    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     1965   01 007A5    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     1966   01 007A6    8787878C A            DATA     X'8787878C'       R15 IN                            *C
     1967   01 007A7    0000000C A            DATA     X'C'              R15 OUT                           *C
     1968   01 007A8    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     1969   01 007A9    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     1970                                     PAGE                                                         *C
     1971   01 007AA    FFFFFFEC A   DSA18    DATA     -20               DSA-RIGHT SHIFT 4097              *C
     1972   01 007AB    7C01EFFF A            DSA      X'1EFFF'                                            *C
     1973   01 007AC    F330014A              K        15,3,3,DFSW       PSW1 IN                           *C
     1974   01 007AD    03300150              K         0,3,3,LOC+2      PSW1 OUT                          *C
     1975   01 007AE    87878787 A            DATA     X'87878787'       R12 IN                            *C
     1976   01 007AF    00000000 A            DATA     X'0'              R12 OUT                           *C
     1977   01 007B0    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     1978   01 007B1    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     1979   01 007B2    87878787 A            DATA     X'87878787'       R13 IN                            *C
     1980   01 007B3    00000000 A            DATA     X'0'              R13 OUT                           *C
     1981   01 007B4    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     1982   01 007B5    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     1983   01 007B6    87878787 A            DATA     X'87878787'       R14 IN                            *C
     1984   01 007B7    00000000 A            DATA     X'0'              R14 OUT                           *C
     1985   01 007B8    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     1986   01 007B9    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     1987   01 007BA    8787878C A            DATA     X'8787878C'       R15 IN                            *C
     1988   01 007BB    0000000C A            DATA     X'C'              R15 OUT                           *C
     1989   01 007BC    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     1990   01 007BD    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     1991                                     PAGE                                                         *C
     1992   01 007BE    FFFFFFEC A   DSA19    DATA     -20               DSA-LEFT SHIFT 2                  *C
     1993   01 007BF    7C000002 A            DSA      X'2'                                                *C
     1994   01 007C0    B330014A              K        11,3,3,DFSW       PSW1 IN                           *C
     1995   01 007C1    43300150              K         4,3,3,LOC+2      PSW1 OUT                          *C
     1996   01 007C2    04000000 A            DATA     X'04000000'       R12 IN                            *C
     1997   01 007C3    00000000 A            DATA     X'0'              R12 OUT                           *C
     1998   01 007C4    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     1999   01 007C5    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     2000   01 007C6    00000000 A            DATA     X'0'              R13 IN                            *C
     2001   01 007C7    00000000 A            DATA     X'0'              R13 OUT                           *C
     2002   01 007C8    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2003   01 007C9    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2004   01 007CA    00000000 A            DATA     X'0'              R14 IN                            *C
     2005   01 007CB    00000000 A            DATA     X'0'              R14 OUT                           *C
     2006   01 007CC    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2007   01 007CD    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2008   01 007CE    0000000C A            DATA     X'C'              R15 IN                            *C
     2009   01 007CF    0000000C A            DATA     X'C'              R15 OUT                           *C
     2010   01 007D0    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2011   01 007D1    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2012                                     PAGE                                                         *C
     2013   01 007D2    FFFFFFEC A   DSA20    DATA     -20               DSA-LEFT SHIFT 64                 *C
     2014   01 007D3    7C000040 A            DSA      X'00040'                                            *C
     2015   01 007D4    B330014A              K        11,3,3,DFSW       PSW1 IN                           *C
     2016   01 007D5    43300150              K         4,3,3,LOC+2      PSW1 OUT                          *C
     2017   01 007D6    00000000 A            DATA     X'0'              R12 IN                            *C
     2018   01 007D7    00000000 A            DATA     X'0'              R12 OUT                           *C
     2019   01 007D8    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     2020   01 007D9    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     2021   01 007DA    00000000 A            DATA     X'0'              R13 IN                            *C
     2022   01 007DB    00000000 A            DATA     X'0'              R13 OUT                           *C
     2023   01 007DC    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2024   01 007DD    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2025   01 007DE    00000000 A            DATA     X'0'              R14 IN                            *C
     2026   01 007DF    00000000 A            DATA     X'0'              R14 OUT                           *C
     2027   01 007E0    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2028   01 007E1    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2029   01 007E2    0000008D A            DATA     X'8D'             R15 IN                            *C
     2030   01 007E3    0000000D A            DATA     X'D'              R15 OUT                           *C
     2031   01 007E4    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2032   01 007E5    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2033                                     PAGE                                                         *C
     2034   01 007E6    FFFFFFEC A   DSA21    DATA     -20               DSA-LEFT SHIFT 128                *C
     2035   01 007E7    7C000080 A            DSA      X'00080'                                            *C
     2036   01 007E8    B330014A              K        11,3,3,DFSW       PSW1 IN                           *C
     2037   01 007E9    43300150              K         4,3,3,LOC+2      PSW1 OUT                          *C
     2038   01 007EA    00000000 A            DATA     X'0'              R12 IN                            *C
     2039   01 007EB    00000000 A            DATA     X'0'              R12 OUT                           *C
     2040   01 007EC    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     2041   01 007ED    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     2042   01 007EE    00000000 A            DATA     X'0'              R13 IN                            *C
     2043   01 007EF    00000000 A            DATA     X'0'              R13 OUT                           *C
     2044   01 007F0    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2045   01 007F1    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2046   01 007F2    00000000 A            DATA     X'0'              R14 IN                            *C
     2047   01 007F3    00000000 A            DATA     X'0'              R14 OUT                           *C
     2048   01 007F4    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2049   01 007F5    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2050   01 007F6    0000040D A            DATA     X'0000040D'       R15 IN                            *C
     2051   01 007F7    0000000D A            DATA     X'D'              R15 OUT                           *C
     2052   01 007F8    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2053   01 007F9    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2054                                     PAGE                                                         *C
     2055   01 007FA    FFFFFFEC A   DSA22    DATA     -20               DSA-LEFT SHIFT 256                *C
     2056   01 007FB    7C000080 A            DSA      X'00080'                                            *C
     2057   01 007FC    F330014A              K        15,3,3,DFSW       PSW1 IN                           *C
     2058   01 007FD    03300150              K         0,3,3,LOC+2      PSW1 OUT                          *C
     2059   01 007FE    00000000 A            DATA     X'0'              R12 IN                            *C
     2060   01 007FF    00000000 A            DATA     X'0'              R12 OUT                           *C
     2061   01 00800    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     2062   01 00801    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     2063   01 00802    00000000 A            DATA     X'0'              R13 IN                            *C
     2064   01 00803    00000000 A            DATA     X'0'              R13 OUT                           *C
     2065   01 00804    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2066   01 00805    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2067   01 00806    00000000 A            DATA     X'0'              R14 IN                            *C
     2068   01 00807    00000000 A            DATA     X'0'              R14 OUT                           *C
     2069   01 00808    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2070   01 00809    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2071   01 0080A    0000000D A            DATA     X'D'              R15 IN                            *C
     2072   01 0080B    0000000D A            DATA     X'D'              R15 OUT                           *C
     2073   01 0080C    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2074   01 0080D    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2075                                     PAGE                                                         *C
     2076   01 0080E    FFFFFFEC A   DSA23    DATA     -20               DSA-RIGHT SHIFT 1                 *C
     2077   01 0080F    7C01FFFF A            DSA      X'1FFFF'                                            *C
     2078   01 00810    E330014A              K        14,3,3,DFSW       PSW1 IN                           *C
     2079   01 00811    13300150              K         1,3,3,LOC+2      PSW1 OUT                          *C
     2080   01 00812    20000000 A            DATA     X'20000000'       R12 IN                            *C
     2081   01 00813    02000000 A            DATA     X'02000000'       R12 OUT                           *C
     2082   01 00814    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     2083   01 00815    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     2084   01 00816    00000000 A            DATA     X'0'              R13 IN                            *C
     2085   01 00817    00000000 A            DATA     X'0'              R13 OUT                           *C
     2086   01 00818    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2087   01 00819    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2088   01 0081A    00000000 A            DATA     X'0'              R14 IN                            *C
     2089   01 0081B    00000000 A            DATA     X'0'              R14 OUT                           *C
     2090   01 0081C    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2091   01 0081D    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2092   01 0081E    0000000D A            DATA     X'D'              R15 IN                            *C
     2093   01 0081F    0000000D A            DATA     X'D'              R15 OUT                           *C
     2094   01 00820    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2095   01 00821    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2096                            *
     2097   01 00822    FFFFFFEC A   DSA24    DATA     -20               DSA-RIGHT SHIFT 4-ZERO RESULT   *C01
     2098   01 00823    7C01FFFC A            DSA      X'1FFFC'                                          *C01
     2099   01 00824    F330014A              K        15,3,3,DFSW       PSW1 IN                         *C01
     2100   01 00825    03300150              K         0,3,3,LOC+2           OUT                        *C01
     2101   01 00826    00000000 A            DATA     X'0'              R12 IN                          *C01
     2102   01 00827    00000000 A            DATA     X'0'                  OUT                         *C01
     2103   01 00828    00000000 A            DATA     X'0'              MEMORY+0 IN                     *C01
     2104   01 00829    00000000 A            DATA     X'0'                       OUT                    *C01
     2105   01 0082A    00000000 A            DATA     X'0'              R13 IN                          *C01
     2106   01 0082B    00000000 A            DATA     X'0'                  OUT                         *C01
     2107   01 0082C    00000000 A            DATA     X'0'              MEMORY+1 IN                     *C01
     2108   01 0082D    00000000 A            DATA     X'0'                       OUT                    *C01
     2109   01 0082E    00000000 A            DATA     X'0'              R14 IN                          *C01
     2110   01 0082F    00000000 A            DATA     X'0'                  OUT                         *C01
     2111   01 00830    00000000 A            DATA     X'0'              MEMORY+2 IN                     *C01
     2112   01 00831    00000000 A            DATA     X'0'                       OUT                    *C01
     2113   01 00832    0007777C A            DATA     X'7777C'          R15 IN                          *C01
     2114   01 00833    0000000C A            DATA     X'C'                  OUT                         *C01
     2115   01 00834    00000000 A            DATA     X'0'              MEMORY+3 IN                     *C01
     2116   01 00835    00000000 A            DATA     X'0'                       OUT                    *C01
     2117                            *
     2118   01 00836    FFFFFFEC A   DC01     DATA     -20               DC - DECA = EDO
     2119   01 00837    7D0003DD              DC,0     MEMORY
     2120   01 00838    F330014A              K        15,3,3,DFSW
     2121   01 00839    03300150              K        0,3,3,LOC+2
     2122   01 0083A    01234567 A            DATA     X'01234567'
     2123   01 0083B    01234567 A            DATA     X'01234567'
     2124   01 0083C    01234567 A            DATA     X'01234567'
     2125   01 0083D    01234567 A            DATA     X'01234567'
     2126   01 0083E    89024680 A            DATA     X'89024680'
     2127   01 0083F    89024680 A            DATA     X'89024680'
     2128   01 00840    89024680 A            DATA     X'89024680'
     2129   01 00841    89024680 A            DATA     X'89024680'
     2130   01 00842    36925814 A            DATA     X'36925814'
     2131   01 00843    36925814 A            DATA     X'36925814'
     2132   01 00844    36925814 A            DATA     X'36925814'
     2133   01 00845    36925814 A            DATA     X'36925814'
     2134   01 00846    7046797C A            DATA     X'7046797C'
     2135   01 00847    7046797C A            DATA     X'7046797C'
     2136   01 00848    7046797C A            DATA     X'7046797C'
     2137   01 00849    7046797C A            DATA     X'7046797C'
     2138                                     PAGE
     2139   01 0084A    FFFFFFEC A   DC02     DATA     -20               DC - DECA > EDO
     2140   01 0084B    7D0003DD              DC,0     MEMORY
     2141   01 0084C    F330014A              K        15,3,3,DFSW
     2142   01 0084D    23300150              K        2,3,3,LOC+2
     2143   01 0084E    96969696 A            DATA     X'96969696'
     2144   01 0084F    96969696 A            DATA     X'96969696'
     2145   01 00850    96969696 A            DATA     X'96969696'
     2146   01 00851    96969696 A            DATA     X'96969696'
     2147   01 00852    96969696 A            DATA     X'96969696'
     2148   01 00853    96969696 A            DATA     X'96969696'
     2149   01 00854    96969696 A            DATA     X'96969696'
     2150   01 00855    96969696 A            DATA     X'96969696'
     2151   01 00856    96969696 A            DATA     X'96969696'
     2152   01 00857    96969696 A            DATA     X'96969696'
     2153   01 00858    96969696 A            DATA     X'96969696'
     2154   01 00859    96969696 A            DATA     X'96969696'
     2155   01 0085A    9696969C A            DATA     X'9696969C'
     2156   01 0085B    9696969C A            DATA     X'9696969C'
     2157   01 0085C    9696968C A            DATA     X'9696968C'
     2158   01 0085D    9696968C A            DATA     X'9696968C'
     2159                                     PAGE
     2160   01 0085E    FFFFFFEC A   DC03     DATA     -20               DC - DECA < EDO
     2161   01 0085F    7D0003DD              DC,0     MEMORY
     2162   01 00860    F330014A              K        15,3,3,DFSW
     2163   01 00861    13300150              K        1,3,3,LOC+2
     2164   01 00862    69696969 A            DATA     X'69696969'
     2165   01 00863    69696969 A            DATA     X'69696969'
     2166   01 00864    69696969 A            DATA     X'69696969'
     2167   01 00865    69696969 A            DATA     X'69696969'
     2168   01 00866    69696969 A            DATA     X'69696969'
     2169   01 00867    69696969 A            DATA     X'69696969'
     2170   01 00868    69696969 A            DATA     X'69696969'
     2171   01 00869    69696969 A            DATA     X'69696969'
     2172   01 0086A    69696969 A            DATA     X'69696969'
     2173   01 0086B    69696969 A            DATA     X'69696969'
     2174   01 0086C    69696969 A            DATA     X'69696969'
     2175   01 0086D    69696969 A            DATA     X'69696969'
     2176   01 0086E    6969697D A            DATA     X'6969697D'
     2177   01 0086F    6969697D A            DATA     X'6969697D'
     2178   01 00870    6969696D A            DATA     X'6969696D'
     2179   01 00871    6969696D A            DATA     X'6969696D'
     2180                            *
     2181   01 00872    FFFFFFEC A   DC04     DATA     -20               DC-DECA MUCH GREATER THAN EDO   *C01
     2182   01 00873    7D0003DD              DC,0     MEMORY                                            *C01
     2183   01 00874    0330014A              K        0,3,3,DFSW        PSW1 IN                         *C01
     2184   01 00875    23300150              K        2,3,3,LOC+2            OUT                        *C01
     2185   01 00876    99999999 A            DATA     X'99999999'       R12 IN                          *C01
     2186   01 00877    99999999 A            DATA     X'99999999'           OUT                         *C01
     2187   01 00878    00000000 A            DATA     X'0'              MEMORY+0 IN                     *C01
     2188   01 00879    00000000 A            DATA     X'0'                       OUT                    *C01
     2189   01 0087A    99999999 A            DATA     X'99999999'       R13 IN                          *C01
     2190   01 0087B    99999999 A            DATA     X'99999999'           OUT                         *C01
     2191   01 0087C    00000000 A            DATA     X'0'              MEMORY+1 IN                     *C01
     2192   01 0087D    00000000 A            DATA     X'0'                       OUT                    *C01
     2193   01 0087E    99999999 A            DATA     X'99999999'       R14 IN                          *C01
     2194   01 0087F    99999999 A            DATA     X'99999999'           OUT                         *C01
     2195   01 00880    00000000 A            DATA     X'0'              MEMORY+2 IN                     *C01
     2196   01 00881    00000000 A            DATA     X'0'                       OUT                    *C01
     2197   01 00882    9999999C A            DATA     X'9999999C'       R15 IN                          *C01
     2198   01 00883    9999999C A            DATA     X'9999999C'           OUT                         *C01
     2199   01 00884    0000001D A            DATA     X'1D'             MEMORY+3 IN                     *C01
     2200   01 00885    0000001D A            DATA     X'1D'                      OUT                    *C01
     2201                            *                                                                   *C01
     2202   01 00886    FFFFFFEC A   DC05     DATA     -20               DC-CHECK END CASES              *C01
     2203   01 00887    7D0003DD              DC,0     MEMORY                                            *C01
     2204   01 00888    D330014A              K        13,3,3,DFSW       PSW1 IN                         *C01
     2205   01 00889    23300150              K         2,3,3,LOC+2           OUT                        *C01
     2206   01 0088A    80000000 A            DATA     X'80000000'       R12 IN                          *C01
     2207   01 0088B    80000000 A            DATA     X'80000000'           OUT                         *C01
     2208   01 0088C    80000000 A            DATA     X'80000000'       MEMORY+0 IN                     *C01
     2209   01 0088D    80000000 A            DATA     X'80000000'                OUT                    *C01
     2210   01 0088E    00000000 A            DATA     X'0'              R13 IN                          *C01
     2211   01 0088F    00000000 A            DATA     X'0'                  OUT                         *C01
     2212   01 00890    00000000 A            DATA     X'0'              MEMORY+1 IN                     *C01
     2213   01 00891    00000000 A            DATA     X'0'                       OUT                    *C01
     2214   01 00892    00000000 A            DATA     X'0'              R14 IN                          *C01
     2215   01 00893    00000000 A            DATA     X'0'                  OUT                         *C01
     2216   01 00894    00000000 A            DATA     X'0'              MEMORY+2 IN                     *C01
     2217   01 00895    00000000 A            DATA     X'0'                       OUT                    *C01
     2218   01 00896    0000000C A            DATA     X'C'              R15 IN                          *C01
     2219   01 00897    0000000C A            DATA     X'C'                  OUT                         *C01
     2220   01 00898    0000000D A            DATA     X'D'              MEMORY+3 IN                     *C01
     2221   01 00899    0000000D A            DATA     X'D'                       OUT                    *C01
     2222                            *
     2223   01 0089A    FFFFFFEC A   DM01     DATA     -20               DM - POS PROD
     2224   01 0089B    7B8003DD              DM,8     MEMORY
     2225   01 0089C    D330014A              K        13,3,3,DFSW
     2226   01 0089D    23300150              K        2,3,3,LOC+2
     2227   01 0089E    00000000 A            DATA     X'0'
     2228   01 0089F    00091714 A            DATA     X'00091714'
     2229   01 008A0    02468135 A            DATA     X'02468135'
     2230   01 008A1    02468135 A            DATA     X'02468135'
     2231   01 008A2    00000000 A            DATA     X'0'
     2232   01 008A3    06717836 A            DATA     X'06717836'
     2233   01 008A4    7956493C A            DATA     X'7956493C'
     2234   01 008A5    7956493C A            DATA     X'7956493C'
     2235   01 008A6    37159246 A            DATA     X'37159246'
     2236   01 008A7    06432464 A            DATA     X'06432464'
     2237   01 008A8    00000000 A            DATA     X'0'
     2238   01 008A9    00000000 A            DATA     X'0'
     2239   01 008AA    8048271C A            DATA     X'8048271C'
     2240   01 008AB    1873603C A            DATA     X'1873603C'
     2241   01 008AC    00000000 A            DATA     X'0'
     2242   01 008AD    00000000 A            DATA     X'0'
     2243                                     PAGE
     2244   01 008AE    FFFFFFEC A   DM02     DATA     -20               DM - NEG PROD
     2245   01 008AF    7B8003DD              DM,8     MEMORY
     2246   01 008B0    E330014A              K        14,3,3,DFSW
     2247   01 008B1    13300150              K        1,3,3,LOC+2
     2248   01 008B2    00000000 A            DATA     X'0'
     2249   01 008B3    00438879 A            DATA     X'00438879'
     2250   01 008B4    29630741 A            DATA     X'29630741'
     2251   01 008B5    29630741 A            DATA     X'29630741'
     2252   01 008B6    00000000 A            DATA     X'0'
     2253   01 008B7    06222683 A            DATA     X'06222683'
     2254   01 008B8    8529567C A            DATA     X'8529567C'
     2255   01 008B9    8529567C A            DATA     X'8529567C'
     2256   01 008BA    14811612 A            DATA     X'14811612'
     2257   01 008BB    90972684 A            DATA     X'90972684'
     2258   01 008BC    00000000 A            DATA     X'0'
     2259   01 008BD    00000000 A            DATA     X'0'
     2260   01 008BE    3587046D A            DATA     X'3587046D'
     2261   01 008BF    9189082D A            DATA     X'9189082D'
     2262   01 008C0    00000000 A            DATA     X'0'
     2263   01 008C1    00000000 A            DATA     X'0'
     2264                                     PAGE
     2265   01 008C2    FFFFFFEC A   DM03     DATA     -20               DM- L=1
     2266   01 008C3    7B1003DD              DM,1     MEMORY
     2267   01 008C4    D330014A              K        13,3,3,DFSW
     2268   01 008C5    23300150              K        2,3,3,LOC+2
     2269   01 008C6    00000000 A            DATA     X'0'
     2270   01 008C7    00000000 A            DATA     X'0'
     2271   01 008C8    5C000000 A            DATA     X'5C000000'
     2272   01 008C9    5C000000 A            DATA     X'5C000000'
     2273   01 008CA    00000000 A            DATA     X'0'
     2274   01 008CB    00000004 A            DATA     X'4'
     2275   01 008CC    00000000 A            DATA     X'0'
     2276   01 008CD    00000000 A            DATA     X'0'
     2277   01 008CE    84268248 A            DATA     X'84268248'
     2278   01 008CF    21341240 A            DATA     X'21341240'
     2279   01 008D0    00000000 A            DATA     X'0'
     2280   01 008D1    00000000 A            DATA     X'0'
     2281   01 008D2    0529317C A            DATA     X'0529317C'
     2282   01 008D3    2646585C A            DATA     X'2646585C'
     2283   01 008D4    00000000 A            DATA     X'0'
     2284   01 008D5    00000000 A            DATA     X'0'
     2285                                     PAGE
     2286   01 008D6    FFFFFFEC A   DM04     DATA     -20               DM - ZERO PROD
     2287   01 008D7    7B8003DD              DM,8     MEMORY
     2288   01 008D8    F330014A              K        15,3,3,DFSW
     2289   01 008D9    03300150              K        0,3,3,LOC+2
     2290   01 008DA    00000000 A            DATA     X'0'
     2291   01 008DB    00000000 A            DATA     X'0'
     2292   01 008DC    00000000 A            DATA     X'0'
     2293   01 008DD    00000000 A            DATA     X'0'
     2294   01 008DE    00000000 A            DATA     X'0'
     2295   01 008DF    00000000 A            DATA     X'0'
     2296   01 008E0    0000000C A            DATA     X'C'
     2297   01 008E1    0000000C A            DATA     X'C'
     2298   01 008E2    00000000 A            DATA     X'0'
     2299   01 008E3    00000000 A            DATA     X'0'
     2300   01 008E4    00000000 A            DATA     X'0'
     2301   01 008E5    00000000 A            DATA     X'0'
     2302   01 008E6    0000000D A            DATA     X'D'
     2303   01 008E7    0000000C A            DATA     X'C'
     2304   01 008E8    00000000 A            DATA     X'0'
     2305   01 008E9    00000000 A            DATA     X'0'
     2306                                     PAGE
     2307   01 008EA    FFFFFFEC A   DM05     DATA     -20               DM-PREVIOUSLY INTERRUPTED
     2308   01 008EB    7B2003DD              DM,2     MEMORY
     2309   01 008EC    0330014A              K        0,3,3,DFSW
     2310   01 008ED    13300150              K        1,3,3,LOC+2
     2311   01 008EE    00000000 A            DATA     X'0'
     2312   01 008EF    00000000 A            DATA     X'0'
     2313   01 008F0    999D0000 A            DATA     X'999D0000'
     2314   01 008F1    999D0000 A            DATA     X'999D0000'
     2315   01 008F2    00000A00 A            DATA     X'A00'
     2316   01 008F3    00000000 A            DATA     X'0'
     2317   01 008F4    00000000 A            DATA     X'0'
     2318   01 008F5    00000000 A            DATA     X'0'
     2319   01 008F6    00000000 A            DATA     X'0'
     2320   01 008F7    00000000 A            DATA     X'0'
     2321   01 008F8    00000000 A            DATA     X'0'
     2322   01 008F9    00000000 A            DATA     X'0'
     2323   01 008FA    00970032 A            DATA     X'00970032'
     2324   01 008FB    0026973D A            DATA     X'0026973D'
     2325   01 008FC    00000000 A            DATA     X'0'
     2326   01 008FD    00000000 A            DATA     X'0'
     2327                                     PAGE
     2328   01 008FE    FFFFFFEC A   DM06     DATA     -20               DM - PREVIOUSLY INTERRUPTED
     2329   01 008FF    7B8003DD              DM,8     MEMORY
     2330   01 00900    0330014A              K        0,3,3,DFSW
     2331   01 00901    23300150              K        2,3,3,LOC+2
     2332   01 00902    37159246 A            DATA     X'37159246'
     2333   01 00903    00091714 A            DATA     X'00091714'
     2334   01 00904    02468135 A            DATA     X'02468135'
     2335   01 00905    02468135 A            DATA     X'02468135'
     2336   01 00906    804827C0 A            DATA     X'804827C0'
     2337   01 00907    06717836 A            DATA     X'06717836'
     2338   01 00908    7956493C A            DATA     X'7956493C'
     2339   01 00909    7956493C A            DATA     X'7956493C'
     2340   01 0090A    00000000 A            DATA     X'0'
     2341   01 0090B    06432464 A            DATA     X'06432464'
     2342   01 0090C    00000000 A            DATA     X'0'
     2343   01 0090D    00000000 A            DATA     X'0'
     2344   01 0090E    00000001 A            DATA     X'1'
     2345   01 0090F    1873603C A            DATA     X'1873603C'
     2346   01 00910    00000000 A            DATA     X'0'
     2347   01 00911    00000000 A            DATA     X'0'
     2348                                     PAGE
     2349   01 00912    FFFFFFEC A   DM07     DATA     -20               DM - L=2
     2350   01 00913    7B2003DD              DM,2     MEMORY
     2351   01 00914    D330014A              K        13,3,3,DFSW
     2352   01 00915    23300150              K        2,3,3,LOC+2
     2353   01 00916    00000000 A            DATA     X'0'
     2354   01 00917    00000000 A            DATA     X'0'
     2355   01 00918    128C0000 A            DATA     X'128C0000'
     2356   01 00919    128C0000 A            DATA     X'128C0000'
     2357   01 0091A    00000000 A            DATA     X'0'
     2358   01 0091B    00000000 A            DATA     X'0'
     2359   01 0091C    00000000 A            DATA     X'0'
     2360   01 0091D    00000000 A            DATA     X'0'
     2361   01 0091E    00000000 A            DATA     X'0'
     2362   01 0091F    00000000 A            DATA     X'0'
     2363   01 00920    00000000 A            DATA     X'0'
     2364   01 00921    00000000 A            DATA     X'0'
     2365   01 00922    0002964C A            DATA     X'0002964C'
     2366   01 00923    0379392C A            DATA     X'0379392C'
     2367   01 00924    00000000 A            DATA     X'0'
     2368   01 00925    00000000 A            DATA     X'0'
     2369                                     PAGE                                                         *C
     2370   01 00926    FFFFFFEC A   DM08     DATA     -20               DM-ZERO OPERAND IN MEMORY         *C
     2371   01 00927    7B4003DD              DM,4     MEMORY                                              *C
     2372   01 00928    F330014A              K        15,3,3,DFSW       PSW1 IN                           *C
     2373   01 00929    03300150              K        0,3,3,LOC+2       PSW1 OUT                          *C
     2374   01 0092A    00000000 A            DATA     X'0'              R12 IN                            *C
     2375   01 0092B    00000000 A            DATA     X'0'              R12 OUT                           *C
     2376   01 0092C    0000000C A            DATA     X'0000000C'       MEMORY+0 IN                       *C
     2377   01 0092D    0000000C A            DATA     X'0000000C'       MEMORY+0 OUT                      *C
     2378   01 0092E    00000000 A            DATA     X'0'              R13 IN                            *C
     2379   01 0092F    00000000 A            DATA     X'0'              R13 OUT                           *C
     2380   01 00930    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2381   01 00931    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2382   01 00932    00000000 A            DATA     X'0'              R14 IN                            *C
     2383   01 00933    00000000 A            DATA     X'0'              R14 OUT                           *C
     2384   01 00934    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2385   01 00935    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2386   01 00936    1677000C A            DATA     X'1677000C'       R15 IN                            *C
     2387   01 00937    0000000C A            DATA     X'0000000C'       R15 OUT                           *C
     2388   01 00938    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2389   01 00939    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2390                                     PAGE                                                         *C
     2391   01 0093A    FFFFFFEC A   DM09     DATA     -20               DM-MULTIPLY 1957 BY 5             *C
     2392   01 0093B    7B1003DD              DM,1     MEMORY                                              *C
     2393   01 0093C    D330014A              K        13,3,3,DFSW       PSW1 IN                           *C
     2394   01 0093D    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     2395   01 0093E    00000000 A            DATA     X'0'              R12 IN                            *C
     2396   01 0093F    00000000 A            DATA     X'0'              R12 OUT                           *C
     2397   01 00940    5C000000 A            DATA     X'5C000000'       MEMORY+0 IN                       *C
     2398   01 00941    5C000000 A            DATA     X'5C000000'       MEMORY+0 OUT                      *C
     2399   01 00942    00000000 A            DATA     X'0'              R13 IN                            *C
     2400   01 00943    00000000 A            DATA     X'0'              R13 OUT                           *C
     2401   01 00944    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2402   01 00945    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2403   01 00946    00000000 A            DATA     X'0'              R14 IN                            *C
     2404   01 00947    00000000 A            DATA     X'0'              R14 OUT                           *C
     2405   01 00948    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2406   01 00949    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2407   01 0094A    0001957C A            DATA     X'0001957C'       R15 IN                            *C
     2408   01 0094B    0009785C A            DATA     X'0009785C'       R15 OUT                           *C
     2409   01 0094C    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2410   01 0094D    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2411                                     PAGE
     2412   01 0094E    FFFFFFEC A   DM10     DATA     -20               DM-MULTIPLY 9009009 BY 3          *C
     2413   01 0094F    7B1003DD              DM,1     MEMORY                                              *C
     2414   01 00950    D330014A              K        13,3,3,DFSW       PSW1 IN                           *C
     2415   01 00951    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     2416   01 00952    00000000 A            DATA     X'0'              R12 IN                            *C
     2417   01 00953    00000000 A            DATA     X'0'              R12 OUT                           *C
     2418   01 00954    3C999999 A            DATA     X'3C999999'       MEMORY+0 IN                       *C
     2419   01 00955    3C999999 A            DATA     X'3C999999'       MEMORY+0 OUT                      *C
     2420   01 00956    00000000 A            DATA     X'0'              R13 IN                            *C
     2421   01 00957    00000000 A            DATA     X'0'              R13 OUT                           *C
     2422   01 00958    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2423   01 00959    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2424   01 0095A    00000000 A            DATA     X'0'              R14 IN                            *C
     2425   01 0095B    00000002 A            DATA     X'2'              R14 OUT                           *C
     2426   01 0095C    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2427   01 0095D    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2428   01 0095E    9009009C A            DATA     X'9009009C'       R15 IN                            *C
     2429   01 0095F    7027027C A            DATA     X'7027027C'       R15 OUT                           *C
     2430   01 00960    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2431   01 00961    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2432                                     PAGE                                                         *C
     2433   01 00962    FFFFFFEC A   DM11     DATA     -20               DM-MULTIPLY 2808 BY 1             *C
     2434   01 00963    7B8003DD              DM,8     MEMORY                                              *C
     2435   01 00964    E330014A              K        14,3,3,DFSW       PSW1 IN                           *C
     2436   01 00965    13300150              K         1,3,3,LOC+2      PSW1 OUT                          *C
     2437   01 00966    00000000 A            DATA     X'0'              R12 IN                            *C
     2438   01 00967    00000000 A            DATA     X'0'              R12 OUT                           *C
     2439   01 00968    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     2440   01 00969    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     2441   01 0096A    00000000 A            DATA     X'0'              R13 IN                            *C
     2442   01 0096B    00000000 A            DATA     X'0'              R13 OUT                           *C
     2443   01 0096C    0000001D A            DATA     X'1D'             MEMORY+1 IN                       *C
     2444   01 0096D    0000001D A            DATA     X'1D'             MEMORY+1 OUT                      *C
     2445   01 0096E    00000000 A            DATA     X'0'              R14 IN                            *C
     2446   01 0096F    00000000 A            DATA     X'0'              R14 OUT                           *C
     2447   01 00970    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2448   01 00971    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2449   01 00972    0002808C A            DATA     X'0002808C'       R15 IN                            *C
     2450   01 00973    0002808D A            DATA     X'0002808D'       R15 OUT                           *C
     2451   01 00974    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2452   01 00975    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2453                                     PAGE                                                         *C
     2454   01 00976    FFFFFFEC A   DM12     DATA     -20               DM-MULTIPLY +1 BY -1              *C
     2455   01 00977    7B8003DD              DM,8     MEMORY                                              *C
     2456   01 00978    E330014A              K        14,3,3,DFSW       PSW1 IN                           *C
     2457   01 00979    13300150              K         1,3,3,LOC+2      PSW1 OUT                          *C
     2458   01 0097A    00000000 A            DATA     X'0'              R12 IN                            *C
     2459   01 0097B    00000000 A            DATA     X'0'              R12 OUT                           *C
     2460   01 0097C    00000000 A            DATA     X'0'              MEMORY+0 IN                       *C
     2461   01 0097D    00000000 A            DATA     X'0'              MEMORY+0 OUT                      *C
     2462   01 0097E    00000000 A            DATA     X'0'              R13 IN                            *C
     2463   01 0097F    00000000 A            DATA     X'0'              R13 OUT                           *C
     2464   01 00980    0000001D A            DATA     X'1D'             MEMORY+1 IN                       *C
     2465   01 00981    0000001D A            DATA     X'1D'             MEMORY+1 OUT                      *C
     2466   01 00982    00000000 A            DATA     X'0'              R14 IN                            *C
     2467   01 00983    00000000 A            DATA     X'0'              R14 OUT                           *C
     2468   01 00984    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2469   01 00985    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2470   01 00986    0000001C A            DATA     X'1C'             R15 IN                            *C
     2471   01 00987    0000001D A            DATA     X'1D'             R15 OUT                           *C
     2472   01 00988    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2473   01 00989    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2474                                     PAGE                                                         *C
     2475   01 0098A    FFFFFFEC A   DM13     DATA     -20               DM-ABORT ON ILLEGAL L FIELD       *C
     2476   01 0098B    7B9003DD              DM,9     MEMORY                                              *C
     2477   01 0098C    7310014A              K         7,3,1,DFSW       PSW1 IN                           *C
     2478   01 0098D    B3100150              K        11,3,1,LOC+2      PSW1 OUT                          *C
     2479   01 0098E    53359119 A            DATA     X'53359119'       R12 IN                            *C
     2480   01 0098F    53359119 A            DATA     X'53359119'       R12 OUT                           *C
     2481   01 00990    82398275 A            DATA     X'82398275'       MEMORY+0 IN                       *C
     2482   01 00991    82398275 A            DATA     X'82398275'       MEMORY+0 OUT                      *C
     2483   01 00992    42142773 A            DATA     X'42142773'       R13 IN                            *C
     2484   01 00993    42142773 A            DATA     X'42142773'       R13 OUT                           *C
     2485   01 00994    59887036 A            DATA     X'59887036'       MEMORY+1 IN                       *C
     2486   01 00995    59887036 A            DATA     X'59887036'       MEMORY+1 OUT                      *C
     2487   01 00996    06403689 A            DATA     X'06403689'       R14 IN                            *C
     2488   01 00997    06403689 A            DATA     X'06403689'       R14 OUT                           *C
     2489   01 00998    4D000000 A            DATA     X'4D000000'       MEMORY+2 IN                       *C
     2490   01 00999    4D000000 A            DATA     X'4D000000'       MEMORY+2 OUT                      *C
     2491   01 0099A    6508670D A            DATA     X'6508670D'       R15 IN                            *C
     2492   01 0099B    6508670D A            DATA     X'6508670D'       R15 OUT                           *C
     2493   01 0099C    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2494   01 0099D    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2495                                     PAGE                                                         *C
     2496   01 0099E    FFFFFFEC A   DM14     DATA     -20               DM-RANDOM PATTERN                 *C
     2497   01 0099F    7B7003DD              DM,7     MEMORY                                              *C
     2498   01 009A0    D330014A              K        13,3,3,DFSW       PSW1 IN                           *C
     2499   01 009A1    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     2500   01 009A2    00000000 A            DATA     X'0'              R12 IN                            *C
     2501   01 009A3    00015876 A            DATA     X'00015876'       R12 OUT                           *C
     2502   01 009A4    53808231 A            DATA     X'53808231'       MEMORY+0 IN                       *C
     2503   01 009A5    53808231 A            DATA     X'53808231'       MEMORY+0 OUT                      *C
     2504   01 009A6    00000000 A            DATA     X'0'              R13 IN                            *C
     2505   01 009A7    63031352 A            DATA     X'63031352'       R13 OUT                           *C
     2506   01 009A8    73412B86 A            DATA     X'73412B86'       MEMORY+1 IN                       *C
     2507   01 009A9    73412B86 A            DATA     X'73412B86'       MEMORY+1 OUT                      *C
     2508   01 009AA    29505950 A            DATA     X'29505950'       R14 IN                            *C
     2509   01 009AB    97390640 A            DATA     X'97390640'       R14 OUT                           *C
     2510   01 009AC    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2511   01 009AD    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2512   01 009AE    6730869B A            DATA     X'6730869B'       R15 IN                            *C
     2513   01 009AF    0455028C A            DATA     X'0455028C'       R15 OUT                           *C
     2514   01 009B0    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2515   01 009B1    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2516                                     PAGE                                                         *C
     2517   01 009B2    FFFFFFEC A   DM15     DATA     -20               DM-RANDOM PATTERN                 *C
     2518   01 009B3    7B6003DD              DM,6     MEMORY                                              *C
     2519   01 009B4    D330014A              K        13,3,3,DFSW       PSW1 IN                           *C
     2520   01 009B5    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     2521   01 009B6    00000000 A            DATA     X'0'              R12 IN                            *C
     2522   01 009B7    00000067 A            DATA     X'00000067'       R12 OUT                           *C
     2523   01 009B8    47912447 A            DATA     X'47912447'       MEMORY+0 IN                       *C
     2524   01 009B9    47912447 A            DATA     X'47912447'       MEMORY+0 OUT                      *C
     2525   01 009BA    00000000 A            DATA     X'0'              R13 IN                            *C
     2526   01 009BB    11632647 A            DATA     X'11632647'       R13 OUT                           *C
     2527   01 009BC    267C0000 A            DATA     X'267C0000'       MEMORY+1 IN                       *C
     2528   01 009BD    267C0000 A            DATA     X'267C0000'       MEMORY+1 OUT                      *C
     2529   01 009BE    14008119 A            DATA     X'14008119'       R14 IN                            *C
     2530   01 009BF    30007089 A            DATA     X'30007089'       R14 OUT                           *C
     2531   01 009C0    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2532   01 009C1    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2533   01 009C2    0382499C A            DATA     X'0382499C'       R15 IN                            *C
     2534   01 009C3    7180233C A            DATA     X'7180233C'       R15 OUT                           *C
     2535   01 009C4    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2536   01 009C5    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2537                                     PAGE                                                         *C
     2538   01 009C6    FFFFFFEC A   DM16     DATA     -20               DM-RANDOM PATTERN                 *C
     2539   01 009C7    7B5003DD              DM,5     MEMORY                                              *C
     2540   01 009C8    D330014A              K        13,3,3,DFSW       PSW1 IN                           *C
     2541   01 009C9    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     2542   01 009CA    00000000 A            DATA     X'0'              R12 IN                            *C
     2543   01 009CB    00000006 A            DATA     X'6'              R12 OUT                           *C
     2544   01 009CC    93765872 A            DATA     X'93765872'       MEMORY+0 IN                       *C
     2545   01 009CD    93765872 A            DATA     X'93765872'       MEMORY+0 OUT                      *C
     2546   01 009CE    00000000 A            DATA     X'0'              R13 IN                            *C
     2547   01 009CF    33519031 A            DATA     X'33519031'       R13 OUT                           *C
     2548   01 009D0    4C000000 A            DATA     X'4C000000'       MEMORY+1 IN                       *C
     2549   01 009D1    4C000000 A            DATA     X'4C000000'       MEMORY+1 OUT                      *C
     2550   01 009D2    67563924 A            DATA     X'67563924'       R14 IN                            *C
     2551   01 009D3    16906330 A            DATA     X'16906330'       R14 OUT                           *C
     2552   01 009D4    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2553   01 009D5    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2554   01 009D6    3739456C A            DATA     X'3739456C'       R15 IN                            *C
     2555   01 009D7    1414144C A            DATA     X'1414144C'       R15 OUT                           *C
     2556   01 009D8    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2557   01 009D9    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2558                                     PAGE                                                         *C
     2559   01 009DA    FFFFFFEC A   DM17     DATA     -20               DM-EXAMPLE FROM DEC UNIT TECH MAN *C
     2560   01 009DB    7B2003DD              DM,2     MEMORY                                              *C
     2561   01 009DC    0330014A              K         0,3,3,DFSW       PSW1 IN                           *C
     2562   01 009DD    13300150              K         1,3,3,LOC+2      PSW1 OUT                          *C
     2563   01 009DE    00000000 A            DATA     X'0'              R12 IN                            *C
     2564   01 009DF    00000000 A            DATA     X'0'              R12 OUT                           *C
     2565   01 009E0    999D0000 A            DATA     X'999D0000'       MEMORY+0 IN                       *C
     2566   01 009E1    999D0000 A            DATA     X'999D0000'       MEMORY+0 OUT                      *C
     2567   01 009E2    00000000 A            DATA     X'0'              R13 IN                            *C
     2568   01 009E3    00000000 A            DATA     X'0'              R13 OUT                           *C
     2569   01 009E4    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2570   01 009E5    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2571   01 009E6    00000000 A            DATA     X'0'              R14 IN                            *C
     2572   01 009E7    00000000 A            DATA     X'0'              R14 OUT                           *C
     2573   01 009E8    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2574   01 009E9    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2575   01 009EA    0000007C A            DATA     X'7C'             R15 IN                            *C
     2576   01 009EB    0006993D A            DATA     X'0006993D'       R15 OUT                           *C
     2577   01 009EC    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2578   01 009ED    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2579                                     PAGE
     2580   01 009EE    FFFFFFEC A   DD01     DATA     -20               DD - POS QUOT
     2581   01 009EF    7A8003DD              DD,8     MEMORY
     2582   01 009F0    D330014A              K        13,3,3,DFSW
     2583   01 009F1    23300150              K        2,3,3,LOC+2
     2584   01 009F2    07051259 A            DATA     X'07051259'
     2585   01 009F3    06610013 A            DATA     X'06610013'
     2586   01 009F4    70512596 A            DATA     X'70512596'
     2587   01 009F5    70512596 A            DATA     X'70512596'
     2588   01 009F6    61382601 A            DATA     X'61382601'
     2589   01 009F7    4078434C A            DATA     X'4078434C'
     2590   01 009F8    1382602C A            DATA     X'1382602C'
     2591   01 009F9    1382602C A            DATA     X'1382602C'
     2592   01 009FA    36097417 A            DATA     X'36097417'
     2593   01 009FB    99999999 A            DATA     X'99999999'
     2594   01 009FC    00000000 A            DATA     X'0'
     2595   01 009FD    00000000 A            DATA     X'0'
     2596   01 009FE    2695832C A            DATA     X'2695832C'
     2597   01 009FF    9999999C A            DATA     X'9999999C'
     2598   01 00A00    00000000 A            DATA     X'0'
     2599   01 00A01    00000000 A            DATA     X'0'
     2600                                     PAGE
     2601   01 00A02    FFFFFFEC A   DD02     DATA     -20               DD - NEG QUOT
     2602   01 00A03    7A8003DD              DD,8     MEMORY
     2603   01 00A04    E330014A              K        14,3,3,DFSW
     2604   01 00A05    13300150              K        1,3,3,LOC+2
     2605   01 00A06    03517849 A            DATA     X'03517849'
     2606   01 00A07    18596139 A            DATA     X'18596139'
     2607   01 00A08    35178496 A            DATA     X'35178496'
     2608   01 00A09    35178496 A            DATA     X'35178496'
     2609   01 00A0A    62804321 A            DATA     X'62804321'
     2610   01 00A0B    4765962D A            DATA     X'4765962D'
     2611   01 00A0C    2804322C A            DATA     X'2804322C'
     2612   01 00A0D    2804322C A            DATA     X'2804322C'
     2613   01 00A0E    48239146 A            DATA     X'48239146'
     2614   01 00A0F    99999999 A            DATA     X'99999999'
     2615   01 00A10    00000000 A            DATA     X'0'
     2616   01 00A11    00000000 A            DATA     X'0'
     2617   01 00A12    9157318D A            DATA     X'9157318D'
     2618   01 00A13    9999998D A            DATA     X'9999998D'
     2619   01 00A14    00000000 A            DATA     X'0'
     2620   01 00A15    00000000 A            DATA     X'0'
     2621                                     PAGE
     2622   01 00A16    FFFFFFEC A   DD03     DATA     -20               DD - L=1, NEQ QUOT 0 REM
     2623   01 00A17    7A1003DD              DD,1     MEMORY
     2624   01 00A18    F330014A              K        15,3,3,DFSW
     2625   01 00A19    13300150              K        1,3,3,LOC+2
     2626   01 00A1A    00000000 A            DATA     X'0'
     2627   01 00A1B    00000000 A            DATA     X'0'
     2628   01 00A1C    5C000000 A            DATA     X'5C000000'
     2629   01 00A1D    5C000000 A            DATA     X'5C000000'
     2630   01 00A1E    00000004 A            DATA     X'4'
     2631   01 00A1F    0000000D A            DATA     X'D'
     2632   01 00A20    00000000 A            DATA     X'0'
     2633   01 00A21    00000000 A            DATA     X'0'
     2634   01 00A22    00000000 A            DATA     X'0'
     2635   01 00A23    80000000 A            DATA     X'80000000'
     2636   01 00A24    00000000 A            DATA     X'0'
     2637   01 00A25    00000000 A            DATA     X'0'
     2638   01 00A26    0000000D A            DATA     X'D'
     2639   01 00A27    0000000D A            DATA     X'D'
     2640   01 00A28    00000000 A            DATA     X'0'
     2641   01 00A29    00000000 A            DATA     X'0'
     2642                                     PAGE
     2643   01 00A2A    FFFFFFEC A   DD04     DATA     -20               DD - OVERFLOW - TRAP
     2644   01 00A2B    7A8003DD              DD,8     MEMORY
     2645   01 00A2C    8330014A              K        8,3,3,DFSW
     2646   01 00A2D    4330014E              K        4,3,3,DFRET+1
     2647   01 00A2E    06000000 A            DATA     X'06000000'
     2648   01 00A2F    06000000 A            DATA     X'06000000'
     2649   01 00A30    60000000 A            DATA     X'60000000'
     2650   01 00A31    60000000 A            DATA     X'60000000'
     2651   01 00A32    00000000 A            DATA     X'0'
     2652   01 00A33    00000000 A            DATA     X'0'
     2653   01 00A34    0000000D A            DATA     X'D'
     2654   01 00A35    0000000D A            DATA     X'D'
     2655   01 00A36    00000000 A            DATA     X'0'
     2656   01 00A37    00000000 A            DATA     X'0'
     2657   01 00A38    00000000 A            DATA     X'0'
     2658   01 00A39    00000000 A            DATA     X'0'
     2659   01 00A3A    0000000D A            DATA     X'D'
     2660   01 00A3B    0000000D A            DATA     X'D'
     2661   01 00A3C    00000000 A            DATA     X'0'
     2662   01 00A3D    00000000 A            DATA     X'0'
     2663                                     PAGE
     2664   01 00A3E    FFFFFFEC A   DD05     DATA     -20               DD - OVERFLOW - TRAP
     2665   01 00A3F    7A8003DD              DD,8     MEMORY
     2666   01 00A40    8330014A              K        8,3,3,DFSW
     2667   01 00A41    4330014E              K        4,3,3,DFRET+1
     2668   01 00A42    05000000 A            DATA     X'05000000'
     2669   01 00A43    05000000 A            DATA     X'05000000'
     2670   01 00A44    50000000 A            DATA     X'50000000'
     2671   01 00A45    50000000 A            DATA     X'50000000'
     2672   01 00A46    00000001 A            DATA     X'1'
     2673   01 00A47    00000001 A            DATA     X'1'
     2674   01 00A48    0000000C A            DATA     X'C'
     2675   01 00A49    0000000C A            DATA     X'C'
     2676   01 00A4A    00000000 A            DATA     X'0'
     2677   01 00A4B    00000000 A            DATA     X'0'
     2678   01 00A4C    00000000 A            DATA     X'0'
     2679   01 00A4D    00000000 A            DATA     X'0'
     2680   01 00A4E    0000000C A            DATA     X'C'
     2681   01 00A4F    0000000C A            DATA     X'C'
     2682   01 00A50    00000000 A            DATA     X'0'
     2683   01 00A51    00000000 A            DATA     X'0'
     2684                                     PAGE
     2685   01 00A52    FFFFFFEC A   DD06     DATA     -20               DD - GROSS OVERFLOW - NO TRAP
     2686   01 00A53    7A4003DD              DD,4     MEMORY
     2687   01 00A54    8310014A              K        8,3,1,DFSW
     2688   01 00A55    43100150              K        4,3,1,LOC+2
     2689   01 00A56    60000000 A            DATA     X'60000000'
     2690   01 00A57    60000000 A            DATA     X'60000000'
     2691   01 00A58    0000008C A            DATA     X'8C'
     2692   01 00A59    0000008C A            DATA     X'8C'
     2693   01 00A5A    00000000 A            DATA     X'0'
     2694   01 00A5B    00000000 A            DATA     X'0'
     2695   01 00A5C    00000000 A            DATA     X'0'
     2696   01 00A5D    00000000 A            DATA     X'0'
     2697   01 00A5E    00000000 A            DATA     X'0'
     2698   01 00A5F    00000000 A            DATA     X'0'
     2699   01 00A60    00000000 A            DATA     X'0'
     2700   01 00A61    00000000 A            DATA     X'0'
     2701   01 00A62    0000000C A            DATA     X'C'
     2702   01 00A63    0000000C A            DATA     X'C'
     2703   01 00A64    00000000 A            DATA     X'0'
     2704   01 00A65    00000000 A            DATA     X'0'
     2705                                     PAGE
     2706   01 00A66    FFFFFFEC A   DD07     DATA     -20               DD - ZERO DIVIDE - NO TRAP
     2707   01 00A67    7A8003DD              DD,8     MEMORY
     2708   01 00A68    8310014A              K        8,3,1,DFSW
     2709   01 00A69    43100150              K        4,3,1,LOC+2
     2710   01 00A6A    00000000 A            DATA     X'0'
     2711   01 00A6B    00000000 A            DATA     X'0'
     2712   01 00A6C    00000000 A            DATA     X'0'
     2713   01 00A6D    00000000 A            DATA     X'0'
     2714   01 00A6E    00000000 A            DATA     X'0'
     2715   01 00A6F    00000000 A            DATA     X'0'
     2716   01 00A70    0000000D A            DATA     X'D'
     2717   01 00A71    0000000D A            DATA     X'D'
     2718   01 00A72    00000000 A            DATA     X'0'
     2719   01 00A73    00000000 A            DATA     X'0'
     2720   01 00A74    00000000 A            DATA     X'0'
     2721   01 00A75    00000000 A            DATA     X'0'
     2722   01 00A76    0000000D A            DATA     X'D'
     2723   01 00A77    0000000D A            DATA     X'D'
     2724   01 00A78    00000000 A            DATA     X'0'
     2725   01 00A79    00000000 A            DATA     X'0'
     2726                                     PAGE
     2727   01 00A7A    FFFFFFEC A   DD08     DATA     -20               DD - L=1
     2728   01 00A7B    7A1003DD              DD,1     MEMORY
     2729   01 00A7C    0330014A              K        0,3,3,DFSW
     2730   01 00A7D    23300150              K        2,3,3,LOC+2
     2731   01 00A7E    00000000 A            DATA     X'0'
     2732   01 00A7F    00000000 A            DATA     X'0'
     2733   01 00A80    3C000000 A            DATA     X'3C000000'
     2734   01 00A81    3C000000 A            DATA     X'3C000000'
     2735   01 00A82    00000000 A            DATA     X'0'
     2736   01 00A83    0000000C A            DATA     X'C'
     2737   01 00A84    00000000 A            DATA     X'0'
     2738   01 00A85    00000000 A            DATA     X'0'
     2739   01 00A86    00000000 A            DATA     X'0'
     2740   01 00A87    00000000 A            DATA     X'0'
     2741   01 00A88    00000000 A            DATA     X'0'
     2742   01 00A89    00000000 A            DATA     X'0'
     2743   01 00A8A    0000009C A            DATA     X'9C'
     2744   01 00A8B    0000003C A            DATA     X'3C'
     2745   01 00A8C    00000000 A            DATA     X'0'
     2746   01 00A8D    00000000 A            DATA     X'0'
     2747                                     PAGE
     2748   01 00A8E    FFFFFFEC A   DD09     DATA     -20               DD - L=2
     2749   01 00A8F    7A2003DD              DD,2     MEMORY
     2750   01 00A90    0330014A              K        0,3,3,DFSW
     2751   01 00A91    23300150              K        2,3,3,LOC+2
     2752   01 00A92    00000000 A            DATA     X'0'
     2753   01 00A93    00000000 A            DATA     X'0'
     2754   01 00A94    003D0000 A            DATA     X'003D0000'
     2755   01 00A95    003D0000 A            DATA     X'003D0000'
     2756   01 00A96    00000000 A            DATA     X'0'
     2757   01 00A97    0000002D A            DATA     X'2D'
     2758   01 00A98    00000000 A            DATA     X'0'
     2759   01 00A99    00000000 A            DATA     X'0'
     2760   01 00A9A    00000000 A            DATA     X'0'
     2761   01 00A9B    00000000 A            DATA     X'0'
     2762   01 00A9C    00000000 A            DATA     X'0'
     2763   01 00A9D    00000000 A            DATA     X'0'
     2764   01 00A9E    0000029D A            DATA     X'29D'
     2765   01 00A9F    0000009C A            DATA     X'9C'
     2766   01 00AA0    00000000 A            DATA     X'0'
     2767   01 00AA1    00000000 A            DATA     X'0'
     2768                                     PAGE
     2769   01 00AA2    FFFFFFEC A   DD10     DATA     -20               DD - L=3
     2770   01 00AA3    7A3003DD              DD,3     MEMORY
     2771   01 00AA4    0330014A              K        0,3,3,DFSW
     2772   01 00AA5    03300150              K        0,3,3,LOC+2
     2773   01 00AA6    00000000 A            DATA     X'0'
     2774   01 00AA7    00000000 A            DATA     X'0'
     2775   01 00AA8    00073D00 A            DATA     X'00073D00'
     2776   01 00AA9    00073D00 A            DATA     X'00073D00'
     2777   01 00AAA    00000000 A            DATA     X'0'
     2778   01 00AAB    0000029C A            DATA     X'29C'
     2779   01 00AAC    00000000 A            DATA     X'0'
     2780   01 00AAD    00000000 A            DATA     X'0'
     2781   01 00AAE    00000000 A            DATA     X'0'
     2782   01 00AAF    00000000 A            DATA     X'0'
     2783   01 00AB0    00000000 A            DATA     X'0'
     2784   01 00AB1    00000000 A            DATA     X'0'
     2785   01 00AB2    0000029C A            DATA     X'29C'
     2786   01 00AB3    0000000C A            DATA     X'C'
     2787   01 00AB4    00000000 A            DATA     X'0'
     2788   01 00AB5    00000000 A            DATA     X'0'
     2789                                     PAGE
     2790   01 00AB6    FFFFFFEC A   DD11     DATA     -20               DD - L=4
     2791   01 00AB7    7A4003DD              DD,4     MEMORY
     2792   01 00AB8    0330014A              K        0,3,3,DFSW
     2793   01 00AB9    13300150              K        1,3,3,LOC+2
     2794   01 00ABA    00000000 A            DATA     X'0'
     2795   01 00ABB    00000000 A            DATA     X'0'
     2796   01 00ABC    0000073C A            DATA     X'0000073C'
     2797   01 00ABD    0000073C A            DATA     X'0000073C'
     2798   01 00ABE    00000000 A            DATA     X'0'
     2799   01 00ABF    0000026D A            DATA     X'26D'
     2800   01 00AC0    00000000 A            DATA     X'0'
     2801   01 00AC1    00000000 A            DATA     X'0'
     2802   01 00AC2    00000000 A            DATA     X'0'
     2803   01 00AC3    00000000 A            DATA     X'0'
     2804   01 00AC4    00000000 A            DATA     X'0'
     2805   01 00AC5    00000000 A            DATA     X'0'
     2806   01 00AC6    0000829D A            DATA     X'829D'
     2807   01 00AC7    0000011D A            DATA     X'11D'
     2808   01 00AC8    00000000 A            DATA     X'0'
     2809   01 00AC9    00000000 A            DATA     X'0'
     2810                                     PAGE
     2811   01 00ACA    FFFFFFEC A   DD12     DATA     -20               DD - PREVIOUSLY INTERRUPTED
     2812   01 00ACB    7A1003DD              DD,1     MEMORY
     2813   01 00ACC    0330014A              K        0,3,3,DFSW
     2814   01 00ACD    23300150              K        2,3,3,LOC+2
     2815   01 00ACE    00000000 A            DATA     X'0'
     2816   01 00ACF    00000000 A            DATA     X'0'
     2817   01 00AD0    3D000000 A            DATA     X'3D000000'
     2818   01 00AD1    3D000000 A            DATA     X'3D000000'
     2819   01 00AD2    000014D0 A            DATA     X'14D0'
     2820   01 00AD3    0000002D A            DATA     X'2D'
     2821   01 00AD4    00000000 A            DATA     X'0'
     2822   01 00AD5    00000000 A            DATA     X'0'
     2823   01 00AD6    00000000 A            DATA     X'0'
     2824   01 00AD7    00000000 A            DATA     X'0'
     2825   01 00AD8    00000000 A            DATA     X'0'
     2826   01 00AD9    00000000 A            DATA     X'0'
     2827   01 00ADA    00000112 A            DATA     X'112'
     2828   01 00ADB    0000145C A            DATA     X'145C'
     2829   01 00ADC    00000000 A            DATA     X'0'
     2830   01 00ADD    00000000 A            DATA     X'0'
     2831                                     PAGE
     2832   01 00ADE    FFFFFFEC A   DD13     DATA     -20               DD - PREVIOUSLY INTERRUPTED
     2833   01 00ADF    7A8003DD              DD,8     MEMORY
     2834   01 00AE0    0330014A              K        0,3,3,DFSW
     2835   01 00AE1    13300150              K        1,3,3,LOC+2
     2836   01 00AE2    D0703569 A            DATA     X'D0703569'
     2837   01 00AE3    18596139 A            DATA     X'18596139'
     2838   01 00AE4    35178496 A            DATA     X'35178496'
     2839   01 00AE5    35178496 A            DATA     X'35178496'
     2840   01 00AE6    92560863 A            DATA     X'92560863'
     2841   01 00AE7    4765962D A            DATA     X'4765962D'
     2842   01 00AE8    2804322C A            DATA     X'2804322C'
     2843   01 00AE9    2804322C A            DATA     X'2804322C'
     2844   01 00AEA    88239146 A            DATA     X'88239146'
     2845   01 00AEB    99999999 A            DATA     X'99999999'
     2846   01 00AEC    00000000 A            DATA     X'0'
     2847   01 00AED    00000000 A            DATA     X'0'
     2848   01 00AEE    91573188 A            DATA     X'91573188'
     2849   01 00AEF    9999998D A            DATA     X'9999998D'
     2850   01 00AF0    00000000 A            DATA     X'0'
     2851   01 00AF1    00000000 A            DATA     X'0'
     2852                                     PAGE
     2853   01 00AF2    FFFFFFEC A   DD14     DATA     -20               DD - PREVIOUSLY INTERRUPTED
     2854   01 00AF3    7A1003DD              DD,1     MEMORY
     2855   01 00AF4    0330014A              K        0,3,3,DFSW
     2856   01 00AF5    13300150              K        1,3,3,LOC+2
     2857   01 00AF6    00000002 A            DATA     X'2'
     2858   01 00AF7    00000000 A            DATA     X'0'
     2859   01 00AF8    3D000000 A            DATA     X'3D000000'
     2860   01 00AF9    3D000000 A            DATA     X'3D000000'
     2861   01 00AFA    1100C000 A            DATA     X'1100C000'
     2862   01 00AFB    0000001C A            DATA     X'1C'
     2863   01 00AFC    00000000 A            DATA     X'0'
     2864   01 00AFD    00000000 A            DATA     X'0'
     2865   01 00AFE    00000000 A            DATA     X'0'
     2866   01 00AFF    00000002 A            DATA     X'2'
     2867   01 00B00    00000000 A            DATA     X'0'
     2868   01 00B01    00000000 A            DATA     X'0'
     2869   01 00B02    00000010 A            DATA     X'10'
     2870   01 00B03    1100000D A            DATA     X'1100000D'
     2871   01 00B04    00000000 A            DATA     X'0'
     2872   01 00B05    00000000 A            DATA     X'0'
     2873                                     PAGE
     2874   01 00B06    FFFFFFEC A   DD15     DATA     -20               DD - ZERO QUOTIENT, POS REMAINDER
     2875   01 00B07    7A3003DD              DD,3     MEMORY
     2876   01 00B08    0330014A              K        0,3,3,DFSW
     2877   01 00B09    03300150              K        0,3,3,LOC+2
     2878   01 00B0A    00000000 A            DATA     X'0'
     2879   01 00B0B    00000000 A            DATA     X'0'
     2880   01 00B0C    02468C00 A            DATA     X'02468C00'
     2881   01 00B0D    02468C00 A            DATA     X'02468C00'
     2882   01 00B0E    00000000 A            DATA     X'0'
     2883   01 00B0F    0000009C A            DATA     X'9C'
     2884   01 00B10    00000000 A            DATA     X'0'
     2885   01 00B11    00000000 A            DATA     X'0'
     2886   01 00B12    00000000 A            DATA     X'0'
     2887   01 00B13    00000000 A            DATA     X'0'
     2888   01 00B14    00000000 A            DATA     X'0'
     2889   01 00B15    00000000 A            DATA     X'0'
     2890   01 00B16    0000009C A            DATA     X'9C'
     2891   01 00B17    0000000C A            DATA     X'C'
     2892   01 00B18    00000000 A            DATA     X'0'
     2893   01 00B19    00000000 A            DATA     X'0'
     2894                                     PAGE                                                         *C
     2895   01 00B1A    FFFFFFEC A   DD16     DATA     -20               DD-DIVIDE -9 BY +2468             *C
     2896   01 00B1B    7A3003DD              DD,3     MEMORY                                              *C
     2897   01 00B1C    F330014A              K        15,3,3,DFSW       PSW1 IN                           *C
     2898   01 00B1D    03300150              K         0,3,3,LOC+2      PSW1 OUT                          *C
     2899   01 00B1E    00000000 A            DATA     X'0'              R12 IN                            *C
     2900   01 00B1F    00000000 A            DATA     X'0'              R12 OUT                           *C
     2901   01 00B20    02468C77 A            DATA     X'02468C77'       MEMORY+0 IN                       *C
     2902   01 00B21    02468C77 A            DATA     X'02468C77'       MEMORY+0 OUT                      *C
     2903   01 00B22    00000000 A            DATA     X'0'              R13 IN                            *C
     2904   01 00B23    0000009D A            DATA     X'9D'             R13 OUT                           *C
     2905   01 00B24    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2906   01 00B25    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2907   01 00B26    00000000 A            DATA     X'0'              R14 IN                            *C
     2908   01 00B27    00000000 A            DATA     X'0'              R14 OUT                           *C
     2909   01 00B28    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2910   01 00B29    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2911   01 00B2A    0000009D A            DATA     X'9D'             R15 IN                            *C
     2912   01 00B2B    0000000C A            DATA     X'C'              R15 OUT                           *C
     2913   01 00B2C    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2914   01 00B2D    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2915                                     PAGE                                                         *C
     2916   01 00B2E    FFFFFFEC A   DD17     DATA     -20               DD-DIVIDE FIELD OF NINES BY 999   *C
     2917   01 00B2F    7A4003DD              DD,4     MEMORY                                              *C
     2918   01 00B30    D330014A              K        13,3,3,DFSW       PSW1 IN                           *C
     2919   01 00B31    13300150              K         1,3,3,LOC+2      PSW1 OUT                          *C
     2920   01 00B32    00000000 A            DATA     X'0'              R12 IN                            *C
     2921   01 00B33    00000000 A            DATA     X'0'              R12 OUT                           *C
     2922   01 00B34    0000999C A            DATA     X'999C'           MEMORY+0 IN                       *C
     2923   01 00B35    0000999C A            DATA     X'999C'           MEMORY+0 OUT                      *C
     2924   01 00B36    00000009 A            DATA     X'9'              R13 IN                            *C
     2925   01 00B37    0000009D A            DATA     X'9D'             R13 OUT                           *C
     2926   01 00B38    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2927   01 00B39    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2928   01 00B3A    99999999 A            DATA     X'99999999'       R14 IN                            *C
     2929   01 00B3B    01001001 A            DATA     X'01001001'       R14 OUT                           *C
     2930   01 00B3C    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2931   01 00B3D    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2932   01 00B3E    9999999D A            DATA     X'9999999D'       R15 IN                            *C
     2933   01 00B3F    0010010D A            DATA     X'0010010D'       R15 OUT                           *C
     2934   01 00B40    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2935   01 00B41    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2936                                     PAGE                                                         *C
     2937   01 00B42    FFFFFFEC A   DD18     DATA     -20               DD-DIVIDE -1 BY -1                *C
     2938   01 00B43    7A2003DD              DD,2     MEMORY                                              *C
     2939   01 00B44    E330014A              K        14,3,3,DFSW       PSW1 IN                           *C
     2940   01 00B45    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     2941   01 00B46    00000000 A            DATA     X'0'              R12 IN                            *C
     2942   01 00B47    00000000 A            DATA     X'0'              R12 OUT                           *C
     2943   01 00B48    001D0000 A            DATA     X'001D0000'       MEMORY+0 IN                       *C
     2944   01 00B49    001D0000 A            DATA     X'001D0000'       MEMORY+0 OUT                      *C
     2945   01 00B4A    00000000 A            DATA     X'0'              R13 IN                            *C
     2946   01 00B4B    0000000D A            DATA     X'D'              R13 OUT                           *C
     2947   01 00B4C    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2948   01 00B4D    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2949   01 00B4E    00000000 A            DATA     X'0'              R14 IN                            *C
     2950   01 00B4F    00000000 A            DATA     X'0'              R14 OUT                           *C
     2951   01 00B50    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2952   01 00B51    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2953   01 00B52    0000001D A            DATA     X'1D'             R15 IN                            *C
     2954   01 00B53    0000001C A            DATA     X'1C'             R15 OUT                           *C
     2955   01 00B54    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2956   01 00B55    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2957                                     PAGE                                                         *C
     2958   01 00B56    FFFFFFEC A   DD19     DATA     -20               DD-TRAP ON ILLEGAL L FIELD        *C
     2959   01 00B57    7AA003DD              DD,10    MEMORY                                              *C
     2960   01 00B58    7330014A              K         7,3,3,DFSW       PSW1 IN                           *C
     2961   01 00B59    B330014E              K        11,3,3,DFRET+1    PSW1 OUT                          *C
     2962   01 00B5A    12121212 A            DATA     X'12121212'       R12 IN                            *C
     2963   01 00B5B    12121212 A            DATA     X'12121212'       R12 OUT                           *C
     2964   01 00B5C    00000034 A            DATA     X'34'             MEMORY+0 IN                       *C
     2965   01 00B5D    00000034 A            DATA     X'34'             MEMORY+0 OUT                      *C
     2966   01 00B5E    13131313 A            DATA     X'13131313'       R13 IN                            *C
     2967   01 00B5F    13131313 A            DATA     X'13131313'       R13 OUT                           *C
     2968   01 00B60    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     2969   01 00B61    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     2970   01 00B62    14141414 A            DATA     X'14141414'       R14 IN                            *C
     2971   01 00B63    14141414 A            DATA     X'14141414'       R14 OUT                           *C
     2972   01 00B64    000D0000 A            DATA     X'000D0000'       MEMORY+2 IN                       *C
     2973   01 00B65    000D0000 A            DATA     X'000D0000'       MEMORY+2 OUT                      *C
     2974   01 00B66    1515151C A            DATA     X'1515151C'       R15 IN                            *C
     2975   01 00B67    1515151C A            DATA     X'1515151C'       R15 OUT                           *C
     2976   01 00B68    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2977   01 00B69    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2978                                     PAGE                                                         *C
     2979   01 00B6A    FFFFFFEC A   DD20     DATA     -20               DD-RANDOM PATTERN                 *C
     2980   01 00B6B    7A7003DD              DD,7     MEMORY                                              *C
     2981   01 00B6C    D330014A              K        13,3,3,DFSW       PSW1 IN                           *C
     2982   01 00B6D    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     2983   01 00B6E    00015876 A            DATA     X'00015876'       R12 IN                            *C
     2984   01 00B6F    00000000 A            DATA     X'0'              R12 OUT                           *C
     2985   01 00B70    53808231 A            DATA     X'53808231'       MEMORY+0 IN                       *C
     2986   01 00B71    53808231 A            DATA     X'53808231'       MEMORY+0 OUT                      *C
     2987   01 00B72    63031352 A            DATA     X'63031352'       R13 IN                            *C
     2988   01 00B73    0000000D A            DATA     X'D'              R13 OUT                           *C
     2989   01 00B74    73412B86 A            DATA     X'73412B86'       MEMORY+1 IN                       *C
     2990   01 00B75    73412B86 A            DATA     X'73412B86'       MEMORY+1 OUT                      *C
     2991   01 00B76    97390640 A            DATA     X'97390640'       R14 IN                            *C
     2992   01 00B77    29505950 A            DATA     X'29505950'       R14 OUT                           *C
     2993   01 00B78    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     2994   01 00B79    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     2995   01 00B7A    0455028B A            DATA     X'0455028B'       R15 IN                            *C
     2996   01 00B7B    6730869C A            DATA     X'6730869C'       R15 OUT                           *C
     2997   01 00B7C    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     2998   01 00B7D    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     2999                                     PAGE                                                         *C
     3000   01 00B7E    FFFFFFEC A   DD21     DATA     -20               DD-RANDOM PATTERN                 *C
     3001   01 00B7F    7A6003DD              DD,6     MEMORY                                              *C
     3002   01 00B80    D330014A              K        13,3,3,DFSW       PSW1 IN                           *C
     3003   01 00B81    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     3004   01 00B82    00000067 A            DATA     X'67'             R12 IN                            *C
     3005   01 00B83    00000000 A            DATA     X'0'              R12 OUT                           *C
     3006   01 00B84    47912447 A            DATA     X'47912447'       MEMORY+0 IN                       *C
     3007   01 00B85    47912447 A            DATA     X'47912447'       MEMORY+0 OUT                      *C
     3008   01 00B86    11632647 A            DATA     X'11632647'       R13 IN                            *C
     3009   01 00B87    0000000C A            DATA     X'C'              R13 OUT                           *C
     3010   01 00B88    267C0000 A            DATA     X'267C0000'       MEMORY+1 IN                       *C
     3011   01 00B89    267C0000 A            DATA     X'267C0000'       MEMORY+1 OUT                      *C
     3012   01 00B8A    30007089 A            DATA     X'30007089'       R14 IN                            *C
     3013   01 00B8B    14008119 A            DATA     X'14008119'       R14 OUT                           *C
     3014   01 00B8C    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     3015   01 00B8D    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     3016   01 00B8E    7180233C A            DATA     X'7180233C'       R15 IN                            *C
     3017   01 00B8F    0382499C A            DATA     X'0382499C'       R15 OUT                           *C
     3018   01 00B90    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     3019   01 00B91    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     3020                                     PAGE                                                         *C
     3021   01 00B92    FFFFFFEC A   DD22     DATA     -20               DD-RANDOM PATTERN                 *C
     3022   01 00B93    7A5003DD              DD,5     MEMORY                                              *C
     3023   01 00B94    D330014A              K        13,3,3,DFSW       PSW1 IN                           *C
     3024   01 00B95    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     3025   01 00B96    00000006 A            DATA     X'6'              R12 IN                            *C
     3026   01 00B97    00000000 A            DATA     X'0'              R12 OUT                           *C
     3027   01 00B98    93765872 A            DATA     X'93765872'       MEMORY+0 IN                       *C
     3028   01 00B99    93765872 A            DATA     X'93765872'       MEMORY+0 OUT                      *C
     3029   01 00B9A    33519031 A            DATA     X'33519031'       R13 IN                            *C
     3030   01 00B9B    0000000C A            DATA     X'C'              R13 OUT                           *C
     3031   01 00B9C    4C000000 A            DATA     X'4C000000'       MEMORY+1 IN                       *C
     3032   01 00B9D    4C000000 A            DATA     X'4C000000'       MEMORY+1 OUT                      *C
     3033   01 00B9E    16906330 A            DATA     X'16906330'       R14 IN                            *C
     3034   01 00B9F    67563924 A            DATA     X'67563924'       R14 OUT                           *C
     3035   01 00BA0    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     3036   01 00BA1    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     3037   01 00BA2    1414144C A            DATA     X'1414144C'       R15 IN                            *C
     3038   01 00BA3    3739456C A            DATA     X'3739456C'       R15 OUT                           *C
     3039   01 00BA4    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     3040   01 00BA5    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     3041                                     PAGE                                                         *C
     3042   01 00BA6    FFFFFFEC A   DD23     DATA     -20               DD-EXAMPLE FROM DEC UNIT TECH MAN *C
     3043   01 00BA7    7A1003DD              DD,1     MEMORY                                              *C
     3044   01 00BA8    0330014A              K         0,3,3,DFSW       PSW1 IN                           *C
     3045   01 00BA9    23300150              K         2,3,3,LOC+2      PSW1 OUT                          *C
     3046   01 00BAA    00000000 A            DATA     X'0'              R12 IN                            *C
     3047   01 00BAB    00000000 A            DATA     X'0'              R12 OUT                           *C
     3048   01 00BAC    3D000000 A            DATA     X'3D000000'       MEMORY+0 IN                       *C
     3049   01 00BAD    3D000000 A            DATA     X'3D000000'       MEMORY+0 OUT                      *C
     3050   01 00BAE    00000000 A            DATA     X'0'              R13 IN                            *C
     3051   01 00BAF    0000002D A            DATA     X'2D'             R13 OUT                           *C
     3052   01 00BB0    00000000 A            DATA     X'0'              MEMORY+1 IN                       *C
     3053   01 00BB1    00000000 A            DATA     X'0'              MEMORY+1 OUT                      *C
     3054   01 00BB2    00000000 A            DATA     X'0'              R14 IN                            *C
     3055   01 00BB3    00000000 A            DATA     X'0'              R14 OUT                           *C
     3056   01 00BB4    00000000 A            DATA     X'0'              MEMORY+2 IN                       *C
     3057   01 00BB5    00000000 A            DATA     X'0'              MEMORY+2 OUT                      *C
     3058   01 00BB6    0000437D A            DATA     X'0000437D'       R15 IN                            *C
     3059   01 00BB7    0000145C A            DATA     X'0000145C'       R15 OUT                           *C
     3060   01 00BB8    00000000 A            DATA     X'0'              MEMORY+3 IN                       *C
     3061   01 00BB9    00000000 A            DATA     X'0'              MEMORY+3 OUT                      *C
     3062                            *
     3063   01 00BBA    FFFFFFEC A   DD24     DATA     -20               DD-DIVIDE 0 BY 9'S              *C01
     3064   01 00BBB    7A8003DD              DD,8     MEMORY                                            *C01
     3065   01 00BBC    F330014A              K        15,3,3,DFSW       PSW1 IN                         *C01
     3066   01 00BBD    03300150              K         0,3,3,LOC+2           OUT                        *C01
     3067   01 00BBE    00000000 A            DATA     X'0'              R12 IN                          *C01
     3068   01 00BBF    00000000 A            DATA     X'0'                  OUT                         *C01
     3069   01 00BC0    99999999 A            DATA     X'99999999'       MEMORY+0 IN                     *C01
     3070   01 00BC1    99999999 A            DATA     X'99999999'                OUT                    *C01
     3071   01 00BC2    00000000 A            DATA     X'0'              R13 IN                          *C01
     3072   01 00BC3    0000000C A            DATA     X'C'                  OUT                         *C01
     3073   01 00BC4    9999999C A            DATA     X'9999999C'       MEMORY+1 IN                     *C01
     3074   01 00BC5    9999999C A            DATA     X'9999999C'                OUT                    *C01
     3075   01 00BC6    00000000 A            DATA     X'0'              R14 IN                          *C01
     3076   01 00BC7    00000000 A            DATA     X'0'                  OUT                         *C01
     3077   01 00BC8    00000000 A            DATA     X'0'              MEMORY+2 IN                     *C01
     3078   01 00BC9    00000000 A            DATA     X'0'                       OUT                    *C01
     3079   01 00BCA    0000000C A            DATA     X'C'              R15 IN                          *C01
     3080   01 00BCB    0000000C A            DATA     X'C'                  OUT                         *C01
     3081   01 00BCC    00000000 A            DATA     X'0'              MEMORY+3 IN                     *C01
     3082   01 00BCD    00000000 A            DATA     X'0'                       OUT                    *C01
     3083                            *                                                                   *C01
     3084   01 00BCE    FFFFFFEC A   DD25     DATA     -20               DD-DIVIDE 0 BY 0 AND NO TRAP    *C01
     3085   01 00BCF    7A1003DD              DD,1     MEMORY                                            *C01
     3086   01 00BD0    F310014A              K        15,3,1,DFSW       PSW1 IN                         *C01
     3087   01 00BD1    73100150              K         7,3,1,LOC+2          OUT                         *C01
     3088   01 00BD2    00000000 A            DATA     X'0'              R12 IN                          *C01
     3089   01 00BD3    00000000 A            DATA     X'0'                  OUT                         *C01
     3090   01 00BD4    0D000000 A            DATA     X'0D000000'       MEMORY+0 IN                     *C01
     3091   01 00BD5    0D000000 A            DATA     X'0D000000'                OUT                    *C01
     3092   01 00BD6    00000000 A            DATA     X'0'              R13 IN                          *C01
     3093   01 00BD7    00000000 A            DATA     X'0'                  OUT                         *C01
     3094   01 00BD8    00000000 A            DATA     X'0'              MEMORY+1 IN                     *C01
     3095   01 00BD9    00000000 A            DATA     X'0'                       OUT                    *C01
     3096   01 00BDA    00000000 A            DATA     X'0'              R14 IN                          *C01
     3097   01 00BDB    00000000 A            DATA     X'0'                  OUT                         *C01
     3098   01 00BDC    00000000 A            DATA     X'0'              MEMORY+2 IN                     *C01
     3099   01 00BDD    00000000 A            DATA     X'0'                       OUT                    *C01
     3100   01 00BDE    0000000C A            DATA     X'C'              R15 IN                          *C01
     3101   01 00BDF    0000000C A            DATA     X'C'                  OUT                         *C01
     3102   01 00BE0    00000000 A            DATA     X'0'              MEMORY+3 IN                     *C01
     3103   01 00BE1    00000000 A            DATA     X'0'                       OUT                    *C01
     3104                            *
     3105   01 00BE2    FFFFFFDF A   EBS1     DATA     %-EBS2            PH1-PH5 EXIT TO PH8A VIA A0007Z,
     3106                            *                                   COUNT EQUALS ZERO.
     3107   01 00BE3    63A00F74              EBS,10   BAM               INSTRUCTION TO BE TESTED.
     3108   01 00BE4    0020014A N            DATA     LOC-4+DM+CC(0)    PSW1 IN.
     3109   01 00BE5    00200150 N            DATA     LOC+2+DM+CC(0)    PSW1 OUT.
     3110   01 00BE6    00000000 A            DATA     0                 R12 IN (R1 IN FOR EBS).
     3111   01 00BE7    00000000 A            DATA     0                 R12 OUT.
     3112   01 00BE8    00000000 A            DATA     0                 MEMORY IN.
     3113   01 00BE9    00000000 A            DATA     0                 MEMORY OUT.
     3114   01 00BEA    00000000 A            DATA     0                 R13 IN.
     3115   01 00BEB    00000000 A            DATA     0                 R13 OUT.
     3116   01 00BEC    00000000 A            DATA     0                 MEMORY+1 IN.
     3117   01 00BED    00000000 A            DATA     0                 MEMORY+1 OUT.
     3118   01 00BEE    00000000 A            DATA     0                 R14 IN.
     3119   01 00BEF    00000000 A            DATA     0                 R14 OUT.
     3120   01 00BF0    00000000 A            DATA     0                 MEMORY+2 IN.
     3121   01 00BF1    00000000 A            DATA     0                 MEMORY+2 OUT.
     3122   01 00BF2    0000000A A            DATA     10                R15 IN.
     3123   01 00BF3    0000000A A            DATA     10                R15 OUT.
     3124   01 00BF4    0000000A A            DATA     10                MEMORY+3 IN.
     3125   01 00BF5    0000000A A            DATA     10                MEMORY+3 OUT.
     3126   01 00BF6    00000000 A            DATA     0                 MEMORY+4 IN.
     3127   01 00BF7    00000000 A            DATA     0                 MEMORY+4 OUT.
     3128   01 00BF8    00000000 A            DATA     0                 MEMORY+5 IN.
     3129   01 00BF9    00000000 A            DATA     0                 MEMORY+5 OUT.
     3130   01 00BFA    00000000 A            DATA     0                 MEMORY+6 IN.
     3131   01 00BFB    00000000 A            DATA     0                 MEMORY+6 OUT.
     3132   01 00BFC    00000000 A            DATA     0                 MEMORY+7 IN.
     3133   01 00BFD    00000000 A            DATA     0                 MEMORY+7 OUT.
     3134   01 00BFE    40000000 A            GEN,8,24 ' ',0             R10 IN.
     3135   01 00BFF    00000F74              GEN,8,24 0,BAM             R11 IN.
     3136   01 00C00    40000000 A            GEN,8,24 ' ',0             R10 OUT.
     3137   01 00C01    00000F74              GEN,8,24 0,BAM             R11 OUT.
     3138   01 00C02    00000000 A            DATA     0                 R1 OUT
     3139                                     PAGE
     3140   01 00C03    FFFFFFDF A   EBS2     DATA     -33               PH1-PH5 EXIT TO PH8A VIA SWITCH 3,
     3141                            *                                   INVALID INPUT DIGIT.
     3142   01 00C04    63A00F84              EBS,10   BAM+16
     3143   01 00C05    0020014A N            DATA     LOC-4+DM+CC(0)
     3144   01 00C06    0020014E N            DATA     LOC+DM+CC(0)      TRAP EXPECTED
     3145   01 00C07    00000000 A            DATA     0
     3146   01 00C08    00000000 A            DATA     0
     3147   01 00C09    20202020 A            DATA     X'20202020'
     3148   01 00C0A    20202020 A            DATA     X'20202020'
     3149   01 00C0B    88888888 A            DATA     X'88888888'
     3150   01 00C0C    88888888 A            DATA     X'88888888'
     3151   01 00C0D    00000000 A            DATA     0
     3152   01 00C0E    00000000 A            DATA     0
     3153   01 00C0F    88888888 A            DATA     X'88888888'
     3154   01 00C10    88888888 A            DATA     X'88888888'
     3155   01 00C11    00000000 A            DATA     0
     3156   01 00C12    00000000 A            DATA     0
     3157   01 00C13    8888888C A            DATA     X'8888888C'
     3158   01 00C14    8888888C A            DATA     X'8888888C'
     3159   01 00C15    00000000 A            DATA     0
     3160   01 00C16    00000000 A            DATA     0
     3161   01 00C17    A0000000 A            DATA     X'A0000000'
     3162   01 00C18    A0000000 A            DATA     X'A0000000'
     3163   01 00C19    00000000 A            DATA     0
     3164   01 00C1A    00000000 A            DATA     0
     3165   01 00C1B    00000000 A            DATA     0
     3166   01 00C1C    00000000 A            DATA     0
     3167   01 00C1D    00000000 A            DATA     0
     3168   01 00C1E    00000000 A            DATA     0
     3169   01 00C1F    40000000 A            GEN,8,24 ' ',0
     3170   01 00C20    01000F74              GEN,8,24 1,BAM
     3171   01 00C21    40000000 A            GEN,8,24 ' ',0
     3172   01 00C22    01000F74              GEN,8,24 1,BAM
     3173   01 00C23    00000000 A            DATA     0
     3174                                     PAGE
     3175                            *                                   TRAP ON INVALID DIGIT. (B)
     3176   01 00C24    FFFFFFDF A            DATA     -33
     3177   01 00C25    63A00F74              EBS,10   BAM
     3178   01 00C26    00200149 N            DATA     LOC-5+DM+CC(0)
     3179   01 00C27    0020014E N            DATA     LOC+DM+CC(0)
     3180   01 00C28    00000000 A            DATA     0
     3181   01 00C29    00000000 A            DATA     0
     3182   01 00C2A    B0000000 A            DATA     X'B0000000'
     3183   01 00C2B    B0000000 A            DATA     X'B0000000'
     3184   01 00C2C    11111111 A            DATA     X'11111111'
     3185   01 00C2D    11111111 A            DATA     X'11111111'
     3186   01 00C2E    20202020 A            DATA     X'20202020'
     3187   01 00C2F    20202020 A            DATA     X'20202020'
     3188   01 00C30    11111111 A            DATA     X'11111111'
     3189   01 00C31    11111111 A            DATA     X'11111111'
     3190   01 00C32    00000000 A            DATA     0
     3191   01 00C33    00000000 A            DATA     0
     3192   01 00C34    1111111C A            DATA     X'1111111C'
     3193   01 00C35    1111111C A            DATA     X'1111111C'
     3194   01 00C36    00000000 A            DATA     0
     3195   01 00C37    00000000 A            DATA     0
     3196   01 00C38    00000000 A            DATA     0
     3197   01 00C39    00000000 A            DATA     0
     3198   01 00C3A    00000000 A            DATA     0
     3199   01 00C3B    00000000 A            DATA     0
     3200   01 00C3C    00000000 A            DATA     0
     3201   01 00C3D    00000000 A            DATA     0
     3202   01 00C3E    00000000 A            DATA     0
     3203   01 00C3F    00000000 A            DATA     0
     3204   01 00C40    40000000 A            GEN,8,24 ' ',0
     3205   01 00C41    01000F78              GEN,8,24 1,BAM+4
     3206   01 00C42    40000000 A            GEN,8,24 ' ',0
     3207   01 00C43    01000F78              GEN,8,24 1,BAM+4
     3208   01 00C44    00000000 A            DATA     0
     3209                                     PAGE
     3210                            *                                   TRAP ON INVALID DIGIT. (C)
     3211   01 00C45    FFFFFFDF A            DATA     -33
     3212   01 00C46    63A00F74              EBS,10   BAM
     3213   01 00C47    00200149 N            DATA     LOC-5+DM+CC(0)
     3214   01 00C48    0020014E N            DATA     LOC+DM+CC(0)
     3215   01 00C49    00000000 A            DATA     0
     3216   01 00C4A    00000000 A            DATA     0
     3217   01 00C4B    C0000000 A            DATA     X'C0000000'
     3218   01 00C4C    C0000000 A            DATA     X'C0000000'
     3219   01 00C4D    22222222 A            DATA     X'22222222'
     3220   01 00C4E    22222222 A            DATA     X'22222222'
     3221   01 00C4F    20202020 A            DATA     X'20202020'
     3222   01 00C50    20202020 A            DATA     X'20202020'
     3223   01 00C51    22222222 A            DATA     X'22222222'
     3224   01 00C52    22222222 A            DATA     X'22222222'
     3225   01 00C53    00000000 A            DATA     0
     3226   01 00C54    00000000 A            DATA     0
     3227   01 00C55    2222222C A            DATA     X'2222222C'
     3228   01 00C56    2222222C A            DATA     X'2222222C'
     3229   01 00C57    00000000 A            DATA     0
     3230   01 00C58    00000000 A            DATA     0
     3231   01 00C59    00000000 A            DATA     0
     3232   01 00C5A    00000000 A            DATA     0
     3233   01 00C5B    00000000 A            DATA     0
     3234   01 00C5C    00000000 A            DATA     0
     3235   01 00C5D    00000000 A            DATA     0
     3236   01 00C5E    00000000 A            DATA     0
     3237   01 00C5F    00000000 A            DATA     0
     3238   01 00C60    00000000 A            DATA     0
     3239   01 00C61    40000000 A            GEN,8,24 ' ',0
     3240   01 00C62    01000F78              GEN,8,24 1,BAM+4
     3241   01 00C63    40000000 A            GEN,8,24 ' ',0
     3242   01 00C64    01000F78              GEN,8,24 1,BAM+4
     3243   01 00C65    00000000 A            DATA     0
     3244                                     PAGE
     3245                            *                                   TRAP ON INVALID DIGIT. (D)
     3246   01 00C66    FFFFFFDF A            DATA     -33
     3247   01 00C67    63A00F74              EBS,10   BAM
     3248   01 00C68    00200149 N            DATA     LOC-5+DM+CC(0)
     3249   01 00C69    0020014E N            DATA     LOC+DM+CC(0)
     3250   01 00C6A    00000000 A            DATA     0
     3251   01 00C6B    00000000 A            DATA     0
     3252   01 00C6C    D0000000 A            DATA     X'D0000000'
     3253   01 00C6D    D0000000 A            DATA     X'D0000000'
     3254   01 00C6E    33333333 A            DATA     X'33333333'
     3255   01 00C6F    33333333 A            DATA     X'33333333'
     3256   01 00C70    20202020 A            DATA     X'20202020'
     3257   01 00C71    20202020 A            DATA     X'20202020'
     3258   01 00C72    33333333 A            DATA     X'33333333'
     3259   01 00C73    33333333 A            DATA     X'33333333'
     3260   01 00C74    00000000 A            DATA     0
     3261   01 00C75    00000000 A            DATA     0
     3262   01 00C76    3333333C A            DATA     X'3333333C'
     3263   01 00C77    3333333C A            DATA     X'3333333C'
     3264   01 00C78    00000000 A            DATA     0
     3265   01 00C79    00000000 A            DATA     0
     3266   01 00C7A    00000000 A            DATA     0
     3267   01 00C7B    00000000 A            DATA     0
     3268   01 00C7C    00000000 A            DATA     0
     3269   01 00C7D    00000000 A            DATA     0
     3270   01 00C7E    00000000 A            DATA     0
     3271   01 00C7F    00000000 A            DATA     0
     3272   01 00C80    00000000 A            DATA     0
     3273   01 00C81    00000000 A            DATA     0
     3274   01 00C82    40000000 A            GEN,8,24 ' ',0
     3275   01 00C83    01000F78              GEN,8,24 1,BAM+4
     3276   01 00C84    40000000 A            GEN,8,24 ' ',0
     3277   01 00C85    01000F78              GEN,8,24 1,BAM+4
     3278   01 00C86    00000000 A            DATA     0
     3279                                     PAGE
     3280                            *                                   TRAP ON INVALID DIGIT. (E)
     3281   01 00C87    FFFFFFDF A            DATA     -33
     3282   01 00C88    63A00F74              EBS,10   BAM
     3283   01 00C89    00200149 N            DATA     LOC-5+DM+CC(0)
     3284   01 00C8A    0020014E N            DATA     LOC+DM+CC(0)
     3285   01 00C8B    00000000 A            DATA     0
     3286   01 00C8C    00000000 A            DATA     0
     3287   01 00C8D    E0000000 A            DATA     X'E0000000'
     3288   01 00C8E    E0000000 A            DATA     X'E0000000'
     3289   01 00C8F    44444444 A            DATA     X'44444444'
     3290   01 00C90    44444444 A            DATA     X'44444444'
     3291   01 00C91    20202020 A            DATA     X'20202020'
     3292   01 00C92    20202020 A            DATA     X'20202020'
     3293   01 00C93    44444444 A            DATA     X'44444444'
     3294   01 00C94    44444444 A            DATA     X'44444444'
     3295   01 00C95    00000000 A            DATA     0
     3296   01 00C96    00000000 A            DATA     0
     3297   01 00C97    4444444C A            DATA     X'4444444C'
     3298   01 00C98    4444444C A            DATA     X'4444444C'
     3299   01 00C99    00000000 A            DATA     0
     3300   01 00C9A    00000000 A            DATA     0
     3301   01 00C9B    00000000 A            DATA     0
     3302   01 00C9C    00000000 A            DATA     0
     3303   01 00C9D    00000000 A            DATA     0
     3304   01 00C9E    00000000 A            DATA     0
     3305   01 00C9F    00000000 A            DATA     0
     3306   01 00CA0    00000000 A            DATA     0
     3307   01 00CA1    00000000 A            DATA     0
     3308   01 00CA2    00000000 A            DATA     0
     3309   01 00CA3    40000000 A            GEN,8,24 ' ',0
     3310   01 00CA4    01000F78              GEN,8,24 1,BAM+4
     3311   01 00CA5    40000000 A            GEN,8,24 ' ',0
     3312   01 00CA6    01000F78              GEN,8,24 1,BAM+4
     3313   01 00CA7    00000000 A            DATA     0
     3314                                     PAGE
     3315                            *                                   TRAP ON INVALID DIGIT. (F)
     3316   01 00CA8    FFFFFFDF A            DATA     -33
     3317   01 00CA9    63A00F74              EBS,10   BAM
     3318   01 00CAA    00200149 N            DATA     LOC-5+DM+CC(0)
     3319   01 00CAB    0020014E N            DATA     LOC+DM+CC(0)
     3320   01 00CAC    00000000 A            DATA     0
     3321   01 00CAD    00000000 A            DATA     0
     3322   01 00CAE    F0000000 A            DATA     X'F0000000'
     3323   01 00CAF    F0000000 A            DATA     X'F0000000'
     3324   01 00CB0    55555555 A            DATA     X'55555555'
     3325   01 00CB1    55555555 A            DATA     X'55555555'
     3326   01 00CB2    20202020 A            DATA     X'20202020'
     3327   01 00CB3    20202020 A            DATA     X'20202020'
     3328   01 00CB4    55555555 A            DATA     X'55555555'
     3329   01 00CB5    55555555 A            DATA     X'55555555'
     3330   01 00CB6    00000000 A            DATA     0
     3331   01 00CB7    00000000 A            DATA     0
     3332   01 00CB8    5555555D A            DATA     X'5555555D'
     3333   01 00CB9    5555555D A            DATA     X'5555555D'
     3334   01 00CBA    00000000 A            DATA     0
     3335   01 00CBB    00000000 A            DATA     0
     3336   01 00CBC    00000000 A            DATA     0
     3337   01 00CBD    00000000 A            DATA     0
     3338   01 00CBE    00000000 A            DATA     0
     3339   01 00CBF    00000000 A            DATA     0
     3340   01 00CC0    00000000 A            DATA     0
     3341   01 00CC1    00000000 A            DATA     0
     3342   01 00CC2    00000000 A            DATA     0
     3343   01 00CC3    00000000 A            DATA     0
     3344   01 00CC4    40000000 A            GEN,8,24 ' ',0
     3345   01 00CC5    01000F78              GEN,8,24 1,BAM+4
     3346   01 00CC6    40000000 A            GEN,8,24 ' ',0
     3347   01 00CC7    01000F78              GEN,8,24 1,BAM+4
     3348   01 00CC8    00000000 A            DATA     0
     3349                                     PAGE
     3350                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     3351   01 00CC9    FFFFFFDF A            DATA     -33
     3352   01 00CCA    63A00F74              EBS,10   BAM
     3353   01 00CCB    40200149 N            DATA     LOC-5+DM+CC(4)
     3354   01 00CCC    4020014E N            DATA     LOC+DM+CC(4)
     3355   01 00CCD    00000000 A            DATA     0
     3356   01 00CCE    00000000 A            DATA     0
     3357   01 00CCF    0A000000 A            DATA     X'0A000000'
     3358   01 00CD0    0A000000 A            DATA     X'0A000000'
     3359   01 00CD1    66666666 A            DATA     X'66666666'
     3360   01 00CD2    66666666 A            DATA     X'66666666'
     3361   01 00CD3    20202020 A            DATA     X'20202020'
     3362   01 00CD4    20202020 A            DATA     X'20202020'
     3363   01 00CD5    66666666 A            DATA     X'66666666'
     3364   01 00CD6    66666666 A            DATA     X'66666666'
     3365   01 00CD7    00000000 A            DATA     0
     3366   01 00CD8    00000000 A            DATA     0
     3367   01 00CD9    6666666D A            DATA     X'6666666D'
     3368   01 00CDA    6666666D A            DATA     X'6666666D'
     3369   01 00CDB    00000000 A            DATA     0
     3370   01 00CDC    00000000 A            DATA     0
     3371   01 00CDD    00000000 A            DATA     0
     3372   01 00CDE    00000000 A            DATA     0
     3373   01 00CDF    00000000 A            DATA     0
     3374   01 00CE0    00000000 A            DATA     0
     3375   01 00CE1    00000000 A            DATA     0
     3376   01 00CE2    00000000 A            DATA     0
     3377   01 00CE3    00000000 A            DATA     0
     3378   01 00CE4    00000000 A            DATA     0
     3379   01 00CE5    40000000 A            GEN,8,24 ' ',0
     3380   01 00CE6    01000F78              GEN,8,24 1,BAM+4
     3381   01 00CE7    40000000 A            GEN,8,24 ' ',0
     3382   01 00CE8    01000F78              GEN,8,24 1,BAM+4
     3383   01 00CE9    00000000 A            DATA     0
     3384                                     PAGE
     3385                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     3386   01 00CEA    FFFFFFDF A            DATA     -33
     3387   01 00CEB    63A00F74              EBS,10   BAM
     3388   01 00CEC    40200149 N            DATA     LOC-5+DM+CC(4)
     3389   01 00CED    4020014E N            DATA     LOC+DM+CC(4)
     3390   01 00CEE    00000000 A            DATA     0
     3391   01 00CEF    00000000 A            DATA     0
     3392   01 00CF0    0B000000 A            DATA     X'0B000000'
     3393   01 00CF1    0B000000 A            DATA     X'0B000000'
     3394   01 00CF2    77777777 A            DATA     X'77777777'
     3395   01 00CF3    77777777 A            DATA     X'77777777'
     3396   01 00CF4    20202020 A            DATA     X'20202020'
     3397   01 00CF5    20202020 A            DATA     X'20202020'
     3398   01 00CF6    77777777 A            DATA     X'77777777'
     3399   01 00CF7    77777777 A            DATA     X'77777777'
     3400   01 00CF8    00000000 A            DATA     0
     3401   01 00CF9    00000000 A            DATA     0
     3402   01 00CFA    7777777D A            DATA     X'7777777D'
     3403   01 00CFB    7777777D A            DATA     X'7777777D'
     3404   01 00CFC    00000000 A            DATA     0
     3405   01 00CFD    00000000 A            DATA     0
     3406   01 00CFE    00000000 A            DATA     0
     3407   01 00CFF    00000000 A            DATA     0
     3408   01 00D00    00000000 A            DATA     0
     3409   01 00D01    00000000 A            DATA     0
     3410   01 00D02    00000000 A            DATA     0
     3411   01 00D03    00000000 A            DATA     0
     3412   01 00D04    00000000 A            DATA     0
     3413   01 00D05    00000000 A            DATA     0
     3414   01 00D06    40000000 A            GEN,8,24 ' ',0
     3415   01 00D07    01000F78              GEN,8,24 1,BAM+4
     3416   01 00D08    40000000 A            GEN,8,24 ' ',0
     3417   01 00D09    01000F78              GEN,8,24 1,BAM+4
     3418   01 00D0A    00000000 A            DATA     0
     3419                                     PAGE
     3420                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     3421   01 00D0B    FFFFFFDF A            DATA     -33
     3422   01 00D0C    63A00F74              EBS,10   BAM
     3423   01 00D0D    40200149 N            DATA     LOC-5+DM+CC(4)
     3424   01 00D0E    4020014E N            DATA     LOC+DM+CC(4)
     3425   01 00D0F    00000000 A            DATA     0
     3426   01 00D10    00000000 A            DATA     0
     3427   01 00D11    0C000000 A            DATA     X'0C000000'
     3428   01 00D12    0C000000 A            DATA     X'0C000000'
     3429   01 00D13    88888888 A            DATA     X'88888888'
     3430   01 00D14    88888888 A            DATA     X'88888888'
     3431   01 00D15    20202020 A            DATA     X'20202020'
     3432   01 00D16    20202020 A            DATA     X'20202020'
     3433   01 00D17    88888888 A            DATA     X'88888888'
     3434   01 00D18    88888888 A            DATA     X'88888888'
     3435   01 00D19    00000000 A            DATA     0
     3436   01 00D1A    00000000 A            DATA     0
     3437   01 00D1B    8888888D A            DATA     X'8888888D'
     3438   01 00D1C    8888888D A            DATA     X'8888888D'
     3439   01 00D1D    00000000 A            DATA     0
     3440   01 00D1E    00000000 A            DATA     0
     3441   01 00D1F    00000000 A            DATA     0
     3442   01 00D20    00000000 A            DATA     0
     3443   01 00D21    00000000 A            DATA     0
     3444   01 00D22    00000000 A            DATA     0
     3445   01 00D23    00000000 A            DATA     0
     3446   01 00D24    00000000 A            DATA     0
     3447   01 00D25    00000000 A            DATA     0
     3448   01 00D26    00000000 A            DATA     0
     3449   01 00D27    40000000 A            GEN,8,24 ' ',0
     3450   01 00D28    01000F78              GEN,8,24 1,BAM+4
     3451   01 00D29    40000000 A            GEN,8,24 ' ',0
     3452   01 00D2A    01000F78              GEN,8,24 1,BAM+4
     3453   01 00D2B    00000000 A            DATA     0
     3454                                     PAGE
     3455                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     3456   01 00D2C    FFFFFFDF A            DATA     -33
     3457   01 00D2D    63A00F74              EBS,10   BAM
     3458   01 00D2E    40200149 N            DATA     LOC-5+DM+CC(4)
     3459   01 00D2F    4020014E N            DATA     LOC+DM+CC(4)
     3460   01 00D30    00000000 A            DATA     0
     3461   01 00D31    00000000 A            DATA     0
     3462   01 00D32    0D000000 A            DATA     X'0D000000'
     3463   01 00D33    0D000000 A            DATA     X'0D000000'
     3464   01 00D34    99999999 A            DATA     X'99999999'
     3465   01 00D35    99999999 A            DATA     X'99999999'
     3466   01 00D36    20202020 A            DATA     X'20202020'
     3467   01 00D37    20202020 A            DATA     X'20202020'
     3468   01 00D38    99999999 A            DATA     X'99999999'
     3469   01 00D39    99999999 A            DATA     X'99999999'
     3470   01 00D3A    00000000 A            DATA     0
     3471   01 00D3B    00000000 A            DATA     0
     3472   01 00D3C    9999999D A            DATA     X'9999999D'
     3473   01 00D3D    9999999D A            DATA     X'9999999D'
     3474   01 00D3E    00000000 A            DATA     0
     3475   01 00D3F    00000000 A            DATA     0
     3476   01 00D40    00000000 A            DATA     0
     3477   01 00D41    00000000 A            DATA     0
     3478   01 00D42    00000000 A            DATA     0
     3479   01 00D43    00000000 A            DATA     0
     3480   01 00D44    00000000 A            DATA     0
     3481   01 00D45    00000000 A            DATA     0
     3482   01 00D46    00000000 A            DATA     0
     3483   01 00D47    00000000 A            DATA     0
     3484   01 00D48    40000000 A            GEN,8,24 ' ',0
     3485   01 00D49    01000F78              GEN,8,24 1,BAM+4
     3486   01 00D4A    40000000 A            GEN,8,24 ' ',0
     3487   01 00D4B    01000F78              GEN,8,24 1,BAM+4
     3488   01 00D4C    00000000 A            DATA     0
     3489                                     PAGE
     3490                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     3491   01 00D4D    FFFFFFDF A            DATA     -33
     3492   01 00D4E    63A00F74              EBS,10   BAM
     3493   01 00D4F    40200149 N            DATA     LOC-5+DM+CC(4)
     3494   01 00D50    4020014E N            DATA     LOC+DM+CC(4)
     3495   01 00D51    00000000 A            DATA     0
     3496   01 00D52    00000000 A            DATA     0
     3497   01 00D53    0E000000 A            DATA     X'0E000000'
     3498   01 00D54    0E000000 A            DATA     X'0E000000'
     3499   01 00D55    11111111 A            DATA     X'11111111'
     3500   01 00D56    11111111 A            DATA     X'11111111'
     3501   01 00D57    20202020 A            DATA     X'20202020'
     3502   01 00D58    20202020 A            DATA     X'20202020'
     3503   01 00D59    11111111 A            DATA     X'11111111'
     3504   01 00D5A    11111111 A            DATA     X'11111111'
     3505   01 00D5B    00000000 A            DATA     0
     3506   01 00D5C    00000000 A            DATA     0
     3507   01 00D5D    1111111D A            DATA     X'1111111D'
     3508   01 00D5E    1111111D A            DATA     X'1111111D'
     3509   01 00D5F    00000000 A            DATA     0
     3510   01 00D60    00000000 A            DATA     0
     3511   01 00D61    00000000 A            DATA     0
     3512   01 00D62    00000000 A            DATA     0
     3513   01 00D63    00000000 A            DATA     0
     3514   01 00D64    00000000 A            DATA     0
     3515   01 00D65    00000000 A            DATA     0
     3516   01 00D66    00000000 A            DATA     0
     3517   01 00D67    00000000 A            DATA     0
     3518   01 00D68    00000000 A            DATA     0
     3519   01 00D69    40000000 A            GEN,8,24 ' ',0
     3520   01 00D6A    01000F78              GEN,8,24 1,BAM+4
     3521   01 00D6B    40000000 A            GEN,8,24 ' ',0
     3522   01 00D6C    01000F78              GEN,8,24 1,BAM+4
     3523   01 00D6D    00000000 A            DATA     0
     3524                                     PAGE
     3525                            *                                   TRAP ON INVALID DIGIT, RIGHT DIGIT.
     3526   01 00D6E    FFFFFFDF A            DATA     -33
     3527   01 00D6F    63A00F74              EBS,10   BAM
     3528   01 00D70    40200149 N            DATA     LOC-5+DM+CC(4)
     3529   01 00D71    4020014E N            DATA     LOC+DM+CC(4)
     3530   01 00D72    00000000 A            DATA     0
     3531   01 00D73    00000000 A            DATA     0
     3532   01 00D74    0F000000 A            DATA     X'0F000000'
     3533   01 00D75    0F000000 A            DATA     X'0F000000'
     3534   01 00D76    22222222 A            DATA     X'22222222'
     3535   01 00D77    22222222 A            DATA     X'22222222'
     3536   01 00D78    20202020 A            DATA     X'20202020'
     3537   01 00D79    20202020 A            DATA     X'20202020'
     3538   01 00D7A    22222222 A            DATA     X'22222222'
     3539   01 00D7B    22222222 A            DATA     X'22222222'
     3540   01 00D7C    00000000 A            DATA     0
     3541   01 00D7D    00000000 A            DATA     0
     3542   01 00D7E    2222222D A            DATA     X'2222222D'
     3543   01 00D7F    2222222D A            DATA     X'2222222D'
     3544   01 00D80    00000000 A            DATA     0
     3545   01 00D81    00000000 A            DATA     0
     3546   01 00D82    00000000 A            DATA     0
     3547   01 00D83    00000000 A            DATA     0
     3548   01 00D84    00000000 A            DATA     0
     3549   01 00D85    00000000 A            DATA     0
     3550   01 00D86    00000000 A            DATA     0
     3551   01 00D87    00000000 A            DATA     0
     3552   01 00D88    00000000 A            DATA     0
     3553   01 00D89    00000000 A            DATA     0
     3554   01 00D8A    40000000 A            GEN,8,24 ' ',0
     3555   01 00D8B    01000F78              GEN,8,24 1,BAM+4
     3556   01 00D8C    40000000 A            GEN,8,24 ' ',0
     3557   01 00D8D    01000F78              GEN,8,24 1,BAM+4
     3558   01 00D8E    00000000 A            DATA     0
     3559                                     PAGE
     3560                            *                                   VALID POSITIVE ZERO, 1 BYTE.
     3561   01 00D8F    FFFFFFE0 A   EBS3     DATA     %-EBS4
     3562   01 00D90    63A00F84              EBS,10   BA(MEMORY+4)
     3563   01 00D91    0020014A N            DATA     LOC-4+DM+CC(0)
     3564   01 00D92    80200150 N            DATA     LOC+2+DM+CC(8)
     3565   01 00D93    00000000 A            DATA     0
     3566   01 00D94    00000000 A            DATA     0
     3567   01 00D95    00000000 A            DATA     0
     3568   01 00D96    00000000 A            DATA     0
     3569   01 00D97    99999999 A            DATA     X'99999999'
     3570   01 00D98    99999999 A            DATA     X'99999999'
     3571   01 00D99    00000000 A            DATA     0
     3572   01 00D9A    00000000 A            DATA     0
     3573   01 00D9B    99999999 A            DATA     X'99999999'
     3574   01 00D9C    99999999 A            DATA     X'99999999'
     3575   01 00D9D    00000000 A            DATA     0
     3576   01 00D9E    00000000 A            DATA     0
     3577   01 00D9F    9999999C A            DATA     X'9999999C'
     3578   01 00DA0    9999999C A            DATA     X'9999999C'
     3579   01 00DA1    00000000 A            DATA     0
     3580   01 00DA2    00000000 A            DATA     0
     3581   01 00DA3    0C000000 A            DATA     X'0C'**24
     3582   01 00DA4    0C000000 A            DATA     X'0C'**24
     3583   01 00DA5    20000000 A            DATA     X'20'**24
     3584   01 00DA6    40000000 A            DATA     X'40000000'
     3585         00000004                    DO       4
     3586   01 00DA7    00000000 A            DATA     0
     3587                                     FIN
            01 00DA8    00000000 A
            01 00DA9    00000000 A
            01 00DAA    00000000 A
     3588   01 00DAB    40000000 A            GEN,8,24 ' ',0
     3589   01 00DAC    01000F88              GEN,8,24 1,BA(MEMORY+5)
     3590   01 00DAD    40000001 A            GEN,8,24 ' ',1
     3591   01 00DAE    00000F89              GEN,8,24 0,BA(MEMORY+5)+1
     3592                                     PAGE
     3593         01 00DAF           EBS4     EQU      %
     3594                            *                                   VALID SIGN OF X'A'.
     3595   01 00DAF    FFFFFFDF A            DATA     -33
     3596   01 00DB0    63A00F84              EBS,10   BA(MEMORY+4)
     3597   01 00DB1    0020014A N            DATA     LOC-4+DM+CC(0)
     3598   01 00DB2    80200150 N            DATA     LOC+2+DM+CC(8)
     3599   01 00DB3    00000000 A            DATA     0
     3600   01 00DB4    00000000 A            DATA     0
     3601   01 00DB5    00000000 A            DATA     0
     3602   01 00DB6    00000000 A            DATA     0
     3603   01 00DB7    11121314 A            DATA     X'11121314'
     3604   01 00DB8    11121314 A            DATA     X'11121314'
     3605   01 00DB9    00000000 A            DATA     0
     3606   01 00DBA    00000000 A            DATA     0
     3607   01 00DBB    15161718 A            DATA     X'15161718'
     3608   01 00DBC    15161718 A            DATA     X'15161718'
     3609   01 00DBD    00000000 A            DATA     0
     3610   01 00DBE    00000000 A            DATA     0
     3611   01 00DBF    1992939D A            DATA     X'1992939D'
     3612   01 00DC0    1992939D A            DATA     X'1992939D'
     3613   01 00DC1    0000000C A            DATA     12
     3614   01 00DC2    0000000C A            DATA     12
     3615   01 00DC3    0A000000 A            GEN,4,4,24  0,10,0
     3616   01 00DC4    0A000000 A            GEN,4,4,24  0,10,0
     3617   01 00DC5    20202020 A            DATA     X'20202020'
     3618   01 00DC6    40202020 A            DATA     X'40202020'
     3619   01 00DC7    00000000 A            DATA     0
     3620   01 00DC8    00000000 A            DATA     0
     3621   01 00DC9    00000000 A            DATA     0
     3622   01 00DCA    00000000 A            DATA     0
     3623   01 00DCB    40000000 A            GEN,8,24 ' ',0
     3624   01 00DCC    01000F88              GEN,8,24 1,BA(MEMORY+5)
     3625   01 00DCD    40000001 A            GEN,8,24 ' ',1
     3626   01 00DCE    00000F89              GEN,8,24 0,BA(MEMORY+5)+1
     3627   01 00DCF    00000000 A            DATA     0
     3628                                     PAGE
     3629                            *                                   VALID SIGN OF X'B'.
     3630   01 00DD0    FFFFFFDF A            DATA     -33
     3631   01 00DD1    63A00F84              EBS,10   BA(MEMORY+4)
     3632   01 00DD2    0020014A N            DATA     LOC-4+DM+CC(0)
     3633   01 00DD3    90200150 N            DATA     LOC+2+DM+CC(9)
     3634   01 00DD4    00000000 A            DATA     0
     3635   01 00DD5    00000000 A            DATA     0
     3636   01 00DD6    00000000 A            DATA     0
     3637   01 00DD7    00000000 A            DATA     0
     3638   01 00DD8    55555553 A            DATA     X'55555553'
     3639   01 00DD9    55555553 A            DATA     X'55555553'
     3640   01 00DDA    00000000 A            DATA     0
     3641   01 00DDB    00000000 A            DATA     0
     3642   01 00DDC    66666664 A            DATA     X'66666664'
     3643   01 00DDD    66666664 A            DATA     X'66666664'
     3644   01 00DDE    00000000 A            DATA     0
     3645   01 00DDF    00000000 A            DATA     0
     3646   01 00DE0    8888888C A            DATA     X'8888888C'
     3647   01 00DE1    8888888C A            DATA     X'8888888C'
     3648   01 00DE2    0000000C A            DATA     12
     3649   01 00DE3    0000000C A            DATA     12
     3650   01 00DE4    0B000000 A            GEN,4,4,24  0,11,0
     3651   01 00DE5    0B000000 A            GEN,4,4,24  0,11,0
     3652   01 00DE6    20202020 A            DATA     X'20202020'
     3653   01 00DE7    40202020 A            DATA     X'40202020'
     3654   01 00DE8    00000000 A            DATA     0
     3655   01 00DE9    00000000 A            DATA     0
     3656   01 00DEA    00000000 A            DATA     0
     3657   01 00DEB    00000000 A            DATA     0
     3658   01 00DEC    40000000 A            GEN,8,24 ' ',0
     3659   01 00DED    01000F88              GEN,8,24 1,BA(MEMORY+5)
     3660   01 00DEE    40000001 A            GEN,8,24 ' ',1
     3661   01 00DEF    00000F89              GEN,8,24 0,BA(MEMORY+5)+1
     3662   01 00DF0    00000000 A            DATA     0
     3663                                     PAGE
     3664                            *                                   VALID SIGN OF X'C'.
     3665   01 00DF1    FFFFFFDF A            DATA     -33
     3666   01 00DF2    63A00F84              EBS,10   BA(MEMORY+4)
     3667   01 00DF3    0020014A N            DATA     LOC-4+DM+CC(0)
     3668   01 00DF4    80200150 N            DATA     LOC+2+DM+CC(8)
     3669   01 00DF5    00000000 A            DATA     0
     3670   01 00DF6    00000000 A            DATA     0
     3671   01 00DF7    00000000 A            DATA     0
     3672   01 00DF8    00000000 A            DATA     0
     3673   01 00DF9    81828384 A            DATA     X'81828384'
     3674   01 00DFA    81828384 A            DATA     X'81828384'
     3675   01 00DFB    00000000 A            DATA     0
     3676   01 00DFC    00000000 A            DATA     0
     3677   01 00DFD    91929394 A            DATA     X'91929394'
     3678   01 00DFE    91929394 A            DATA     X'91929394'
     3679   01 00DFF    00000000 A            DATA     0
     3680   01 00E00    00000000 A            DATA     0
     3681   01 00E01    7172737D A            DATA     X'7172737D'
     3682   01 00E02    7172737D A            DATA     X'7172737D'
     3683   01 00E03    0000000C A            DATA     12
     3684   01 00E04    0000000C A            DATA     12
     3685   01 00E05    0C000000 A            GEN,4,4,24  0,12,0
     3686   01 00E06    0C000000 A            GEN,4,4,24  0,12,0
     3687   01 00E07    20202020 A            DATA     X'20202020'
     3688   01 00E08    40202020 A            DATA     X'40202020'
     3689   01 00E09    00000000 A            DATA     0
     3690   01 00E0A    00000000 A            DATA     0
     3691   01 00E0B    00000000 A            DATA     0
     3692   01 00E0C    00000000 A            DATA     0
     3693   01 00E0D    40000000 A            GEN,8,24 ' ',0
     3694   01 00E0E    01000F88              GEN,8,24 1,BA(MEMORY+5)
     3695   01 00E0F    40000001 A            GEN,8,24 ' ',1
     3696   01 00E10    00000F89              GEN,8,24 0,BA(MEMORY+5)+1
     3697   01 00E11    00000000 A            DATA     0
     3698                                     PAGE
     3699                            *                                   VALID SIGN OF X'D'.
     3700   01 00E12    FFFFFFDF A            DATA     -33
     3701   01 00E13    63A00F84              EBS,10   BA(MEMORY+4)
     3702   01 00E14    0020014A N            DATA     LOC-4+DM+CC(0)
     3703   01 00E15    90200150 N            DATA     LOC+2+DM+CC(9)
     3704   01 00E16    00000000 A            DATA     0
     3705   01 00E17    00000000 A            DATA     0
     3706   01 00E18    00000000 A            DATA     0
     3707   01 00E19    00000000 A            DATA     0
     3708   01 00E1A    23232323 A            DATA     X'23232323'
     3709   01 00E1B    23232323 A            DATA     X'23232323'
     3710   01 00E1C    00000000 A            DATA     0
     3711   01 00E1D    00000000 A            DATA     0
     3712   01 00E1E    94929395 A            DATA     X'94929395'
     3713   01 00E1F    94929395 A            DATA     X'94929395'
     3714   01 00E20    00000000 A            DATA     0
     3715   01 00E21    00000000 A            DATA     0
     3716   01 00E22    1231231C A            DATA     X'1231231C'
     3717   01 00E23    1231231C A            DATA     X'1231231C'
     3718   01 00E24    0000000C A            DATA     12
     3719   01 00E25    0000000C A            DATA     12
     3720   01 00E26    0D000000 A            GEN,4,4,24  0,13,0
     3721   01 00E27    0D000000 A            GEN,4,4,24  0,13,0
     3722   01 00E28    20202020 A            DATA     X'20202020'
     3723   01 00E29    40202020 A            DATA     X'40202020'
     3724   01 00E2A    00000000 A            DATA     0
     3725   01 00E2B    00000000 A            DATA     0
     3726   01 00E2C    00000000 A            DATA     0
     3727   01 00E2D    00000000 A            DATA     0
     3728   01 00E2E    40000000 A            GEN,8,24 ' ',0
     3729   01 00E2F    01000F88              GEN,8,24 1,BA(MEMORY+5)
     3730   01 00E30    40000001 A            GEN,8,24 ' ',1
     3731   01 00E31    00000F89              GEN,8,24 0,BA(MEMORY+5)+1
     3732   01 00E32    00000000 A            DATA     0
     3733                                     PAGE
     3734                            *                                   VALID SIGN OF X'E'.
     3735   01 00E33    FFFFFFDF A            DATA     -33
     3736   01 00E34    63A00F84              EBS,10   BA(MEMORY+4)
     3737   01 00E35    0020014A N            DATA     LOC-4+DM+CC(0)
     3738   01 00E36    80200150 N            DATA     LOC+2+DM+CC(8)
     3739   01 00E37    00000000 A            DATA     0
     3740   01 00E38    00000000 A            DATA     0
     3741   01 00E39    00000000 A            DATA     0
     3742   01 00E3A    00000000 A            DATA     0
     3743   01 00E3B    01020356 A            DATA     X'01020356'
     3744   01 00E3C    01020356 A            DATA     X'01020356'
     3745   01 00E3D    00000000 A            DATA     0
     3746   01 00E3E    00000000 A            DATA     0
     3747   01 00E3F    73737372 A            DATA     X'73737372'
     3748   01 00E40    73737372 A            DATA     X'73737372'
     3749   01 00E41    00000000 A            DATA     0
     3750   01 00E42    00000000 A            DATA     0
     3751   01 00E43    9696968D A            DATA     X'9696968D'
     3752   01 00E44    9696968D A            DATA     X'9696968D'
     3753   01 00E45    0000000C A            DATA     12
     3754   01 00E46    0000000C A            DATA     12
     3755   01 00E47    0E000000 A            GEN,4,4,24  0,14,0
     3756   01 00E48    0E000000 A            GEN,4,4,24  0,14,0
     3757   01 00E49    20202020 A            DATA     X'20202020'
     3758   01 00E4A    40202020 A            DATA     X'40202020'
     3759   01 00E4B    00000000 A            DATA     0
     3760   01 00E4C    00000000 A            DATA     0
     3761   01 00E4D    00000000 A            DATA     0
     3762   01 00E4E    00000000 A            DATA     0
     3763   01 00E4F    40000000 A            GEN,8,24 ' ',0
     3764   01 00E50    01000F88              GEN,8,24 1,BA(MEMORY+5)
     3765   01 00E51    40000001 A            GEN,8,24 ' ',1
     3766   01 00E52    00000F89              GEN,8,24 0,BA(MEMORY+5)+1
     3767   01 00E53    00000000 A            DATA     0
     3768                                     PAGE
     3769                            *                                   VALID SIGN OF X'F'.
     3770   01 00E54    FFFFFFDF A            DATA     -33
     3771   01 00E55    63A00F84              EBS,10   BA(MEMORY+4)
     3772   01 00E56    0020014A N            DATA     LOC-4+DM+CC(0)
     3773   01 00E57    80200150 N            DATA     LOC+2+DM+CC(8)
     3774   01 00E58    00000000 A            DATA     0
     3775   01 00E59    00000000 A            DATA     0
     3776   01 00E5A    00000000 A            DATA     0
     3777   01 00E5B    00000000 A            DATA     0
     3778   01 00E5C    53535353 A            DATA     X'53535353'
     3779   01 00E5D    53535353 A            DATA     X'53535353'
     3780   01 00E5E    00000000 A            DATA     0
     3781   01 00E5F    00000000 A            DATA     0
     3782   01 00E60    64646464 A            DATA     X'64646464'
     3783   01 00E61    64646464 A            DATA     X'64646464'
     3784   01 00E62    00000000 A            DATA     0
     3785   01 00E63    00000000 A            DATA     0
     3786   01 00E64    8675423C A            DATA     X'8675423C'
     3787   01 00E65    8675423C A            DATA     X'8675423C'
     3788   01 00E66    0000000C A            DATA     12
     3789   01 00E67    0000000C A            DATA     12
     3790   01 00E68    0F000000 A            GEN,4,4,24  0,15,0
     3791   01 00E69    0F000000 A            GEN,4,4,24  0,15,0
     3792   01 00E6A    20202020 A            DATA     X'20202020'
     3793   01 00E6B    40202020 A            DATA     X'40202020'
     3794   01 00E6C    00000000 A            DATA     0
     3795   01 00E6D    00000000 A            DATA     0
     3796   01 00E6E    00000000 A            DATA     0
     3797   01 00E6F    00000000 A            DATA     0
     3798   01 00E70    40000000 A            GEN,8,24 ' ',0
     3799   01 00E71    01000F88              GEN,8,24 1,BA(MEMORY+5)
     3800   01 00E72    40000001 A            GEN,8,24 ' ',1
     3801   01 00E73    00000F89              GEN,8,24 0,BA(MEMORY+5)+1
     3802   01 00E74    00000000 A            DATA     0
     3803                                     PAGE
     3804   01 00E75    FFFFFFE0 A   EBS5     DATA     %-EBS6
     3805                            *                                   TEST START ON RIGHT-MOST DIGIT.
     3806   01 00E76    63A00F84              EBS,10   BA(MEMORY+4)
     3807   01 00E77    4020014A N            DATA     LOC-4+DM+CC(4)
     3808   01 00E78    00200150 N            DATA     LOC+2+DM+CC(0)
     3809   01 00E79    00000000 A            DATA     0
     3810   01 00E7A    00000000 A            DATA     0
     3811   01 00E7B    00000000 A            DATA     0
     3812   01 00E7C    00000000 A            DATA     0
     3813   01 00E7D    31243459 A            DATA     X'31243459'
     3814   01 00E7E    31243459 A            DATA     X'31243459'
     3815   01 00E7F    00000000 A            DATA     0
     3816   01 00E80    00000000 A            DATA     0
     3817   01 00E81    19911991 A            DATA     X'19911991'
     3818   01 00E82    19911991 A            DATA     X'19911991'
     3819   01 00E83    00000000 A            DATA     0
     3820   01 00E84    00000000 A            DATA     0
     3821   01 00E85    9119911C A            DATA     X'9119911C'
     3822   01 00E86    9119911C A            DATA     X'9119911C'
     3823   01 00E87    00000000 A            DATA     0
     3824   01 00E88    00000000 A            DATA     0
     3825   01 00E89    00C00000 A            DATA     X'00C00000'
     3826   01 00E8A    00C00000 A            DATA     X'00C00000'
     3827   01 00E8B    20202020 A            DATA     X'20202020'
     3828   01 00E8C    40202020 A            DATA     X'40202020'
     3829   01 00E8D    00000000 A            DATA     0
     3830   01 00E8E    00000000 A            DATA     0
     3831   01 00E8F    00000000 A            DATA     0
     3832   01 00E90    00000000 A            DATA     0
     3833   01 00E91    40000000 A            GEN,8,24 ' ',0
     3834   01 00E92    01000F88              GEN,8,24 1,BAM+20
     3835   01 00E93    40000001 A            GEN,8,24 ' ',1
     3836   01 00E94    00000F89              GEN,8,24 0,BAM+21
     3837                                     PAGE
     3838   01 00E95    FFFFFFE0 A   EBS6     DATA     %-EBS7
     3839                            *                                   TEST END ON BYTE ONE.
     3840   01 00E96    63A00F80              EBS,10   BA(MEMORY+3)
     3841   01 00E97    0020014A N            DATA     LOC-4+DM+CC(0)
     3842   01 00E98    80200150 N            DATA     LOC+2+DM+CC(8)
     3843         0000000C                    DO       12
     3844   01 00E99    00000000 A            DATA     0
     3845                                     FIN
            01 00E9A    00000000 A
            01 00E9B    00000000 A
            01 00E9C    00000000 A
            01 00E9D    00000000 A
            01 00E9E    00000000 A
            01 00E9F    00000000 A
            01 00EA0    00000000 A
            01 00EA1    00000000 A
            01 00EA2    00000000 A
            01 00EA3    00000000 A
            01 00EA4    00000000 A
     3846   01 00EA5    0000000C A            DATA     12,12
            01 00EA6    0000000C A
     3847   01 00EA7    00000000 A            DATA     0
     3848   01 00EA8    00000000 A            DATA     0
     3849   01 00EA9    0C000000 A            DATA     X'0C000000'
     3850   01 00EAA    0C000000 A            DATA     X'0C000000'
     3851   01 00EAB    20202020 A            DATA     X'20202020'
     3852   01 00EAC    40404040 A            DATA     '    '
     3853   01 00EAD    20202020 A            DATA     X'20202020'
     3854   01 00EAE    40404040 A            DATA     '    '
     3855   01 00EAF    20202020 A            DATA     X'20202020'
     3856   01 00EB0    40202020 A            DATA     X'40202020'
     3857   01 00EB1    40000000 A            GEN,8,24 ' ',0
     3858   01 00EB2    09000F88              GEN,8,24 9,BA(MEMORY+5)
     3859   01 00EB3    40000005 A            GEN,8,24 ' ',5
     3860   01 00EB4    00000F91              GEN,8,24 0,BA(MEMORY+5)+9
     3861   01 00EB5    FFFFFFDF A   EBS7     DATA     -33
     3862   01 00EB6    63A00F80              EBS,10   BA(MEMORY+3)      TEST NO CHANGE OF DESTINATION ON
     3863                            *                                   NEGATIVE SIGN OF X'B'.
     3864                            *
     3865   01 00EB7    00200149 N            DATA     LOC-5+DM+CC(0)
     3866   01 00EB8    B0200150 N            DATA     LOC+2+DM+CC(11)
     3867   01 00EB9    00000000 A            DATA     0
     3868   01 00EBA    00000000 A            DATA     0
     3869   01 00EBB    00000000 A            DATA     0
     3870   01 00EBC    00000000 A            DATA     0
     3871   01 00EBD    87654321 A            DATA     X'87654321'       DATA FOR COMPOUND DECIMAL.
     3872   01 00EBE    87654321 A            DATA     X'87654321'       *
     3873   01 00EBF    00000000 A            DATA     0
     3874   01 00EC0    00000000 A            DATA     0
     3875   01 00EC1    09192939 A            DATA     X'09192939'       *
     3876   01 00EC2    09192939 A            DATA     X'09192939'       *
     3877   01 00EC3    00000000 A            DATA     0
     3878   01 00EC4    00000000 A            DATA     0
     3879   01 00EC5    8999182C A            DATA     X'8999182C'       *
     3880   01 00EC6    8999182C A            DATA     X'8999182C'       *
     3881   01 00EC7    0000100B A            DATA     X'0000100B'       SOURCE IN. (MEMORY+3)
     3882   01 00EC8    0000100B A            DATA     X'0000100B'       SOURCE OUT.
     3883   01 00EC9    20202020 A            DATA     X'20202020'       DESINATION IN. (WORD 1, MEMORY+4)
     3884   01 00ECA    40404040 A            DATA     '    '            DESTINATION OUT.
     3885   01 00ECB    20202040 A            DATA     X'20202040'       DESTINATION IN. (WORD 2, MEMORY+5)
     3886   01 00ECC    F1F0F040 A            DATA     X'F1F0F040'       DESTINATION OUT.
     3887   01 00ECD    40C3D940 A            DATA     X'40C3D940'       DESTINATION IN. (WORD 3, MEMORY+6)
     3888   01 00ECE    40C3D940 A            DATA     X'40C3D940'       DESTINATION OUT.
     3889   01 00ECF    00000000 A            DATA     0
     3890   01 00ED0    00000000 A            DATA     0
     3891   01 00ED1    40000000 A            GEN,8,24 ' ',0
     3892   01 00ED2    08000F84              GEN,8,24 8,BA(MEMORY+4)
     3893   01 00ED3    40000004 A            GEN,8,24 ' ',4
     3894   01 00ED4    00000F8C              GEN,8,24 0,BA(MEMORY+4)+8
     3895   01 00ED5    00000F88              DATA     BA(MEMORY+5)
     3896                                     PAGE
     3897   01 00ED6    FFFFFFDF A            DATA     -33
     3898   01 00ED7    63A00F80              EBS,10   BA(MEMORY+3)      TEST NO CHANGE OF DESTINATION ON
     3899                            *                                   NEGATIVE SIGN OF X'D'.
     3900   01 00ED8    00200149 N            DATA     LOC-5+DM+CC(0)
     3901   01 00ED9    B0200150 N            DATA     LOC+2+DM+CC(11)
     3902   01 00EDA    00000000 A            DATA     0
     3903   01 00EDB    00000000 A            DATA     0
     3904   01 00EDC    00000000 A            DATA     0
     3905   01 00EDD    00000000 A            DATA     0
     3906   01 00EDE    11111111 A            DATA     X'11111111'
     3907   01 00EDF    11111111 A            DATA     X'11111111'
     3908   01 00EE0    00000000 A            DATA     0
     3909   01 00EE1    00000000 A            DATA     0
     3910   01 00EE2    22222222 A            DATA     X'22222222'
     3911   01 00EE3    22222222 A            DATA     X'22222222'
     3912   01 00EE4    00000000 A            DATA     0
     3913   01 00EE5    00000000 A            DATA     0
     3914   01 00EE6    3333333D A            DATA     X'3333333D'
     3915   01 00EE7    3333333D A            DATA     X'3333333D'
     3916   01 00EE8    0000100D A            DATA     X'0000100D'
     3917   01 00EE9    0000100D A            DATA     X'0000100D'
     3918   01 00EEA    20202020 A            DATA     X'20202020'
     3919   01 00EEB    40404040 A            DATA     '    '
     3920   01 00EEC    20202040 A            DATA     X'20202040'
     3921   01 00EED    F1F0F040 A            DATA     '100 '
     3922   01 00EEE    40C3D940 A            DATA     ' CR '
     3923   01 00EEF    40C3D940 A            DATA     ' CR '
     3924   01 00EF0    00000000 A            DATA     0
     3925   01 00EF1    00000000 A            DATA     0
     3926   01 00EF2    40000000 A            GEN,8,24 ' ',0
     3927   01 00EF3    0C000F84              GEN,8,24 12,BAM+16
     3928   01 00EF4    40000004 A            GEN,8,24 ' ',4
     3929   01 00EF5    00000F90              GEN,8,24 0,BAM+28
     3930   01 00EF6    00000F88              DATA     BA(MEMORY+5)
     3931                                     PAGE
     3932                            *                                   TEST VALID SUMMING OF DISPLACEMENT.
     3933   01 00EF7    FFFFFFDF A            DATA     -33
     3934   01 00EF8    63A00F71              EBS,10   BAM-3
     3935   01 00EF9    00200149 N            DATA     LOC-5+DM+CC(0)
     3936   01 00EFA    80200150 N            DATA     LOC+2+DM+CC(8)
     3937   01 00EFB    00000000 A            DATA     0
     3938   01 00EFC    00000000 A            DATA     0
     3939   01 00EFD    0C000000 A            DATA     X'0C000000'
     3940   01 00EFE    0C000000 A            DATA     X'0C000000'
     3941   01 00EFF    33333333 A            DATA     X'33333333'
     3942   01 00F00    33333333 A            DATA     X'33333333'
     3943   01 00F01    20202020 A            DATA     DS
     3944   01 00F02    40202020 A            DATA     X'40202020'
     3945   01 00F03    33333333 A            DATA     X'33333333'
     3946   01 00F04    33333333 A            DATA     X'33333333'
     3947   01 00F05    00000000 A            DATA     0
     3948   01 00F06    00000000 A            DATA     0
     3949   01 00F07    3333333D A            DATA     X'3333333D'
     3950   01 00F08    3333333D A            DATA     X'3333333D'
     3951   01 00F09    00000000 A            DATA     0
     3952   01 00F0A    00000000 A            DATA     0
     3953   01 00F0B    00000000 A            DATA     0
     3954   01 00F0C    00000000 A            DATA     0
     3955   01 00F0D    00000000 A            DATA     0
     3956   01 00F0E    00000000 A            DATA     0
     3957   01 00F0F    00000000 A            DATA     0
     3958   01 00F10    00000000 A            DATA     0
     3959   01 00F11    00000000 A            DATA     0
     3960   01 00F12    00000000 A            DATA     0
     3961   01 00F13    40000003 A            GEN,8,24 ' ',3
     3962   01 00F14    01000F78              GEN,8,24 1,BAM+4
     3963   01 00F15    40000004 A            GEN,8,24 ' ',4
     3964   01 00F16    00000F79              GEN,8,24 0,BAM+5
     3965   01 00F17    00000000 A            DATA     0
     3966                                     PAGE
     3967                            *                                   TEST VALID SUMMING OF DISPLACEMENT.
     3968   01 00F18    FFFFFFDF A            DATA     -33
     3969   01 00F19    63A00003 A            EBS,10   3
     3970   01 00F1A    00200149 N            DATA     LOC-5+DM+CC(0)
     3971   01 00F1B    80200150 N            DATA     LOC+2+DM+CC(8)
     3972   01 00F1C    00000000 A            DATA     0
     3973   01 00F1D    00000000 A            DATA     0
     3974   01 00F1E    0C000000 A            DATA     X'0C000000'
     3975   01 00F1F    0C000000 A            DATA     X'0C000000'
     3976   01 00F20    44444444 A            DATA     X'44444444'
     3977   01 00F21    44444444 A            DATA     X'44444444'
     3978   01 00F22    20202020 A            DATA     DS
     3979   01 00F23    40202020 A            DATA     X'40202020'
     3980   01 00F24    44444444 A            DATA     X'44444444'
     3981   01 00F25    44444444 A            DATA     X'44444444'
     3982   01 00F26    00000000 A            DATA     0
     3983   01 00F27    00000000 A            DATA     0
     3984   01 00F28    4444444D A            DATA     X'4444444D'
     3985   01 00F29    4444444D A            DATA     X'4444444D'
     3986   01 00F2A    00000000 A            DATA     0
     3987   01 00F2B    00000000 A            DATA     0
     3988   01 00F2C    00000000 A            DATA     0
     3989   01 00F2D    00000000 A            DATA     0
     3990   01 00F2E    00000000 A            DATA     0
     3991   01 00F2F    00000000 A            DATA     0
     3992   01 00F30    00000000 A            DATA     0
     3993   01 00F31    00000000 A            DATA     0
     3994   01 00F32    00000000 A            DATA     0
     3995   01 00F33    00000000 A            DATA     0
     3996   01 00F34    40000F71              GEN,8,24 ' ',BAM-3
     3997   01 00F35    01000F78              GEN,8,24 1,BAM+4
     3998   01 00F36    40000F72              GEN,8,24 ' ',BAM-2
     3999   01 00F37    00000F79              GEN,8,24 0,BAM+5
     4000   01 00F38    00000000 A            DATA     0
     4001                                     PAGE
     4002                            *                                   IMMEDIATE SIGNIFICANCE START.(X'23')
     4003   01 00F39    FFFFFFDF A            DATA     -33
     4004   01 00F3A    63A00F74              EBS,10   BAM
     4005   01 00F3B    00200149 N            DATA     LOC-5+DM+CC(0)
     4006   01 00F3C    80200150 N            DATA     LOC+2+DM+CC(8)
     4007   01 00F3D    00000000 A            DATA     0
     4008   01 00F3E    00000000 A            DATA     0
     4009   01 00F3F    0C000000 A            DATA     X'0C000000'
     4010   01 00F40    0C000000 A            DATA     X'0C000000'
     4011   01 00F41    55555555 A            DATA     X'55555555'
     4012   01 00F42    55555555 A            DATA     X'55555555'
     4013   01 00F43    23202020 A            DATA     X'23202020'
     4014   01 00F44    F0202020 A            DATA     X'F0202020'
     4015   01 00F45    55555555 A            DATA     X'55555555'
     4016   01 00F46    55555555 A            DATA     X'55555555'
     4017   01 00F47    00000000 A            DATA     0
     4018   01 00F48    00000000 A            DATA     0
     4019   01 00F49    5555555C A            DATA     X'5555555C'
     4020   01 00F4A    5555555C A            DATA     X'5555555C'
     4021   01 00F4B    00000000 A            DATA     0
     4022   01 00F4C    00000000 A            DATA     0
     4023   01 00F4D    00000000 A            DATA     0
     4024   01 00F4E    00000000 A            DATA     0
     4025   01 00F4F    00000000 A            DATA     0
     4026   01 00F50    00000000 A            DATA     0
     4027   01 00F51    00000000 A            DATA     0
     4028   01 00F52    00000000 A            DATA     0
     4029   01 00F53    00000000 A            DATA     0
     4030   01 00F54    00000000 A            DATA     0
     4031   01 00F55    40000000 A            GEN,8,24 ' ',0
     4032   01 00F56    01000F78              GEN,8,24 1,BAM+4
     4033   01 00F57    40000001 A            GEN,8,24 ' ',1
     4034   01 00F58    00000F79              GEN,8,24 0,BAM+5
     4035   01 00F59    00000F78              DATA     BAM+4
     4036                                     PAGE
     4037                            *                                   SIGNIFICANCE START. (X'21')
     4038   01 00F5A    FFFFFFDF A            DATA     -33
     4039   01 00F5B    63A00F74              EBS,10   BAM
     4040   01 00F5C    00200149 N            DATA     LOC-5+DM+CC(0)
     4041   01 00F5D    80200150 N            DATA     LOC+2+DM+CC(8)
     4042   01 00F5E    00000000 A            DATA     0
     4043   01 00F5F    00000000 A            DATA     0
     4044   01 00F60    0C000000 A            DATA     X'0C000000'
     4045   01 00F61    0C000000 A            DATA     X'0C000000'
     4046   01 00F62    66666666 A            DATA     X'66666666'
     4047   01 00F63    66666666 A            DATA     X'66666666'
     4048   01 00F64    21202020 A            DATA     X'21202020'
     4049   01 00F65    5C202020 A            DATA     X'5C202020'
     4050   01 00F66    66666666 A            DATA     X'66666666'
     4051   01 00F67    66666666 A            DATA     X'66666666'
     4052   01 00F68    00000000 A            DATA     0
     4053   01 00F69    00000000 A            DATA     0
     4054   01 00F6A    6666666C A            DATA     X'6666666C'
     4055   01 00F6B    6666666C A            DATA     X'6666666C'
     4056   01 00F6C    00000000 A            DATA     0
     4057   01 00F6D    00000000 A            DATA     0
     4058   01 00F6E    00000000 A            DATA     0
     4059   01 00F6F    00000000 A            DATA     0
     4060   01 00F70    00000000 A            DATA     0
     4061   01 00F71    00000000 A            DATA     0
     4062   01 00F72    00000000 A            DATA     0
     4063   01 00F73    00000000 A            DATA     0
     4064   01 00F74    00000000 A            DATA     0
     4065   01 00F75    00000000 A            DATA     0
     4066   01 00F76    5C000000 A            GEN,8,24 '*',0
     4067   01 00F77    01000F78              GEN,8,24 1,BAM+4
     4068   01 00F78    5C000001 A            GEN,8,24 '*',1
     4069   01 00F79    00000F79              GEN,8,24 0,BAM+5
     4070   01 00F7A    00000F79              DATA     BAM+5
     4071                                     PAGE
     4072                            *                                   FIELD SEPARATOR. (X'22')
     4073   01 00F7B    FFFFFFDF A            DATA     -33
     4074   01 00F7C    63A00F74              EBS,10   BAM
     4075   01 00F7D    00200149 N            DATA     LOC-5+DM+CC(0)
     4076   01 00F7E    A0200150 N            DATA     LOC+2+DM+CC(10)
     4077   01 00F7F    00000000 A            DATA     0
     4078   01 00F80    00000000 A            DATA     0
     4079   01 00F81    2D3C0000 A            DATA     X'2D3C0000'
     4080   01 00F82    2D3C0000 A            DATA     X'2D3C0000'
     4081   01 00F83    77777777 A            DATA     X'77777777'
     4082   01 00F84    77777777 A            DATA     X'77777777'
     4083   01 00F85    204040C3 A            DATA     X'204040C3'
     4084   01 00F86    F24040C3 A            DATA     X'F24040C3'
     4085   01 00F87    77777777 A            DATA     X'77777777'
     4086   01 00F88    77777777 A            DATA     X'77777777'
     4087   01 00F89    22205C5C A            DATA     X'22205C5C'
     4088   01 00F8A    6BF34040 A            DATA     X'6BF34040'
     4089   01 00F8B    7777777C A            DATA     X'7777777C'
     4090   01 00F8C    7777777C A            DATA     X'7777777C'
     4091   01 00F8D    C3D94040 A            DATA     X'C3D94040'
     4092   01 00F8E    40404040 A            DATA     '    '
     4093   01 00F8F    00000000 A            DATA     0
     4094   01 00F90    00000000 A            DATA     0
     4095   01 00F91    00000000 A            DATA     0
     4096   01 00F92    00000000 A            DATA     0
     4097   01 00F93    00000000 A            DATA     0
     4098   01 00F94    00000000 A            DATA     0
     4099   01 00F95    00000000 A            DATA     0
     4100   01 00F96    00000000 A            DATA     0
     4101   01 00F97    6B000000 A            GEN,8,24 ',',0
     4102   01 00F98    0A000F78              GEN,8,24 10,BAM+4
     4103   01 00F99    6B000002 A            GEN,8,24 ',',2
     4104   01 00F9A    00000F82              GEN,8,24 0,BAM+14
     4105   01 00F9B    00000F7D              DATA     BAM+9
     4106                                     PAGE                                                         *C
     4107   01 00F9C    FFFFFFDF A   EBS30    DATA     -33                                                 *C
     4108   01 00F9D    63A00F74              EBS,10   BA(MEMORY)                                          *C
     4109   01 00F9E    00200149 N            DATA     LOC-5+DM+CC(0)    PSW1 IN                           *C
     4110   01 00F9F    80200150 N            DATA     LOC+2+DM+CC(8)    PSW1 OUT                          *C
     4111   01 00FA0    FFFFFFFF A            DATA     X'FFFFFFFF'       R12 IN                            *C
     4112   01 00FA1    FFFFFFFF A            DATA     X'FFFFFFFF'       R12 OUT                           *C
     4113   01 00FA2    0000000C A            DATA     X'C'              MEMORY+0 IN                       *C
     4114   01 00FA3    0000000C A            DATA     X'C'              MEMORY+0 OUT                      *C
     4115   01 00FA4    FFFFFFFF A            DATA     X'FFFFFFFF'       R13 IN                            *C
     4116   01 00FA5    FFFFFFFF A            DATA     X'FFFFFFFF'       R13 OUT                           *C
     4117   01 00FA6    20206B20 A            DATA     X'20206B20'       MEMORY+1 IN  (DS DS ,  DS)        *C
     4118   01 00FA7    5C5C5C5C A            DATA     X'5C5C5C5C'       MEMORY+1 OUT (*  *  *  * )        *C
     4119   01 00FA8    FFFFFFFF A            DATA     X'FFFFFFFF'       R14 IN                            *C
     4120   01 00FA9    FFFFFFFF A            DATA     X'FFFFFFFF'       R14 OUT                           *C
     4121   01 00FAA    20214B20 A            DATA     X'20214B20'       MEMORY+2 IN  (DS SS .  DS)        *C
     4122   01 00FAB    5C5C4BF0 A            DATA     X'5C5C4BF0'       MEMORY+2 OUT (*  *  .  0 )        *C
     4123   01 00FAC    FFFFFFFF A            DATA     X'FFFFFFFF'       R15 IN                            *C
     4124   01 00FAD    FFFFFFFF A            DATA     X'FFFFFFFF'       R15 OUT                           *C
     4125   01 00FAE    2040C3D9 A            DATA     X'2040C3D9'       MEMORY+3 IN  (DS    C  R )        *C
     4126   01 00FAF    F0404040 A            DATA     X'F0404040'       MEMORY+3 OUT (0          )        *C
     4127   01 00FB0    00000000 A            DATA     X'0'              MEMORY+4 IN                       *C
     4128   01 00FB1    00000000 A            DATA     X'0'              MEMORY+4 OUT                      *C
     4129   01 00FB2    00000000 A            DATA     X'0'              MEMORY+5 IN                       *C
     4130   01 00FB3    00000000 A            DATA     X'0'              MEMORY+5 OUT                      *C
     4131   01 00FB4    00000000 A            DATA     X'0'              MEMORY+6 IN                       *C
     4132   01 00FB5    00000000 A            DATA     X'0'              MEMORY+6 OUT                      *C
     4133   01 00FB6    00000000 A            DATA     X'0'              MEMORY+7 IN                       *C
     4134   01 00FB7    00000000 A            DATA     X'0'              MEMORY+7 OUT                      *C
     4135   01 00FB8    5C000000 A            GEN,8,24 '*',0             R10 IN                            *C
     4136   01 00FB9    0C000F78              GEN,8,24 12,BA(MEMORY+1)   R11 IN                            *C
     4137   01 00FBA    5C000004 A            GEN,8,24 '*',4             R10 OUT                           *C
     4138   01 00FBB    00000F84              GEN,8,24 0,BA(MEMORY+1)+12 R11 OUT                           *C
     4139   01 00FBC    00000F7E              GEN,8,24 0,BA(MEMORY+1)+6  R1  OUT                           *C
     4140                                     PAGE                                                         *C
     4141   01 00FBD    FFFFFFDF A   EBS31    DATA     -33                                                 *C
     4142   01 00FBE    63A00034 A            EBS,10   52                BYTE ADDRESS OF R13               *C
     4143   01 00FBF    40200149 N            DATA     LOC-5+DM+CC(4)    PSW1 IN                           *C
     4144   01 00FC0    B0200150 N            DATA     LOC+2+DM+CC(11)   PSW1 OUT                          *C
     4145   01 00FC1    00000000 A            DATA     X'0'              R12 IN                            *C
     4146   01 00FC2    00000000 A            DATA     X'0'              R12 OUT                           *C
     4147   01 00FC3    C1202023 A            DATA     X'C1202023'       MEMORY+0 IN   (A  DS DS SI)       *C
     4148   01 00FC4    7BF6F1F2 A            DATA     X'7BF6F1F2'       MEMORY+0 OUT  (#  6  1  2 )       *C
     4149   01 00FC5    0612500C A            DATA     X'0612500C'       R13 IN                            *C
     4150   01 00FC6    0612500C A            DATA     X'0612500C'       R13 OUT                           *C
     4151   01 00FC7    4B202020 A            DATA     X'4B202020'       MEMORY+1 IN   (.  DS DS DS)       *C
     4152   01 00FC8    4BF5F0F0 A            DATA     X'4BF5F0F0'       MEMORY+1 OUT  (.  5  0  0 )       *C
     4153   01 00FC9    01234C03 A            DATA     X'01234C03'       R14 IN                            *C
     4154   01 00FCA    01234C03 A            DATA     X'01234C03'       R14 OUT                           *C
     4155   01 00FCB    22C22020 A            DATA     X'22C22020'       MEMORY+2 IN   (FS B  DS DS)       *C
     4156   01 00FCC    7B7B7BF1 A            DATA     X'7B7B7BF1'       MEMORY+2 OUT  (#  #  #  1 )       *C
     4157   01 00FCD    5DFFFFFF A            DATA     X'5DFFFFFF'       R15 IN                            *C
     4158   01 00FCE    5DFFFFFF A            DATA     X'5DFFFFFF'       R15 OUT                           *C
     4159   01 00FCF    214B2020 A            DATA     X'214B2020'       MEMORY+3 IN   (SS .  DS DS)       *C
     4160   01 00FD0    F24BF3F4 A            DATA     X'F24BF3F4'       MEMORY+3 OUT  (2  .  3  4 )       *C
     4161   01 00FD1    C322C423 A            DATA     X'C322C423'       MEMORY+4 IN   (C  FS D  SI)       *C
     4162   01 00FD2    407B7BF0 A            DATA     X'407B7BF0'       MEMORY+4 OUT  (   #  #  0 )       *C
     4163   01 00FD3    2020C5D5 A            DATA     X'2020C5D5'       MEMORY+5 IN   (DS DS E  N )       *C
     4164   01 00FD4    F3F5C5D5 A            DATA     X'F3F5C5D5'       MEMORY+5 OUT  (3  5  E  N )       *C
     4165   01 00FD5    C4202020 A            DATA     X'C4202020'       MEMORY+6 IN   (D )                *C
     4166   01 00FD6    C4202020 A            DATA     X'C4202020'       MEMORY+6 OUT  (D )                *C
     4167   01 00FD7    00000000 A            DATA     X'0'              MEMORY+7 IN                       *C
     4168   01 00FD8    00000000 A            DATA     X'0'              MEMORY+7 OUT                      *C
     4169   01 00FD9    7B000000 A            GEN,8,24 '#',0             R10 IN                            *C
     4170   01 00FDA    19000F74              GEN,8,24 25,BA(MEMORY+0)   R11 IN                            *C
     4171   01 00FDB    7B000009 A            GEN,8,24 '#',9             R10 OUT                           *C
     4172   01 00FDC    00000F8D              GEN,8,24 0,BA(MEMORY+0)+25 R11 OUT                           *C
     4173   01 00FDD    00000F87              GEN,8,24 0,BA(MEMORY+0)+19 R1  OUT                           *C
     4174                                     PAGE
     4175   01 00FDE    FFFFFFEE A   UNPK1    DATA     %-UNPK2           TRAP ON INVALID DIGIT.
     4176   01 00FDF    771003DD              UNPK,1   MEMORY
     4177   01 00FE0    00200149 N            DATA     LOC-5+DM+CC(0)
     4178   01 00FE1    8020014E N            DATA     LOC+DM+CC(8)
     4179   01 00FE2    F0000000 A            DATA     X'F0000000'
     4180   01 00FE3    F0000000 A            DATA     X'F0000000'
     4181   01 00FE4    00000000 A            DATA     0
     4182   01 00FE5    00000000 A            DATA     0
     4183   01 00FE6    00000000 A            DATA     0
     4184   01 00FE7    00000000 A            DATA     0
     4185   01 00FE8    00000000 A            DATA     0
     4186   01 00FE9    00000000 A            DATA     0
     4187   01 00FEA    00000000 A            DATA     0
     4188   01 00FEB    00000000 A            DATA     0
     4189   01 00FEC    00000000 A            DATA     0
     4190   01 00FED    00000000 A            DATA     0
     4191   01 00FEE    0000000C A            DATA     12
     4192   01 00FEF    0000000C A            DATA     12
     4193                                     PAGE
     4194   01 00FF0    FFFFFFFC A   UNPK2    DATA     %-UNPK3           TRAP ON INVALID SIGN.
     4195   01 00FF1    771003DD              UNPK,1   MEMORY
     4196   01 00FF2    00200149 N            DATA     LOC-5+DM+CC(0)
     4197   01 00FF3    8020014E N            DATA     LOC+DM+CC(8)
     4198                            *  ALL REMAINING INPUTS FOR THIS TEST ARE ZERO.
     4199                                     PAGE
     4200   01 00FF4    FFFFFFE4 A   UNPK3    DATA     %-UNPK4           31 DIGIT POSITIVE, WORD BOUNDARY.
     4201   01 00FF5    770003DD              UNPK,0   MEMORY
     4202   01 00FF6    00200149 N            DATA     LOC-5+DM+CC(0)
     4203   01 00FF7    00200150 N            DATA     LOC+2+DM+CC(0)
     4204   01 00FF8    12345678 A            DATA     X'12345678'
     4205   01 00FF9    12345678 A            DATA     X'12345678'
     4206   01 00FFA    00000000 A            DATA     0
     4207   01 00FFB    F1F2F3F4 A            DATA     '1234'
     4208   01 00FFC    90123456 A            DATA     X'90123456'
     4209   01 00FFD    90123456 A            DATA     X'90123456'
     4210   01 00FFE    00000000 A            DATA     0
     4211   01 00FFF    F5F6F7F8 A            DATA     '5678'
     4212   01 01000    09080706 A            DATA     X'09080706'
     4213   01 01001    09080706 A            DATA     X'09080706'
     4214   01 01002    00000000 A            DATA     0
     4215   01 01003    F9F0F1F2 A            DATA     '9012'
     4216   01 01004    0504037C A            DATA     X'0504037C'
     4217   01 01005    0504037C A            DATA     X'0504037C'
     4218   01 01006    00000000 A            DATA     0
     4219   01 01007    F3F4F5F6 A            DATA     '3456'
     4220   01 01008    00000000 A            DATA     0
     4221   01 01009    F0F9F0F8 A            DATA     '0908'
     4222   01 0100A    00000000 A            DATA     0
     4223   01 0100B    F0F7F0F6 A            DATA     '0706'
     4224   01 0100C    00000000 A            DATA     0
     4225   01 0100D    F0F5F0F4 A            DATA     '0504'
     4226   01 0100E    00000000 A            DATA     0
     4227   01 0100F    F0F3C700 A            DATA     X'F0F3C700'
     4228                                     PAGE
     4229   01 01010    FFFFFFE4 A   UNPK4    DATA     %-UNPK5           31 DIGIT POSITIVE, ODD BYTE.
     4230   01 01011    770E03DD              UNPK,0   MEMORY,7
     4231   01 01012    00200149 N            DATA     LOC-5+DM+CC(0)
     4232   01 01013    00200150 N            DATA     LOC+2+DM+CC(0)
     4233   01 01014    12483689 A            DATA     X'12483689'
     4234   01 01015    12483689 A            DATA     X'12483689'
     4235   01 01016    00000000 A            DATA     0
     4236   01 01017    00F1F2F4 A            DATA     X'00F1F2F4'
     4237   01 01018    69707787 A            DATA     X'69707787'
     4238   01 01019    69707787 A            DATA     X'69707787'
     4239   01 0101A    00000000 A            DATA     0
     4240   01 0101B    F8F3F6F8 A            DATA     '8368'
     4241   01 0101C    87070770 A            DATA     X'87070770'
     4242   01 0101D    87070770 A            DATA     X'87070770'
     4243   01 0101E    00000000 A            DATA     0
     4244   01 0101F    F9F6F9F7 A            DATA     '9697'
     4245   01 01020    9696969C A            DATA     X'9696969C'
     4246   01 01021    9696969C A            DATA     X'9696969C'
     4247   01 01022    00000000 A            DATA     0
     4248   01 01023    F0F7F7F8 A            DATA     '0778'
     4249   01 01024    00000000 A            DATA     0
     4250   01 01025    F7F8F7F0 A            DATA     '7870'
     4251   01 01026    00000000 A            DATA     0
     4252   01 01027    F7F0F7F7 A            DATA     '7077'
     4253   01 01028    00000000 A            DATA     0
     4254   01 01029    F0F9F6F9 A            DATA     '0969'
     4255   01 0102A    00000000 A            DATA     0
     4256   01 0102B    F6F9F6C9 A            DATA     X'F6F9F6C9'
     4257                                     PAGE
     4258   01 0102C    FFFFFFE4 A   UNPK5    DATA     %-UNPK6           31 DIGIT NEGATIVE, WORD BOUNDARY.
     4259   01 0102D    770003DD              UNPK,0   MEMORY
     4260   01 0102E    00200149 N            DATA     LOC-5+DM+CC(0)
     4261   01 0102F    00200150 N            DATA     LOC+2+DM+CC(0)
     4262   01 01030    11112222 A            DATA     X'11112222'
     4263   01 01031    11112222 A            DATA     X'11112222'
     4264   01 01032    00000000 A            DATA     0
     4265   01 01033    F1F1F1F1 A            DATA     '1111'
     4266   01 01034    33334444 A            DATA     X'33334444'
     4267   01 01035    33334444 A            DATA     X'33334444'
     4268   01 01036    00000000 A            DATA     0
     4269   01 01037    F2F2F2F2 A            DATA     '2222'
     4270   01 01038    55556666 A            DATA     X'55556666'
     4271   01 01039    55556666 A            DATA     X'55556666'
     4272   01 0103A    00000000 A            DATA     0
     4273   01 0103B    F3F3F3F3 A            DATA     '3333'
     4274   01 0103C    7777888D A            DATA     X'7777888D'
     4275   01 0103D    7777888D A            DATA     X'7777888D'
     4276   01 0103E    00000000 A            DATA     0
     4277   01 0103F    F4F4F4F4 A            DATA     '4444'
     4278   01 01040    00000000 A            DATA     0
     4279   01 01041    F5F5F5F5 A            DATA     '5555'
     4280   01 01042    00000000 A            DATA     0
     4281   01 01043    F6F6F6F6 A            DATA     '6666'
     4282   01 01044    00000000 A            DATA     0
     4283   01 01045    F7F7F7F7 A            DATA     '7777'
     4284   01 01046    00000000 A            DATA     0
     4285   01 01047    F8F8D800 A            DATA     X'F8F8D800'
     4286                                     PAGE
     4287   01 01048    FFFFFFE4 A   UNPK6    DATA     %-UNPK7           31 DIGIT NEGATIVE, ODD BYTE.
     4288   01 01049    770E03DD              UNPK,0   MEMORY,7
     4289   01 0104A    00200149 N            DATA     LOC-5+DM+CC(0)
     4290   01 0104B    00200150 N            DATA     LOC+2+DM+CC(0)
     4291   01 0104C    99990000 A            DATA     X'99990000'
     4292   01 0104D    99990000 A            DATA     X'99990000'
     4293   01 0104E    00000000 A            DATA     0
     4294   01 0104F    00F9F9F9 A            DATA     X'00F9F9F9'
     4295   01 01050    88887777 A            DATA     X'88887777'
     4296   01 01051    88887777 A            DATA     X'88887777'
     4297   01 01052    00000000 A            DATA     0
     4298   01 01053    F9F0F0F0 A            DATA     '9000'
     4299   01 01054    07870842 A            DATA     X'07870842'
     4300   01 01055    07870842 A            DATA     X'07870842'
     4301   01 01056    00000000 A            DATA     0
     4302   01 01057    F0F8F8F8 A            DATA     '0888'
     4303   01 01058    1369693D A            DATA     X'1369693D'
     4304   01 01059    1369693D A            DATA     X'1369693D'
     4305   01 0105A    00000000 A            DATA     0
     4306   01 0105B    F8F7F7F7 A            DATA     '8777'
     4307   01 0105C    00000000 A            DATA     0
     4308   01 0105D    F7F0F7F8 A            DATA     '7078'
     4309   01 0105E    00000000 A            DATA     0
     4310   01 0105F    F7F0F8F4 A            DATA     '7084'
     4311   01 01060    00000000 A            DATA     0
     4312   01 01061    F2F1F3F6 A            DATA     '2136'
     4313   01 01062    00000000 A            DATA     0
     4314   01 01063    F9F6F9D3 A            DATA     X'F9F6F9D3'
     4315                                     PAGE
     4316   01 01064    FFFFFFEE A   UNPK7    DATA     -18               5 DIGIT, ALL SIGNIFICANCE         *C
     4317   01 01065    775003DD              UNPK,5   MEMORY            NOT ZONED AND STORED.
     4318   01 01066    00200149 N            DATA     LOC-5+DM+CC(0)
     4319   01 01067    40200150 N            DATA     LOC+2+DM+CC(4)
     4320   01 01068    00000000 A            DATA     0
     4321   01 01069    00000000 A            DATA     0
     4322   01 0106A    00000000 A            DATA     0
     4323   01 0106B    F9F8F7F6 A            DATA     '9876'
     4324   01 0106C    00000000 A            DATA     0
     4325   01 0106D    00000000 A            DATA     0
     4326   01 0106E    00000000 A            DATA     0
     4327   01 0106F    F5F4F3F2 A            DATA     '5432'
     4328   01 01070    54321098 A            DATA     X'54321098'
     4329   01 01071    54321098 A            DATA     X'54321098'
     4330   01 01072    00000000 A            DATA     0
     4331   01 01073    C1000000 A            DATA     X'C1000000'
     4332   01 01074    7654321C A            DATA     X'7654321C'
     4333   01 01075    7654321C A            DATA     X'7654321C'
     4334   01 01076    FFFFFFEE A   UNPK8    DATA     -18               UNPACK 1 DIGIT                    *C
     4335   01 01077    771003DD              UNPK,1   MEMORY                                              *C
     4336   01 01078    B0200149 N            DATA     LOC-5+DM+CC(11)   PSW1 IN                           *C
     4337   01 01079    70200150 N            DATA     LOC+2+DM+CC(7)    PSW1 OUT                          *C
     4338   01 0107A    00000000 A            DATA     0                 R12 IN                            *C
     4339   01 0107B    00000000 A            DATA     0                 R12 OUT                           *C
     4340   01 0107C    AAAAAAAA A            DATA     X'AAAAAAAA'       MEMORY+0 IN                       *C
     4341   01 0107D    D3AAAAAA A            DATA     X'D3AAAAAA'       MEMORY+0 OUT                      *C
     4342   01 0107E    00000000 A            DATA     0                 R13 IN                            *C
     4343   01 0107F    00000000 A            DATA     0                 R13 OUT                           *C
     4344   01 01080    00000000 A            DATA     0                 MEMORY+1 IN                       *C
     4345   01 01081    00000000 A            DATA     0                 MEMORY+1 OUT                      *C
     4346   01 01082    00000000 A            DATA     0                 R14 IN                            *C
     4347   01 01083    00000000 A            DATA     0                 R14 OUT                           *C
     4348   01 01084    00000000 A            DATA     0                 MEMORY+2 IN                       *C
     4349   01 01085    00000000 A            DATA     0                 MEMORY+2 OUT                      *C
     4350   01 01086    0000013D A            DATA     X'0000013D'       R15 IN                            *C
     4351   01 01087    0000013D A            DATA     X'0000013D'       R15 OUT                           *C
     4352                                     PAGE
     4353   01 01088    FFFFFFFC A   PACK1    DATA     %-PACK2           TRAP ON INVALID SIGN.
     4354   01 01089    760003DD              PACK,0   MEMORY
     4355   01 0108A    00200149 N            DATA     LOC-5+DM+CC(0)
     4356   01 0108B    8020014E N            DATA     LOC+DM+CC(8)
     4357                            *  ALL REMAINING INPUTS FOR THIS TEST ARE ZERO.
     4358                                     PAGE
     4359   01 0108C    FFFFFFEC A   PACK2    DATA     %-PACK3           TRAP ON INVALID DIGIT.
     4360   01 0108D    760003DD              PACK,0   MEMORY
     4361   01 0108E    00200149 N            DATA     LOC-5+DM+CC(0)
     4362   01 0108F    8020014E N            DATA     LOC+DM+CC(8)
     4363   01 01090    00000000 A            DATA     0
     4364   01 01091    00000000 A            DATA     0
     4365   01 01092    0F000000 A            DATA     X'0F000000'
     4366   01 01093    0F000000 A            DATA     X'0F000000'
     4367   01 01094    00000000 A            DATA     0
     4368   01 01095    00000000 A            DATA     0
     4369   01 01096    00000000 A            DATA     0
     4370   01 01097    00000000 A            DATA     0
     4371   01 01098    00000000 A            DATA     0
     4372   01 01099    00000000 A            DATA     0
     4373   01 0109A    00000000 A            DATA     0
     4374   01 0109B    00000000 A            DATA     0
     4375   01 0109C    00000000 A            DATA     0
     4376   01 0109D    00000000 A            DATA     0
     4377   01 0109E    0000000C A            DATA     X'0000000C'
     4378   01 0109F    0000000C A            DATA     X'0000000C'
     4379                                     PAGE
     4380   01 010A0    FFFFFFE4 A   PACK3    DATA     %-PACK4           31 DIGIT POSITIVE, WORD BOUNDARY.
     4381   01 010A1    760003DD              PACK,0   MEMORY
     4382   01 010A2    00200149 N            DATA     LOC-5+DM+CC(0)
     4383   01 010A3    20200150 N            DATA     LOC+2+DM+CC(2)
     4384   01 010A4    00000000 A            DATA     0
     4385   01 010A5    12345678 A            DATA     X'12345678'
     4386   01 010A6    F1F2F3F4 A            DATA     '1234'
     4387   01 010A7    F1F2F3F4 A            DATA     '1234'
     4388   01 010A8    00000000 A            DATA     0
     4389   01 010A9    99876543 A            DATA     X'99876543'
     4390   01 010AA    F5F6F7F8 A            DATA     '5678'
     4391   01 010AB    F5F6F7F8 A            DATA     '5678'
     4392   01 010AC    00000000 A            DATA     0
     4393   01 010AD    21076969 A            DATA     X'21076969'
     4394   01 010AE    F9F9F8F7 A            DATA     '9987'
     4395   01 010AF    F9F9F8F7 A            DATA     '9987'
     4396   01 010B0    00000000 A            DATA     0
     4397   01 010B1    8787777C A            DATA     X'8787777C'
     4398   01 010B2    F6F5F4F3 A            DATA     '6543'
     4399   01 010B3    F6F5F4F3 A            DATA     '6543'
     4400   01 010B4    F2F1F0F7 A            DATA     '2107'
     4401   01 010B5    F2F1F0F7 A            DATA     '2107'
     4402   01 010B6    F6F9F6F9 A            DATA     '6969'
     4403   01 010B7    F6F9F6F9 A            DATA     '6969'
     4404   01 010B8    F8F7F8F7 A            DATA     '8787'
     4405   01 010B9    F8F7F8F7 A            DATA     '8787'
     4406   01 010BA    F7F7C7FF A            DATA     X'F7F7C7FF'
     4407   01 010BB    F7F7C7FF A            DATA     X'F7F7C7FF'
     4408                                     PAGE
     4409   01 010BC    FFFFFFE4 A   PACK4    DATA     %-PACK5           31 DIGIT POSITIVE, ODD BYTE.
     4410   01 010BD    760E03DD              PACK,0   MEMORY,7
     4411   01 010BE    00200149 N            DATA     LOC-5+DM+CC(0)
     4412   01 010BF    20200150 N            DATA     LOC+2+DM+CC(2)
     4413   01 010C0    FFFFFFFF A            DATA     -1
     4414   01 010C1    12345435 A            DATA     X'12345435'
     4415   01 010C2    0FF1F2F3 A            DATA     X'0FF1F2F3'
     4416   01 010C3    0FF1F2F3 A            DATA     X'0FF1F2F3'
     4417   01 010C4    FFFFFFF0 A            DATA     -16
     4418   01 010C5    65467657 A            DATA     X'65467657'
     4419   01 010C6    F4F5F4F3 A            DATA     '4543'
     4420   01 010C7    F4F5F4F3 A            DATA     '4543'
     4421   01 010C8    FFFFFFE0 A            DATA     -32
     4422   01 010C9    87689877 A            DATA     X'87689877'
     4423   01 010CA    F5F6F5F4 A            DATA     '5654'
     4424   01 010CB    F5F6F5F4 A            DATA     '5654'
     4425   01 010CC    FFFFFFC0 A            DATA     -64
     4426   01 010CD    8873687C A            DATA     X'8873687C'
     4427   01 010CE    F6F7F6F5 A            DATA     '6765'
     4428   01 010CF    F6F7F6F5 A            DATA     '6765'
     4429   01 010D0    F7F8F7F6 A            DATA     '7876'
     4430   01 010D1    F7F8F7F6 A            DATA     '7876'
     4431   01 010D2    F8F9F8F7 A            DATA     '8987'
     4432   01 010D3    F8F9F8F7 A            DATA     '8987'
     4433   01 010D4    F7F8F8F7 A            DATA     '7887'
     4434   01 010D5    F7F8F8F7 A            DATA     '7887'
     4435   01 010D6    F3F6F8C7 A            DATA     X'F3F6F8C7'
     4436   01 010D7    F3F6F8C7 A            DATA     X'F3F6F8C7'
     4437                                     PAGE
     4438   01 010D8    FFFFFFE4 A   PACK5    DATA     %-PACK6           31 DIGIT NEGATIVE, WORD BOUNDARY.
     4439   01 010D9    760003DD              PACK,0   MEMORY
     4440   01 010DA    00200149 N            DATA     LOC-5+DM+CC(0)
     4441   01 010DB    10200150 N            DATA     LOC+2+DM+CC(1)
     4442   01 010DC    00000010 A            DATA     16
     4443   01 010DD    10203040 A            DATA     X'10203040'
     4444   01 010DE    F1F0F2F0 A            DATA     '1020'
     4445   01 010DF    F1F0F2F0 A            DATA     '1020'    &
     4446   01 010E0    00000020 A            DATA     32
     4447   01 010E1    50607080 A            DATA     X'50607080'
     4448   01 010E2    F3F0F4F0 A            DATA     '3040'
     4449   01 010E3    F3F0F4F0 A            DATA     '3040'
     4450   01 010E4    00000040 A            DATA     64
     4451   01 010E5    90010203 A            DATA     X'90010203'
     4452   01 010E6    F5F0F6F0 A            DATA     '5060'
     4453   01 010E7    F5F0F6F0 A            DATA     '5060'
     4454   01 010E8    00000080 A            DATA     128
     4455   01 010E9    0405060D A            DATA     X'0405060D'
     4456   01 010EA    F7F0F8F0 A            DATA     '7080'
     4457   01 010EB    F7F0F8F0 A            DATA     '7080'
     4458   01 010EC    F9F0F0F1 A            DATA     '9001'
     4459   01 010ED    F9F0F0F1 A            DATA     '9001'
     4460   01 010EE    F0F2F0F3 A            DATA     '0203'
     4461   01 010EF    F0F2F0F3 A            DATA     '0203'
     4462   01 010F0    F0F4F0F5 A            DATA     '0405'
     4463   01 010F1    F0F4F0F5 A            DATA     '0405'
     4464   01 010F2    F0F6D0FF A            DATA     X'F0F6D0FF'
     4465   01 010F3    F0F6D0FF A            DATA     X'F0F6D0FF'
     4466                                     PAGE
     4467   01 010F4    FFFFFFE4 A   PACK6    DATA     %-PACK7           31 DIGIT NEGATIVE, ODD BYTE.
     4468   01 010F5    760E03DD              PACK,0   MEMORY,7
     4469   01 010F6    00200149 N            DATA     LOC-5+DM+CC(0)
     4470   01 010F7    10200150 N            DATA     LOC+2+DM+CC(1)
     4471   01 010F8    FFFFFFFF A            DATA     -1
     4472   01 010F9    96987870 A            DATA     X'96987870'
     4473   01 010FA    FFF9F6F9 A            DATA     X'FFF9F6F9'
     4474   01 010FB    FFF9F6F9 A            DATA     X'FFF9F6F9'
     4475   01 010FC    FFFFFFFF A            DATA     -1
     4476   01 010FD    12487070 A            DATA     X'12487070'
     4477   01 010FE    F8F7F8F7 A            DATA     '8787'
     4478   01 010FF    F8F7F8F7 A            DATA     '8787'
     4479   01 01100    FFFFFFFF A            DATA     -1
     4480   01 01101    00077778 A            DATA     X'00077778'
     4481   01 01102    F0F1F2F4 A            DATA     '0124'
     4482   01 01103    F0F1F2F4 A            DATA     '0124'
     4483   01 01104    FFFFFFFF A            DATA     -1
     4484   01 01105    8884242D A            DATA     X'8884242D'
     4485   01 01106    F8F7F0F7 A            DATA     '8707'
     4486   01 01107    F8F7F0F7 A            DATA     '8707'
     4487   01 01108    00000000 A            DATA     X'0000'
     4488   01 01109    00000000 A            DATA     X'0000'
     4489   01 0110A    F7F7F7F7 A            DATA     '7777'
     4490   01 0110B    F7F7F7F7 A            DATA     '7777'
     4491   01 0110C    F8F8F8F8 A            DATA     '8888'
     4492   01 0110D    F8F8F8F8 A            DATA     '8888'
     4493   01 0110E    A402E4B2 A            DATA     X'A402E4B2'
     4494   01 0110F    A402E4B2 A            DATA     X'A402E4B2'
     4495                                     PAGE
     4496   01 01110    FFFFFFEE A   PACK7    DATA     -18               10 DIGIT NEGATIVE, ODD BYTE       *C
     4497   01 01111    765E03DD              PACK,5   MEMORY,7
     4498   01 01112    00200149 N            DATA     LOC-5+DM+CC(0)
     4499   01 01113    10200150 N            DATA     LOC+2+DM+CC(1)
     4500   01 01114    FFFFFFFF A            DATA     -1
     4501   01 01115    00000000 A            DATA     0
     4502   01 01116    FFA1B2C3 A            DATA     X'FFA1B2C3'
     4503   01 01117    FFA1B2C3 A            DATA     X'FFA1B2C3'
     4504   01 01118    FFFFFFFF A            DATA     -1
     4505   01 01119    00000000 A            DATA     0
     4506   01 0111A    D4E5F607 A            DATA     X'D4E5F607'
     4507   01 0111B    D4E5F607 A            DATA     X'D4E5F607'
     4508   01 0111C    FFFFFFFF A            DATA     -1
     4509   01 0111D    00000012 A            DATA     X'00000012'
     4510   01 0111E    18D90F0F A            DATA     X'18D90F0F'
     4511   01 0111F    18D90F0F A            DATA     X'18D90F0F'
     4512   01 01120    FFFFFFFF A            DATA     -1
     4513   01 01121    3456789D A            DATA     X'3456789D'
     4514   01 01122    FFFFFFEE A   PACK8    DATA     -18               1 DIGIT,WORD BOUNDARY             *C
     4515   01 01123    761003DD              PACK,1   MEMORY                                              *C
     4516   01 01124    E0200149 N            DATA     LOC-5+DM+CC(14)   PSW1 IN                           *C
     4517   01 01125    10200150 N            DATA     LOC+2+DM+CC(1)    PSW1 OUT                          *C
     4518   01 01126    33333333 A            DATA     X'33333333'       R12 IN                            *C
     4519   01 01127    00000000 A            DATA     0                 R12 OUT                           *C
     4520   01 01128    D4999999 A            DATA     X'D4999999'       MEMORY+0 IN                       *C
     4521   01 01129    D4999999 A            DATA     X'D4999999'       MEMORY+0 OUT                      *C
     4522   01 0112A    33333333 A            DATA     X'33333333'       R13 IN                            *C
     4523   01 0112B    00000000 A            DATA     0                 R13 OUT                           *C
     4524   01 0112C    00000000 A            DATA     0                 MEMORY+1 IN                       *C
     4525   01 0112D    00000000 A            DATA     0                 MEMORY+1 OUT                      *C
     4526   01 0112E    33333333 A            DATA     X'33333333'       R14 IN                            *C
     4527   01 0112F    00000000 A            DATA     0                 R14 OUT                           *C
     4528   01 01130    00000000 A            DATA     0                 MEMORY+2 IN                       *C
     4529   01 01131    00000000 A            DATA     0                 MEMORY+2 OUT                      *C
     4530   01 01132    33333333 A            DATA     X'33333333'       R15 IN                            *C
     4531   01 01133    0000004D A            DATA     X'0000004D'       R15 OUT                           *C
     4532   01 01134    FFFFFFF8 A   PACK9    DATA     -8                TRAP ON ILLEGAL SIGN              *C
     4533   01 01135    762003DD              PACK,2   MEMORY                                              *C
     4534   01 01136    70200149 N            DATA     LOC-5+DM+CC(7)    PSW1 IN                           *C
     4535   01 01137    B020014E N            DATA     LOC+DM+CC(11)     PSW1 OUT                          *C
     4536   01 01138    44444444 A            DATA     X'44444444'       R12 IN                            *C
     4537   01 01139    44444444 A            DATA     X'44444444'       R12 OUT                           *C
     4538   01 0113A    FAC30000 A            DATA     X'FAC30000'       MEMORY+0 IN   X'A' IS ILLEGAL     *C
     4539   01 0113B    FAC30000 A            DATA     X'FAC30000'       MEMORY+0 OUT                      *C
     4540         01 0113C           FINI     EQU      %
     4541   01 0113C    00000000 A            DATA     0                 END INDICATOR (ZERO WORD COUNT).
     4542                            REV      TEXT     '

REVISION C01.
',;                              *C01
     4543                                              'PROGRAM REVISED TO CHECK REVISION ',;            *C01
     4544                                              '''N'' OF SIGMA 7 DECIMAL UNIT,
',;               *C01
     4545                                              '(MODEL NO. 8419, PIN LIST 124822).  ',;          *C01
     4546                                              'ADDS FIVE NEW TEST MODULES TO CHECK
',;          *C01
     4547                                              'THE DECIMAL SHIFT INSTRUCTION.

',;              *C01
     4548                                              'NOTE: THIS PROGRAM REVISION (C01) ',;            *C01
     4549                                              'REQUIRES REVISION ''N'' TO PIN LIST
',;          *C01
     4550                                              '      124822 FOR CORRECT OPERATION.  ',;         *C01
     4551                                              'INSURE THAT FIELD MOD KIT NO. 181994
',;         *C01
     4552   01 0113D    1515D9C5 A                     '      IS INSTALLED.

'                           *C01
            01 0113E    E5C9E2C9 A
            01 0113F    D6D540C3 A
            01 01140    F0F14B15 A
            01 01141    D7D9D6C7 A
            01 01142    D9C1D440 A
            01 01143    D9C5E5C9 A
            01 01144    E2C5C440 A
            01 01145    E3D640C3 A
            01 01146    C8C5C3D2 A
            01 01147    40D9C5E5 A
            01 01148    C9E2C9D6 A
            01 01149    D5407DD5 A
            01 0114A    7D40D6C6 A
            01 0114B    40E2C9C7 A
            01 0114C    D4C140F7 A
            01 0114D    40C4C5C3 A
            01 0114E    C9D4C1D3 A
            01 0114F    40E4D5C9 A
            01 01150    E36B154D A
            01 01151    D4D6C4C5 A
            01 01152    D340D5D6 A
            01 01153    4B40F8F4 A
            01 01154    F1F96B40 A
            01 01155    D7C9D540 A
            01 01156    D3C9E2E3 A
            01 01157    40F1F2F4 A
            01 01158    F8F2F25D A
            01 01159    4B4040C1 A
            01 0115A    C4C4E240 A
            01 0115B    C6C9E5C5 A
            01 0115C    40D5C5E6 A
            01 0115D    40E3C5E2 A
            01 0115E    E340D4D6 A
            01 0115F    C4E4D3C5 A
            01 01160    E240E3D6 A
            01 01161    40C3C8C5 A
            01 01162    C3D215E3 A
            01 01163    C8C540C4 A
            01 01164    C5C3C9D4 A
            01 01165    C1D340E2 A
            01 01166    C8C9C6E3 A
            01 01167    40C9D5E2 A
            01 01168    E3D9E4C3 A
            01 01169    E3C9D6D5 A
            01 0116A    4B1515D5 A
            01 0116B    D6E3C57A A
            01 0116C    40E3C8C9 A
            01 0116D    E240D7D9 A
            01 0116E    D6C7D9C1 A
            01 0116F    D440D9C5 A
            01 01170    E5C9E2C9 A
            01 01171    D6D5404D A
            01 01172    C3F0F15D A
            01 01173    40D9C5D8 A
            01 01174    E4C9D9C5 A
            01 01175    E240D9C5 A
            01 01176    E5C9E2C9 A
            01 01177    D6D5407D A
            01 01178    D57D40E3 A
            01 01179    D640D7C9 A
            01 0117A    D540D3C9 A
            01 0117B    E2E31540 A
            01 0117C    40404040 A
            01 0117D    40F1F2F4 A
            01 0117E    F8F2F240 A
            01 0117F    C6D6D940 A
            01 01180    C3D6D9D9 A
            01 01181    C5C3E340 A
            01 01182    D6D7C5D9 A
            01 01183    C1E3C9D6 A
            01 01184    D54B4040 A
            01 01185    C9D5E2E4 A
            01 01186    D9C540E3 A
            01 01187    C8C1E340 A
            01 01188    C6C9C5D3 A
            01 01189    C440D4D6 A
            01 0118A    C440D2C9 A
            01 0118B    E340D5D6 A
            01 0118C    4B40F1F8 A
            01 0118D    F1F9F9F4 A
            01 0118E    15404040 A
            01 0118F    404040C9 A
            01 01190    E240C9D5 A
            01 01191    E2E3C1D3 A
            01 01192    D3C5C44B A
            01 01193    15154040 A
     4553         01 01194           REVEND   EQU      %                                                 *C01
     4554         01 00256                    END      SETRPLY

  CONTROL SECTION SUMMARY: 01 01194   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   23:33 JUN 20,'83    SIGMA 7 CPU DIAGNOSTIC-DECIMAL   704047-11/51C02  MAY 8, 72           PAGE    3
A  ABMASK           507/AND      512/AND      979-DATA
   AIO              747/DATA     750-STM
   AUTO             327-LW       710/B
   BAM              977-EQU     3107/EBS     3135/GEN     3137/GEN     3142/EBS     3170/GEN     3172/GEN
      3177/EBS     3205/GEN     3207/GEN     3212/EBS     3240/GEN     3242/GEN     3247/EBS     3275/GEN
      3277/GEN     3282/EBS     3310/GEN     3312/GEN     3317/EBS     3345/GEN     3347/GEN     3352/EBS
      3380/GEN     3382/GEN     3387/EBS     3415/GEN     3417/GEN     3422/EBS     3450/GEN     3452/GEN
      3457/EBS     3485/GEN     3487/GEN     3492/EBS     3520/GEN     3522/GEN     3527/EBS     3555/GEN
      3557/GEN     3834/GEN     3836/GEN     3927/GEN     3929/GEN     3934/EBS     3962/GEN     3964/GEN
      3996/GEN     3997/GEN     3998/GEN     3999/GEN     4004/EBS     4032/GEN     4034/GEN     4035/DATA
      4039/EBS     4067/GEN     4069/GEN     4070/DATA    4074/EBS     4102/GEN     4104/GEN     4105/DATA
   BIT13X31         466/AND      788-DATA
   BIT15X31         253/AND      289/AND      479/AND      787-DATA
   BLANK            906-DATA
   BLNKM            622/LW       978-DATA
   BRANCH           236-XPSD     966/EQU
   BUSY             683-SIO      685/BCR      690/BEZ
   C                360/LW       369/LW       967-EQU
   CC               208-FNAME   3108/DATA    3109/DATA    3143/DATA    3144/DATA    3178/DATA    3179/DATA
      3213/DATA    3214/DATA    3248/DATA    3249/DATA    3283/DATA    3284/DATA    3318/DATA    3319/DATA
      3353/DATA    3354/DATA    3388/DATA    3389/DATA    3423/DATA    3424/DATA    3458/DATA    3459/DATA
      3493/DATA    3494/DATA    3528/DATA    3529/DATA    3563/DATA    3564/DATA    3597/DATA    3598/DATA
      3632/DATA    3633/DATA    3667/DATA    3668/DATA    3702/DATA    3703/DATA    3737/DATA    3738/DATA
      3772/DATA    3773/DATA    3807/DATA    3808/DATA    3841/DATA    3842/DATA    3865/DATA    3866/DATA
      3900/DATA    3901/DATA    3935/DATA    3936/DATA    3970/DATA    3971/DATA    4005/DATA    4006/DATA
      4040/DATA    4041/DATA    4075/DATA    4076/DATA    4109/DATA    4110/DATA    4143/DATA    4144/DATA
      4177/DATA    4178/DATA    4196/DATA    4197/DATA    4202/DATA    4203/DATA    4231/DATA    4232/DATA
      4260/DATA    4261/DATA    4289/DATA    4290/DATA    4318/DATA    4319/DATA    4336/DATA    4337/DATA
      4355/DATA    4356/DATA    4361/DATA    4362/DATA    4382/DATA    4383/DATA    4411/DATA    4412/DATA
      4440/DATA    4441/DATA    4469/DATA    4470/DATA    4498/DATA    4499/DATA    4516/DATA    4517/DATA
      4534/DATA    4535/DATA
   CDECOUT          418/DST      419/UNPK     420/DST      421/DC       781-RES
   CDMSG            847/P        878-J
   CDTRAP           255/BCR      262-LW
   CDTRPLM          248-DATA     254/CLM
   CEE              489/EOR      794-DATA
   CHKR1EBS         457/BE       463-LW
   CMPDEC           384/STW      417/B*       780-RES
   CNT3Z            973-EQU
   CNT4Z            974-EQU
   COMP             761/J        771-TEXT
   COMPIN           385-LI
   COND             377/AND      784-DATA
   COUNT            958-PZE
   CPINT            271/LW       282/LW       292/STW      407/LW       416/LW       725/STW      813-DATA
       987/LW       996/STW
   CPINTM           294/STW      719/LW       726/LW       814-DATA     998/STW
   CP1              179/DATA     239/XPSD     304-RES      307/LPSD     350/STW      351/STW
   CP1SAVE          173/DATA     306/STM      308-RES      344/STW
   CP2              180/DATA     240/XPSD     310-RES      313/LPSD     352/STW      353/STW
   CP2SAVE          174/DATA     312/STM      314-RES      345/STW
   CP3              181/DATA     241/XPSD     316-RES      319/LPSD     354/STW      355/STW
   CP3SAVE          175/DATA     318/STM      320-RES      346/STW
   CP4              182/DATA     242/XPSD     322-RES      325/LPSD     356/STW      357/STW
   CP4SAVE          176/DATA     324/STM      326-RES      347/STW
   CYCLE            334-STW      558/BCS      716/BNE      718/BNE      727/BCS      732/B        747/DATA
       749/DATA     954/PZE
   DA01            1257-DATA
   DA02            1278-DATA
   DA03            1299-DATA
   DA04            1320-DATA
   DA05            1341-DATA
   DA06            1362-DATA
   DA07            1383-DATA
   DA08            1404-DATA
   DA09            1425-DATA
   DC01            2118-DATA
   DC02            2139-DATA
   DC03            2160-DATA
   DC04            2181-DATA
   DC05            2202-DATA
   DD01            2580-DATA
   DD02            2601-DATA
   DD03            2622-DATA
   DD04            2643-DATA
   DD05            2664-DATA
   DD06            2685-DATA
   DD07            2706-DATA
   DD08            2727-DATA
   DD09            2748-DATA
   DD10            2769-DATA
   DD11            2790-DATA
   DD12            2811-DATA
   DD13            2832-DATA
   DD14            2853-DATA
   DD15            2874-DATA
   DD16            2895-DATA
   DD17            2916-DATA
   DD18            2937-DATA
   DD19            2958-DATA
   DD20            2979-DATA
   DD21            3000-DATA
   DD22            3021-DATA
   DD23            3042-DATA
   DD24            3063-DATA
   DD25            3084-DATA
   DECMSG           878/J        884-EQU
   DFRET           1003-EQU     1071/K       1092/K       1344/K       1533/K       2646/K       2667/K
      2961/K
   DFSW            1002-EQU     1007/K       1028/K       1049/K       1070/K       1091/K       1112/K
      1133/K       1154/K       1175/K       1196/K       1217/K       1238/K       1259/K       1280/K
      1301/K       1322/K       1343/K       1364/K       1385/K       1406/K       1427/K       1448/K
      1469/K       1490/K       1511/K       1532/K       1553/K       1574/K       1595/K       1616/K
      1637/K       1658/K       1679/K       1700/K       1721/K       1742/K       1763/K       1784/K
      1805/K       1826/K       1847/K       1868/K       1889/K       1910/K       1931/K       1952/K
      1973/K       1994/K       2015/K       2036/K       2057/K       2078/K       2099/K       2120/K
      2141/K       2162/K       2183/K       2204/K       2225/K       2246/K       2267/K       2288/K
      2309/K       2330/K       2351/K       2372/K       2393/K       2414/K       2435/K       2456/K
      2477/K       2498/K       2519/K       2540/K       2561/K       2582/K       2603/K       2624/K
      2645/K       2666/K       2687/K       2708/K       2729/K       2750/K       2771/K       2792/K
      2813/K       2834/K       2855/K       2876/K       2897/K       2918/K       2939/K       2960/K
      2981/K       3002/K       3023/K       3044/K       3065/K       3086/K
   DFTRAP           232/XPSD     249-DATA     252/LW       258/LW
   DL01            1005-DATA
   DL02            1026-DATA
   DL03            1047-DATA
   DL04            1068-DATA
   DL05            1089-DATA
   DM               207-EQU     3108/DATA    3109/DATA    3143/DATA    3144/DATA    3178/DATA    3179/DATA
      3213/DATA    3214/DATA    3248/DATA    3249/DATA    3283/DATA    3284/DATA    3318/DATA    3319/DATA
      3353/DATA    3354/DATA    3388/DATA    3389/DATA    3423/DATA    3424/DATA    3458/DATA    3459/DATA
      3493/DATA    3494/DATA    3528/DATA    3529/DATA    3563/DATA    3564/DATA    3597/DATA    3598/DATA
      3632/DATA    3633/DATA    3667/DATA    3668/DATA    3702/DATA    3703/DATA    3737/DATA    3738/DATA
      3772/DATA    3773/DATA    3807/DATA    3808/DATA    3841/DATA    3842/DATA    3865/DATA    3866/DATA
      3900/DATA    3901/DATA    3935/DATA    3936/DATA    3970/DATA    3971/DATA    4005/DATA    4006/DATA
      4040/DATA    4041/DATA    4075/DATA    4076/DATA    4109/DATA    4110/DATA    4143/DATA    4144/DATA
      4177/DATA    4178/DATA    4196/DATA    4197/DATA    4202/DATA    4203/DATA    4231/DATA    4232/DATA
      4260/DATA    4261/DATA    4289/DATA    4290/DATA    4318/DATA    4319/DATA    4336/DATA    4337/DATA
      4355/DATA    4356/DATA    4361/DATA    4362/DATA    4382/DATA    4383/DATA    4411/DATA    4412/DATA
      4440/DATA    4441/DATA    4469/DATA    4470/DATA    4498/DATA    4499/DATA    4516/DATA    4517/DATA
      4534/DATA    4535/DATA
   DM01            2223-DATA
   DM02            2244-DATA
   DM03            2265-DATA
   DM04            2286-DATA
   DM05            2307-DATA
   DM06            2328-DATA
   DM07            2349-DATA
   DM08            2370-DATA
   DM09            2391-DATA
   DM10            2412-DATA
   DM11            2433-DATA
   DM12            2454-DATA
   DM13            2475-DATA
   DM14            2496-DATA
   DM15            2517-DATA
   DM16            2538-DATA
   DM17            2559-DATA
   DONE             364/B        712-NOP
   DONEMSG          684/BCR      692-TIO      694/BCR      699/BEZ
   DS               980-EQU     3943/DATA    3978/DATA
   DSA01           1614-DATA
   DSA02           1635-DATA
   DSA03           1656-DATA
   DSA04           1677-DATA
   DSA05           1908-DATA
   DSA06           1698-DATA
   DSA07           1719-DATA
   DSA08           1740-DATA
   DSA09           1761-DATA
   DSA10           1782-DATA
   DSA11           1803-DATA
   DSA12           1824-DATA
   DSA13           1845-DATA
   DSA14           1866-DATA
   DSA15           1887-DATA
   DSA16           1929-DATA
   DSA17           1950-DATA
   DSA18           1971-DATA
   DSA19           1992-DATA
   DSA20           2013-DATA
   DSA21           2034-DATA
   DSA22           2055-DATA
   DSA23           2076-DATA
   DSA24           2097-DATA
   DST01           1110-DATA
   DST02           1131-DATA
   DST03           1152-DATA
   DST04           1173-DATA
   DST05           1194-DATA
   DST06           1215-DATA
   DST07           1236-DATA
   DS01            1446-DATA
   DS02            1467-DATA
   DS03            1488-DATA
   DS04            1509-DATA
   DS05            1530-DATA
   DS06            1551-DATA
   DS07            1572-DATA
   DS08            1593-DATA
   EBS1            3105-DATA
   EBS2            3105/DATA    3140-DATA
   EBS3            3561-DATA
   EBS30           4107-DATA
   EBS31           4141-DATA
   EBS4            3561/DATA    3593-EQU
   EBS5            3804-DATA
   EBS6            3804/DATA    3838-DATA
   EBS7            3838/DATA    3861-DATA
   EDIT             583/BCR      597-EQU
   END              554-WD       779/PZE
   ERRIND           548/LW       553/STW      561-DATA     580/MTW
   ERROR            446/XPSD     450/XPSD     454/XPSD     461/XPSD     467/XPSD     472/XPSD     476/XPSD
       486/XPSD     492/XPSD     496/XPSD     500/XPSD     504/XPSD     509/XPSD     514/XPSD     518/XPSD
       522/XPSD     526/XPSD     530/XPSD     534/XPSD     538/XPSD     542/XPSD     546/XPSD     564-PZE
       571/LPSD     595/LPSD
   ERRORS           285/LW       337/STW      428/LW       555/LW       573/STW      959-PZE      990/LW
   EXITIO           687/B        691/B        693/BCR      696/B        700-LPSD
   F                206-EQU
   FASTIN           406/STM      412/LM       902-RES
   FILL             221-CNAME
   FINI            4540-EQU
   FIRST            332/STW      630/LW       648/STW      797-DATA
   FROM             367/STW      369-LW       374/STW      559/LW
   GETOUT           650/LPSD     652-PZE
   GOTOP            665/BIR      671-LW
   HDCDW            702/LI       763-GEN
   HDG              853/J        876/J        895-TEXT
   HD2CDW           704/LI       765-GEN
   HD3CDW           706/LI       767-GEN
   HEAD             839/P        853-J
   HLTEST           586/B        590-RD       652/PZE
   I                211-COM      370/STW      968-EQU
   IA               390/STW      452/LW       971-EQU
   IAID             451/LW       806-I
   IAP              733-DATA
   IMAGE            599/LI       623/AND      624/STW      855/J        857/J        864/J        868/J
       904-TEXT
   INDA             389/LW       453/LW       773-PZE
   INST             423/DATA     970-EQU
   INSTID           443/LW       804-I
   IO               644/BCS      646-XPSD     658/B        670/B
   IOCOMP           758/P        761-J
   IOINT            823-DATA
   IOINTR           183/DATA     245/XPSD     358/STW      359/STW      747-DATA     756/LPSD
   IOM              577/LW       593/LW       740/STW      757-DATA
   IOSAV            177/DATA     348/STW      748-RES      750/STM      755/LM
   IOSET            745/LPSD     749-DATA
   IXID             458/LW       463/LW       807-I
   I9               793-DATA
   J                217-CNAME
   K                212-COM
   LINE             330/STW      629/LW       647/STW      803-DATA
   LINKAD           783-DATA
   LINOUT           634/BIR      642-LW
   LIST             360/LW       369/LW       778/LW      1004-EQU
   LOAD             333/LW       778-LW
   LOC              194/DATA     248/DATA     248/DATA     263/B        378/AI       380/LI       388/STW
       423-DATA     444/LW       448/LW       455/LB       480/CI       774/PZE      775/PZE      805/I
       950/PZE     1002/EQU     1003/EQU     1008/K       1029/K       1050/K       1113/K       1134/K
      1155/K       1176/K       1197/K       1218/K       1239/K       1260/K       1281/K       1302/K
      1323/K       1365/K       1386/K       1407/K       1428/K       1449/K       1470/K       1491/K
      1512/K       1554/K       1575/K       1596/K       1617/K       1638/K       1659/K       1680/K
      1701/K       1722/K       1743/K       1764/K       1785/K       1806/K       1827/K       1848/K
      1869/K       1890/K       1911/K       1932/K       1953/K       1974/K       1995/K       2016/K
      2037/K       2058/K       2079/K       2100/K       2121/K       2142/K       2163/K       2184/K
      2205/K       2226/K       2247/K       2268/K       2289/K       2310/K       2331/K       2352/K
      2373/K       2394/K       2415/K       2436/K       2457/K       2478/K       2499/K       2520/K
      2541/K       2562/K       2583/K       2604/K       2625/K       2688/K       2709/K       2730/K
      2751/K       2772/K       2793/K       2814/K       2835/K       2856/K       2877/K       2898/K
      2919/K       2940/K       2982/K       3003/K       3024/K       3045/K       3066/K       3087/K
      3108/DATA    3109/DATA    3143/DATA    3144/DATA    3178/DATA    3179/DATA    3213/DATA    3214/DATA
      3248/DATA    3249/DATA    3283/DATA    3284/DATA    3318/DATA    3319/DATA    3353/DATA    3354/DATA
      3388/DATA    3389/DATA    3423/DATA    3424/DATA    3458/DATA    3459/DATA    3493/DATA    3494/DATA
      3528/DATA    3529/DATA    3563/DATA    3564/DATA    3597/DATA    3598/DATA    3632/DATA    3633/DATA
      3667/DATA    3668/DATA    3702/DATA    3703/DATA    3737/DATA    3738/DATA    3772/DATA    3773/DATA
      3807/DATA    3808/DATA    3841/DATA    3842/DATA    3865/DATA    3866/DATA    3900/DATA    3901/DATA
      3935/DATA    3936/DATA    3970/DATA    3971/DATA    4005/DATA    4006/DATA    4040/DATA    4041/DATA
      4075/DATA    4076/DATA    4109/DATA    4110/DATA    4143/DATA    4144/DATA    4177/DATA    4178/DATA
      4196/DATA    4197/DATA    4202/DATA    4203/DATA    4231/DATA    4232/DATA    4260/DATA    4261/DATA
      4289/DATA    4290/DATA    4318/DATA    4319/DATA    4336/DATA    4337/DATA    4355/DATA    4356/DATA
      4361/DATA    4362/DATA    4382/DATA    4383/DATA    4411/DATA    4412/DATA    4440/DATA    4441/DATA
      4469/DATA    4470/DATA    4498/DATA    4499/DATA    4516/DATA    4517/DATA    4534/DATA    4535/DATA
   LOCADD           775-PZE
   LOC2AD           409/LW       774-PZE
   LONGL            841/P        857-J
   LPERR            666/LW       844-P
   LPFORMAT         673/LW       843-P
   LPGOTOP          671/LW       842-P
   LPMSG            666-LW       675/B
   LPO              632/BLZ      655-TDV      661/BNEZ
   LPREPORT         669/LW       845-P
   LPTOP            664/BNEZ     673-LW
   LW4              290/OR       786-LW
   MASK             291/AND      720/AND      724/LW       833-EQU      995/AND
   MAXCNT           715/CW       819-DATA
   MEMAD            776-PZE
   MEMID            515/LW       810-I
   MEMORY           414/STM      516/LW       520/LW       524/LW       528/LW       532/LW       536/LW
       540/LW       544/LW       733/DATA     773/PZE      776/PZE      810/I        972-EQU      977/EQU
      1006/DL      1027/DL      1048/DL      1069/DL      1090/DL      1111/DST     1132/DST     1153/DST
      1174/DST     1195/DST     1216/DST     1237/DST     1258/DA      1279/DA      1300/DA      1321/DA
      1342/DA      1363/DA      1384/DA      1405/DA      1426/DA      1447/DS      1468/DS      1489/DS
      1510/DS      1531/DS      1552/DS      1573/DS      1594/DS      2119/DC      2140/DC      2161/DC
      2182/DC      2203/DC      2224/DM      2245/DM      2266/DM      2287/DM      2308/DM      2329/DM
      2350/DM      2371/DM      2392/DM      2413/DM      2434/DM      2455/DM      2476/DM      2497/DM
      2518/DM      2539/DM      2560/DM      2581/DD      2602/DD      2623/DD      2644/DD      2665/DD
      2686/DD      2707/DD      2728/DD      2749/DD      2770/DD      2791/DD      2812/DD      2833/DD
      2854/DD      2875/DD      2896/DD      2917/DD      2938/DD      2959/DD      2980/DD      3001/DD
      3022/DD      3043/DD      3064/DD      3085/DD      3562/EBS     3589/GEN     3591/GEN     3596/EBS
      3624/GEN     3626/GEN     3631/EBS     3659/GEN     3661/GEN     3666/EBS     3694/GEN     3696/GEN
      3701/EBS     3729/GEN     3731/GEN     3736/EBS     3764/GEN     3766/GEN     3771/EBS     3799/GEN
      3801/GEN     3806/EBS     3840/EBS     3858/GEN     3860/GEN     3862/EBS     3892/GEN     3894/GEN
      3895/DATA    3898/EBS     3930/DATA    4108/EBS     4136/GEN     4138/GEN     4139/GEN     4170/GEN
      4172/GEN     4173/GEN     4176/UNPK    4195/UNPK    4201/UNPK    4230/UNPK    4259/UNPK    4288/UNPK
      4317/UNPK    4335/UNPK    4354/PACK    4360/PACK    4381/PACK    4410/PACK    4439/PACK    4468/PACK
      4497/PACK    4515/PACK    4533/PACK
   MODULE           560/LPSD     975-EQU
   MOTION           660/AND      816-DATA
   MOVE             367-STW      373/BIR
   MSG              880/J        882-TEXT
   M1Q15            362/AND      785-DATA
   NEG12            800-DATA
   NEG2             331/LW       965-EQU
   NEG20            801-DATA
   NEG3             798-DATA
   NEG4             964-EQU
   NEG51            329/LW       641/LW       802-DATA
   NEG8             799-DATA
   NOHALT           591/BCS      593-LW
   NOTEND           361/BCS      365-LW
   NOTRAPD          481/BNE      484/BE       487-EQU
   NOTR1EBS         462/B        468-EQU
   NUMBER           828-DATA     964/EQU      965/EQU
   ODDBALL          433/LW       826-DATA
   ONE              471/LW       796-DATA
   P                213-CNAME
   PACK1           4353-DATA
   PACK2           4353/DATA    4359-DATA
   PACK3           4359/DATA    4380-DATA
   PACK4           4380/DATA    4409-DATA
   PACK5           4409/DATA    4438-DATA
   PACK6           4438/DATA    4467-DATA
   PACK7           4467/DATA    4496-DATA
   PACK8           4514-DATA
   PACK9           4532-DATA
   PAGE              28/OPEN      29-CNAME
   PARITY           243/XPSD     266-PZE
   PASS             976-EQU
   PASSES           284/LW       338/STW      429/LW       960-PZE      989/LW
   PCPINT           335/LW       822-DATA
   PERR             844/P        862-J
   PFORMAT          843/P        870-J
   PGO              820-DATA     860/J
   PGOTOP           842/P        860-J
   PHEAD            639/LW       839-P
   PIOCOMP          743/LW       752/LW       758-P
   PLONGL           642/LW       841-P
   PREPORT          845/P        866-J
   PRINT            636/XPSD     638/XPSD     640/XPSD     646/XPSD     672/XPSD     674/XPSD     679-PZE
       700/LPSD     703/XPSD     705/XPSD     707/XPSD     723/XPSD     731/XPSD
   PRTCDMSG         730/LW       847-P
   PRTCMSG          722/LW       846-P
   PSDWID           473/LW       808-I
   PSHRTL           645/LW       840-P
   PSIXCR           635/LW       837-P
   PSW1             379/STW      422/LPSD     956-PZE
   PSW2             386/STW      957-PZE
   PTITLE           637/LW       838-P
   REGAPNT          505/LW       789-DATA
   REGID            488/LW       809-I
   REPEAT           274/LPSD     302/LPSD     954-PZE      975/EQU      976/EQU      999/LPSD
   REPLAY           708/LW       710-B
   RESET            246/XPSD     278-PZE
   RETEND           779-PZE
   RETURN           230/XPSD     234/XPSD     236/XPSD     257/STW      259/STW      261/LPSD     410/STW
       424/XPSD     434/STW      474/LW       478/LW       482/LW       948-PZE
   REV              767/GEN      768/DATA    4542-TEXT
   REVEND           768/DATA    4553-EQU
   RTC              715-CW
   RTCMSG           846/P        880-J
   SAVE             286/LW       334/STW      360-LW       436/LW       991/LW
   SETINTR           78/DATA     738-B
   SETPSW           376-LW
   SETRPLY          702-LI      4554/END
   SHORT            204/DATA     411-LCI      426/BCS
   SHRTL            840/P        855-J
   SIX              469/EOR      795-DATA
   SIXCR            837/P        849-J
   SKIP6            633/BIR      637-LW
   SPACE            815-TEXT     862/J        866/J        870/J        874/J
   SPUR             981/XPSD     983-PZE
   SPURTRAP         826/DATA     981-XPSD
   STORE            365/LW       777-STW
   TABLE            339/LI       341/STW      370/STW      375/LW       376/LW       387/LW       391/LW
       392/LW       393/LW       394/LW       395/LW       396/LW       397/LW       398/LW       399/LW
       400/LW       401/LW       402/LW       403/LW       404/LW       430/LW       445/LW       460/LW
       475/LW       491/LW       495/LW       499/LW       503/LW       508/LW       513/LW       517/LW
       521/LW       525/LW       529/LW       533/LW       537/LW       541/LW       545/LW       777/STW
       909-RES
   TABLEND          339/LI       465/LW       943-EQU
   TBYTES           602-LB       615/BIR
   TDIGITS          607-AI       614/BDR
   TEMP             659/STW      662/LW       817-DATA
   TEST             432/STW      435/STW      437/STW      438/STW      439/STW      440/STW      441/STW
       442/STW      459/LW       464/LW       470/LW       490/LW       494/LW       498/LW       502/LW
       506/LW       511/LW       944-RES      970/EQU      971/EQU      972/EQU
   TESTIO           581-AIO      584/BCR      589/BEZ
   TIDEC            721/BCR      726-LW
   TITLE            838/P        851-J
   TLN1             763/GEN      769-TEXT
   TLN2             765/GEN      770-TEXT
   TO               368/STW      370-STW
   TOP              663/AND      818-DATA
   TSTDVC           570/BCS      572-BIR
   TTL              849/J        851/J        872/J        888-DATA
   TWORDS           600-LI       621/BIR
   TYPE             287/LW       293/STW      582/TIO*     631/LW       655/TDV*     683/SIO*     692/TIO*
       821-DATA     992/LW       997/STW
   UNPK1           4175-DATA
   UNPK2           4175/DATA    4194-DATA
   UNPK3           4194/DATA    4200-DATA
   UNPK4           4200/DATA    4229-DATA
   UNPK5           4229/DATA    4258-DATA
   UNPK6           4258/DATA    4287-DATA
   UNPK7           4287/DATA    4316-DATA
   UNPK8           4334-DATA
   WKO              961-PZE
   WORD             962-PZE
   XDFLAG           298/STW      301/STW      381/LW       729/STW      790-DATA
   XPSD             449/LW       966-EQU
   XPSDID           447/LW       805-I
   XREGX            576/STM      601/LW       626/LM       824-RES
   XRTC             732-B
   Y                969-EQU
   ZERO             327/LW       328/LW       547/LW       552/LW       963-DATA     973/EQU      974/EQU
   ZR               551/BCS      575-LCI
   0F               605/AND      825-DATA
   2Q3              792-DATA
   5X               251/STW      260/LW       262/LW       264-DATA
   6Q3              587/AND      588/EOR      688/AND      689/EOR      697/AND      698/EOR      791-GEN
