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

      495                            *
      496                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      497                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
      498                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      499                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      500                            *        IN THE MACHINE WORD.
      501                            *
      502                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      503                            *
      504                            * LABELOPT  #HTECON  LABELADDR       OPTIONAL COMMENTS
      505                            *
      506                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      507                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      508                            *                  EXECUTION LOCATION COUNTER;
      509                            *
      510                            *                  #HTECON IS THE PROCEDURE REFERENCE;
      511                            *
      512                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      513                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      514                            *                  'EBCDIC'.
      515                            *
      516         00000000           #HTECON  CNAME
      517                                     PROC
      518                            *
      519                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      520                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      521                            *
      522                                     ERROR,0,NUM(AF)~=1 ;
      523                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      524                            *
      525                            *
      526                            LF       BAL,X6   *#HTE%
      527                                     GEN,10,22  0,AF(1)
      528                            *
      529                                     PEND
      530                            *
      531                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      532                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      533                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      534                            *
      535                            *        RETURN IS TO THE PROCEDURE REFERENCE
      536                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      537                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      538                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      539                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      540                            *        OF THE LOAD MULTIPLE INSTRUCTION.
      541                            *
      542                            *
      543                            *
      544                            *
      545                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      546                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#ETH',
      547                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      548                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      549                            *        IF THE CHARACTER STRING TO BE CONVERTED
      550                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      551                            *        THE REGISTERS USED MUST NOT
      552                            *        INCLUDE THE LINK REGISTER.
      553                            *
      554                            *
      555                            *                 #ETHCON,CHAR   LABEL,DISP,ERRETN
      556                            *
      557                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      558                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      559                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      560                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      561                            *                          ( MUST BE BETWEEN 0 AND 3 )
      562                            *
      563         00000000           #ETHCON  CNAME
      564                                     PROC
      565                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      566                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      567                            *
      568                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      569                            A        SET      0
      570                            *
      571                            *
      572                                     ERROR,0,A~=CF(2) ;
      573                             '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      574                            *
      575                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      576                            *
      577                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      578                            B        SET      0
      579                            *
      580                            *
      581                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      582                             '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      583                            *
      584                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD,S:INT)=0 ;
      585                             '**AF(1) LABEL NOT A RELOCATABLE ADDRESS OR ACCEPTABLE REGISTER**'
      586                            *
      587                             ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      588                             (AF(1)=X3))     ;
      589                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      590                            *
      591                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      592                            *
      593                            D SET TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      594                             |(AF(3)=X3))&NUM(AF)>2
      595                            *
      596                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      597                             '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      598                            *
      599                            E        SET      C|D               'OR' THE RESULTS
      600                            LF       BAL,X6    *#ETH%           GO TO CONVERSION ROUTINE
      601                                     DO       TCOR(AF(1),S:INT)   DO IF REGISTER
      602                            *
      603                                     GEN,8,22,2  A,AF(1),B
      604                            *
      605                                     ELSE                       RELOCATABLE ADDRESS
      606                            *
      607                                     GEN,8,24     A,BA(AF(1))+B
      608                            *
      609                                     FIN
      610                                     PEND
      611                             SPACE 1

      612                            *
      613         00000002           #PRINT   CNAME    2,#PRINTER%
      614         00000001           #TYPE    CNAME    1,#TYPER%
      615                                     PROC
      616                            *
      617                            *
      618                                     LOCAL    A
      619                            *
      620                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      621                             '**CF(2) MUST BE POSITIVE INTEGER**'
      622                            *
      623                                     ERROR,0,NUM(CF)>3 ;
      624                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      625                            *
      626                                     ERROR,0,NUM(AF)>NAME(1) ;
      627                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      628                            *
      629                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      630                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      631                            *
      632                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      633                            *
      634                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      635                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      636                            *
      637                                     ERROR,0,A=0  ;
      638                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      639                            *
      640                                     ELSE
      641                            *
      642                            A        SET      0
      643                            *
      644                                     FIN
      645                            *
      646                            *
      647                            *
      648                            *
      649                            LF      BAL,X6    *NAME(2)                                          *A04
      650                            *
      651                            *
      652                                     DO       NUM(CF)=1&NAME(1)=1
      653                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      654                                     ELSE
      655                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      656                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      657                                     ELSE
      658                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      659                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      660                                     ELSE
      661                                     DO       NUM(CF)=2&CF(2)>0
      662                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      663                                     ELSE
      664                                     DO       NUM(CF)=2&CF(2)=0
      665                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      666                                     ELSE
      667                                     DO       NUM(CF)>2&CF(2)>0
      668                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      669                                     ELSE
      670                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      671                                     FIN
      672                                     FIN
      673                                     FIN
      674                                     FIN
      675                                     FIN
      676                                     FIN
      677                            *
      678                            *
      679                                     PEND
      680                            *
      681         000000C0           C0       EQU      X'C0'
      682         000000C1           C1       EQU      X'C1'
      683         000000C2           C2       EQU      X'C2'
      684         000000C3           C3       EQU      X'C3'
      685         000000C4           C4       EQU      X'C4'
      686         000000C5           C5       EQU      X'C5'
      687         000000C6           C6       EQU      X'C6'
      688         000000C7           C7       EQU      X'C7'
      689         000000C8           C8       EQU      X'C8'
      690         000000C9           C9       EQU      X'C9'
      691         000000CA           CA       EQU      X'CA'
      692         000000CB           CB       EQU      X'CB'
      693         000000CC           CC       EQU      X'CC'
      694         000000CD           CD       EQU      X'CD'
      695         000000CE           CE       EQU      X'CE'
      696         000000CF           CF       EQU      X'CF'
      697         000000F0           F0       EQU      X'F0'
      698         000000F1           F1       EQU      X'F1'
      699                            *
      700                            *
      701         00000000           TEXTCS   CNAME
      702                                     PROC
      703                                     DISP     %
      704                                     LIST     0
      705                            LF       TEXTC    AF
      706                                     LIST     1
      707                                     PEND
      708                            *
      709                            *
      710                            *
      711                            *
      712                            *********************************************
      713                                     SYSTEM   SIG9P
1 C00   00:37 JUN 21,'83    SIGMA 8-9 CPU DIAG SUFFIX 706134-11/51-A05  1-28-74                   PAGE    3
A     714                                     PAGE
      715                            *********************************************
      716                            *
      717                            *
      718   01 00392                 #TABLE1A   ORG     X'392'           THIS TABLE IS USED BY THE USER
            01 00392
      719         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      720         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      721         01 00394           #LOADFLAG  EQU    %+2
      722         01 00395           #MTLFLAG   EQU    %+3
      723         01 00396           #TOADDR    EQU    %+4
      724         01 00397           #PRTADDR   EQU    %+5
      725                            *                                                                   *A03
      726         01 00399           #OUTPTR    EQU    %+7
      727         01 0039A           #PAKDEX    EQU    %+8
      728         01 0039B           #INDEX     EQU    %+9
      729         01 0039C           #PARAM%H1 EQU     %+10
      730         01 0039D           #PARAM%H2 EQU     %+11
      731         01 0039E           #PARAM%H3 EQU     %+12
      732         01 0039F           #PARAM%H4 EQU     %+13
      733         01 003A0           #TESTINIT EQU     %+14
      734         01 003A1           #STATUS   EQU     %+15
      735         01 003A2           #PARAM1  EQU      %+16
      736         01 003A4           #PARAM2  EQU      %+18
      737         01 003A6           #PARAM3  EQU      %+20
      738         01 003A8           #PARAM4  EQU      %+22
      739         01 003AA           #MAXMEM   EQU     %+24
      740         01 003AB           #SAMPLE% EQU      %+25                                              *A04
      741         01 003AC           #BRKOUT  EQU      %+26
      742         01 003AD           #DM%START EQU     %+27
      743         01 003AE           #DM%END  EQU      %+28
      744                            *
      745                            *
      746                            ************
      747                            *
      748                            *
      749   01 003C2                 #TABLE1B   ORG     X'3C2'           THIS TABLE IS USED BY USER
            01 003C2
      750         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      751         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      752         01 003C4           #BTE%      EQU    %+2
      753         01 003C5           #DISUSER%  EQU    %+3
      754         01 003C6           #ENUSER%   EQU    %+4
      755                            *
      756         01 003C8           #GUIDE%    EQU    %+6
      757         01 003C9           #FIDLE%    EQU    %+7
      758         01 003CA           #RUNADDR%  EQU    %+8
      759         01 003CB           #RETURN%   EQU    %+9
      760         01 003CC           #TYPER%    EQU    %+10
      761         01 003CD           #PRINTER%  EQU    %+11
      762         01 003CE           #ERRTEXT%  EQU    %+12
      763                            *                                                                   *A03
      764         01 003D0           #ERR1PTR%  EQU    %+14
      765                            *                                                                   *A03
      766         01 003D2           #VALTAB% EQU      %+16
      767         01 003D3           #DMENTRY% EQU     %+17
      768         01 003D4           #P%MODE% EQU      %+18
      769                            *
      770                            *
      771                            **************:
      772                            *
      773                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      774                            *
      775   01 003E5                          ORG      X'3E5'
            01 003E5
      776                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      777   01 003E5    00       A   VALBIT   DATA,1   ,,,2                   (1 BYTE EACH)
            01 003E5 1  00       A
            01 003E5 2  00       A
            01 003E5 3  02       A
      778                            *
      779   01 003E7                          ORG      X'3E7'
            01 003E7
      780                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      781         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      782   01 003E7    00       A            DATA,1   ,,,-30
            01 003E7 1  00       A
            01 003E7 2  00       A
            01 003E7 3  E2       A
      783                            *
      784   01 003EC                          ORG      X'3EC'
            01 003EC
      785         01 003EC           VALTYPE  EQU      %
      786   01 003EC    1E007140              GEN,8,24  30,BA(ALPHATXT)
      787                            *
      788                            *
      789                            ************
      790                            *
      791   01 003F0                 DCA        ORG     X'3F0'
            01 003F0
      792                            *
      793   01 003F0    00000001 A   MST:NUM  DATA     1
      794   01 003F1    00000204 A   MSP:NUM  DATA     LAST:MOD
      795   01 003F2    00000001 A   MCR:NUM  DATA     1
      796   01 003F3    00002BEA     LISTPTR  DATA     LIST
      797                            *                 **********
      798                            *                DESIGNERS CONSTANT AREA.
      799                            *                THIS SECTION IS NOT REQUIRED IF
      800                            *                THE USER PROGRAM DOES NOT USE IT!
      801                            *                **********
      802                            *
      803                            ************
      804                            *
      805                            *
      806   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      807   01 01000    00001036     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      808   01 01001    00002B5D     #TABLE3@   DATA   TABLE3
      809   01 01002    00002B86     #PLINEIN@  DATA   PLINEIN
      810   01 01003    80000000 A   #DIAG@  GEN,1,31  1,0               SAMPLE FLAG FOR GUIDE           *A04
      811   01 01004    00000000 A   #LOADER@ DATA     0
      812                            *
      813                            *
      814                            *
      815                            *
      816                            ************
      817                            *
      818                            *
      819                            *                **********
      820         00000000           R0         EQU    0
      821         00000001           R1         EQU    1
      822         00000001           X1         EQU    1
      823         00000002           R2         EQU    2
      824         00000002           X2         EQU    2
      825         00000003           R3         EQU    3
      826         00000003           X3         EQU    3
      827         00000004           R4         EQU    4          **********
      828         00000004           X4         EQU    4          PREFFERED AREA TO BE USED
      829         00000005           R5         EQU    5          FOR USER PROGRAM EQU TABLES.
      830         00000005           X5         EQU    5          NOT MANDATORY BUT DESIRABLE
      831         00000006           R6         EQU    6          FOR CONSISTANTCY.
      832         00000006           X6         EQU    6          **********
      833         00000007           R7         EQU    7
      834         00000007           X7         EQU    7
      835         00000008           R8         EQU    8
      836         00000009           R9         EQU    9
      837         0000000A           R10        EQU    10
      838         0000000B           R11        EQU    11
      839         0000000C           R12        EQU    12
      840         0000000D           R13        EQU    13
      841         0000000E           R14        EQU    14
      842         0000000F           R15        EQU    15
      843                            *
      844                            *
      845                            *
      846                            *
      847                            ************                 **********
      848                            *                            PREFFERED AREA TO BE USED
      849                            *                            FOR USER PROGRAM FORM TABLES.
      850                            *                            NOT MANDATORY BUT DESIRABLE
      851                            *                            FOR CONSISTANTCY.
      852                            **********
      853                            *
      854                            *       FORMS   THE ADDRESS FIELD SPECIFIES HOW THE WORD IS DIVIDED AND
      855                            *              HOW MANY BITS THERE WILL BE IN EACH PART OF THE WORD.
      856                            *              EFFECTIVE AT ASSEMBLY TIME ONLY.
      857                            *
      858                        *S* A        COM,4,4,24           AF(1),AF(2),AF(3)
      859                            *
      860         00000004           D        COM,8,24             AF(1),AF(2)
      861                            *
      862         00000004           E        COM,8,8,16           AF(1),AF(2),AF(3)
      863                            *
      864         00000004           G        COM,16,8,8           AF(1),AF(2),AF(3)
      865                            *
      866         00000004           H        COM,8,8,8,8          AF(1),AF(2),AF(3),AF(4)
      867                            *
      868         00000004           I        COM,4,28             AF(1),AF(2)
      869                            *
      870         00000004           K        COM,4,4,4,20         AF(1),AF(2),AF(3),AF(4)
      871                            *
      872                            L   COM,3,2,3,5,3,1,3,3,3,3,3  AF(1),AF(2),AF(3),AF(4),AF(5),AF(6),;
      873         00000004                       AF(7),AF(8),AF(9),AF(10),AF(11)
      874                            *
      875         00000004           M        COM,4,2,2,2,6,8,8  AF(1),AF(2),AF(3),AF(4),AF(5),AF(6),AF(7)
      876                            *
      877         00000004           F        COM,8,5,19           AF(1),AF(2),AF(3)
      878                            *
      879         00000004           Z        COM,8,2,6,16         AF(1),AF(2),AF(3),AF(4)
      880                            *
      881                            *      PROCS                       EFFECTIVE AT ASSEMBLY TIME ONLY
      882                            *
      883                            *
      884                            *        J        CONVERTS TO BYTE ADDRESS
      885         00000000           J        CNAME
      886                                     PROC
      887                            LF       GEN,8,24 AF(1),BA(AF(2))
      888                                     PEND
      889                            *
      890                            *      R8      ERROR IDENTIFIER AND ADDRESS:
      891                            *              01000000 = INSTRUCTION
      892                            *              02000000 = LOCATION+1 OF THE EXECUTION LOCATION
      893                            *              03000000 = INDIRECT ADDRESS
      894                            *              0400000X = INDEX REGISTER X: X=1(NORMAL) OR 7(ONE)
      895                            *              0500000X = PROGRAM STATUS WORD X: X=1 OR 2
      896                            *              0600000X = REGISTER X: X=C(12)OR D(13)
      897                            *              0700WXYZ = MEMORY WORD IN LOCATION WXYZ (WXYZ=0-FFFF)
      898                            *      R9      EXPECTED  RESULT
      899                            *      R10     OBSERVED RESULT
      900                            *      R11     EXCLUSIVE 'OR' OF R9 AND R10
      901                            *
      902                            *
      903   01 01010                          ORG      X'1010'                                           *A03
            01 01010
      904                                     BOUND    8
      905   01 01010    00000000 A            DATA     0
      906   01 01011    00000000 A            DATA     0
      907   01 01012    00001014              DATA     %+2
      908   01 01013    00000000 A            DATA     0
      909   01 01014    70201010              LC       EXP:TRAP-6
      910   01 01015    0F00102C              XPSD,0   RETURN
      911   01 01016    00000000 A   EXP:TRAP DATA     0
      912   01 01017    00000000 A            DATA     0
      913   01 01018    0000101A              DATA     %+2
      914   01 01019    00000000 A            DATA     0
      915   01 0101A    0F00102C              XPSD,0   RETURN
      916   01 0101B    0F00102C              XPSD,0   RETURN
      917   01 0101C    0F00102C              XPSD,0   RETURN
      918   01 0101D    0F00102C              XPSD,0   RETURN
      919   01 0101E    0F00102C              XPSD,0   RETURN
      920   01 0101F    0F00102C              XPSD,0   RETURN
      921   01 01020    0F00102C              XPSD,0   RETURN
      922   01 01021    0F00102C              XPSD,0   RETURN
      923   01 01022    0F00102C              XPSD,0   RETURN
      924   01 01023    0F00102C              XPSD,0   RETURN
      925   01 01024    0F00102C              XPSD,0   RETURN
      926   01 01025    0F00102C              XPSD,0   RETURN
      927   01 01026    0F00102C              XPSD,0   RETURN
      928   01 01027    0F00102C              XPSD,0   RETURN
      929   01 01028    0F00102C              XPSD,0   RETURN
      930   01 01029    0F00102C              XPSD,0   RETURN
      931   01 0102A    0F00102C              XPSD,0   RETURN
      932                            *
      933   01 0102B    0F80102C     BRANCH   XPSD,8   RETURN
      934                                     BOUND    8
      935   01 0102C    00000000 A   RETURN   DATA     0
      936   01 0102D    00000000 A            DATA     0
      937   01 0102E    000011CE              DATA     LOC+2
      938   01 0102F    00000000 A            DATA     0
      939   01 01030    02000000 A            NOP
      940   01 01031    02000000 A            NOP
      941   01 01032    02000000 A            NOP
      942   01 01033    02000000 A            NOP
      943   01 01034    0BADDEED A   LRAT     DATA     X'BADDEED'                                        *A03
      944   01 01036                          ORG      X'1036'                                           *A03
            01 01036
1 C00   00:37 JUN 21,'83    SIGMA 8-9 CPU DIAG SUFFIX 706134-11/51-A05  1-28-74                   PAGE    4
A     945                                     PAGE
      946                            *
      947                            ********************************************************************
      948                            ***         CONTROL  PROGRAM  BEGINS  HERE            ***
      949                            ********************************************************************
      950                            *
      951         01 01036           INITIAL  EQU      %
      952   01 01036    356010B4              STW,X6     INI:EXIT        YES RECOVERY IF 'LOADFLAG'
      953   01 01037    70200394              LC       #LOADFLAG         IS ZERO.
      954   01 01038    69F010AB              BCS,15   BYPASS
      955                            *
      956   01 01039    32600395              LW,X6    #MTLFLAG          #MTLFLAG CONTAINS THE ADDRESS
      957   01 0103A    68301049              BCR,3    NOTAPE            OF THE MAGTAPE LIBRARY'S LINK
      958   01 0103B    328010B9              LW,R8    INIFLG
      959   01 0103C    69301044              BCS,3    NOTAPE-5
      960   01 0103D    328C0004 A            LW,R8    4,X6              TABLE IF THE PROGRAM IS LOADED
      961   01 0103E    35801D0F              STW,R8   TAPE0ADR          FROM TAPE; OTHERWISE IT IS 0.
      962   01 0103F    20800001 A            AI,R8    1
      963   01 01040    35801D10              STW,R8   TAPE1ADR          IDX:TAPE IS A SIBROUTINE USED
      964   01 01041    20800001 A            AI,R8    1                 TO POSITION THE LIBRARY TAPE
      965   01 01042    35801D11              STW,R8   TAPE2ADR          AT THE SNAP COMPARE DATA.
      966   01 01043    68001049              B        NOTAPE
      967   01 01044    32801C62              LW,R8    SO
      968   01 01045    68301049              BCR,3    NOTAPE
      969   01 01046    21800007 A            CI,R8    7
      970   01 01047    68301049              BCR,3    NOTAPE
      971   01 01048    6AF01878              BAL,R15  MAR:TAPE
      972                            *
      973   01 01049    328010B9     NOTAPE   LW,R8    INIFLG            SET:MEM IS A SUBROUTINE USED
      974   01 0104A    6930104C              BCS,3    %+2               TO SET UP BUFFER ADDRESSES TO
      975   01 0104B    6AE01822              BAL,R14  SET:MEM           BE USED BY THE SNAP ROUTINES
      976                            *                                   ACCORDING TO AVAIALABLE MEMORY.
      977   01 0104C    32800040 A   PARA:SET LW,R8    X'40'             ONLY REQ'D ONCE PER LOAD.
      978   01 0104D    35801146              STW,R8   TRAP:SAV
      979   01 0104E    22800000 A            LI,R8    0                 SET CPU# TO 0.                  *A05
      980   01 0104F    6C800045 A            RD,R8    X'45'                                             *A05
      981   01 01050    358010BA              STW,R8   FLG45             SAVE MACH. TYPE INFO IN FLG45.  *A05
      982   01 01051    21802000 A            CI,R8    X'2000'           SET LST:NUM ACCORDING TO 9R/16R *A05
      983   01 01052    68401055              BCR,4    %+3               BIT18 IN R8.                    *A05
      984   01 01053    228001C1 A            LI,R8    LAST:9R                                           *A05
      985   01 01054    68001056              B        %+2                                               *A05
      986   01 01055    22800204 A            LI,R8    LAST:MOD          RESTORE 'MODULE STOP' AND LAST
      987   01 01056    35801AB2              STW,R8   LST:NUM           NUMBER TO THE LAST MODULE #.
      988   01 01057    358003F1              STW,R8   MSP:NUM
      989   01 01058    EA6003C3              #HTECON  R8
            01 01059    00000008 A
      990   01 0105A    328C0001 A            LW,R8    1,X6              INITIALIZE THE VALUES IN THE
      991   01 0105B    4B801D02              AND,R8   LS:MSK            K-PARAMETER LINE BY FIRST SET-
      992   01 0105C    35801A6A              STW,R8   KINIT+1           TING UP THE K-INITIAL LINE &
      993   01 0105D    22800001 A            LI,R8    1                 THEN WRITING IT OVER THE K-
      994   01 0105E    358003F0              STW,R8   MST:NUM           PARAMETER LINE.
      995   01 0105F    358003F2              STW,R8   MCR:NUM
      996   01 01060    35801403              STW,R8   PASS:CNT
      997   01 01061    228011CC              LI,R8    LOC               SET VALUE OF 'LOC' IN
      998   01 01062    EA6003C3              #HTECON  R8                K-PARAMETER LINE.
            01 01063    00000008 A
      999   01 01064    328C0001 A            LW,R8    1,X6
     1000   01 01065    35801A71              STW,R8   KINIT+8
     1001   01 01066    72201A69              LB,X2    KINIT
     1002   01 01067    72841A69              LB,R8    KINIT,X2
     1003   01 01068    75841A60              STB,R8   KOUT,X2
     1004   01 01069    64201067              BDR,X2   %-2
     1005   01 0106A    EA6003C3              #HTECON  #PRTADDR
            01 0106B    00000397
     1006   01 0106C    328C0001 A            LW,R8    1,X6              INITIALIZE THE VALUES IN THE
     1007   01 0106D    35801998              STW,R8   JINIT+1           J-PARAMETER LINE BY FIRST SET-
     1008                            *                                   TING UP THE J-INITIAL LINE &
     1009   01 0106E    EA6003C3              #HTECON  #TOADDR           THE WRTITING IT OVER THE
            01 0106F    00000396
     1010   01 01070    328C0001 A            LW,R8    1,X6              J-PARAMETER LINE.
     1011   01 01071    3580199A              STW,R8   JINIT+3
     1012   01 01072    72201997              LB,X2    JINIT
     1013   01 01073    72841997              LB,R8    JINIT,X2
     1014   01 01074    7584198C              STB,R8   JOUT,X2
     1015   01 01075    64201073              BDR,X2   %-2
     1016                            *
     1017   01 01076    22800000 A            LI,R8    0
     1018   01 01077    35801D06              STW,R8   FTFL
     1019   01 01078    35801D04              STW,R8   ERR:CNT           FLAGS AND COUNTS THAT MUST BE
     1020   01 01079    35801402              STW,R8   PASS:OK           CLEARED TO ZERO UPON ANY 'YES'
     1021   01 0107A    358015D2              STW,R8   SNAP:FLG          RECOVERY.
     1022   01 0107B    35801C62              STW,R8   SO
     1023   01 0107C    35800393              STW,R8   #HDRFLG
     1024   01 0107D    358013E2              STW,R8   EM
     1025   01 0107E    35801423              STW,R8   MAR:SET-1
     1026   01 0107F    358011EB              STW,R8   CI:CNT
     1027   01 01080    35801AF0              STW,R8   LCNT
     1028   01 01081    35801D09              STW,R8   CK:BIAS
     1029   01 01082    35801D33              STW,R8   CARD:SW
     1030   01 01083    35801D34              STW,R8   END:FLG
     1031   01 01084    35801D35              STW,R8   RD:SW
     1032   01 01085    358010B5              STW,R8   TOT:ERRS
     1033   01 01086    358015D3              STW,R8   SNAP:UNC
     1034   01 01087    358015D6              STW,R8   GEN:FLG
     1035   01 01088    35801D05              STW,R8   ERR:FLG
     1036   01 01089    35801B35              STW,R8   WDT:SNAP
     1037   01 0108A    35801193              STW,R8   SNAPINT
     1038   01 0108B    358015D7              STW,R8   VER:FLG
     1039   01 0108C    358013E1              STW,R8   EM:FLG                                            *A02
     1040   01 0108D    02000000 A            NOP
     1041   01 0108E    02000000 A            NOP
     1042   01 0108F    22800040 A           LI,R8     X'40'                                             *A04
     1043   01 01090    6D801100 A           WD,R8     X'1100'                                           *A04
     1044   01 01091    2280E390 A            LI,R8    X'E390'                                           *A02
     1045   01 01092    35801A24              STW,R8   CI:SAV                                            *A02
     1046   01 01093    32801D19              LW,R8    SNAP:INI
     1047   01 01094    35801D18              STW,R8   SNAP:SET
     1048   01 01095    CF001A46              HIO,0    *MI:ADR           TURN OFF MEMORY INTERFERRENCE.
     1049   01 01096    328019A1              LW,R8    JINIT+10
     1050   01 01097    35801996              STW,R8   JOUT+10
     1051   01 01098    22802BEA              LI,R8    LIST
     1052   01 01099    358003F3              STW,R8   LISTPTR           RESET THE LISTPTR BACK TO THE
     1053   01 0109A    6C800045 A            RD,R8    X'45'             FIRST MODULE IN THE LIST.
     1054   01 0109B    4B801429              AND,R8   NEW:CM            RESET THE CLOCK MARGINS TO
     1055   01 0109C    3580142E              STW,R8   CM:ON                                             *A01
     1056   01 0109D    3580142F              STW,R8   CM:OFF                                            *A02
     1057   01 0109E    6D800045 A            WD,R8    X'45'             NORMAL.  RESET MAX CLOCK OVER-
     1058   01 0109F    32801B33              LW,R8    NORM:SNP          RIDE SET BY CB=FF IN K LINE.
     1059   01 010A0    35801215              STW,R8   SNAP:SW           PREPARE COUNTER ZERO ACTIVATION
     1060   01 010A1    228FFFF6 A            LI,R8    -10               SET THE STATUS REPORT INTERVAL
     1061   01 010A2    358019E4              STW,R8   SI                BACK TO ITS DEFAULT VALUE(10).
     1062   01 010A3    358010B9              STW,R8   INIFLG
     1063   01 010A4    3280191A              LW,R8    CK:LIMIT          SET THE CLOCK END POINTER FOR
     1064   01 010A5    35801D17              STW,R8   CE:PTR            SNAPSHOT TO THE MAX VALUE CAL-
     1065   01 010A6    02000000 A            NOP                        CULATED BY THE SET:MEM ROUTINE.
     1066   01 010A7    22800001 A            LI,R8    1                 CK:SAV IS USED BY THE 'BACK12'
     1067   01 010A8    35801D0D              STW,R8   CK:SAV-1          ROUTINE OF SNAP TO KEEP SNAP
     1068   01 010A9    35801D0C              STW,R8   CK:SAV-2          OUTPUT ROUTINE FROM BACKING UP
     1069   01 010AA    35801D0B              STW,R8   CK:SAV-3          1 CLOCK IN SEMI-INTERLACED
     1070   01 010AB    6C800049 A   BYPASS   RD,R8    X'49'             RESET SNAP
     1071   01 010AC    22800000 A            LI,R8    0                 OF ALL IMPLEMENTED COUNTERS     *A01
     1072   01 010AD    358011EB              STW,R8   CI:CNT            (AFTER 11TH ERROR FREE PASS).   *A01
     1073   01 010AE    02000000 A            NOP                        TURN OFF ANY COUNTERS SELECTED. *A01
     1074                            *                                   MODE WHE FAILING CLOCK IS #1.
     1075   01 010AF    702003A0              LC       #TESTINIT
     1076   01 010B0    EA6010B4              BAL,X6    *INI:EXIT        BYTE 0 OF #TESTINIT CONTROLS
     1077   01 010B1    000010B2              DATA     GO                THE AUTOMATIC START FEATURE
     1078                                     BOUND    8                 OF GUIDE INTERFACED PROGRAMS.
     1079   01 010B2    000010BB     GO       DATA     START             IF THE CC VALUE FETCHED IS NOT
     1080   01 010B3    00000000 A            DATA     0                 ZERO, THEN GUIDE WILL GO TO
     1081                            *                                   IDLE INSTEAD OF RUN.
     1082   01 010B4    00000000 A   INI:EXIT DATA     0
     1083   01 010B5    00000000 A   TOT:ERRS DATA    0
     1084   01 010B6    00001FCA     IAX      DATA     MMCD                                              *A03
     1085   01 010B7    00001F8A     IAM32    DATA     MMCD-64                                           *A03
     1086   01 010B8    00003ABF     IAP      DATA     MEMORY-1
     1087   01 010B9    00000000 A   INIFLG   DATA     0
     1088   01 010BA    00000000 A   FLG45    DATA     0                                                 *A05
1 C00   00:37 JUN 21,'83    SIGMA 8-9 CPU DIAG SUFFIX 706134-11/51-A05  1-28-74                   PAGE    5
A    1089                                     PAGE
     1090                            *
     1091                            **** NON-INITIALIZED START BEGINS HERE ****
     1092                            *
     1093         01 010BB           START    EQU      %
     1094   01 010BB    22C00000 A            LI,R12   0
     1095   01 010BC    35C015D2              STW,R12  SNAP:FLG
     1096   01 010BD    22C011A3              LI,R12   SHORTL
     1097   01 010BE    35C015D0              STW,R12  SHORTPTR
     1098                            *
     1099         01 010BF           SUFFTEST EQU      %
     1100   01 010BF    6AF01156              BAL,R15  CLR:SUFF          CLEAR DRIVER FOR TEST MODULE.
     1101   01 010C0    6AF0115C              BAL,R15  MOVERS            MOVE MODULE DATA INTO DRIVER.
     1102   01 010C1    6AF0111A              BAL,R15  TRAP:SW           SET UP FOR TRAP IF ONE IS EXP
     1103   01 010C2    32A015D2              LW,R10   SNAP:FLG          SNAP:FLG IS SET IN K-LINE OR AT
     1104   01 010C3    683010C5              BCR,3    %+2               FT:ERR DEPENDING UPON OPTION(SO)
     1105   01 010C4    6AF011EC              BAL,R15  SNAP:CON
     1106   01 010C5    6AF01191              BAL,R15  EXU:SUFF          EXECUTE TEST MODULE
     1107   01 010C6    6AF011E0              BAL,R15  SAV:RES           SAVE TEST RESULTS
     1108   01 010C7    6AF012A0              BAL,R15  CMP:SUFF          COMPARE OBS'D W/EXP'D
     1109                            *
     1110         01 010C8           PTR:ADV  EQU      %
     1111   01 010C8    6AF0134A              BAL,R15  ADV:PTR           ADVANCE LISTPTR & TEST FOR
     1112   01 010C9    680010BF              B        SUFFTEST
     1113                            *
     1114         01 010CA           TRAPTEST EQU       %
     1115   01 010CA    22100001 A            LI,X1    1
     1116   01 010CB    B28203F3              LW,R8    *LISTPTR,X1
     1117   01 010CC    358011CC              STW,R8   LOC
     1118   01 010CD    22100002 A            LI,X1    2
     1119   01 010CE    B28203F3              LW,R8    *LISTPTR,X1
     1120   01 010CF    35801D3A              STW,R8   PSW1
     1121   01 010D0    6A6014FA              BAL,X6    OC:PREP
     1122                            *
     1123         01 010D1           COM:TRAP EQU      %                 ******
     1124   01 010D1    22800000 A            LI,R8    0
     1125   01 010D2    35801D3B              STW,R8   PSW2
     1126   01 010D3    32801C62              LW,R8    SO
     1127   01 010D4    683010EC              BCR,3    NO:GEN            SKIP UNSNAPPABLE MODULES IF
     1128   01 010D5    32E015D6              LW,R14   GEN:FLG
     1129   01 010D6    30E015D8              AW,R14   VER:END
     1130   01 010D7    693010DA              BCS,3    %+3
     1131   01 010D8    21800007 A            CI,R8    7
     1132   01 010D9    683010E1              BCR,3    SKIPEM
     1133   01 010DA    3280199D              LW,R8    JINIT+6
     1134   01 010DB    35801992              STW,R8   JOUT+6
     1135   01 010DC    22800000 A            LI,R8    0
     1136   01 010DD    358013E2              STW,R8   EM
     1137   01 010DE    358011EB              STW,R8   CI:CNT
     1138   01 010DF    2280E390 A            LI,R8    X'E390'
     1139   01 010E0    6D801100 A            WD,R8    X'1100'
     1140   01 010E1    B28003F3     SKIPEM   LW,R8    *LISTPTR          SNAP OPTION IS NOT ZERO.
     1141   01 010E2    21801000 A            CI,R8    X'1000'
     1142   01 010E3    684010EC              BCR,4    NO:GEN
     1143   01 010E4    32E015D7     SKIP8    LW,R14   VER:FLG
     1144   01 010E5    683010E8              BCR,3    %+3
     1145   01 010E6    22000C8F              LI,R0    DA(MOVF)
     1146   01 010E7    6AE018B0              BAL,R14  READ                                              *A02
     1147   01 010E8    32E015D6              LW,R14   GEN:FLG           WRITE DUMMY MODULES OUT TO
     1148   01 010E9    683010EB              BCR,3    %+2               SNAP TAPE IN PLACE OF
     1149   01 010EA    6AE01850              BAL,R14  DUMMY             UNSNAPPABLE MODULES.
     1150   01 010EB    680010C8              B        PTR:ADV
     1151                            *
     1152   01 010EC    B28003F3     NO:GEN   LW,R8    *LISTPTR
     1153   01 010ED    329010BA              LW,R9    FLG45                                             *A05
     1154   01 010EE    683010F7              BCR,3    RUN:IT            TEST FOR SIGMA 9R/16R MACHINE   *A05
     1155   01 010EF    21902000 A            CI,R9    X'2000'           IF R MACH. SKIP ALLMODULES      *A05
     1156   01 010F0    684010F3              BCR,4    %+3               FLAGGED WITH X'4000' IN         *A05
     1157   01 010F1    21804000 A            CI,R8    X'4000'           LISTPTR.                        *A05
     1158   01 010F2    694010E4              BCS,4    SKIP8                                             *A05
     1159   01 010F3    4B90114C              AND,R9   MASK8                                             *A02
     1160   01 010F4    682010F7              BCR,2    RUN:IT                                            *A02
     1161   01 010F5    21802000 A            CI,R8    X'2000'                                           *A02
     1162   01 010F6    694010E4              BCS,4    SKIP8
     1163   01 010F7    32801D3B     RUN:IT   LW,R8    PSW2              DUMMY DATA IS PUT IN PSW2 TO
     1164   01 010F8    4B80113E              AND,R8   FILL:MSK          OBSERVE A NON-ZERO DATA FLOW
     1165   01 010F9    4880113F              EOR,R8   FILLER            IN SNAPSHOT OUTPUT.
     1166   01 010FA    B25003F3              LW,X5    *LISTPTR                                          *A02
     1167   01 010FB    4B50114D              AND,X5   MP:MSK            SET MASTER PROTECTED MODE       *A02
     1168   01 010FC    682010FE              BCR,2    %+2               FOR ANLZ INSTRUCTIONS.          *A02
     1169   01 010FD    4880114E              EOR,R8   SETPSW2                                           *A02
     1170   01 010FE    35801D3B              STW,R8   PSW2
     1171                            *
     1172   01 010FF    22100003 A            LI,X1    3                 LOC1:SW IS USED IN TRAP:SW FOR
     1173   01 01100    3510114B              STW,X1   LOC1:SW           THOSE MODULES THAT PSW1 EX-
     1174   01 01101    B28203F3              LW,R8    *LISTPTR,X1       PECTED VALUE IS LOC+1.
     1175   01 01102    4B801D42              AND,R8   ADR:MSK           IF PSW1 OUT ADDRESS IS LOC+2
     1176   01 01103    218011CE              CI,R8    LOC+2
     1177   01 01104    68301115              BE       INC:RET           INCREMENT THE RETURN ADDRESS
     1178   01 01105    218011CD              CI,R8    LOC+1             IN R15 TO SKIP THE TRAP:SW
     1179   01 01106    69301109              BNE      %+3               ROUTINE.
     1180   01 01107    3580114B              STW,R8   LOC1:SW
     1181   01 01108    E800000F A            B        *R15
     1182   01 01109    22901029              LI,R9    EXP:TRAP+19
     1183   01 0110A    31800009 A            CW,R8    R9
     1184   01 0110B    69201110              BCS,2    %+5
     1185   01 0110C    2290101B              LI,R9    EXP:TRAP+5
     1186   01 0110D    31800009 A            CW,R8    R9
     1187   01 0110E    69101110              BCS,1    %+2
     1188   01 0110F    E800000F A            B        *R15
     1189   01 01110    22100002 A            LI,X1    2
     1190   01 01111    B28203F3              LW,R8    *LISTPTR,X1       IN R15 TO SKIP THE TRAP:SW
     1191   01 01112    4B801D42              AND,R8   ADR:MSK           ROUTINE
     1192   01 01113    218011CC              CI,R8    LOC
     1193   01 01114    69301116              BNE      %+2
     1194   01 01115    20F00001 A   INC:RET  AI,R15   1
     1195   01 01116    32801D3A              LW,R8    PSW1
     1196   01 01117    308013E2              AW,R8    EM                ADD EXECUTION MODE TO
     1197   01 01118    35801D3A              STW,R8   PSW1              NON-TRAPPING MODULES.
     1198   01 01119    E800000F A            B        *R15
     1199                            *
     1200         01 0111A           TRAP:SW  EQU      %
     1201   01 0111A    22100003 A            LI,X1    3
     1202   01 0111B    3290102B              LW,R9    BRANCH
     1203   01 0111C    3280114B              LW,R8    LOC1:SW
     1204   01 0111D    21800003 A            CI,R8    3
     1205   01 0111E    6930112B              BNE      SET:IDX
     1206   01 0111F    35801145              STW,R8   TRAP:FLG
     1207   01 01120    B28203F3              LW,R8    *LISTPTR,X1
     1208   01 01121    4B801D42              AND,R8   ADR:MSK           TEST PSW1 OUT ADDRESS TO SELECT
     1209   01 01122    31801140              CW,R8    EX:TRP0           APPROPRIATE XPSD FOR EXPECTED
     1210   01 01123    69301126              BNE      %+3               TRAP LOCATION.  USE EXTRAP46 IF
     1211   01 01124    32901144              LW,R9    EXTRAP46          PSW1 SAYS EXP:TRAP, USE EXTRAP00 IF
     1212   01 01125    6800112B              B        SET:IDX           PSW1 SAYS EXP:TRAP+5.  IF NEITHER
     1213   01 01126    31801141              CW,R8    EX:TRP5           OF ABOVE, USE EXTRAP40 FOR ADD
     1214   01 01127    6930112A              BNE      %+3               IMMEDIATE TYPES.
     1215   01 01128    32901142              LW,R9    EXTRAP00
     1216   01 01129    6800112B              B        %+2
     1217   01 0112A    32901143              LW,R9    EXTRAP40
     1218                            *
     1219   01 0112B    32501D3A     SET:IDX  LW,X5    PSW1
     1220   01 0112C    32800005 A            LW,R8    X5
     1221   01 0112D    4B8015D5              AND,R8   FLAG:MSK
     1222   01 0112E    48801D40              EOR,R8   LOCADR            FETCH PSW1 IN, SET ADDRESS TO
     1223   01 0112F    308013E2              AW,R8    EM                'LOC' AND ADD THE EXECUTION MODE
     1224   01 01130    35801D3A              STW,R8   PSW1              BIAS FOR TRAPPING MODULES.
     1225                            *
     1226   01 01131    4B801148              AND,R8   PRIV:MSK          PLACE EXPECTED FLAGS FROM TEST
     1227   01 01132    48801149              EOR,R8   ETP4:ADR          MODULE'S PSW1-IN IN APPROPRIATE
     1228   01 01133    35801018              STW,R8   EXP:TRAP+2        TRAP LOCATION FOR COMPARATOR
     1229   01 01134    4B801148              AND,R8   PRIV:MSK          VALIDATION AT CMP:AUTO.
     1230   01 01135    4880114A              EOR,R8   ETM2:ADR
     1231   01 01136    35801012              STW,R8   EXP:TRAP-4
     1232                            *
     1233   01 01137    4B501D42              AND,X5   ADR:MSK           COMPUTE THE LOCATION OF EXPECTED
     1234   01 01138    205FEE34 N            AI,X5    0-LOC             TRAP BY USING THE EXCESS COUNT
     1235   01 01139    328A0040 A            LW,R8     X'40',X5         AS AN INDEX (X5).
     1236   01 0113A    35801146              STW,R8   TRAP:SAV          SAVE THE OLD TRAP CONTENTS AND THE
     1237   01 0113B    35501147              STW,X5   TRAP:IDX          INDEX COUNT TO RESTORE UPON EXIT.
     1238   01 0113C    359A0040 A            STW,R9    X'40',X5
     1239   01 0113D    E800000F A            B        *R15
     1240                            *
     1241   01 0113E    FF00FFFF A   FILL:MSK DATA     X'FF00FFFF'
     1242   01 0113F    003F0000 A   FILLER   DATA     X'3F0000'
     1243   01 01140    00001016     EX:TRP0  DATA     EXP:TRAP
     1244   01 01141    0000101B     EX:TRP5  DATA     EXP:TRAP+5
     1245   01 01142    0F001016     EXTRAP00 XPSD,0   EXP:TRAP
     1246   01 01143    0F401016     EXTRAP40 XPSD,4   EXP:TRAP
     1247   01 01144    0F401010     EXTRAP46 XPSD,4   EXP:TRAP-6
     1248   01 01145    00000000 A   TRAP:FLG DATA     0
     1249   01 01146    00000000 A   TRAP:SAV DATA     0
     1250   01 01147    00000000 A   TRAP:IDX DATA     0
     1251   01 01148    FF3E0000 A   PRIV:MSK DATA     X'FF3E0000'
     1252   01 01149    0000101A     ETP4:ADR DATA     EXP:TRAP+4
     1253   01 0114A    00001014     ETM2:ADR DATA     EXP:TRAP-2
     1254   01 0114B    00000000 A   LOC1:SW  DATA     0
     1255   01 0114C    00200000 A   MASK8    DATA     X'00200000'
     1256   01 0114D    00008000 A   MP:MSK   DATA     X'8000'
     1257   01 0114E    00800000 A   SETPSW2  DATA     X'00800000'
     1258                            *
     1259   01 0114F    FFFFFF9C A   SDAT    DATA      -100                                              *A04
     1260                            *                                                                   *A04
     1261                            *                                                                   *A04
     1262         01 01150           SAMPLE  EQU       %                                                 *A04
     1263   01 01150    3310114F             MTW,1     SDAT                                              *A04
     1264   01 01151    E820000F A           BCR,2     *R15                                              *A04
     1265   01 01152    8F0003AB             XPSD,0    *#SAMPLE%                                         *A04
     1266   01 01153    22CFFF9C A           LI,R12    -100                                              *A04
     1267   01 01154    35C0114F             STW,R12   SDAT                                              *A04
     1268   01 01155    E800000F A           B         *R15                                              *A04
     1269         01 01156           CLR:SUFF EQU      %
     1270   01 01156    22000000 A            LI,R0    0
     1271   01 01157    221FFF10 A            LI,X1    RES:SAV-SBUF:END
     1272   01 01158    35023BA0              STW,R0   SBUF:END,X1
     1273   01 01159    65101158              BIR,X1   %-1
     1274   01 0115A    E800000F A            B        *R15
     1275                            *
     1276                            *
     1277   01 0115B    00000000 A            DATA     0
     1278         01 0115C           MOVERS   EQU      %
     1279   01 0115C    35F0115B              STW,R15  %-1
     1280   01 0115D    22800000 A            LI,R8    0
     1281   01 0115E    35801145              STW,R8   TRAP:FLG
     1282   01 0115F    222FFFF8 A            LI,X2    -8
     1283   01 01160    35841189              STW,R8   RCNT:IN+8,X2
     1284   01 01161    65201160              BIR,X2   %-1
     1285                            *
     1286   01 01162    22200002 A            LI,X2    2
     1287   01 01163    22300003 A            LI,X3    3
     1288   01 01164    22400004 A            LI,X4    4
     1289   01 01165    F28003F3              LB,R8    *LISTPTR
     1290   01 01166    22900006 A            LI,R9    6
     1291   01 01167    31800009 A            CW,R8    R9
     1292   01 01168    6830116A              BE       %+2
     1293   01 01169    20900002 A            AI,R9    2
     1294   01 0116A    35901180              STW,R9   END:MOVE
     1295   01 0116B    B29803F3     FETCH    LW,R9    *LISTPTR,X4
     1296   01 0116C    6830117C              BEZ      NEXT:WRD
     1297   01 0116D    52800009 A            LH,R8    R9
     1298   01 0116E    72640009 A            LB,X6    R9,X2
     1299   01 0116F    72560009 A            LB,X5    R9,X3
     1300   01 01170    35581181              STW,X5   DIS:SAV,X4
     1301   01 01171    206FFF00 A            AI,X6    X'FFF00'
     1302   01 01172    3568117D              STW,X6   CNT:SAV,X4
     1303   01 01173    32B81185              LW,R11   TABL:PTR,X4
     1304   01 01174    38800006 A            SW,R8    X6
     1305   01 01175    B2AC0008 A   TABLPREP LW,R10   *R8,X6
     1306   01 01176    31581189              CW,X5    BUF:SIZE,X4
     1307   01 01177    69101179              BL       %+2
     1308   01 01178    22500000 A            LI,X5    0
     1309   01 01179    B5AA000B A            STW,R10  *R11,X5
     1310   01 0117A    20500001 A            AI,X5    1
     1311   01 0117B    65601175              BIR,X6   TABLPREP
     1312   01 0117C    20400001 A   NEXT:WRD AI,X4    1
     1313   01 0117D    31401180              CW,X4    END:MOVE
     1314   01 0117E    6930116B              BCS,3    FETCH
     1315   01 0117F    680010CA              B        TRAPTEST
     1316                            *
     1317   01 01180    00000000 A   END:MOVE DATA     0
     1318                            *
     1319         01 0117D           CNT:SAV  EQU      %-4
     1320   01 01181    00000000 A   RCNT:IN  DATA     0
     1321   01 01182    00000000 A   RCNT:OUT DATA     0
     1322   01 01183    00000000 A   MCNT:IN  DATA     0
     1323   01 01184    00000000 A   MCNT:OUT DATA     0
     1324                            *
     1325         01 01181           DIS:SAV  EQU      %-4
     1326   01 01185    00000000 A            DATA     0
     1327   01 01186    00000000 A            DATA     0
     1328   01 01187    00000000 A            DATA     0
     1329   01 01188    00000000 A            DATA     0
     1330                            *
     1331         01 01185           TABL:PTR EQU      %-4
     1332   01 01189    00003B00              DATA     RTABLIN
     1333   01 0118A    00003B50              DATA     RTABLOUT
     1334   01 0118B    00003B10              DATA     MTABLIN
     1335   01 0118C    00003B60              DATA     MTABLOUT
     1336                            *
     1337         01 01189           BUF:SIZE EQU      %-4
     1338   01 0118D    00000010 A            DATA     16
     1339   01 0118E    00000010 A            DATA     16
     1340   01 0118F    00000040 A            DATA     64
     1341   01 01190    00000040 A            DATA     64
     1342                            *
     1343         01 01191           EXU:SUFF EQU      %
     1344   01 01191    35F011DF              STW,R15  EXIT:EXU
     1345   01 01192    68001197              B        SHORTS+2
     1346                            *
     1347   01 01193    00000000 A   SNAPINT  DATA     0
     1348   01 01194    088011C7 N   SNAPINI  GEN,8,1,7,16  8,1,0,LOC-5
     1349                            *
     1350         01 01195           SHORTS   EQU      %
     1351   01 01195    6AF0115C              BAL,R15  MOVERS
     1352   01 01196    6AF0111A              BAL,R15  TRAP:SW
     1353   01 01197    22301D3E              LI,X3    SP
     1354   01 01198    35301D44              STW,X3   IASP
     1355                            *
     1356   01 01199    02000000 A            NOP
     1357                            *
     1358   01 0119A    3270142E     SET:CM   LW,X7    CM:ON             TURN SELECTED CLOCK MARGIN ON.
     1359   01 0119B    6D700045 A            WD,X7    X'45'
     1360   01 0119C    32F015D6              LW,R15   GEN:FLG                                           *A04
     1361   01 0119D    30F015D8              AW,R15   VER:END                                           *A04
     1362   01 0119E    693011A0              BCS,3    %+2                                               *A04
     1363   01 0119F    6AF01150             BAL,R15   SAMPLE                                            *A04
     1364   01 011A0    02000000 A            NOP                        THIS SET OF NOP'S ARE LEFT FOR
     1365   01 011A1    02000000 A            NOP                        THE USER TO INNOVATE AS HE SEES
     1366   01 011A2    02000000 A            NOP                        FIT.  THEY ARE OUTSIDE SHORT
     1367                            *                                   LOOP BUT INSIDE LONG LOOP.
     1368   01 011A3    32301193     SHORTL   LW,X3    SNAPINT
     1369   01 011A4    683011A6              BCR,3    %+2
     1370   01 011A5    6D300049 A            WD,X3    X'49'
     1371   01 011A6    32F01C62              LW,R15   SO                DISABLE COUNT                   *A03
     1372   01 011A7    683011AA              BCR,3    %+3               PULSE 4 IF                      *A03
     1373   01 011A8    22F01000 A            LI,R15   X'1000'           SNAP IS                         *A03
     1374   01 011A9    6DF01100 A            WD,R15   X'1100'           REQUESTED                       *A03
     1375   01 011AA    22300004 A            LI,X3    4
     1376   01 011AB    922603F3              LD,X2    *LISTPTR,X3
     1377   01 011AC    15201D3E              STD,X2   SP
     1378   01 011AD    32101187              LW,X1    DIS:SAV+6
     1379   01 011AE    32301183              LW,X3    MCNT:IN
     1380   01 011AF    32223B10              LW,X2    MTABLIN,X1
     1381   01 011B0    35223AC0              STW,X2   MEMORY,X1
     1382   01 011B1    20100001 A            AI,X1    1
     1383   01 011B2    653011AF              BIR,X3   %-3
     1384   01 011B3    12003B00              LD,R0    RTABLIN
     1385   01 011B4    12203B02              LD,X2    RTABLIN+2
     1386   01 011B5    12403B04              LD,X4    RTABLIN+4
     1387   01 011B6    12603B06              LD,X6    RTABLIN+6
     1388   01 011B7    12803B08              LD,R8    RTABLIN+8
     1389   01 011B8    12A03B0A              LD,R10   RTABLIN+10
     1390   01 011B9    12C03B0C              LD,R12   RTABLIN+12
     1391   01 011BA    12E03B0E              LD,R14   RTABLIN+14
1 C00   00:37 JUN 21,'83    SIGMA 8-9 CPU DIAG SUFFIX 706134-11/51-A05  1-28-74                   PAGE    6
A    1392                                     PAGE
     1393   01 011BB    32F0102B     PRE:LOC  LW,R15   BRANCH            RESTORE XPSD IN LOC+1 AND IN
     1394   01 011BC    35F011CD              STW,R15  LOC+1             COMPARATOR REFERENCE TABLE.
     1395   01 011BD    35F012FC              STW,R15  LISTEXT+3         RESTORE INDIRECT ADDRESS (IA).
     1396   01 011BE    22F03AC0              LI,R15   MEMORY
     1397   01 011BF    35F01D43              STW,R15  IA
     1398   01 011C0    32F011EB              LW,R15   CI:CNT            TURN ON COUNTERS AFTER 56TH PASS
     1399   01 011C1    6DF01200 A            WD,R15   X'1200'           ERROR FREE PASS.
     1400   01 011C2    22FFFFFF A            LI,R15   -1                SET COUNTER ZERO LOCATION TO
     1401   01 011C3    35F013E5              STW,R15  CICOUNT           -1.  CLEAR LOCATION OF CNTR 0
     1402   01 011C4    22F00000 A            LI,R15   0                 STORRED ADDRESS FROM XPSD.
     1403   01 011C5    35F013FC              STW,R15  CI:PROC           CM
     1404   01 011C6    32F03B0F              LW,R15   RTABLIN+15
     1405                            *
     1406                            ***********************************************************************
     1407   01 011C7    0E001D3A              LPSD,0   PSW1                  SET  TEST  STATUS
     1408   01 011C8    680011CC              B        LOC               EM=3   EXECUTION MODE
     1409   01 011C9    670011CC              EXU      LOC               EM=2     VARIATION
     1410   01 011CA    680011CD              B        LOC+1                      (SEE J PARAMETER LINE)
     1411   01 011CB    6900102C              BCS,0    RETURN            EM=1
     1412   01 011CC    00000000 A   LOC      DATA     0                 EXECUTE  TEST  INSTRUCTION
     1413   01 011CD    0F80102C              XPSD,8   RETURN               SAVE  TEST  STATUS
     1414                            ***********************************************************************
     1415                            *
     1416   01 011CE    70200392              LC       #SENSE            SHORT LOOP.  SENSE SW1.
     1417   01 011CF    E98015D0              BCS,8    *SHORTPTR
     1418   01 011D0    35F03ABF              STW,R15  RES:SAV+15
     1419   01 011D1    22F01000 A            LI,R15   X'1000'           TURN COUNT PULSE 4              *A03
     1420   01 011D2    6DF01200 A            WD,R15   X'1200'           BACK ON                         *A03
     1421   01 011D3    32F01A24              LW,R15   CI:SAV            TURN OFF COUNTER INTERRUPTS.
     1422   01 011D4    6DF01100 A            WD,R15   X'1100'
     1423   01 011D5    6CF00045 A            RD,R15   X'45'             SAVE STATUS OF CLOCK MARGINS
     1424   01 011D6    35F0142E              STW,R15  CM:ON             FOR ERROR AND STATUS REPORT
     1425   01 011D7    32F0142F              LW,R15   CM:OFF            ROUTINES.  TURN CM OFF.
     1426   01 011D8    6DF00045 A            WD,R15   X'45'
     1427   01 011D9    35003AB0              STW,R0   RES:SAV
     1428   01 011DA    320015D2              LW,R0    SNAP:FLG
     1429   01 011DB    693011EC              BCS,3    SNAP:CON
     1430   01 011DC    320015D3              LW,R0    SNAP:UNC
     1431   01 011DD    693011EC              BCS,3    SNAP:CON
     1432   01 011DE    E80011DF              B        *EXIT:EXU
     1433                            *
     1434   01 011DF    00000000 A   EXIT:EXU DATA     0
     1435                            *
     1436         01 011E0           SAV:RES  EQU      %
     1437   01 011E0    35103AB1              STW,X1   RES:SAV+1         SAVE REGISTERS.
     1438   01 011E1    221FFFF3 A            LI,X1    -13
     1439   01 011E2    35223ABF              STW,X2   RES:SAV+15,X1
     1440   01 011E3    32220010 A            LW,X2     X'10',X1
     1441   01 011E4    651011E2              BIR,X1   %-2
     1442   01 011E5    32101145              LW,X1    TRAP:FLG
     1443   01 011E6    02000000 A            NOP                        BCS,3    *R15
     1444   01 011E7    32501147              LW,X5    TRAP:IDX
     1445   01 011E8    32801146              LW,R8    TRAP:SAV          RESTORE GUIDE'S TRAP XPSD'S.
     1446   01 011E9    358A0040 A            STW,R8    X'40',X5
     1447   01 011EA    E800000F A            B        *R15
     1448                            *
     1449   01 011EB    00000000 A   CI:CNT   DATA     0
     1450                            *
     1451         01 011EC           SNAP:CON EQU      %
     1452   01 011EC    32201D06              LW,X2    FTFL              GO TO SNAP:RUN AFTER FTFL IS
     1453   01 011ED    69301211              BCS,3    SNAP:RUN          SET BYPASSING SNAP INITIALIZER.
     1454   01 011EE    32203AA8              LW,X2    SN:OBS            SET EXP/OBS POINTER TO PUT
     1455   01 011EF    352015CD              STW,X2   SN:OEPTR          SNAP DATA INTO OBSERVED BUFF.
     1456   01 011F0    32201C62              LW,X2    SO
     1457   01 011F1    21200003 A            CI,X2    3
     1458   01 011F2    68301237              BCR,3    SNAPEXIT
     1459   01 011F3    222FFFFF A            LI,X2    -1                SET FTFL FLAG, RESET SNAP:FLG
     1460   01 011F4    35201D06              STW,X2   FTFL              IF NOT UNCONDITIONAL SNAP;
     1461   01 011F5    322015D3              LW,X2    SNAP:UNC          CLEAR SNAP BUFFERS BASED
     1462   01 011F6    693011F9              BCS,3    %+3               UPON AVAILABLE MEMORY FOUND
     1463   01 011F7    22200000 A            LI,X2    0                 IN SET:MEM ROUTINE.  CLEAR
     1464   01 011F8    352015D2              STW,X2   SNAP:FLG          LAST CLOCK FLAG & EXIT
     1465   01 011F9    22800000 A            LI,R8    0
     1466   01 011FA    35801D07              STW,R8   MA:PTR
     1467   01 011FB    35801D08              STW,R8   LC:FLG
     1468   01 011FC    35801D0E              STW,R8   LC:EXIT
     1469   01 011FD    02000000 A            NOP
     1470   01 011FE    02000000 A            NOP
     1471                            *                                   SET CLOCK POINTER VALUE ENT-
     1472                            *                                   ERED IN CLOCK BIAS FIELD OF
     1473   01 011FF    22800001 A            LI,R8    1                 K-LINE.  IF BIAS IS 0 SET PTR TO
     1474   01 01200    35801D0A              STW,R8   CK:PTR            ONE.  REFER TO CB:C,K-LINE.
     1475   01 01201    02000000 A            NOP
     1476                            *
     1477   01 01202    02000000 A            NOP                        SNAP DATA IS IN BLOCKS OF 23
     1478   01 01203    328015CD              LW,R8    SN:OEPTR          WORDS PER CPU CLOCK.  THIS
     1479   01 01204    68001206              B        %+2               CODE SERVOS THE 0BS/EXP PNTR
     1480   01 01205    20800017 A            AI,R8    23                TO THE SELECTED BLOCK OF 23.
     1481   01 01206    64201205              BDR,X2   %-1
     1482   01 01207    358015CD              STW,R8   SN:OEPTR
     1483   01 01208    32801D07              LW,R8    MA:PTR
     1484   01 01209    30800008 A   SET:SNAP AW,R8    R8
     1485   01 0120A    22200001 A            LI,X2    1
     1486   01 0120B    75841D18              STB,R8   SNAP:SET,X2       SNAP:SET IS THE WORD USED BY
     1487   01 0120C    32801D0A              LW,R8    CK:PTR            THE SNAP ACTIVATING WD TO LOAD
     1488                            *                                   AND ARM THE SNAP.  THE 1ST
     1489   01 0120D    75801D18              STB,R8   SNAP:SET          BYTE IS THE SELECTED CPU CLOCK
     1490   01 0120E    32801D18              LW,R8    SNAP:SET          AND BITS 10-14 SELECT THE ITEM
     1491   01 0120F    6D800049 A            WD,R8    X'49'             TO BE SNAPPED.  SEE SO:LINE0,1
     1492   01 01210    E80015D1              B        *LONGPTR          AND 2 FOR THE RELATIVE POSITION
     1493                            *                                   OF SNAPPABLE ITEMS IN THE 23
     1494   01 01211    32401D07     SNAP:RUN LW,X4    MA:PTR            WORD BLOCK.
     1495   01 01212    6C200049 A            RD,X2    X'49'
     1496   01 01213    68201215              BCR,2    %+2
     1497   01 01214    6AC0127E              BAL,R12  NO:SNAP
     1498   01 01215    68101218     SNAP:SW  BCR,1    %+3               SNAP:SW IS CHANGED TO UNCOND.
     1499   01 01216    223FFFFF A            LI,X3    -1                BRANCH IF CB=FF IN K-LINE.
     1500   01 01217    35301D08              STW,X3   LC:FLG            SEE CB:C.
     1501   01 01218    B52815CD              STW,X2   *SN:OEPTR,X4
     1502   01 01219    32801B35              LW,R8    WDT:SNAP
     1503   01 0121A    6830121C              BCR,3    %+2
     1504   01 0121B    6A801271              BAL,R8   REPORT
     1505   01 0121C    02000000 A            NOP
     1506   01 0121D    02000000 A            NOP
     1507   01 0121E    32801D07              LW,R8    MA:PTR
     1508   01 0121F    20800001 A            AI,R8    1
     1509   01 01220    21800017 A            CI,R8    23                WHEN MATRIX ADDRESS POINTER =
     1510   01 01221    68301224              BCR,3    %+3               23 SNAP OF CURRET CLOCK IS
     1511   01 01222    35801D07              STW,R8   MA:PTR            COMPLETE.  MA:PTR IS SET TO
     1512   01 01223    68001209              B        SET:SNAP          ZERO AND CLOCK POINTER IS
     1513                            *                                   ADVANCED BY 1 AND TESTED FOR
     1514   01 01224    22800000 A            LI,R8    0                 LAST CLOCK(CC4=1).
     1515   01 01225    35801D07              STW,R8   MA:PTR            LC:FLG IS SET WHEN SNAP OCCURS
     1516   01 01226    32201D0E     TST:EXIT LW,X2    LC:EXIT           ON LAST CLOCK.  LC:FLG IS
     1517   01 01227    69301237              BCS,3    SNAPEXIT          INTERLOCKED WITH LC:EXIT TO
     1518   01 01228    32201D08              LW,X2    LC:FLG            PERMIT SNAP TO TAKE AND PRINT
     1519   01 01229    6830122C              BCR,3    %+3               ONE MORE CLOCK OF SNAP DATA.
     1520   01 0122A    222FFFFF A            LI,X2    -1
     1521   01 0122B    35201D0E              STW,X2   LC:EXIT
     1522   01 0122C    02000000 A            NOP
     1523   01 0122D    02000000 A            NOP
     1524   01 0122E    32801D0A              LW,R8    CK:PTR            EXIT SNAP WHEN SNAP CLOCK
     1525   01 0122F    31801D17              CW,R8    CE:PTR            POINTER.  CE:PTR IS DEFAULT
     1526   01 01230    68301237              BCR,3    SNAPEXIT          TO CK:LIMIT SET IN
     1527   01 01231    20800001 A            AI,R8    1                 POINTER EQUALS CLOCK END
     1528   01 01232    35801D0A              STW,R8   CK:PTR            SET:MEM ROUTINE BASED UPON
     1529   01 01233    328015CD              LW,R8    SN:OEPTR          AVAILABLE MEMORY.
     1530   01 01234    20800017 A            AI,R8    23                ADVANCE OBS/EXP PTRS IF NOT END.
     1531   01 01235    358015CD              STW,R8   SN:OEPTR
     1532   01 01236    68001208              B        SET:SNAP-1
     1533                            *
     1534   01 01237    22200000 A   SNAPEXIT LI,X2    0
     1535   01 01238    35201D06              STW,X2   FTFL              CLEAR SNAP CONTROL FLAGS.
     1536   01 01239    35201D33              STW,X2   CARD:SW
     1537   01 0123A    322015D6              LW,X2    GEN:FLG
     1538   01 0123B    69301857              BCS,3    WRT:MTL
     1539   01 0123C    02000000 A            NOP
     1540   01 0123D    02000000 A            NOP
     1541   01 0123E    02000000 A            NOP
     1542   01 0123F    02000000 A            NOP
     1543   01 01240    02000000 A            NOP
     1544   01 01241    02000000 A            NOP
     1545   01 01242    32803AA8              LW,R8    SN:OBS
     1546   01 01243    35801C5A              STW,R8   SN:OBPTR
     1547   01 01244    22803CA5              LI,R8    SN:EXP
     1548   01 01245    35801C5B              STW,R8   SN:EXPTR
     1549   01 01246    32201D0A              LW,X2    CK:PTR            SET SN:OBS-1 TO CURRENT
     1550   01 01247    B28003F3              LW,R8    *LISTPTR          MODULE # TO BE USED FOR
     1551   01 01248    75200008 A            STB,X2   R8                LATER COMPARISON WITH
     1552   01 01249    35803AA7              STW,R8   SN:OBS-1          EXPECTED DATA FROM MAGTAPE
     1553   01 0124A    02000000 A            NOP                        LIBRARY.  SEE CMP:OE.
     1554   01 0124B    32201C62              LW,X2    SO
     1555   01 0124C    21200007 A            CI,X2    7
     1556   01 0124D    6830125C              BCR,3    SNAP:PRNT
     1557   01 0124E    6AF01878              BAL,R15  MAR:TAPE
     1558   01 0124F    32201C62              LW,X2    SO
     1559   01 01250    21200003 A            CI,X2    3
     1560   01 01251    69301258              BCS,3    %+7                                               *A01
     1561   01 01252    72203CA4              LB,X2    SN:EXP-1                                          *A01
     1562   01 01253    31201D17              CW,X2    CE:PTR
     1563   01 01254    69101256              BCS,1    %+2
     1564   01 01255    32201D17              LW,X2    CE:PTR
     1565   01 01256    75203AA7              STB,X2   SN:OBS-1                                          *A01
     1566   01 01257    6800125C              B        SNAP:PRNT                                         *A01
     1567   01 01258    2220125F              LI,X2    FNC:RET
     1568   01 01259    35201701              STW,X2   SNAP:OUT-1
     1569   01 0125A    35201C5F              STW,X2   FLG126
     1570   01 0125B    6AF017DA              BAL,R15  CMP:OE-2                                          *A03
     1571   01 0125C    6AF015F4     SNAP:PRNT BAL,R15 MOD:HDR
     1572   01 0125D    6AF01622              BAL,R15  MOD:DATA
     1573   01 0125E    6AF01702              BAL,R15   SNAP:OUT
     1574                            *
     1575   01 0125F    32C015D3     FNC:RET  LW,R12   SNAP:UNC
     1576   01 01260    693010C8              BCS,3    PTR:ADV
     1577   01 01261    22C00000 A            LI,R12   0
     1578   01 01262    35C015D2              STW,R12  SNAP:FLG
     1579   01 01263    35C01C5F              STW,R12  FLG126
     1580   01 01264    32C01C62              LW,R12   SO
     1581   01 01265    21C00001 A            CI,R12   1
     1582   01 01266    69301268              BCS,3    %+2
     1583   01 01267    8F9003CA              XPSD,9   *#RUNADDR%
     1584   01 01268    680010C8              B        PTR:ADV
     1585   01 01269    02000000 A            NOP
     1586   01 0126A    02000000 A            NOP
     1587   01 0126B    02000000 A            NOP
     1588   01 0126C    02000000 A            NOP
     1589   01 0126D    02000000 A            NOP
     1590   01 0126E    02000000 A            NOP
     1591   01 0126F    02000000 A            NOP
     1592   01 01270    02000000 A            NOP
     1593                            *
     1594         01 01271           REPORT   EQU      %
     1595   01 01271    32C00002 A            LW,R12   X2
     1596   01 01272    6AF0181D              BAL,R15  DHEX:CON
     1597   01 01273    35D0129D              STW,R13  WDT:MSG+8
     1598   01 01274    35C0129E              STW,R12  WDT:MSG+9
     1599   01 01275    32C01D18              LW,R12   SNAP:SET
     1600   01 01276    6AF0181D              BAL,R15  DHEX:CON
     1601   01 01277    35D01299              STW,R13  WDT:MSG+4
     1602   01 01278    35C0129A              STW,R12  WDT:MSG+5
     1603   01 01279    EA6003CD              #PRINT   WDT:MSG
            01 0127A    C0004A54 A
     1604   01 0127B    E8000008 A            B        *R8
     1605                            *
     1606   01 0127C    00000000 A            DATA     0
     1607   01 0127D    00000000 A            DATA     0
     1608         01 0127E           NO:SNAP  EQU      %
     1609   01 0127E    7400127C              STCF     %-2
     1610   01 0127F    35C0127D              STW,R12  %-2
     1611   01 01280    20CFFFFD A            AI,R12   -3
     1612   01 01281    32D01D09              LW,R13   CK:BIAS
     1613   01 01282    68101284              BCR,1    %+2
     1614   01 01283    68001237              B        SNAPEXIT
     1615   01 01284    6AF0181D              BAL,R15  DHEX:CON
     1616   01 01285    35D01292              STW,R13  NSM+6
     1617   01 01286    35C01293              STW,R12  NSM+7
     1618   01 01287    EA6003CC              #TYPE    NSM
            01 01288    00004A30 A
     1619   01 01289    8F9003CA              XPSD,9   *#RUNADDR%
     1620   01 0128A    7030127C              LCF      NO:SNAP-2
     1621   01 0128B    E800127D              B        *NO:SNAP-1
     1622                            *
     1623         01 0128C           NSM      TEXTCS   'CC3 SET ON SNAP RD AT           '
     1624         01 01295           WDT:MSG  TEXTCS   'WDT:SNAP  WD =            RD =         '
     1625                            *
     1626   01 0129F    00000000 A            DATA     0
     1627         01 012A0           CMP:SUFF EQU      %
     1628   01 012A0    35F0129F              STW,R15  %-1
     1629   01 012A1    F23003F3              LB,X3    *LISTPTR
     1630   01 012A2    203FFFFF A            AI,X3    -1
     1631   01 012A3    328612CA     GET:NEXT LW,R8    OBS:IDLS,X3
     1632   01 012A4    691012B8              BCS,1    STEP:X3
     1633   01 012A5    72900008 A            LB,R9    R8
     1634   01 012A6    21900006 A            CI,R9    6
     1635   01 012A7    691012B1              BL       CMP:STD
     1636   01 012A8    21900008 A            CI,R9    8
     1637   01 012A9    693012AB              BNE      %+2
     1638   01 012AA    680012D7              B        CMP:SP
     1639   01 012AB    21900007 A            CI,R9    7
     1640   01 012AC    693012AE              BNE      %+2
     1641   01 012AD    680012E3              B        CMP:MEM
     1642   01 012AE    21900006 A            CI,R9    6
     1643   01 012AF    693012B1              BNE      %+2
     1644   01 012B0    680012EE              B        CMP:REG
     1645                            *
     1646   01 012B1    32A00008 A   CMP:STD  LW,R10   R8
     1647   01 012B2    B2A0000A A            LW,R10   *R10
     1648   01 012B3    B29603F3              LW,R9    *LISTPTR,X3
     1649   01 012B4    32B00009 A            LW,R11   R9
     1650   01 012B5    48B0000A A            EOR,R11  R10
     1651   01 012B6    683012B8              BCR,3    %+2
     1652   01 012B7    6AF01306              BAL,R15  FT:ERR
     1653                            *
     1654   01 012B8    203FFFFE A   STEP:X3  AI,X3    -2
     1655   01 012B9    691012BB              BCS,1    %+2
     1656   01 012BA    680012A3              B        GET:NEXT
     1657   01 012BB    223FFFFE A            LI,X3    -2
     1658   01 012BC    32861305     FT:CMP1  LW,R8    ID:EXT+4,X3       EXTENSION ITEMS THAT ARE ALWAYS
     1659   01 012BD    32A61301              LW,R10   OBSEXT+4,X3       CHECKED ARE, LOC+1,INDX 1,
     1660   01 012BE    B2A0000A A            LW,R10   *R10              INDX 7, AND INDIRECT ADDR.(IA).
     1661   01 012BF    329612FD              LW,R9    LISTEXT+4,X3
     1662   01 012C0    32B00009 A            LW,R11   R9
     1663   01 012C1    48B0000A A            EOR,R11  R10
     1664   01 012C2    683012C4              BCR,3    EXT:ERR+1
     1665                            *
     1666   01 012C3    6AF01306     EXT:ERR  BAL,R15  FT:ERR
     1667   01 012C4    653012BC              BIR,X3   FT:CMP1
     1668   01 012C5    70200392              LC       #SENSE            LONG LOOP.   SENSE SW2.
     1669   01 012C6    E9C015D1              BCS,12   *LONGPTR
     1670   01 012C7    322015D6              LW,X2    GEN:FLG
     1671   01 012C8    69301924              BCS,3    CARD:CON
     1672   01 012C9    E800129F              B        *CMP:SUFF-1
     1673                            *
     1674         01 012C9           OBS:IDLA EQU      %-1
     1675         01 012CA           OBS:IDLS EQU      %
     1676   01 012CA    010011CC              D        1,LOC
     1677   01 012CB    010011CC              D        1,LOC
     1678   01 012CC    0500102C              D        5,RETURN
     1679   01 012CD    0500102C              D        5,RETURN
     1680   01 012CE    06003ABC              D        6,RES:SAV+12
     1681   01 012CF    06003AB0              D        6,RES:SAV
     1682   01 012D0    07003AC0              D        7,MEMORY
     1683   01 012D1    07003AC0              D        7,MEMORY
     1684   01 012D2    06003ABD              D        6,RES:SAV+13
     1685   01 012D3    FF000000 A            D        -1,0
     1686   01 012D4    07003AC1              D        7,MEMORY+1
     1687   01 012D5    08001D3D              D        8,SP-1
     1688   01 012D6    0500102D              D        5,RETURN+1
     1689                            *
     1690         01 012D7           CMP:SP   EQU      %
     1691   01 012D7    22400002 A            LI,X4    2
     1692   01 012D8    2210000B A            LI,X1    11
     1693   01 012D9    B29203F3              LW,R9    *LISTPTR,X1
     1694   01 012DA    B2A80008 A            LW,R10   *R8,X4
     1695   01 012DB    32B00009 A            LW,R11   R9
     1696   01 012DC    48B0000A A            EOR,R11  R10
     1697   01 012DD    683012DF              BE       %+2
     1698   01 012DE    6AF01306              BAL,R15  FT:ERR
     1699   01 012DF    33F00001 A            MTW,-1   X1
     1700   01 012E0    644012D9              BDR,X4   CMP:SP+2
     1701   01 012E1    02000000 A            NOP
     1702   01 012E2    680012B8              B        STEP:X3
     1703                            *
     1704                            *
     1705         01 012E3           CMP:MEM  EQU      %
     1706   01 012E3    2240003F A            LI,X4    63
     1707   01 012E4    328612CA              LW,R8    OBS:IDLS,X3
     1708   01 012E5    32983B60              LW,R9    MTABLOUT,X4
     1709   01 012E6    32A83AC0              LW,R10   MEMORY,X4
     1710   01 012E7    32B00009 A            LW,R11   R9
     1711   01 012E8    48B0000A A            EOR,R11  R10
     1712   01 012E9    683012EB              BE       %+2
     1713   01 012EA    6AF01306              BAL,R15  FT:ERR
     1714   01 012EB    33F00004 A            MTW,-1   X4
     1715   01 012EC    681012E4              BCR,1    CMP:MEM+1
     1716   01 012ED    680012B8              B        STEP:X3
     1717                            *
     1718                            *
     1719         01 012EE           CMP:REG  EQU      %
     1720   01 012EE    2240000F A            LI,X4    15
     1721   01 012EF    328612CA              LW,R8    OBS:IDLS,X3
     1722   01 012F0    32983B50              LW,R9    RTABLOUT,X4
     1723   01 012F1    32A83AB0              LW,R10   RES:SAV,X4
     1724   01 012F2    32B00009 A            LW,R11   R9
     1725   01 012F3    48B0000A A            EOR,R11  R10
     1726   01 012F4    683012F6              BE       %+2
     1727   01 012F5    6AF01306              BAL,R15  FT:ERR
     1728   01 012F6    33F00004 A            MTW,-1   X4
     1729   01 012F7    681012EF              BCR,1    CMP:REG+1
     1730   01 012F8    680012B8              B        STEP:X3
     1731                            *
     1732         01 012F9           LISTEXT  EQU      %
     1733   01 012F9    00000000 A            DATA     0
     1734   01 012FA    00000001 A            DATA     1
     1735   01 012FB    00003AC0              DATA     MEMORY
     1736   01 012FC    00000000 A            DATA     0
     1737                            *
     1738         01 012FD           OBSEXT   EQU      %
     1739   01 012FD    00003AB1              DATA     RES:SAV+1
     1740   01 012FE    00003AB7              DATA     RES:SAV+7
     1741   01 012FF    00001D43              DATA     IA
     1742   01 01300    000011CD              DATA     LOC+1
     1743                            *
     1744         01 01301           ID:EXT   EQU      %
     1745   01 01301    04000001 A            D        4,1
     1746   01 01302    04000007 A            D        4,7
     1747   01 01303    03000000 A            D        3,0               IAID
     1748   01 01304    02000001 A            D        2,1
     1749                            *
     1750   01 01305    00000000 A            DATA     0
     1751         01 01306           FT:ERR   EQU      %
     1752   01 01306    35F01305              STW,R15  %-1               THIS CODE IS ENTERED IN THE
     1753   01 01307    222FFFFF A            LI,X2    -1                EVENT OF A FUNCTIONAL TEST
     1754   01 01308    35201D05              STW,X2   ERR:FLG           ERROR.
     1755   01 01309    352015D4              STW,X2   PASS:ERR
     1756                            *
     1757   01 0130A    322010B5              LW,X2    TOT:ERRS
     1758   01 0130B    20200001 A            AI,X2    1
     1759   01 0130C    352010B5              STW,X2   TOT:ERRS
     1760                            *
     1761   01 0130D    32201D04              LW,X2    ERR:CNT
     1762   01 0130E    20200001 A            AI,X2    1
     1763   01 0130F    35201D04              STW,X2   ERR:CNT
     1764   01 01310    322015D6              LW,X2    GEN:FLG
     1765   01 01311    E930000F A            BCS,3    *R15
     1766   01 01312    222F0FFF A            LI,X2    X'F0FFF'
     1767   01 01313    6D000041 A            WD,0     X'41'
     1768   01 01314    65201314              BIR,X2   %
     1769   01 01315    6D000040 A            WD,0     X'40'
     1770   01 01316    32201C62              LW,X2    SO
     1771   01 01317    68301321              BCR,3    CONT:FTE
     1772   01 01318    222FFFFF A            LI,X2    -1                SET SNAP FLAG IF SO IS NOT 0.
     1773   01 01319    352015D2              STW,X2   SNAP:FLG
     1774   01 0131A    02000000 A            NOP
     1775   01 0131B    02000000 A            NOP
     1776   01 0131C    02000000 A            NOP
     1777   01 0131D    02000000 A            NOP
     1778   01 0131E    02000000 A            NOP
     1779   01 0131F    02000000 A            NOP
     1780   01 01320    E80015D1              B        *LONGPTR
     1781                            *
     1782   01 01321    70200392     CONT:FTE LC       #SENSE            BYPASS FT ERROR PRINTOUT IF
     1783   01 01322    69101338              BCS,1    FTE:SS3           SENSE SW4 IS SET.
     1784   01 01323    22201446              LI,X2    ESM:HEDR
     1785   01 01324    31200393              CW,X2    #HDRFLG
     1786   01 01325    6830132A             BCR,3     %+5                                               *A04
     1787   01 01326    EA6003CD              #PRINT   ESM:HEDR
            01 01327    C0005118 A
     1788   01 01328    6930132A              BCS,3    %+2
     1789   01 01329    8F9003CA              XPSD,9   *#RUNADDR%
     1790   01 0132A    22E014A2              LI,R14   MSG:LST
     1791   01 0132B    22C00047 A            LI,R12   71                LINKING DATA TO FORM ERROR
     1792   01 0132C    75C014A1              STB,R12  MSG:CNT           STATUS MESSAGE.
     1793   01 0132D    22C00012 A            LI,R12   18
     1794   01 0132E    35C014A0              STW,R12  WRD:CNT
     1795   01 0132F    6AF01434              BAL,R15  FORM:ESM
     1796   01 01330    EA6003CD              #PRINT   OUTBUF
            01 01331    C00073B0 A
     1797   01 01332    69301334              BCS,3    %+2
     1798   01 01333    8F9003CA              XPSD,9   *#RUNADDR%
     1799   01 01334    22201446              LI,X2    ESM:HEDR
     1800   01 01335    35200393              STW,X2   #HDRFLG
     1801   01 01336    32201344              LW,X2    FTERSTAT
     1802   01 01337    B52003CE              STW,X2   *#ERRTEXT%
     1803                            *
     1804   01 01338    70200392     FTE:SS3  LC       #SENSE            DONT HALT ON ERROR IF SENSE
     1805   01 01339    E9201305              BCS,2    *FT:ERR-1         SW3 IS SET.
     1806   01 0133A    EA6003CC              #TYPE    HALT
            01 0133B    00004D14 A
     1807   01 0133C    322015D8              LW,X2    VER:END
     1808   01 0133D    69301340              BCS,3    %+3
     1809   01 0133E    322015D6              LW,X2    GEN:FLG
     1810   01 0133F    68301342              BCR,3    %+3
     1811   01 01340    32200395              LW,X2    #MTLFLAG
     1812   01 01341    68040003 A            B        3,X2
     1813   01 01342    8F9003CA              XPSD,9   *#RUNADDR%
     1814   01 01343    E8001305              B        *FT:ERR-1
     1815                            *
     1816   01 01344    1102AA5C N   FTERSTAT Z        17,,2,BA(FTERRMSG)
     1817         01 01345           HALT     TEXTCS   '***ERROR HALT***'
     1818                            *
     1819         01 0134A           ADV:PTR  EQU      %
     1820   01 0134A    02000000 A            NOP
     1821   01 0134B    22300000 A            LI,X3    0                 ADV:PTR ADVANCES THE LIST
     1822   01 0134C    35301D05              STW,X3   ERR:FLG           POINTER TO THE NEXT MODULE
     1823   01 0134D    323003F0              LW,X3    MST:NUM
     1824   01 0134E    313003F1              CW,X3    MSP:NUM
     1825   01 0134F    68301354              BCR,3    %+5
     1826   01 01350    32E015D2              LW,R14   SNAP:FLG
     1827   01 01351    30E015D6              AW,R14   GEN:FLG
     1828   01 01352    68301354              BCR,3    %+2
     1829   01 01353    6AE01845              BAL,R14  CLR:SNP
     1830   01 01354    323003F2              LW,X3    MCR:NUM           IN THE LIST.  IF THE
     1831   01 01355    20300001 A            AI,X3    1                 CURRENT MODULE IS ADVANCED
     1832   01 01356    313003F1              CW,X3    MSP:NUM           OUT OF SPECIFIED RANGE,
     1833   01 01357    69201367              BCS,2    MST:INIT          CONTROL IS PASSED TO MST:INIT.
     1834   01 01358    353003F2              STW,X3   MCR:NUM
     1835   01 01359    02000000 A            NOP
     1836   01 0135A    02000000 A            NOP
     1837   01 0135B    02000000 A            NOP
     1838   01 0135C    02000000 A            NOP
     1839   01 0135D    02000000 A            NOP
     1840   01 0135E    EA6003C3              #HTECON  X3
            01 0135F    00000003 A
     1841   01 01360    323C0001 A            LW,X3    1,X6
     1842   01 01361    4B301D02              AND,X3   LS:MSK            UPDATE K-LINE, MCR.
     1843   01 01362    35301A62              STW,X3   KOUT+2
     1844   01 01363    F23003F3              LB,X3    *LISTPTR
     1845   01 01364    303003F3              AW,X3    LISTPTR
     1846   01 01365    353003F3              STW,X3   LISTPTR
     1847   01 01366    E800000F A            B        *R15
     1848                            *
     1849         01 01367           MST:INIT EQU      %
     1850   01 01367    323015D6              LW,X3    GEN:FLG           THIS ROUTINE SETS THE MODULE
     1851   01 01368    69302BCE              BCS,3    VG:END            POINTERS BACK TO FIRST
     1852   01 01369    323015D8              LW,X3    VER:END           SELECTED MODULE (MST).
     1853   01 0136A    69302BCE              BCS,3    VG:END
     1854   01 0136B    323019E4              LW,X3    SI                IF SI, STATUS INTERVAL, IS
     1855   01 0136C    68301373             BCR,3     %+7                                               *A04
     1856   01 0136D    32301403              LW,X3    PASS:CNT          PASS:CNT GO TO PRINT A
     1857   01 0136E    303019E4              AW,X3    SI                STATUS MESSAGE.
     1858   01 0136F    68301372              BCR,3    %+3
     1859   01 01370    6920136E              BCS,2    %-2
     1860   01 01371    68001373             B         %+2                                               *A04
     1861   01 01372    6A601B8B              BAL,X6    STATMSGS
     1862                            *
     1863   01 01373    323003F0              LW,X3    MST:NUM           SET MCR BACK TO MST.
     1864   01 01374    353003F2              STW,X3   MCR:NUM
     1865   01 01375    32301A60              LW,X3    KOUT
     1866   01 01376    32401C63              LW,X4    SPACES
     1867   01 01377    75400003 A            STB,X4   X3
     1868   01 01378    35301A62              STW,X3   KOUT+2
     1869   01 01379    6A6013E6              BAL,X6    LSTSERVO         SERVO THE LISTPTR BACK TO
     1870   01 0137A    02000000 A            NOP
     1871   01 0137B    02000000 A            NOP
     1872   01 0137C    323015D4              LW,X3    PASS:ERR
     1873   01 0137D    6930139D              BCS,3    ERR:PASS
     1874                            *
     1875   01 0137E    32301403              LW,X3    PASS:CNT          ENABLE COUNT PULSE 4 INTERUPT
     1876   01 0137F    32C01C62              LW,R12   SO                ON THE 11TH ERROR FREE PASS.
     1877   01 01380    68301384              BCR,3    %+4               IF SNAP OPTION IS NOT ZERO,
     1878   01 01381    22C00000 A            LI,R12   0                 THEN DISABLE INTERUPT BY
     1879   01 01382    35C01193              STW,R12  SNAPINT
     1880   01 01383    68001394              B        NOCI-1
     1881   01 01384    32C01A24              LW,R12   CI:SAV
     1882   01 01385    68301395              BCR,3    NOCI
     1883   01 01386    21300038 A            CI,X3    56
     1884   01 01387    69101395              BCS,1    NOCI
     1885   01 01388    32C013E3              LW,R12   CIXPSD            SET UP COUNT PULSE AND
     1886   01 01389    35C00058 A            STW,R12  X'58'             COUNTER ZERO LOCATIONS.
     1887   01 0138A    35C00059 A            STW,R12  X'59'
     1888   01 0138B    35C0005A A            STW,R12  X'5A'
     1889   01 0138C    35C0005D A            STW,R12  X'5D'
     1890   01 0138D    32C01194              LW,R12   SNAPINI
     1891   01 0138E    35C01193              STW,R12  SNAPINT
     1892   01 0138F    32C013E4              LW,R12   CIMTW
     1893   01 01390    35C00052 A            STW,R12  X'52'
     1894   01 01391    35C00053 A            STW,R12  X'53'
     1895   01 01392    35C00054 A            STW,R12  X'54'
     1896   01 01393    32C01A24              LW,R12   CI:SAV
     1897   01 01394    35C011EB              STW,R12  CI:CNT
     1898                            *
     1899   01 01395    32301402     NOCI     LW,X3    PASS:OK
     1900   01 01396    20300001 A            AI,X3    1
     1901   01 01397    35301402              STW,X3   PASS:OK
     1902   01 01398    31301404              CW,X3    PASS:LIM
     1903   01 01399    6820139D              BCR,2    ERR:PASS                                          *A01
     1904   01 0139A    6A601406              BAL,X6    VM:CM            SEQUENCE CLOCK MARGINS TO
     1905   01 0139B    32601431              LW,X6    CM:SAV                                            *A01
     1906   01 0139C    3560142E              STW,X6   CM:ON                                             *A01
     1907   01 0139D    22300000 A   ERR:PASS LI,X3    0                 NEXT SETTING EVERY 10TH
     1908   01 0139E    353015D4              STW,X3   PASS:ERR          ERROR FREE PASS.
     1909                            *
     1910   01 0139F    32301AF0              LW,X3    LCNT
     1911   01 013A0    683013A9              BCR,3    %+9
     1912   01 013A1    32301403              LW,X3    PASS:CNT
     1913                            *
     1914   01 013A2    30301AF0              AW,X3    LCNT
     1915   01 013A3    683013A6              BCR,3    %+3               GO TO GUIDE IDLE WHEN LCNT
     1916   01 013A4    692013A2              BCS,2    %-2               IS AN EVEN MULTIPLE OF PASS:CNT.
     1917   01 013A5    680013A9              B        %+4
     1918                            *
     1919   01 013A6    8F9003CA              XPSD,9   *#RUNADDR%
     1920   01 013A7    22300000 A            LI,X3    0
     1921   01 013A8    680013AA              B        %+2
     1922   01 013A9    32301403              LW,X3    PASS:CNT
     1923   01 013AA    20300001 A            AI,X3    1
     1924   01 013AB    35301403              STW,X3   PASS:CNT
     1925   01 013AC    22300000 A            LI,X3    0
     1926   01 013AD    35301D04              STW,X3   ERR:CNT
     1927   01 013AE    32301C62              LW,X3    SO
     1928   01 013AF    683013B7              BCR,3    EM:ADV
     1929   01 013B0    21300007 A            CI,X3    7
     1930   01 013B1    683013B7              BCR,3    EM:ADV
     1931   01 013B2    6AF01878              BAL,R15  MAR:TAPE
     1932   01 013B3    22300000 A            LI,X3    0
     1933   01 013B4    353013E2              STW,X3   EM
     1934   01 013B5    35301193              STW,X3   SNAPINT
     1935   01 013B6    680010BF              B        SUFFTEST
     1936                            *
     1937   01 013B7    323013E1     EM:ADV   LW,X3    EM:FLG            EM:FLG IS SET IN EM:C,
     1938   01 013B8    693013D1              BCS,3    EXIT:EM           K-LINE INDICATING USER
     1939   01 013B9    323013E0              LW,X3    EM:CNT            HAS FIXED EM VALUE.
     1940   01 013BA    2130000D A            CI,X3    13
     1941   01 013BB    693013D3              BCS,3    EXIT:EM+2         SEQUENCE EXECUTION MODE
     1942   01 013BC    323013E2              LW,X3    EM                TO NEXT SETTING AFTER
     1943   01 013BD    213FFFFF A            CI,X3    -1                13 PASSES.
     1944   01 013BE    693013C2              BCS,3    %+4
     1945   01 013BF    32C01C62              LW,R12   SO
     1946   01 013C0    683013C2              BCR,3    %+2
     1947   01 013C1    203FFFFF A            AI,X3    -1                INHIBIT SNAPPING IF EM=2
     1948   01 013C2    323613DF              LW,X3    EM:LIST,X3        BY FORCING EM TO NEXT STATE.
     1949   01 013C3    353013E2              STW,X3   EM
     1950   01 013C4    683013CA              BCR,3    %+6
     1951   01 013C5    213FFFFF A            CI,X3    -1
     1952   01 013C6    683013C8              BE       %+2
     1953   01 013C7    20300001 A            AI,X3    1
     1954   01 013C8    48301D15              EOR,X3   ONES
     1955   01 013C9    20300001 A            AI,X3    1
     1956   01 013CA    EA6003C3              #HTECON  X3
            01 013CB    00000003 A
     1957   01 013CC    32C01C63              LW,R12   SPACES            UPDATE EM PARAMETER IN J-LINE.
     1958   01 013CD    326C0001 A            LW,X6    1,X6
     1959   01 013CE    22300002 A            LI,X3    2
     1960   01 013CF    7566000C A            STB,X6    R12,X3
     1961   01 013D0    35C01992              STW,R12  JOUT+6
     1962   01 013D1    22300000 A   EXIT:EM  LI,X3    0
     1963   01 013D2    680013D4              B        %+2
     1964   01 013D3    20300001 A            AI,X3    1
     1965   01 013D4    353013E0              STW,X3   EM:CNT
     1966                            *
     1967   01 013D5    680010BF              B        SUFFTEST
     1968   01 013D6    02000000 A            NOP
     1969   01 013D7    02000000 A            NOP
     1970   01 013D8    02000000 A            NOP
     1971   01 013D9    02000000 A            NOP
     1972   01 013DA    02000000 A            NOP
     1973                            *
     1974   01 013DB    00000000 A            DATA     0
     1975   01 013DC    FFFFFFFC A            DATA     -4
     1976   01 013DD    00000000 A            DATA     0
     1977   01 013DE    FFFFFFFD A            DATA     -3
     1978   01 013DF    FFFFFFFF A   EM:LIST  DATA     -1
     1979                            *
     1980   01 013E0    00000000 A   EM:CNT   DATA     0
     1981   01 013E1    00000000 A   EM:FLG   DATA     0
     1982   01 013E2    00000000 A   EM       DATA     0
     1983   01 013E3    0F0013FC     CIXPSD   XPSD,0   CI:PROC
     1984   01 013E4    331013E5     CIMTW    MTW,1    CICOUNT
     1985   01 013E5    00000000 A   CICOUNT  DATA     0
     1986                            *
     1987         01 013E6           LSTSERVO EQU      %
     1988   01 013E6    22700001 A            LI,X7    1                 LIST SERVO, SERVOS THE LIST
     1989   01 013E7    22A02BEA              LI,R10   LIST              POINTER TO THE MODULE
     1990   01 013E8    35A003F3              STW,R10  LISTPTR           SPECIFIED BY MCR:NUM.  IT
     1991   01 013E9    317003F2              CW,X7    MCR:NUM           IS USED BY THE ADV:PTR
     1992   01 013EA    683013EF              BCR,3    %+5               ROUTINE AND THE DISPLAY
     1993   01 013EB    F290000A A            LB,R9    *R10              LIST ROUTINE(DL).
     1994   01 013EC    30A00009 A            AW,R10   R9
     1995   01 013ED    20700001 A            AI,X7    1
     1996   01 013EE    680013E8              B        LSTSERVO+2        IT IS ALSO USED BY THE
     1997   01 013EF    32801405              LW,R8    KL:FLG            K-LINE WHEN A DIFFERENT
     1998   01 013F0    683013F2              BCR,3    %+2               MCR IS SPECIFIED.
     1999   01 013F1    E800000F A            B        *R15
     2000   01 013F2    02000000 A            NOP
     2001   01 013F3    02000000 A            NOP
     2002   01 013F4    02000000 A            NOP
     2003   01 013F5    02000000 A            NOP
     2004   01 013F6    02000000 A            NOP
     2005   01 013F7    02000000 A            NOP
     2006   01 013F8    22800000 A            LI,R8    0
     2007   01 013F9    02000000 A            NOP
     2008   01 013FA    E8000006 A            B        *X6
     2009                            *
     2010                                     BOUND    8                 THIS IS THE COUNTER ZERO
     2011   01 013FC    00000000 A   CI:PROC  DATA     0                 INTERRUPT PROCESSOR.  THE
     2012   01 013FD    00000000 A            DATA     0                 RIGHT HEX DIGTI OF CI:PROC
     2013   01 013FE    00001400              DATA     %+2               IS OUTPUT ON ERROR AND
     2014   01 013FF    04000000 A            DATA     X'04000000'       STATUS MESSAGES UNDER THE
     2015   01 01400    0E3013FC              LPSD,3   CI:PROC           CI HEADER.
     2016                            *
     2017   01 01401    00000000 A   ZERO     DATA     0
     2018   01 01402    00000000 A   PASS:OK  DATA     0
     2019   01 01403    00000001 A   PASS:CNT DATA     1
     2020   01 01404    0000000A A   PASS:LIM DATA     10
     2021   01 01405    00000000 A   KL:FLG   DATA     0
     2022                            *
     2023         01 01406           VM:CM    EQU      %
     2024   01 01406    32801991              LW,R8    JOUT+5            EXIT CLOCK MARGIN IF JOUT
     2025   01 01407    31801428              CW,R8    X40C3             INDICATES CM IS FIXED.
     2026   01 01408    6920140A              BG       SET:MAR           CM IS NOT FIXED - GO SET MARGINS
     2027   01 01409    E8000006 A            B        *X6
     2028         01 0140A           SET:MAR  EQU      %
     2029   01 0140A    6C400045 A            RD,X4    X'45'             TEST THE VOLTAGE NOT NORMAL
     2030   01 0140B    4B40142C              AND,X4   VM:MSK            BIT IN THE MARGIN CONTROL
     2031   01 0140C    E8200006 A            BCR,2    *X6               WORD. IF ANY SUPPLY IS NOT
     2032   01 0140D    22400002 A            LI,X4    2                 IN THE NORMAL POSITION BIT 11
     2033   01 0140E    72201423              LB,X2    MAR:SET-1         WILL BE LOW.  THIS INHIBITS
     2034   01 0140F    32A41424              LW,R10   MAR:SET,X2        THE PROGRAM FROM SETTING
     2035   01 01410    6C800045 A            RD,R8    X'45'             CLOCK MARGINS.
     2036   01 01411    4B801429     VMF      AND,R8   NEW:CM
     2037   01 01412    3580142F              STW,R8   CM:OFF
     2038   01 01413    75A81991              STB,R10  JOUT+5,X4         STORE NEW CM IN JOUT
     2039   01 01414    4BA0142B              AND,R10  MSK:CM            REMOVE EBCDIC FROM MAR:SET IN R10
     2040   01 01415    3080142D              AW,R8    LO:MSK
     2041   01 01416    35801430              STW,R8   CM:LO             SET UP CM:LO FOR USE IN
     2042   01 01417    4B801429              AND,R8   NEW:CM
     2043   01 01418    4880000A A   EXIT:MAR EOR,R8   R10               SNAPPING ANY MULTIPLY
     2044   01 01419    35801431              STW,R8   CM:SAV            INSTRUCTION.
     2045   01 0141A    22400000 A            LI,X4    0                 SET UP CM:ON WITH LATEST
     2046   01 0141B    35401402              STW,X4   PASS:OK           MARGIN SETTING.  CM:ON IS
     2047   01 0141C    35401427              STW,X4   MAR:FLG           USED JUST PRIOR TO LOC.
     2048   01 0141D    20200001 A            AI,X2    1                 CM:OFF IS USED JUST AFTER
     2049   01 0141E    21200003 A            CI,X2    3                 LOC.
     2050   01 0141F    69101421              BL       %+2
     2051   01 01420    22200000 A            LI,X2    0
     2052   01 01421    75201423              STB,X2   MAR:SET-1
     2053   01 01422    E8000006 A            B        *X6
     2054                            *
     2055   01 01423    00000000 A            DATA     0                 CM
     2056   01 01424    0000F0F0 A   MAR:SET  M        0,0,0,0,0,X'F0',X'F0'
     2057   01 01425    0040F0F1 A            M        0,0,0,1,0,X'F0',X'F1'
     2058   01 01426    0480F1F2 A            M        0,1,0,2,0,X'F1',X'F2'
     2059                            *
     2060   01 01427    00000000 A   MAR:FLG  DATA     0
     2061   01 01428    4040C340 A   X40C3    DATA     X'4040C340'
     2062   01 01429    FF3FFFFF A   NEW:CM   DATA     X'FF3FFFFF'
     2063   01 0142A    F33FFFFF A   NEW:MSK  DATA     X'F33FFFFF'
     2064   01 0142B    00C00000 A   MSK:CM   DATA     X'0C00000'
     2065   01 0142C    00100000 A   VM:MSK   DATA     X'100000'
     2066   01 0142D    00800000 A   LO:MSK   DATA     X'00800000'
     2067   01 0142E    00000000 A   CM:ON    DATA     0
     2068   01 0142F    00000000 A   CM:OFF   DATA     0
     2069   01 01430    00800000 A   CM:LO    DATA     X'00800000'
     2070   01 01431    00000000 A   CM:SAV   DATA     0
     2071   01 01432    00000017 A   H17      DATA     X'17'
     2072                            *
     2073                            *    THE CALLING SEQUENCE TO USE FORM:ESM IS AS FOLLOWS:
     2074                            *
     2075                            *        LI,R14   MSG:LST
     2076                            *        LI,R12   71
     2077                            *        STB,R12  MSG:CNT
     2078                            *        LI,R12   18
     2079                            *        STW,R12  WRD:CNT
     2080                            *        BAL,R15  FORM:ESM
     2081                            *
     2082   01 01433    00000000 A            DATA     0
     2083         01 01434           FORM:ESM EQU      %                 THIS CODE IS ENTERED FROM
     2084   01 01434    35F01433              STW,R15  %-1               CONT:FTE, FUNCT. TEST ERR
     2085   01 01435    22700000 A            LI,X7    0                 EXIT.  A LIST OF CONTROL
     2086   01 01436    B2CE000E A            LW,R12   *R14,X7           WORDS, MSG:LST, CAUSE
     2087   01 01437    6810143D              BCR,1    BALNORM           BALNORM TO BAL OUT TO THE
     2088   01 01438    B2C0000C A            LW,R12   *R12              FETCHING SUBROUTINES TO
     2089   01 01439    6AF0181D              BAL,R15  DHEX:CON          SET UP THE ERROR STATUS
     2090   01 0143A    35DE1CEC              STW,R13  OUTBUF,X7         MESSAGE.  IF THE MSG:LST
     2091   01 0143B    20700001 A            AI,X7    1                 WORD IS NEG. IT CONTAINS
     2092   01 0143C    6800143E              B        %+2               THE WORD TO BE CONVERTED.
     2093   01 0143D    EAF0000C A   BALNORM  BAL,R15  *R12
     2094   01 0143E    35CE1CEC              STW,R12  OUTBUF,X7
     2095   01 0143F    20700001 A            AI,X7    1
     2096   01 01440    317014A0              CW,X7    WRD:CNT
     2097   01 01441    68301443              BCR,3    %+2
     2098   01 01442    68001436              B        FORM:ESM+2                                        *A04
     2099   01 01443    72C014A1              LB,R12   MSG:CNT
     2100   01 01444    75C01CEC              STB,R12  OUTBUF
     2101   01 01445    E8001433              B        *FORM:ESM-1
     2102                            *
     2103                            ESM:HEDR TEXTCS   'MOD EL TESTINST E/P PAS EM MNEM FAILED ',;
     2104         01 01446             'EXPECTED CM OBSERVED CI DIFF=EOR'
     2105                            *
     2106   01 01458    B2C003F3     ESM:MOD  LW,R12   *LISTPTR          FETCH MODULE NO. FROM MODULE
     2107   01 01459    EA6003C3              #HTECON  R12
            01 0145A    0000000C A
     2108   01 0145B    32CC0001 A            LW,R12   1,X6
     2109   01 0145C    4BC01D02              AND,R12  LS:MSK
     2110   01 0145D    E800000F A            B        *R15
     2111                            *
     2112         01 0145E           ESM:EL   EQU      %                 FETCH ELEMENT # FROM MODULE
     2113   01 0145E    22200001 A            LI,X2    1
     2114   01 0145F    F2C403F3              LB,R12   *LISTPTR,X2
     2115   01 01460    222FFFFC A            LI,X2    -4
     2116   01 01461    30C0000C A            AW,R12   R12
     2117   01 01462    65201461              BIR,X2   %-1
     2118   01 01463    EA6003C3              #HTECON  R12               EBCDIC AND HOLD IN R12.
            01 01464    0000000C A
     2119   01 01465    32CC0001 A            LW,R12   1,X6
     2120   01 01466    4BC015D9              AND,R12  EL:MSK1
     2121   01 01467    E800000F A            B        *R15
     2122                            *
     2123   01 01468    22200001 A   ESM:MNEM LI,X2    1                 FETCH MNEMONIC FROM LIST.
     2124   01 01469    B25403F3              LW,X5    *LISTPTR,X2
     2125   01 0146A    72500005 A            LB,X5    X5
     2126   01 0146B    4B501D01              AND,X5   CON7F
     2127   01 0146C    32CA2542              LW,R12   MNEMLIST,X5       AND HOLD IN R12.
     2128   01 0146D    E800000F A            B        *R15
     2129                            *
     2130   01 0146E    32C01D04     ESM:ERRS LW,R12   ERR:CNT           FETCH THE ERROR COUNTER, CONVERT
     2131   01 0146F    EA6003C3              #HTECON  R12
            01 01470    0000000C A
     2132   01 01471    32CC0001 A            LW,R12   1,X6
     2133   01 01472    4BC01D02              AND,R12  LS:MSK
     2134   01 01473    E800000F A            B        *R15
     2135                            *
     2136   01 01474    32C01403     ESM:PASS LW,R12   PASS:CNT          FETCH THE PASS COUNTER, CONVERT
     2137   01 01475    EA6003C3              #HTECON  R12
            01 01476    0000000C A
     2138   01 01477    32CC0001 A            LW,R12   1,X6
     2139   01 01478    4BC01D02              AND,R12  LS:MSK
     2140   01 01479    E800000F A            B        *R15
     2141                            *
     2142   01 0147A    3220142E     ESM:CM   LW,X2    CM:ON             FETCH CLOCK MARGIN THAT
     2143   01 0147B    30200002 A            AW,X2    X2                WAS SAVED AT LOC EXIT.
     2144   01 0147C    30200002 A            AW,X2    X2
     2145   01 0147D    72200002 A            LB,X2    X2
     2146   01 0147E    4B201491              AND,X2   THREE             PUT * BEFORE SETTING IF
     2147   01 0147F    32C01991              LW,R12   JOUT+5            IT DISAGREES WITH EXP.
     2148   01 01480    31C4148A              CW,R12   CM:TSTA,X2        SETTING.
     2149   01 01481    E830000F A            BCR,3    *R15
     2150   01 01482    31C4148E              CW,R12   CM:TSTB,X2
     2151   01 01483    E830000F A            BCR,3    *R15
     2152   01 01484    22600002 A            LI,X6    2
     2153   01 01485    752C000C A            STB,X2   R12,X6
     2154   01 01486    02000000 A            NOP
     2155   01 01487    02000000 A            NOP
     2156   01 01488    30C0148D              AW,R12   ASTR:MSK
     2157   01 01489    E800000F A            B        *R15
     2158                            *
     2159   01 0148A    4040F040 A   CM:TSTA  DATA     X'4040F040'
     2160   01 0148B    4040F140 A            DATA     X'4040F140'
     2161   01 0148C    4040F240 A            DATA     X'4040F240'
     2162   01 0148D    405CF040 A   ASTR:MSK DATA     X'405CF040'
     2163                            *
     2164   01 0148E    4040C140 A   CM:TSTB  DATA     X'4040C140'
     2165   01 0148F    4040C240 A            DATA     X'4040C240'
     2166   01 01490    4040C340 A            DATA     X'4040C340'
     2167   01 01491    00000003 A   THREE    DATA     3
     2168                            *
     2169   01 01492    E800000F A            B        *R15
     2170                            *
     2171   01 01493    32C01992     ESM:EM   LW,R12   JOUT+6
     2172   01 01494    E800000F A            B        *R15
     2173                            *
     2174   01 01495    326013FC     ESM:CI   LW,X6    CI:PROC
     2175   01 01496    69301499              BCS,3    %+3
     2176   01 01497    22600040 A            LI,X6    X'40'
     2177   01 01498    6800149C              B        %+4
     2178   01 01499    EA6003C3              #HTECON  CI:PROC           CONVERT RIGHT HEX DIGIT
            01 0149A    000013FC
     2179   01 0149B    326C0001 A            LW,X6    1,X6              OF CI:PROC AND PUT IT
     2180   01 0149C    22200001 A            LI,X2    1                 IN FRONT OF CURRENT
     2181   01 0149D    32C01993              LW,R12   JOUT+7            SETTING IF CI IN ERROR
     2182   01 0149E    7564000C A            STB,X6    R12,X2           AND STATUS MESSAGES.
     2183   01 0149F    E800000F A            B        *R15
     2184                            *
     2185   01 014A0    00000000 A   WRD:CNT  DATA     0
     2186   01 014A1    00000000 A   MSG:CNT  DATA     0
     2187   01 014A2    00001458     MSG:LST  DATA     ESM:MOD           0 <<< WORD POSITION IN OUTBUF FOR
     2188   01 014A3    0000145E              DATA     ESM:EL            1
     2189   01 014A4    FF0011CC              GEN,8,24 -1,LOC            2,3
     2190   01 014A5    00000000 A            DATA     0
     2191   01 014A6    0000146E              DATA     ESM:ERRS          4
     2192   01 014A7    00001474              DATA     ESM:PASS          5     THESE ARE SUBROUTINE
     2193   01 014A8    00001493              DATA     ESM:EM            6     ADDRESSES THAT ARE USED BY
     2194   01 014A9    00001468              DATA     ESM:MNEM          7
     2195   01 014AA    000014B3              DATA     ESM:FAIL          8     FORM:MSG TO STUFF OUTBUF.
     2196   01 014AB    000014B6              DATA     ESM:FAIL1         9
     2197   01 014AC    FF000009 A            GEN,8,24 -1,R9             10,11
     2198   01 014AD    00000000 A            DATA     0
     2199   01 014AE    0000147A              DATA     ESM:CM            12
     2200   01 014AF    FF00000A A            GEN,8,24 -1,R10            13,14
     2201   01 014B0    00000000 A            DATA     0
     2202   01 014B1    00001495              DATA     ESM:CI            15
     2203   01 014B2    FF00000B A            GEN,8,24 -1,R11            16,17
     2204                            *
     2205   01 014B3    72200008 A   ESM:FAIL LB,X2    R8                FETCH IDENTIFIER FLAG FROM 1ST
     2206   01 014B4    32C414EB              LW,R12   FAIL:ID,X2        BYTE OF R8.  USE AS INDEX TO
     2207   01 014B5    E800000F A            B        *R15              FETCH EBCDIC RELATED
     2208                            *                                   TO FAILING ITEM.
     2209   01 014B6    72200008 A   ESM:FAIL1 LB,X2   R8
     2210   01 014B7    4B801D42              AND,R8   ADR:MSK
     2211   01 014B8    02000000 A            NOP
     2212   01 014B9    680014C4              B        CHECK5
     2213   01 014BA    21200004 A            CI,X2    4
     2214   01 014BB    693014C4              BNE      CHECK5
     2215   01 014BC    02000000 A            NOP
     2216   01 014BD    EA6003C3              #HTECON  R8
            01 014BE    00000008 A
     2217   01 014BF    32C01C63              LW,R12   SPACES
     2218   01 014C0    322C0001 A            LW,X2    1,X6
     2219   01 014C1    22500002 A            LI,X5    2
     2220   01 014C2    752A000C A            STB,X2   R12,X5
     2221   01 014C3    E800000F A            B        *R15
     2222                            *
     2223   01 014C4    21200005 A   CHECK5   CI,X2    5
     2224   01 014C5    693014CB              BNE      CHECK6
     2225   01 014C6    32500008 A            LW,X5    R8
     2226   01 014C7    4B501CE9              AND,X5   ONE
     2227   01 014C8    20500001 A            AI,X5    1
     2228   01 014C9    32CA14F4              LW,R12   ID:EL,X5
     2229   01 014CA    E800000F A            B        *R15
     2230                            **
     2231   01 014CB    21200006 A   CHECK6   CI,X2    6
     2232   01 014CC    693014DE              BNE      CHECK7
     2233   01 014CD    208FC550 N            AI,R8    0-RES:SAV
     2234   01 014CE    683014D0              BCR,3    %+2
     2235   01 014CF    680014BC              B        ESM:FAIL1+6
     2236   01 014D0    EA6003C3              #HTECON  X4
            01 014D1    00000004 A
     2237   01 014D2    32C01C63              LW,R12   SPACES
     2238   01 014D3    322C0001 A            LW,X2    1,X6
     2239   01 014D4    22500002 A            LI,X5    2
     2240   01 014D5    752A000C A            STB,X2   R12,X5
     2241   01 014D6    21200F00 A            CI,X2    X'F00'
     2242   01 014D7    E840000F A            BCR,4    *R15
     2243   01 014D8    02000000 A            NOP
     2244   01 014D9    02000000 A            NOP
     2245   01 014DA    25200078 A            SLS,X2   -8
     2246   01 014DB    205FFFFF A            AI,X5    -1
     2247   01 014DC    752A000C A            STB,X2   R12,X5
     2248   01 014DD    E800000F A            B        *R15
     2249                            *
     2250   01 014DE    21200003 A   CHECK7   CI,X2    3
     2251   01 014DF    693014E2              BNE      %+3
     2252   01 014E0    32C01C63              LW,R12   SPACES
     2253   01 014E1    E800000F A            B        *R15
     2254   01 014E2    21200007 A            CI,X2    7
     2255   01 014E3    683014E6              BE       %+3
     2256   01 014E4    208FEE34 N            AI,R8    0-LOC
     2257   01 014E5    680014BC              B        ESM:FAIL1+6
     2258   01 014E6    32500008 A            LW,X5    R8
     2259   01 014E7    4B501CE9              AND,X5   ONE
     2260   01 014E8    02000000 A            NOP
     2261   01 014E9    680014D0              B        CHECK6+5
     2262   01 014EA    02000000 A            NOP
     2263                            *
     2264   01 014EB    00000000 A   FAIL:ID  DATA     0
     2265   01 014EC    40D3D6C3 A            TEXT     ' LOC'
     2266   01 014ED    40D7E2C4 A            TEXT     ' PSD'
     2267   01 014EE    40C9C140 A            TEXT     ' IA '
     2268   01 014EF    40C9C4E7 A            TEXT     ' IDX'
     2269   01 014F0    40D7E2E6 A            TEXT     ' PSW'
     2270   01 014F1    40D9C5C7 A            TEXT     ' REG'
     2271   01 014F2    40D4C5D4 A            TEXT     ' MEM'
     2272   01 014F3    40E2D740 A   TXT:PTR  TEXT     ' SP '
     2273                            *
     2274   01 014F4    4040F040 A   ID:EL    TEXT     '  0 '
     2275   01 014F5    4040F140 A            TEXT     '  1 '
     2276   01 014F6    4040F240 A            TEXT     '  2 '
     2277                            *
     2278   01 014F7    32C01C63     ESM:NULL LW,R12   SPACES
     2279   01 014F8    E800000F A            B        *R15
     2280                            *
     2281   01 014F9    00000000 A            DATA     0
     2282         01 014FA           OC:PREP  EQU      %
     2283   01 014FA    356014F9              STW,X6    %-1
     2284   01 014FB    02000000 A            NOP
     2285   01 014FC    02000000 A            NOP
     2286   01 014FD    02000000 A            NOP
     2287   01 014FE    02000000 A            NOP
     2288   01 014FF    02000000 A            NOP
     2289   01 01500    02000000 A            NOP
     2290   01 01501    221FFFC8 A            LI,X1    4*(OC:LIST-OC:LISTE)
     2291   01 01502    22C00000 A            LI,R12   0
     2292   01 01503    75C015B9              STB,R12  OC:FLG
     2293   01 01504    75C215B9              STB,R12  OC:LISTE,X1
     2294   01 01505    20100003 A            AI,X1    3
     2295   01 01506    65101504              BIR,X1   %-2
     2296                            *
     2297   01 01507    72C011CC              LB,R12   LOC
     2298   01 01508    4BC01D01              AND,R12  CON7F
     2299   01 01509    221FFFCB A            LI,X1    4*(OC:LIST-OC:LISTE)+3
     2300   01 0150A    71C215B9              CB,R12   OC:LISTE,X1
     2301   01 0150B    6830150F              BCR,3    %+4
     2302   01 0150C    20100003 A            AI,X1    3
     2303   01 0150D    6510150A              BIR,X1   %-3
     2304   01 0150E    02000000 A            NOP
     2305   01 0150F    22C00080 A            LI,R12   X'80'
     2306   01 01510    201FFFFD A            AI,X1    -3
     2307   01 01511    75C215B9              STB,R12  OC:LISTE,X1
     2308   01 01512    20100001 A            AI,X1    1
     2309   01 01513    72C215B9              LB,R12   OC:LISTE,X1
     2310   01 01514    75C015B9              STB,R12  OC:FLG
     2311                            *
     2312   01 01515    32C011CC              LW,R12   LOC
     2313   01 01516    702015B9     IDX:TST  LC       OC:FLG
     2314   01 01517    6810152B              BCR,1    SP:REG
     2315   01 01518    02000000 A            NOP
     2316   01 01519    02000000 A            NOP
     2317   01 0151A    02000000 A            NOP
     2318   01 0151B    02000000 A            NOP
     2319   01 0151C    02000000 A            NOP
     2320   01 0151D    02000000 A            NOP
     2321   01 0151E    4BC015C6              AND,R12  IDX:MSK
     2322   01 0151F    69201523              BCS,2    %+4
     2323   01 01520    72C015B9              LB,R12   OC:FLG
     2324   01 01521    4BC015C5              AND,R12  OUT:IDX
     2325   01 01522    75C015B9              STB,R12  OC:FLG
     2326   01 01523    25C0007F A            SLS,R12  -1
     2327   01 01524    35C015BC              STW,R12  IDX:SAV1
     2328   01 01525    49C015C7              OR,R12   IDX:EQ
     2329   01 01526    35C015BD              STW,R12  IDX:EBC
     2330                            *
     2331   01 01527    32C015BC              LW,R12   IDX:SAV1
     2332   01 01528    25C00070 A            SLS,R12  -16
     2333   01 01529    20C03B00              AI,R12   RTABLIN
     2334   01 0152A    35C015BB              STW,R12  IDX:ADR
     2335                            *
     2336   01 0152B    702015B9     SP:REG   LC       OC:FLG
     2337   01 0152C    02000000 A            NOP
     2338   01 0152D    02000000 A            NOP
     2339   01 0152E    02000000 A            NOP
     2340   01 0152F    02000000 A            NOP
     2341   01 01530    02000000 A            NOP
     2342   01 01531    02000000 A            NOP
     2343   01 01532    221FFFFE A            LI,X1    -2
     2344   01 01533    32C011CC              LW,R12   LOC
     2345   01 01534    4BC015C8              AND,R12  REG:MSK
     2346   01 01535    25C0006C A            SLS,R12  -20
     2347   01 01536    35C015BE              STW,R12  TEMPRSAV
     2348   01 01537    20C03B00              AI,R12   RTABLIN
     2349   01 01538    35C015BF              STW,R12  RIN:SAV
     2350   01 01539    4BC015C3              AND,R12  MINUS2
     2351   01 0153A    20C00001 A            AI,R12   1
     2352   01 0153B    35C015C1              STW,R12  RIN:SAV1
     2353   01 0153C    20C00050 A            AI,R12   RTABLOUT-RTABLIN
     2354   01 0153D    35C015C2              STW,R12  ROU:SAV1
     2355   01 0153E    32C015BF              LW,R12   RIN:SAV
     2356   01 0153F    20C00050 A            AI,R12   RTABLOUT-RTABLIN
     2357   01 01540    35C015C0              STW,R12  ROU:SAV
     2358   01 01541    32C015BE              LW,R12   TEMPRSAV
     2359   01 01542    25C00008 A   REG:LOOP SLS,R12  8
     2360   01 01543    21C00900 A            CI,R12   X'900'
     2361   01 01544    69201546              BG       %+2
     2362   01 01545    20C03900 A            AI,R12   X'3900'
     2363   01 01546    20C0B700 A            AI,R12   X'B700'
     2364   01 01547    49C015C9              OR,R12   REG:SP
     2365   01 01548    35C215CD              STW,R12  REGN,X1
     2366   01 01549    32C015BE              LW,R12   TEMPRSAV
     2367   01 0154A    4BC015C3              AND,R12  MINUS2
     2368   01 0154B    20C00001 A            AI,R12   1
     2369   01 0154C    65101542              BIR,X1   REG:LOOP
     2370                            *
     2371   01 0154D    22C00000 A   SETSDADR LI,R12   0
     2372   01 0154E    35C015AA              STW,R12  SD:ADR
     2373   01 0154F    702015AB              LC       OC:LM
     2374   01 01550    69801571              BCS,8    LM:ADR
     2375   01 01551    702015B9              LC       OC:FLG
     2376   01 01552    6920155E              BCS,2    BS:ADR
     2377   01 01553    702015B2              LC       OC:MMC
     2378   01 01554    69801596              BCS,8    MMC:ADR
     2379   01 01555    702015AD              LC       OC:PLM
     2380   01 01556    6980157F              BCS,8    PLM:ADR
     2381   01 01557    702015AC              LC       OC:STM
     2382   01 01558    6980159B              BCS,8    SPM:ADR
     2383   01 01559    702015AE              LC       OC:PSM
     2384   01 0155A    6980159B              BCS,8    SPM:ADR
     2385   01 0155B    702015AF              LC       OC:PLW
     2386   01 0155C    69801588              BCS,8    PLW:ADR
     2387   01 0155D    680015A9              B        ANYL:EX
     2388                            *
     2389   01 0155E    B2C015BF     BS:ADR   LW,R12   *RIN:SAV
     2390   01 0155F    30C011CC              AW,R12   LOC
     2391   01 01560    F2D015C1              LB,R13   *RIN:SAV1
     2392   01 01561    75D0000C A            STB,R13  R12
     2393   01 01562    22D00040 A            LI,R13   X'40'
     2394   01 01563    30C015C4              AW,R12   CNT:P3
     2395   01 01564    7400000D A            STCF     R13
     2396   01 01565    25C0007E A            SLS,R12  -2
     2397   01 01566    35C015AA              STW,R12  SD:ADR
     2398   01 01567    7020000D A            LC       R13
     2399   01 01568    6880156A              BCR,8    %+2
     2400   01 01569    75D015AA              STB,R13  SD:ADR
     2401   01 0156A    02000000 A            NOP
     2402   01 0156B    02000000 A            NOP
     2403   01 0156C    02000000 A            NOP
     2404   01 0156D    02000000 A            NOP
     2405   01 0156E    02000000 A            NOP
     2406   01 0156F    02000000 A            NOP
     2407   01 01570    680015A9              B        ANYL:EX
     2408                            *
     2409   01 01571    32C011CC     LM:ADR   LW,R12   LOC
     2410   01 01572    4BC01D42              AND,R12  ADR:MSK
     2411   01 01573    21C0000F A            CI,R12   15
     2412   01 01574    6920157B              BCS,2    NOT:REG
     2413   01 01575    22D03B00              LI,R13   RTABLIN
     2414   01 01576    30C0000D A            AW,R12   R13
     2415   01 01577    32D01181              LW,R13   RCNT:IN
     2416   01 01578    48D01D15              EOR,R13  ONES
     2417   01 01579    20D00001 A            AI,R13   1
     2418   01 0157A    68001585              B        GET:CNT+4
     2419                            *
     2420   01 0157B    32D015BC     NOT:REG  LW,R13   IDX:SAV1
     2421   01 0157C    25D0000C A            SLS,R13  12
     2422   01 0157D    02000000 A            NOP
     2423   01 0157E    02000000 A            NOP
     2424   01 0157F    22C03B10     PLM:ADR  LI,R12   MTABLIN
     2425   01 01580    30C01188              AW,R12   DIS:SAV+7
     2426   01 01581    72D01D3A     GET:CNT  LB,R13   PSW1
     2427   01 01582    25D0007C A            SLS,R13  -4
     2428   01 01583    69301585              BCS,3    %+2
     2429   01 01584    22D00010 A            LI,R13   16
     2430   01 01585    75D0000C A            STB,R13  R12
     2431   01 01586    35C015AA              STW,R12  SD:ADR
     2432   01 01587    680015A9              B        ANYL:EX
     2433                            *
     2434   01 01588    22100008 A   PLW:ADR  LI,X1    8
     2435   01 01589    B2C203F3              LW,R12   *LISTPTR,X1
     2436   01 0158A    20CFC540 N            AI,R12   0-MEMORY
     2437   01 0158B    20C03B10              AI,R12   MTABLIN
     2438   01 0158C    22D00001 A            LI,R13   1
     2439   01 0158D    75D0000C A            STB,R13  R12
     2440   01 0158E    35C015AA              STW,R12  SD:ADR
     2441   01 0158F    02000000 A            NOP
     2442   01 01590    02000000 A            NOP
     2443   01 01591    02000000 A            NOP
     2444   01 01592    02000000 A            NOP
     2445   01 01593    02000000 A            NOP
     2446   01 01594    02000000 A            NOP
     2447   01 01595    680015A9              B        ANYL:EX
     2448                            *
     2449   01 01596    22C03B10     MMC:ADR  LI,R12   MTABLIN
     2450   01 01597    F2D015C1              LB,R13   *RIN:SAV1
     2451   01 01598    75D0000C A            STB,R13  R12
     2452   01 01599    35C015AA              STW,R12  SD:ADR
     2453   01 0159A    680015A9              B        ANYL:EX
     2454                            *
     2455   01 0159B    32C015BF     SPM:ADR  LW,R12   RIN:SAV
     2456   01 0159C    72D01D3A              LB,R13   PSW1
     2457   01 0159D    25D0007C A            SLS,R13  -4
     2458   01 0159E    692015A1              BCS,2    %+3
     2459   01 0159F    22C03B00              LI,R12   RTABLIN
     2460   01 015A0    22D00010 A            LI,R13   16
     2461   01 015A1    75D0000C A            STB,R13  R12
     2462   01 015A2    35C015AA              STW,R12  SD:ADR
     2463   01 015A3    02000000 A            NOP
     2464   01 015A4    02000000 A            NOP
     2465   01 015A5    02000000 A            NOP
     2466   01 015A6    02000000 A            NOP
     2467   01 015A7    02000000 A            NOP
     2468   01 015A8    02000000 A            NOP
     2469   01 015A9    E80014F9     ANYL:EX  B        *OC:PREP-1
     2470                            *
     2471   01 015AA    00000000 A   SD:ADR   DATA     0
     2472                            *
     2473         01 015AB           OC:LIST  EQU      %
     2474   01 015AB    0010002A A   OC:LM    H        0,X'10',0,X'2A'
     2475   01 015AC    0010002B A   OC:STM   H        0,X'10',0,X'2B'
     2476   01 015AD    0090000A A   OC:PLM   H        0,X'90',0,X'A'
     2477   01 015AE    0090000B A   OC:PSM   H        0,X'90',0,X'B'
     2478   01 015AF    00900008 A   OC:PLW   H        0,X'90',0,X'8'
     2479   01 015B0    00900009 A   OC:PSW   H        0,X'90',0,X'9'
     2480   01 015B1    00900013 A   OC:MSP   H        0,X'90',0,X'13'
     2481   01 015B2    0040006F A   OC:MMC   H        0,X'40',0,X'6F'
     2482   01 015B3    00600061 A   OC:MBS   H        0,X'60',0,X'61'
     2483   01 015B4    00600060 A   OC:CBS   H        0,X'60',0,X'60'
     2484   01 015B5    00600041 A   OC:TBS   H        0,X'60',0,X'41'
     2485   01 015B6    00600040 A   OC:TTBS  H        0,X'60',0,X'40'
     2486   01 015B7    00400029 A   OC:CVA   H        0,X'40',0,X'29'
     2487   01 015B8    00400028 A   OC:CVS   H        0,X'40',0,X'28'
     2488         01 015B9           OC:LISTE EQU      %
     2489                            *
     2490   01 015B9    00000000 A   OC:FLG   DATA     0
     2491   01 015BA    00000000 A   OC:SP    DATA     0
     2492   01 015BB    00000000 A   IDX:ADR  DATA     0
     2493   01 015BC    00000000 A   IDX:SAV1 DATA     0
     2494   01 015BD    00000000 A   IDX:EBC  DATA     0
     2495   01 015BE    00000000 A   TEMPRSAV DATA     0
     2496                            *
     2497   01 015BF    00000000 A   RIN:SAV  DATA     0
     2498   01 015C0    00000000 A   ROU:SAV  DATA     0
     2499         01 015C1           IO:RTAB0 EQU      %
     2500                            *
     2501   01 015C1    00000000 A   RIN:SAV1 DATA     0
     2502   01 015C2    00000000 A   ROU:SAV1 DATA     0
     2503         01 015C3           IO:RTAB1 EQU      %
     2504                            *
     2505   01 015C3    FFFFFFFE A   MINUS2   DATA     -2
     2506   01 015C4    03000000 A   CNT:P3   DATA     X'03000000'
     2507   01 015C5    000000EF A   OUT:IDX  DATA     X'EF'
     2508   01 015C6    000E0000 A   IDX:MSK  DATA     X'E0000'
     2509   01 015C7    40F07E40 A   IDX:EQ   DATA     X'40F07E40'
     2510   01 015C8    00F00000 A   REG:MSK  DATA     X'F00000'
     2511   01 015C9    40400040 A   REG:SP   DATA     X'40400040'
     2512   01 015CA    4040FE40 A   NEG2MSK  DATA     X'4040FE40'
     2513   01 015CB    00000000 A            DATA     0
     2514   01 015CC    00000000 A            DATA     0
     2515         01 015CD           REGN     EQU      %
     2516                            *
     2517   01 015CD    00000000 A   SN:OEPTR DATA     0
     2518   01 015CE    00000000 A   IO34IDX  DATA     0
     2519   01 015CF    00000000 A   IO78IDX  DATA     0
     2520   01 015D0    00000000 A   SHORTPTR DATA     0
     2521   01 015D1    00001195     LONGPTR  DATA     SHORTS
     2522   01 015D2    00000000 A   SNAP:FLG DATA     0
     2523   01 015D3    00000000 A   SNAP:UNC DATA     0
     2524   01 015D4    00000000 A   PASS:ERR DATA     0
     2525   01 015D5    FFF80000 A   FLAG:MSK DATA     X'FFF80000'
     2526   01 015D6    00000000 A   GEN:FLG  DATA     0
     2527   01 015D7    00000000 A   VER:FLG  DATA     0
     2528   01 015D8    00000000 A   VER:END  DATA     0
     2529   01 015D9    40FFFF40 A   EL:MSK1  DATA     X'40FFFF40'
     2530                            *
     2531   01 015DA    40D4D6C4 A   MODT     TEXT     ' MOD'
     2532                            *
     2533   01 015DB    4040F140 A            TEXT     '  1 '
     2534   01 015DC    40F1F240 A            TEXT     ' 12 '
     2535   01 015DD    404EF040 A            TEXT     ' +0 '
     2536         01 015DE           LFT:PTR  EQU %
     2537                            *
     2538   01 015DE    4040F240 A            TEXT     '  2 '
     2539   01 015DF    40F1F340 A            TEXT     ' 13 '
     2540   01 015E0    404EF140 A            TEXT     ' +1 '
     2541         01 015E1           RHT:PTR  EQU      %
     2542                            *
     2543   01 015E1    00000002 A            DATA     2
     2544   01 015E2    00000004 A            DATA     4
     2545   01 015E3    00000006 A            DATA     6
     2546         01 015E4           IN:0X34  EQU      %
     2547                            *
     2548   01 015E4    0000000C A            DATA     12
     2549   01 015E5    00000008 A            DATA     8
     2550   01 015E6    0000000A A            DATA     10
     2551         01 015E7           IN:1X78  EQU      %
     2552                            *
     2553   01 015E7    00000000 A   RSAV     DATA     0
     2554   01 015E8    00000000 A   RSAV1    DATA     0
     2555   01 015E9    00000000 A   MSAV     DATA     0
     2556   01 015EA    00000000 A   MSAV1    DATA     0
     2557   01 015EB    00000003 A            DATA     3
     2558   01 015EC    00000005 A            DATA     5
     2559   01 015ED    00000007 A            DATA     7
     2560         01 015EE           OUT:0X34 EQU      %
     2561                            *
     2562   01 015EE    0000000D A            DATA     13
     2563   01 015EF    00000009 A            DATA     9
     2564   01 015F0    0000000B A            DATA     11
     2565         01 015F1           OUT:1X78 EQU      %
     2566                            *
     2567   01 015F1    C9D54040 A            TEXT     'IN'
     2568   01 015F2    D6E4E340 A            TEXT     'OUT'
     2569         01 015F3           IO:PTR   EQU      %
     2570                            *
     2571   01 015F3    00000000 A            DATA     0
     2572         01 015F4           MOD:HDR  EQU      %                 THE MOD:HDR AND MOD:DATA
     2573   01 015F4    35F015F3              STW,R15  %-1               ROUTINES ARE USED DURING
     2574   01 015F5    6AF01792              BAL,R15  TYPE:CR                                           *A03
     2575   01 015F6    22700001 A            LI,X7    1                 OUTPUT OF SNAP DATA AND
     2576   01 015F7    32C015DA              LW,R12   MODT              BY THE 'DL' ROUTINE TO
     2577   01 015F8    35C01CEC              STW,R12  OUTBUF            PRESENT THE MODULE DATA
     2578   01 015F9    6AF01458              BAL,R15  ESM:MOD           IN A SNAP HAEDER FORMAT.
     2579   01 015FA    35C01CED              STW,R12  OUTBUF+1
     2580   01 015FB    6AF0145E              BAL,R15  ESM:EL
     2581   01 015FC    35C01CEE              STW,R12  OUTBUF+2
     2582   01 015FD    6AF01468              BAL,R15  ESM:MNEM
     2583   01 015FE    35C01CEF              STW,R12  OUTBUF+3          MOD:HDR OUTPUTS THE FIRST
     2584   01 015FF    32C01C63              LW,R12   SPACES            LINE OF THE SNAP HEADER
     2585   01 01600    35C01CF0              STW,R12  OUTBUF+4          BLOCK.
     2586   01 01601    B2CE03F3              LW,R12   *LISTPTR,X7
     2587   01 01602    6AF0181D              BAL,R15  DHEX:CON
     2588   01 01603    35D01CF1              STW,R13  OUTBUF+5
     2589   01 01604    35C01CF2              STW,R12  OUTBUF+6
     2590   01 01605    32D01A64              LW,R13   KOUT+4
     2591   01 01606    32C01C63              LW,R12   SPACES
     2592   01 01607    35C01CF3              STW,R12  OUTBUF+7
     2593   01 01608    35C01CF4              STW,R12  OUTBUF+8
     2594   01 01609    35C01CF5              STW,R12  OUTBUF+9
     2595   01 0160A    35C01CF6              STW,R12  OUTBUF+10
     2596   01 0160B    75D0000C A            STB,R13  R12
     2597   01 0160C    35C01CF8              STW,R12  OUTBUF+12
     2598   01 0160D    32C01620              LW,R12   SO:MSG
     2599   01 0160E    35C01CF7              STW,R12  OUTBUF+11
     2600                            *
     2601   01 0160F    702015B9              LC       OC:FLG
     2602   01 01610    68101619              BCR,1    PRNT:MOD-2
     2603   01 01611    32C014EF              LW,R12   TXT:PTR-4
     2604   01 01612    35C01CF3              STW,R12  OUTBUF+7
     2605   01 01613    32C015BD              LW,R12   IDX:EBC
     2606   01 01614    35C01CF4              STW,R12  OUTBUF+8
     2607   01 01615    B2C015BB              LW,R12   *IDX:ADR
     2608   01 01616    6AF0181D              BAL,R15  DHEX:CON
     2609   01 01617    35D01CF5              STW,R13  OUTBUF+9
     2610   01 01618    35C01CF6              STW,R12  OUTBUF+10
     2611   01 01619    22C00033 A            LI,R12   51
     2612   01 0161A    75C01CEC              STB,R12  OUTBUF
     2613                            *
     2614   01 0161B    EA6003CD     PRNT:MOD #PRINT   OUTBUF,C2
            01 0161C    C20073B0 A
     2615   01 0161D    6930161F              BCS,3    %+2
     2616   01 0161E    8F9003CA              XPSD,9   *#RUNADDR%
     2617   01 0161F    E80015F3              B        *MOD:HDR-1
     2618                            *
     2619   01 01620    40E2D67E A   SO:MSG   TEXT     ' SO='
     2620                            *
     2621   01 01621    00000000 A            DATA     0
     2622         01 01622           MOD:DATA EQU      %                 MOD:DATA OUTPUTS THE DATA
     2623   01 01622    35F01621              STW,R15  %-1               PERTAINING TO THE CURRENT
     2624   01 01623    02000000 A            NOP
     2625                            *
     2626   01 01624    221FFFFE A   SD:LINES LI,X1    -2
     2627   01 01625    323003F3              LW,X3    LISTPTR
     2628   01 01626    32C014F0              LW,R12   TXT:PTR-3
     2629   01 01627    35C01CEC              STW,R12  OUTBUF
     2630   01 01628    32C015DB              LW,R12   LFT:PTR-3
     2631   01 01629    35C01CED              STW,R12  OUTBUF+1
     2632   01 0162A    32C215F3              LW,R12   IO:PTR,X1
     2633   01 0162B    35C01CEE              STW,R12  OUTBUF+2
     2634   01 0162C    35C01CF3              STW,R12  OUTBUF+7
     2635   01 0162D    35C01CF7              STW,R12  OUTBUF+11
     2636   01 0162E    02000000 A            NOP
     2637   01 0162F    02000000 A            NOP
     2638   01 01630    02000000 A            NOP
     2639   01 01631    02000000 A            NOP
     2640   01 01632    02000000 A            NOP
     2641   01 01633    02000000 A            NOP
     2642   01 01634    32C60002 A            LW,R12   2,X3
     2643   01 01635    6AF0181D              BAL,R15  DHEX:CON
     2644   01 01636    35D01CEF              STW,R13  OUTBUF+3
     2645   01 01637    35C01CF0              STW,R12  OUTBUF+4
     2646   01 01638    22C00013 A            LI,R12   19
     2647   01 01639    75C01CEC              STB,R12  OUTBUF
     2648   01 0163A    702015B9              LC       OC:FLG
     2649   01 0163B    68C0166B              BCR,12   PRNT:SUF
     2650                            *
     2651   01 0163C    702015B9              LC       OC:FLG
     2652   01 0163D    69401640              BCS,4    %+3
     2653   01 0163E    32C01679              LW,R12   SP:TXT
     2654   01 0163F    68001641              B        %+2
     2655   01 01640    32C0167A              LW,R12   REG:TXT
     2656   01 01641    35C01CF1              STW,R12  OUTBUF+5
     2657                            *
     2658   01 01642    702015B9              LC       OC:FLG
     2659   01 01643    69401646              BCS,4    %+3
     2660   01 01644    32C015DB              LW,R12   LFT:PTR-3
     2661   01 01645    68001647              B        %+2
     2662   01 01646    32C015CB              LW,R12   REGN-2
     2663   01 01647    35C01CF2              STW,R12  OUTBUF+6
     2664   01 01648    02000000 A            NOP
     2665   01 01649    02000000 A            NOP
     2666   01 0164A    02000000 A            NOP
     2667   01 0164B    02000000 A            NOP
     2668   01 0164C    02000000 A            NOP
     2669   01 0164D    02000000 A            NOP
     2670   01 0164E    32C215C1              LW,R12   IO:RTAB0,X1
     2671   01 0164F    B2C0000C A            LW,R12   *R12
     2672   01 01650    702015B9              LC       OC:FLG
     2673   01 01651    69401657              BCS,4    %+6
     2674   01 01652    211FFFFF A            CI,X1    -1
     2675   01 01653    69301655              BCS,3    %+2
     2676   01 01654    20300001 A            AI,X3    1
     2677   01 01655    32C60008 A            LW,R12   8,X3
     2678   01 01656    35C01678              STW,R12  SP:SAV
     2679   01 01657    6AF0181D              BAL,R15  DHEX:CON
     2680   01 01658    35D01CF4              STW,R13  OUTBUF+8
     2681   01 01659    35C01CF5              STW,R12  OUTBUF+9
     2682   01 0165A    702015B9              LC       OC:FLG
     2683   01 0165B    6940165E              BCS,4    %+3
     2684   01 0165C    32C015DE              LW,R12   RHT:PTR-3
     2685   01 0165D    6800165F              B        %+2
     2686   01 0165E    32C015CC              LW,R12   REGN-1
     2687   01 0165F    35C01CF6              STW,R12  OUTBUF+10
     2688   01 01660    702015B9              LC       OC:FLG
     2689   01 01661    69401664              BCS,4    %+3
     2690   01 01662    32C60009 A            LW,R12   9,X3
     2691   01 01663    68001666              B        %+3
     2692   01 01664    32C215C3              LW,R12   IO:RTAB1,X1
     2693   01 01665    B2C0000C A            LW,R12   *R12
     2694   01 01666    6AF0181D              BAL,R15  DHEX:CON
     2695   01 01667    35D01CF8              STW,R13  OUTBUF+12
     2696   01 01668    35C01CF9              STW,R12  OUTBUF+13
     2697   01 01669    22C00037 A            LI,R12   55
     2698   01 0166A    75C01CEC              STB,R12  OUTBUF
     2699   01 0166B    EA6003CD     PRNT:SUF #PRINT   OUTBUF
            01 0166C    C00073B0 A
     2700   01 0166D    6930166F              BCS,3    %+2
     2701   01 0166E    8F9003CA              XPSD,9   *#RUNADDR%
     2702   01 0166F    20300001 A            AI,X3    1
     2703   01 01670    65101626              BIR,X1   SD:LINES+2
     2704   01 01671    02000000 A            NOP
     2705   01 01672    02000000 A            NOP
     2706   01 01673    02000000 A            NOP
     2707   01 01674    02000000 A            NOP
     2708   01 01675    02000000 A            NOP
     2709   01 01676    02000000 A            NOP
     2710   01 01677    6800167B              B        SDPRESET
     2711                            *
     2712   01 01678    00000000 A   SP:SAV   DATA     0
     2713   01 01679    4040E2D7 A   SP:TXT   TEXT     '  SP'
     2714   01 0167A    40D9C5C7 A   REG:TXT  TEXT     ' REG'
     2715                            *
     2716         01 0167B           SDPRESET EQU      %
     2717   01 0167B    702015B0              LC       OC:PSW
     2718   01 0167C    698016B4              BCS,8    SET:MSPW
     2719   01 0167D    702015B1              LC       OC:MSP
     2720   01 0167E    698016B4              BCS,8    SET:MSPW
     2721   01 0167F    221FFFEE A            LI,X1    -18
     2722   01 01680    32C01C63              LW,R12   SPACES
     2723   01 01681    35C21CFE              STW,R12  OUTBUF+18,X1
     2724   01 01682    65101681              BIR,X1   %-1
     2725   01 01683    02000000 A            NOP
     2726   01 01684    02000000 A            NOP
     2727   01 01685    02000000 A            NOP
     2728   01 01686    02000000 A            NOP
     2729   01 01687    02000000 A            NOP
     2730   01 01688    02000000 A            NOP
     2731                            *
     2732   01 01689    32C015AA              LW,R12   SD:ADR
     2733   01 0168A    683016E8              BCR,3    EXIT:SD
     2734   01 0168B    6AF0181D              BAL,R15  DHEX:CON
     2735   01 0168C    35C01700              STW,R12  SUFF:SD+4
     2736   01 0168D    221FFFFB A            LI,X1    -5
     2737   01 0168E    32C21701              LW,R12   SUFF:SD+5,X1
     2738   01 0168F    35C21CF1              STW,R12  OUTBUF+5,X1
     2739   01 01690    6510168E              BIR,X1   %-2
     2740   01 01691    725015AA     SD:LINE3 LB,X5    SD:ADR
     2741   01 01692    21500005 A            CI,X5    5
     2742   01 01693    691016CB              BL       SD:UND5
     2743   01 01694    22C00013 A            LI,R12   19
     2744   01 01695    75C01CEC              STB,R12  OUTBUF
     2745   01 01696    EA6003CD              #PRINT   OUTBUF
            01 01697    C00073B0 A
     2746   01 01698    6930169A              BCS,3    %+2
     2747   01 01699    8F9003CA              XPSD,9   *#RUNADDR%
     2748   01 0169A    32B015AA              LW,R11   SD:ADR
     2749   01 0169B    222FFFF8 A   SD:LOOP  LI,X2    -8
     2750   01 0169C    22300000 A            LI,X3    0
     2751   01 0169D    353016E9              STW,X3   EX:FLG
     2752   01 0169E    20B00008 A            AI,R11   8
     2753   01 0169F    B2C4000B A            LW,R12   *R11,X2
     2754   01 016A0    6AF0181D              BAL,R15  DHEX:CON
     2755   01 016A1    35D61C76              STW,R13  DC:BUF+2,X3
     2756   01 016A2    35C61C77              STW,R12  DC:BUF+3,X3
     2757   01 016A3    20300003 A            AI,X3    3
     2758   01 016A4    6520169F              BIR,X2   %-5
     2759   01 016A5    205FFFF8 A            AI,X5    -8
     2760   01 016A6    691016DC              BCS,1    UNDER8
     2761   01 016A7    692016A9              BCS,2    %+2
     2762   01 016A8    353016E9              STW,X3   EX:FLG
     2763   01 016A9    320016EA              LW,R0    DWA:DWT1
     2764   01 016AA    3500179D              STW,R0   DBL:WRD
     2765   01 016AB    6AF01792              BAL,R15  TYPE:CR                                           *A03
     2766   01 016AC    6AF0177D              BAL,R15  DC:OUT
     2767   01 016AD    32C016E9              LW,R12   EX:FLG
     2768   01 016AE    692016E8              BCS,2    EXIT:SD
     2769   01 016AF    6800169B              B        SD:LOOP
     2770   01 016B0    02000000 A            NOP
     2771   01 016B1    02000000 A            NOP
     2772   01 016B2    02000000 A            NOP
     2773   01 016B3    02000000 A            NOP
     2774                            *
     2775   01 016B4    32C014F1     SET:MSPW LW,R12   TXT:PTR-2
     2776   01 016B5    35C01CEC              STW,R12  OUTBUF
     2777   01 016B6    02000000 A            NOP
     2778   01 016B7    02000000 A            NOP
     2779   01 016B8    02000000 A            NOP
     2780   01 016B9    02000000 A            NOP
     2781   01 016BA    02000000 A            NOP
     2782   01 016BB    02000000 A            NOP
     2783   01 016BC    32C015CB              LW,R12   REGN-2
     2784   01 016BD    35C01CED              STW,R12  OUTBUF+1
     2785   01 016BE    32C015F1              LW,R12   IO:PTR-2
     2786   01 016BF    35C01CEE              STW,R12  OUTBUF+2
     2787   01 016C0    B2C015BF              LW,R12   *RIN:SAV
     2788   01 016C1    6AF0181D              BAL,R15  DHEX:CON
     2789   01 016C2    35D01CEF              STW,R13  OUTBUF+3
     2790   01 016C3    35C01CF0              STW,R12  OUTBUF+4
     2791   01 016C4    22C00013 A            LI,R12   19
     2792   01 016C5    75C01CEC              STB,R12  OUTBUF
     2793   01 016C6    EA6003CD              #PRINT   OUTBUF
            01 016C7    C00073B0 A
     2794   01 016C8    693016CA              BCS,3    %+2
     2795   01 016C9    8F9003CA              XPSD,9   *#RUNADDR%
     2796   01 016CA    680016E8              B        EXIT:SD
     2797                            *
     2798   01 016CB    22200000 A   SD:UND5  LI,X2    0
     2799   01 016CC    22300000 A            LI,X3    0
     2800   01 016CD    32CA16DB              LW,R12   CNT:TABL,X5
     2801   01 016CE    72C0000C A            LB,R12   R12
     2802   01 016CF    75C01CEC              STB,R12  OUTBUF
     2803   01 016D0    B2C415AA              LW,R12   *SD:ADR,X2
     2804   01 016D1    6AF0181D              BAL,R15  DHEX:CON
     2805   01 016D2    35D61CF2              STW,R13  OUTBUF+6,X3
     2806   01 016D3    35C61CF3              STW,R12  OUTBUF+7,X3
     2807   01 016D4    20300003 A            AI,X3    3
     2808   01 016D5    20200001 A            AI,X2    1
     2809   01 016D6    645016D0              BDR,X5   %-6
     2810   01 016D7    EA6003CD              #PRINT   OUTBUF
            01 016D8    C00073B0 A
     2811   01 016D9    693016DB              BCS,3    %+2
     2812   01 016DA    8F9003CA              XPSD,9   *#RUNADDR%
     2813   01 016DB    680016E8              B        EXIT:SD
     2814                            *
     2815         01 016DB           CNT:TABL EQU      %-1
     2816                            *
     2817   01 016DC    25500003 A   UNDER8   SLS,X5   3
     2818   01 016DD    752A16FB              STB,X2   DC:DWT1E,X5
     2819   01 016DE    320016EA              LW,R0    DWA:DWT1
     2820   01 016DF    3500179D              STW,R0   DBL:WRD
     2821   01 016E0    6AF01792              BAL,R15  TYPE:CR                                           *A03
     2822   01 016E1    6AF0177D              BAL,R15  DC:OUT
     2823   01 016E2    22C00080 A            LI,R12   X'80'
     2824   01 016E3    75CA16FB              STB,R12  DC:DWT1E,X5
     2825   01 016E4    02000000 A            NOP
     2826   01 016E5    02000000 A            NOP
     2827   01 016E6    02000000 A            NOP
     2828   01 016E7    02000000 A            NOP
     2829   01 016E8    E8001621     EXIT:SD  B        *MOD:DATA-1
     2830                            *
     2831   01 016E9    00000000 A   EX:FLG   DATA     0
     2832                            *
     2833   01 016EA    00000B76     DWA:DWT1 DATA     DA(DC:DWT1)
     2834                                     BOUND    8
     2835   01 016EC    010071D8     DC:DWT1  J        1,SN:COL1
     2836   01 016ED    80000009 A            I        8,9
     2837   01 016EE    010071E4              J        1,SN:COL2
     2838   01 016EF    80000009 A            I        8,9
     2839   01 016F0    010071F0              J        1,SN:COL3
     2840   01 016F1    80000009 A            I        8,9
     2841   01 016F2    010071FC              J        1,SN:COL4
     2842   01 016F3    80000009 A            I        8,9
     2843   01 016F4    01007208              J        1,SN:COL5
     2844   01 016F5    80000009 A            I        8,9
     2845   01 016F6    01007214              J        1,SN:COL6
     2846   01 016F7    80000009 A            I        8,9
     2847   01 016F8    01007220              J        1,SN:COL7
     2848   01 016F9    80000009 A            I        8,9
     2849   01 016FA    0100722C              J        1,SN:COL8
     2850   01 016FB    00000009 A   DC:DWT1E I        0,9
     2851                            *
     2852   01 016FC    40E2D6E4 A   SUFF:SD  TEXT     ' SOU'
     2853   01 016FD    D9C3C540 A            TEXT     'RCE '
     2854   01 016FE    C4C1E3C1 A            TEXT     'DATA'
     2855   01 016FF    40407C40 A            TEXT     '  @ '
     2856   01 01700    00000000 A            DATA     0
     2857                            *
     2858                            *     SNAP:OUT CONVERTS BOTH THE EXP AND OR OBS DATA INTO
     2859                            *     EBCDIC AND PLACES THEM IN A SPECIAL DATA CHAINING
     2860                            *     BUFFER FOR OUTPUT.  THE OUTPUT FORMAT IS CONTROLLED
     2861                            *     BY THE SO OPTION IN THE K-LINE.
     2862                            *
     2863                            *     THE SNAPSHOT OUTPUT IS 'FOLDED' INTO 3 SEPARATE SECTIONS.
     2864                            *     THE CURRENT SECTION IS KEPT TRACK OF BY X2.
     2865   01 01701    00000000 A            DATA     0
     2866         01 01702           SNAP:OUT EQU      %                 THE INITIALIZATION CONSISTS
     2867   01 01702    35F01701              STW,R15  %-1               OF SETTING THE CK:SAV'S(3)
     2868   01 01703    6AF01792              BAL,R15  TYPE:CR           TO 1, RESETTING THE FAILED
     2869   01 01704    22C00001 A            LI,R12   1                 TO FIND NON-COMPARE FLAG,
     2870   01 01705    222FFFFD A            LI,X2    -3                FETCHING THE # OF CLOCKS
     2871   01 01706    35C41D0E              STW,R12  CK:SAV,X2         USED BY THE CURRENT SNAP
     2872   01 01707    65201706              BIR,X2   %-1               FROM SN:OBS-1 AND SETTING
     2873                            *                                   THE EXIT VALUE IN CK:PTR,
     2874   01 01708    222FFFFD A            LI,X2    -3                AND BY SETTING THE EXP &
     2875   01 01709    22C00000 A            LI,R12   0                 OBS BUFFER POINTERS TO THE
     2876   01 0170A    35C01C5E              STW,R12  CMP:ERR           START OF THEIR BUFFERS.
     2877   01 0170B    72C03AA7              LB,R12   SN:OBS-1          *
     2878   01 0170C    31C01D17              CW,R12   CE:PTR                                            *A02
     2879   01 0170D    6820170F              BCR,2    %+2                                               *A02
     2880   01 0170E    32C01D17              LW,R12   CE:PTR                                            *A02
     2881   01 0170F    35C01D0A              STW,R12  CK:PTR            IF THE SNAP OPTION IS LESS
     2882   01 01710    22C03CA5     NEW:HDR  LI,R12   SN:EXP            THAN 7, THE SNAP OUTPUT IS
     2883   01 01711    35C01C5B              STW,R12  SN:EXPTR          A FUNCTION OF A NON-COMPARE
     2884   01 01712    32C03AA8              LW,R12   SN:OBS            BEING DETECTED.  CONTROL
     2885   01 01713    35C01C5A              STW,R12  SN:OBPTR          GOES TO CMP:OE TO COMPARE
     2886   01 01714    22C00001 A            LI,R12   1                 EXP WITH OBS BUFFERS.
     2887   01 01715    35C01C59              STW,R12  CK:CTR            *
     2888   01 01716    32D01D09              LW,R13   CK:BIAS
     2889   01 01717    6820171C              BCR,2    %+5
     2890   01 01718    22B00017 A            LI,R11   23
     2891   01 01719    22A00001 A            LI,R10   1
     2892   01 0171A    6AF017D0              BAL,R15  CK:ADV
     2893   01 0171B    64D0171A              BDR,R13  %-1
     2894   01 0171C    32C01C62              LW,R12   SO                IF SNAP OPTION IS GREATER
     2895   01 0171D    21C00003 A            CI,R12   3
     2896   01 0171E    68301722              BCR,3    %+4
     2897   01 0171F    21C00006 A            CI,R12   6                 THAN 6 THE FIRST SECTION
     2898   01 01720    68101722              BCR,1    %+2
     2899   01 01721    6AF017DC              BAL,R15  CMP:OE            OF THE HEADER CAN BE
     2900   01 01722    32C41CE9              LW,R12   HDR:ADR,X2        OUTPUT.  IF SO=7 OR F,
     2901   01 01723    6AF01756              BAL,R15  HDR:OUT           THERE IS NO EXP. DATA
     2902   01 01724    32C01C62     SO126    LW,R12   SO                FROM TAPE AND CONTROL GOES
     2903   01 01725    21C00003 A            CI,R12   3
     2904   01 01726    69301728              BCS,3    %+2
     2905   01 01727    225FFFFF A            LI,X5    -1
     2906   01 01728    21C00007 A            CI,R12   7                 TO OBS DATA ONLY.
     2907   01 01729    68301740              BE       OB:OUT            *
     2908   01 0172A    32A01C5B              LW,R10   SN:EXPTR          IF SO<7 THE EXP DATA IS
     2909   01 0172B    6AF0179F              BAL,R15  SOE:MOVR          MOVED BY SOE:MOVR INTO
     2910   01 0172C    6AF017B2              BAL,R15  DIS:FLG-2         THE DATA CHAINING BUFFER;
     2911   01 0172D    22000E32              LI,R0    DA(DCB:DW0)       THE DISREGARD FLAGS ARE
     2912   01 0172E    6AF01765              BAL,R15  DAT:OUT           SET ACCORDING TO THE
     2913                            *                                   BIT MASK AND THE BUFFER
     2914         01 0172F           SO12A    EQU      %                 IS OUTPUT BY DAT:OUT.
     2915   01 0172F    32C01C62              LW,R12   SO                *
     2916   01 01730    21C00003 A            CI,R12   3                 IF SO<3 OR IF THE CLK:CTR
     2917   01 01731    68301749              BCR,3    SO12B+4
     2918   01 01732    68101740              BCR,1    OB:OUT            =1 OR IF THE LOOP COUNT IN
     2919   01 01733    02000000 A            NOP                        X5 GOES TO 0, THE NEXT
     2920   01 01734    02000000 A            NOP                        OUTPUT IS FROM THE OBS
     2921   01 01735    02000000 A            NOP                        BUFFER.  OTHERWISE THERE
     2922   01 01736    65501738              BIR,X5   %+2               IS ONE MORE OUTPUT FROM
     2923   01 01737    68001740              B        OB:OUT            THE EXP BUFFER.  THIS IS
     2924   01 01738    22A00001 A            LI,R10   1                 THE SEMI-INTERLACED FORMAT.
     2925   01 01739    22B00017 A            LI,R11   23                (EXP, EXP, OBS)
     2926   01 0173A    6AF017D0              BAL,R15  CK:ADV            *
     2927   01 0173B    6800172A              B        SO126+6
     2928                            *
     2929         01 0173C           SO67B    EQU      %
     2930   01 0173C    32C01C62              LW,R12   SO
     2931   01 0173D    21C00003 A            CI,R12   3
     2932   01 0173E    6910180F              BCS,1    BACK12
     2933   01 0173F    68001710              B        NEW:HDR
     2934                            *                                   OB:OUT USES SOE:MOVR TO
     2935         01 01740           OB:OUT   EQU      %                 MOVE THE OBS DATA INTO
     2936   01 01740    32A01C5A              LW,R10   SN:OBPTR          THE DATA CHAINING BUFFER
     2937   01 01741    6AF0179F              BAL,R15  SOE:MOVR          FOR OUTPUT.  DAT:OUT IS
     2938   01 01742    6AF017B4              BAL,R15  DIS:FLG           A SHARED SUBROUTINE USED
     2939   01 01743    22000E32              LI,R0    DA(DCB:DW0)       TO OUTPUT SNAP DATA.
     2940   01 01744    6AF01765              BAL,R15  DAT:OUT           *
     2941   01 01745    32C01C62     SO12B    LW,R12   SO                IF SO=2 THE BUFFER POINTERS
     2942   01 01746    21C00002 A            CI,R12   2                 MUST BE ADJUSTED AND
     2943   01 01747    68301752              BE       PTR:ADJ           CONTROL GOES BACK TO THE
     2944   01 01748    69101750              BL       SO2-1             COMPARE ROUTINE.  THIS
     2945   01 01749    32C01D0A              LW,R12   CK:PTR            *
     2946   01 0174A    31C01C59              CW,R12   CK:CTR
     2947   01 0174B    68301750              BCR,3    %+5
     2948   01 0174C    22A00001 A            LI,R10   1                 OPTION SAYS TO PRINT ALL
     2949   01 0174D    22B00017 A            LI,R11   23                NON-COMPARES IN THE RANGE
     2950   01 0174E    6AF017D0              BAL,R15  CK:ADV            SPECIFIED BY MST/MSP.
     2951   01 0174F    68001724              B        SO126
     2952   01 01750    6520173C              BIR,X2   SO67B
     2953   01 01751    6800181C     SO2      B        SO:EXIT
     2954                            *
     2955         01 01752           PTR:ADJ  EQU      %
     2956   01 01752    22B00017 A            LI,R11   23
     2957   01 01753    6AF017D3              BAL,R15  OE:ADV
     2958   01 01754    680017F1              B        MS:RTN+1
     2959                            *
     2960   01 01755    00000000 A            DATA     0
     2961         01 01756           HDR:OUT  EQU      %
     2962   01 01756    35F01755              STW,R15  %-1               HDR:OUT PRINTS THE SNAP
     2963   01 01757    31C00393              CW,R12   #HDRFLG           HEADERS.  (A FUNCTION
     2964   01 01758    E830000F A            BCR,3    *R15              OF X2)
     2965   01 01759    22D000C1 A            LI,R13   X'C1'
     2966   01 0175A    75D0000C A            STB,R13  R12
     2967   01 0175B    35C0175D             STW,R12   %+2                                               *A04
     2968   01 0175C    EA6003CD              #PRINT   %+1
            01 0175D    C0005D78 A
     2969   01 0175E    69301760              BCS,3    %+2
     2970   01 0175F    8F9003CA              XPSD,9   *#RUNADDR%
     2971   01 01760    6AF01792              BAL,R15  TYPE:CR
     2972   01 01761    4BC01D42              AND,R12  ADR:MSK
     2973   01 01762    35C00393              STW,R12  #HDRFLG
     2974   01 01763    E8001755              B        *HDR:OUT-1
     2975                            *
     2976   01 01764    00000000 A            DATA     0
     2977         01 01765           DAT:OUT  EQU      %
     2978   01 01765    35F01764              STW,R15  %-1               DAT:OUT IS A SHARED
     2979   01 01766    32C41CE9              LW,R12   HDR:ADR,X2        ROUTINE FOR OUTPUTTING
     2980   01 01767    31C00393              CW,R12   #HDRFLG           BOTH EXP AND OBS SNAP
     2981   01 01768    6830176A              BCR,3    %+2               DATA.
     2982   01 01769    6AF01756              BAL,R15  HDR:OUT
     2983                            *
     2984   01 0176A    EA6003C2              #ETHCON,4  SN:COL1+1
            01 0176B    040071DC
     2985   01 0176C    22400010 A            LI,X4    16                THIS CODE CONVERTS THE RIGHT
     2986   01 0176D    31681F54              CW,X6    MSK:BTM-8,X4      16 BITS OF THE SNAPSHOT 'PHASE'
     2987   01 0176E    68301771              BCR,3    %+3               COLUMN INTO A HEX NUMBER
     2988   01 0176F    6440176D              BDR,X4   %-2               PRECEEDED BY A DASH AND
     2989   01 01770    68001777              B        NO:CON            REPLACES IT IN THE OUTPUT BUFFER.
     2990   01 01771    EA6003C3              #HTECON  X4
            01 01772    00000004 A
     2991   01 01773    326C0001 A            LW,X6    1,X6              NO CONVERSION IS DONE IF MORE THAN
     2992   01 01774    35601C77              STW,X6    SN:COL1+1        A SINGLE BIT IS PRESENT OR IF IT
     2993   01 01775    22600060 A            LI,X6    X'60'             IS ALL ZERO.
     2994   01 01776    75601C77              STB,X6    SN:COL1+1
     2995                            *
     2996   01 01777    22F00E32     NO:CON  LI,R15    DA(DCB:DW0)                                       *A04
     2997   01 01778    35F0179D              STW,R15  DBL:WRD
     2998   01 01779    6AF0177D              BAL,R15  DC:OUT
     2999   01 0177A    35C00393              STW,R12  #HDRFLG
     3000   01 0177B    E8001764              B        *DAT:OUT-1
     3001                            *
     3002   01 0177C    00000000 A            DATA     0
     3003         01 0177D           DC:OUT   EQU      %
     3004   01 0177D    35F0177C              STW,R15  %-1               DC:OUT DOES THE ACTUAL
     3005   01 0177E    32000396              LW,R0    #TOADDR           PRINTING OR TYPING OF
     3006   01 0177F    31000397              CW,R0    #PRTADDR          SNAP DATA.
     3007   01 01780    7400179C              STCF     SAVCC                                             *A03
     3008   01 01781    69301786              BNE      PRNTR             *
     3009   01 01782    CDE00396              TIO,R14  *#TOADDR          OUTPUT IS ALWAYS TO
     3010   01 01783    68C01786              BCR,12   PRNTR             THE MESSAGE DEVICE
     3011   01 01784    CF000396              HIO,R0   *#TOADDR          SPECIFIED IN THE J:LINE.
     3012   01 01785    69801784              BCS,8    %-1
     3013   01 01786    3200179D     PRNTR    LW,R0    DBL:WRD
     3014   01 01787    CC000397              SIO,R0   *#PRTADDR
     3015   01 01788    CD100397              TIO,X1   *#PRTADDR
     3016   01 01789    69C01788              BCS,12   %-1
     3017   01 0178A    7030179C              LCF      SAVCC                                             *A03
     3018   01 0178B    6930178E              BCS,3    %+3                                               *A03
     3019   01 0178C    3200000E A            LW,R0    R14
     3020   01 0178D    CC000396              SIO,R0   *#TOADDR                                          *A03
     3021   01 0178E    31101F49              CW,X1    MSK:LST+4
     3022   01 0178F    68401791              BCR,4    %+2               'BREAK' OF OUTPUT CAUSES
     3023   01 01790    8F9003CA              XPSD,9   *#RUNADDR%        A RETURN TO GUIDE IDLE.
     3024   01 01791    68001793              B        %+2
     3025   01 01792    35F0177C     TYPE:CR  STW,R15  DC:OUT-1
     3026   01 01793    32000396              LW,R0    #TOADDR
     3027   01 01794    31000397              CW,R0    #PRTADDR
     3028   01 01795    E930177C              BNE      *DC:OUT-1
     3029   01 01796    EA6003CC              #TYPE    MSK:LST+7
            01 01797    00007D30 A
     3030   01 01798    02000000 A            NOP
     3031   01 01799    02000000 A            NOP
     3032   01 0179A    02000000 A            NOP
     3033   01 0179B    E800177C              B        *DC:OUT-1
     3034                            *
     3035   01 0179C    00000000 A   SAVCC    DATA     0                                                 *A03
     3036   01 0179D    00000000 A   DBL:WRD  DATA     0
     3037                            *
     3038   01 0179E    00000000 A            DATA     0
     3039         01 0179F           SOE:MOVR EQU      %
     3040   01 0179F    35F0179E              STW,R15  %-1               SNAPSHOT OBS/EXP MOVER,
     3041   01 017A0    6AF017CB              BAL,R15  CLR:DCB           MOVES DATA FROM THE OBS
     3042   01 017A1    227FFFF9 A            LI,X7    -7                OR EXP BUFFER, CONVERTS
     3043   01 017A2    32941CAE              LW,R9    LINEADR,X2        IT AND STORES IT IN THE
     3044   01 017A3    B23E0009 A   DISP#1   LW,X3    *R9,X7            DATA CHAINING BUFFER
     3045   01 017A4    B2C6000A A            LW,R12   *R10,X3           USING THE 'ITEM'
     3046   01 017A5    6AF0181D              BAL,R15  DHEX:CON          DISPLACEMENTS IN DCB:LST.
     3047   01 017A6    326E1CAB              LW,X6    DCB:LST,X7        THERE ARE 7 ITEMS ON EACH
     3048   01 017A7    35DC0000 A            STW,R13  0,X6              ROW OF SNAP PRINTOUT.
     3049   01 017A8    35CC0001 A            STW,R12  1,X6              THE CURRENT SECTION OF
     3050   01 017A9    657017A3              BIR,X7   DISP#1            THE FOLDED SNAP OUTPUT
     3051   01 017AA    32C01C59              LW,R12   CK:CTR            IS A FUNCTION OF X2.
     3052                            *                                   CK:CTR HOLDS THE VALUE          *A03
     3053                            *                                   OF THE CURRENT CLOCK            *A03
     3054                            *                                   BEING PROCESSED BY              *A03
     3055                            *                                   SNAP OUTPUT ROUTINE             *A03
     3056   01 017AB    02000000 A            NOP
     3057   01 017AC    02000000 A            NOP
     3058   01 017AD    02000000 A            NOP
     3059   01 017AE    02000000 A            NOP
     3060   01 017AF    6AF0181D              BAL,R15  DHEX:CON
     3061   01 017B0    35C01C74              STW,R12  SN:COL0
     3062   01 017B1    E800179E              B        *SOE:MOVR-1
     3063                            *
     3064   01 017B2    227FFFFF A            LI,X7    -1
     3065   01 017B3    357017CA              STW,X7   SKP:NC
     3066         01 017B4           DIS:FLG  EQU      %                 DISREGARD FLAGS ARE
     3067   01 017B4    227FFFF9 A            LI,X7    -7                INSERTED INTO THE DC
     3068   01 017B5    32401C59              LW,X4    CK:CTR            BUFFER PRIOR TO OUTPUT
     3069   01 017B6    32C83BA4              LW,R12   BIT:MSK-1,X4      IF THE CORRESPONDING
     3070   01 017B7    32B01C5C     DISP#2   LW,R11   DISRGD            BIT:MSK BIT IS SET.
     3071   01 017B8    B23E0009 A            LW,X3    *R9,X7            DIS:FLG IS ENTERED FROM
     3072   01 017B9    31C61F45              CW,R12   MSK:LST,X3        OB:OUT.  EXP DATA OUT
     3073   01 017BA    684017C0              BCR,4    NC:FLG            FROM SO126 ENTERS THRU
     3074   01 017BB    326E1CAB              LW,X6    DCB:LST,X7        DIS:FLG-2 TO KEEP THE
     3075   01 017BC    35BDFFFF A            STW,R11  -1,X6             NC:FLG ROUTINE FROM
     3076   01 017BD    657017B7     DIS:X7   BIR,X7   DISP#2            PUTTING *'S ON THE
     3077   01 017BE    357017CA              STW,X7   SKP:NC            EXPECTED DATA.
     3078   01 017BF    E800000F A            B        *R15
     3079                            *
     3080         01 017C0           NC:FLG   EQU      %
     3081   01 017C0    32D017CA              LW,R13   SKP:NC            NC:FLG PUTS THE *'S ON
     3082   01 017C1    693017BD              BCS,3    DIS:X7            THE NON-COMPARING OBS
     3083   01 017C2    32D01C62              LW,R13   SO                DATA.
     3084   01 017C3    21D00007 A            CI,R13   7
     3085   01 017C4    683017BD              BCR,3    DIS:X7
     3086   01 017C5    B2D61C5A              LW,R13   *SN:OBPTR,X3
     3087   01 017C6    B1D61C5B              CW,R13   *SN:EXPTR,X3
     3088   01 017C7    683017BD              BCR,3    DIS:X7
     3089   01 017C8    32B01C5D              LW,R11   ASTRSK
     3090   01 017C9    680017BB              B        DIS:X7-2
     3091                            *
     3092   01 017CA    00000000 A   SKP:NC   DATA     0
     3093                            *
     3094         01 017CB           CLR:DCB  EQU      %
     3095   01 017CB    226FFFE7 A            LI,X6    -25               CLEAR DATA CHAINING BUFF.
     3096   01 017CC    32801C63              LW,R8    SPACES
     3097   01 017CD    358C1C8D              STW,R8   SN:COL0+25,X6
     3098   01 017CE    656017CD              BIR,X6   %-1
     3099   01 017CF    E800000F A            B        *R15
     3100                            *
     3101                            *        LI,R10   +1   OR (-1)     CALLING SEQUENCE FOR CK:ADV
     3102                            *        LI,R11   +23  OR (-23)
     3103                            *        BAL,R15  CK:ADV
     3104                            *
     3105         01 017D0           CK:ADV   EQU      %                 THE CK:PTR AND THE EXP
     3106   01 017D0    32C01C59              LW,R12   CK:CTR            AND OBS POINTERS ARE
     3107   01 017D1    30C0000A A            AW,R12   R10               MOVED UP OR DOWN THE
     3108   01 017D2    35C01C59              STW,R12  CK:CTR            SNAP BUFFERS BY THIS
     3109   01 017D3    32C01C5B     OE:ADV   LW,R12   SN:EXPTR          ROUTINE.  ENTERING AT
     3110   01 017D4    30C0000B A            AW,R12   R11               CK:ADV MOVES THEM DOWN
     3111   01 017D5    35C01C5B              STW,R12  SN:EXPTR          IF R10/R11 ARE POSITIVE
     3112   01 017D6    32C01C5A              LW,R12   SN:OBPTR          OR BACK UP IF NEGATIVE.
     3113   01 017D7    30C0000B A            AW,R12   R11               ENTERING AT OE:ADV ONLY
     3114   01 017D8    35C01C5A              STW,R12  SN:OBPTR          MOVES THE BUFFER PTRS.
     3115   01 017D9    E800000F A            B        *R15
     3116                            *
     3117   01 017DA    22C00001 A            LI,R12   1                                                 *A03
     3118   01 017DB    35C01C59              STW,R12  CK:CTR                                            *A03
     3119         01 017DC           CMP:OE   EQU      %                 SNAP OF A MODULE DURING
     3120   01 017DC    35F01800              STW,R15  CMPOE:EX
     3121   01 017DD    22C00000 A            LI,R12   0
     3122   01 017DE    35C01C5E              STW,R12  CMP:ERR
     3123   01 017DF    02000000 A            NOP                        THE GENERATE PASS, THE
     3124   01 017E0    02000000 A            NOP                        FIRST WORD OF THE MODULE
     3125   01 017E1    32C03AA7              LW,R12   SN:OBS-1          IS FETCHED AND THE
     3126   01 017E2    4BC01801              AND,R12  CLK:MSK
     3127   01 017E3    32D03CA4              LW,R13   SN:EXP-1
     3128   01 017E4    4BD01801              AND,R13  CLK:MSK
     3129   01 017E5    31C0000D A            CW,R12   R13               FINAL CLOCK COUNT OF THE
     3130   01 017E6    683017EA             BCR,3     %+4               MODULE IS STORED IN THE         *A04
     3131   01 017E7    EA6003CC              #TYPE    ERMSG5            FIRST BYTE.  THIS WORD
            01 017E8    000063CC A
     3132   01 017E9    8F9003CA              XPSD,9   *#RUNADDR%        IS THEN STORED IN SN:EXP-1
     3133   01 017EA    22B00017 A            LI,R11   23                *
     3134   01 017EB    6AF017D3              BAL,R15  OE:ADV            AT CMP:OE THIS SAME WORD
     3135   01 017EC    226FFFE9 A   NXT:CLK  LI,X6    -23               IS RECREATED AND VERIFIED
     3136   01 017ED    B2CC1C5A              LW,R12   *SN:OBPTR,X6      AGAINST THE ONE THAT HAS
     3137   01 017EE    B1CC1C5B              CW,R12   *SN:EXPTR,X6      BEEN READ IN OFF TAPE.
     3138   01 017EF    69301802              BCS,3    MSK:TST           *
     3139   01 017F0    656017ED     MS:RTN   BIR,X6   %-3               COMPARE THE 23 ITEMS PER
     3140   01 017F1    32C01D0A              LW,R12   CK:PTR            CORRESPONDING BIT IS SET
     3141   01 017F2    31C01C59              CW,R12   CK:CTR            IN THE BIT:MSK.  IF NOT
     3142   01 017F3    683017F8              BCR,3    %+5               SET THEY EXIT THRU MSK:TST
     3143   01 017F4    22A00001 A            LI,R10   1                 CPU CLOCK AT NXT:CLK.
     3144   01 017F5    22B00017 A            LI,R11   23                NON-COMPARES ARE REFERED
     3145   01 017F6    6AF017D0              BAL,R15  CK:ADV            TO MSK:TST TO SEE IF THE
     3146   01 017F7    680017EC              B        NXT:CLK           AFTER THE EXP/OBS PTRS
     3147   01 017F8    02000000 A            NOP                        ARE ADJUSTED.
     3148   01 017F9    02000000 A            NOP
     3149   01 017FA    02000000 A            NOP
     3150   01 017FB    32C01C62              LW,R12   SO                EXCEPT 'DUMMIES' ARE PREFACED
     3151   01 017FC    21C00002 A            CI,R12   2                 BY A 256 WORD BIT MASK.
     3152   01 017FD    693017FF              BNE      %+2               THERE IS ONE WORD FOR
     3153   01 017FE    65201710              BIR,X2   NEW:HDR           EACH CPU CLOCK THAT CAN
     3154   01 017FF    E8001701              B        *SNAP:OUT-1       BE SNAPPED.  THE FIRST 23
     3155                            *                                   BITS(0-22) ARE USED TO
     3156   01 01800    00000000 A   CMPOE:EX DATA     0                 INDICATE WHETHER THE
     3157   01 01801    00FF0FFF A   CLK:MSK  DATA     X'FF0FFF'
     3158                            *                                   CORRESPONDING ENTRY IN
     3159         01 01802           MSK:TST  EQU      %                 THE 23 WORD BLOCK OF SNAP
     3160   01 01802    32401C59              LW,X4    CK:CTR            DATA IS SUFFICIENTLY
     3161   01 01803    32C83BA4              LW,R12   BIT:MSK-1,X4      STABLE FROM CPU CLOCK
     3162   01 01804    31CC1F5C              CW,R12   MSK:BTM,X6        TO CLOCK TO PERMIT
     3163   01 01805    694017F0              BCS,4    MS:RTN            COMPARISSION.
     3164   01 01806    22BFFFE9 A            LI,R11   -23               THE PRESENCE OF A BIT IN
     3165   01 01807    6AF017D3              BAL,R15  OE:ADV            THE MASK INDICATES THE
     3166   01 01808    22CFFFFF A            LI,R12   -1                WORD CANT BE COMPARED.
     3167   01 01809    35C01C5E              STW,R12  CMP:ERR           *
     3168   01 0180A    32C01C5F              LW,R12   FLG126
     3169   01 0180B    6830180F              BCR,3    BACK12
     3170   01 0180C    22C00000 A            LI,R12   0
     3171   01 0180D    35C01C5F              STW,R12  FLG126
     3172   01 0180E    E8001800              B        *CMPOE:EX
     3173                            *
     3174   01 0180F    32901C59     BACK12   LW,R9    CK:CTR            THIS ROUTINE MOVES THE
     3175   01 01810    02000000 A            NOP                        CLOCK AND OBS/EXP PTRS
     3176   01 01811    31941D0E              CW,R9    CK:SAV,X2         BACK ONE CLOCK FOR SO=1
     3177   01 01812    68301818              BE       %+6               OR 2 TO OBTAIN THE SEMI-
     3178   01 01813    22AFFFFF A            LI,R10   -1                INTERLACED FORMAT.  THE
     3179   01 01814    22BFFFE9 A            LI,R11   -23               3 CK:SAV WORDS ARE USED
     3180   01 01815    6AF017D0              BAL,R15  CK:ADV            HERE TO PREVENT BACKUP
     3181   01 01816    225FFFFE A            LI,X5    -2                ON THE FIRST CLOCK.  X5
     3182   01 01817    68001819              B        %+2               IS SET TO -2 TO BE USED
     3183   01 01818    225FFFFF A            LI,X5    -1                AS THE LOOP COUNT IN THE
     3184   01 01819    20900001 A            AI,R9    1                 EXP DATA OUTPUT RUOTINE.
     3185   01 0181A    35941D0E              STW,R9   CK:SAV,X2         *
     3186   01 0181B    68001722              B        SO126-2
     3187                            *
     3188   01 0181C    E8001701     SO:EXIT  B        *SNAP:OUT-1
     3189                            *
     3190         01 0181D           DHEX:CON EQU      %                 DHEX:CON CONVERTS A WORD
     3191   01 0181D    EA6003C3              #HTECON  R12               OF HEX IN TO 2 WORDS OF
            01 0181E    0000000C A
     3192   01 0181F    B2D00006 A            LW,R13   *X6               EBCDIC.  R13 HAS HIGH
     3193   01 01820    32CC0001 A            LW,R12   1,X6              SIDE, R12 HAS LOW SIDE.
     3194   01 01821    E800000F A            B        *R15
     3195                            *
     3196         01 01822           SET:MEM  EQU      %
     3197   01 01822    328003AA              LW,R8    #MAXMEM           SET:MEM IS BAL'D TO FROM
     3198   01 01823    21803FFF A            CI,R8    16383             THE INITIALIZER TO SETUP THE
     3199   01 01824    69201828              BG       %+4               SNAP BUFFER SIZES BASED UPON
     3200   01 01825    22803FFF A            LI,R8    16383             AVAILABLE MEMORY.  THE VALUE
     3201   01 01826    208FC35B N            AI,R8    -SN:EXP           IN CK:LIMIT IS THE MAXIMUM #
     3202   01 01827    68001830              B        SETSIZE           OF CLOCKS THE AVAILABLE CORE
     3203   01 01828    208FE100 A            AI,R8    -X'1F00'          SPACE WILL PERMIT.  THE HARE-
     3204   01 01829    208FC35B N            AI,R8    -SN:EXP           WARE LIMIT IS 256 CLOCKS.
     3205   01 0182A    21802E00 A            CI,R8    11776             *
     3206   01 0182B    6810182F              BGE      SETSIZE-1         AVAILABLE MEMORY, AVL:MEM IS
     3207   01 0182C    35801918              STW,R8   MAX:CLR           SET TO THE MAXIMUM USED BY
     3208   01 0182D    20800F00 A            AI,R8    X'F00'            THE SNAP IF THERE IS MORE
     3209   01 0182E    68001831              B        %+3               CORE THAN IS NEEDED TO SNAP.
     3210   01 0182F    22802E00 A            LI,R8    11776             *
     3211   01 01830    35801918     SETSIZE  STW,R8   MAX:CLR           MAX:CLR IS X'F00' LESS THAN
     3212   01 01831    35801919              STW,R8   AVL:MEM           AVL:MEM IF THE AVAILABLE
     3213                            *                                   CORE SPACE IS LESS THAN THAT
     3214   01 01832    226FFF00 A            LI,X6    -256              REQUIRED FOR A FULL SNAP.
     3215   01 01833    22100000 A            LI,X1    0                 THIS PERMITS THE PROGRAM TO
     3216   01 01834    20100001 A            AI,X1    1                 OVERLAY MTL BUFFERS PROVIDED
     3217   01 01835    208FFFD2 A            AI,R8    -46               THAT A GENERATION OF SNAP
     3218   01 01836    69101838              BCS,1    %+2               DATA IS NOT REQUESTED.
     3219   01 01837    65601834              BIR,X6   %-3               *(SEE UPDTA MEM TESTS)
     3220   01 01838    201FFFFF A            AI,X1    -1                R8 CONTAINS AVL:MEM VALUE.
     3221   01 01839    3510191A              STW,X1   CK:LIMIT          IT IS USED TO CALCULATE
     3222                            *                                   THE NUMBER IF 23 WORD
     3223   01 0183A    22800000 A            LI,R8    0                 EXP/OBS PAIRS IT CAN
     3224   01 0183B    20800017 A            AI,R8    23                SUPPORT.  ONCE THE
     3225   01 0183C    6410183B              BDR,X1   %-1               MAXIMUM SIZE IS CALCULATED
     3226   01 0183D    32900008 A            LW,R9    R8                A CORRESPONDING BYTE COUNT
     3227   01 0183E    30900009 A            AW,R9    R9                FOR THE SNAP IOCD'S IS
     3228   01 0183F    30900009 A            AW,R9    R9                CALCULATED AND STORED.
     3229   01 01840    20900404 A            AI,R9    1028
     3230   01 01841    35901921              STW,R9   TAPE+1            CORE IS CLEARED AND
     3231   01 01842    35901923              STW,R9   SNAP:WRT+1        THE BIT:MSK IS FILLED
     3232   01 01843    20803CA5              AI,R8    SN:EXP            WITH THE DEFAULT DATA
     3233   01 01844    35803AA8              STW,R8   SN:OBS
     3234                            *
     3235   01 01845    32101919     CLR:SNP  LW,X1    AVL:MEM
     3236   01 01846    02000000 A            NOP
     3237   01 01847    22900000 A            LI,R9    0
     3238   01 01848    35923CA5              STW,R9   SN:EXP,X1
     3239   01 01849    64101848              BDR,X1   %-1
     3240                            *
     3241   01 0184A    221FFF00 A            LI,X1    -256
     3242   01 0184B    3290184F              LW,R9    BM:FILL
     3243   01 0184C    35923CA4              STW,R9   BIT:MSK+255,X1
     3244   01 0184D    6510184C              BIR,X1   %-1
     3245                            *
     3246   01 0184E    E800000E A            B        *R14
     3247                            *
     3248   01 0184F    078F2000 A   BM:FILL  DATA     X'078F2000'
     3249                            *
     3250         01 01850           DUMMY    EQU      %
     3251   01 01850    4B8018A0              AND,R8   HFFFF
     3252   01 01851    35803BA0              STW,R8   SN:CHECK
     3253   01 01852    22000C8B              LI,R0    DA(ID:WRT)
     3254   01 01853    CC001D10              SIO,R0   *TAPE1ADR
     3255   01 01854    CD001D10              TIO,R0   *TAPE1ADR
     3256   01 01855    69C01854              BCS,12   %-1
     3257   01 01856    E800000E A            B        *R14
     3258                            *
     3259         01 01857           WRT:MTL  EQU      %
     3260   01 01857    32201D0A              LW,X2    CK:PTR
     3261   01 01858    B23003F3              LW,X3    *LISTPTR
     3262   01 01859    75200003 A            STB,X2   X3
     3263   01 0185A    35303CA4              STW,X3   SN:EXP-1
     3264   01 0185B    02000000 A            NOP
     3265   01 0185C    02000000 A            NOP
     3266   01 0185D    02000000 A            NOP
     3267   01 0185E    22800000 A            LI,R8    0
     3268   01 0185F    6A6018C8              BAL,X6    WRT:SNAP
     3269   01 01860    680010C8              B        PTR:ADV
     3270                            *
     3271         01 01861           IDX:TAPE EQU      %                 INDEX TAPE IS USED TO
     3272   01 01861    3290189F              LW,R9    TAPE:AT           LOCATE THE SNAP DATA ON THE     *A02
     3273   01 01862    68301867              BCR,3    LOOKFWD           MAGTAPE LIBRARY AFTER           *A02
     3274   01 01863    22000C86              LI,R0    DA(SPF:BAK)       LOADING IS COMPLETE.            *A02
     3275   01 01864    CC001D0F              SIO,R0   *TAPE0ADR                                         *A02
     3276   01 01865    CD001D0F              TIO,R0   *TAPE0ADR                                         *A02
     3277   01 01866    69C01865              BCS,12   %-1               IT IS ALSO USED BY THE          *A02
     3278   01 01867    22000C88     LOOKFWD  LI,R0    DA(SPF:FWD)       INITIALIZER ON 'YES'            *A02
     3279   01 01868    CC001D0F              SIO,R0   *TAPE0ADR         ABSOLUTE RECOVERIES TO
     3280   01 01869    CD001D0F              TIO,R0   *TAPE0ADR         REPOSITION THE TAPE TO
     3281   01 0186A    69C01869              BCS,12   %-1               THE FIRST MODULE'S
     3282   01 0186B    22000C87              LI,R0    DA(READ:SN)       SNAP DATA.  THE FIRST
     3283   01 0186C    CC001D0F              SIO,R0   *TAPE0ADR         RECORD ON TAPE IS A 4
     3284   01 0186D    CD001D0F              TIO,R0   *TAPE0ADR         WORD BLOCK THAT CONTAINS
     3285   01 0186E    69C0186D              BCS,12   %-1               A UNIQUE PROGRAM
     3286   01 0186F    CE901D0F              TDV,R9   *TAPE0ADR
     3287   01 01870    31901913              CW,R9    EOT               DESCRIPTOR WORD IN
     3288   01 01871    694018E9              BCS,4    ERMG4             EBCDIC.  SEE TAPE:ID.
     3289   01 01872    32803BA0              LW,R8    SN:CHECK
     3290   01 01873    31801914              CW,R8    TAPE:ID
     3291   01 01874    69301867              BCS,3    LOOKFWD                                           *A02
     3292   01 01875    228FFFFF A            LI,R8    -1
     3293   01 01876    3580189F              STW,R8   TAPE:AT
     3294   01 01877    E800000E A            B        *R14
     3295                            *
     3296         01 01878           MAR:TAPE EQU      %                 MOVE AND READ TAPE IS
     3297   01 01878    3280189F              LW,R8    TAPE:AT
     3298   01 01879    6930187C              BCS,3    %+3
     3299   01 0187A    6AE01861              BAL,R14  IDX:TAPE
     3300   01 0187B    6AE018B0              BAL,R14  READ              ENTERED WHENEVER THE
     3301   01 0187C    32803CA4              LW,R8    SN:EXP-1          SO OPTION REQUIRES EXP
     3302   01 0187D    6830187B              BCR,3    %-2               DATA FROM TAPE.
     3303   01 0187E    4B801D36              AND,R8   MOD:MSK
     3304   01 0187F    318003F2              CW,R8    MCR:NUM
     3305   01 01880    E830000F A            BCR,3    *R15
     3306   01 01881    48801D15              EOR,R8   ONES
     3307   01 01882    308003F2              AW,R8    MCR:NUM
     3308   01 01883    6830187B              BCR,3    MAR:TAPE+3
     3309   01 01884    69101887              BCS,1    BACKUP                                            *A02
     3310   01 01885    22000C8F              LI,R0    DA(MOVF)                                          *A02
     3311   01 01886    68001890              B        TAPEMOV                                           *A02
     3312   01 01887    48801D15     BACKUP   EOR,R8   ONES                                              *A02
     3313   01 01888    20800001 A            AI,R8    1
     3314   01 01889    22000C8E              LI,R0    DA(MOVB)
     3315   01 0188A    02000000 A            NOP
     3316   01 0188B    02000000 A            NOP
     3317   01 0188C    02000000 A            NOP
     3318   01 0188D    02000000 A            NOP
     3319   01 0188E    02000000 A            NOP
     3320   01 0188F    02000000 A            NOP
     3321   01 01890    6AD018A8     TAPEMOV  BAL,R13  MOV:TAPE                                          *A02
     3322   01 01891    648018A8              BDR,R8   MOV:TAPE                                          *A02
     3323   01 01892    6800187B              B        MAR:TAPE+3                                        *A02
     3324                            *
     3325   01 01893    326015D8     NO:SN    LW,X6    VER:END
     3326   01 01894    693010C8              BCS,3    PTR:ADV
     3327   01 01895    320003F2              LW,R0    MCR:NUM
     3328   01 01896    02000000 A            NOP
     3329   01 01897    EA6003C3              #HTECON  R0
            01 01898    00000000 A
     3330   01 01899    326C0001 A            LW,X6    1,X6
     3331   01 0189A    4B601D02              AND,X6    LS:MSK
     3332   01 0189B    356018A2              STW,X6    NS:MSG+1
     3333   01 0189C    EA6003CD              #PRINT   NS:MSG,C1                                         *A02
            01 0189D    C1006284 A
     3334   01 0189E    680010C8              B        PTR:ADV                                           *A02
     3335                            *
     3336   01 0189F    00000000 A   TAPE:AT  DATA     0
     3337   01 018A0    0000FFFF A   HFFFF    DATA     X'FFFF'
     3338                            *
     3339         01 018A1           NS:MSG   TEXTCS   'MOD     CANNOT BE SNAPPED!'
     3340                            *
     3341         01 018A8           MOV:TAPE EQU      %
     3342   01 018A8    CC201D0F              SIO,X2   *TAPE0ADR         USED TO MOVE TAPE
     3343   01 018A9    CD201D0F              TIO,X2   *TAPE0ADR         FORWARD OR BACK.
     3344   01 018AA    69C018A9              BCS,12   %-1
     3345   01 018AB    4B301912              AND,X3   LOADPNT                                           *A02
     3346   01 018AC    E820000D A            BCR,2    *R13                                              *A02
     3347   01 018AD    22200000 A            LI,X2    0                                                 *A02
     3348   01 018AE    3520189F              STW,X2   TAPE:AT                                           *A02
     3349   01 018AF    68001878              B        MAR:TAPE                                          *A02
     3350                            *
     3351         01 018B0           READ     EQU      %
     3352   01 018B0    22400000 A            LI,X4    0                                                 *A02
     3353   01 018B1    35403CA4              STW,X4   SN:EXP-1                                          *A02
     3354   01 018B2    224FFFFC A            LI,X4    -4                THE SNAP DATA READ
     3355   01 018B3    22000C90              LI,R0    DA(TAPE)          ROUTINE.  X4 IS THE
     3356   01 018B4    CC201D0F              SIO,X2   *TAPE0ADR         RETRY COUNT IN THE
     3357   01 018B5    CD201D0F              TIO,X2   *TAPE0ADR         EVENT OF A READ ERROR.
     3358   01 018B6    69C018B5              BCS,12   %-1               ERR:MSKT CONTAINS THE
     3359   01 018B7    02000000 A            NOP                        ERROR BITS CHECKED.
     3360   01 018B8    02000000 A            NOP
     3361   01 018B9    32803CA4              LW,R8    SN:EXP-1
     3362   01 018BA    68301893              BCR,3    NO:SN
     3363   01 018BB    02000000 A            NOP
     3364   01 018BC    02000000 A            NOP
     3365   01 018BD    02000000 A            NOP
     3366   01 018BE    313018E5              CW,X3    ERR:MSKT
     3367   01 018BF    694018C1              BCS,4    %+2
     3368   01 018C0    E800000E A            B        *R14
     3369   01 018C1    22000C8E              LI,R0    DA(MOVB)
     3370   01 018C2    6AD018A8              BAL,R13  MOV:TAPE
     3371   01 018C3    654018B1              BIR,X4   READ+1
     3372   01 018C4    EA6003CC              #TYPE    ERR:TAPE
            01 018C5    00006398 A
     3373   01 018C6    8F9003CA              XPSD,9   *#RUNADDR%
     3374   01 018C7    680018B0              B        READ
     3375                            *
     3376         01 018C8           WRT:SNAP EQU      %
     3377   01 018C8    22400003 A            LI,X4    3
     3378   01 018C9    223FFFA4 A            LI,X3    -92
     3379   01 018CA    30800002 A            AW,R8    X2
     3380   01 018CB    653018CA              BIR,X3   %-1
     3381   01 018CC    20800404 A            AI,R8    1028
     3382   01 018CD    35801923              STW,R8   SNAP:WRT+1
     3383   01 018CE    CD001D10              TIO,R0   *TAPE1ADR
     3384   01 018CF    69C018CE              BCS,12   %-1
     3385   01 018D0    02000000 A            NOP
     3386   01 018D1    02000000 A            NOP
     3387   01 018D2    02000000 A            NOP
     3388   01 018D3    22000C91     TRY:WRT  LI,R0    DA(SNAP:WRT)
     3389   01 018D4    CC201D10              SIO,X2   *TAPE1ADR
     3390   01 018D5    CD201D10              TIO,X2   *TAPE1ADR
     3391   01 018D6    69C018D5              BCS,12   %-1
     3392   01 018D7    02000000 A            NOP
     3393   01 018D8    02000000 A            NOP
     3394   01 018D9    02000000 A            NOP
     3395   01 018DA    02000000 A            NOP
     3396   01 018DB    313018E5              CW,X3    ERR:MSKT
     3397   01 018DC    694018DE              BCS,4    %+2
     3398   01 018DD    E8000006 A            B        *X6
     3399   01 018DE    22000C8E              LI,R0    DA(MOVB)
     3400   01 018DF    6AD018A8              BAL,R13  MOV:TAPE
     3401   01 018E0    644018D3              BDR,X4   TRY:WRT
     3402   01 018E1    EA6003CC              #TYPE    ERR:TAPE
            01 018E2    00006398 A
     3403   01 018E3    8F9003CA              XPSD,9   *#RUNADDR%
     3404   01 018E4    680010C8              B        PTR:ADV
     3405                            *
     3406   01 018E5    007C0000 A   ERR:MSKT DATA     X'7C0000'
     3407   01 018E6    0AE3C1D7 A   ERR:TAPE TEXTC    'TAPE ERROR'
            01 018E7    C540C5D9 A
            01 018E8    D9D6D940 A
     3408                            *
     3409   01 018E9    EA6003CC     ERMG4    #TYPE    ERMSG4
            01 018EA    000063B4 A
     3410   01 018EB    8F9003CA              XPSD,9   *#RUNADDR%
     3411   01 018EC    E800000E A            B        *R14
     3412                            *
     3413         01 018ED           ERMSG4   TEXTCS   'CANT LOCATE SNAP DATA'
     3414                            *
     3415                            ERMSG5   TEXTCS   ;
     3416         01 018F3             'CONTROL WORD FROM TAPE DOESNT MATCH CURRENT MODULE'
     3417                            *
     3418         01 01900           ERMSG6   TEXTCS   'SNAP UPDATE CARD KEYPUNCH ERROR'
     3419                                     BOUND    8
     3420   01 01908    73000000 A   EOF      D        X'73',0
     3421   01 01909    00000000 A            DATA     0
     3422   01 0190A    33000000 A   REWT     D        X'33',0
     3423   01 0190B    00000000 A            DATA     0
     3424   01 0190C    5B000000 A   SPF:BAK  D        X'5B',0                                           *A02
     3425   01 0190D    00000000 A            D        0                                                 *A02
     3426   01 0190E    0200EE80     READ:SN  D        2,BA(SN:CHECK)
     3427   01 0190F    00000010 A            DATA     16
     3428   01 01910    53000000 A   SPF:FWD  D        X'53',0
     3429   01 01911    00000000 A            D        0
     3430                            *
     3431   01 01912    04000000 A   LOADPNT  DATA     X'4000000'
     3432   01 01913    10000000 A   EOT      DATA     X'10000000'
     3433   01 01914    E2E4C6C6 A   TAPE:ID  TEXT     'SUFF'
     3434                            *
     3435                                     BOUND    8
     3436   01 01916    0100EE80     ID:WRT   D        1,BA(SN:CHECK)
     3437   01 01917    00000010 A            DATA     16
     3438                            *
     3439   01 01918    00000000 A   MAX:CLR  DATA     0
     3440   01 01919    00000000 A   AVL:MEM  DATA     0
     3441   01 0191A    00000000 A   CK:LIMIT DATA     0
     3442                            *
     3443                                     BOUND    8
     3444   01 0191C    4B000000 A   MOVB     D        X'4B',0
     3445   01 0191D    00000000 A            D        0,0
     3446                            *
     3447   01 0191E    43000000 A   MOVF     D        X'43',0
     3448   01 0191F    00000000 A            D        0,0
     3449                            *
     3450   01 01920    0200EE90     TAPE     J        2,BIT:MSK-1
     3451   01 01921    00001804 A            D        0,6148
     3452                            *
     3453   01 01922    0100EE90     SNAP:WRT J        1,BIT:MSK-1
     3454   01 01923    00001804 A            D        0,6148
     3455                            *
     3456         01 01924           CARD:CON EQU      %
     3457   01 01924    02000000 A            NOP
     3458   01 01925    02000000 A            NOP                        CARD CONTROL IS ENTERED
     3459   01 01926    32201D05              LW,X2    ERR:FLG           FROM EXT:ERR, THE FT:ERR
     3460   01 01927    69301321              BCS,3    CONT:FTE          EXIT IF THE GENERATE
     3461   01 01928    02000000 A            NOP                        FLAG IS SET.  THIS ROUTINE
     3462   01 01929    02000000 A            NOP                        IS DESIGNED TO INTERPRET
     3463   01 0192A    02000000 A            NOP                        BIT:MSK CARDS AND PLACE
     3464   01 0192B    02000000 A            NOP                        THE DATA IN THE BUFFER
     3465   01 0192C    32201D33              LW,X2    CARD:SW           OVERLAYING THE DEFAULT
     3466   01 0192D    69301977              BCS,3    GO:SNAP           DATA.  THE CARD FORMAT
     3467   01 0192E    222FFFFF A            LI,X2    -1                IS:
     3468   01 0192F    35201D33              STW,X2   CARD:SW             #302,06,XXXXXXXX,CF,YYY
     3469   01 01930    6AE01845              BAL,R14  CLR:SNP
     3470   01 01931    32201D34              LW,X2    END:FLG               ETC.
     3471   01 01932    69301977              BCS,3    GO:SNAP           WHERE 302 IS THE MODULE#
     3472   01 01933    32201D35              LW,X2    RD:SW             IN HEX, 06 AND CF ARE
     3473   01 01934    6930194B              BCS,3    MOD#CHK           THE CLOCKS WHOSE BIT MASK
     3474   01 01935    222FFFFF A            LI,X2    -1                DATA IS BEING ALTERED AND
     3475   01 01936    35201D35              STW,X2   RD:SW             XXXXXXXX IS THE NEW DATA
     3476   01 01937    22000E98              LI,R0    DA(CARDIOCD)      FOR CLOCK 06 AND YYYYYYYY
     3477   01 01938    CC001D12              SIO,0    *CARDADR          IS THE NEW DATA FOR CLOCK
     3478   01 01939    CD001D12              TIO,R0   *CARDADR          CF.  EACH CARD MUST START
     3479   01 0193A    69C01939              BCS,12   %-1               WITH #(MODULE#) IN HEX.
     3480   01 0193B    02000000 A            NOP
     3481   01 0193C    02000000 A            NOP
     3482   01 0193D    02000000 A            NOP
     3483   01 0193E    02000000 A            NOP
     3484   01 0193F    72801D1A              LB,R8    CARD:BUF
     3485   01 01940    2180007B A            CI,R8    X'7B'
     3486   01 01941    68301945             BCR,3     %+4                                               *A04
     3487   01 01942    EA6003CC              #TYPE    ERMSG6
            01 01943    00006400 A
     3488   01 01944    8F9003CA              XPSD,9   *#RUNADDR%
     3489   01 01945    32801D1A              LW,R8    CARD:BUF
     3490   01 01946    31801D32              CW,R8    ENDT               ENDT= TEXT '#END'
     3491   01 01947    6930194B              BCS,3    %+4               CARD:CON IS LOOKING FOR
     3492   01 01948    229FFFFF A            LI,R9    -1                A CARD WITH #END IN
     3493   01 01949    35901D34              STW,R9   END:FLG           COLUMNS 1-4 TO EXIT THIS
     3494   01 0194A    68001977              B        GO:SNAP           PHASE OF SNAP GENERATION.
     3495                            *
     3496   01 0194B    02000000 A   MOD#CHK  NOP                                                        *A03
     3497   01 0194C    EA6003C2              #ETHCON,3 CARD:BUF,1
            01 0194D    03007469
     3498   01 0194E    328003F2              LW,R8    MCR:NUM           MOD#CHK VALIDATES THE
     3499   01 0194F    31600008 A            CW,X6    R8                MODULE NUMBERS ON EACH
     3500   01 01950    68101954              BCR,1    %+4                                               *A04
     3501   01 01951    EA6003CC              #TYPE    MOD:MSG
            01 01952    000065F0 A
     3502   01 01953    E80003C9              B        *#FIDLE%
     3503   01 01954    02000000 A            NOP
     3504   01 01955    02000000 A            NOP
     3505   01 01956    02000000 A            NOP
     3506   01 01957    02000000 A            NOP
     3507   01 01958    6830195A              BCR,3    %+2
     3508   01 01959    68001977              B        GO:SNAP
     3509   01 0195A    22800000 A            LI,R8    0
     3510   01 0195B    35801D35              STW,R8   RD:SW
     3511         01 0195C           CONVERT  EQU      %
     3512   01 0195C    32801966              LW,R8    MSK:IDX+1         CONVERT, CONVERTS THE
     3513   01 0195D    35801D37              STW,R8   IDX:SAV           EBCDIC CARD DATA INTO
     3514   01 0195E    32801969              LW,R8    MSK:DATA+1        HEX AND
     3515   01 0195F    35801D38              STW,R8   DATA:SAV
     3516   01 01960    22300001 A            LI,X3    1                                                 *A02
     3517   01 01961    222FFFFA A            LI,X2    -6
     3518   01 01962    32861D1A              LW,R8    CARD:BUF,X3                                       *A02
     3519   01 01963    31801C63              CW,R8    SPACES                                            *A02
     3520   01 01964    68301973              BCR,3    RESTORE                                           *A02
     3521   01 01965    EA6003C2     MSK:IDX  #ETHCON,2 CARD:BUF+1,1
            01 01966    0200746D
     3522   01 01967    32700006 A            LW,X7    X6
     3523                            *
     3524   01 01968    EA6003C2     MSK:DATA #ETHCON  CARD:BUF+2
            01 01969    00007470
     3525   01 0196A    356E3BA4              STW,X6    BIT:MSK-1,X7     STORES IT IN THE PROPER
     3526   01 0196B    32801966              LW,R8    MSK:IDX+1         BIT MASK POSITION.
     3527   01 0196C    2080000C A            AI,R8    12
     3528   01 0196D    35801966              STW,R8   MSK:IDX+1
     3529   01 0196E    32801969              LW,R8    MSK:DATA+1
     3530   01 0196F    2080000C A            AI,R8    12
     3531   01 01970    35801969              STW,R8   MSK:DATA+1
     3532   01 01971    20300003 A            AI,X3    3
     3533   01 01972    65201962              BIR,X2   MSK:IDX-3
     3534   01 01973    32801D37     RESTORE  LW,R8    IDX:SAV
     3535   01 01974    35801966              STW,R8   MSK:IDX+1
     3536   01 01975    32801D38              LW,R8    DATA:SAV
     3537   01 01976    35801969              STW,R8   MSK:DATA+1
     3538                            *                                   THIS ROUTINE PERMITS THE
     3539         01 01977           GO:SNAP  EQU      %                 GENERATE ROUTINE TO SHARE
     3540   01 01977    02000000 A            NOP                                                        *A03
     3541   01 01978    32201D06              LW,X2    FTFL              THE SNAP INITIALIZER
     3542   01 01979    69301211              BCS,3    SNAP:RUN          ROUTINE, EXCEPT SN:OEPTR
     3543   01 0197A    22203CA5              LI,X2    SN:EXP            IS SET TO SN:EXP INSTEAD
     3544   01 0197B    680011EF              B        SNAP:CON+3        OF SN:OBS.
     3545                            *
     3546         01 0197C           MOD:MSG  TEXTCS   'MOD# SEQUENCE ERROR'
     3547                            *
     3548                               TITLE  'J PARAMETER LINE PROCESSING ROUTINE'
     3549         01 01981           JH       TEXTCS   ' MSGDEV  COMDEV  SI CM  EM  CI MTADR  MIDEV'
     3550         01 0198C           JOUT     TEXTCS   '   0002    0001 00A  0   0   1 0080    0000'
     3551         01 01997           JINIT    TEXTCS   '   0002    0001 00A  0   0   1 0080    0000'
     3552   01 019A2    00006630              DATA     BA(JOUT)
     3553   01 019A3    00006604              DATA     BA(JH)
     3554                            *
     3555         01 019A4           JRTA     EQU      %
     3556   01 019A4    356019B6              STW,X6    JL:EXIT
     3557   01 019A5    70200006 A            LC       X6
     3558   01 019A6    E83003C9              BCR,3    *#FIDLE%          EXIT THIS ROUTINE IF NO
     3559                            *                                   CHANGES WERE MADE.              *A04
     3560   01 019A7    223FFFF6 A            LI,X3    -10
     3561   01 019A8    32861997              LW,R8    JOUT+11,X3
     3562   01 019A9    31862B91              CW,R8    PLINEIN+11,X3     USE JP:LST TO ENTER ONLY
     3563   01 019AA    683019AE              BCR,3    %+4               THOSE SUBROUTINES IN
     3564   01 019AB    B2C619C1              LW,R12   *JP:LST,X3        WHICH PARAMETER CHANGES
     3565   01 019AC    691019AE              BCS,1    %+2               WERE MADE BY THE USER.
     3566   01 019AD    EAF0000C A            BAL,R15  *R12
     3567   01 019AE    653019A8              BIR,X3   %-6
     3568   01 019AF    02000000 A            NOP
     3569   01 019B0    02000000 A            NOP
     3570   01 019B1    02000000 A            NOP
     3571   01 019B2    02000000 A            NOP
     3572   01 019B3    02000000 A            NOP
     3573   01 019B4    02000000 A            NOP
     3574   01 019B5    E80003C9              B        *#FIDLE%
     3575                            *
     3576   01 019B6    00000000 A   JL:EXIT  DATA     0
     3577                            *
     3578   01 019B7    010019C2              D        1,MSG:C           ARRANGED IN A 1 TO 1
     3579   01 019B8    FF000000 A            D        -1,0              CORRESPONDENCE WITH THE
     3580   01 019B9    020019D3              D        2,COM:C           COMPUTER WORDS IN THE
     3581   01 019BA    030019DC              D        3,SI:C            J-PARAMETER LINE.  NEG.
     3582   01 019BB    040019E5              D        4,CM:C            ENTRIES ARE SPACE FIELDS
     3583   01 019BC    050019FB              D        5,EM:C            IN THE J-LINE.
     3584   01 019BD    06001A14              D        6,CI:C
     3585   01 019BE    07001A25              D        7,MT:C
     3586   01 019BF    FF000000 A            D        -1,0
     3587   01 019C0    08001A2F              D        8,MI:C
     3588   01 019C1    000019C1     JP:LST   DATA     %
     3589                            *
     3590         01 019C2           MSG:C    EQU      %
     3591   01 019C2    EA6003C2              #ETHCON,4 PLINEIN+1
            01 019C3    0400AE1C
     3592   01 019C4    CD000006 A            TIO,0    *X6
     3593   01 019C5    688019C9              BCR,8    MSG:OK                                            *A02
     3594   01 019C6    EA6003CC              #TYPE    NODEV                                             *A02
            01 019C7    00006734 A
     3595   01 019C8    68001A54              B        ERR:RETJ
     3596   01 019C9    35600397     MSG:OK   STW,X6    #PRTADDR
     3597   01 019CA    32602B87              LW,X6    PLINEIN+1
     3598   01 019CB    3560198D              STW,X6   JOUT+1
     3599   01 019CC    E800000F A            B        *R15
     3600                            *
     3601         01 019CD           NODEV    TEXTCS   'DEVICE NOT AVAILABLE'                            *A02
     3602                            *
     3603         01 019D3           COM:C    EQU      %
     3604   01 019D3    EA6003C2              #ETHCON,4 PLINEIN+3
            01 019D4    0400AE24
     3605   01 019D5    CD000006 A            TIO,0    *X6
     3606   01 019D6    688019D8              BCR,8    %+2
     3607   01 019D7    68001A54              B        ERR:RETJ
     3608   01 019D8    35600396              STW,X6    #TOADDR
     3609   01 019D9    32602B89              LW,X6    PLINEIN+3
     3610   01 019DA    3560198F              STW,X6    JOUT+3
     3611   01 019DB    E800000F A            B        *R15
     3612                            *
     3613         01 019DC           SI:C     EQU      %
     3614   01 019DC    EA6003C2              #ETHCON,3 PLINEIN+4,1
            01 019DD    0300AE29
     3615   01 019DE    48601D15              EOR,X6    ONES
     3616   01 019DF    20600001 A            AI,X6    1
     3617   01 019E0    356019E4              STW,X6    SI
     3618   01 019E1    32602B8A              LW,X6    PLINEIN+4
     3619   01 019E2    35601990              STW,X6    JOUT+4
     3620   01 019E3    E800000F A            B        *R15
     3621                            *
     3622   01 019E4    FFFFFFF6 A   SI       DATA     -10
     3623                            *
     3624         01 019E5           CM:C     EQU      %
     3625   01 019E5    EA6003C2              #ETHCON,1 PLINEIN+5,2
            01 019E6    0100AE2E
     3626   01 019E7    21600003 A            CI,X6    3
     3627   01 019E8    691019EF              BL       SEQ:MAR
     3628   01 019E9    21600009 A            CI,X6    9
     3629   01 019EA    692019EC              BG       %+2
     3630   01 019EB    68001A54              B        ERR:RETJ
     3631   01 019EC    2160000D A            CI,X6    13
     3632   01 019ED    691019EF              BL       %+2
     3633   01 019EE    68001A54              B        ERR:RETJ
     3634   01 019EF    6C800045 A   SEQ:MAR  RD,R8    X'45'
     3635   01 019F0    4B801429              AND,R8   NEW:CM
     3636   01 019F1    326C19EE              LW,X6    CM:VALU,X6
     3637   01 019F2    48800006 A            EOR,R8   X6
     3638   01 019F3    35801431              STW,R8   CM:SAV                                            *A01
     3639   01 019F4    3580142E              STW,R8   CM:ON                                             *A01
     3640   01 019F5    32602B8B              LW,X6    PLINEIN+5
     3641   01 019F6    35601991              STW,X6    JOUT+5
     3642   01 019F7    E800000F A            B        *R15
     3643                            *
     3644         01 019EE           CM:VALU  EQU      %-10
     3645   01 019F8    00000000 A            M        0,0,0,0,0,0,0
     3646   01 019F9    00400000 A            M        0,0,0,1,0,0,0
     3647   01 019FA    00800000 A            M        0,0,0,2,0,0,0
     3648                            *
     3649         01 019FB           EM:C     EQU      %
     3650   01 019FB    EA6003C2              #ETHCON,1 PLINEIN+6,2
            01 019FC    0100AE32
     3651   01 019FD    22800000 A            LI,R8    0
     3652   01 019FE    21600004 A            CI,X6    4
     3653   01 019FF    69101A08              BL       SEQ:EM
     3654   01 01A00    21600009 A            CI,X6    9
     3655   01 01A01    69201A03              BG       %+2
     3656   01 01A02    68001A54              B        ERR:RETJ
     3657   01 01A03    2160000E A            CI,X6    14
     3658   01 01A04    69101A06              BL       %+2
     3659   01 01A05    68001A54              B        ERR:RETJ
     3660   01 01A06    206FFFF6 A            AI,X6    -10
     3661   01 01A07    228FFFFF A            LI,R8    -1
     3662   01 01A08    358013E1     SEQ:EM   STW,R8   EM:FLG
     3663   01 01A09    48601D15              EOR,X6    ONES
     3664   01 01A0A    20600001 A            AI,X6    1
     3665   01 01A0B    326C1A13              LW,X6    EM:VALU,X6
     3666   01 01A0C    356013E2              STW,X6    EM
     3667   01 01A0D    32602B8C              LW,X6    PLINEIN+6
     3668   01 01A0E    35601992              STW,X6    JOUT+6
     3669   01 01A0F    E800000F A            B        *R15
     3670                            *
     3671   01 01A10    FFFFFFFC A            DATA     -4
     3672   01 01A11    FFFFFFFD A            DATA     -3
     3673   01 01A12    FFFFFFFF A            DATA     -1
     3674   01 01A13    00000000 A   EM:VALU  DATA     0
     3675                            *
     3676         01 01A14           CI:C     EQU      %
     3677   01 01A14    EA6003C2              #ETHCON,1 PLINEIN+7,2
            01 01A15    0100AE36
     3678   01 01A16    32600006 A            LW,X6    X6
     3679   01 01A17    68301A1B              BCR,3    %+4
     3680   01 01A18    21600001 A            CI,X6    1
     3681   01 01A19    68301A1F              BCR,3    %+6
     3682   01 01A1A    68001A54              B        ERR:RETJ
     3683   01 01A1B    22600000 A            LI,X6    0
     3684   01 01A1C    356011EB              STW,X6    CI:CNT
     3685   01 01A1D    35601193              STW,X6   SNAPINT
     3686   01 01A1E    68001A20              B        %+2
     3687   01 01A1F    2260E390 A            LI,X6    X'E390'
     3688   01 01A20    35601A24              STW,X6    CI:SAV
     3689   01 01A21    32602B8D              LW,X6    PLINEIN+7
     3690   01 01A22    35601993              STW,X6    JOUT+7
     3691   01 01A23    E800000F A            B        *R15
     3692                            *
     3693   01 01A24    0000E390 A   CI:SAV   DATA     X'E390'
     3694                            *
     3695         01 01A25           MT:C     EQU      %
     3696   01 01A25    EA6003C2              #ETHCON,4 PLINEIN+8
            01 01A26    0400AE38
     3697   01 01A27    CD000006 A            TIO,0    *X6
     3698   01 01A28    68801A2A              BCR,8    %+2
     3699   01 01A29    68001A54              B        ERR:RETJ
     3700   01 01A2A    35601D0F              STW,X6    TAPE0ADR
     3701   01 01A2B    32602B8E              LW,X6    PLINEIN+8
     3702   01 01A2C    35601994              STW,X6    JOUT+8
     3703   01 01A2D    3560199F              STW,X6   JINIT+8
     3704   01 01A2E    E800000F A            B        *R15
     3705                            *
     3706         01 01A2F           MI:C     EQU      %
     3707   01 01A2F    EA6003C2              #ETHCON,4 PLINEIN+10
            01 01A30    0400AE40
     3708   01 01A31    CF001A46              HIO,R0   *MI:ADR
     3709   01 01A32    CF000006 A            HIO,0    *X6
     3710   01 01A33    CD000006 A            TIO,0    *X6
     3711   01 01A34    68C01A38             BCR,12    %+4                                               *A04
     3712   01 01A35    EA6003CC              #TYPE    ERMSG8
            01 01A36    0000691C A
     3713   01 01A37    E800000F A            B        *R15
     3714   01 01A38    22000D21              LI,R0    DA(TIC)
     3715   01 01A39    CC000006 A            SIO,R0   *X6
     3716   01 01A3A    35601A46              STW,X6   MI:ADR
     3717   01 01A3B    02000000 A            NOP
     3718   01 01A3C    02000000 A            NOP
     3719   01 01A3D    02000000 A            NOP
     3720   01 01A3E    02000000 A            NOP
     3721   01 01A3F    32602B90              LW,X6    PLINEIN+10
     3722   01 01A40    35601996              STW,X6   JOUT+10
     3723   01 01A41    E800000F A            B        *R15
     3724                            *
     3725                                     BOUND    8
     3726   01 01A42    010042FC     TIC      J        1,SUFFTEST
     3727   01 01A43    200010E0 A            I        2,(ESM:NULL-SUFFTEST)**2
     3728   01 01A44    08000D21              D        8,DA(TIC)
     3729   01 01A45    00000000 A            I        0
     3730                            *
     3731   01 01A46    00000000 A   MI:ADR   DATA     X'0000'
     3732                            ERMSG8   TEXTCS   ;
     3733         01 01A47            'NO RECOGNITION FROM MEMORY INTERFERRENCE ADDRESS'
     3734                            *
     3735   01 01A54    B26619C1     ERR:RETJ LW,X6    *JP:LST,X3
     3736   01 01A55    72600006 A            LB,X6    X6
     3737   01 01A56    E80019B6              B        *JL:EXIT
     3738                            *
     3739                             TITLE  'K PARAMETER LINE PROCESSING ROUTINE'
     3740                            *
     3741         01 01A57           KH       TEXTCS   'MST MSP MCR  LC  SO  CB  CE  SNPADR'
     3742         01 01A60           KOUT     TEXTCS   '001 000 001  00  00  00  00    0000'
     3743         01 01A69           KINIT    TEXTCS   '001 000 001  00  00  00  00    0000'
     3744                            *
     3745   01 01A72    00006980              DATA     BA(KOUT)
     3746   01 01A73    0000695C              DATA     BA(KH)
     3747         01 01A74           KRTA     EQU      %
     3748   01 01A74    35601B4E              STW,X6     KL:EXIT
     3749   01 01A75    70200006 A            LC       X6
     3750   01 01A76    E83003C9              BCR,3    *#FIDLE%
     3751   01 01A77    223FFFF7 A            LI,X3    -9                  !EXIT!  IF NOT,COMPARE THE ELEMENT
     3752   01 01A78    22800010 A            LI,R8    X'10'             OF KOUT AND PLINEIN  TO PROCESS ALL
     3753   01 01A79    75801AB3              STB,R8   NEW:MST           THOSE NOT COMPARING.  RESET NEW:MST.
     3754   01 01A7A    32861A69              LW,R8    KOUT+9,X3          NEW:MST WILL BE SET IN MST:C IF A
     3755   01 01A7B    31862B8F              CW,R8    PLINEIN+9,X3       NEW STARTING ADDRESS HAS BEEN
     3756   01 01A7C    68301A7F              BCR,3    %+3                REQUESTED.
     3757   01 01A7D    32C61A9F              LW,R12   KP:LST,X3            MOVE PLINEIN  INTO KOUT
     3758   01 01A7E    EAF0000C A            BAL,R15  *R12
     3759   01 01A7F    65301A7A              BIR,X3   %-5
     3760   01 01A80    02000000 A            NOP
     3761   01 01A81    02000000 A            NOP
     3762   01 01A82    02000000 A            NOP
     3763   01 01A83    328003F1              LW,R8    MSP:NUM
     3764   01 01A84    318003F0              CW,R8    MST:NUM
     3765   01 01A85    68101A88              BGE      %+3
     3766   01 01A86    223FFFF8 A            LI,X3    -8
     3767   01 01A87    68001ADF              B        ERR:RET
     3768   01 01A88    22FFFFFF A            LI,R15   -1
     3769   01 01A89    35F01405              STW,R15  KL:FLG
     3770   01 01A8A    6AF013E6              BAL,R15  LSTSERVO          SERVO LIST POINTER TO
     3771   01 01A8B    22F00000 A            LI,R15   0                 THE SELECTED MODULE(MCR)
     3772   01 01A8C    35F01405              STW,R15  KL:FLG
     3773   01 01A8D    35F01D06              STW,R15  FTFL
     3774   01 01A8E    02000000 A            NOP
     3775   01 01A8F    02000000 A            NOP
     3776   01 01A90    02000000 A            NOP
     3777   01 01A91    70301AB3     GIDLE    LCF      NEW:MST
     3778   01 01A92    EA6003C9              BAL,X6    *#FIDLE%          ADDRESS AT RESTART IF REQUESTED.
     3779   01 01A93    00001A94              DATA     RESTART
     3780                            *
     3781                                     BOUND    8
     3782   01 01A94    000010BD     RESTART  DATA     START+2
     3783   01 01A95    00000000 A            DATA     0
     3784                            *
     3785   01 01A96    01001AA1              D        1,MST:C
     3786   01 01A97    02001AB5              D        2,MSP:C
     3787   01 01A98    03001ACA              D        3,MCR:C
     3788   01 01A99    04001AE2              D        4,LC:C
     3789   01 01A9A    05001AF1              D        5,SO:C
     3790   01 01A9B    06001B1C              D        6,CB:C
     3791   01 01A9C    07001B36              D        7,CE:C
     3792   01 01A9D    00001A9D              DATA     %
     3793   01 01A9E    08001B43              D        8,SNPADR:C
     3794   01 01A9F    00001A9F     KP:LST   DATA     %
     3795                            *
     3796   01 01AA0    00000000 A            DATA     0
     3797         01 01AA1           MST:C    EQU      %
     3798   01 01AA1    35F01AA0              STW,R15  %-1
     3799   01 01AA2    22600000 A            LI,X6    0
     3800   01 01AA3    35601AB3              STW,X6   NEW:MST
     3801   01 01AA4    EA6003C2              #ETHCON,3 PLINEIN,1
            01 01AA5    0300AE19
     3802   01 01AA6    4B601D36              AND,X6    MOD:MSK          VERIFY THAT THE NEW MST IS SMALLER
     3803   01 01AA7    68301ADF              BCR,3    ERR:RET
     3804   01 01AA8    31601AB2              CW,X6    LST:NUM           THAN THE LAST MODULE NUMBER (+1).
     3805   01 01AA9    69201ADF              BG       ERR:RET
     3806   01 01AAA    02000000 A            NOP
     3807   01 01AAB    356003F2              STW,X6   MCR:NUM
     3808   01 01AAC    356003F0              STW,X6    MST:NUM           SAVE VALID MST AT MST:NUM.
     3809   01 01AAD    32902B86              LW,R9    PLINEIN
     3810   01 01AAE    35901A60              STW,R9   KOUT
     3811   01 01AAF    30901ADE              AW,R9    MSB21
     3812   01 01AB0    35901A62              STW,R9   KOUT+2
     3813   01 01AB1    E8001AA0              B        *MST:C-1
     3814                            *
     3815   01 01AB2    00000000 A   LST:NUM  DATA     0
     3816   01 01AB3    FFFFFFFF A   NEW:MST  DATA     -1
     3817                            *
     3818   01 01AB4    00000000 A            DATA     0
     3819         01 01AB5           MSP:C    EQU      %
     3820   01 01AB5    35F01AB4              STW,R15  %-1
     3821   01 01AB6    22600000 A            LI,X6    0
     3822   01 01AB7    35601AB3              STW,X6   NEW:MST
     3823   01 01AB8    EA6003C2              #ETHCON,3 PLINEIN+1,1      VERIFY THAT MSP IS SMALLER THAN THE
            01 01AB9    0300AE1D
     3824   01 01ABA    4B601D36              AND,X6    MOD:MSK          LAST MODULE NUMBER (+1). AND GREATER
     3825   01 01ABB    68301ABE              BCR,3    %+3
     3826   01 01ABC    21600204 A            CI,X6    LAST:MOD
     3827   01 01ABD    69201ADF              BG       ERR:RET
     3828   01 01ABE    316003F0              CW,X6    MST:NUM
     3829   01 01ABF    69101ADF              BL       ERR:RET
     3830   01 01AC0    356003F1              STW,X6    MSP:NUM          SAVE VOLID MSP AT MSP:NUM.
     3831   01 01AC1    32902B87              LW,R9    PLINEIN+1
     3832   01 01AC2    35901A61              STW,R9   KOUT+1
     3833   01 01AC3    32901A60              LW,R9    KOUT
     3834   01 01AC4    30901ADE              AW,R9    MSB21
     3835   01 01AC5    35901A62              STW,R9   KOUT+2
     3836   01 01AC6    329003F0              LW,R9    MST:NUM
     3837   01 01AC7    359003F2              STW,R9   MCR:NUM
     3838   01 01AC8    E8001AB4              B        *MSP:C-1
     3839                            *
     3840   01 01AC9    00000000 A            DATA     0
     3841         01 01ACA           MCR:C    EQU      %
     3842   01 01ACA    35F01AC9              STW,R15  %-1
     3843   01 01ACB    22600000 A            LI,X6    0
     3844   01 01ACC    35601AB3              STW,X6   NEW:MST
     3845   01 01ACD    EA6003C2              #ETHCON,3 PLINEIN+2,1      IF MCR IS BEYOND THE RANGE OF
            01 01ACE    0300AE21
     3846   01 01ACF    4B601D36              AND,X6    MOD:MSK          MST TO MSP SET IT EQUAL TO MST
     3847   01 01AD0    316003F0              CW,X6    MST:NUM           AT SET:MCR.
     3848   01 01AD1    69101AD8              BCS,1    SET:MCR
     3849   01 01AD2    316003F1              CW,X6    MSP:NUM
     3850   01 01AD3    69201AD8              BCS,2    SET:MCR
     3851   01 01AD4    356003F2              STW,X6    MCR:NUM
     3852   01 01AD5    32902B88              LW,R9    PLINEIN+2
     3853   01 01AD6    35901A62              STW,R9   KOUT+2
     3854   01 01AD7    E8001AC9              B        *MCR:C-1
     3855   01 01AD8    32901A60     SET:MCR  LW,R9    KOUT              STARTING POINT.
     3856   01 01AD9    30901ADE              AW,R9    MSB21             MSB21 IS A CONSTANT THAT ADJUSTS THE
     3857   01 01ADA    35901A62              STW,R9   KOUT+2            KOUT BYTE COUNT TO A SPACE CODE X'40
     3858   01 01ADB    329003F0              LW,R9    MST:NUM
     3859   01 01ADC    359003F2              STW,R9   MCR:NUM
     3860   01 01ADD    E8001AC9              B        *MCR:C-1
     3861                            *
     3862   01 01ADE    1D000000 A   MSB21    DATA     X'1D000000'
     3863                            *
     3864   01 01ADF    B2661A9F     ERR:RET  LW,X6    *KP:LST,X3
     3865   01 01AE0    72600006 A            LB,X6    X6
     3866   01 01AE1    E8001B4E              B        *KL:EXIT
     3867                            *
     3868         01 01AE2           LC:C     EQU      %
     3869   01 01AE2    EA6003C2              #ETHCON,2  PLINEIN+3,2
            01 01AE3    0200AE26
     3870   01 01AE4    4B601AEF              AND,X6     HFF             LOOP COUNT.  THE NUMBER
     3871   01 01AE5    48601D15              EOR,X6    ONES             OF TIMES THRU THE MODULE
     3872   01 01AE6    20600001 A            AI,X6    1                 RANGE SPECIFIED BY
     3873   01 01AE7    35601AF0              STW,X6     LCNT            MST/MSP.
     3874   01 01AE8    22600001 A            LI,X6    1
     3875   01 01AE9    35601403              STW,X6   PASS:CNT
     3876   01 01AEA    22600000 A            LI,X6    0
     3877   01 01AEB    35601D04              STW,X6   ERR:CNT
     3878   01 01AEC    32602B89              LW,X6    PLINEIN+3
     3879   01 01AED    35601A63              STW,X6    KOUT+3
     3880   01 01AEE    E800000F A            B        *R15
     3881                            *
     3882   01 01AEF    000000FF A   HFF      DATA     X'FF'
     3883   01 01AF0    00000000 A   LCNT     DATA     0
     3884                            *
     3885         01 01AF1           SO:C     EQU      %                 SNAP OPTION PARAMETER VALIDATION.
     3886   01 01AF1    22900000 A            LI,R9    0
     3887   01 01AF2    359015D2              STW,R9   SNAP:FLG
     3888   01 01AF3    359015D3              STW,R9   SNAP:UNC
     3889   01 01AF4    35901D06              STW,R9   FTFL
     3890   01 01AF5    359015D7              STW,R9   VER:FLG
     3891   01 01AF6    35901AB3              STW,R9   NEW:MST
     3892   01 01AF7    2290E390 A            LI,R9    X'E390'
     3893   01 01AF8    35901A24              STW,R9   CI:SAV
     3894   01 01AF9    EA6003C2              #ETHCON,2 PLINEIN+4,2
            01 01AFA    0200AE2A
     3895   01 01AFB    4B601AEF              AND,X6    HFF
     3896   01 01AFC    68301B11              BCR,3    SO:CEX
     3897   01 01AFD    21600003 A            CI,X6    3                 IF LESS THAN 3 SET SO AND EXIT.
     3898   01 01AFE    69101B11              BCS,1    SO:CEX
     3899   01 01AFF    68301B09              BCR,3    DO:SN
     3900   01 01B00    21600006 A            CI,X6    6
     3901   01 01B01    69101ADF              BCS,1    ERR:RET
     3902   01 01B02    21600008 A            CI,X6    8
     3903   01 01B03    69101B11              BCS,1    SO:CEX
     3904   01 01B04    68301ADF              BCR,3    ERR:RET
     3905   01 01B05    2160000C A            CI,X6    12
     3906   01 01B06    68301ADF              BCR,3    ERR:RET
     3907   01 01B07    2160000D A            CI,X6    13
     3908   01 01B08    68301ADF              BCR,3    ERR:RET
     3909   01 01B09    229FFFFF A   DO:SN    LI,R9    -1                IF GREATER THAN 8 SET SNAP:FLG
     3910   01 01B0A    359015D2              STW,R9   SNAP:FLG          IF SO=15 RESET SNAP;FLG AND SAME AS5
     3911   01 01B0B    359015D3              STW,R9   SNAP:UNC
     3912   01 01B0C    22900000 A            LI,R9    0
     3913   01 01B0D    35901A24              STW,R9   CI:SAV
     3914   01 01B0E    2290E390 A            LI,R9    X'E390'
     3915   01 01B0F    6D901100 A            WD,R9    X'1100'
     3916   01 01B10    4B601D00              AND,X6     CON7
     3917   01 01B11    35601C62     SO:CEX   STW,X6    SO
     3918   01 01B12    68301B19              BCR,3    %+7
     3919   01 01B13    21600007 A            CI,X6    7
     3920   01 01B14    68301B19              BCR,3    %+5
     3921   01 01B15    21600003 A            CI,X6    3
     3922   01 01B16    68301B18              BCR,3    %+2
     3923   01 01B17    356015D7              STW,X6   VER:FLG
     3924   01 01B18    02000000 A            NOP
     3925   01 01B19    32902B8A              LW,R9    PLINEIN+4
     3926   01 01B1A    35901A64              STW,R9   KOUT+4
     3927   01 01B1B    E800000F A            B        *R15
     3928                            *
     3929         01 01B1C           CB:C     EQU      %
     3930   01 01B1C    22900000 A            LI,R9    0
     3931   01 01B1D    35901D06              STW,R9   FTFL
     3932   01 01B1E    35901B35              STW,R9   WDT:SNAP
     3933   01 01B1F    35901D09              STW,R9   CK:BIAS
     3934   01 01B20    EA6003C2              #ETHCON,2 PLINEIN+5,2
            01 01B21    0200AE2E
     3935   01 01B22    32801B33              LW,R8    NORM:SNP          CLOCK BIAS SETS THE CLOCK
     3936   01 01B23    216000FF A            CI,X6    X'FF'             ON WHICH SNAPPING WILL
     3937   01 01B24    69301B27              BCS,3    %+3               BEGIN.
     3938   01 01B25    226FFFFF A            LI,X6    -1
     3939   01 01B26    32801B34              LW,R8    LONG:SNP
     3940   01 01B27    35801215              STW,R8   SNAP:SW           IF CB IS SET TO X'FF'
     3941   01 01B28    216000FE A            CI,X6    X'FE'
     3942   01 01B29    68301B2F              BCR,3    %+6
     3943   01 01B2A    21600000 A            CI,X6    0
     3944   01 01B2B    68301B2D              BCR,3    %+2
     3945   01 01B2C    206FFFFF A            AI,X6    -1
     3946   01 01B2D    35601D09              STW,X6    CK:BIAS          SNAPPING WILL CONTINUE
     3947   01 01B2E    68001B30              B        %+2
     3948   01 01B2F    35601B35              STW,X6   WDT:SNAP
     3949   01 01B30    32902B8B              LW,R9    PLINEIN+5         UNTIL THE BUFFER IS FULL.
     3950   01 01B31    35901A65              STW,R9   KOUT+5
     3951   01 01B32    E800000F A            B        *R15
     3952                            *
     3953   01 01B33    68101218     NORM:SNP BCR,1    SNAP:SW+3
     3954   01 01B34    68001218     LONG:SNP B        SNAP:SW+3
     3955   01 01B35    00000000 A   WDT:SNAP DATA     0
     3956                            *
     3957         01 01B36           CE:C     EQU      %                 CLOCK END SETS THE CLOCK
     3958   01 01B36    3290191A              LW,R9    CK:LIMIT          ON WHICH SNAPPING WILL
     3959   01 01B37    35901D17              STW,R9   CE:PTR            STOP.
     3960   01 01B38    EA6003C2              #ETHCON,2 PLINEIN+6,2
            01 01B39    0200AE32
     3961   01 01B3A    21600000 A            CI,X6    0                                                 *A02
     3962   01 01B3B    68301B3E              BCR,3    %+3                                               *A02
     3963   01 01B3C    02000000 A            NOP
     3964   01 01B3D    35601D17              STW,X6   CE:PTR
     3965   01 01B3E    02000000 A            NOP
     3966   01 01B3F    02000000 A            NOP
     3967   01 01B40    32902B8C              LW,R9    PLINEIN+6
     3968   01 01B41    35901A66              STW,R9   KOUT+6
     3969   01 01B42    E800000F A            B        *R15
     3970                            *
     3971         01 01B43           SNPADR:C EQU      %                 SNAP ADDRESS.  SET TO LOC
     3972   01 01B43    EA6003C2              #ETHCON,4 PLINEIN+8        IN THE INITIALIZER.
            01 01B44    0400AE38
     3973   01 01B45    316003AA              CW,X6    #MAXMEM           THE RANGE OF SNAPPABLE
     3974   01 01B46    69201ADF              BG       ERR:RET           ADDRESSES IS LIMITED TO
     3975   01 01B47    02000000 A            NOP                        THE CODE PASSED THRU
     3976   01 01B48    02000000 A            NOP                        AFTER SNAP IS ARMED AT
     3977   01 01B49    02000000 A            NOP                        SET:SNAP AND TURNED OFF
     3978   01 01B4A    35601D18              STW,X6    SNAP:SET         AT SNAP:RUN.  THIS IS
     3979   01 01B4B    32902B8E              LW,R9    PLINEIN+8         ESSENTIALLY THE AREA OF
     3980   01 01B4C    35901A68              STW,R9   KOUT+8            LOC DURING SHORT LOOP.
     3981   01 01B4D    E800000F A            B        *R15
     3982                            *
     3983   01 01B4E    00000000 A   KL:EXIT  DATA     0
     3984                            *
     3985                                     TITLE  '*****DISPLAY  LIST  ROUTINE  (DL) *****'
     3986                            *
     3987         01 01B4F           DLTA     EQU      %
     3988   01 01B4F    02000000 A            NOP
     3989   01 01B50    02000000 A            NOP
     3990   01 01B51    3260039C              LW,X6    #PARAM%H1         FIRST PARAMETER ENTERED.
     3991   01 01B52    68301BF9              BCR,3    BAD:PAR1                                          *A03
     3992   01 01B53    31601AB2              CW,X6    LST:NUM
     3993   01 01B54    69201BF9              BG       BAD:PAR1
     3994   01 01B55    02000000 A            NOP
     3995   01 01B56    02000000 A            NOP
     3996   01 01B57    3260039D              LW,X6    #PARAM%H2         SECOND PARAMETER ENTERED.
     3997   01 01B58    68301BFB              BCR,3    BAD:PAR2                                          *A03
     3998   01 01B59    02000000 A            NOP
     3999   01 01B5A    31601AB2              CW,X6    LST:NUM
     4000   01 01B5B    69201BFB              BG       BAD:PAR2
     4001   01 01B5C    35600001 A            STW,X6    X1
     4002   01 01B5D    EA6003CD              #PRINT   MSK:LST+7,F1      TOP OF FORM ONLY.
            01 01B5E    F1007D30 A
     4003   01 01B5F    328003F3              LW,R8    LISTPTR           SAVE CURRENT LIST POINTER
     4004   01 01B60    35801BF6              STW,R8   LISTSAV           AND MCR SO THAT LISTSERVO
     4005   01 01B61    328003F2              LW,R8    MCR:NUM           ROUTINE CAN BE USED AS
     4006   01 01B62    35801BF7              STW,R8   MCR:SAV           A SUBROUTINE.
     4007   01 01B63    229FFFFF A            LI,R9    -1
     4008   01 01B64    35901405              STW,R9   KL:FLG
     4009   01 01B65    3280039C              LW,R8    #PARAM%H1
     4010   01 01B66    358003F2              STW,R8   MCR:NUM
     4011   01 01B67    31800001 A            CW,R8    X1
     4012   01 01B68    74001BF8              STCF     END:SW
     4013   01 01B69    48101D15              EOR,X1   ONES
     4014   01 01B6A    70201BF8              LC       END:SW
     4015   01 01B6B    68201B6E              BCR,2    %+3
     4016   01 01B6C    20100001 A            AI,X1    1
     4017   01 01B6D    68001B6F              B        %+2
     4018   01 01B6E    30100008 A            AW,X1    R8
     4019   01 01B6F    6AF013E6              BAL,R15  LSTSERVO
     4020   01 01B70    22800000 A            LI,R8    0
     4021   01 01B71    35801405              STW,R8   KL:FLG
     4022   01 01B72    35101BF8     NEXT:MOD STW,X1   END:SW
     4023   01 01B73    6AF017CB              BAL,R15  CLR:DCB
     4024   01 01B74    6AF01156              BAL,R15  CLR:SUFF
     4025   01 01B75    6AF0115C              BAL,R15  MOVERS
     4026   01 01B76    02000000 A            NOP                        THIS NOP IS REQUIRED.
     4027   01 01B77    02000000 A            NOP
     4028   01 01B78    02000000 A            NOP
     4029   01 01B79    02000000 A            NOP
     4030   01 01B7A    02000000 A            NOP
     4031   01 01B7B    02000000 A            NOP
     4032   01 01B7C    02000000 A            NOP
     4033   01 01B7D    6AF015F4              BAL,R15  MOD:HDR           USE MODULE HEADER ROUTINES
     4034   01 01B7E    6AF01622              BAL,R15  MOD:DATA          NORMALLY USED FOR SNAP
     4035   01 01B7F    32101BF8              LW,X1    END:SW            OUTPUT.
     4036   01 01B80    F28003F3              LB,R8    *LISTPTR
     4037   01 01B81    308003F3              AW,R8    LISTPTR
     4038   01 01B82    358003F3              STW,R8   LISTPTR
     4039   01 01B83    65101B72              BIR,X1   NEXT:MOD
     4040                            *
     4041   01 01B84    32801BF6     EXIT:DL  LW,R8    LISTSAV           RESTORE LISTPTR AND MCR.
     4042   01 01B85    358003F3              STW,R8   LISTPTR
     4043   01 01B86    32801BF7              LW,R8    MCR:SAV
     4044   01 01B87    358003F2              STW,R8   MCR:NUM
     4045   01 01B88    E80003C9              B        *#FIDLE%
     4046                            *
     4047   01 01B89    00000000 A            DATA     0
     4048   01 01B8A    00000000 A            DATA     0
     4049         01 01B8B           STATMSGS  EQU     %
     4050   01 01B8B    35601BD1              STW,X6    STATEXIT         STATUS MESSAGE ROUTINE.
     4051   01 01B8C    35C01B8A              STW,R12  STATMSGS-1
     4052   01 01B8D    35F01B89              STW,R15  STATMSGS-2        ENTERED FROM GUIDE IN
     4053   01 01B8E    02000000 A            NOP                        RESPONSE TO AMPERSAND
     4054   01 01B8F    02000000 A            NOP                        FROM READSTAT.  SEE TABLE3.
     4055   01 01B90    02000000 A            NOP
     4056   01 01B91    02000000 A            NOP
     4057   01 01B92    32C02B64              LW,R12   AMPER%EXPL
     4058   01 01B93    B5C003CE              STW,R12  *#ERRTEXT%
     4059   01 01B94    32C00393              LW,R12   #HDRFLG
     4060   01 01B95    21C01BE4              CI,R12   AMP:HDR
     4061   01 01B96    68301B99             BCR,3     %+3                                               *A04
     4062   01 01B97    EA6003CD              #PRINT   AMP:HDR
            01 01B98    C0006F90 A
     4063   01 01B99    6AF01458              BAL,R15  ESM:MOD           ENTERED FROM MST:INIT IF
     4064   01 01B9A    35C01BD2              STW,R12  AMP:BUF           THE SI PARAMETER IS AN
     4065   01 01B9B    6AF0145E              BAL,R15  ESM:EL            EVEN MULTIPLE OF THE
     4066   01 01B9C    35C01BD3              STW,R12  AMP:BUF+1         PASS COUNT AND NOT =0.
     4067   01 01B9D    EA6003C3              #HTECON  LOC
            01 01B9E    000011CC
     4068   01 01B9F    32CC0000 A            LW,R12   0,X6              STATMSGS SHARES MOST OF
     4069   01 01BA0    35C01BD4              STW,R12  AMP:BUF+2         THE SUBROUTINES USED BY
     4070   01 01BA1    32CC0001 A            LW,R12   1,X6              THE FT ERROR MESSAGE.
     4071   01 01BA2    35C01BD5              STW,R12  AMP:BUF+3
     4072   01 01BA3    6AF0146E              BAL,R15  ESM:ERRS
     4073   01 01BA4    35C01BD6              STW,R12  AMP:BUF+4
     4074   01 01BA5    6AF01474              BAL,R15  ESM:PASS
     4075   01 01BA6    35C01BD7              STW,R12  AMP:BUF+5
     4076   01 01BA7    32C01992              LW,R12   JOUT+6
     4077   01 01BA8    35C01BD8              STW,R12  AMP:BUF+6
     4078   01 01BA9    6AF01468              BAL,R15  ESM:MNEM
     4079   01 01BAA    35C01BD9              STW,R12  AMP:BUF+7
     4080   01 01BAB    6AF0147A              BAL,R15  ESM:CM
     4081   01 01BAC    35C01BDA              STW,R12  AMP:BUF+8
     4082   01 01BAD    32C01A60              LW,R12   KOUT
     4083   01 01BAE    30C01ADE              AW,R12   MSB21
     4084   01 01BAF    35C01BDB              STW,R12  AMP:BUF+9
     4085   01 01BB0    32C01A61              LW,R12   KOUT+1
     4086   01 01BB1    35C01BDC              STW,R12  AMP:BUF+10
     4087   01 01BB2    6AF01495              BAL,R15  ESM:CI
     4088   01 01BB3    35C01BDD              STW,R12  AMP:BUF+11
     4089   01 01BB4    EA6003C3              #HTECON  TOT:ERRS
            01 01BB5    000010B5
     4090   01 01BB6    32CC0000 A            LW,R12   0,X6
     4091   01 01BB7    35C01BDE              STW,R12  AMP:BUF+12
     4092   01 01BB8    32CC0001 A            LW,R12   1,X6
     4093   01 01BB9    35C01BDF              STW,R12  AMP:BUF+13
     4094   01 01BBA    32C01C63              LW,R12   SPACES                                            *A02
     4095   01 01BBB    35C01BE0              STW,R12  AMP:BUF+14                                        *A02
     4096   01 01BBC    35C01BE1              STW,R12  AMP:BUF+15                                        *A02
     4097   01 01BBD    B2C003CA              LW,R12   *#RUNADDR%
     4098   01 01BBE    EA6003C3              #HTECON  R12
            01 01BBF    0000000C A
     4099   01 01BC0    32CC0000 A            LW,R12   0,X6
     4100   01 01BC1    35C01BE2              STW,R12  AMP:BUF+16
     4101   01 01BC2    32CC0001 A            LW,R12   1,X6
     4102   01 01BC3    35C01BE3              STW,R12  AMP:BUF+17
     4103   01 01BC4    22C00047 A            LI,R12   71
     4104   01 01BC5    75C01BD2              STB,R12  AMP:BUF
     4105   01 01BC6    EA6003CD              #PRINT   AMP:BUF
            01 01BC7    C0006F48 A
     4106   01 01BC8    22C01BE4              LI,R12   AMP:HDR
     4107   01 01BC9    35C00393              STW,R12  #HDRFLG
     4108   01 01BCA    02000000 A            NOP
     4109   01 01BCB    02000000 A            NOP
     4110   01 01BCC    02000000 A            NOP
     4111   01 01BCD    02000000 A            NOP
     4112   01 01BCE    32C01B8A              LW,R12   STATMSGS-1
     4113   01 01BCF    32F01B89              LW,R15   STATMSGS-2
     4114   01 01BD0    E8001BD1              B        *STATEXIT
     4115                            *
     4116   01 01BD1    00000000 A   STATEXIT DATA     0
     4117                            *
     4118         01 01BD2           AMP:BUF  EQU      %
     4119                                     LIST     0
     4124                            *
     4125                            AMP:HDR  TEXTCS  'MOD EL TESTINST E/P PAS EM MNEM ',;
     4126         01 01BE4                    'CM  MST MSP CI TOT:ERRS        PROGADDR'
     4127                            *
     4128   01 01BF6    00000000 A   LISTSAV  DATA     0
     4129   01 01BF7    00000000 A   MCR:SAV  DATA     0
     4130                            *
     4131   01 01BF8    00000000 A   END:SW   DATA     0
     4132   01 01BF9    32801C00     BAD:PAR1 LW,R8    TXTP1
     4133   01 01BFA    68001BFC              B        %+2
     4134   01 01BFB    32801C01     BAD:PAR2 LW,R8    TXTP2
     4135   01 01BFC    35801C04              STW,R8   PAR:ERR+2
     4136   01 01BFD    EA6003CD              #PRINT   PAR:ERR
            01 01BFE    C0007008 A
     4137   01 01BFF    E80003C9              B        *#FIDLE%
     4138                            *
     4139   01 01C00    40D7F140 A   TXTP1    TEXT     ' P1 '
     4140   01 01C01    40D7F240 A   TXTP2    TEXT     ' P2 '
     4141                            *
     4142         01 01C02           PAR:ERR  TEXTCS   'INVALID P1 PARAMETER.'
     4143                                TITLE   'MODULE RANGE (MR) ROUTINE'
     4144                            *
     4145         01 01C08           DRTA     EQU      %
     4146   01 01C08    328003A2              LW,R8    #PARAM1
     4147   01 01C09    69301C18              BCS,3    DR:ERET           SEARCH MNEMONIC LIST WITH
     4148   01 01C0A    328003A3              LW,R8    #PARAM1+1         INPUT PARAMETER.
     4149   01 01C0B    69101C12              BCS,1    PAR1:LJ
     4150   01 01C0C    222FFFF8 A            LI,X2    -8
     4151   01 01C0D    30800008 A            AW,R8    R8
     4152   01 01C0E    65201C0D              BIR,X2   %-1
     4153   01 01C0F    20800040 A            AI,R8    X'40'
     4154   01 01C10    358003A3              STW,R8   #PARAM1+1
     4155   01 01C11    68001C0A              B        DRTA+2
     4156                            *
     4157   01 01C12    221FFF80 A   PAR1:LJ  LI,X1    -128
     4158   01 01C13    22200000 A            LI,X2    0
     4159   01 01C14    31842542              CW,R8    MNEMLIST,X2
     4160   01 01C15    68301C20              BCR,3    MNEM:X2
     4161   01 01C16    20200001 A            AI,X2    1
     4162   01 01C17    65101C14              BIR,X1   PAR1:LJ+2
     4163   01 01C18    EA6003CC     DR:ERET  #TYPE    MNEM:MSG
            01 01C19    0000706C A
     4164   01 01C1A    E80003C9              B        *#FIDLE%
     4165                            *
     4166   01 01C1B    10C9D5E5 A   MNEM:MSG TEXTC    'INVALID MNEMONIC'
            01 01C1C    C1D3C9C4 A
            01 01C1D    40D4D5C5 A
            01 01C1E    D4D6D5C9 A
            01 01C1F    C3404040 A
     4167                            *
     4168   01 01C20    22100004 A   MNEM:X2  LI,X1    4
     4169   01 01C21    32801C63              LW,R8    SPACES
     4170   01 01C22    35801CEC              STW,R8   OUTBUF
     4171   01 01C23    22802BEA              LI,R8    LIST
     4172   01 01C24    F2900008 A            LB,R9    *R8
     4173   01 01C25    F2A20008 A            LB,R10   *R8,X1
     4174   01 01C26    4BA01D01              AND,R10  CON7F
     4175   01 01C27    31A00002 A            CW,R10   X2
     4176   01 01C28    68301C2D              BCR,3    %+5
     4177   01 01C29    30800009 A            AW,R8    R9
     4178   01 01C2A    21803AA1              CI,R8    LASTMODULE
     4179   01 01C2B    68301C18              BCR,3    DR:ERET
     4180   01 01C2C    68001C24              B        MNEM:X2+4
     4181                            *
     4182   01 01C2D    B2C00008 A            LW,R12   *R8
     4183   01 01C2E    EA6003C3              #HTECON  R12
            01 01C2F    0000000C A
     4184   01 01C30    32CC0001 A            LW,R12   1,X6
     4185   01 01C31    223FFFF8 A            LI,X3    -8
     4186   01 01C32    30C0000C A            AW,R12   R12
     4187   01 01C33    65301C32              BIR,X3   %-1
     4188   01 01C34    20C00040 A            AI,R12   X'40'
     4189   01 01C35    35C01CED              STW,R12  OUTBUF+1
     4190   01 01C36    32C01C4F              LW,R12   THRU:TXT
     4191   01 01C37    35C01CEE              STW,R12  OUTBUF+2
     4192   01 01C38    30800009 A            AW,R8    R9
     4193   01 01C39    75901C4E              STB,R9   TOO:FAR
     4194   01 01C3A    F2900008 A            LB,R9    *R8
     4195   01 01C3B    F2A20008 A            LB,R10   *R8,X1
     4196   01 01C3C    4BA01D01              AND,R10  CON7F
     4197   01 01C3D    31A00002 A            CW,R10   X2
     4198   01 01C3E    68301C38              BCR,3    %-6
     4199   01 01C3F    72901C4E              LB,R9    TOO:FAR
     4200   01 01C40    48901D15              EOR,R9   ONES
     4201   01 01C41    20900001 A            AI,R9    1
     4202   01 01C42    30800009 A            AW,R8    R9
     4203   01 01C43    B2C00008 A            LW,R12   *R8
     4204   01 01C44    EA6003C3              #HTECON  R12
            01 01C45    0000000C A
     4205   01 01C46    32CC0001 A            LW,R12   1,X6
     4206   01 01C47    4BC01D02              AND,R12  LS:MSK
     4207   01 01C48    35C01CEF              STW,R12  OUTBUF+3
     4208   01 01C49    22C0000F A            LI,R12   15
     4209   01 01C4A    75C01CEC              STB,R12  OUTBUF
     4210   01 01C4B    EA6003CC              #TYPE    OUTBUF
            01 01C4C    000073B0 A
     4211   01 01C4D    E80003C9              B        *#FIDLE%
     4212                            *
     4213   01 01C4E    00000000 A   TOO:FAR  DATA     0
     4214   01 01C4F    E3C8D9E4 A   THRU:TXT TEXT     'THRU'
     4215                            *
     4216   01 01C50    F1F2F3F4 A   ALPHATXT TEXT     '1234ABCDEFGHIJKLMNOPQRSTUVWXYZ'
            01 01C51    C1C2C3C4 A
            01 01C52    C5C6C7C8 A
            01 01C53    C9D1D2D3 A
            01 01C54    D4D5D6D7 A
            01 01C55    D8D9E2E3 A
            01 01C56    E4E5E6E7 A
            01 01C57    E8E94040 A
     4217                            *
     4218                                TITLE   'CONSTANTS & DATA STORAGE AREA'
     4219                            *
     4220   01 01C58    00000000 A   SAVE     DATA     0                                                 *A04
     4221   01 01C59    00000000 A   CK:CTR   DATA     0
     4222   01 01C5A    00000000 A   SN:OBPTR DATA     0
     4223   01 01C5B    00000000 A   SN:EXPTR DATA     0
     4224   01 01C5C    40614040 A   DISRGD   DATA     X'40614040'
     4225   01 01C5D    405C4040 A   ASTRSK   DATA     X'405C4040'
     4226   01 01C5E    00000000 A   CMP:ERR  DATA     0
     4227   01 01C5F    00000000 A   FLG126   DATA     0
     4228   01 01C60    00000000 A   FLAG7    DATA     0
     4229   01 01C61    00000000 A   OB:SW    DATA     0
     4230   01 01C62    00000000 A   SO       DATA     0
     4231   01 01C63    40404040 A   SPACES   DATA     X'40404040'
     4232                                     BOUND    8
     4233   01 01C64    010071D2     DCB:DW0  D        1,BA(SN:COL0)+2
     4234   01 01C65    80000004 A            I        8,4
     4235   01 01C66    010071D8              J        1,SN:COL1
     4236   01 01C67    8000000A A            I        8,10
     4237   01 01C68    010071E4              J        1,SN:COL2
     4238   01 01C69    8000000A A            I        8,10
     4239   01 01C6A    010071F0              J        1,SN:COL3
     4240   01 01C6B    8000000A A            I        8,10
     4241   01 01C6C    010071FC              J        1,SN:COL4
     4242   01 01C6D    8000000A A            I        8,10
     4243   01 01C6E    01007208              J        1,SN:COL5
     4244   01 01C6F    8000000A A            I        8,10
     4245   01 01C70    01007214              J        1,SN:COL6
     4246   01 01C71    8000000A A            I        8,10
     4247   01 01C72    01007220              J        1,SN:COL7
     4248   01 01C73    0000000A A            I        0,10
     4249                            *
     4250         01 01C74           DC:BUF   EQU      %                 DATA CHAINING BUFFER FOR SNAP
     4251   01 01C74    00000000 A   SN:COL0  DATA     0
     4252   01 01C75    00000000 A            DATA     0
     4253   01 01C76    00000000 A   SN:COL1  DATA     0
     4254   01 01C77    00000000 A            DATA     0
     4255   01 01C78    00000000 A            DATA     0
     4256   01 01C79    00000000 A   SN:COL2  DATA     0
     4257   01 01C7A    00000000 A            DATA     0
     4258   01 01C7B    00000000 A            DATA     0
     4259   01 01C7C    00000000 A   SN:COL3  DATA     0
     4260   01 01C7D    00000000 A            DATA     0
     4261   01 01C7E    00000000 A            DATA     0
     4262   01 01C7F    00000000 A   SN:COL4  DATA     0
     4263   01 01C80    00000000 A            DATA     0
     4264   01 01C81    00000000 A            DATA     0
     4265   01 01C82    00000000 A   SN:COL5  DATA     0
     4266   01 01C83    00000000 A            DATA     0
     4267   01 01C84    00000000 A            DATA     0
     4268   01 01C85    00000000 A   SN:COL6  DATA     0
     4269   01 01C86    00000000 A            DATA     0
     4270   01 01C87    00000000 A            DATA     0
     4271   01 01C88    00000000 A   SN:COL7  DATA     0
     4272   01 01C89    00000000 A            DATA     0
     4273   01 01C8A    00000000 A            DATA     0
     4274   01 01C8B    00000000 A   SN:COL8  DATA     0
     4275   01 01C8C    00000000 A            DATA     0
     4276   01 01C8D    00000000 A            DATA     0
     4277                            *
     4278   01 01C8E    00000010 A            DATA     16                PHASE
     4279   01 01C8F    00000000 A            DATA     0                 A
     4280   01 01C90    00000002 A            DATA     2                 B
     4281   01 01C91    00000004 A            DATA     4                 S
     4282   01 01C92    00000006 A            DATA     6                 C  DISRGD
     4283   01 01C93    00000009 A            DATA     9                 D
     4284   01 01C94    00000007 A            DATA     7                 CA  DISRGD
     4285         01 01C95           SO:LINE0 EQU      %
     4286                            *
     4287   01 01C95    00000010 A            DATA     16                PHASE
     4288   01 01C96    00000001 A            DATA     1                 A(L)
     4289   01 01C97    00000003 A            DATA     3                 B(L)
     4290   01 01C98    00000005 A            DATA     5                 S(L)  DISRGD
     4291   01 01C99    00000008 A            DATA     8                 C(L)  DISRGD
     4292   01 01C9A    0000000B A            DATA     11                D(L)
     4293   01 01C9B    0000000A A            DATA     10                DA
     4294         01 01C9C           SO:LINE1 EQU      %
     4295                            *
     4296   01 01C9C    00000010 A            DATA     16                PHASE
     4297   01 01C9D    00000012 A            DATA     18                LB  DISRGD
     4298   01 01C9E    00000016 A            DATA     22                P24
     4299   01 01C9F    00000011 A            DATA     17                MEM
     4300   01 01CA0    00000015 A            DATA     21                E/F
     4301   01 01CA1    00000013 A            DATA     19                C1
     4302   01 01CA2    00000014 A            DATA     20                C2
     4303         01 01CA3           SO:LINE2 EQU      %
     4304                            *
     4305   01 01CA3    00001C74              DATA     SN:COL0
     4306   01 01CA4    00001C76              DATA     SN:COL1
     4307   01 01CA5    00001C79              DATA     SN:COL2
     4308   01 01CA6    00001C7C              DATA     SN:COL3
     4309   01 01CA7    00001C7F              DATA     SN:COL4
     4310   01 01CA8    00001C82              DATA     SN:COL5
     4311   01 01CA9    00001C85              DATA     SN:COL6
     4312   01 01CAA    00001C88              DATA     SN:COL7
     4313         01 01CAB           DCB:LST  EQU      %
     4314                            *
     4315   01 01CAB    00001C95     LINE0ADR DATA     SO:LINE0
     4316   01 01CAC    00001C9C     LINE1ADR DATA     SO:LINE1
     4317   01 01CAD    00001CA3     LINE2ADR DATA     SO:LINE2
     4318         01 01CAE           LINEADR  EQU      %
     4319                            *
     4320                            SN:HDR0  TEXTCS   'CLK  PHASE    A(00-31)  B(00-31)  S(00-31)',;
     4321         01 01CAE                             '  C(00-31)  D(00-31)  CA(0-31)'
     4322                            SN:HDR1  TEXTCS   'CLK  PHASE    A(46-71)  B(46-71)  S(46-71)',;
     4323         01 01CC1                             '  C(47-71)  D(46-71)  DA(0-31)'
     4324                            SN:HDR2  TEXTCS   'CLK  PHASE    LB &SPEC  P24PS3Q4  MEMORYSW',;
     4325         01 01CD4                             '  E07F2431   CONT1     CONT2'
     4326                            *
     4327   01 01CE6    000072B8              DATA     BA(SN:HDR0)
     4328   01 01CE7    00007304              DATA     BA(SN:HDR1)
     4329   01 01CE8    00007350              DATA     BA(SN:HDR2)
     4330         01 01CE9           HDR:ADR  EQU      %
     4331                            *
     4332   01 01CE9    00000001 A   ONE      DATA     1
     4333   01 01CEA    00000004 A   FOUR     DATA     4
     4334   01 01CEB    0000000F A   FIFTEEN  DATA     15
     4335   01 01CEC                 OUTBUF   RES      18
     4336   01 01CFE    00000048 A   OB:CNT   DATA     72
     4337   01 01CFF    00000000 A   PASSES   DATA     0
     4338   01 01D00    00000007 A   CON7     DATA     7
     4339   01 01D01    0000007F A   CON7F    DATA     X'7F'
     4340   01 01D02    40FFFFFF A   LS:MSK   DATA     X'40FFFFFF'
     4341   01 01D03    4040FFFF A   LS:MSK2  DATA     X'4040FFFF'
     4342   01 01D04    00000000 A   ERR:CNT  DATA     0
     4343   01 01D05    00000000 A   ERR:FLG  DATA     0
     4344   01 01D06    00000000 A   FTFL     DATA     0
     4345   01 01D07    00000000 A   MA:PTR   DATA     0
     4346   01 01D08    00000000 A   LC:FLG   DATA     0
     4347   01 01D09    00000000 A   CK:BIAS  DATA     0
     4348   01 01D0A    00000000 A   CK:PTR   DATA     0
     4349   01 01D0B    00000002 A            DATA     2
     4350   01 01D0C    00000002 A            DATA     2
     4351   01 01D0D    00000002 A            DATA     2
     4352         01 01D0E           CK:SAV   EQU      %
     4353   01 01D0E    00000000 A   LC:EXIT  DATA     0
     4354   01 01D0F    00000080 A   TAPE0ADR DATA     X'80'
     4355   01 01D10    00000081 A   TAPE1ADR DATA     X'81'
     4356   01 01D11    00000082 A   TAPE2ADR DATA     X'82'
     4357   01 01D12    00000003 A   CARDADR  DATA     3
     4358   01 01D13    00000001 A   COMADR   DATA     1
     4359   01 01D14    00000002 A   MSGADR   DATA     2
     4360   01 01D15    FFFFFFFF A   ONES     DATA     -1
     4361   01 01D16    00000000 A   TAPE:PTR DATA     0
     4362   01 01D17    00000000 A   CE:PTR   DATA     0
     4363   01 01D18    010011CC     SNAP:SET GEN,8,7,17 1,0,LOC
     4364   01 01D19    010011CC     SNAP:INI GEN,8,7,17  1,0,LOC
     4365                            *
     4366         01 01D1A           CARD:BUF EQU      %
     4367         01 01D1A           IC:MSG   TEXTCS   'INSUFFICIENT CORE TO GENERATE SNAP DATA.'
     4368   01 01D25                          RES      10
     4369                                     BOUND    8
     4370   01 01D30    06007468     CARDIOCD J        6,CARD:BUF
     4371   01 01D31    00000050 A            D        0,80
     4372   01 01D32    7BC5D5C4 A   ENDT     TEXT     '#END'
     4373   01 01D33    00000000 A   CARD:SW  DATA     0
     4374   01 01D34    00000000 A   END:FLG  DATA     0
     4375   01 01D35    00000000 A   RD:SW    DATA     0
     4376   01 01D36    00000FFF A   MOD:MSK  DATA     X'FFF'
     4377   01 01D37    00000000 A   IDX:SAV  DATA     0
     4378   01 01D38    00000000 A   DATA:SAV DATA     0
     4379                            *
     4380                                     BOUND    8
     4381   01 01D3A    00000000 A   PSW1     PZE                                                            AUTO7400
     4382   01 01D3B    00000000 A   PSW2     PZE                                                            AUTO7410
     4383   01 01D3C    00000000 A   PSW1SAV  DATA     0
     4384   01 01D3D    00000000 A   PSW2SAV  DATA     0
     4385                                     BOUND    8
     4386   01 01D3E    00000000 A   SP       DATA     0,0
            01 01D3F    00000000 A
     4387   01 01D40    000011CC     LOCADR   DATA     LOC
     4388   01 01D41    000011CE     LOC2ADR  DATA     LOC+2
     4389   01 01D42    0001FFFF A   ADR:MSK  DATA     X'1FFFF'
     4390   01 01D43    00003AC0     IA       DATA     MEMORY
     4391   01 01D44    00001D3E     IASP     DATA     SP
     4392   01 01D45    00001CFE     IA32     DATA     SP-64
     4393                            *
     4394                            *
     4395                            *
     4396                            *     ************CONSTANTS AND WORKING STORAGE************
     4397                            *
     4398                            *
     4399                                     BOUND    8
     4400   01 01D46    000C0804 A   DTA0     DATA     X'000C0804'       DATA TABLE 0
     4401   01 01D47    010D0905 A            DATA     X'010D0905'
     4402   01 01D48    020E0A06 A            DATA     X'020E0A06'
     4403   01 01D49    030F0B07 A            DATA     X'030F0B07'
     4404   01 01D4A    04000C08 A            DATA     X'04000C08'
     4405   01 01D4B    05010D09 A            DATA     X'05010D09'
     4406   01 01D4C    06020E0A A            DATA     X'06020E0A'
     4407   01 01D4D    07030F0B A            DATA     X'07030F0B'
     4408                            *
     4409   01 01D4E    000C0804 A   DTA1     DATA     X'000C0804'       DATA TABLE 1
     4410   01 01D4F    010D0905 A            DATA     X'010D0905'         +1
     4411   01 01D50    020E0A06 A            DATA     X'020E0A06'         +2
     4412   01 01D51    030F0B07 A            DATA     X'030F0B07'         +3
     4413   01 01D52    04000C08 A            DATA     X'04000C08'         +4
     4414   01 01D53    05010D09 A            DATA     X'05010D09'         +5
     4415   01 01D54    06020E0A A            DATA     X'06020E0A'         +6
     4416   01 01D55    07030F0B A            DATA     X'07030F0B'         +7
     4417   01 01D56    0804000C A            DATA     X'0804000C'         +8
     4418   01 01D57    0905010D A            DATA     X'0905010D'         +9
     4419   01 01D58    0A06020E A            DATA     X'0A06020E'         +10
     4420   01 01D59    0B07030F A            DATA     X'0B07030F'         +11
     4421   01 01D5A    0C080400 A            DATA     X'0C080400'         +12
     4422   01 01D5B    0D090501 A            DATA     X'0D090501'         +13
     4423   01 01D5C    0E0A0602 A            DATA     X'0E0A0602'         +14
     4424   01 01D5D    0F0B0703 A            DATA     X'0F0B0703'         +15
     4425                            *
     4426   01 01D5E    AAA00001 A   DTA2     DATA     X'AAA00001'       DATA TABLE 2
     4427   01 01D5F    11111111 A            DATA     X'11111111'        +1
     4428   01 01D60    99900002 A            DATA     X'99900002'        +2
     4429   01 01D61    22222222 A            DATA     X'22222222'        +3
     4430   01 01D62    33333333 A            DATA     X'33333333'        +4
     4431   01 01D63    66600003 A            DATA     X'66600003'        +5
     4432   01 01D64    44444444 A            DATA     X'44444444'        +6
     4433   01 01D65    55555555 A            DATA     X'55555555'        +7
     4434   01 01D66    66666666 A            DATA     X'66666666'        +8
     4435   01 01D67    55500004 A            DATA     X'55500004'        +9
     4436   01 01D68    77777777 A            DATA     X'77777777'        +10
     4437   01 01D69    88888888 A            DATA     X'88888888'        +11
     4438   01 01D6A    99999999 A            DATA     X'99999999'        +12
     4439   01 01D6B    AAAAAAAA A            DATA     X'AAAAAAAA'        +13
     4440   01 01D6C    BBBBBBBB A            DATA     X'BBBBBBBB'        +14
     4441   01 01D6D    33300005 A            DATA     X'33300005'        +15
     4442                            *
     4443   01 01D6E    00008000 A            DATA     X'8000'             -5    DATA TABLE 3
     4444   01 01D6F    FFFFFFF8 A            DATA     -8                  -4
     4445   01 01D70    FFFFFFFC A            DATA     -4                  -3
     4446   01 01D71    FFFFFFFE A            DATA     -2                  -2
     4447   01 01D72    FFFFFFFF A            DATA     -1                  -1
     4448   01 01D73    00000000 A   DTA3     DATA     0                    0
     4449   01 01D74    00000001 A            DATA     1                   +1
     4450   01 01D75    00000002 A            DATA     2                   +2
     4451   01 01D76    00000004 A            DATA     4                   +3
     4452   01 01D77    00000008 A            DATA     8                   +4
     4453   01 01D78    00007FFF A            DATA     X'7FFF'             +5
     4454   01 01D79    00000020 A            DATA     32                  +6
     4455                            *
     4456   01 01D7A    001221EF A   DTA4     DATA     X'001221EF',X'00008100'
            01 01D7B    00008100 A
     4457   01 01D7C    C34DFF57 A            DATA     X'C34DFF57',X'E726A81D'
            01 01D7D    E726A81D A
     4458   01 01D7E    00000012 A   DTA5     DATA     X'00000012',X'21EF0000'
            01 01D7F    21EF0000 A
     4459   01 01D80    00810000 A            DATA     X'00810000',X'000057E7'
            01 01D81    000057E7 A
     4460   01 01D82    C34D0203 A            DATA     X'C34D0203',X'0C080403'
            01 01D83    0C080403 A
     4461   01 01D84    0001FF57 A            DATA     X'0001FF57',0
            01 01D85    00000000 A
     4462   01 01D86    3FFFFFFF A   DTA6     DATA     X'3FFFFFFF',-2    +0,1
            01 01D87    FFFFFFFE A
     4463   01 01D88    7FFFFFF9 A            DATA     X'7FFFFFF9',-2    +2,3
            01 01D89    FFFFFFFE A
     4464   01 01D8A    00000001 A            DATA     1,0               +4,5
            01 01D8B    00000000 A
     4465   01 01D8C    FFFFFFFF A            DATA     -1,0              +6,7
            01 01D8D    00000000 A
     4466   01 01D8E    AAAAAAAA A            DATA     X'AAAAAAAA',0     +8,9
            01 01D8F    00000000 A
     4467   01 01D90    55555555 A            DATA     X'55555555'       +10
     4468   01 01D91    00007538     DTA7     DATA     BA(DTA1),BA(MEMORY)+255
            01 01D92    0000EBFF
     4469   01 01D93    000157E7 A            DATA     X'000157E7'       +2
     4470   01 01D94    01FFFFFF A   DTAS10   DATA     X'01FFFFFF'
     4471   01 01D95    FF01FFFF A   DTAS11   DATA     X'FF01FFFF'
     4472   01 01D96    FFFF01FF A   DTAS12   DATA     X'FFFF01FF'
     4473   01 01D97    FFFFFF01 A   DTAS13   DATA     X'FFFFFF01',X'FFFFFFFF'
            01 01D98    FFFFFFFF A
     4474   01 01D99    00FFFFFF A   DTAD10   DATA     X'00FFFFFF'
     4475   01 01D9A    FF00FFFF A   DTAD11   DATA     X'FF00FFFF'
     4476   01 01D9B    FFFF00FF A   DTAD12   DATA     X'FFFF00FF'
     4477   01 01D9C    FFFFFF00 A   DTAD13   DATA     X'FFFFFF00'
     4478   01 01D9D    0102FFFF A   DTAS20   DATA     X'0102FFFF'
     4479   01 01D9E    FF0102FF A   DTAS21   DATA     X'FF0102FF'
     4480   01 01D9F    FFFF0102 A   DTAS22   DATA     X'FFFF0102',X'FFFFFFFF'
            01 01DA0    FFFFFFFF A
     4481   01 01DA1    FFFFFF01 A   DTAS23   DATA     X'FFFFFF01',X'02FFFFFF'
            01 01DA2    02FFFFFF A
     4482   01 01DA3    0100FFFF A   DTAD20   DATA     X'0100FFFF'
     4483   01 01DA4    FF0100FF A   DTAD21   DATA     X'FF0100FF'
     4484   01 01DA5    FFFF0100 A   DTAD22   DATA     X'FFFF0100'
     4485   01 01DA6    FFFFFF01 A   DTAD23   DATA     X'FFFFFF01',X'00FFFFFF'
            01 01DA7    00FFFFFF A
     4486   01 01DA8    010203FF A   DTAS30   DATA     X'010203FF'
     4487   01 01DA9    FF010203 A   DTAS31   DATA     X'FF010203',X'FFFFFFFF'
            01 01DAA    FFFFFFFF A
     4488   01 01DAB    FFFF0102 A   DTAS32   DATA     X'FFFF0102',X'03FFFFFF'
            01 01DAC    03FFFFFF A
     4489   01 01DAD    FFFFFF01 A   DTAS33   DATA     X'FFFFFF01',X'0203FFFF'
            01 01DAE    0203FFFF A
     4490   01 01DAF    010200FF A   DTAD30   DATA     X'010200FF'
     4491   01 01DB0    FF010200 A   DTAD31   DATA     X'FF010200'
     4492   01 01DB1    FFFF0102 A   DTAD32   DATA     X'FFFF0102',X'00FFFFFF'
            01 01DB2    00FFFFFF A
     4493   01 01DB3    FFFFFF01 A   DTAD33   DATA     X'FFFFFF01',X'0200FFFF'
            01 01DB4    0200FFFF A
     4494   01 01DB5    01020304 A   DTAS40   DATA     X'01020304',X'FFFFFFFF'
            01 01DB6    FFFFFFFF A
     4495   01 01DB7    FF010203 A   DTAS41   DATA     X'FF010203',X'04FFFFFF',X'FFFFFFFF'
            01 01DB8    04FFFFFF A
            01 01DB9    FFFFFFFF A
     4496   01 01DBA    FFFF0102 A   DTAS42   DATA     X'FFFF0102',X'0304FFFF',X'FFFFFFFF'
            01 01DBB    0304FFFF A
            01 01DBC    FFFFFFFF A
     4497   01 01DBD    FFFFFF01 A   DTAS43   DATA     X'FFFFFF01',X'020304FF',X'FFFFFFFF'
            01 01DBE    020304FF A
            01 01DBF    FFFFFFFF A
     4498   01 01DC0    01020300 A   DTAD40   DATA     X'01020300'
     4499   01 01DC1    FF010203 A   DTAD41   DATA     X'FF010203',X'00FFFFFF'
            01 01DC2    00FFFFFF A
     4500   01 01DC3    FFFF0102 A   DTAD42   DATA     X'FFFF0102',X'0300FFFF'
            01 01DC4    0300FFFF A
     4501   01 01DC5    FFFFFF01 A   DTAD43   DATA     X'FFFFFF01',X'020300FF'
            01 01DC6    020300FF A
     4502   01 01DC7    01020304 A   DTAS50   DATA     X'01020304',X'05FFFFFF'
            01 01DC8    05FFFFFF A
     4503   01 01DC9    FF010203 A   DTAS51   DATA     X'FF010203',X'0405FFFF',X'FFFFFFFF'
            01 01DCA    0405FFFF A
            01 01DCB    FFFFFFFF A
     4504   01 01DCC    FFFF0102 A   DTAS52   DATA     X'FFFF0102',X'030405FF',X'FFFFFFFF'
            01 01DCD    030405FF A
            01 01DCE    FFFFFFFF A
     4505   01 01DCF    FFFFFF01 A   DTAS53   DATA     X'FFFFFF01',X'02030405',X'FFFFFFFF'
            01 01DD0    02030405 A
            01 01DD1    FFFFFFFF A
     4506   01 01DD2    01020304 A   DTAD50   DATA     X'01020304',X'00FFFFFF'
            01 01DD3    00FFFFFF A
     4507   01 01DD4    FF010203 A   DTAD51   DATA     X'FF010203',X'0400FFFF'
            01 01DD5    0400FFFF A
     4508   01 01DD6    FFFF0102 A   DTAD52   DATA     X'FFFF0102',X'030400FF'
            01 01DD7    030400FF A
     4509   01 01DD8    FFFFFF01 A   DTAD53   DATA     X'FFFFFF01',X'02030400'
            01 01DD9    02030400 A
     4510   01 01DDA    01020304 A   DTAS60   DATA     X'01020304',X'0506FFFF'
            01 01DDB    0506FFFF A
     4511   01 01DDC    FF010203 A   DTAS61   DATA     X'FF010203',X'040506FF',X'FFFFFFFF'
            01 01DDD    040506FF A
            01 01DDE    FFFFFFFF A
     4512   01 01DDF    FFFF0102 A   DTAS62   DATA     X'FFFF0102',X'03040506',X'FFFFFFFF'
            01 01DE0    03040506 A
            01 01DE1    FFFFFFFF A
     4513   01 01DE2    FFFFFF01 A   DTAS63   DATA     X'FFFFFF01',X'02030405',X'06FFFFFF'
            01 01DE3    02030405 A
            01 01DE4    06FFFFFF A
     4514   01 01DE5    01020304 A   DTAD60   DATA     X'01020304',X'0500FFFF'
            01 01DE6    0500FFFF A
     4515   01 01DE7    FF010203 A   DTAD61   DATA     X'FF010203',X'040500FF'
            01 01DE8    040500FF A
     4516   01 01DE9    FFFF0102 A   DTAD62   DATA     X'FFFF0102',X'03040500'
            01 01DEA    03040500 A
     4517   01 01DEB    FFFFFF01 A   DTAD63   DATA     X'FFFFFF01',X'02030405',X'00FFFFFF'
            01 01DEC    02030405 A
            01 01DED    00FFFFFF A
     4518   01 01DEE    01020304 A   DTAS70   DATA     X'01020304',X'050607FF'
            01 01DEF    050607FF A
     4519   01 01DF0    FF010203 A   DTAS71   DATA     X'FF010203',X'04050607',X'FFFFFFFF'
            01 01DF1    04050607 A
            01 01DF2    FFFFFFFF A
     4520   01 01DF3    FFFF0102 A   DTAS72   DATA     X'FFFF0102',X'03040506',X'07FFFFFF'
            01 01DF4    03040506 A
            01 01DF5    07FFFFFF A
     4521   01 01DF6    FFFFFF01 A   DTAS73   DATA     X'FFFFFF01',X'02030405',X'0607FFFF'
            01 01DF7    02030405 A
            01 01DF8    0607FFFF A
     4522   01 01DF9    01020304 A   DTAD70   DATA     X'01020304',X'050600FF'
            01 01DFA    050600FF A
     4523   01 01DFB    FF010203 A   DTAD71   DATA     X'FF010203',X'04050600'
            01 01DFC    04050600 A
     4524   01 01DFD    FFFF0102 A   DTAD72   DATA     X'FFFF0102',X'03040506',X'00FFFFFF'
            01 01DFE    03040506 A
            01 01DFF    00FFFFFF A
     4525   01 01E00    FFFFFF01 A   DTAD73   DATA     X'FFFFFF01',X'02030405',X'0600FFFF'
            01 01E01    02030405 A
            01 01E02    0600FFFF A
     4526   01 01E03    01020304 A   DTAS80   DATA     X'01020304',X'05060708',X'FFFFFFFF'
            01 01E04    05060708 A
            01 01E05    FFFFFFFF A
     4527   01 01E06    FF010203 A   DTAS81   DATA     X'FF010203',X'04050607',X'08FFFFFF'
            01 01E07    04050607 A
            01 01E08    08FFFFFF A
     4528   01 01E09    FFFF0102 A   DTAS82   DATA     X'FFFF0102',X'03040506',X'0708FFFF'
            01 01E0A    03040506 A
            01 01E0B    0708FFFF A
     4529   01 01E0C    FFFFFF01 A   DTAS83   DATA     X'FFFFFF01',X'02030405',X'060708FF'
            01 01E0D    02030405 A
            01 01E0E    060708FF A
     4530   01 01E0F    01020304 A   DTAD80   DATA     X'01020304',X'05060700'
            01 01E10    05060700 A
     4531   01 01E11    FF010203 A   DTAD81   DATA     X'FF010203',X'04050607',X'00FFFFFF'
            01 01E12    04050607 A
            01 01E13    00FFFFFF A
     4532   01 01E14    FFFF0102 A   DTAD82   DATA     X'FFFF0102',X'03040506',X'0700FFFF'
            01 01E15    03040506 A
            01 01E16    0700FFFF A
     4533   01 01E17    FFFFFF01 A   DTAD83   DATA     X'FFFFFF01',X'02030405',X'060700FF'
            01 01E18    02030405 A
            01 01E19    060700FF A
     4534   01 01E1A    01020304 A   DTAS90   DATA     X'01020304',X'05060708',X'09FFFFFF'
            01 01E1B    05060708 A
            01 01E1C    09FFFFFF A
     4535   01 01E1D    FF010203 A   DTAS91   DATA     X'FF010203',X'04050607',X'0809FFFF'
            01 01E1E    04050607 A
            01 01E1F    0809FFFF A
     4536   01 01E20    FFFF0102 A   DTAS92   DATA     X'FFFF0102',X'03040506',X'070809FF'
            01 01E21    03040506 A
            01 01E22    070809FF A
     4537   01 01E23    FFFFFF01 A   DTAS93   DATA     X'FFFFFF01',X'02030405',X'06070809',X'FFFFFFFF'
            01 01E24    02030405 A
            01 01E25    06070809 A
            01 01E26    FFFFFFFF A
     4538   01 01E27    01020304 A   DTAD90   DATA     X'01020304',X'05060708',X'00FFFFFF'
            01 01E28    05060708 A
            01 01E29    00FFFFFF A
     4539   01 01E2A    FF010203 A   DTAD91   DATA     X'FF010203',X'04050607',X'0800FFFF'
            01 01E2B    04050607 A
            01 01E2C    0800FFFF A
     4540   01 01E2D    FFFF0102 A   DTAD92   DATA     X'FFFF0102',X'03040506',X'070800FF'
            01 01E2E    03040506 A
            01 01E2F    070800FF A
     4541   01 01E30    FFFFFF01 A   DTAD93   DATA     X'FFFFFF01',X'02030405',X'06070800'
            01 01E31    02030405 A
            01 01E32    06070800 A
     4542   01 01E33    01020304 A   DTASA0   DATA     X'01020304',X'05060708',X'090AFFFF'
            01 01E34    05060708 A
            01 01E35    090AFFFF A
     4543   01 01E36    FF010203 A   DTASA1   DATA     X'FF010203',X'04050607',X'08090AFF'
            01 01E37    04050607 A
            01 01E38    08090AFF A
     4544   01 01E39    FFFF0102 A   DTASA2   DATA     X'FFFF0102',X'03040506',X'0708090A',X'FFFFFFFF'
            01 01E3A    03040506 A
            01 01E3B    0708090A A
            01 01E3C    FFFFFFFF A
     4545   01 01E3D    FFFFFF01 A   DTASA3   DATA     X'FFFFFF01',X'02030405',X'06070809',X'0AFFFFFF'
            01 01E3E    02030405 A
            01 01E3F    06070809 A
            01 01E40    0AFFFFFF A
     4546   01 01E41    01020304 A   DTADA0   DATA     X'01020304',X'05060708',X'0900FFFF'
            01 01E42    05060708 A
            01 01E43    0900FFFF A
     4547   01 01E44    FF010203 A   DTADA1   DATA     X'FF010203',X'04050607',X'080900FF'
            01 01E45    04050607 A
            01 01E46    080900FF A
     4548   01 01E47    FFFF0102 A   DTADA2   DATA     X'FFFF0102',X'03040506',X'07080900'
            01 01E48    03040506 A
            01 01E49    07080900 A
     4549   01 01E4A    FFFFFF01 A   DTADA3   DATA     X'FFFFFF01',X'02030405',X'06070809',X'00FFFFFF'
            01 01E4B    02030405 A
            01 01E4C    06070809 A
            01 01E4D    00FFFFFF A
     4550   01 01E4E    01020304 A   DTASB0   DATA     X'01020304',X'05060708',X'090A0BFF'
            01 01E4F    05060708 A
            01 01E50    090A0BFF A
     4551   01 01E51    FF010203 A   DTASB1   DATA     X'FF010203',X'04050607',X'08090A0B',X'FFFFFFFF'
            01 01E52    04050607 A
            01 01E53    08090A0B A
            01 01E54    FFFFFFFF A
     4552   01 01E55    FFFF0102 A   DTASB2   DATA     X'FFFF0102',X'03040506',X'0708090A',X'0BFFFFFF'
            01 01E56    03040506 A
            01 01E57    0708090A A
            01 01E58    0BFFFFFF A
     4553   01 01E59    FFFFFF01 A   DTASB3   DATA     X'FFFFFF01',X'02030405',X'06070809',X'0A0BFFFF'
            01 01E5A    02030405 A
            01 01E5B    06070809 A
            01 01E5C    0A0BFFFF A
     4554   01 01E5D    01020304 A   DTADB0   DATA     X'01020304',X'05060708',X'090A00FF'
            01 01E5E    05060708 A
            01 01E5F    090A00FF A
     4555   01 01E60    FF010203 A   DTADB1   DATA     X'FF010203',X'04050607',X'08090A00'
            01 01E61    04050607 A
            01 01E62    08090A00 A
     4556   01 01E63    FFFF0102 A   DTADB2   DATA     X'FFFF0102',X'03040506',X'0708090A',X'00FFFFFF'
            01 01E64    03040506 A
            01 01E65    0708090A A
            01 01E66    00FFFFFF A
     4557   01 01E67    FFFFFF01 A   DTADB3   DATA     X'FFFFFF01',X'02030405',X'06070809',X'0A00FFFF'
            01 01E68    02030405 A
            01 01E69    06070809 A
            01 01E6A    0A00FFFF A
     4558   01 01E6B    01020304 A   DTASC0   DATA     X'01020304',X'05060708',X'090A0B0C',X'FFFFFFFF'
            01 01E6C    05060708 A
            01 01E6D    090A0B0C A
            01 01E6E    FFFFFFFF A
     4559   01 01E6F    FF010203 A   DTASC1   DATA     X'FF010203',X'04050607',X'08090A0B',X'0CFFFFFF'
            01 01E70    04050607 A
            01 01E71    08090A0B A
            01 01E72    0CFFFFFF A
     4560   01 01E73    FFFF0102 A   DTASC2   DATA     X'FFFF0102',X'03040506',X'0708090A',X'0B0CFFFF'
            01 01E74    03040506 A
            01 01E75    0708090A A
            01 01E76    0B0CFFFF A
     4561   01 01E77    FFFFFF01 A   DTASC3   DATA     X'FFFFFF01',X'02030405',X'06070809',X'0A0B0CFF'
            01 01E78    02030405 A
            01 01E79    06070809 A
            01 01E7A    0A0B0CFF A
     4562   01 01E7B    01020304 A   DTADC0   DATA     X'01020304',X'05060708',X'090A0B00'
            01 01E7C    05060708 A
            01 01E7D    090A0B00 A
     4563   01 01E7E    FF010203 A   DTADC1   DATA     X'FF010203',X'04050607',X'08090A0B',X'00FFFFFF'
            01 01E7F    04050607 A
            01 01E80    08090A0B A
            01 01E81    00FFFFFF A
     4564   01 01E82    FFFF0102 A   DTADC2   DATA     X'FFFF0102',X'03040506',X'0708090A',X'0B00FFFF'
            01 01E83    03040506 A
            01 01E84    0708090A A
            01 01E85    0B00FFFF A
     4565   01 01E86    FFFFFF01 A   DTADC3   DATA     X'FFFFFF01',X'02030405',X'06070809',X'0A0B00FF'
            01 01E87    02030405 A
            01 01E88    06070809 A
            01 01E89    0A0B00FF A
     4566                            *
     4567                            *
     4568                            *
     4569   01 01E8A    01020304 A   DTA027   DATA     X'01020304',X'0506FF08'
            01 01E8B    0506FF08 A
     4570         01 01DDA           DTA037   EQU      DTAS60
     4571   01 01E8C    01020304 A   DTA046   DATA     X'01020304',X'05FF0708'
            01 01E8D    05FF0708 A
     4572   01 01E8E    01020304 A   DTA056   DATA     X'01020304',X'05FF07FF'
            01 01E8F    05FF07FF A
     4573   01 01E90    01020304 A   DTA066   DATA     X'01020304',X'05FFFF08'
            01 01E91    05FFFF08 A
     4574         01 01DC7           DTA076   EQU      DTAS50
     4575   01 01E92    01020304 A   DTA085   DATA     X'01020304',X'FF060708'
            01 01E93    FF060708 A
     4576   01 01E94    01020304 A   DTA095   DATA     X'01020304',X'FF0607FF'
            01 01E95    FF0607FF A
     4577   01 01E96    01020304 A   DTA0A5   DATA     X'01020304',X'FF06FF08'
            01 01E97    FF06FF08 A
     4578   01 01E98    01020304 A   DTA0B5   DATA     X'01020304',X'FF06FFFF'
            01 01E99    FF06FFFF A
     4579   01 01E9A    01020304 A   DTA0C5   DATA     X'01020304',X'FFFF0708'
            01 01E9B    FFFF0708 A
     4580   01 01E9C    01020304 A   DTA0D5   DATA     X'01020304',X'FFFF07FF'
            01 01E9D    FFFF07FF A
     4581   01 01E9E    01020304 A   DTA0E5   DATA     X'01020304',X'FFFFFF08'
            01 01E9F    FFFFFF08 A
     4582         01 01DB5           DTA0F5   EQU      DTAS40
     4583   01 01EA0    FF010203 A   DTA127   DATA     X'FF010203',X'040506FF',X'08FFFFFF'
            01 01EA1    040506FF A
            01 01EA2    08FFFFFF A
     4584         01 01DDC           DTA137   EQU      DTAS61
     4585   01 01EA3    FF010203 A   DTA146   DATA     X'FF010203',X'0405FF07',X'08FFFFFF'
            01 01EA4    0405FF07 A
            01 01EA5    08FFFFFF A
     4586   01 01EA6    FF010203 A   DTA156   DATA     X'FF010203',X'0405FF07',X'FFFFFFFF'
            01 01EA7    0405FF07 A
            01 01EA8    FFFFFFFF A
     4587   01 01EA9    FF010203 A   DTA166   DATA     X'FF010203',X'0405FFFF',X'08FFFFFF'
            01 01EAA    0405FFFF A
            01 01EAB    08FFFFFF A
     4588         01 01DC9           DTA176   EQU      DTAS51
     4589   01 01EAC    FF010203 A   DTA185   DATA     X'FF010203',X'04FF0607',X'08FFFFFF'
            01 01EAD    04FF0607 A
            01 01EAE    08FFFFFF A
     4590   01 01EAF    FF010203 A   DTA195   DATA     X'FF010203',X'04FF0607',X'FFFFFFFF'
            01 01EB0    04FF0607 A
            01 01EB1    FFFFFFFF A
     4591   01 01EB2    FF010203 A   DTA1A5   DATA     X'FF010203',X'04FF06FF',X'08FFFFFF'
            01 01EB3    04FF06FF A
            01 01EB4    08FFFFFF A
     4592   01 01EB5    FF010203 A   DTA1B5   DATA     X'FF010203',X'04FF06FF',X'FFFFFFFF'
            01 01EB6    04FF06FF A
            01 01EB7    FFFFFFFF A
     4593   01 01EB8    FF010203 A   DTA1C5   DATA     X'FF010203',X'04FFFF07',X'08FFFFFF'
            01 01EB9    04FFFF07 A
            01 01EBA    08FFFFFF A
     4594   01 01EBB    FF010203 A   DTA1D5   DATA     X'FF010203',X'04FFFF07',X'FFFFFFFF'
            01 01EBC    04FFFF07 A
            01 01EBD    FFFFFFFF A
     4595   01 01EBE    FF010203 A   DTA1E5   DATA     X'FF010203',X'04FFFFFF',X'08FFFFFF'
            01 01EBF    04FFFFFF A
            01 01EC0    08FFFFFF A
     4596         01 01DB7           DTA1F5   EQU      DTAS41
     4597   01 01EC1    FFFF0102 A   DTA227   DATA     X'FFFF0102',X'03040506',X'FF08FFFF'
            01 01EC2    03040506 A
            01 01EC3    FF08FFFF A
     4598         01 01DDF           DTA237   EQU      DTAS62
     4599   01 01EC4    FFFF0102 A   DTA246   DATA     X'FFFF0102',X'030405FF',X'0708FFFF'
            01 01EC5    030405FF A
            01 01EC6    0708FFFF A
     4600   01 01EC7    FFFF0102 A   DTA256   DATA     X'FFFF0102',X'030405FF',X'07FFFFFF'
            01 01EC8    030405FF A
            01 01EC9    07FFFFFF A
     4601   01 01ECA    FFFF0102 A   DTA266   DATA     X'FFFF0102',X'030405FF',X'FF08FFFF'
            01 01ECB    030405FF A
            01 01ECC    FF08FFFF A
     4602         01 01DCC           DTA276   EQU      DTAS52
     4603   01 01ECD    FFFF0102 A   DTA285   DATA     X'FFFF0102',X'0304FF06',X'0708FFFF'
            01 01ECE    0304FF06 A
            01 01ECF    0708FFFF A
     4604   01 01ED0    FFFF0102 A   DTA295   DATA     X'FFFF0102',X'0304FF06',X'07FFFFFF'
            01 01ED1    0304FF06 A
            01 01ED2    07FFFFFF A
     4605   01 01ED3    FFFF0102 A   DTA2A5   DATA     X'FFFF0102',X'0304FF06',X'FF08FFFF'
            01 01ED4    0304FF06 A
            01 01ED5    FF08FFFF A
     4606   01 01ED6    FFFF0102 A   DTA2B5   DATA     X'FFFF0102',X'0304FF06',X'FFFFFFFF'
            01 01ED7    0304FF06 A
            01 01ED8    FFFFFFFF A
     4607   01 01ED9    FFFF0102 A   DTA2C5   DATA     X'FFFF0102',X'0304FFFF',X'0708FFFF'
            01 01EDA    0304FFFF A
            01 01EDB    0708FFFF A
     4608   01 01EDC    FFFF0102 A   DTA2D5   DATA     X'FFFF0102',X'0304FFFF',X'07FFFFFF'
            01 01EDD    0304FFFF A
            01 01EDE    07FFFFFF A
     4609   01 01EDF    FFFF0102 A   DTA2E5   DATA     X'FFFF0102',X'0304FFFF',X'FF08FFFF'
            01 01EE0    0304FFFF A
            01 01EE1    FF08FFFF A
     4610         01 01DBA           DTA2F5   EQU      DTAS42
     4611   01 01EE2    FFFFFF01 A   DTA327   DATA     X'FFFFFF01',X'02030405',X'06FF08FF'
            01 01EE3    02030405 A
            01 01EE4    06FF08FF A
     4612         01 01DE2           DTA337   EQU      DTAS63
     4613   01 01EE5    FFFFFF01 A   DTA346   DATA     X'FFFFFF01',X'02030405',X'FF0708FF'
            01 01EE6    02030405 A
            01 01EE7    FF0708FF A
     4614   01 01EE8    FFFFFF01 A   DTA356   DATA     X'FFFFFF01',X'02030405',X'FF07FFFF'
            01 01EE9    02030405 A
            01 01EEA    FF07FFFF A
     4615   01 01EEB    FFFFFF01 A   DTA366   DATA     X'FFFFFF01',X'02030405',X'FFFF08FF'
            01 01EEC    02030405 A
            01 01EED    FFFF08FF A
     4616         01 01DCF           DTA376   EQU      DTAS53
     4617   01 01EEE    FFFFFF01 A   DTA385   DATA     X'FFFFFF01',X'020304FF',X'060708FF'
            01 01EEF    020304FF A
            01 01EF0    060708FF A
     4618   01 01EF1    FFFFFF01 A   DTA395   DATA     X'FFFFFF01',X'020304FF',X'0607FFFF'
            01 01EF2    020304FF A
            01 01EF3    0607FFFF A
     4619   01 01EF4    FFFFFF01 A   DTA3A5   DATA     X'FFFFFF01',X'020304FF',X'06FF08FF'
            01 01EF5    020304FF A
            01 01EF6    06FF08FF A
     4620   01 01EF7    FFFFFF01 A   DTA3B5   DATA     X'FFFFFF01',X'020304FF',X'06FFFFFF'
            01 01EF8    020304FF A
            01 01EF9    06FFFFFF A
     4621   01 01EFA    FFFFFF01 A   DTA3C5   DATA     X'FFFFFF01',X'020304FF',X'FF0708FF'
            01 01EFB    020304FF A
            01 01EFC    FF0708FF A
     4622   01 01EFD    FFFFFF01 A   DTA3D5   DATA     X'FFFFFF01',X'020304FF',X'FF07FFFF'
            01 01EFE    020304FF A
            01 01EFF    FF07FFFF A
     4623   01 01F00    FFFFFF01 A   DTA3E5   DATA     X'FFFFFF01',X'020304FF',X'FFFF08FF'
            01 01F01    020304FF A
            01 01F02    FFFF08FF A
     4624         01 01DBD           DTA3F5   EQU      DTAS43
     4625   01 01F03    01020304 A   DTADXX   DATA     X'01020304'
     4626   01 01F04    05060708 A            DATA     X'05060708'
     4627   01 01F05    090A0B0C A            DATA     X'090A0B0C'
     4628   01 01F06    0D0E0F10 A            DATA     X'0D0E0F10'
     4629   01 01F07    11121314 A            DATA     X'11121314'
     4630   01 01F08    01020304 A   RIGHT00  DATA     X'01020304',X'05060708',X'090A0B0C',X'01020304'
            01 01F09    05060708 A
            01 01F0A    090A0B0C A
            01 01F0B    01020304 A
     4631   01 01F0C    05060708 A            DATA     X'05060708',X'090A0B0C'
            01 01F0D    090A0B0C A
     4632   01 01F0E    01020304 A   RIGHT01  DATA     X'01020304',X'05060708',X'090A0B01',X'02030405'
            01 01F0F    05060708 A
            01 01F10    090A0B01 A
            01 01F11    02030405 A
     4633   01 01F12    06070809 A   RIGHT    DATA     X'06070809',X'0A0B0100'
            01 01F13    0A0B0100 A
     4634   01 01F14    01020304 A   RIGHT03  DATA     X'01020304',X'05060708',X'09010203',X'04050607'
            01 01F15    05060708 A
            01 01F16    09010203 A
            01 01F17    04050607 A
     4635   01 01F18    08090102 A            DATA     X'08090102',X'03000000'
            01 01F19    03000000 A
     4636   01 01F1A    01020304 A   RIGHT04  DATA     X'01020304',X'05060708',X'01020304',X'05060708'
            01 01F1B    05060708 A
            01 01F1C    01020304 A
            01 01F1D    05060708 A
     4637   01 01F1E    01020304 A            DATA     X'01020304'
     4638   01 01F1F    01020304 A   RIGHT07  DATA     X'01020304',X'05010203',X'04050102',X'03040501'
            01 01F20    05010203 A
            01 01F21    04050102 A
            01 01F22    03040501 A
     4639   01 01F23    02000000 A            DATA     X'02000000'
     4640   01 01F24    01020304 A   RIGHT08  DATA     X'01020304',X'01020304',X'01020304',X'01020304'
            01 01F25    01020304 A
            01 01F26    01020304 A
            01 01F27    01020304 A
     4641   01 01F28    01010101 A   RIGHT11  DATA     X'01010101',X'01010101',X'01010101',X'01000000'
            01 01F29    01010101 A
            01 01F2A    01010101 A
            01 01F2B    01000000 A
     4642   01 01F2C    01020304 A   DTASCX   DATA     X'01020304',X'05060000'
            01 01F2D    05060000 A
     4643   01 01F2E    01020304 A   LEFT00   DATA     X'01020304',X'05060102',X'03040506'
            01 01F2F    05060102 A
            01 01F30    03040506 A
     4644   01 01F31    01020304 A   LEFT01   DATA     X'01020304',X'05010203',X'04050100'
            01 01F32    05010203 A
            01 01F33    04050100 A
     4645   01 01F34    01020304 A   LEFT03   DATA     X'01020304',X'01020304',X'01020000'
            01 01F35    01020304 A
            01 01F36    01020000 A
     4646   01 01F37    01020301 A   LEFT04   DATA     X'01020301',X'02030102',X'03000000'
            01 01F38    02030102 A
            01 01F39    03000000 A
     4647   01 01F3A    01020102 A   LEFT07   DATA     X'01020102',X'01020102'
            01 01F3B    01020102 A
     4648   01 01F3C    01010101 A   LEFT08   DATA     X'01010101',X'01010100'
            01 01F3D    01010100 A
     4649   01 01F3E    01020300 A   DTASCY   DATA     X'01020300'
     4650   01 01F3F    01020301 A   LEFT11   DATA     X'01020301',X'02030000'
            01 01F40    02030000 A
     4651   01 01F41    01020102 A   LEFT12   DATA     X'01020102',X'01000000'
            01 01F42    01000000 A
     4652   01 01F43    01010101 A   LEFT13   DATA     X'01010101'
     4653                                     BOUND    8
     4654   01 01F44    80000001 A            DATA     X'80000001'       CONVERT TABLE
     4655         01 01F45           MSK:LST  EQU      %
     4656   01 01F45    80000000 A   CVT      DATA     X'80000000'
     4657   01 01F46    40000000 A            DATA     X'40000000'
     4658   01 01F47    20000000 A            DATA     X'20000000'
     4659   01 01F48    10000000 A            DATA     X'10000000'
     4660   01 01F49    08000000 A            DATA     X'8000000'
     4661   01 01F4A    04000000 A            DATA     X'4000000'
     4662   01 01F4B    02000000 A            DATA     X'2000000'
     4663   01 01F4C    01000000 A            DATA     X'1000000'
     4664   01 01F4D    00800000 A            DATA     X'800000'
     4665   01 01F4E    00400000 A            DATA     X'400000'
     4666   01 01F4F    00200000 A            DATA     X'200000'
     4667   01 01F50    00100000 A            DATA     X'100000'
     4668   01 01F51    00080000 A            DATA     X'80000'
     4669   01 01F52    00040000 A            DATA     X'40000'
     4670   01 01F53    00020000 A            DATA     X'20000'
     4671   01 01F54    00010000 A            DATA     X'10000'
     4672   01 01F55    00008000 A            DATA     X'8000'
     4673   01 01F56    00004000 A            DATA     X'4000'
     4674   01 01F57    00002000 A            DATA     X'2000'
     4675   01 01F58    00001000 A            DATA     X'1000'
     4676   01 01F59    00000800 A            DATA     X'800'
     4677   01 01F5A    00000400 A            DATA     X'400'
     4678   01 01F5B    00000200 A            DATA     X'200'
     4679         01 01F5C           MSK:BTM  EQU      %
     4680   01 01F5C    00000100 A            DATA     X'100'
     4681   01 01F5D    00000080 A            DATA     X'80'
     4682   01 01F5E    00000040 A            DATA     X'40'
     4683   01 01F5F    00000020 A            DATA     X'20'
     4684   01 01F60    00000010 A            DATA     X'10'
     4685   01 01F61    00000008 A            DATA     X'8'
     4686   01 01F62    00000004 A            DATA     X'4'
     4687   01 01F63    00000002 A            DATA     X'2'
     4688   01 01F64    00000001 A            DATA     X'1'
     4689   01 01F65    7FFFFFFF A            DATA     X'7FFFFFFF'
     4690                                     BOUND    8
     4691   01 01F66    00010203 A   TRTB     DATA     X'00010203'       TRANSLATE TABLE
     4692   01 01F67    04050607 A            DATA     X'04050607'
     4693   01 01F68    08090A0B A            DATA     X'08090A0B'
     4694   01 01F69    0C0D0E0F A            DATA     X'0C0D0E0F'
     4695   01 01F6A    10111213 A            DATA     X'10111213'
     4696   01 01F6B    14151617 A            DATA     X'14151617'
     4697   01 01F6C    18191A1B A            DATA     X'18191A1B'
     4698   01 01F6D    1C1D1E1F A            DATA     X'1C1D1E1F'
     4699   01 01F6E    20212223 A            DATA     X'20212223'
     4700   01 01F6F    24252627 A            DATA     X'24252627'
     4701   01 01F70    28292A2B A            DATA     X'28292A2B'
     4702   01 01F71    2C2D2E2F A            DATA     X'2C2D2E2F'
     4703   01 01F72    30313233 A            DATA     X'30313233'
     4704   01 01F73    34353637 A            DATA     X'34353637'
     4705   01 01F74    38393A3B A            DATA     X'38393A3B'
     4706   01 01F75    3C3D3E3F A            DATA     X'3C3D3E3F'
     4707   01 01F76    40414243 A            DATA     X'40414243'
     4708   01 01F77    44454647 A            DATA     X'44454647'
     4709   01 01F78    48494A4B A            DATA     X'48494A4B'
     4710   01 01F79    4C4D4E4F A            DATA     X'4C4D4E4F'
     4711   01 01F7A    50515253 A            DATA     X'50515253'
     4712   01 01F7B    54555657 A            DATA     X'54555657'
     4713   01 01F7C    58595A5B A            DATA     X'58595A5B'
     4714   01 01F7D    5C5D5E5F A            DATA     X'5C5D5E5F'
     4715   01 01F7E    60616263 A            DATA     X'60616263'
     4716   01 01F7F    64656667 A            DATA     X'64656667'
     4717   01 01F80    68696A6B A            DATA     X'68696A6B'
     4718   01 01F81    6C6D6E6F A            DATA     X'6C6D6E6F'
     4719   01 01F82    70717273 A            DATA     X'70717273'
     4720   01 01F83    74757677 A            DATA     X'74757677'
     4721   01 01F84    78797A7B A            DATA     X'78797A7B'
     4722   01 01F85    7C7D7E7F A            DATA     X'7C7D7E7F'
     4723   01 01F86    80818283 A            DATA     X'80818283'
     4724   01 01F87    84858687 A            DATA     X'84858687'
     4725   01 01F88    88898A8B A            DATA     X'88898A8B'
     4726   01 01F89    8C8D8E8F A            DATA     X'8C8D8E8F'
     4727   01 01F8A    90919293 A            DATA     X'90919293'
     4728   01 01F8B    94959697 A            DATA     X'94959697'
     4729   01 01F8C    98999A9B A            DATA     X'98999A9B'
     4730   01 01F8D    9C9D9E9F A            DATA     X'9C9D9E9F'
     4731   01 01F8E    A0A1A2A3 A            DATA     X'A0A1A2A3'
     4732   01 01F8F    A4A5A6A7 A            DATA     X'A4A5A6A7'
     4733   01 01F90    A8A9AAAB A            DATA     X'A8A9AAAB'
     4734   01 01F91    ACADAEAF A            DATA     X'ACADAEAF'
     4735   01 01F92    B0B1B2B3 A            DATA     X'B0B1B2B3'
     4736   01 01F93    B4B5B6B7 A            DATA     X'B4B5B6B7'
     4737   01 01F94    B8B9BABB A            DATA     X'B8B9BABB'
     4738   01 01F95    BCBDBEBF A            DATA     X'BCBDBEBF'
     4739   01 01F96    C0C1C2C3 A            DATA     X'C0C1C2C3'
     4740   01 01F97    C4C5C6C7 A            DATA     X'C4C5C6C7'
     4741   01 01F98    C8C9CACB A            DATA     X'C8C9CACB'
     4742   01 01F99    CCCDCECF A            DATA     X'CCCDCECF'
     4743   01 01F9A    D0D1D2D3 A            DATA     X'D0D1D2D3'
     4744   01 01F9B    D4D5D6D7 A            DATA     X'D4D5D6D7'
     4745   01 01F9C    D8D9DADB A            DATA     X'D8D9DADB'
     4746   01 01F9D    DCDDDEDF A            DATA     X'DCDDDEDF'
     4747   01 01F9E    E0E1E2E3 A            DATA     X'E0E1E2E3'
     4748   01 01F9F    E4E5E6E7 A            DATA     X'E4E5E6E7'
     4749   01 01FA0    E8E9EAEB A            DATA     X'E8E9EAEB'
     4750   01 01FA1    ECEDEEEF A            DATA     X'ECEDEEEF'
     4751   01 01FA2    F0F1F2F3 A            DATA     X'F0F1F2F3'
     4752   01 01FA3    F4F5F6F7 A            DATA     X'F4F5F6F7'
     4753   01 01FA4    F8F9FAFB A            DATA     X'F8F9FAFB'
     4754   01 01FA5    FCFDFEFF A            DATA     X'FCFDFEFF'
     4755                            *
     4756   01 01FA6    00001F65     IDCVT    DATA     CVT+32
     4757   01 01FA7    80000000 A   CVTO     DATA     X'80000000'
     4758   01 01FA8    80000000 A            DATA     X'80000000'
     4759   01 01FA9    00000001 A            DATA     1
     4760   01 01FAA    00000001 A            DATA     1
     4761   01 01FAB    C0000000 A   CVAT     DATA     X'C0000000'
     4762   01 01FAC    BFFFFFFE A   CVAC1    DATA     X'BFFFFFFE'
     4763   01 01FAD    7FFFFFFF A            DATA     X'7FFFFFFF'
     4764   01 01FAE    FFFFFFE0 A   IX       DATA     -32
     4765   01 01FAF    FFFFFFFF A            DATA     -1
     4766   01 01FB0    55555555 A            DATA     X'55555555'
     4767   01 01FB1    FFFFFFE0 A   IXO      DATA     -32
     4768   01 01FB2    00000000 A            DATA     0
     4769   01 01FB3    FFFFFFFF A            DATA     -1
     4770   01 01FB4    FFFFFFE0 A   IXO1     DATA     -32
     4771   01 01FB5    55555555 A            DATA     X'55555555'
     4772   01 01FB6    55555555 A            DATA     X'55555555'
     4773                            **********
     4774   01 01FB7                          RES      16
     4775                            **********
     4776   01 01FC7    FFFF0000 A   W0T15    DATA     X'FFFF0000'
     4777   01 01FC8    0001FE00 A   NEM      DATA     X'1FE00'                                          *A03
     4778   01 01FC9    0008FFFF A   MMCI     DATA     X'8FFFF'                                          *A03
     4779   01 01FCA    FFFFFC36 A   MMCD     DATA     X'FFFFFC36'                                       *A03
     4780   01 01FCB    FFFFFE1B A            DATA     X'FFFFFE1B'       DBL                             *A03
     4781   01 01FCC    FFFFF86C A            DATA     X'FFFFF86C'       HALF                            *A03
     4782   01 01FCD    FFFFF0D8 A            DATA     X'FFFFF0D8'       BYTE                            *A03
     4783                            *
     4784   01 01FCE    00000040 A            DATA     64
     4785   01 01FCF    00001036 A   LRAD     DATA     X'1036'           WORD                            *A03
     4786   01 01FD0    00000041 A            DATA     X'41'                                             *A03
     4787   01 01FD1    00000000 A            DATA     0                                                 *A03
     4788   01 01FD2    00000041 A            DATA     X'41'                                             *A03
     4789   01 01FD3    0000081B A            DATA     X'81B'            DBL                             *A03
     4790   01 01FD4    00000042 A            DATA     X'42'                                             *A03
     4791   01 01FD5    00000001 A            DATA     1                                                 *A03
     4792   01 01FD6    00000042 A            DATA     X'42'                                             *A03
     4793   01 01FD7    0000206C A            DATA     X'206C'           HALF                            *A03
     4794   01 01FD8    00000043 A            DATA     X'43'                                             *A03
     4795   01 01FD9    00000002 A            DATA     2                                                 *A03
     4796   01 01FDA    00000043 A            DATA     X'43'                                             *A03
     4797   01 01FDB    000040D8 A            DATA     X'40D8'           BYTE                            *A03
     4798                            *
     4799   01 01FDC    0301FFFF A   DTRO1    D        3,X'1FFFF'
     4800   01 01FDD    FFFFFFFF A   DTRO2    DATA     -1
     4801   01 01FDE    12C1FFFF A   DTMI1    LD,R12    -1
     4802   01 01FDF    22C70F0F A   DTMI2    LI,R12   X'70F0F'
     4803   01 01FE0    0701FFFF A   DTRO3    D        7,X'1FFFF'
     4804   01 01FE1    0101FFFF A   DTRO4    D        1,X'1FFFF'
     4805   01 01FE2    92C1FFFF A   DTMI4    LD,R12   *-1
     4806                            *                                    INSTRUCTIONS
     4807   01 01FE3    00007538     SUR1     F        0,0,BA(DTA1)
     4808   01 01FE4    0400EB00     DST1     F        4,0,BA(MEMORY)
     4809   01 01FE5    00007538     SR1      F        0,0,BA(DTA1)
     4810   01 01FE6    0000EB00     DT1      F        0,0,BA(MEMORY)
     4811   01 01FE7    00007548     SRR1     F        0,0,BA(DTA1+4)
     4812   01 01FE8    0000EB00     DTT1     F        0,0,BA(MEMORY)
     4813   01 01FE9    00007538     SR2      F        0,0,BA(DTA1)
     4814   01 01FEA    0400EB00     DT2      F        4,0,BA(MEMORY)
     4815   01 01FEB    0000753C     SRR2     F        0,0,BA(DTA1)+4
     4816   01 01FEC    0000EB04     DTT2     F        0,0,BA(MEMORY)+4
     4817   01 01FED    000075E8     SR3      F        0,0,BA(DTA4)
     4818   01 01FEE    0300EB03     DT3      F        3,0,BA(MEMORY)+3
     4819   01 01FEF    000075EB     SRR3     F        0,0,BA(DTA4)+3
     4820   01 01FF0    0000EB06     DTT3     F        0,0,BA(MEMORY)+6
     4821   01 01FF1    000075EC     SR4      F        0,0,BA(DTA4+1)
     4822   01 01FF2    0100EB01     DT4      F        1,0,BA(MEMORY)+1
     4823   01 01FF3    000075ED     SRR4     F        0,0,BA(DTA4+1)+1
     4824   01 01FF4    0000EB02     DTT4     F        0,0,BA(MEMORY)+2
     4825   01 01FF5    000075F3     SR5      F        0,0,BA(DTA4+2)+3
     4826   01 01FF6    0200EB02     DT5      F        2,0,BA(MEMORY)+2
     4827   01 01FF7    000075F5     SRR5     F        0,0,BA(DTA4+2)+5
     4828   01 01FF8    0000EB04     DTT5     F        0,0,BA(MEMORY)+4
     4829   01 01FF9    000075F3     SRR5A    F        0,0,BA(DTA4+2)+3
     4830   01 01FFA    0000EB04     DTT5A    F        0,0,BA(MEMORY)+4
     4831   01 01FFB    00003AF5     SR6      DATA     HA(DTA4)+1
     4832   01 01FFC    0300EB00     DT6      F        3,0,BA(MEMORY)
     4833   01 01FFD    00003AF8     SRR6     DATA     HA(DTA4)+4
     4834   01 01FFE    0000EB03     DTT6     F        0,0,BA(MEMORY)+3
     4835   01 01FFF    0300EB00     SR7      F        3,0,BA(MEMORY)
     4836   01 02000    0000EB03     SRR7     F        0,0,BA(MEMORY)+3
     4837   01 02001    0400EB00     SR8      F        4,0,BA(MEMORY)
     4838   01 02002    00007538     SR8A     F        0,0,BA(DTA1)
     4839   01 02003    0000EB04     SRR8     F        0,0,BA(MEMORY)+4
     4840   01 02004    00000000 A   SR9      F        0,0,0
     4841   01 02005    0500EB04     DT9      F        5,0,BA(MEMORY+1)
     4842   01 02006    00000005 A   SRR9     F        0,0,5
     4843   01 02007    0000EB09     DTT9     F        0,0,BA(MEMORY+1)+5
     4844   01 02008    00000000 A   SR10     F        0,0,0                  REGISTER VALUES FOR
     4845   01 02009    0300EB09     DT10     F        3,0,BA(MEMORY+2)+1      BYTE INSTRUCTIONS
     4846   01 0200A    00000003 A   SRR10    F        0,0,3
     4847   01 0200B    0000EB0C     DTT10    F        0,0,BA(MEMORY+2)+4
     4848   01 0200C    00007538     SR11     F        0,0,BA(DTA1)
     4849   01 0200D    FF00EB00     DT11     F        255,0,BA(MEMORY)
     4850   01 0200E    0700EBF8     DT11A    F        7,0,BA(MEMORY)+248
     4851   01 0200F    00007538     SRR11    F        0,0,BA(DTA1)
     4852   01 02010    0000EBFF     DTT11    F        0,0,BA(MEMORY)+255
     4853   01 02011    00007637     SRR11A   F        0,0,BA(DTA1)+255
     4854   01 02012    0000EBFF     DTT11A   F        0,0,BA(MEMORY)+255
     4855   01 02013    00007578     SR12     F        0,0,BA(DTA2)
     4856   01 02014    06007581     DT12     F        6,0,BA(DTA2+2)+1
     4857   01 02015    00007578     SRR12    F        0,0,BA(DTA2)
     4858   01 02016    00007587     DTT12    F        0,0,BA(DTA2+2)+7
     4859   01 02017    00007538     SR13     F        0,0,BA(DTA1)
     4860   01 02018    0300753C     DT13     F        3,0,BA(DTA1+1)
     4861   01 02019    00007538     SRR13    F        0,0,BA(DTA1)
     4862   01 0201A    0000753F     DTT13    F        0,0,BA(DTA1+1)+3
     4863   01 0201B    020075A8     SR14     F        2,0,BA(DTA2+12)
     4864   01 0201C    000075AA     SRR14    F        0,0,BA(DTA2+12)+2
     4865   01 0201D    00007538     SR15     F        0,0,BA(DTA1)
     4866   01 0201E    0300EB00     DT15     F        3,0,BA(MEMORY)
     4867   01 0201F    00007538     SRR15    F        0,0,BA(DTA1)
     4868   01 02020    0000EB03     DTT15    F        0,0,BA(MEMORY)+3
     4869   01 02021    800075A0     SR16     F        X'80',0,BA(DTA2+10)
     4870   01 02022    0600EB00     DT16     F        6,0,BA(MEMORY)
     4871   01 02023    800075A0     SRR16    F        X'80',0,BA(DTA2+10)
     4872   01 02024    0200EB04     DTT16    F        2,0,BA(MEMORY+1)
     4873   01 02025    40007588     SR17     F        X'40',0,BA(DTA2+4)
     4874   01 02026    0600EB08     DT17     F        6,0,BA(MEMORY+2)
     4875   01 02027    40007588     SRR17    F        X'40',0,BA(DTA2+4)
     4876   01 02028    0200EB0C     DTT17    F        2,0,BA(MEMORY+2)+4
     4877   01 02029    20007588     SR18     F        X'20',0,BA(DTA2+4)
     4878   01 0202A    0600EB00     DT18     F        6,0,BA(MEMORY)
     4879   01 0202B    20007588     SRR18    F        X'20',0,BA(DTA2+4)
     4880   01 0202C    0600EB00     DTT18    F        6,0,BA(MEMORY)
     4881   01 0202D    10007584     SR19     F        X'10',0,BA(DTA2+3)  REGISTER VALUES FOR BYTE INSTRUC-
     4882   01 0202E    0700EB00     DT19     F        7,0,BA(MEMORY)       TIONS
     4883   01 0202F    10007584     SRR19    F        X'10',0,BA(DTA2+3)
     4884   01 02030    0300EB04     DTT19    F        3,0,BA(MEMORY)+4
     4885   01 02031    08007578     SR20     F        8,0,BA(DTA2)
     4886   01 02032    0300EB0C     DT20     F        3,0,BA(MEMORY+3)
     4887   01 02033    04007591     SR21     F        4,0,BA(DTA2+6)+1
     4888   01 02034    0200EB03     DT21     F        2,0,BA(MEMORY)+3
     4889   01 02035    02007588     SR22     F        2,0,BA(DTA2+4)
     4890   01 02036    0100EB00     DT22     F        1,0,BA(MEMORY)
     4891   01 02037    0100757C     SR23     F        1,0,BA(DTA2+1)
     4892   01 02038    0900EB00     DT23     F        9,0,BA(MEMORY)
     4893   01 02039    0400EB00     DT24     F        4,0,BA(MEMORY)
     4894   01 0203A    0C000000 A   SRR24    F        12,0,0
     4895   01 0203B    0300EB01     DTT24    F        3,0,BA(MEMORY)+1
     4896   01 0203C    0400EB00     DT25     F        4,0,BA(MEMORY)
     4897   01 0203D    0000EB04     DTT25    F        0,0,BA(MEMORY)+4
     4898   01 0203E    07007528     DT26     F        7,0,BA(DTA0+4)
     4899   01 0203F    06007529     DTT26    F        6,0,BA(DTA0+4)+1
     4900   01 02040    060075B0     DT27     F        6,0,BA(DTA2+14)
     4901   01 02041    030075B3     DTT27    F        3,0,BA(DTA2+14)+3
     4902   01 02042    10007650     S0DXC1   F        16,0,BA(DTAS10)+0
     4903   01 02043    01007C0C              F        01,0,BA(DTADXX)
     4904   01 02044    10007650              F        16,0,BA(DTAS10)+0
     4905   01 02045    01007C0C              F        01,0,BA(DTADXX)+00
     4906   01 02046    10007655     S1DXC1   F        16,0,BA(DTAS11)+1
     4907   01 02047    01007C0C              F        01,0,BA(DTADXX)
     4908   01 02048    10007655              F        16,0,BA(DTAS11)+1
     4909   01 02049    01007C0C              F        01,0,BA(DTADXX)+00
     4910   01 0204A    1000765A     S2DXC1   F        16,0,BA(DTAS12)+2
     4911   01 0204B    01007C0C              F        01,0,BA(DTADXX)
     4912   01 0204C    1000765A              F        16,0,BA(DTAS12)+2
     4913   01 0204D    01007C0C              F        01,0,BA(DTADXX)+00
     4914   01 0204E    1000765F     S3DXC1   F        16,0,BA(DTAS13)+3
     4915   01 0204F    01007C0C              F        01,0,BA(DTADXX)
     4916   01 02050    1000765F              F        16,0,BA(DTAS13)+3
     4917   01 02051    01007C0C              F        01,0,BA(DTADXX)+00
     4918   01 02052    10007674     S0DXC2   F        16,0,BA(DTAS20)+0
     4919   01 02053    02007C0C              F        02,0,BA(DTADXX)
     4920   01 02054    10007674              F        16,0,BA(DTAS20)+0
     4921   01 02055    01007C0D              F        01,0,BA(DTADXX)+01
     4922   01 02056    10007679     S1DXC2   F        16,0,BA(DTAS21)+1
     4923   01 02057    02007C0C              F        02,0,BA(DTADXX)
     4924   01 02058    10007679              F        16,0,BA(DTAS21)+1
     4925   01 02059    01007C0D              F        01,0,BA(DTADXX)+01
     4926   01 0205A    1000767E     S2DXC2   F        16,0,BA(DTAS22)+2
     4927   01 0205B    02007C0C              F        02,0,BA(DTADXX)
     4928   01 0205C    1000767E              F        16,0,BA(DTAS22)+2
     4929   01 0205D    01007C0D              F        01,0,BA(DTADXX)+01
     4930   01 0205E    10007687     S3DXC2   F        16,0,BA(DTAS23)+3
     4931   01 0205F    02007C0C              F        02,0,BA(DTADXX)
     4932   01 02060    10007687              F        16,0,BA(DTAS23)+3
     4933   01 02061    01007C0D              F        01,0,BA(DTADXX)+01
     4934   01 02062    100076A0     S0DXC3   F        16,0,BA(DTAS30)+0
     4935   01 02063    03007C0C              F        03,0,BA(DTADXX)
     4936   01 02064    100076A0              F        16,0,BA(DTAS30)+0
     4937   01 02065    01007C0E              F        01,0,BA(DTADXX)+02
     4938   01 02066    100076A5     S1DXC3   F        16,0,BA(DTAS31)+1
     4939   01 02067    03007C0C              F        03,0,BA(DTADXX)
     4940   01 02068    100076A5              F        16,0,BA(DTAS31)+1
     4941   01 02069    01007C0E              F        01,0,BA(DTADXX)+02
     4942   01 0206A    100076AE     S2DXC3   F        16,0,BA(DTAS32)+2
     4943   01 0206B    03007C0C              F        03,0,BA(DTADXX)
     4944   01 0206C    100076AE              F        16,0,BA(DTAS32)+2
     4945   01 0206D    01007C0E              F        01,0,BA(DTADXX)+02
     4946   01 0206E    100076B7     S3DXC3   F        16,0,BA(DTAS33)+3
     4947   01 0206F    03007C0C              F        03,0,BA(DTADXX)
     4948   01 02070    100076B7              F        16,0,BA(DTAS33)+3
     4949   01 02071    01007C0E              F        01,0,BA(DTADXX)+02
     4950   01 02072    100076D4     S0DXC4   F        16,0,BA(DTAS40)+0
     4951   01 02073    04007C0C              F        04,0,BA(DTADXX)
     4952   01 02074    100076D4              F        16,0,BA(DTAS40)+0
     4953   01 02075    01007C0F              F        01,0,BA(DTADXX)+03
     4954   01 02076    100076DD     S1DXC4   F        16,0,BA(DTAS41)+1
     4955   01 02077    04007C0C              F        04,0,BA(DTADXX)
     4956   01 02078    100076DD              F        16,0,BA(DTAS41)+1
     4957   01 02079    01007C0F              F        01,0,BA(DTADXX)+03
     4958   01 0207A    100076EA     S2DXC4   F        16,0,BA(DTAS42)+2
     4959   01 0207B    04007C0C              F        04,0,BA(DTADXX)
     4960   01 0207C    100076EA              F        16,0,BA(DTAS42)+2
     4961   01 0207D    01007C0F              F        01,0,BA(DTADXX)+03
     4962   01 0207E    100076F7     S3DXC4   F        16,0,BA(DTAS43)+3
     4963   01 0207F    04007C0C              F        04,0,BA(DTADXX)
     4964   01 02080    100076F7              F        16,0,BA(DTAS43)+3
     4965   01 02081    01007C0F              F        01,0,BA(DTADXX)+03
     4966   01 02082    1000771C     S0DXC5   F        16,0,BA(DTAS50)+0
     4967   01 02083    05007C0C              F        05,0,BA(DTADXX)
     4968   01 02084    1000771C              F        16,0,BA(DTAS50)+0
     4969   01 02085    01007C10              F        01,0,BA(DTADXX)+04
     4970   01 02086    10007725     S1DXC5   F        16,0,BA(DTAS51)+1
     4971   01 02087    05007C0C              F        05,0,BA(DTADXX)
     4972   01 02088    10007725              F        16,0,BA(DTAS51)+1
     4973   01 02089    01007C10              F        01,0,BA(DTADXX)+04
     4974   01 0208A    10007732     S2DXC5   F        16,0,BA(DTAS52)+2
     4975   01 0208B    05007C0C              F        05,0,BA(DTADXX)
     4976   01 0208C    10007732              F        16,0,BA(DTAS52)+2
     4977   01 0208D    01007C10              F        01,0,BA(DTADXX)+04
     4978   01 0208E    1000773F     S3DXC5   F        16,0,BA(DTAS53)+3
     4979   01 0208F    05007C0C              F        05,0,BA(DTADXX)
     4980   01 02090    1000773F              F        16,0,BA(DTAS53)+3
     4981   01 02091    01007C10              F        01,0,BA(DTADXX)+04
     4982   01 02092    10007768     S0DXC6   F        16,0,BA(DTAS60)+0
     4983   01 02093    06007C0C              F        06,0,BA(DTADXX)
     4984   01 02094    10007768              F        16,0,BA(DTAS60)+0
     4985   01 02095    01007C11              F        01,0,BA(DTADXX)+05
     4986   01 02096    10007771     S1DXC6   F        16,0,BA(DTAS61)+1
     4987   01 02097    06007C0C              F        06,0,BA(DTADXX)
     4988   01 02098    10007771              F        16,0,BA(DTAS61)+1
     4989   01 02099    01007C11              F        01,0,BA(DTADXX)+05
     4990   01 0209A    1000777E     S2DXC6   F        16,0,BA(DTAS62)+2
     4991   01 0209B    06007C0C              F        06,0,BA(DTADXX)
     4992   01 0209C    1000777E              F        16,0,BA(DTAS62)+2
     4993   01 0209D    01007C11              F        01,0,BA(DTADXX)+05
     4994   01 0209E    1000778B     S3DXC6   F        16,0,BA(DTAS63)+3
     4995   01 0209F    06007C0C              F        06,0,BA(DTADXX)
     4996   01 020A0    1000778B              F        16,0,BA(DTAS63)+3
     4997   01 020A1    01007C11              F        01,0,BA(DTADXX)+05
     4998   01 020A2    100077B8     S0DXC7   F        16,0,BA(DTAS70)+0
     4999   01 020A3    07007C0C              F        07,0,BA(DTADXX)
     5000   01 020A4    100077B8              F        16,0,BA(DTAS70)+0
     5001   01 020A5    01007C12              F        01,0,BA(DTADXX)+06
     5002   01 020A6    100077C1     S1DXC7   F        16,0,BA(DTAS71)+1
     5003   01 020A7    07007C0C              F        07,0,BA(DTADXX)
     5004   01 020A8    100077C1              F        16,0,BA(DTAS71)+1
     5005   01 020A9    01007C12              F        01,0,BA(DTADXX)+06
     5006   01 020AA    100077CE     S2DXC7   F        16,0,BA(DTAS72)+2
     5007   01 020AB    07007C0C              F        07,0,BA(DTADXX)
     5008   01 020AC    100077CE              F        16,0,BA(DTAS72)+2
     5009   01 020AD    01007C12              F        01,0,BA(DTADXX)+06
     5010   01 020AE    100077DB     S3DXC7   F        16,0,BA(DTAS73)+3
     5011   01 020AF    07007C0C              F        07,0,BA(DTADXX)
     5012   01 020B0    100077DB              F        16,0,BA(DTAS73)+3
     5013   01 020B1    01007C12              F        01,0,BA(DTADXX)+06
     5014   01 020B2    1000780C     S0DXC8   F        16,0,BA(DTAS80)+0
     5015   01 020B3    08007C0C              F        08,0,BA(DTADXX)
     5016   01 020B4    1000780C              F        16,0,BA(DTAS80)+0
     5017   01 020B5    01007C13              F        01,0,BA(DTADXX)+07
     5018   01 020B6    10007819     S1DXC8   F        16,0,BA(DTAS81)+1
     5019   01 020B7    08007C0C              F        08,0,BA(DTADXX)
     5020   01 020B8    10007819              F        16,0,BA(DTAS81)+1
     5021   01 020B9    01007C13              F        01,0,BA(DTADXX)+07
     5022   01 020BA    10007826     S2DXC8   F        16,0,BA(DTAS82)+2
     5023   01 020BB    08007C0C              F        08,0,BA(DTADXX)
     5024   01 020BC    10007826              F        16,0,BA(DTAS82)+2
     5025   01 020BD    01007C13              F        01,0,BA(DTADXX)+07
     5026   01 020BE    10007833     S3DXC8   F        16,0,BA(DTAS83)+3
     5027   01 020BF    08007C0C              F        08,0,BA(DTADXX)
     5028   01 020C0    10007833              F        16,0,BA(DTAS83)+3
     5029   01 020C1    01007C13              F        01,0,BA(DTADXX)+07
     5030   01 020C2    10007868     S0DXC9   F        16,0,BA(DTAS90)+0
     5031   01 020C3    09007C0C              F        09,0,BA(DTADXX)
     5032   01 020C4    10007868              F        16,0,BA(DTAS90)+0
     5033   01 020C5    01007C14              F        01,0,BA(DTADXX)+08
     5034   01 020C6    10007875     S1DXC9   F        16,0,BA(DTAS91)+1
     5035   01 020C7    09007C0C              F        09,0,BA(DTADXX)
     5036   01 020C8    10007875              F        16,0,BA(DTAS91)+1
     5037   01 020C9    01007C14              F        01,0,BA(DTADXX)+08
     5038   01 020CA    10007882     S2DXC9   F        16,0,BA(DTAS92)+2
     5039   01 020CB    09007C0C              F        09,0,BA(DTADXX)
     5040   01 020CC    10007882              F        16,0,BA(DTAS92)+2
     5041   01 020CD    01007C14              F        01,0,BA(DTADXX)+08
     5042   01 020CE    1000788F     S3DXC9   F        16,0,BA(DTAS93)+3
     5043   01 020CF    09007C0C              F        09,0,BA(DTADXX)
     5044   01 020D0    1000788F              F        16,0,BA(DTAS93)+3
     5045   01 020D1    01007C14              F        01,0,BA(DTADXX)+08
     5046   01 020D2    100078CC     S0DXCA   F        16,0,BA(DTASA0)+0
     5047   01 020D3    0A007C0C              F        10,0,BA(DTADXX)
     5048   01 020D4    100078CC              F        16,0,BA(DTASA0)+0
     5049   01 020D5    01007C15              F        01,0,BA(DTADXX)+09
     5050   01 020D6    100078D9     S1DXCA   F        16,0,BA(DTASA1)+1
     5051   01 020D7    0A007C0C              F        10,0,BA(DTADXX)
     5052   01 020D8    100078D9              F        16,0,BA(DTASA1)+1
     5053   01 020D9    01007C15              F        01,0,BA(DTADXX)+09
     5054   01 020DA    100078E6     S2DXCA   F        16,0,BA(DTASA2)+2
     5055   01 020DB    0A007C0C              F        10,0,BA(DTADXX)
     5056   01 020DC    100078E6              F        16,0,BA(DTASA2)+2
     5057   01 020DD    01007C15              F        01,0,BA(DTADXX)+09
     5058   01 020DE    100078F7     S3DXCA   F        16,0,BA(DTASA3)+3
     5059   01 020DF    0A007C0C              F        10,0,BA(DTADXX)
     5060   01 020E0    100078F7              F        16,0,BA(DTASA3)+3
     5061   01 020E1    01007C15              F        01,0,BA(DTADXX)+09
     5062   01 020E2    10007938     S0DXCB   F        16,0,BA(DTASB0)+0
     5063   01 020E3    0B007C0C              F        11,0,BA(DTADXX)
     5064   01 020E4    10007938              F        16,0,BA(DTASB0)+0
     5065   01 020E5    01007C16              F        01,0,BA(DTADXX)+10
     5066   01 020E6    10007945     S1DXCB   F        16,0,BA(DTASB1)+1
     5067   01 020E7    0B007C0C              F        11,0,BA(DTADXX)
     5068   01 020E8    10007945              F        16,0,BA(DTASB1)+1
     5069   01 020E9    01007C16              F        01,0,BA(DTADXX)+10
     5070   01 020EA    10007956     S2DXCB   F        16,0,BA(DTASB2)+2
     5071   01 020EB    0B007C0C              F        11,0,BA(DTADXX)
     5072   01 020EC    10007956              F        16,0,BA(DTASB2)+2
     5073   01 020ED    01007C16              F        01,0,BA(DTADXX)+10
     5074   01 020EE    10007967     S3DXCB   F        16,0,BA(DTASB3)+3
     5075   01 020EF    0B007C0C              F        11,0,BA(DTADXX)
     5076   01 020F0    10007967              F        16,0,BA(DTASB3)+3
     5077   01 020F1    01007C16              F        01,0,BA(DTADXX)+10
     5078   01 020F2    100079AC     S0DXCC   F        16,0,BA(DTASC0)+0
     5079   01 020F3    0C007C0C              F        12,0,BA(DTADXX)
     5080   01 020F4    100079AC              F        16,0,BA(DTASC0)+0
     5081   01 020F5    01007C17              F        01,0,BA(DTADXX)+11
     5082   01 020F6    100079BD     S1DXCC   F        16,0,BA(DTASC1)+1
     5083   01 020F7    0C007C0C              F        12,0,BA(DTADXX)
     5084   01 020F8    100079BD              F        16,0,BA(DTASC1)+1
     5085   01 020F9    01007C17              F        01,0,BA(DTADXX)+11
     5086   01 020FA    100079CE     S2DXCC   F        16,0,BA(DTASC2)+2
     5087   01 020FB    0C007C0C              F        12,0,BA(DTADXX)
     5088   01 020FC    100079CE              F        16,0,BA(DTASC2)+2
     5089   01 020FD    01007C17              F        01,0,BA(DTADXX)+11
     5090   01 020FE    100079DF     S3DXCC   F        16,0,BA(DTASC3)+3
     5091   01 020FF    0C007C0C              F        12,0,BA(DTADXX)
     5092   01 02100    100079DF              F        16,0,BA(DTASC3)+3
     5093   01 02101    01007C17              F        01,0,BA(DTADXX)+11
     5094   01 02102    00007650     S0D0C1   F        00,0,BA(DTAS10)+0
     5095   01 02103    01007664              F        01,0,BA(DTAD10)+0
     5096   01 02104    00007650              F        00,0,BA(DTAS10)+00
     5097   01 02105    01007664              F        01,0,BA(DTAD10)+00
     5098   01 02106    00007650     S0D1C1   F        00,0,BA(DTAS10)+0
     5099   01 02107    01007669              F        01,0,BA(DTAD11)+1
     5100   01 02108    00007650              F        00,0,BA(DTAS10)+00
     5101   01 02109    01007669              F        01,0,BA(DTAD11)+01
     5102   01 0210A    00007650     S0D2C1   F        00,0,BA(DTAS10)+0
     5103   01 0210B    0100766E              F        01,0,BA(DTAD12)+2
     5104   01 0210C    00007650              F        00,0,BA(DTAS10)+00
     5105   01 0210D    0100766E              F        01,0,BA(DTAD12)+02
     5106   01 0210E    00007650     S0D3C1   F        00,0,BA(DTAS10)+0
     5107   01 0210F    01007673              F        01,0,BA(DTAD13)+3
     5108   01 02110    00007650              F        00,0,BA(DTAS10)+00
     5109   01 02111    01007673              F        01,0,BA(DTAD13)+03
     5110   01 02112    00007655     S1D0C1   F        00,0,BA(DTAS11)+1
     5111   01 02113    01007664              F        01,0,BA(DTAD10)+0
     5112   01 02114    00007655              F        00,0,BA(DTAS11)+01
     5113   01 02115    01007664              F        01,0,BA(DTAD10)+00
     5114   01 02116    00007655     S1D1C1   F        00,0,BA(DTAS11)+1
     5115   01 02117    01007669              F        01,0,BA(DTAD11)+1
     5116   01 02118    00007655              F        00,0,BA(DTAS11)+01
     5117   01 02119    01007669              F        01,0,BA(DTAD11)+01
     5118   01 0211A    00007655     S1D2C1   F        00,0,BA(DTAS11)+1
     5119   01 0211B    0100766E              F        01,0,BA(DTAD12)+2
     5120   01 0211C    00007655              F        00,0,BA(DTAS11)+01
     5121   01 0211D    0100766E              F        01,0,BA(DTAD12)+02
     5122   01 0211E    00007655     S1D3C1   F        00,0,BA(DTAS11)+1
     5123   01 0211F    01007673              F        01,0,BA(DTAD13)+3
     5124   01 02120    00007655              F        00,0,BA(DTAS11)+01
     5125   01 02121    01007673              F        01,0,BA(DTAD13)+03
     5126   01 02122    0000765A     S2D0C1   F        00,0,BA(DTAS12)+2
     5127   01 02123    01007664              F        01,0,BA(DTAD10)+0
     5128   01 02124    0000765A              F        00,0,BA(DTAS12)+02
     5129   01 02125    01007664              F        01,0,BA(DTAD10)+00
     5130   01 02126    0000765A     S2D1C1   F        00,0,BA(DTAS12)+2
     5131   01 02127    01007669              F        01,0,BA(DTAD11)+1
     5132   01 02128    0000765A              F        00,0,BA(DTAS12)+02
     5133   01 02129    01007669              F        01,0,BA(DTAD11)+01
     5134   01 0212A    0000765A     S2D2C1   F        00,0,BA(DTAS12)+2
     5135   01 0212B    0100766E              F        01,0,BA(DTAD12)+2
     5136   01 0212C    0000765A              F        00,0,BA(DTAS12)+02
     5137   01 0212D    0100766E              F        01,0,BA(DTAD12)+02
     5138   01 0212E    0000765A     S2D3C1   F        00,0,BA(DTAS12)+2
     5139   01 0212F    01007673              F        01,0,BA(DTAD13)+3
     5140   01 02130    0000765A              F        00,0,BA(DTAS12)+02
     5141   01 02131    01007673              F        01,0,BA(DTAD13)+03
     5142   01 02132    0000765F     S3D0C1   F        00,0,BA(DTAS13)+3
     5143   01 02133    01007664              F        01,0,BA(DTAD10)+0
     5144   01 02134    0000765F              F        00,0,BA(DTAS13)+03
     5145   01 02135    01007664              F        01,0,BA(DTAD10)+00
     5146   01 02136    0000765F     S3D1C1   F        00,0,BA(DTAS13)+3
     5147   01 02137    01007669              F        01,0,BA(DTAD11)+1
     5148   01 02138    0000765F              F        00,0,BA(DTAS13)+03
     5149   01 02139    01007669              F        01,0,BA(DTAD11)+01
     5150   01 0213A    0000765F     S3D2C1   F        00,0,BA(DTAS13)+3
     5151   01 0213B    0100766E              F        01,0,BA(DTAD12)+2
     5152   01 0213C    0000765F              F        00,0,BA(DTAS13)+03
     5153   01 0213D    0100766E              F        01,0,BA(DTAD12)+02
     5154   01 0213E    0000765F     S3D3C1   F        00,0,BA(DTAS13)+3
     5155   01 0213F    01007673              F        01,0,BA(DTAD13)+3
     5156   01 02140    0000765F              F        00,0,BA(DTAS13)+03
     5157   01 02141    01007673              F        01,0,BA(DTAD13)+03
     5158   01 02142    00007674     S0D0C2   F        00,0,BA(DTAS20)+0
     5159   01 02143    0200768C              F        02,0,BA(DTAD20)+0
     5160   01 02144    00007675              F        00,0,BA(DTAS20)+01
     5161   01 02145    0100768D              F        01,0,BA(DTAD20)+01
     5162   01 02146    00007674     S0D1C2   F        00,0,BA(DTAS20)+0
     5163   01 02147    02007691              F        02,0,BA(DTAD21)+1
     5164   01 02148    00007675              F        00,0,BA(DTAS20)+01
     5165   01 02149    01007692              F        01,0,BA(DTAD21)+02
     5166   01 0214A    00007674     S0D2C2   F        00,0,BA(DTAS20)+0
     5167   01 0214B    02007696              F        02,0,BA(DTAD22)+2
     5168   01 0214C    00007675              F        00,0,BA(DTAS20)+01
     5169   01 0214D    01007697              F        01,0,BA(DTAD22)+03
     5170   01 0214E    00007674     S0D3C2   F        00,0,BA(DTAS20)+0
     5171   01 0214F    0200769B              F        02,0,BA(DTAD23)+3
     5172   01 02150    00007675              F        00,0,BA(DTAS20)+01
     5173   01 02151    0100769C              F        01,0,BA(DTAD23)+04
     5174   01 02152    00007679     S1D0C2   F        00,0,BA(DTAS21)+1
     5175   01 02153    0200768C              F        02,0,BA(DTAD20)+0
     5176   01 02154    0000767A              F        00,0,BA(DTAS21)+02
     5177   01 02155    0100768D              F        01,0,BA(DTAD20)+01
     5178   01 02156    00007679     S1D1C2   F        00,0,BA(DTAS21)+1
     5179   01 02157    02007691              F        02,0,BA(DTAD21)+1
     5180   01 02158    0000767A              F        00,0,BA(DTAS21)+02
     5181   01 02159    01007692              F        01,0,BA(DTAD21)+02
     5182   01 0215A    00007679     S1D2C2   F        00,0,BA(DTAS21)+1
     5183   01 0215B    02007696              F        02,0,BA(DTAD22)+2
     5184   01 0215C    0000767A              F        00,0,BA(DTAS21)+02
     5185   01 0215D    01007697              F        01,0,BA(DTAD22)+03
     5186   01 0215E    00007679     S1D3C2   F        00,0,BA(DTAS21)+1
     5187   01 0215F    0200769B              F        02,0,BA(DTAD23)+3
     5188   01 02160    0000767A              F        00,0,BA(DTAS21)+02
     5189   01 02161    0100769C              F        01,0,BA(DTAD23)+04
     5190   01 02162    0000767E     S2D0C2   F        00,0,BA(DTAS22)+2
     5191   01 02163    0200768C              F        02,0,BA(DTAD20)+0
     5192   01 02164    0000767F              F        00,0,BA(DTAS22)+03
     5193   01 02165    0100768D              F        01,0,BA(DTAD20)+01
     5194   01 02166    0000767E     S2D1C2   F        00,0,BA(DTAS22)+2
     5195   01 02167    02007691              F        02,0,BA(DTAD21)+1
     5196   01 02168    0000767F              F        00,0,BA(DTAS22)+03
     5197   01 02169    01007692              F        01,0,BA(DTAD21)+02
     5198   01 0216A    0000767E     S2D2C2   F        00,0,BA(DTAS22)+2
     5199   01 0216B    02007696              F        02,0,BA(DTAD22)+2
     5200   01 0216C    0000767F              F        00,0,BA(DTAS22)+03
     5201   01 0216D    01007697              F        01,0,BA(DTAD22)+03
     5202   01 0216E    0000767E     S2D3C2   F        00,0,BA(DTAS22)+2
     5203   01 0216F    0200769B              F        02,0,BA(DTAD23)+3
     5204   01 02170    0000767F              F        00,0,BA(DTAS22)+03
     5205   01 02171    0100769C              F        01,0,BA(DTAD23)+04
     5206   01 02172    00007687     S3D0C2   F        00,0,BA(DTAS23)+3
     5207   01 02173    0200768C              F        02,0,BA(DTAD20)+0
     5208   01 02174    00007688              F        00,0,BA(DTAS23)+04
     5209   01 02175    0100768D              F        01,0,BA(DTAD20)+01
     5210   01 02176    00007687     S3D1C2   F        00,0,BA(DTAS23)+3
     5211   01 02177    02007691              F        02,0,BA(DTAD21)+1
     5212   01 02178    00007688              F        00,0,BA(DTAS23)+04
     5213   01 02179    01007692              F        01,0,BA(DTAD21)+02
     5214   01 0217A    00007687     S3D2C2   F        00,0,BA(DTAS23)+3
     5215   01 0217B    02007696              F        02,0,BA(DTAD22)+2
     5216   01 0217C    00007688              F        00,0,BA(DTAS23)+04
     5217   01 0217D    01007697              F        01,0,BA(DTAD22)+03
     5218   01 0217E    00007687     S3D3C2   F        00,0,BA(DTAS23)+3
     5219   01 0217F    0200769B              F        02,0,BA(DTAD23)+3
     5220   01 02180    00007688              F        00,0,BA(DTAS23)+04
     5221   01 02181    0100769C              F        01,0,BA(DTAD23)+04
     5222   01 02182    000076A0     S0D0C3   F        00,0,BA(DTAS30)+0
     5223   01 02183    030076BC              F        03,0,BA(DTAD30)+0
     5224   01 02184    000076A2              F        00,0,BA(DTAS30)+02
     5225   01 02185    010076BE              F        01,0,BA(DTAD30)+02
     5226   01 02186    000076A0     S0D1C3   F        00,0,BA(DTAS30)+0
     5227   01 02187    030076C1              F        03,0,BA(DTAD31)+1
     5228   01 02188    000076A2              F        00,0,BA(DTAS30)+02
     5229   01 02189    010076C3              F        01,0,BA(DTAD31)+03
     5230   01 0218A    000076A0     S0D2C3   F        00,0,BA(DTAS30)+0
     5231   01 0218B    030076C6              F        03,0,BA(DTAD32)+2
     5232   01 0218C    000076A2              F        00,0,BA(DTAS30)+02
     5233   01 0218D    010076C8              F        01,0,BA(DTAD32)+04
     5234   01 0218E    000076A0     S0D3C3   F        00,0,BA(DTAS30)+0
     5235   01 0218F    030076CF              F        03,0,BA(DTAD33)+3
     5236   01 02190    000076A2              F        00,0,BA(DTAS30)+02
     5237   01 02191    010076D1              F        01,0,BA(DTAD33)+05
     5238   01 02192    000076A5     S1D0C3   F        00,0,BA(DTAS31)+1
     5239   01 02193    030076BC              F        03,0,BA(DTAD30)+0
     5240   01 02194    000076A7              F        00,0,BA(DTAS31)+03
     5241   01 02195    010076BE              F        01,0,BA(DTAD30)+02
     5242   01 02196    000076A5     S1D1C3   F        00,0,BA(DTAS31)+1
     5243   01 02197    030076C1              F        03,0,BA(DTAD31)+1
     5244   01 02198    000076A7              F        00,0,BA(DTAS31)+03
     5245   01 02199    010076C3              F        01,0,BA(DTAD31)+03
     5246   01 0219A    000076A5     S1D2C3   F        00,0,BA(DTAS31)+1
     5247   01 0219B    030076C6              F        03,0,BA(DTAD32)+2
     5248   01 0219C    000076A7              F        00,0,BA(DTAS31)+03
     5249   01 0219D    010076C8              F        01,0,BA(DTAD32)+04
     5250   01 0219E    000076A5     S1D3C3   F        00,0,BA(DTAS31)+1
     5251   01 0219F    030076CF              F        03,0,BA(DTAD33)+3
     5252   01 021A0    000076A7              F        00,0,BA(DTAS31)+03
     5253   01 021A1    010076D1              F        01,0,BA(DTAD33)+05
     5254   01 021A2    000076AE     S2D0C3   F        00,0,BA(DTAS32)+2
     5255   01 021A3    030076BC              F        03,0,BA(DTAD30)+0
     5256   01 021A4    000076B0              F        00,0,BA(DTAS32)+04
     5257   01 021A5    010076BE              F        01,0,BA(DTAD30)+02
     5258   01 021A6    000076AE     S2D1C3   F        00,0,BA(DTAS32)+2
     5259   01 021A7    030076C1              F        03,0,BA(DTAD31)+1
     5260   01 021A8    000076B0              F        00,0,BA(DTAS32)+04
     5261   01 021A9    010076C3              F        01,0,BA(DTAD31)+03
     5262   01 021AA    000076AE     S2D2C3   F        00,0,BA(DTAS32)+2
     5263   01 021AB    030076C6              F        03,0,BA(DTAD32)+2
     5264   01 021AC    000076B0              F        00,0,BA(DTAS32)+04
     5265   01 021AD    010076C8              F        01,0,BA(DTAD32)+04
     5266   01 021AE    000076AE     S2D3C3   F        00,0,BA(DTAS32)+2
     5267   01 021AF    030076CF              F        03,0,BA(DTAD33)+3
     5268   01 021B0    000076B0              F        00,0,BA(DTAS32)+04
     5269   01 021B1    010076D1              F        01,0,BA(DTAD33)+05
     5270   01 021B2    000076B7     S3D0C3   F        00,0,BA(DTAS33)+3
     5271   01 021B3    030076BC              F        03,0,BA(DTAD30)+0
     5272   01 021B4    000076B9              F        00,0,BA(DTAS33)+05
     5273   01 021B5    010076BE              F        01,0,BA(DTAD30)+02
     5274   01 021B6    000076B7     S3D1C3   F        00,0,BA(DTAS33)+3
     5275   01 021B7    030076C1              F        03,0,BA(DTAD31)+1
     5276   01 021B8    000076B9              F        00,0,BA(DTAS33)+05
     5277   01 021B9    010076C3              F        01,0,BA(DTAD31)+03
     5278   01 021BA    000076B7     S3D2C3   F        00,0,BA(DTAS33)+3
     5279   01 021BB    030076C6              F        03,0,BA(DTAD32)+2
     5280   01 021BC    000076B9              F        00,0,BA(DTAS33)+05
     5281   01 021BD    010076C8              F        01,0,BA(DTAD32)+04
     5282   01 021BE    000076B7     S3D3C3   F        00,0,BA(DTAS33)+3
     5283   01 021BF    030076CF              F        03,0,BA(DTAD33)+3
     5284   01 021C0    000076B9              F        00,0,BA(DTAS33)+05
     5285   01 021C1    010076D1              F        01,0,BA(DTAD33)+05
     5286   01 021C2    000076D4     S0D0C4   F        00,0,BA(DTAS40)+0
     5287   01 021C3    04007700              F        04,0,BA(DTAD40)+0
     5288   01 021C4    000076D7              F        00,0,BA(DTAS40)+03
     5289   01 021C5    01007703              F        01,0,BA(DTAD40)+03
     5290   01 021C6    000076D4     S0D1C4   F        00,0,BA(DTAS40)+0
     5291   01 021C7    04007705              F        04,0,BA(DTAD41)+1
     5292   01 021C8    000076D7              F        00,0,BA(DTAS40)+03
     5293   01 021C9    01007708              F        01,0,BA(DTAD41)+04
     5294   01 021CA    000076D4     S0D2C4   F        00,0,BA(DTAS40)+0
     5295   01 021CB    0400770E              F        04,0,BA(DTAD42)+2
     5296   01 021CC    000076D7              F        00,0,BA(DTAS40)+03
     5297   01 021CD    01007711              F        01,0,BA(DTAD42)+05
     5298   01 021CE    000076D4     S0D3C4   F        00,0,BA(DTAS40)+0
     5299   01 021CF    04007717              F        04,0,BA(DTAD43)+3
     5300   01 021D0    000076D7              F        00,0,BA(DTAS40)+03
     5301   01 021D1    0100771A              F        01,0,BA(DTAD43)+06
     5302   01 021D2    000076DD     S1D0C4   F        00,0,BA(DTAS41)+1
     5303   01 021D3    04007700              F        04,0,BA(DTAD40)+0
     5304   01 021D4    000076E0              F        00,0,BA(DTAS41)+04
     5305   01 021D5    01007703              F        01,0,BA(DTAD40)+03
     5306   01 021D6    000076DD     S1D1C4   F        00,0,BA(DTAS41)+1
     5307   01 021D7    04007705              F        04,0,BA(DTAD41)+1
     5308   01 021D8    000076E0              F        00,0,BA(DTAS41)+04
     5309   01 021D9    01007708              F        01,0,BA(DTAD41)+04
     5310   01 021DA    000076DD     S1D2C4   F        00,0,BA(DTAS41)+1
     5311   01 021DB    0400770E              F        04,0,BA(DTAD42)+2
     5312   01 021DC    000076E0              F        00,0,BA(DTAS41)+04
     5313   01 021DD    01007711              F        01,0,BA(DTAD42)+05
     5314   01 021DE    000076DD     S1D3C4   F        00,0,BA(DTAS41)+1
     5315   01 021DF    04007717              F        04,0,BA(DTAD43)+3
     5316   01 021E0    000076E0              F        00,0,BA(DTAS41)+04
     5317   01 021E1    0100771A              F        01,0,BA(DTAD43)+06
     5318   01 021E2    000076EA     S2D0C4   F        00,0,BA(DTAS42)+2
     5319   01 021E3    04007700              F        04,0,BA(DTAD40)+0
     5320   01 021E4    000076ED              F        00,0,BA(DTAS42)+05
     5321   01 021E5    01007703              F        01,0,BA(DTAD40)+03
     5322   01 021E6    000076EA     S2D1C4   F        00,0,BA(DTAS42)+2
     5323   01 021E7    04007705              F        04,0,BA(DTAD41)+1
     5324   01 021E8    000076ED              F        00,0,BA(DTAS42)+05
     5325   01 021E9    01007708              F        01,0,BA(DTAD41)+04
     5326   01 021EA    000076EA     S2D2C4   F        00,0,BA(DTAS42)+2
     5327   01 021EB    0400770E              F        04,0,BA(DTAD42)+2
     5328   01 021EC    000076ED              F        00,0,BA(DTAS42)+05
     5329   01 021ED    01007711              F        01,0,BA(DTAD42)+05
     5330   01 021EE    000076EA     S2D3C4   F        00,0,BA(DTAS42)+2
     5331   01 021EF    04007717              F        04,0,BA(DTAD43)+3
     5332   01 021F0    000076ED              F        00,0,BA(DTAS42)+05
     5333   01 021F1    0100771A              F        01,0,BA(DTAD43)+06
     5334   01 021F2    000076F7     S3D0C4   F        00,0,BA(DTAS43)+3
     5335   01 021F3    04007700              F        04,0,BA(DTAD40)+0
     5336   01 021F4    000076FA              F        00,0,BA(DTAS43)+06
     5337   01 021F5    01007703              F        01,0,BA(DTAD40)+03
     5338   01 021F6    000076F7     S3D1C4   F        00,0,BA(DTAS43)+3
     5339   01 021F7    04007705              F        04,0,BA(DTAD41)+1
     5340   01 021F8    000076FA              F        00,0,BA(DTAS43)+06
     5341   01 021F9    01007708              F        01,0,BA(DTAD41)+04
     5342   01 021FA    000076F7     S3D2C4   F        00,0,BA(DTAS43)+3
     5343   01 021FB    0400770E              F        04,0,BA(DTAD42)+2
     5344   01 021FC    000076FA              F        00,0,BA(DTAS43)+06
     5345   01 021FD    01007711              F        01,0,BA(DTAD42)+05
     5346   01 021FE    000076F7     S3D3C4   F        00,0,BA(DTAS43)+3
     5347   01 021FF    04007717              F        04,0,BA(DTAD43)+3
     5348   01 02200    000076FA              F        00,0,BA(DTAS43)+06
     5349   01 02201    0100771A              F        01,0,BA(DTAD43)+06
     5350   01 02202    0000771C     S0D0C5   F        00,0,BA(DTAS50)+0
     5351   01 02203    05007748              F        05,0,BA(DTAD50)+0
     5352   01 02204    00007720              F        00,0,BA(DTAS50)+04
     5353   01 02205    0100774C              F        01,0,BA(DTAD50)+04
     5354   01 02206    0000771C     S0D1C5   F        00,0,BA(DTAS50)+0
     5355   01 02207    05007751              F        05,0,BA(DTAD51)+1
     5356   01 02208    00007720              F        00,0,BA(DTAS50)+04
     5357   01 02209    01007755              F        01,0,BA(DTAD51)+05
     5358   01 0220A    0000771C     S0D2C5   F        00,0,BA(DTAS50)+0
     5359   01 0220B    0500775A              F        05,0,BA(DTAD52)+2
     5360   01 0220C    00007720              F        00,0,BA(DTAS50)+04
     5361   01 0220D    0100775E              F        01,0,BA(DTAD52)+06
     5362   01 0220E    0000771C     S0D3C5   F        00,0,BA(DTAS50)+0
     5363   01 0220F    05007763              F        05,0,BA(DTAD53)+3
     5364   01 02210    00007720              F        00,0,BA(DTAS50)+04
     5365   01 02211    01007767              F        01,0,BA(DTAD53)+07
     5366   01 02212    00007725     S1D0C5   F        00,0,BA(DTAS51)+1
     5367   01 02213    05007748              F        05,0,BA(DTAD50)+0
     5368   01 02214    00007729              F        00,0,BA(DTAS51)+05
     5369   01 02215    0100774C              F        01,0,BA(DTAD50)+04
     5370   01 02216    00007725     S1D1C5   F        00,0,BA(DTAS51)+1
     5371   01 02217    05007751              F        05,0,BA(DTAD51)+1
     5372   01 02218    00007729              F        00,0,BA(DTAS51)+05
     5373   01 02219    01007755              F        01,0,BA(DTAD51)+05
     5374   01 0221A    00007725     S1D2C5   F        00,0,BA(DTAS51)+1
     5375   01 0221B    0500775A              F        05,0,BA(DTAD52)+2
     5376   01 0221C    00007729              F        00,0,BA(DTAS51)+05
     5377   01 0221D    0100775E              F        01,0,BA(DTAD52)+06
     5378   01 0221E    00007725     S1D3C5   F        00,0,BA(DTAS51)+1
     5379   01 0221F    05007763              F        05,0,BA(DTAD53)+3
     5380   01 02220    00007729              F        00,0,BA(DTAS51)+05
     5381   01 02221    01007767              F        01,0,BA(DTAD53)+07
     5382   01 02222    00007732     S2D0C5   F        00,0,BA(DTAS52)+2
     5383   01 02223    05007748              F        05,0,BA(DTAD50)+0
     5384   01 02224    00007736              F        00,0,BA(DTAS52)+06
     5385   01 02225    0100774C              F        01,0,BA(DTAD50)+04
     5386   01 02226    00007732     S2D1C5   F        00,0,BA(DTAS52)+2
     5387   01 02227    05007751              F        05,0,BA(DTAD51)+1
     5388   01 02228    00007736              F        00,0,BA(DTAS52)+06
     5389   01 02229    01007755              F        01,0,BA(DTAD51)+05
     5390   01 0222A    00007732     S2D2C5   F        00,0,BA(DTAS52)+2
     5391   01 0222B    0500775A              F        05,0,BA(DTAD52)+2
     5392   01 0222C    00007736              F        00,0,BA(DTAS52)+06
     5393   01 0222D    0100775E              F        01,0,BA(DTAD52)+06
     5394   01 0222E    00007732     S2D3C5   F        00,0,BA(DTAS52)+2
     5395   01 0222F    05007763              F        05,0,BA(DTAD53)+3
     5396   01 02230    00007736              F        00,0,BA(DTAS52)+06
     5397   01 02231    01007767              F        01,0,BA(DTAD53)+07
     5398   01 02232    0000773F     S3D0C5   F        00,0,BA(DTAS53)+3
     5399   01 02233    05007748              F        05,0,BA(DTAD50)+0
     5400   01 02234    00007743              F        00,0,BA(DTAS53)+07
     5401   01 02235    0100774C              F        01,0,BA(DTAD50)+04
     5402   01 02236    0000773F     S3D1C5   F        00,0,BA(DTAS53)+3
     5403   01 02237    05007751              F        05,0,BA(DTAD51)+1
     5404   01 02238    00007743              F        00,0,BA(DTAS53)+07
     5405   01 02239    01007755              F        01,0,BA(DTAD51)+05
     5406   01 0223A    0000773F     S3D2C5   F        00,0,BA(DTAS53)+3
     5407   01 0223B    0500775A              F        05,0,BA(DTAD52)+2
     5408   01 0223C    00007743              F        00,0,BA(DTAS53)+07
     5409   01 0223D    0100775E              F        01,0,BA(DTAD52)+06
     5410   01 0223E    0000773F     S3D3C5   F        00,0,BA(DTAS53)+3
     5411   01 0223F    05007763              F        05,0,BA(DTAD53)+3
     5412   01 02240    00007743              F        00,0,BA(DTAS53)+07
     5413   01 02241    01007767              F        01,0,BA(DTAD53)+07
     5414   01 02242    00007768     S0D0C6   F        00,0,BA(DTAS60)+0
     5415   01 02243    06007794              F        06,0,BA(DTAD60)+0
     5416   01 02244    0000776D              F        00,0,BA(DTAS60)+05
     5417   01 02245    01007799              F        01,0,BA(DTAD60)+05
     5418   01 02246    00007768     S0D1C6   F        00,0,BA(DTAS60)+0
     5419   01 02247    0600779D              F        06,0,BA(DTAD61)+1
     5420   01 02248    0000776D              F        00,0,BA(DTAS60)+05
     5421   01 02249    010077A2              F        01,0,BA(DTAD61)+06
     5422   01 0224A    00007768     S0D2C6   F        00,0,BA(DTAS60)+0
     5423   01 0224B    060077A6              F        06,0,BA(DTAD62)+2
     5424   01 0224C    0000776D              F        00,0,BA(DTAS60)+05
     5425   01 0224D    010077AB              F        01,0,BA(DTAD62)+07
     5426   01 0224E    00007768     S0D3C6   F        00,0,BA(DTAS60)+0
     5427   01 0224F    060077AF              F        06,0,BA(DTAD63)+3
     5428   01 02250    0000776D              F        00,0,BA(DTAS60)+05
     5429   01 02251    010077B4              F        01,0,BA(DTAD63)+08
     5430   01 02252    00007771     S1D0C6   F        00,0,BA(DTAS61)+1
     5431   01 02253    06007794              F        06,0,BA(DTAD60)+0
     5432   01 02254    00007776              F        00,0,BA(DTAS61)+06
     5433   01 02255    01007799              F        01,0,BA(DTAD60)+05
     5434   01 02256    00007771     S1D1C6   F        00,0,BA(DTAS61)+1
     5435   01 02257    0600779D              F        06,0,BA(DTAD61)+1
     5436   01 02258    00007776              F        00,0,BA(DTAS61)+06
     5437   01 02259    010077A2              F        01,0,BA(DTAD61)+06
     5438   01 0225A    00007771     S1D2C6   F        00,0,BA(DTAS61)+1
     5439   01 0225B    060077A6              F        06,0,BA(DTAD62)+2
     5440   01 0225C    00007776              F        00,0,BA(DTAS61)+06
     5441   01 0225D    010077AB              F        01,0,BA(DTAD62)+07
     5442   01 0225E    00007771     S1D3C6   F        00,0,BA(DTAS61)+1
     5443   01 0225F    060077AF              F        06,0,BA(DTAD63)+3
     5444   01 02260    00007776              F        00,0,BA(DTAS61)+06
     5445   01 02261    010077B4              F        01,0,BA(DTAD63)+08
     5446   01 02262    0000777E     S2D0C6   F        00,0,BA(DTAS62)+2
     5447   01 02263    06007794              F        06,0,BA(DTAD60)+0
     5448   01 02264    00007783              F        00,0,BA(DTAS62)+07
     5449   01 02265    01007799              F        01,0,BA(DTAD60)+05
     5450   01 02266    0000777E     S2D1C6   F        00,0,BA(DTAS62)+2
     5451   01 02267    0600779D              F        06,0,BA(DTAD61)+1
     5452   01 02268    00007783              F        00,0,BA(DTAS62)+07
     5453   01 02269    010077A2              F        01,0,BA(DTAD61)+06
     5454   01 0226A    0000777E     S2D2C6   F        00,0,BA(DTAS62)+2
     5455   01 0226B    060077A6              F        06,0,BA(DTAD62)+2
     5456   01 0226C    00007783              F        00,0,BA(DTAS62)+07
     5457   01 0226D    010077AB              F        01,0,BA(DTAD62)+07
     5458   01 0226E    0000777E     S2D3C6   F        00,0,BA(DTAS62)+2
     5459   01 0226F    060077AF              F        06,0,BA(DTAD63)+3
     5460   01 02270    00007783              F        00,0,BA(DTAS62)+07
     5461   01 02271    010077B4              F        01,0,BA(DTAD63)+08
     5462   01 02272    0000778B     S3D0C6   F        00,0,BA(DTAS63)+3
     5463   01 02273    06007794              F        06,0,BA(DTAD60)+0
     5464   01 02274    00007790              F        00,0,BA(DTAS63)+08
     5465   01 02275    01007799              F        01,0,BA(DTAD60)+05
     5466   01 02276    0000778B     S3D1C6   F        00,0,BA(DTAS63)+3
     5467   01 02277    0600779D              F        06,0,BA(DTAD61)+1
     5468   01 02278    00007790              F        00,0,BA(DTAS63)+08
     5469   01 02279    010077A2              F        01,0,BA(DTAD61)+06
     5470   01 0227A    0000778B     S3D2C6   F        00,0,BA(DTAS63)+3
     5471   01 0227B    060077A6              F        06,0,BA(DTAD62)+2
     5472   01 0227C    00007790              F        00,0,BA(DTAS63)+08
     5473   01 0227D    010077AB              F        01,0,BA(DTAD62)+07
     5474   01 0227E    0000778B     S3D3C6   F        00,0,BA(DTAS63)+3
     5475   01 0227F    060077AF              F        06,0,BA(DTAD63)+3
     5476   01 02280    00007790              F        00,0,BA(DTAS63)+08
     5477   01 02281    010077B4              F        01,0,BA(DTAD63)+08
     5478   01 02282    000077B8     S0D0C7   F        00,0,BA(DTAS70)+0
     5479   01 02283    070077E4              F        07,0,BA(DTAD70)+0
     5480   01 02284    000077BE              F        00,0,BA(DTAS70)+06
     5481   01 02285    010077EA              F        01,0,BA(DTAD70)+06
     5482   01 02286    000077B8     S0D1C7   F        00,0,BA(DTAS70)+0
     5483   01 02287    070077ED              F        07,0,BA(DTAD71)+1
     5484   01 02288    000077BE              F        00,0,BA(DTAS70)+06
     5485   01 02289    010077F3              F        01,0,BA(DTAD71)+07
     5486   01 0228A    000077B8     S0D2C7   F        00,0,BA(DTAS70)+0
     5487   01 0228B    070077F6              F        07,0,BA(DTAD72)+2
     5488   01 0228C    000077BE              F        00,0,BA(DTAS70)+06
     5489   01 0228D    010077FC              F        01,0,BA(DTAD72)+08
     5490   01 0228E    000077B8     S0D3C7   F        00,0,BA(DTAS70)+0
     5491   01 0228F    07007803              F        07,0,BA(DTAD73)+3
     5492   01 02290    000077BE              F        00,0,BA(DTAS70)+06
     5493   01 02291    01007809              F        01,0,BA(DTAD73)+09
     5494   01 02292    000077C1     S1D0C7   F        00,0,BA(DTAS71)+1
     5495   01 02293    070077E4              F        07,0,BA(DTAD70)+0
     5496   01 02294    000077C7              F        00,0,BA(DTAS71)+07
     5497   01 02295    010077EA              F        01,0,BA(DTAD70)+06
     5498   01 02296    000077C1     S1D1C7   F        00,0,BA(DTAS71)+1
     5499   01 02297    070077ED              F        07,0,BA(DTAD71)+1
     5500   01 02298    000077C7              F        00,0,BA(DTAS71)+07
     5501   01 02299    010077F3              F        01,0,BA(DTAD71)+07
     5502   01 0229A    000077C1     S1D2C7   F        00,0,BA(DTAS71)+1
     5503   01 0229B    070077F6              F        07,0,BA(DTAD72)+2
     5504   01 0229C    000077C7              F        00,0,BA(DTAS71)+07
     5505   01 0229D    010077FC              F        01,0,BA(DTAD72)+08
     5506   01 0229E    000077C1     S1D3C7   F        00,0,BA(DTAS71)+1
     5507   01 0229F    07007803              F        07,0,BA(DTAD73)+3
     5508   01 022A0    000077C7              F        00,0,BA(DTAS71)+07
     5509   01 022A1    01007809              F        01,0,BA(DTAD73)+09
     5510   01 022A2    000077CE     S2D0C7   F        00,0,BA(DTAS72)+2
     5511   01 022A3    070077E4              F        07,0,BA(DTAD70)+0
     5512   01 022A4    000077D4              F        00,0,BA(DTAS72)+08
     5513   01 022A5    010077EA              F        01,0,BA(DTAD70)+06
     5514   01 022A6    000077CE     S2D1C7   F        00,0,BA(DTAS72)+2
     5515   01 022A7    070077ED              F        07,0,BA(DTAD71)+1
     5516   01 022A8    000077D4              F        00,0,BA(DTAS72)+08
     5517   01 022A9    010077F3              F        01,0,BA(DTAD71)+07
     5518   01 022AA    000077CE     S2D2C7   F        00,0,BA(DTAS72)+2
     5519   01 022AB    070077F6              F        07,0,BA(DTAD72)+2
     5520   01 022AC    000077D4              F        00,0,BA(DTAS72)+08
     5521   01 022AD    010077FC              F        01,0,BA(DTAD72)+08
     5522   01 022AE    000077CE     S2D3C7   F        00,0,BA(DTAS72)+2
     5523   01 022AF    07007803              F        07,0,BA(DTAD73)+3
     5524   01 022B0    000077D4              F        00,0,BA(DTAS72)+08
     5525   01 022B1    01007809              F        01,0,BA(DTAD73)+09
     5526   01 022B2    000077DB     S3D0C7   F        00,0,BA(DTAS73)+3
     5527   01 022B3    070077E4              F        07,0,BA(DTAD70)+0
     5528   01 022B4    000077E1              F        00,0,BA(DTAS73)+09
     5529   01 022B5    010077EA              F        01,0,BA(DTAD70)+06
     5530   01 022B6    000077DB     S3D1C7   F        00,0,BA(DTAS73)+3
     5531   01 022B7    070077ED              F        07,0,BA(DTAD71)+1
     5532   01 022B8    000077E1              F        00,0,BA(DTAS73)+09
     5533   01 022B9    010077F3              F        01,0,BA(DTAD71)+07
     5534   01 022BA    000077DB     S3D2C7   F        00,0,BA(DTAS73)+3
     5535   01 022BB    070077F6              F        07,0,BA(DTAD72)+2
     5536   01 022BC    000077E1              F        00,0,BA(DTAS73)+09
     5537   01 022BD    010077FC              F        01,0,BA(DTAD72)+08
     5538   01 022BE    000077DB     S3D3C7   F        00,0,BA(DTAS73)+3
     5539   01 022BF    07007803              F        07,0,BA(DTAD73)+3
     5540   01 022C0    000077E1              F        00,0,BA(DTAS73)+09
     5541   01 022C1    01007809              F        01,0,BA(DTAD73)+09
     5542   01 022C2    0000780C     S0D0C8   F        00,0,BA(DTAS80)+0
     5543   01 022C3    0800783C              F        08,0,BA(DTAD80)+0
     5544   01 022C4    00007813              F        00,0,BA(DTAS80)+07
     5545   01 022C5    01007843              F        01,0,BA(DTAD80)+07
     5546   01 022C6    0000780C     S0D1C8   F        00,0,BA(DTAS80)+0
     5547   01 022C7    08007845              F        08,0,BA(DTAD81)+1
     5548   01 022C8    00007813              F        00,0,BA(DTAS80)+07
     5549   01 022C9    0100784C              F        01,0,BA(DTAD81)+08
     5550   01 022CA    0000780C     S0D2C8   F        00,0,BA(DTAS80)+0
     5551   01 022CB    08007852              F        08,0,BA(DTAD82)+2
     5552   01 022CC    00007813              F        00,0,BA(DTAS80)+07
     5553   01 022CD    01007859              F        01,0,BA(DTAD82)+09
     5554   01 022CE    0000780C     S0D3C8   F        00,0,BA(DTAS80)+0
     5555   01 022CF    0800785F              F        08,0,BA(DTAD83)+3
     5556   01 022D0    00007813              F        00,0,BA(DTAS80)+07
     5557   01 022D1    01007866              F        01,0,BA(DTAD83)+10
     5558   01 022D2    00007819     S1D0C8   F        00,0,BA(DTAS81)+1
     5559   01 022D3    0800783C              F        08,0,BA(DTAD80)+0
     5560   01 022D4    00007820              F        00,0,BA(DTAS81)+08
     5561   01 022D5    01007843              F        01,0,BA(DTAD80)+07
     5562   01 022D6    00007819     S1D1C8   F        00,0,BA(DTAS81)+1
     5563   01 022D7    08007845              F        08,0,BA(DTAD81)+1
     5564   01 022D8    00007820              F        00,0,BA(DTAS81)+08
     5565   01 022D9    0100784C              F        01,0,BA(DTAD81)+08
     5566   01 022DA    00007819     S1D2C8   F        00,0,BA(DTAS81)+1
     5567   01 022DB    08007852              F        08,0,BA(DTAD82)+2
     5568   01 022DC    00007820              F        00,0,BA(DTAS81)+08
     5569   01 022DD    01007859              F        01,0,BA(DTAD82)+09
     5570   01 022DE    00007819     S1D3C8   F        00,0,BA(DTAS81)+1
     5571   01 022DF    0800785F              F        08,0,BA(DTAD83)+3
     5572   01 022E0    00007820              F        00,0,BA(DTAS81)+08
     5573   01 022E1    01007866              F        01,0,BA(DTAD83)+10
     5574   01 022E2    00007826     S2D0C8   F        00,0,BA(DTAS82)+2
     5575   01 022E3    0800783C              F        08,0,BA(DTAD80)+0
     5576   01 022E4    0000782D              F        00,0,BA(DTAS82)+09
     5577   01 022E5    01007843              F        01,0,BA(DTAD80)+07
     5578   01 022E6    00007826     S2D1C8   F        00,0,BA(DTAS82)+2
     5579   01 022E7    08007845              F        08,0,BA(DTAD81)+1
     5580   01 022E8    0000782D              F        00,0,BA(DTAS82)+09
     5581   01 022E9    0100784C              F        01,0,BA(DTAD81)+08
     5582   01 022EA    00007826     S2D2C8   F        00,0,BA(DTAS82)+2
     5583   01 022EB    08007852              F        08,0,BA(DTAD82)+2
     5584   01 022EC    0000782D              F        00,0,BA(DTAS82)+09
     5585   01 022ED    01007859              F        01,0,BA(DTAD82)+09
     5586   01 022EE    00007826     S2D3C8   F        00,0,BA(DTAS82)+2
     5587   01 022EF    0800785F              F        08,0,BA(DTAD83)+3
     5588   01 022F0    0000782D              F        00,0,BA(DTAS82)+09
     5589   01 022F1    01007866              F        01,0,BA(DTAD83)+10
     5590   01 022F2    00007833     S3D0C8   F        00,0,BA(DTAS83)+3
     5591   01 022F3    0800783C              F        08,0,BA(DTAD80)+0
     5592   01 022F4    0000783A              F        00,0,BA(DTAS83)+10
     5593   01 022F5    01007843              F        01,0,BA(DTAD80)+07
     5594   01 022F6    00007833     S3D1C8   F        00,0,BA(DTAS83)+3
     5595   01 022F7    08007845              F        08,0,BA(DTAD81)+1
     5596   01 022F8    0000783A              F        00,0,BA(DTAS83)+10
     5597   01 022F9    0100784C              F        01,0,BA(DTAD81)+08
     5598   01 022FA    00007833     S3D2C8   F        00,0,BA(DTAS83)+3
     5599   01 022FB    08007852              F        08,0,BA(DTAD82)+2
     5600   01 022FC    0000783A              F        00,0,BA(DTAS83)+10
     5601   01 022FD    01007859              F        01,0,BA(DTAD82)+09
     5602   01 022FE    00007833     S3D3C8   F        00,0,BA(DTAS83)+3
     5603   01 022FF    0800785F              F        08,0,BA(DTAD83)+3
     5604   01 02300    0000783A              F        00,0,BA(DTAS83)+10
     5605   01 02301    01007866              F        01,0,BA(DTAD83)+10
     5606   01 02302    00007868     S0D0C9   F        00,0,BA(DTAS90)+0
     5607   01 02303    0900789C              F        09,0,BA(DTAD90)+0
     5608   01 02304    00007870              F        00,0,BA(DTAS90)+08
     5609   01 02305    010078A4              F        01,0,BA(DTAD90)+08
     5610   01 02306    00007868     S0D1C9   F        00,0,BA(DTAS90)+0
     5611   01 02307    090078A9              F        09,0,BA(DTAD91)+1
     5612   01 02308    00007870              F        00,0,BA(DTAS90)+08
     5613   01 02309    010078B1              F        01,0,BA(DTAD91)+09
     5614   01 0230A    00007868     S0D2C9   F        00,0,BA(DTAS90)+0
     5615   01 0230B    090078B6              F        09,0,BA(DTAD92)+2
     5616   01 0230C    00007870              F        00,0,BA(DTAS90)+08
     5617   01 0230D    010078BE              F        01,0,BA(DTAD92)+10
     5618   01 0230E    00007868     S0D3C9   F        00,0,BA(DTAS90)+0
     5619   01 0230F    090078C3              F        09,0,BA(DTAD93)+3
     5620   01 02310    00007870              F        00,0,BA(DTAS90)+08
     5621   01 02311    010078CB              F        01,0,BA(DTAD93)+11
     5622   01 02312    00007875     S1D0C9   F        00,0,BA(DTAS91)+1
     5623   01 02313    0900789C              F        09,0,BA(DTAD90)+0
     5624   01 02314    0000787D              F        00,0,BA(DTAS91)+09
     5625   01 02315    010078A4              F        01,0,BA(DTAD90)+08
     5626   01 02316    00007875     S1D1C9   F        00,0,BA(DTAS91)+1
     5627   01 02317    090078A9              F        09,0,BA(DTAD91)+1
     5628   01 02318    0000787D              F        00,0,BA(DTAS91)+09
     5629   01 02319    010078B1              F        01,0,BA(DTAD91)+09
     5630   01 0231A    00007875     S1D2C9   F        00,0,BA(DTAS91)+1
     5631   01 0231B    090078B6              F        09,0,BA(DTAD92)+2
     5632   01 0231C    0000787D              F        00,0,BA(DTAS91)+09
     5633   01 0231D    010078BE              F        01,0,BA(DTAD92)+10
     5634   01 0231E    00007875     S1D3C9   F        00,0,BA(DTAS91)+1
     5635   01 0231F    090078C3              F        09,0,BA(DTAD93)+3
     5636   01 02320    0000787D              F        00,0,BA(DTAS91)+09
     5637   01 02321    010078CB              F        01,0,BA(DTAD93)+11
     5638   01 02322    00007882     S2D0C9   F        00,0,BA(DTAS92)+2
     5639   01 02323    0900789C              F        09,0,BA(DTAD90)+0
     5640   01 02324    0000788A              F        00,0,BA(DTAS92)+10
     5641   01 02325    010078A4              F        01,0,BA(DTAD90)+08
     5642   01 02326    00007882     S2D1C9   F        00,0,BA(DTAS92)+2
     5643   01 02327    090078A9              F        09,0,BA(DTAD91)+1
     5644   01 02328    0000788A              F        00,0,BA(DTAS92)+10
     5645   01 02329    010078B1              F        01,0,BA(DTAD91)+09
     5646   01 0232A    00007882     S2D2C9   F        00,0,BA(DTAS92)+2
     5647   01 0232B    090078B6              F        09,0,BA(DTAD92)+2
     5648   01 0232C    0000788A              F        00,0,BA(DTAS92)+10
     5649   01 0232D    010078BE              F        01,0,BA(DTAD92)+10
     5650   01 0232E    00007882     S2D3C9   F        00,0,BA(DTAS92)+2
     5651   01 0232F    090078C3              F        09,0,BA(DTAD93)+3
     5652   01 02330    0000788A              F        00,0,BA(DTAS92)+10
     5653   01 02331    010078CB              F        01,0,BA(DTAD93)+11
     5654   01 02332    0000788F     S3D0C9   F        00,0,BA(DTAS93)+3
     5655   01 02333    0900789C              F        09,0,BA(DTAD90)+0
     5656   01 02334    00007897              F        00,0,BA(DTAS93)+11
     5657   01 02335    010078A4              F        01,0,BA(DTAD90)+08
     5658   01 02336    0000788F     S3D1C9   F        00,0,BA(DTAS93)+3
     5659   01 02337    090078A9              F        09,0,BA(DTAD91)+1
     5660   01 02338    00007897              F        00,0,BA(DTAS93)+11
     5661   01 02339    010078B1              F        01,0,BA(DTAD91)+09
     5662   01 0233A    0000788F     S3D2C9   F        00,0,BA(DTAS93)+3
     5663   01 0233B    090078B6              F        09,0,BA(DTAD92)+2
     5664   01 0233C    00007897              F        00,0,BA(DTAS93)+11
     5665   01 0233D    010078BE              F        01,0,BA(DTAD92)+10
     5666   01 0233E    0000788F     S3D3C9   F        00,0,BA(DTAS93)+3
     5667   01 0233F    090078C3              F        09,0,BA(DTAD93)+3
     5668   01 02340    00007897              F        00,0,BA(DTAS93)+11
     5669   01 02341    010078CB              F        01,0,BA(DTAD93)+11
     5670   01 02342    000078CC     S0D0CA   F        00,0,BA(DTASA0)+0
     5671   01 02343    0A007904              F        10,0,BA(DTADA0)+0
     5672   01 02344    000078D5              F        00,0,BA(DTASA0)+09
     5673   01 02345    0100790D              F        01,0,BA(DTADA0)+09
     5674   01 02346    000078CC     S0D1CA   F        00,0,BA(DTASA0)+0
     5675   01 02347    0A007911              F        10,0,BA(DTADA1)+1
     5676   01 02348    000078D5              F        00,0,BA(DTASA0)+09
     5677   01 02349    0100791A              F        01,0,BA(DTADA1)+10
     5678   01 0234A    000078CC     S0D2CA   F        00,0,BA(DTASA0)+0
     5679   01 0234B    0A00791E              F        10,0,BA(DTADA2)+2
     5680   01 0234C    000078D5              F        00,0,BA(DTASA0)+09
     5681   01 0234D    01007927              F        01,0,BA(DTADA2)+11
     5682   01 0234E    000078CC     S0D3CA   F        00,0,BA(DTASA0)+0
     5683   01 0234F    0A00792B              F        10,0,BA(DTADA3)+3
     5684   01 02350    000078D5              F        00,0,BA(DTASA0)+09
     5685   01 02351    01007934              F        01,0,BA(DTADA3)+12
     5686   01 02352    000078D9     S1D0CA   F        00,0,BA(DTASA1)+1
     5687   01 02353    0A007904              F        10,0,BA(DTADA0)+0
     5688   01 02354    000078E2              F        00,0,BA(DTASA1)+10
     5689   01 02355    0100790D              F        01,0,BA(DTADA0)+09
     5690   01 02356    000078D9     S1D1CA   F        00,0,BA(DTASA1)+1
     5691   01 02357    0A007911              F        10,0,BA(DTADA1)+1
     5692   01 02358    000078E2              F        00,0,BA(DTASA1)+10
     5693   01 02359    0100791A              F        01,0,BA(DTADA1)+10
     5694   01 0235A    000078D9     S1D2CA   F        00,0,BA(DTASA1)+1
     5695   01 0235B    0A00791E              F        10,0,BA(DTADA2)+2
     5696   01 0235C    000078E2              F        00,0,BA(DTASA1)+10
     5697   01 0235D    01007927              F        01,0,BA(DTADA2)+11
     5698   01 0235E    000078D9     S1D3CA   F        00,0,BA(DTASA1)+1
     5699   01 0235F    0A00792B              F        10,0,BA(DTADA3)+3
     5700   01 02360    000078E2              F        00,0,BA(DTASA1)+10
     5701   01 02361    01007934              F        01,0,BA(DTADA3)+12
     5702   01 02362    000078E6     S2D0CA   F        00,0,BA(DTASA2)+2
     5703   01 02363    0A007904              F        10,0,BA(DTADA0)+0
     5704   01 02364    000078EF              F        00,0,BA(DTASA2)+11
     5705   01 02365    0100790D              F        01,0,BA(DTADA0)+09
     5706   01 02366    000078E6     S2D1CA   F        00,0,BA(DTASA2)+2
     5707   01 02367    0A007911              F        10,0,BA(DTADA1)+1
     5708   01 02368    000078EF              F        00,0,BA(DTASA2)+11
     5709   01 02369    0100791A              F        01,0,BA(DTADA1)+10
     5710   01 0236A    000078E6     S2D2CA   F        00,0,BA(DTASA2)+2
     5711   01 0236B    0A00791E              F        10,0,BA(DTADA2)+2
     5712   01 0236C    000078EF              F        00,0,BA(DTASA2)+11
     5713   01 0236D    01007927              F        01,0,BA(DTADA2)+11
     5714   01 0236E    000078E6     S2D3CA   F        00,0,BA(DTASA2)+2
     5715   01 0236F    0A00792B              F        10,0,BA(DTADA3)+3
     5716   01 02370    000078EF              F        00,0,BA(DTASA2)+11
     5717   01 02371    01007934              F        01,0,BA(DTADA3)+12
     5718   01 02372    000078F7     S3D0CA   F        00,0,BA(DTASA3)+3
     5719   01 02373    0A007904              F        10,0,BA(DTADA0)+0
     5720   01 02374    00007900              F        00,0,BA(DTASA3)+12
     5721   01 02375    0100790D              F        01,0,BA(DTADA0)+09
     5722   01 02376    000078F7     S3D1CA   F        00,0,BA(DTASA3)+3
     5723   01 02377    0A007911              F        10,0,BA(DTADA1)+1
     5724   01 02378    00007900              F        00,0,BA(DTASA3)+12
     5725   01 02379    0100791A              F        01,0,BA(DTADA1)+10
     5726   01 0237A    000078F7     S3D2CA   F        00,0,BA(DTASA3)+3
     5727   01 0237B    0A00791E              F        10,0,BA(DTADA2)+2
     5728   01 0237C    00007900              F        00,0,BA(DTASA3)+12
     5729   01 0237D    01007927              F        01,0,BA(DTADA2)+11
     5730   01 0237E    000078F7     S3D3CA   F        00,0,BA(DTASA3)+3
     5731   01 0237F    0A00792B              F        10,0,BA(DTADA3)+3
     5732   01 02380    00007900              F        00,0,BA(DTASA3)+12
     5733   01 02381    01007934              F        01,0,BA(DTADA3)+12
     5734   01 02382    00007938     S0D0CB   F        00,0,BA(DTASB0)+0
     5735   01 02383    0B007974              F        11,0,BA(DTADB0)+0
     5736   01 02384    00007942              F        00,0,BA(DTASB0)+10
     5737   01 02385    0100797E              F        01,0,BA(DTADB0)+10
     5738   01 02386    00007938     S0D1CB   F        00,0,BA(DTASB0)+0
     5739   01 02387    0B007981              F        11,0,BA(DTADB1)+1
     5740   01 02388    00007942              F        00,0,BA(DTASB0)+10
     5741   01 02389    0100798B              F        01,0,BA(DTADB1)+11
     5742   01 0238A    00007938     S0D2CB   F        00,0,BA(DTASB0)+0
     5743   01 0238B    0B00798E              F        11,0,BA(DTADB2)+2
     5744   01 0238C    00007942              F        00,0,BA(DTASB0)+10
     5745   01 0238D    01007998              F        01,0,BA(DTADB2)+12
     5746   01 0238E    00007938     S0D3CB   F        00,0,BA(DTASB0)+0
     5747   01 0238F    0B00799F              F        11,0,BA(DTADB3)+3
     5748   01 02390    00007942              F        00,0,BA(DTASB0)+10
     5749   01 02391    010079A9              F        01,0,BA(DTADB3)+13
     5750   01 02392    00007945     S1D0CB   F        00,0,BA(DTASB1)+1
     5751   01 02393    0B007974              F        11,0,BA(DTADB0)+0
     5752   01 02394    0000794F              F        00,0,BA(DTASB1)+11
     5753   01 02395    0100797E              F        01,0,BA(DTADB0)+10
     5754   01 02396    00007945     S1D1CB   F        00,0,BA(DTASB1)+1
     5755   01 02397    0B007981              F        11,0,BA(DTADB1)+1
     5756   01 02398    0000794F              F        00,0,BA(DTASB1)+11
     5757   01 02399    0100798B              F        01,0,BA(DTADB1)+11
     5758   01 0239A    00007945     S1D2CB   F        00,0,BA(DTASB1)+1
     5759   01 0239B    0B00798E              F        11,0,BA(DTADB2)+2
     5760   01 0239C    0000794F              F        00,0,BA(DTASB1)+11
     5761   01 0239D    01007998              F        01,0,BA(DTADB2)+12
     5762   01 0239E    00007945     S1D3CB   F        00,0,BA(DTASB1)+1
     5763   01 0239F    0B00799F              F        11,0,BA(DTADB3)+3
     5764   01 023A0    0000794F              F        00,0,BA(DTASB1)+11
     5765   01 023A1    010079A9              F        01,0,BA(DTADB3)+13
     5766   01 023A2    00007956     S2D0CB   F        00,0,BA(DTASB2)+2
     5767   01 023A3    0B007974              F        11,0,BA(DTADB0)+0
     5768   01 023A4    00007960              F        00,0,BA(DTASB2)+12
     5769   01 023A5    0100797E              F        01,0,BA(DTADB0)+10
     5770   01 023A6    00007956     S2D1CB   F        00,0,BA(DTASB2)+2
     5771   01 023A7    0B007981              F        11,0,BA(DTADB1)+1
     5772   01 023A8    00007960              F        00,0,BA(DTASB2)+12
     5773   01 023A9    0100798B              F        01,0,BA(DTADB1)+11
     5774   01 023AA    00007956     S2D2CB   F        00,0,BA(DTASB2)+2
     5775   01 023AB    0B00798E              F        11,0,BA(DTADB2)+2
     5776   01 023AC    00007960              F        00,0,BA(DTASB2)+12
     5777   01 023AD    01007998              F        01,0,BA(DTADB2)+12
     5778   01 023AE    00007956     S2D3CB   F        00,0,BA(DTASB2)+2
     5779   01 023AF    0B00799F              F        11,0,BA(DTADB3)+3
     5780   01 023B0    00007960              F        00,0,BA(DTASB2)+12
     5781   01 023B1    010079A9              F        01,0,BA(DTADB3)+13
     5782   01 023B2    00007967     S3D0CB   F        00,0,BA(DTASB3)+3
     5783   01 023B3    0B007974              F        11,0,BA(DTADB0)+0
     5784   01 023B4    00007971              F        00,0,BA(DTASB3)+13
     5785   01 023B5    0100797E              F        01,0,BA(DTADB0)+10
     5786   01 023B6    00007967     S3D1CB   F        00,0,BA(DTASB3)+3
     5787   01 023B7    0B007981              F        11,0,BA(DTADB1)+1
     5788   01 023B8    00007971              F        00,0,BA(DTASB3)+13
     5789   01 023B9    0100798B              F        01,0,BA(DTADB1)+11
     5790   01 023BA    00007967     S3D2CB   F        00,0,BA(DTASB3)+3
     5791   01 023BB    0B00798E              F        11,0,BA(DTADB2)+2
     5792   01 023BC    00007971              F        00,0,BA(DTASB3)+13
     5793   01 023BD    01007998              F        01,0,BA(DTADB2)+12
     5794   01 023BE    00007967     S3D3CB   F        00,0,BA(DTASB3)+3
     5795   01 023BF    0B00799F              F        11,0,BA(DTADB3)+3
     5796   01 023C0    00007971              F        00,0,BA(DTASB3)+13
     5797   01 023C1    010079A9              F        01,0,BA(DTADB3)+13
     5798   01 023C2    000079AC     S0D0CC   F        00,0,BA(DTASC0)+0
     5799   01 023C3    0C0079EC              F        12,0,BA(DTADC0)+0
     5800   01 023C4    000079B7              F        00,0,BA(DTASC0)+11
     5801   01 023C5    010079F7              F        01,0,BA(DTADC0)+11
     5802   01 023C6    000079AC     S0D1CC   F        00,0,BA(DTASC0)+0
     5803   01 023C7    0C0079F9              F        12,0,BA(DTADC1)+1
     5804   01 023C8    000079B7              F        00,0,BA(DTASC0)+11
     5805   01 023C9    01007A04              F        01,0,BA(DTADC1)+12
     5806   01 023CA    000079AC     S0D2CC   F        00,0,BA(DTASC0)+0
     5807   01 023CB    0C007A0A              F        12,0,BA(DTADC2)+2
     5808   01 023CC    000079B7              F        00,0,BA(DTASC0)+11
     5809   01 023CD    01007A15              F        01,0,BA(DTADC2)+13
     5810   01 023CE    000079AC     S0D3CC   F        00,0,BA(DTASC0)+0
     5811   01 023CF    0C007A1B              F        12,0,BA(DTADC3)+3
     5812   01 023D0    000079B7              F        00,0,BA(DTASC0)+11
     5813   01 023D1    01007A26              F        01,0,BA(DTADC3)+14
     5814   01 023D2    000079BD     S1D0CC   F        00,0,BA(DTASC1)+1
     5815   01 023D3    0C0079EC              F        12,0,BA(DTADC0)+0
     5816   01 023D4    000079C8              F        00,0,BA(DTASC1)+12
     5817   01 023D5    010079F7              F        01,0,BA(DTADC0)+11
     5818   01 023D6    000079BD     S1D1CC   F        00,0,BA(DTASC1)+1
     5819   01 023D7    0C0079F9              F        12,0,BA(DTADC1)+1
     5820   01 023D8    000079C8              F        00,0,BA(DTASC1)+12
     5821   01 023D9    01007A04              F        01,0,BA(DTADC1)+12
     5822   01 023DA    000079BD     S1D2CC   F        00,0,BA(DTASC1)+1
     5823   01 023DB    0C007A0A              F        12,0,BA(DTADC2)+2
     5824   01 023DC    000079C8              F        00,0,BA(DTASC1)+12
     5825   01 023DD    01007A15              F        01,0,BA(DTADC2)+13
     5826   01 023DE    000079BD     S1D3CC   F        00,0,BA(DTASC1)+1
     5827   01 023DF    0C007A1B              F        12,0,BA(DTADC3)+3
     5828   01 023E0    000079C8              F        00,0,BA(DTASC1)+12
     5829   01 023E1    01007A26              F        01,0,BA(DTADC3)+14
     5830   01 023E2    000079CE     S2D0CC   F        00,0,BA(DTASC2)+2
     5831   01 023E3    0C0079EC              F        12,0,BA(DTADC0)+0
     5832   01 023E4    000079D9              F        00,0,BA(DTASC2)+13
     5833   01 023E5    010079F7              F        01,0,BA(DTADC0)+11
     5834   01 023E6    000079CE     S2D1CC   F        00,0,BA(DTASC2)+2
     5835   01 023E7    0C0079F9              F        12,0,BA(DTADC1)+1
     5836   01 023E8    000079D9              F        00,0,BA(DTASC2)+13
     5837   01 023E9    01007A04              F        01,0,BA(DTADC1)+12
     5838   01 023EA    000079CE     S2D2CC   F        00,0,BA(DTASC2)+2
     5839   01 023EB    0C007A0A              F        12,0,BA(DTADC2)+2
     5840   01 023EC    000079D9              F        00,0,BA(DTASC2)+13
     5841   01 023ED    01007A15              F        01,0,BA(DTADC2)+13
     5842   01 023EE    000079CE     S2D3CC   F        00,0,BA(DTASC2)+2
     5843   01 023EF    0C007A1B              F        12,0,BA(DTADC3)+3
     5844   01 023F0    000079D9              F        00,0,BA(DTASC2)+13
     5845   01 023F1    01007A26              F        01,0,BA(DTADC3)+14
     5846   01 023F2    000079DF     S3D0CC   F        00,0,BA(DTASC3)+3
     5847   01 023F3    0C0079EC              F        12,0,BA(DTADC0)+0
     5848   01 023F4    000079EA              F        00,0,BA(DTASC3)+14
     5849   01 023F5    010079F7              F        01,0,BA(DTADC0)+11
     5850   01 023F6    000079DF     S3D1CC   F        00,0,BA(DTASC3)+3
     5851   01 023F7    0C0079F9              F        12,0,BA(DTADC1)+1
     5852   01 023F8    000079EA              F        00,0,BA(DTASC3)+14
     5853   01 023F9    01007A04              F        01,0,BA(DTADC1)+12
     5854   01 023FA    000079DF     S3D2CC   F        00,0,BA(DTASC3)+3
     5855   01 023FB    0C007A0A              F        12,0,BA(DTADC2)+2
     5856   01 023FC    000079EA              F        00,0,BA(DTASC3)+14
     5857   01 023FD    01007A15              F        01,0,BA(DTADC2)+13
     5858   01 023FE    000079DF     S3D3CC   F        00,0,BA(DTASC3)+3
     5859   01 023FF    0C007A1B              F        12,0,BA(DTADC3)+3
     5860   01 02400    000079EA              F        00,0,BA(DTASC3)+14
     5861   01 02401    01007A26              F        01,0,BA(DTADC3)+14
     5862   01 02402    0000780C     S0D027   F        00,0,BA(DTAS80)+0
     5863   01 02403    08007A28              F        08,0,BA(DTA027)+0
     5864   01 02404    00007812              F        00,0,BA(DTAS80)+06
     5865   01 02405    02007A2E              F        02,0,BA(DTA027)+06
     5866   01 02406    0000780C     S0D037   F        00,0,BA(DTAS80)+0
     5867   01 02407    08007768              F        08,0,BA(DTA037)+0
     5868   01 02408    00007812              F        00,0,BA(DTAS80)+06
     5869   01 02409    0200776E              F        02,0,BA(DTA037)+06
     5870   01 0240A    0000780C     S0D046   F        00,0,BA(DTAS80)+0
     5871   01 0240B    08007A30              F        08,0,BA(DTA046)+0
     5872   01 0240C    00007811              F        00,0,BA(DTAS80)+05
     5873   01 0240D    03007A35              F        03,0,BA(DTA046)+05
     5874   01 0240E    0000780C     S0D056   F        00,0,BA(DTAS80)+0
     5875   01 0240F    08007A38              F        08,0,BA(DTA056)+0
     5876   01 02410    00007811              F        00,0,BA(DTAS80)+05
     5877   01 02411    03007A3D              F        03,0,BA(DTA056)+05
     5878   01 02412    0000780C     S0D066   F        00,0,BA(DTAS80)+0
     5879   01 02413    08007A40              F        08,0,BA(DTA066)+0
     5880   01 02414    00007811              F        00,0,BA(DTAS80)+05
     5881   01 02415    03007A45              F        03,0,BA(DTA066)+05
     5882   01 02416    0000780C     S0D076   F        00,0,BA(DTAS80)+0
     5883   01 02417    0800771C              F        08,0,BA(DTA076)+0
     5884   01 02418    00007811              F        00,0,BA(DTAS80)+05
     5885   01 02419    03007721              F        03,0,BA(DTA076)+05
     5886   01 0241A    0000780C     S0D085   F        00,0,BA(DTAS80)+0
     5887   01 0241B    08007A48              F        08,0,BA(DTA085)+0
     5888   01 0241C    00007810              F        00,0,BA(DTAS80)+04
     5889   01 0241D    04007A4C              F        04,0,BA(DTA085)+04
     5890   01 0241E    0000780C     S0D095   F        00,0,BA(DTAS80)+0
     5891   01 0241F    08007A50              F        08,0,BA(DTA095)+0
     5892   01 02420    00007810              F        00,0,BA(DTAS80)+04
     5893   01 02421    04007A54              F        04,0,BA(DTA095)+04
     5894   01 02422    0000780C     S0D0A5   F        00,0,BA(DTAS80)+0
     5895   01 02423    08007A58              F        08,0,BA(DTA0A5)+0
     5896   01 02424    00007810              F        00,0,BA(DTAS80)+04
     5897   01 02425    04007A5C              F        04,0,BA(DTA0A5)+04
     5898   01 02426    0000780C     S0D0B5   F        00,0,BA(DTAS80)+0
     5899   01 02427    08007A60              F        08,0,BA(DTA0B5)+0
     5900   01 02428    00007810              F        00,0,BA(DTAS80)+04
     5901   01 02429    04007A64              F        04,0,BA(DTA0B5)+04
     5902   01 0242A    0000780C     S0D0N5   F        00,0,BA(DTAS80)+0
     5903   01 0242B    08007A68              F        08,0,BA(DTA0C5)+0
     5904   01 0242C    00007810              F        00,0,BA(DTAS80)+04
     5905   01 0242D    04007A6C              F        04,0,BA(DTA0C5)+04
     5906   01 0242E    0000780C     S0D0D5   F        00,0,BA(DTAS80)+0
     5907   01 0242F    08007A70              F        08,0,BA(DTA0D5)+0
     5908   01 02430    00007810              F        00,0,BA(DTAS80)+04
     5909   01 02431    04007A74              F        04,0,BA(DTA0D5)+04
     5910   01 02432    0000780C     S0D0E5   F        00,0,BA(DTAS80)+0
     5911   01 02433    08007A78              F        08,0,BA(DTA0E5)+0
     5912   01 02434    00007810              F        00,0,BA(DTAS80)+04
     5913   01 02435    04007A7C              F        04,0,BA(DTA0E5)+04
     5914   01 02436    0000780C     S0D0F5   F        00,0,BA(DTAS80)+0
     5915   01 02437    080076D4              F        08,0,BA(DTA0F5)+0
     5916   01 02438    00007810              F        00,0,BA(DTAS80)+04
     5917   01 02439    040076D8              F        04,0,BA(DTA0F5)+04
     5918   01 0243A    00007819     S1D127   F        00,0,BA(DTAS81)+1
     5919   01 0243B    08007A81              F        08,0,BA(DTA127)+1
     5920   01 0243C    0000781F              F        00,0,BA(DTAS81)+07
     5921   01 0243D    02007A87              F        02,0,BA(DTA127)+07
     5922   01 0243E    00007819     S1D137   F        00,0,BA(DTAS81)+1
     5923   01 0243F    08007771              F        08,0,BA(DTA137)+1
     5924   01 02440    0000781F              F        00,0,BA(DTAS81)+07
     5925   01 02441    02007777              F        02,0,BA(DTA137)+07
     5926   01 02442    00007819     S1D146   F        00,0,BA(DTAS81)+1
     5927   01 02443    08007A8D              F        08,0,BA(DTA146)+1
     5928   01 02444    0000781E              F        00,0,BA(DTAS81)+06
     5929   01 02445    03007A92              F        03,0,BA(DTA146)+06
     5930   01 02446    00007819     S1D156   F        00,0,BA(DTAS81)+1
     5931   01 02447    08007A99              F        08,0,BA(DTA156)+1
     5932   01 02448    0000781E              F        00,0,BA(DTAS81)+06
     5933   01 02449    03007A9E              F        03,0,BA(DTA156)+06
     5934   01 0244A    00007819     S1D166   F        00,0,BA(DTAS81)+1
     5935   01 0244B    08007AA5              F        08,0,BA(DTA166)+1
     5936   01 0244C    0000781E              F        00,0,BA(DTAS81)+06
     5937   01 0244D    03007AAA              F        03,0,BA(DTA166)+06
     5938   01 0244E    00007819     S1D176   F        00,0,BA(DTAS81)+1
     5939   01 0244F    08007725              F        08,0,BA(DTA176)+1
     5940   01 02450    0000781E              F        00,0,BA(DTAS81)+06
     5941   01 02451    0300772A              F        03,0,BA(DTA176)+06
     5942   01 02452    00007819     S1D185   F        00,0,BA(DTAS81)+1
     5943   01 02453    08007AB1              F        08,0,BA(DTA185)+1
     5944   01 02454    0000781D              F        00,0,BA(DTAS81)+05
     5945   01 02455    04007AB5              F        04,0,BA(DTA185)+05
     5946   01 02456    00007819     S1D195   F        00,0,BA(DTAS81)+1
     5947   01 02457    08007ABD              F        08,0,BA(DTA195)+1
     5948   01 02458    0000781D              F        00,0,BA(DTAS81)+05
     5949   01 02459    04007AC1              F        04,0,BA(DTA195)+05
     5950   01 0245A    00007819     S1D1A5   F        00,0,BA(DTAS81)+1
     5951   01 0245B    08007AC9              F        08,0,BA(DTA1A5)+1
     5952   01 0245C    0000781D              F        00,0,BA(DTAS81)+05
     5953   01 0245D    04007ACD              F        04,0,BA(DTA1A5)+05
     5954   01 0245E    00007819     S1D1B5   F        00,0,BA(DTAS81)+1
     5955   01 0245F    08007AD5              F        08,0,BA(DTA1B5)+1
     5956   01 02460    0000781D              F        00,0,BA(DTAS81)+05
     5957   01 02461    04007AD9              F        04,0,BA(DTA1B5)+05
     5958   01 02462    00007819     S1D1N5   F        00,0,BA(DTAS81)+1
     5959   01 02463    08007AE1              F        08,0,BA(DTA1C5)+1
     5960   01 02464    0000781D              F        00,0,BA(DTAS81)+05
     5961   01 02465    04007AE5              F        04,0,BA(DTA1C5)+05
     5962   01 02466    00007819     S1D1D5   F        00,0,BA(DTAS81)+1
     5963   01 02467    08007AED              F        08,0,BA(DTA1D5)+1
     5964   01 02468    0000781D              F        00,0,BA(DTAS81)+05
     5965   01 02469    04007AF1              F        04,0,BA(DTA1D5)+05
     5966   01 0246A    00007819     S1D1E5   F        00,0,BA(DTAS81)+1
     5967   01 0246B    08007AF9              F        08,0,BA(DTA1E5)+1
     5968   01 0246C    0000781D              F        00,0,BA(DTAS81)+05
     5969   01 0246D    04007AFD              F        04,0,BA(DTA1E5)+05
     5970   01 0246E    00007819     S1D1F5   F        00,0,BA(DTAS81)+1
     5971   01 0246F    080076DD              F        08,0,BA(DTA1F5)+1
     5972   01 02470    0000781D              F        00,0,BA(DTAS81)+05
     5973   01 02471    040076E1              F        04,0,BA(DTA1F5)+05
     5974   01 02472    00007826     S2D227   F        00,0,BA(DTAS82)+2
     5975   01 02473    08007B06              F        08,0,BA(DTA227)+2
     5976   01 02474    0000782C              F        00,0,BA(DTAS82)+08
     5977   01 02475    02007B0C              F        02,0,BA(DTA227)+08
     5978   01 02476    00007826     S2D237   F        00,0,BA(DTAS82)+2
     5979   01 02477    0800777E              F        08,0,BA(DTA237)+2
     5980   01 02478    0000782C              F        00,0,BA(DTAS82)+08
     5981   01 02479    02007784              F        02,0,BA(DTA237)+08
     5982   01 0247A    00007826     S2D246   F        00,0,BA(DTAS82)+2
     5983   01 0247B    08007B12              F        08,0,BA(DTA246)+2
     5984   01 0247C    0000782B              F        00,0,BA(DTAS82)+07
     5985   01 0247D    03007B17              F        03,0,BA(DTA246)+07
     5986   01 0247E    00007826     S2D256   F        00,0,BA(DTAS82)+2
     5987   01 0247F    08007B1E              F        08,0,BA(DTA256)+2
     5988   01 02480    0000782B              F        00,0,BA(DTAS82)+07
     5989   01 02481    03007B23              F        03,0,BA(DTA256)+07
     5990   01 02482    00007826     S2D266   F        00,0,BA(DTAS82)+2
     5991   01 02483    08007B2A              F        08,0,BA(DTA266)+2
     5992   01 02484    0000782B              F        00,0,BA(DTAS82)+07
     5993   01 02485    03007B2F              F        03,0,BA(DTA266)+07
     5994   01 02486    00007826     S2D276   F        00,0,BA(DTAS82)+2
     5995   01 02487    08007732              F        08,0,BA(DTA276)+2
     5996   01 02488    0000782B              F        00,0,BA(DTAS82)+07
     5997   01 02489    03007737              F        03,0,BA(DTA276)+07
     5998   01 0248A    00007826     S2D285   F        00,0,BA(DTAS82)+2
     5999   01 0248B    08007B36              F        08,0,BA(DTA285)+2
     6000   01 0248C    0000782A              F        00,0,BA(DTAS82)+06
     6001   01 0248D    04007B3A              F        04,0,BA(DTA285)+06
     6002   01 0248E    00007826     S2D295   F        00,0,BA(DTAS82)+2
     6003   01 0248F    08007B42              F        08,0,BA(DTA295)+2
     6004   01 02490    0000782A              F        00,0,BA(DTAS82)+06
     6005   01 02491    04007B46              F        04,0,BA(DTA295)+06
     6006   01 02492    00007826     S2D2A5   F        00,0,BA(DTAS82)+2
     6007   01 02493    08007B4E              F        08,0,BA(DTA2A5)+2
     6008   01 02494    0000782A              F        00,0,BA(DTAS82)+06
     6009   01 02495    04007B52              F        04,0,BA(DTA2A5)+06
     6010   01 02496    00007826     S2D2B5   F        00,0,BA(DTAS82)+2
     6011   01 02497    08007B5A              F        08,0,BA(DTA2B5)+2
     6012   01 02498    0000782A              F        00,0,BA(DTAS82)+06
     6013   01 02499    04007B5E              F        04,0,BA(DTA2B5)+06
     6014   01 0249A    00007826     S2D2N5   F        00,0,BA(DTAS82)+2
     6015   01 0249B    08007B66              F        08,0,BA(DTA2C5)+2
     6016   01 0249C    0000782A              F        00,0,BA(DTAS82)+06
     6017   01 0249D    04007B6A              F        04,0,BA(DTA2C5)+06
     6018   01 0249E    00007826     S2D2D5   F        00,0,BA(DTAS82)+2
     6019   01 0249F    08007B72              F        08,0,BA(DTA2D5)+2
     6020   01 024A0    0000782A              F        00,0,BA(DTAS82)+06
     6021   01 024A1    04007B76              F        04,0,BA(DTA2D5)+06
     6022   01 024A2    00007826     S2D2E5   F        00,0,BA(DTAS82)+2
     6023   01 024A3    08007B7E              F        08,0,BA(DTA2E5)+2
     6024   01 024A4    0000782A              F        00,0,BA(DTAS82)+06
     6025   01 024A5    04007B82              F        04,0,BA(DTA2E5)+06
     6026   01 024A6    00007826     S2D2F5   F        00,0,BA(DTAS82)+2
     6027   01 024A7    080076EA              F        08,0,BA(DTA2F5)+2
     6028   01 024A8    0000782A              F        00,0,BA(DTAS82)+06
     6029   01 024A9    040076EE              F        04,0,BA(DTA2F5)+06
     6030   01 024AA    00007833     S3D327   F        00,0,BA(DTAS83)+3
     6031   01 024AB    08007B8B              F        08,0,BA(DTA327)+3
     6032   01 024AC    00007839              F        00,0,BA(DTAS83)+09
     6033   01 024AD    02007B91              F        02,0,BA(DTA327)+09
     6034   01 024AE    00007833     S3D337   F        00,0,BA(DTAS83)+3
     6035   01 024AF    0800778B              F        08,0,BA(DTA337)+3
     6036   01 024B0    00007839              F        00,0,BA(DTAS83)+09
     6037   01 024B1    02007791              F        02,0,BA(DTA337)+09
     6038   01 024B2    00007833     S3D346   F        00,0,BA(DTAS83)+3
     6039   01 024B3    08007B97              F        08,0,BA(DTA346)+3
     6040   01 024B4    00007838              F        00,0,BA(DTAS83)+08
     6041   01 024B5    03007B9C              F        03,0,BA(DTA346)+08
     6042   01 024B6    00007833     S3D356   F        00,0,BA(DTAS83)+3
     6043   01 024B7    08007BA3              F        08,0,BA(DTA356)+3
     6044   01 024B8    00007838              F        00,0,BA(DTAS83)+08
     6045   01 024B9    03007BA8              F        03,0,BA(DTA356)+08
     6046   01 024BA    00007833     S3D366   F        00,0,BA(DTAS83)+3
     6047   01 024BB    08007BAF              F        08,0,BA(DTA366)+3
     6048   01 024BC    00007838              F        00,0,BA(DTAS83)+08
     6049   01 024BD    03007BB4              F        03,0,BA(DTA366)+08
     6050   01 024BE    00007833     S3D376   F        00,0,BA(DTAS83)+3
     6051   01 024BF    0800773F              F        08,0,BA(DTA376)+3
     6052   01 024C0    00007838              F        00,0,BA(DTAS83)+08
     6053   01 024C1    03007744              F        03,0,BA(DTA376)+08
     6054   01 024C2    00007833     S3D385   F        00,0,BA(DTAS83)+3
     6055   01 024C3    08007BBB              F        08,0,BA(DTA385)+3
     6056   01 024C4    00007837              F        00,0,BA(DTAS83)+07
     6057   01 024C5    04007BBF              F        04,0,BA(DTA385)+07
     6058   01 024C6    00007833     S3D395   F        00,0,BA(DTAS83)+3
     6059   01 024C7    08007BC7              F        08,0,BA(DTA395)+3
     6060   01 024C8    00007837              F        00,0,BA(DTAS83)+07
     6061   01 024C9    04007BCB              F        04,0,BA(DTA395)+07
     6062   01 024CA    00007833     S3D3A5   F        00,0,BA(DTAS83)+3
     6063   01 024CB    08007BD3              F        08,0,BA(DTA3A5)+3
     6064   01 024CC    00007837              F        00,0,BA(DTAS83)+07
     6065   01 024CD    04007BD7              F        04,0,BA(DTA3A5)+07
     6066   01 024CE    00007833     S3D3B5   F        00,0,BA(DTAS83)+3
     6067   01 024CF    08007BDF              F        08,0,BA(DTA3B5)+3
     6068   01 024D0    00007837              F        00,0,BA(DTAS83)+07
     6069   01 024D1    04007BE3              F        04,0,BA(DTA3B5)+07
     6070   01 024D2    00007833     S3D3N5   F        00,0,BA(DTAS83)+3
     6071   01 024D3    08007BEB              F        08,0,BA(DTA3C5)+3
     6072   01 024D4    00007837              F        00,0,BA(DTAS83)+07
     6073   01 024D5    04007BEF              F        04,0,BA(DTA3C5)+07
     6074   01 024D6    00007833     S3D3D5   F        00,0,BA(DTAS83)+3
     6075   01 024D7    08007BF7              F        08,0,BA(DTA3D5)+3
     6076   01 024D8    00007837              F        00,0,BA(DTAS83)+07
     6077   01 024D9    04007BFB              F        04,0,BA(DTA3D5)+07
     6078   01 024DA    00007833     S3D3E5   F        00,0,BA(DTAS83)+3
     6079   01 024DB    08007C03              F        08,0,BA(DTA3E5)+3
     6080   01 024DC    00007837              F        00,0,BA(DTAS83)+07
     6081   01 024DD    04007C07              F        04,0,BA(DTA3E5)+07
     6082   01 024DE    00007833     S3D3F5   F        00,0,BA(DTAS83)+3
     6083   01 024DF    080076F7              F        08,0,BA(DTA3F5)+3
     6084   01 024E0    00007837              F        00,0,BA(DTAS83)+07
     6085   01 024E1    040076FB              F        04,0,BA(DTA3F5)+07
     6086   01 024E2    0000EB00     OVRLAP00 F        0,0,BA(MEMORY)
     6087   01 024E3    0C00EB0C              F        12,0,BA(MEMORY)+12
     6088   01 024E4    0000EB0C              F        0,0,BA(MEMORY)+12
     6089   01 024E5    0000EB18              F        0,0,BA(MEMORY)+24
     6090   01 024E6    0000EB00     OVRLAP01 F        0,0,BA(MEMORY)
     6091   01 024E7    0C00EB0B              F        12,0,BA(MEMORY)+11
     6092   01 024E8    0000EB0C              F        0,0,BA(MEMORY)+12
     6093   01 024E9    0000EB17              F        0,0,BA(MEMORY)+23
     6094   01 024EA    0000EB00     OVRLAP03 F        0,0,BA(MEMORY)
     6095   01 024EB    0C00EB09              F        12,0,BA(MEMORY)+9
     6096   01 024EC    0000EB0C              F        0,0,BA(MEMORY)+12
     6097   01 024ED    0000EB15              F        0,0,BA(MEMORY)+21
     6098   01 024EE    0000EB00     OVRLAP04 F        0,0,BA(MEMORY)
     6099   01 024EF    0C00EB08              F        12,0,BA(MEMORY)+08
     6100   01 024F0    0000EB0C              F        0,0,BA(MEMORY)+12
     6101   01 024F1    0000EB14              F        0,0,BA(MEMORY)+20
     6102   01 024F2    0000EB00     OVRLAP07 F        0,0,BA(MEMORY)
     6103   01 024F3    0C00EB05              F        12,0,BA(MEMORY)+5
     6104   01 024F4    0000EB0C              F        0,0,BA(MEMORY)+12
     6105   01 024F5    0000EB11              F        0,0,BA(MEMORY)+17
     6106   01 024F6    0000EB00     OVRLAP08 F        0,0,BA(MEMORY)
     6107   01 024F7    0C00EB04              F        12,0,BA(MEMORY)+4
     6108   01 024F8    0000EB0C              F        0,0,BA(MEMORY)+12
     6109   01 024F9    0000EB10              F        0,0,BA(MEMORY)+16
     6110   01 024FA    0000EB00     OVRLAP11 F        0,0,BA(MEMORY)
     6111   01 024FB    0C00EB01              F        12,0,BA(MEMORY)+1
     6112   01 024FC    0000EB0C              F        0,0,BA(MEMORY)+12
     6113   01 024FD    0000EB0D              F        0,0,BA(MEMORY)+13
     6114   01 024FE    0000EB00     OVRLAY00 F        0,0,BA(MEMORY)
     6115   01 024FF    0600EB06              F        6,0,BA(MEMORY)+6
     6116   01 02500    0000EB06              F        0,0,BA(MEMORY)+6
     6117   01 02501    0000EB0C              F        0,0,BA(MEMORY)+12
     6118   01 02502    0000EB00     OVRLAY01 F        0,0,BA(MEMORY)
     6119   01 02503    0600EB05              F        6,0,BA(MEMORY)+5
     6120   01 02504    0000EB06              F        0,0,BA(MEMORY)+6
     6121   01 02505    0000EB0B              F        0,0,BA(MEMORY)+11
     6122   01 02506    0000EB00     OVRLAY03 F        0,0,BA(MEMORY)
     6123   01 02507    0600EB04              F        6,0,BA(MEMORY)+4
     6124   01 02508    0000EB06              F        0,0,BA(MEMORY)+6
     6125   01 02509    0000EB0A              F        0,0,BA(MEMORY)+10
     6126   01 0250A    0000EB00     OVRLAY04 F        0,0,BA(MEMORY)
     6127   01 0250B    0600EB03              F        6,0,BA(MEMORY)+3
     6128   01 0250C    0000EB06              F        0,0,BA(MEMORY)+6
     6129   01 0250D    0000EB09              F        0,0,BA(MEMORY)+9
     6130   01 0250E    0000EB00     OVRLAY07 F        0,0,BA(MEMORY)
     6131   01 0250F    0600EB02              F        6,0,BA(MEMORY)+2
     6132   01 02510    0000EB06              F        0,0,BA(MEMORY)+6
     6133   01 02511    0000EB08              F        0,0,BA(MEMORY)+8
     6134   01 02512    0000EB00     OVRLAY08 F        0,0,BA(MEMORY)
     6135   01 02513    0600EB01              F        6,0,BA(MEMORY)+1
     6136   01 02514    0000EB06              F        0,0,BA(MEMORY)+6
     6137   01 02515    0000EB07              F        0,0,BA(MEMORY)+7
     6138   01 02516    0000EB00     OVRLAY11 F        0,0,BA(MEMORY)
     6139   01 02517    0300EB03              F        3,0,BA(MEMORY)+3
     6140   01 02518    0000EB03              F        0,0,BA(MEMORY)+3
     6141   01 02519    0000EB06              F        0,0,BA(MEMORY)+6
     6142   01 0251A    0000EB00     OVRLAY12 F        0,0,BA(MEMORY)
     6143   01 0251B    0300EB02              F        3,0,BA(MEMORY)+2
     6144   01 0251C    0000EB03              F        0,0,BA(MEMORY)+3
     6145   01 0251D    0000EB05              F        0,0,BA(MEMORY)+5
     6146   01 0251E    0000EB00     OVRLAY13 F        0,0,BA(MEMORY)
     6147   01 0251F    0300EB01              F        3,0,BA(MEMORY)+1
     6148   01 02520    0000EB03              F        0,0,BA(MEMORY)+3
     6149   01 02521    0000EB04              F        0,0,BA(MEMORY)+4
     6150                            *  *** DATA TABLE FOR MMC INSTRUCTION TEST ***
     6151                            *
     6152                            *
     6153   01 02522    00003AC0     MMCR1    DATA     MEMORY
     6154   01 02523    01000000 A            DATA     X'01000000'
     6155   01 02524    00003AC1     MMCR1F   DATA     MEMORY+1
     6156   01 02525    00002000 A            DATA     X'2000'
     6157                            *
     6158   01 02526    00003AC0     MMCR2    DATA     MEMORY
     6159   01 02527    08001800 A            DATA     X'08001800'
     6160   01 02528    00003AC8     MMCR2F   DATA     MEMORY+8
     6161   01 02529    00011800 A            DATA     X'11800'
     6162                            *
     6163   01 0252A    00003AC0     MMCR3    DATA     MEMORY
     6164   01 0252B    02000000 A            DATA     X'02000000'
     6165   01 0252C    00003AC2     MMCR3F   DATA     MEMORY+2
     6166   01 0252D    00004000 A            DATA     X'4000'
     6167                            *
     6168   01 0252E    00003AC0     MMCR4    DATA     MEMORY
     6169   01 0252F    0F001800 A            DATA     X'0F001800'
     6170   01 02530    00003ACF     MMCR4F   DATA     MEMORY+15
     6171   01 02531    0001F800 A            DATA     X'1F800'
     6172                            *
     6173   01 02532    00003AC0     MMCR5    DATA     MEMORY
     6174   01 02533    01000000 A            DATA     X'01000000'
     6175   01 02534    00003AC1     MMCR5F   DATA     MEMORY+1
     6176   01 02535    00000800 A            DATA     X'00000800'
     6177                            *
     6178   01 02536    00003AC0     MMCR6    DATA     MEMORY
     6179   01 02537    40000000 A            DATA     X'40000000'
     6180   01 02538    00003B00     MMCR6F   DATA     MEMORY+64
     6181   01 02539    00000000 A            DATA     0
     6182                            *
     6183   01 0253A    00003AC0     MMCR7    DATA     MEMORY
     6184   01 0253B    10000000 A            DATA     X'10000000'
     6185   01 0253C    00003AD0     MMCR7F   DATA     MEMORY+16
     6186   01 0253D    00000000 A            DATA     0
     6187   01 0253E    00003AC0     MMCR8    DATA     MEMORY
     6188   01 0253F    0101FC00 A            DATA     X'0101FC00'
     6189   01 02540    00003AC1     MMCR8F   DATA     MEMORY+1
     6190   01 02541    00000000 A            DATA     0
     6191                            *
     6192         01 02542           MNEMLIST EQU      %
     6193                                     LIST     0
     6324                            *
     6325         01 025C2           PROGTEXT TEXTCS   'SUFFIX A05'                                      *A05
     6326                                     TEXTCS   'SIGMA 8-9 CPU DIAG PROG 706134-';                *A03
     6327         01 025C5                    ,'A05 MANUAL 901878'                                       *A05
     6328                            *
     6329                            *          **********
     6330         01 025D2           STAT%EXPL  TEXTCS 'STATUS REPORT EXPLANATION'
     6331                                     TEXTCS   ;
     6332         01 025D9            '&      CAUSES OUTPUT OF THE CURRENT TESTING STATUS'
     6333                            *
     6334                                     TEXTCS   ;
     6335         01 025E6            'THE ITEMS THAT MAKE-UP THE STATUS MESSAGE ARE TAKEN FROM THE'
     6336                                     TEXTCS   ;
     6337         01 025F6            'FUNCTIONAL TEST ERROR MESSAGE AND THE J AND K PARAMETER LINES.'
     6338                                     TEXTCS   ;
     6339         01 02606            'TOTAL ERRORS DIFFERS FROM ERRORS PER PASS BY ONLY GETTING'
     6340                                     TEXTCS   ;
     6341         01 02615            ' RESET ON ABSOLUTE RECOVERY.  PROGADDR IS THE PROGRAM ADDRESS'
     6342                                     TEXTCS   ;
     6343         01 02625            'AT THE TIME THE &  KEY WAS DEPRESSED.'
     6344                            SYNTAX%EXPL TEXTCS      ;
     6345                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
     6346         01 0262F            ' EXPLANATION,'
     6347                                     TEXTCS   ;
     6348         01 02641            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
     6349         01 0264D                    TEXTCS   ' '
     6350                                     TEXTCS   ;
     6351         01 0264E            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
     6352         01 0265E                    TEXTCS   ' '
     6353                                     TEXTCS   ;
     6354         01 0265F            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
     6355                                     TEXTCS   ;
     6356         01 0266E            'THE SPECIFIED ACTION.'
     6357         01 02674                    TEXTCS   ' '
     6358                                     TEXTCS   ;
     6359         01 02675            '(1) ''@''-ABSOLUTE RECOVERY,DOES SAME AS''SYSTEM RESET''FROM PCP'
     6360         01 02685                    TEXTCS   ' '
     6361                                     TEXTCS   ;
     6362         01 02686            '(2) ''%''-FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING PCP'
     6363                                     TEXTCS   ;
     6364         01 02696            '     ''COMPUTE''SWITCH TO ''IDLE''.  WHEN OUTPUT TO KSR, IT MEANS'
     6365                                     TEXTCS   ;
     6366         01 026A6            '     THE PROGRAM IS WAITING FOR INPUT.'
     6367         01 026B0                    TEXTCS   ' '
     6368                                     TEXTCS   ;
     6369         01 026B1            '(3) ''#''- FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
     6370                                     TEXTCS   ;
     6371         01 026C1            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
     6372         01 026CC                    TEXTCS   ' '
     6373                                     TEXTCS   ;
     6374         01 026CD            '(4) ''QUEST. MARK''-OUTPUTS SYNTAX GLOSS. AFTER ''@'' PROMPT,'
     6375                                     TEXTCS   ;
     6376         01 026DC            '     OR CURRENT ''REQUEST'' EXPL. AFTER KEYIN, OR CURRENT ERROR EXPL.'
     6377                                     TEXTCS   ;
     6378         01 026ED            '     AFTER AN ERROR MSG.'
     6379         01 026F4           DM%EXPL  TEXTCS   ' '
     6380                                     TEXTCS   ;
     6381         01 026F5            '(5) ''DM>X,Y''- DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
     6382         01 02706           RM%EXPL  TEXTCS   ' '
     6383                                     TEXTCS   ;
     6384         01 02707            '(6) ''RM>X,Y'' - DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
     6385                                     TEXTCS   ;
     6386         01 02716             '      REPLACEMENT OF WORD DISPLAYED.'
     6387         01 02720                    TEXTCS   ' '
     6388         01 02721           S%EXPL   EQU      %
     6389                                     TEXTCS   ;
     6390         01 02721            '(7) "SS"-SENSE SWITCH OPTIONS. DISPLAY TO MSG DEV THE CURRENT'    *A03
     6391                                     TEXTCS   ;
     6392         01 02731            '     SENSE SWITCH (SOFTWARE) STATUS AND ALLOW USER TO MODIFY STATUS'
     6393                                     TEXTCS   ;
     6394         01 02742            '      SW1=1 SHORT LOOP     SW1  OVERRIDES ALL OTHERS'
     6395                                     TEXTCS   ;
     6396         01 02750            '      SW2=1 LONG LOOP     REPORTS ERRORS IF SW4=0'
     6397                                     TEXTCS   ;
     6398         01 0275D            '      SW3=1 NO HALT ON ERROR'
     6399                                     TEXTCS   ;
     6400         01 02765            '      SW4=1 SUPPRESS ERROR MESSAGES ONLY - NOT STATUS'
     6401                                     TEXTCS   ;                                                 *A03
     6402         01 02773            '      PCP IF M=1, SOFTWARE SS IF M=0.'                            *A03
     6403         01 0277D                    TEXTCS   ' '
     6404                            *
     6405                            ******************************************************************
     6406                            *  DESIGNER INSERTS HIS SYNTAX EXPLANATIONS HERE
     6407                            ******************************************************************
     6408                            DL%EXPL  TEXTCS   ;
     6409         01 0277E            '  ''DL'' MEANS DISPLAY MODULE DATA'
     6410                                     TEXTCS   ;
     6411         01 02787            'DL>XXX,YYY,   CAUSES A DISPLAY OF MODULES FROM XXX TO YYY'
     6412                                     TEXTCS   ;
     6413         01 02796            '        IF YYY<XXX IT IS USED AS THE # TO BE DISPLAYED'
     6414                            J%EXPL   TEXTCS   ;
     6415         01 027A4            'J      SELECTS PROGRAM CONTROL PARAMETERS'
     6416                                     TEXTCS   ;
     6417         01 027AF            '** PARAMETER LINE J (CONTROL  LINE) EXPLANATION'
     6418                                     TEXTCS   ;
     6419         01 027BB            'MSGDEV          MESSAGE OUTPUT DEVICE NUMBER'
     6420                                     TEXTCS   ;
     6421         01 027C7            'COMDEV          COMMUNICATION DEVICE NUMBER'
     6422                                     TEXTCS   ;
     6423         01 027D2            'SI              STATUS INTERVAL'
     6424                                     TEXTCS   ;
     6425         01 027DA            '                  THE INTERVAL (TIME OR PASSES) BETWEEN AUTOMATIC'
     6426                                     TEXTCS   ;
     6427         01 027EB            '                      STATUS REPORTS    0=INFINITY'
     6428                                     TEXTCS   ;
     6429         01 027F8            'CM              CLOCK MARGIN'
     6430                                     TEXTCS   ;
     6431         01 02800            'MARGIN LIMITS:'
     6432                                     TEXTCS   ;
     6433         01 02804            '     PROGRAM CONTROLLED    USER CONTROLLED (FIXED)'
     6434                                     TEXTCS   ;
     6435         01 02811            '       0 = NORMAL             A = NORMAL'
     6436                                     TEXTCS   ;
     6437         01 0281C            '       1 = HIGH               B = HIGH'
     6438                                     TEXTCS   ;
     6439         01 02826            '       2 = LO                 C = LO'
     6440                                     TEXTCS   ;
     6441         01 02830            'EM         EXECUTION MODE - DEFINES THE ANTICIPATE PATH'
     6442                                     TEXTCS   ;
     6443         01 0283E            '           TAKEN TO THE TEST INSTRUCTION AS FOLLOWS:'
     6444                                     TEXTCS   ;
     6445         01 0284C            '    PROGRAM CONTROLLED     USER CONTROLLED (FIXED)'
     6446                                     TEXTCS   ;
     6447         01 02859            '       0 = LPSD TO TI       A = SAME (FIXED)'
     6448                                     TEXTCS   ;
     6449         01 02865            '       1 = BRANCH (NOP)     B = SAME (FIXED)'
     6450                                     TEXTCS   ;
     6451         01 02871            '       2 = EXECUTE TI       C = SAME (FIXED)'
     6452                                     TEXTCS   ;
     6453         01 0287D            '       3 = BRANCH TO TI     D = SAME (FIXED)'
     6454                                     TEXTCS   ;
     6455         01 02889            'CI     COUNT PULSE 4 INTERRUPT; 0 = OFF, 1 = ON'
     6456                                     TEXTCS   ;
     6457         01 02895            'MTADR  MAGTAPE ADDRESS FOR SNAP DATA DEFAULT = HEX80'
     6458                            K%EXPL   TEXTCS   ;
     6459         01 028A3            'K   SELECTS THE SNAP OPTION PARAMETERS'
     6460                                     TEXTCS   ;
     6461         01 028AD            'MST = MODULE START,  MSP = MODULE STOP,  MCR = MODULE CURRENT'
     6462                                     TEXTCS   ;
     6463         01 028BD            'LC = LOOP COUNT, # OF ITERATIONS OVER RANGE OF MODULES'
     6464                                     TEXTCS   ;
     6465         01 028CB            '     SPECIFIED BY MST THRU MSP'
     6466                                     TEXTCS   ;
     6467         01 028D3            'SO = SNAP OPTION.  ACCEPTABLE VALUES ARE AS FOLLOWS:'
     6468                                     TEXTCS   ;
     6469         01 028E1            '     0 = NONE'
     6470                                     TEXTCS   ;
     6471         01 028E5            '     1 = SNAP AND PRINT FIRST NON-COMPARE IF THERE IS A'
     6472                                     TEXTCS   ;
     6473         01 028F3            '         FUNCTIONAL TEST ERROR---AND HALT.'
     6474                                     TEXTCS   ;
     6475         01 028FE            '     2 = SNAP AND PRINT ALL NON-COMPARES ON THOSE MODULES'
     6476                                     TEXTCS   ;
     6477         01 0290D            '         THAT FAIL THEIR FUNCTIONAL TEST.'
     6478                                     TEXTCS   ;
     6479         01 02918            '     3 = PRINT DATA FROM SNAPTAPE.  LIKE SO=F, EXCEPT DATA'
     6480                                     TEXTCS   ;
     6481         01 02927            '         IS EXPECTED INSTEAD OF OBSERVED'
     6482                                     TEXTCS   ;
     6483         01 02932            '     6 = FULL INTERLACED SNAP OF ALL CLOCKS OF BOTH EXPECTED'
     6484                                     TEXTCS   ;
     6485         01 02942            '         AND OBSERVED DATA ON ONLY THOSE MODULES THAT FAIL FT.'
     6486                                     TEXTCS   ;
     6487         01 02952            '     7 = SNAP AND PRINT ONLY THE OBSERVED DATA FOR THOSE MODULES'
     6488                                     TEXTCS   ;
     6489         01 02963            '         THAT FAIL THEIR FUNCTIONAL TEST.'
     6490                                     TEXTCS   ;
     6491         01 0296E            '     9 = FORCED OPTION 1.  PRINTS ONLY ON NON-COMPARE.'
     6492                                     TEXTCS   ;
     6493         01 0297C            '     A = FORCED OPTION 2.  PRINTS ONLY ON NON-COMPARE.'
     6494                                     TEXTCS   ;
     6495         01 0298A            '     E = SNAP AND PRINT BOTH EXPECTED AND OBSERVED DATA FOR ALL'
     6496                                     TEXTCS   ;
     6497         01 0299A            '         MODULES IN THE RANGE SPECIFIED THAT HAVE COMPARE ERRORS.'
     6498                                     TEXTCS   ;
     6499         01 029AB            '     F = SNAP AND PRINT ONLY THE OBSERVED DATA FOR ALL MODULES'
     6500                                     TEXTCS   ;
     6501         01 029BB            '         IN THE SPECIFIED RANGE.'
     6502                                     TEXTCS   ;
     6503         01 029C4            'NOTE:  OPTIONS 7 AND F DO NOT REQUIRE A COMPARE TAPE(MTL).'
     6504                                     TEXTCS   ;
     6505         01 029D3            '       QPTIONS 1 AND 2 PRESENT THE SNAP DATA IN A SEMI-INTERLACED'
     6506                                     TEXTCS   ;
     6507         01 029E4            '       FORMAT, THAT IS, EXPECTED DATA FOR CLOCK N-1, EXPECTED'
     6508                                     TEXTCS   ;
     6509         01 029F4            '       EXPECTED DATA FOR CLOCK N, AND OBSERVED DATA FOR CLOCK N.'
     6510                                     TEXTCS   ;
     6511         01 02A05            '     ONLY OPTIONS F AND 7 MAY BE USED WITHOUT MAGTAPE'
     6512                                     TEXTCS   ;
     6513         01 02A13            'CB = CLOCK BIAS.  # OF CLOCKS INTO INSTRUCTION USER WISHES'
     6514                                     TEXTCS   ;
     6515         01 02A22            '     TO START SNAPPING.  IF CB=FF, SNAP STOPS WHEN BUFFER IS FULL.'
     6516                                     TEXTCS   ;
     6517         01 02A33            'CE = CLOCK END.  IF CE = 0 SNAP WILL STOP ON ONE CLOCK'
     6518                                     TEXTCS   ;
     6519         01 02A41            '     AFTER THE LAST CLOCK OF THE INSTRUCTION.  IF CE IS'
     6520                                     TEXTCS   ;
     6521         01 02A4F            '     NOT 0 THEN SNAPPING WILL CONTINUE UNTIL THAT CLOCK'
     6522                                     TEXTCS   ;
     6523         01 02A5D            '     NUMBER HAS BEEN SNAPPED'
     6524                            MR%EXPL  TEXTCS   ;
     6525         01 02A65            'MR  FOLLEWED BY AN INSTRUCTION MNEMONIC PRODUCES THE'
     6526                                     TEXTCS   ;
     6527         01 02A73            '     MODULE RANGE, IE, MR>AW,  2AC THRU 2F3'
     6528                                     TEXTCS   ;
     6529         01 02A7E             'ENTER INSTRUCTION MNEMONIC AS THE ONLY PARAMETER'
     6530                                     TEXTCS   ;
     6531         01 02A8B             ' TO OBTAIN STARTING AND ENDING MODULE NUMBERS.'
     6532                            FTERRMSG TEXTCS   ;
     6533         01 02A97            'MOD =  FAILING MODULE NUMBER'
     6534                                     TEXTCS   ;
     6535         01 02A9F            'EL =  ELEMENT #,  WHICH AW OF 47 AW MODULES'
     6536                                     TEXTCS   ;
     6537         01 02AAA            'TESTINST =  TEST INSTRUCTION'
     6538                                     TEXTCS   ;
     6539         01 02AB2            'E/P =  ERRORS PER PASS'
     6540                                     TEXTCS   ;
     6541         01 02AB8            'PAS =  NUMBER OF THE CURRENT PASS'
     6542                                     TEXTCS   ;
     6543         01 02AC1            'EM =  EXECUTION MODE, SEE K PARAMETER EXPLANATION'
     6544                                     TEXTCS   ;
     6545         01 02ACE            'MNEM =  INSTRUCTION MNEMONIC'
     6546                                     TEXTCS   ;
     6547         01 02AD6            'FAILED =  THE ITEM THAT DID NOT COMPARE'
     6548                                     TEXTCS   ;
     6549         01 02AE0            'EXPECTED =  EXPECTED RESULTS FOR FAILING ITEM'
     6550                                     TEXTCS   ;
     6551         01 02AEC            'CM =  CLOCK MARGIN  SEE J PARAMETER FO EXPLANATION'
     6552                                     TEXTCS   ;
     6553         01 02AF9            'OBSERVED =  OBSERVED RESULTS FOR FAILING ITEM'
     6554                                     TEXTCS   ;
     6555         01 02B05            ' CI =  COUNT PULSE INTERRUPT.  RIGHT HEX IS FROM J PARAMETER'
     6556                                     TEXTCS   ;
     6557         01 02B15            '       LINE.  1 = ACTIVE AFTER 11 ERROR FREE PASSES.'
     6558                                     TEXTCS   ;
     6559         01 02B23            'LEFT HEX INDICATES THE LEAST SIGNIFICANT 4 BITS OF ADDRESS THAT'
     6560                                     TEXTCS   ;
     6561         01 02B33            '      WAS STORED AS A RESULT OF AN INTERRUPT.  INTERRUPT IS'
     6562                                     TEXTCS   ;
     6563         01 02B42            '     ARMED AT LOC-7 AND DISARMED AT LOC+6.'
     6564                                     TEXTCS   ;
     6565         01 02B4D            'DIFF=EOR =  DIFFERENCE BETWEEN EXPECTED AND OBSERVED VIA EOR'
     6566                            **********************
     6567                            *        TABLE 3
     6568                            **********************
     6569                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     6570                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     6571                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     6572                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     6573                            *
     6574                            *  FORMAT
     6575                            *        WORD 1 = DIRECTIVE POINTER
     6576                            *         ***********
     6577                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     6578                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     6579                            *            AF(3)   BYTE 2 = SECOND CHAR.
     6580                            *            AF(4)   BYTE 3 = THIRD CHAR.
     6581                            *
     6582                            *
     6583                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     6584                            *         ***********
     6585                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     6586                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     6587                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     6588                            *                                       DIRECTIVE ROUTINE
     6589                            *
     6590                            *        WORD 3 = CONTROL WORD
     6591                            *         ***********
     6592                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     6593                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     6594                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     6595                            *             AF(4)   BITS 8-12= NOT USED
     6596                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     6597                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     6598                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     6599                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     6600                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     6601                            *                    OR INDEX PARAM #1 (MODE 6)
     6602                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     6603                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     6604                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     6605                            *
     6606                            *                 MODE:  0= UNCONDITIONAL (&)
     6607                            *                        1= IMMEDIATE     (DM)
     6608                            *                        2= PARAMETER LINE (S)
     6609                            *                        6= INDEXED PARAMETER LINE
     6610                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     6611                            *                            0 = HEX, 1 = BIN, AND
     6612                            *                            4-7 = DESIGNER DEFINED
     6613                            *
     6614                            *         WORD 4 = EXPLANATION POINTER
     6615                            *         ***********
     6616                            *  Z          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     6617                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     6618                            *                             = 1 IF TEXT IS COMPRESSED
     6619                            *                             = 2,3   ** NOT ALLOWED **
     6620                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     6621                            *                   TO CHARACTER #1 (REQUEST)
     6622                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     6623                            *
     6624         01 02B5D           TABLE3            EQU      %
     6625                            *
     6626   01 02B5D    017C0000 A            H        1,'@'
     6627   01 02B5E    00000000 A            E        0
     6628   01 02B5F    00000000 A            L        0
     6629   01 02B60    5F0098BC N            Z        95,,0,BA(SYNTAX%EXPL)                             *A03
     6630                            *
     6631   01 02B61    01500000 A            H        1,'&'
     6632   01 02B62    00002BE7 N            E        ,,READSTAT
     6633   01 02B63    00000000 A            L        0
     6634   01 02B64    07009748 N   AMPER%EXPL Z      7,,0,BA(STAT%EXPL)
     6635                            *
     6636   01 02B65    02E2E200 A            H        2,'S','S'                                         *A02
     6637   01 02B66    00000000 A            E        0                                                 *A01
     6638   01 02B67    00000000 A            L        0                                                 *A01
     6639   01 02B68    08009C84 N            Z        8,,,BA(S%EXPL)                                    *A03
     6640                            *
     6641   01 02B69    02C4D400 A            H        2,'D','M'
     6642   01 02B6A    00000000 A            E        0
     6643   01 02B6B    00000000 A            L        0
     6644   01 02B6C    02019BD0 N            Z        2,,1,BA(DM%EXPL)
     6645                            *
     6646   01 02B6D    02D9D400 A            H        2,'R','M'
     6647   01 02B6E    00000000 A            E        0
     6648   01 02B6F    00000000 A            L        0
     6649   01 02B70    03019C18 N            Z        3,,1,BA(RM%EXPL)
     6650                            *
     6651   01 02B71    02D4D900 A            H        2,'M','R'
     6652   01 02B72    00001C08 N            E        ,,DRTA
     6653   01 02B73    21000800 A            L        1,,1,,,,,4
     6654   01 02B74    0400A994 N            Z        4,,0,BA(MR%EXPL)
     6655                            *
     6656   01 02B75    02C4D300 A            H        2,'D','L'
     6657   01 02B76    00001B4F N            E        ,,DLTA
     6658   01 02B77    22000000 A            L        1,,2
     6659   01 02B78    03019DF8 N            Z        3,,1,BA(DL%EXPL)
     6660                            *
     6661   01 02B79    01D10000 A            H        1,'J'
     6662   01 02B7A    000019A4 N            E        ,,JRTA
     6663   01 02B7B    40000000 A            L        2
     6664   01 02B7C    16009E90 N            Z        22,,0,BA(J%EXPL)
     6665                            *
     6666   01 02B7D    01D20000 A            H        1,'K'
     6667   01 02B7E    00001A74 N            E        ,,KRTA
     6668   01 02B7F    40000000 A            L        2
     6669   01 02B80    2100A28C N            Z        33,,0,BA(K%EXPL)
     6670                            *
     6671   01 02B81    03E4D7C4 A            H        3,'U','P','D'
     6672   01 02B82    00002B99 N            E        ,,UPDTA
     6673   01 02B83    00000000 A            L        0
     6674   01 02B84    00000000 A            Z        0
     6675                            *
     6676   01 02B85    FF000000 A   TABLE3END  DATA   X'FF000000'
     6677                            *
     6678                            *
     6679                            ***************
     6680                            *
     6681                            *
     6682   01 02B86                 PLINEIN  RES      19
     6683                            *
     6684                            *
     6685                            ***************
     6686                            *
     6687         01 02B99           UPDTA    EQU      %
     6688   01 02B99    22800040 A            LI,R8    X'40'                                             *A03
     6689   01 02B9A    6D801100 A            WD,R8    X'1100'                                           *A03
     6690   01 02B9B    32801918              LW,R8    MAX:CLR                                           *A02
     6691   01 02B9C    21802E00 A            CI,R8    11776                                             *A02
     6692   01 02B9D    68102BA1              BGE      %+4                                               *A04
     6693   01 02B9E    EA6003CC              #TYPE    IC:MSG                                            *A02
            01 02B9F    00007468 A
     6694   01 02BA0    8F0003CA              XPSD,0   *#RUNADDR%                                        *A02
     6695   01 02BA1    228FFFFF A            LI,R8    -1
     6696   01 02BA2    358015D6              STW,R8   GEN:FLG
     6697   01 02BA3    22800007 A            LI,R8    7
     6698   01 02BA4    35801C62              STW,R8   SO
     6699   01 02BA5    32600395              LW,X6    #MTLFLAG
     6700   01 02BA6    22802BAD              LI,R8    STGEN
     6701   01 02BA7    358C0000 A            STW,R8   0,X6
     6702   01 02BA8    02000000 A            NOP
     6703   01 02BA9    02000000 A            NOP
     6704   01 02BAA    02000000 A            NOP
     6705   01 02BAB    02000000 A            NOP
     6706   01 02BAC    680C0001 A            B        1,X6
     6707                            *
     6708         01 02BAD           STGEN    EQU      %
     6709   01 02BAD    32600395              LW,X6    #MTLFLAG
     6710   01 02BAE    320C0007 A            LW,R0    7,X6
     6711   01 02BAF    35001D12              STW,R0   CARDADR
     6712   01 02BB0    CD001D10              TIO,R0   *TAPE1ADR
     6713   01 02BB1    69C02BB0              BCS,12   %-1
     6714   01 02BB2    32001914              LW,R0    TAPE:ID
     6715   01 02BB3    35003BA0              STW,R0   SN:CHECK
     6716   01 02BB4    22000C8B              LI,R0    DA(ID:WRT)
     6717   01 02BB5    CC001D10              SIO,R0   *TAPE1ADR
     6718   01 02BB6    22002BC0              LI,R0    STVER
     6719   01 02BB7    32600395              LW,X6    #MTLFLAG
     6720   01 02BB8    350C0000 A            STW,R0   0,X6
     6721   01 02BB9    22001195              LI,R0    SHORTS
     6722   01 02BBA    350015D0              STW,R0   SHORTPTR
     6723   01 02BBB    02000000 A            NOP
     6724   01 02BBC    02000000 A            NOP
     6725   01 02BBD    02000000 A            NOP
     6726   01 02BBE    02000000 A            NOP
     6727   01 02BBF    680010BF              B        SUFFTEST
     6728                            *
     6729         01 02BC0           STVER    EQU      %
     6730   01 02BC0    33201D0F              MTW,2    TAPE0ADR                                          *A03
     6731   01 02BC1    CD001D0F              TIO,R0   *TAPE0ADR                                         *A03
     6732   01 02BC2    69C02BC1              BCS,12   %-1
     6733   01 02BC3    6AE0186B              BAL,R14  LOOKFWD+4                                         *A03
     6734   01 02BC4    22002BEA              LI,R0    LIST
     6735   01 02BC5    350003F3              STW,R0   LISTPTR
     6736   01 02BC6    22000001 A            LI,R0    1
     6737   01 02BC7    350003F2              STW,R0   MCR:NUM
     6738   01 02BC8    22000000 A            LI,R0    0                                                 *A03
     6739   01 02BC9    35003CA4              STW,R0   SN:EXP-1                                          *A03
     6740   01 02BCA    02000000 A            NOP
     6741   01 02BCB    02000000 A            NOP
     6742   01 02BCC    02000000 A            NOP
     6743   01 02BCD    680010BF              B        SUFFTEST
     6744                            *
     6745         01 02BCE           VG:END   EQU      %
     6746   01 02BCE    328015D7              LW,R8    VER:FLG
     6747   01 02BCF    68302BD8              BCR,3    SET:VER
     6748   01 02BD0    22000C88              LI,R0    DA(SPF:FWD)
     6749   01 02BD1    6AD018A8              BAL,R13  MOV:TAPE
     6750   01 02BD2    02000000 A            NOP
     6751   01 02BD3    02000000 A            NOP
     6752   01 02BD4    02000000 A            NOP
     6753   01 02BD5    02000000 A            NOP
     6754   01 02BD6    32600395              LW,X6    #MTLFLAG
     6755   01 02BD7    680C0002 A            B        2,X6
     6756                            *
     6757         01 02BD8           SET:VER  EQU      %
     6758   01 02BD8    22800000 A            LI,R8    0
     6759   01 02BD9    358015D6              STW,R8   GEN:FLG
     6760   01 02BDA    228FFFFF A            LI,R8    -1
     6761   01 02BDB    358015D7              STW,R8   VER:FLG
     6762   01 02BDC    358015D8              STW,R8   VER:END
     6763   01 02BDD    358015D3              STW,R8   SNAP:UNC
     6764   01 02BDE    22000C84              LI,R0    DA(EOF)
     6765   01 02BDF    CC001D10              SIO,R0   *TAPE1ADR
     6766   01 02BE0    22800002 A            LI,R8    2
     6767   01 02BE1    35801C62              STW,R8   SO
     6768   01 02BE2    02000000 A            NOP
     6769   01 02BE3    02000000 A            NOP
     6770   01 02BE4    02000000 A            NOP
     6771   01 02BE5    02000000 A            NOP
     6772   01 02BE6    68002BD0              B        VG:END+2
     6773                            *
     6774                            *
     6775         01 02BE7           READSTAT EQU      %
     6776   01 02BE7    6A601B8B              BAL,X6   STATMSGS
     6777   01 02BE8    E80003CB              B        *#RETURN%
1 C00   00:37 JUN 21,'83    SIGMA 8-9 CPU DIAG SUFFIX 706134-11/51-A05  1-28-74                   PAGE    7
A    6778                                     PAGE
     6779                            *
     6780                            *        COMMAND FIELD 2 OF THE MODULE PROC CALL,I.E., MODULE,N,
     6781                            *        CAUSES THE SPECIFIED VALUE,N, TO BE STORED IN THE NORMALLY
     6782                            *        UNUSED HEX POSITION THAT IS 4TH FROM THE RIGHT IN THE
     6783                            *        WORD TH AT IS GENERATED BY THE PROC.
     6784                            *
     6785                            *        THIS FIELD HAS THE FOLLOWING BIT SIGNIFICANCE:
     6786                            *
     6787                            *                 1 = MODULE CAN'T BE SNAPPED.
     6788                            *                 2 = SKIP THIS MODULE FOR SIGMA 8.
     6789                            *                 4 = SKIP IF SIGMA 9R/16R
     6790                            *                 8 = SET MASTER PROTECTED MODE FOR ANLZ.
     6791                            *
     6792                                     BOUND 8
     6793   01 02BEA                 LIST     RES      0
     6794                            *'COMMAND PROCEDURE TO GENERATE TEST MODULE CONTROL WORD'
     6795                            *
     6796         00000002           #PASS    SET      S:UFV(#PASS)+1
     6797                            *
     6798         00000000                    DO       #PASS=1           FIRST ASSEMBLER PASS
     6799                        *S* *
     6800                        *S* MODLIST1 SET                        NULL
     6801                        *S* *
     6802                        *S* MODLIST2 SET                        NULL
     6803                        *S* *
     6804                        *S* MODLIST3 SET                        NULL
     6805                        *S* *
     6806                        *S* MODLIST4 SET                        NULL
     6807                        *S* *
     6808                        *S* MODLIST5 SET                        NULL
     6809                        *S* *
     6810                        *S* MODULE@  SET                        NULL
     6811                        *S* *
     6812                                     ELSE                       USE END OF PASS 1 VALUES FOR PASS 2.
     6813                            *
     6814         LIST               MODLIST1 SET      S:UFV(MODLIST1)   TEST MODULES 1-255
     6815                            *
     6816         LIST               MODLIST2 SET      S:UFV(MODLIST2)   TEST MODULES 256-510
     6817                            *
     6818         LIST               MODLIST3 SET      S:UFV(MODLIST3)   TEST MODULES 511-765
     6819                            *
     6820         00000000           MODLIST4 SET      S:UFV(MODLIST4)   TEST MODULES 766-1020
     6821                            *
     6822         00000000           MODLIST5 SET      S:UFV(MODLIST5)   TEST MODULES 1021-1276
     6823                            *
     6824         LIST               MODULE@  SET      S:UFV(MODULE@)
     6825                            *
     6826                                     FIN
     6827                            *
     6828         00000000           MODULE#  SET      0
     6829                            *
     6830         00000000           MODULE%  SET      0
     6831                            *
     6832         00000000           MODULE:  SET      0
     6833                            *
     6834         00000000           MODULE   CNAME
     6835                                     PROC
     6836                            *
     6837                                     LOCAL    I,OC,ML           SYMBOLS LOCALLY DEFINED AND USED
     6838                            *
     6839                                     DO       SCOR(LF(1),LASTMODULE)
     6840                            *
     6841                            MOD%END  EQU      %
     6842                            *
     6843                                     DO       #PASS=1
     6844                            *
     6845                                     RES      NUM(MODULE@)
     6846                            *
     6847                                     ELSE
     6848                            *
     6849                            I        DO       NUM(MODULE@)
     6850                            *
     6851                            OC       SET      MODULE@(I,1)      'OP'-CODE
     6852                            *
     6853                            ML       SET      MODULE@(I,2)      MEMORY LOCATION
     6854                            *
     6855                                     GEN,8,24 OC,ML
     6856                            *
     6857                                     FIN
     6858                            *
     6859                                     FIN
     6860                            *
     6861                                     GOTO     DONE
     6862                            *
     6863                                     FIN
     6864                            *
     6865                                     DO1      NUM(AF)>0
     6866                            MODULE:  SET      0                 RESET ELEMENT COUNTER
     6867                            *
     6868                            MODULE:  SET      MODULE:+1&X'FF'
     6869                            *
     6870                                     DO       #PASS=1           BUILD LISTS
     6871                            *
     6872                                     DO       NUM(AF)>0
     6873                            *
     6874                            OC       SET      AF(1)             'OP'-CODE
     6875                            *
     6876                            ML       SET      ABSVAL(%)         (LISTING) MODULE LOCATION
     6877                            *
     6878                                     DO       NUM(MODULE@)=0
     6879                            *
     6880                            MODULE@  SET      (OC,ML)
     6881                            *
     6882                                     ELSE                       LIST HAS BEEN STARTED
     6883                            *
     6884                            MODULE@  SET      MODULE@,(OC,ML)
     6885                            *
     6886                                     FIN
     6887                            *
     6888                                     FIN
     6889                            *
     6890                            *
     6891                                     DO       MODULE#>0
     6892                            *
     6893                                     DO       MODULE#<256
     6894                            *
     6895                            MODLIST1(MODULE#)   SET   %-MODULE%   SAVE MODULE DISPLACEMENT
     6896                            *
     6897                                     ELSE
     6898                            *
     6899                                     DO       MODULE#<511
     6900                            *
     6901                            MODLIST2(MODULE#-255)   SET   %-MODULE%
     6902                            *
     6903                                     ELSE
     6904                            *
     6905                                     DO       MODULE#<766
     6906                            *
     6907                            MODLIST3(MODULE#-510)   SET   %-MODULE%
     6908                            *
     6909                                     ELSE
     6910                            *
     6911                                     DO       MODULE#<1021
     6912                            *
     6913                            MODLIST4(MODULE#-765)   SET   %-MODULE%
     6914                            *
     6915                                     ELSE
     6916                            *
     6917                            MODLIST5(MODULE#-1020)  SET   %-MODULE%
     6918                            *
     6919                                     FIN                        <1021
     6920                            *
     6921                                     FIN                        <766
     6922                            *
     6923                                     FIN                        <511
     6924                            *
     6925                                     FIN                        <256
     6926                            *
     6927                                     FIN                        >0
     6928                            *
     6929                            MODULE#  SET      MODULE#+1
     6930                            *
     6931                            MODULE%  SET      %
     6932                            *
     6933                                     RES      1                 PUT 'LF' IN COLUMNS 1-2 TO ENTER
     6934                            *                                   LABEL FIELD ON PROC REFERENCE
     6935                            *                                   LINE IN 'SYMBOL' TABLE.  (ASSEMBLER)
     6936                            *
     6937                            *
     6938                                     ELSE                       PASS 2 GENERATES CODE
     6939                            *
     6940                            MODULE#  SET      MODULE#+1
     6941                            *
     6942                            *        ADD 'LF' TO COLUMNS 1-2 FOR EACH OF THE FOLLOWING
     6943                            *        'GEN,8,8,4,12' STATEMENTS TO DEFINE LABEL(S) ON
     6944                            *        THE 'PROC' REFERENCE LINE.
     6945                            *
     6946                                     DO       MODULE#<256
     6947                            *
     6948                                     GEN,8,8,4,12 MODLIST1(MODULE#),MODULE:,CF(2),MODULE#
     6949                            *
     6950                                     ELSE
     6951                            *
     6952                                     DO       MODULE#<511
     6953                            *
     6954                                     GEN,8,8,4,12 MODLIST2(MODULE#-255),MODULE:,CF(2),MODULE#
     6955                            *
     6956                                     ELSE
     6957                            *
     6958                                     DO       MODULE#<766
     6959                            *
     6960                                     GEN,8,8,4,12 MODLIST3(MODULE#-510),MODULE:,CF(2),MODULE#
     6961                            *
     6962                                     ELSE
     6963                            *
     6964                                     DO       MODULE#<1021
     6965                            *
     6966                                     GEN,8,8,4,12 MODLIST4(MODULE#-765),MODULE:,CF(2),MODULE#
     6967                            *
     6968                                     ELSE
     6969                            *
     6970                                     GEN,8,8,4,12 MODLIST5(MODULE#-1020),MODULE:,CF(2),MODULE#
     6971                            *
     6972                                     FIN                        <1021
     6973                            *
     6974                                     FIN                        <766
     6975                            *
     6976                                     FIN                        <511
     6977                            *
     6978                                     FIN                        <256
     6979                            *
     6980                                     FIN                        PASS SWITCH
     6981                            *
     6982                            *
     6983                            DONE     PEND
     6984                            *
     6985                            *                                   CC=1
     6986                            *
     6987                            *
     6988         01 02BEA           LISTS    EQU      %
     6989                            ******************************************************************    LM
     6990                            *                                   LOAD MEMORY+2 INTO R4
     6991   01 02BEA    08010001 A            MODULE   X'2A'
     6992   01 02BEB    2A403AC2              LM,4     MEMORY+2          INSTRUCTION
     6993   01 02BEC    100011CC              K        1,0,0,LOC         PSW1 IN
     6994   01 02BED    100011CE              K        1,0,0,LOC+2       PSW1 OUT
     6995   01 02BEE    00000000 A            G        0,0,0             R IN
     6996   01 02BEF    1D4EFF04 N            G        DTA1,-1,4         R OUT
     6997   01 02BF0    1D4EFF02 N            G        DTA1,-1,2         MEM IN
     6998   01 02BF1    1D4EFF02 N            G        DTA1,-1,2         MEM OUT
     6999                            ******************************************************************    LM
     7000                            *                                   CC=0 (COUNT OF 16)
     7001                            *                                   LOAD ALL REGISTERS
     7002                            *                                     BEGINNING WITH R0
     7003   01 02BF2    08020002 A            MODULE
     7004   01 02BF3    2A003AC0              LM,0     MEMORY
     7005   01 02BF4    000011CC              K        0,0,0,LOC
     7006   01 02BF5    000011CE              K        0,0,0,LOC+2
     7007   01 02BF6    00000000 A            G        0,0,0
     7008   01 02BF7    1D4EF000 N            G        DTA1,-16,0
     7009   01 02BF8    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7010   01 02BF9    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7011                            ******************************************************************    LM
     7012                            *                                   CC=0 (COUNT OF 16)
     7013                            *                                   LOAD ALL REGISTERS
     7014                            *                                     BEGINNING WITH R9
     7015   01 02BFA    08030003 A            MODULE
     7016   01 02BFB    2A903AC0              LM,9     MEMORY
     7017   01 02BFC    000011CC              K        0,0,0,LOC
     7018   01 02BFD    000011CE              K        0,0,0,LOC+2
     7019   01 02BFE    00000000 A            G        0,0,0
     7020   01 02BFF    1D4EF009 N            G        DTA1,-16,9
     7021   01 02C00    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7022   01 02C01    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7023                            ******************************************************************    LM
     7024                            *                                   CC=2     INDEXED
     7025                            *                                   LOAD R5,R6     INDEX REGISTER=R4
     7026                            *
     7027   01 02C02    08040004 A            MODULE
     7028   01 02C03    2A583AC0              LM,5     MEMORY,4
     7029   01 02C04    200011CC              K        2,0,0,LOC
     7030   01 02C05    200011CE              K        2,0,0,LOC+2
     7031   01 02C06    1D60FF04 N            G        DTA2+2,-1,4
     7032   01 02C07    1D60FD04 N            G        DTA2+2,-3,4
     7033   01 02C08    1D61FE02 N            G        DTA2+3,-2,2       MEM IN
     7034   01 02C09    1D61FE02 N            G        DTA2+3,-2,2       MEM OUT
     7035                            ******************************************************************    LM
     7036                            *                                   CC=4     INDIRECTLY ADDRESSED
     7037                            *                                   LOAD R7-R10
     7038                            *
     7039   01 02C0A    08050005 A            MODULE
     7040   01 02C0B    AA701D43              LM,7     *IA
     7041   01 02C0C    400011CC              K        4,0,0,LOC
     7042   01 02C0D    400011CE              K        4,0,0,LOC+2
     7043   01 02C0E    00000000 A            G        0,0,0
     7044   01 02C0F    1D4EFC07 N            G        DTA1,-4,7
     7045   01 02C10    1D4EFC00 N            G        DTA1,-4,0         MEM IN
     7046   01 02C11    1D4EFC00 N            G        DTA1,-4,0         MEM OUT
     7047                            ******************************************************************    LM
     7048                            *                                   CC=8   INDIRECTLY ADDRESSED, INDEXED
     7049                            *                                   LOAD R2-R9     INDEX REGISTER=R1
     7050   01 02C12    08060006 A            MODULE
     7051   01 02C13    AA221D43              LM,2     *IA,1
     7052   01 02C14    873011CC              K        8,7,3,LOC
     7053   01 02C15    873011CE              K        8,7,3,LOC+2
     7054   01 02C16    1D5EFF01 N            G        DTA2,-1,1
     7055   01 02C17    1D5EF701 N            G        DTA2,-9,1
     7056   01 02C18    1D5FF801 N            G        DTA2+1,-8,1       MEM IN
     7057   01 02C19    1D5FF801 N            G        DTA2+1,-8,1       MEM OUT
     7058                            *
     7059                            *
     7060                            ******************************************************************    LM
     7061                            *                                   CC=8
     7062                            *                                   LOAD R8-R15 INTO R0-R7
     7063   01 02C1A    06070007 A            MODULE
     7064   01 02C1B    2A000008 A            LM,0     8
     7065   01 02C1C    800011CC              K        8,0,0,LOC
     7066   01 02C1D    800011CE              K        8,0,0,LOC+2
     7067   01 02C1E    1D46F808 N            G        DTA0,-8,8
     7068   01 02C1F    1D46F000 N            G        DTA0,-16,0
     7069                            ******************************************************************   STM
     7070                            *                                   CC=1
     7071                            *                                   STORE R4 IN MEMORY+2
     7072   01 02C20    08010008 A            MODULE   X'2B'
     7073   01 02C21    2B403AC2              STM,4    MEMORY+2
     7074   01 02C22    100011CC              K        1,0,0,LOC
     7075   01 02C23    100011CE              K        1,0,0,LOC+2
     7076   01 02C24    1D4EFF04 N            G        DTA1,-1,4
     7077   01 02C25    1D4EFF04 N            G        DTA1,-1,4
     7078   01 02C26    00000000 A            G        0,0,0             MEM IN
     7079   01 02C27    1D4EFF02 N            G        DTA1,-1,2         MEM OUT
     7080                            ******************************************************************   STM
     7081                            *                                   CC=0 (COUNT OF 16)
     7082                            *                                   STORE ALL REGISTERS
     7083                            *                                     BEGINNING WITH R0
     7084   01 02C28    08020009 A            MODULE
     7085   01 02C29    2B003AC0              STM,0    MEMORY
     7086   01 02C2A    000011CC              K        0,0,0,LOC
     7087   01 02C2B    000011CE              K        0,0,0,LOC+2
     7088   01 02C2C    1D4EF000 N            G        DTA1,-16,0
     7089   01 02C2D    1D4EF000 N            G        DTA1,-16,0
     7090   01 02C2E    00000000 A            G        0,0,0             MEM IN
     7091   01 02C2F    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7092                            ******************************************************************   STM
     7093                            *                                   CC=0 (COUNT OF 16)
     7094                            *                                   STORE ALL REGISTERS
     7095                            *                                     BEGINNING WITH R9
     7096   01 02C30    0803000A A            MODULE
     7097   01 02C31    2B903AC0              STM,9    MEMORY
     7098   01 02C32    000011CC              K        0,0,0,LOC
     7099   01 02C33    000011CE              K        0,0,0,LOC+2
     7100   01 02C34    1D4EF009 N            G        DTA1,-16,9
     7101   01 02C35    1D4EF009 N            G        DTA1,-16,9
     7102   01 02C36    00000000 A            G        0,0,0             MEM IN
     7103   01 02C37    1D4EF000 N            G        DTA1,-16,0
     7104                            ******************************************************************   STM
     7105                            *                                   CC=2     INDEXED
     7106                            *                                   STORE R5,R6    INDEX REGISTER=R3
     7107                            *
     7108   01 02C38    0804000B A            MODULE
     7109   01 02C39    2B563AC0              STM,5    MEMORY,3
     7110   01 02C3A    200011CC              K        2,0,0,LOC
     7111   01 02C3B    200011CE              K        2,0,0,LOC+2
     7112   01 02C3C    1D60FC03 N            G        DTA2+2,-4,3
     7113   01 02C3D    1D60FC03 N            G        DTA2+2,-4,3
     7114   01 02C3E    00000000 A            G        0,0,0             MEM IN
     7115   01 02C3F    1D62FE02 N            G        DTA2+4,-2,2       MEM OUT
     7116                            ******************************************************************   STM
     7117                            *                                   CC=4     INDIRECTLY ADDRESSED
     7118                            *                                   STORE R7-R10
     7119                            *
     7120   01 02C40    0805000C A            MODULE
     7121   01 02C41    AB701D43              STM,7    *IA
     7122   01 02C42    400011CC              K        4,0,0,LOC
     7123   01 02C43    400011CE              K        4,0,0,LOC+2
     7124   01 02C44    1D4EFC07 N            G        DTA1,-4,7
     7125   01 02C45    1D4EFC07 N            G        DTA1,-4,7
     7126   01 02C46    00000000 A            G        0,0,0             MEM IN
     7127   01 02C47    1D4EFC00 N            G        DTA1,-4,0         MEM OUT
     7128                            ******************************************************************   STM
     7129                            *                                   CC=8   INDERECTLY ADDRESSED, INDEXED
     7130                            *                                   STORE R2-R9    INDEX REGISTER=R1
     7131   01 02C48    0806000D A            MODULE
     7132   01 02C49    AB221D43              STM,2    *IA,1
     7133   01 02C4A    873011CC              K        8,7,3,LOC
     7134   01 02C4B    873011CE              K        8,7,3,LOC+2
     7135   01 02C4C    1D5EF701 N            G        DTA2,-9,1
     7136   01 02C4D    1D5EF701 N            G        DTA2,-9,1
     7137   01 02C4E    00000000 A            G        0,0,0             MEM IN
     7138   01 02C4F    1D5FF801 N            G        DTA2+1,-8,1       MEM OUT
     7139                            ******************************************************************   STM
     7140                            *                                   CC=8
     7141                            *                                   STORE R8-R15 INTO R0-R7
     7142   01 02C50    0607000E A            MODULE
     7143   01 02C51    2B800000 A            STM,8    0
     7144   01 02C52    800011CC              K        8,0,0,LOC
     7145   01 02C53    800011CE              K        8,0,0,LOC+2
     7146   01 02C54    1D46F808 N            G        DTA0,-8,8
     7147   01 02C55    1D46F000 N            G        DTA0,-16,0
     7148                            ******************************************************************   MSP
     7149                            *                                   MODIFIER=0;     NO OVERFLOW
     7150   01 02C56    0C01000F A            MODULE   X'13'
     7151   01 02C57    13301D3E              MSP,3    SP
     7152   01 02C58    F73011CC              K        15,7,3,LOC
     7153   01 02C59    073011CE              K        0,7,3,LOC+2
     7154   01 02C5A    00000000 A            G        0,0,0
     7155   01 02C5B    00000000 A            G        0,0,0
     7156   01 02C5C    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7157   01 02C5D    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7158   01 02C5E    00003AC8              DATA     MEMORY+8          STACK POINTER
     7159   01 02C5F    00050005 A            DATA     X'00050005'         DOUBLEWORD IN
     7160   01 02C60    00003AC8              DATA     MEMORY+8          STACK POINTER
     7161   01 02C61    00050005 A            DATA     X'00050005'         DOUBLEWORD OUT
     7162                            *****************************************************************  MSP
     7163                            *                                   MODIFIER=X'FFFF0000'
     7164                            *                                   TEST FOR CLEAR AND GATING TO 'A' AND
     7165                            *                                   'B' REGISTERS, PHASE 1-3
     7166   01 02C62    0C020010 A            MODULE
     7167   01 02C63    13201D3E              MSP,2    SP
     7168   01 02C64    000011CC              K        0,0,0,LOC
     7169   01 02C65    000011CE              K        0,0,0,LOC+2       PSW2 OUT
     7170   01 02C66    1FC7FF02 N            G        W0T15,-1,2
     7171   01 02C67    1FC7FF02 N            G        W0T15,-1,2
     7172   01 02C68    1D5EFC00 N            G        DTA2,-4,0
     7173   01 02C69    1D5EFC00 N            G        DTA2,-4,0
     7174   01 02C6A    00003AC0              DATA     MEMORY            STACK POINTER
     7175   01 02C6B    000A000A A            DATA     X'000A000A'        DOUBLEWORD IN
     7176   01 02C6C    00003AC0              DATA     MEMORY            STACK POINTER
     7177   01 02C6D    000A000A A            DATA     X'000A000A'        DOUBLEWORD OUT
     7178                            ******************************************************************   MSP
     7179                            *                                   MODIFIER=0,   TS=0,   TW=0
     7180                            *                                   WORD COUNT =0
     7181                            *                                   SPACE COUNT=0
     7182   01 02C6E    0C030011 A            MODULE
     7183   01 02C6F    13601D3E              MSP,6    SP
     7184   01 02C70    000011CC              K        0,0,0,LOC
     7185   01 02C71    500011CE              K        5,0,0,LOC+2
     7186   01 02C72    00000000 A            G        0,0,0
     7187   01 02C73    00000000 A            G        0,0,0
     7188   01 02C74    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7189   01 02C75    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7190   01 02C76    00003AC0              DATA     MEMORY            STACK POINTER
     7191   01 02C77    00000000 A            DATA     0                   DOUBLEWORD IN
     7192   01 02C78    00003AC0              DATA     MEMORY            STACK POINTER
     7193   01 02C79    00000000 A            DATA     0                   DOUBLEWORD OUT
     7194                            ******************************************************************   MSP
     7195                            *                                   MODIFIER=1
     7196                            *                                   SPACE COUNT GOES TO ZERO
     7197                            *                                   WORD COUNT GOES TO MAXIMUM
     7198   01 02C7A    0C040012 A            MODULE
     7199   01 02C7B    13401D3E              MSP,4    SP
     7200   01 02C7C    F00011CC              K        15,0,0,LOC
     7201   01 02C7D    400011CE              K        4,0,0,LOC+2
     7202   01 02C7E    1D74FF04 N            G        DTA3+1,-1,4
     7203   01 02C7F    1D74FF04 N            G        DTA3+1,-1,4
     7204   01 02C80    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7205   01 02C81    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7206   01 02C82    00003AC8              DATA     MEMORY+8          STACK POINTER
     7207   01 02C83    8001FFFE A            DATA     X'8001FFFE'         DOUBLEWORD IN
     7208   01 02C84    00003AC9              DATA     MEMORY+9          STACK POINTER
     7209   01 02C85    8000FFFF A            DATA     X'8000FFFF'         DOUBLEWORD OUT
     7210                            ******************************************************************   MSP
     7211                            *                                   MODIFIER=-1
     7212                            *                                   SPACE COUNT GOES TO MAXIMUM
     7213                            *                                   WORD COUNT GOES TO ZERO
     7214   01 02C86    0C050013 A            MODULE
     7215   01 02C87    13001D3E              MSP,0    SP
     7216   01 02C88    000011CC              K        0,0,0,LOC
     7217   01 02C89    100011CE              K        1,0,0,LOC+2
     7218   01 02C8A    1D72FF00 N            G        DTA3-1,-1,0
     7219   01 02C8B    1D72FF00 N            G        DTA3-1,-1,0
     7220   01 02C8C    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7221   01 02C8D    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7222   01 02C8E    00003AC8              DATA     MEMORY+8          STACK POINTER
     7223   01 02C8F    FFFE8001 A            DATA     X'FFFE8001'         DOUBLEWORD IN
     7224   01 02C90    00003AC7              DATA     MEMORY+7          STACK POINTER
     7225   01 02C91    FFFF8000 A            DATA     X'FFFF8000'         DOUBLEWORD OUT
     7226                            ******************************************************************   MSP
     7227                            *                                   MODIFIER=8;   WORD CNT OVERFLOW
     7228                            *                                   TRAP INHIBITED BY TW
     7229   01 02C92    0C060014 A            MODULE
     7230   01 02C93    13F01D3E              MSP,15   SP
     7231   01 02C94    D00011CC              K        13,0,0,LOC
     7232   01 02C95    200011CE              K        2,0,0,LOC+2
     7233   01 02C96    1D77FF0F N            G        DTA3+4,-1,15
     7234   01 02C97    1D77FF0F N            G        DTA3+4,-1,15
     7235   01 02C98    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7236   01 02C99    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7237   01 02C9A    00003AC8              DATA     MEMORY+8          STACK POINTER
     7238   01 02C9B    0050FFFA A            DATA     X'0050FFFA'         DOUBLEWORD IN
     7239   01 02C9C    00003AC8              DATA     MEMORY+8          STACK POINTER
     7240   01 02C9D    0050FFFA A            DATA     X'0050FFFA'         DOUBLEWORD OUT
     7241                            ******************************************************************   MSP
     7242                            *                                   MODIFIER=8;   WORD COUNT UNDERFLOW
     7243                            *                                   TRAP INHIBITED BY TW
     7244   01 02C9E    0C070015 A            MODULE
     7245   01 02C9F    13B01D3E              MSP,11   SP
     7246   01 02CA0    D00011CC              K        13,0,0,LOC
     7247   01 02CA1    200011CE              K        2,0,0,LOC+2
     7248   01 02CA2    1D6FFF0B N            G        DTA3-4,-1,11
     7249   01 02CA3    1D6FFF0B N            G        DTA3-4,-1,11
     7250   01 02CA4    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7251   01 02CA5    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7252   01 02CA6    00003AC8              DATA     MEMORY+8          STACK POINTER
     7253   01 02CA7    05008004 A            DATA     X'05008004'         DOUBLEWORD IN
     7254   01 02CA8    00003AC8              DATA     MEMORY+8          STACK POINTER
     7255   01 02CA9    05008004 A            DATA     X'05008004'         DOUBLEWORD OUT
     7256                            ******************************************************************   MSP
     7257                            *                                   MODIFIER=4;  SPACE COUNT UNDERFLOW
     7258                            *                                   TRAP INHIBITED BY TS
     7259   01 02CAA    0C080016 A            MODULE
     7260   01 02CAB    13301D3E              MSP,3    SP
     7261   01 02CAC    700011CC              K        7,0,0,LOC
     7262   01 02CAD    800011CE              K        8,0,0,LOC+2
     7263   01 02CAE    1D76FF03 N            G        DTA3+3,-1,3
     7264   01 02CAF    1D76FF03 N            G        DTA3+3,-1,3
     7265   01 02CB0    00000000 A            G        0,0,0             MEM IN
     7266   01 02CB1    00000000 A            G        0,0,0             MEM OUT
     7267   01 02CB2    00003AC8              DATA     MEMORY+8          STACK POINTER
     7268   01 02CB3    80020050 A            DATA     X'80020050'         DOUBLEWORD IN
     7269   01 02CB4    00003AC8              DATA     MEMORY+8          STACK POINTER
     7270   01 02CB5    80020050 A            DATA     X'80020050'         DOUBLEWORD OUT
     7271                            ******************************************************************   MSP
     7272                            *                                   MODIFIER=-4; SPACE COUNT OVERFLOW
     7273                            *                                   TRAP INHIBITED BY TS
     7274   01 02CB6    0C090017 A            MODULE
     7275   01 02CB7    13701D3E              MSP,7    SP
     7276   01 02CB8    700011CC              K        7,0,0,LOC
     7277   01 02CB9    800011CE              K        8,0,0,LOC+2
     7278   01 02CBA    1D70FF07 N            G        DTA3-3,-1,7
     7279   01 02CBB    1D70FF07 N            G        DTA3-3,-1,7
     7280   01 02CBC    00000000 A            G        0,0,0             MEM IN
     7281   01 02CBD    00000000 A            G        0,0,0             MEM OUT
     7282   01 02CBE    00003AC8              DATA     MEMORY+8          STACK POINTER
     7283   01 02CBF    FFFC0050 A            DATA     X'FFFC0050'         DOUBLEWORD IN
     7284   01 02CC0    00003AC8              DATA     MEMORY+8          STACK POINTER
     7285   01 02CC1    FFFC0050 A            DATA     X'FFFC0050'         DOUBLEWORD OUT
     7286                            ******************************************************************   MSP
     7287                            *                                   MODIFIER= MAX POSITIVE VALUE
     7288                            *                                   WORD COUNT OVERFLOWS BY 1
     7289                            *                                   TRAP
     7290   01 02CC2    0C0A0018 A            MODULE
     7291   01 02CC3    13E01D3E              MSP,14   SP
     7292   01 02CC4    000011CE              K        0,0,0,LOC+2
     7293   01 02CC5    0000101B              K        0,0,0,EXP:TRAP+5
     7294   01 02CC6    1D78FF0E N            G        DTA3+5,-1,14
     7295   01 02CC7    1D78FF0E N            G        DTA3+5,-1,14
     7296   01 02CC8    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7297   01 02CC9    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7298   01 02CCA    00003AC0              DATA     MEMORY            STACK POINTER
     7299   01 02CCB    FFFF0001 A            DATA     X'FFFF0001'         DOUBLEWORD IN
     7300   01 02CCC    00003AC0              DATA     MEMORY            STACK POINTER
     7301   01 02CCD    FFFF0001 A            DATA     X'FFFF0001'         DOUBLEWORD OUT
     7302                            ******************************************************************   MSP
     7303                            *                                   MODIFIER= MAX NEGATIVE VALUE
     7304                            *                                   WORD COUNT UNDERFLOWS BY 1
     7305                            *                                   TRAP
     7306   01 02CCE    0C0B0019 A            MODULE
     7307   01 02CCF    13D01D3E              MSP,13   SP
     7308   01 02CD0    F73011CE              K        15,7,3,LOC+2
     7309   01 02CD1    F730101B              K        15,7,3,EXP:TRAP+5
     7310   01 02CD2    1D6EFF0D N            G        DTA3-5,-1,13
     7311   01 02CD3    1D6EFF0D N            G        DTA3-5,-1,13
     7312   01 02CD4    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7313   01 02CD5    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7314   01 02CD6    00003AC0              DATA     MEMORY            STACK POINTER
     7315   01 02CD7    80007FFF A            DATA     X'80007FFF'         DOUBLEWORD IN
     7316   01 02CD8    00003AC0              DATA     MEMORY            STACK POINTER
     7317   01 02CD9    80007FFF A            DATA     X'80007FFF'         DOUBLEWORD OUT
     7318                            ******************************************************************   MSP
     7319                            *                                   MODIFIER= MAXIMUM POSITIVE VALUE
     7320                            *                                   SPACE COUNT UNDERFLOWS BY 1
     7321                            *                                   TRAP
     7322   01 02CDA    0C0C001A A            MODULE
     7323   01 02CDB    13901D3E              MSP,9    SP
     7324   01 02CDC    B73011CE              K        11,7,3,LOC+2
     7325   01 02CDD    B730101B              K        11,7,3,EXP:TRAP+5
     7326   01 02CDE    1D78FF09 N            G        DTA3+5,-1,9
     7327   01 02CDF    1D78FF09 N            G        DTA3+5,-1,9
     7328   01 02CE0    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7329   01 02CE1    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7330   01 02CE2    00003AC0              DATA     MEMORY            STACK POINTER
     7331   01 02CE3    7FFE0000 A            DATA     X'7FFE0000'         DOUBLEWORD IN
     7332   01 02CE4    00003AC0              DATA     MEMORY            STACK POINTER
     7333   01 02CE5    7FFE0000 A            DATA     X'7FFE0000'         DOUBLEWORD OUT
     7334                            ******************************************************************   MSP
     7335                            *                                   MODIFIER= MAXIMUM NEGATIVE VALUE
     7336                            *                                   SPACE COUNT OVERFLOWS BY 1
     7337                            *                                   TRAP
     7338   01 02CE6    0C0D001B A            MODULE
     7339   01 02CE7    13501D3E              MSP,5    SP
     7340   01 02CE8    500011CE              K        5,0,0,LOC+2
     7341   01 02CE9    5000101B              K        5,0,0,EXP:TRAP+5
     7342   01 02CEA    1D6EFF05 N            G        DTA3-5,-1,5
     7343   01 02CEB    1D6EFF05 N            G        DTA3-5,-1,5
     7344   01 02CEC    00000000 A            G        0,0,0             MEM IN
     7345   01 02CED    00000000 A            G        0,0,0             MEM OUT
     7346   01 02CEE    00003AC0              DATA     MEMORY            STACK POINTER
     7347   01 02CEF    0000FFFF A            DATA     X'0000FFFF'         DOUBLEWORD IN
     7348   01 02CF0    00003AC0              DATA     MEMORY            STACK POINTER
     7349   01 02CF1    0000FFFF A            DATA     X'0000FFFF'         DOUBLEWORD OUT
     7350                            ******************************************************************   MSP
     7351                            *                                   INDEXED     INDEX VALUE OF 1 IN R7
     7352                            *                                   MODIFIER=2 IN R8
     7353   01 02CF2    0C0E001C A            MODULE
     7354   01 02CF3    138E1D3C              MSP,8    SP-2,7
     7355   01 02CF4    B00011CC              K        11,0,0,LOC
     7356   01 02CF5    400011CE              K        4,0,0,LOC+2
     7357   01 02CF6    1D74FE07 N            G        DTA3+1,-2,7
     7358   01 02CF7    1D74FE07 N            G        DTA3+1,-2,7
     7359   01 02CF8    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7360   01 02CF9    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7361   01 02CFA    00003AC0              DATA     MEMORY            STACK POINTER
     7362   01 02CFB    00020000 A            DATA     X'00020000'         DOUBLEWORD IN
     7363   01 02CFC    00003AC2              DATA     MEMORY+2          STACK POINTER
     7364   01 02CFD    00000002 A            DATA     X'00000002'         DOUBLEWORD OUT
     7365                            ******************************************************************   MSP
     7366                            *                                   INDIRECTLY ADDRESSED
     7367                            *                                   MODIFIER=-2 IN R1
     7368   01 02CFE    0C0F001D A            MODULE
     7369   01 02CFF    93101D44              MSP,1    *IASP
     7370   01 02D00    000011CC              K        0,0,0,LOC
     7371   01 02D01    100011CE              K        1,0,0,LOC+2
     7372   01 02D02    1D71FE01 N            G        DTA3-2,-2,1
     7373   01 02D03    1D71FE01 N            G        DTA3-2,-2,1
     7374   01 02D04    00000000 A            G        0,0,0             MEM IN
     7375   01 02D05    00000000 A            G        0,0,0             MEM OUT
     7376   01 02D06    00003AC2              DATA     MEMORY+2          STACK POINTER
     7377   01 02D07    00000002 A            DATA     X'00000002'         DOUBLEWORD IN
     7378   01 02D08    00003AC0              DATA     MEMORY            STACK POINTER
     7379   01 02D09    00020000 A            DATA     X'00020000'         DOUBLEWORD OUT
     7380                            ******************************************************************   MSP
     7381                            *                                   INDEXED;   INDIRECTLY ADDRESSED
     7382                            *                                   MODIFIER = 4, INDEX VALUE = 32 IN R5
     7383   01 02D0A    0C10001E A            MODULE
     7384   01 02D0B    932A1D45              MSP,2    *IA32,5
     7385   01 02D0C    B00011CC              K        11,0,0,LOC
     7386   01 02D0D    400011CE              K        4,0,0,LOC+2
     7387   01 02D0E    1D76FC02 N            G        DTA3+3,-4,2
     7388   01 02D0F    1D76FC02 N            G        DTA3+3,-4,2
     7389   01 02D10    00000000 A            G        0,0,0             MEM IN
     7390   01 02D11    00000000 A            G        0,0,0             MEM OUT
     7391   01 02D12    00003AC0              DATA     MEMORY            STACK POINTER
     7392   01 02D13    80048000 A            DATA     X'80048000'         DOUBLEWORD IN
     7393   01 02D14    00003AC4              DATA     MEMORY+4          STACK POINTER
     7394   01 02D15    80008004 A            DATA     X'80008004'         DOUBLEWORD OUT
     7395                            ******************************************************************   PSW
     7396                            *                                   PUSH WORD INTO STACK FROM R6.
     7397                            *                                   NO OVERFLOW OR UNDERFLOW.
     7398   01 02D16    0C01001F A            MODULE   X'09'
     7399   01 02D17    09601D3E              PSW,6    SP
     7400   01 02D18    F73011CC              K        15,7,3,LOC
     7401   01 02D19    073011CE              K        0,7,3,LOC+2
     7402   01 02D1A    1D4EF000 N            G        DTA1,-16,0
     7403   01 02D1B    1D4EF000 N            G        DTA1,-16,0
     7404   01 02D1C    00000000 A            G        0,0,0             MEM IN
     7405   01 02D1D    1D54FF01 N            G        DTA1+6,-1,1       MEM OUT
     7406   01 02D1E    00003AC0              DATA     MEMORY            STACK POINTER
     7407   01 02D1F    4000BFFF A            DATA     X'4000BFFF'         DOUBLEWORD IN
     7408   01 02D20    00003AC1              DATA     MEMORY+1          STACK POINTER
     7409   01 02D21    3FFFC000 A            DATA     X'3FFFC000'         DOUBLEWORD OUT
     7410                            ******************************************************************   PSW
     7411                            *                                   PUSH WORD INTO STACK FROM R5
     7412                            *                                   NO OVERFLOW OR UNDERFLOW,  TS SET
     7413                            *                                   SPACE COUNT GOES TO ZERO
     7414   01 02D22    0C020020 A            MODULE
     7415   01 02D23    09501D3E              PSW,5    SP
     7416   01 02D24    B73011CC              K        11,7,3,LOC
     7417   01 02D25    473011CE              K        4,7,3,LOC+2
     7418   01 02D26    1D4EF000 N            G        DTA1,-16,0
     7419   01 02D27    1D4EF000 N            G        DTA1,-16,0
     7420   01 02D28    00000000 A            G        0,0,0             MEM IN
     7421   01 02D29    1D53FF02 N            G        DTA1+5,-1,2       MEM OUT
     7422   01 02D2A    00003AC1              DATA     MEMORY+1          STACK POINTER
     7423   01 02D2B    80017FFE A            DATA     X'80017FFE'         DOUBLEWORD IN
     7424   01 02D2C    00003AC2              DATA     MEMORY+2          STACK POINTER
     7425   01 02D2D    80007FFF A            DATA     X'80007FFF'         DOUBLEWORD OUT
     7426                            ******************************************************************   PSW
     7427                            *                                   SPACE COUNT UNDERFLOW
     7428                            *                                   TS SET, NO TRAP
     7429   01 02D2E    0C030021 A            MODULE
     7430   01 02D2F    09801D3E              PSW,8    SP
     7431   01 02D30    200011CC              K        2,0,0,LOC
     7432   01 02D31    D00011CE              K        13,0,0,LOC+2
     7433   01 02D32    1D4EF000 N            G        DTA1,-16,0
     7434   01 02D33    1D4EF000 N            G        DTA1,-16,0
     7435   01 02D34    00000000 A            G        0,0,0             MEM IN
     7436   01 02D35    00000000 A            G        0,0,0             MEM OUT
     7437   01 02D36    00003AC0              DATA     MEMORY            STACK POINTER
     7438   01 02D37    80000000 A            DATA     X'80000000'         DOUBLEWORD IN
     7439   01 02D38    00003AC0              DATA     MEMORY            STACK POINTER
     7440   01 02D39    80000000 A            DATA     X'80000000'         DOUBLEWORD OUT
     7441                            ******************************************************************   PSW
     7442                            *                                   SPACE COUNT UNDERFLOW
     7443                            *                                   TS NOT SET, TRAP
     7444   01 02D3A    0C040022 A            MODULE
     7445   01 02D3B    09F01D3E              PSW,15   SP
     7446   01 02D3C    000011CE              K        0,0,0,LOC+2
     7447   01 02D3D    0000101B              K        0,0,0,EXP:TRAP+5
     7448   01 02D3E    1D4EF000 N            G        DTA1,-16,0
     7449   01 02D3F    1D4EF000 N            G        DTA1,-16,0
     7450   01 02D40    00000000 A            G        0,0,0             MEM IN
     7451   01 02D41    00000000 A            G        0,0,0             MEM OUT
     7452   01 02D42    00003AC0              DATA     MEMORY            STACK POINTER
     7453   01 02D43    00008000 A            DATA     X'00008000'         DOUBLEWORD IN
     7454   01 02D44    00003AC0              DATA     MEMORY            STACK POINTER
     7455   01 02D45    00008000 A            DATA     X'00008000'         DOUBLEWORD OUT
     7456                            *****************************************************************  PSW
     7457                            *                                   SPACE COUNT UNDER FLOW,TS=1
     7458                            *                                   ABORT
     7459   01 02D46    0C050023 A            MODULE
     7460   01 02D47    09201D3E              PSW,2    SP
     7461   01 02D48    300011CC              K        3,0,0,LOC
     7462   01 02D49    C00011CE              K        12,0,0,LOC+2
     7463   01 02D4A    1D73FE02 N            G        DTA3,-2,2
     7464   01 02D4B    1D73FE02 N            G        DTA3,-2,2
     7465   01 02D4C    1D5EFA00 N            G        DTA2,-6,0
     7466   01 02D4D    1D5EFA00 N            G        DTA2,-6,0
     7467   01 02D4E    00003AC2              DATA     MEMORY+2          STACK POINTER
     7468   01 02D4F    80000002 A            DATA     X'80000002'        DOUBLE WORD
     7469   01 02D50    00003AC2              DATA     MEMORY+2          STACK POINTER
     7470   01 02D51    80000002 A            DATA     X'80000002'        DOUBLE WORD
     7471                            *****************************************************************  PSW
     7472                            *                                   SPACE COUNT UNDER FLOW, WORD COUNT
     7473                            *                                   OVERFLOW, TS AND TW= 1, ABORT
     7474                            *
     7475   01 02D52    0C060024 A            MODULE
     7476   01 02D53    09401D3E              PSW,4    SP
     7477   01 02D54    100011CC              K        1,0,0,LOC
     7478   01 02D55    E00011CE              K        14,0,0,LOC+2
     7479   01 02D56    1D72FE04 N            G        DTA3-1,-2,4
     7480   01 02D57    1D72FE04 N            G        DTA3-1,-2,4
     7481   01 02D58    1D5EFA00 N            G        DTA2,-6,0
     7482   01 02D59    1D5EFA00 N            G        DTA2,-6,0
     7483   01 02D5A    00003ABF              DATA     MEMORY-1          STACK POINTER
     7484   01 02D5B    8000FFFF A            DATA     X'8000FFFF'        DOUBLE WORD IN
     7485   01 02D5C    00003ABF              DATA     MEMORY-1          STACK POINTER
     7486   01 02D5D    8000FFFF A            DATA     X'8000FFFF'        DOUBLE WORD OUT
     7487                            *****************************************************************  PSW
     7488                            *                                   SPACE COUNT UNDERFLOW, TS AND TW=0
     7489                            *                                   TRAP
     7490   01 02D5E    0C070025 A            MODULE
     7491   01 02D5F    09681D3A              PSW,6    SP-4,4
     7492   01 02D60    273011CE              K        2,7,3,LOC+2
     7493   01 02D61    2730101B              K        2,7,3,EXP:TRAP+5
     7494   01 02D62    1D75FD04 N            G        DTA3+2,-3,4
     7495   01 02D63    1D75FD04 N            G        DTA3+2,-3,4
     7496   01 02D64    1F45F900 N            G        CVT,-7,0
     7497   01 02D65    1F45F900 N            G        CVT,-7,0
     7498   01 02D66    00003AC0              DATA     MEMORY            STACK POINTER
     7499   01 02D67    00000000 A            DATA     0                  DOUBLE WORD
     7500   01 02D68    00003AC0              DATA     MEMORY            STACK POINTER
     7501   01 02D69    00000000 A            DATA     0                  DOUBLE WORD
     7502                            ******************************************************************   PSW
     7503                            *                                   WORD COUNT OVERFLOW
     7504                            *                                   TW SET, NO TRAP
     7505   01 02D6A    0C080026 A            MODULE
     7506   01 02D6B    09001D3E              PSW,0    SP
     7507   01 02D6C    D00011CC              K        13,0,0,LOC
     7508   01 02D6D    200011CE              K        2,0,0,LOC+2
     7509   01 02D6E    00000000 A            G        0,0,0
     7510   01 02D6F    00000000 A            G        0,0,0
     7511   01 02D70    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7512   01 02D71    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7513   01 02D72    00003AC0              DATA     MEMORY            STACK POINTER
     7514   01 02D73    000FFFFF A            DATA     X'000FFFFF'         DOUBLEWORD IN
     7515   01 02D74    00003AC0              DATA     MEMORY            STACK POINTER
     7516   01 02D75    000FFFFF A            DATA     X'000FFFFF'         DOUBLEWORD OUT
     7517                            ******************************************************************   PSW
     7518                            *                                   WORD COUNT OVERFLOW
     7519                            *                                   TW NOT SET, TRAP
     7520   01 02D76    0C090027 A            MODULE
     7521   01 02D77    09001D3E              PSW,0    SP
     7522   01 02D78    F73011CE              K        15,7,3,LOC+2
     7523   01 02D79    F730101B              K        15,7,3,EXP:TRAP+5
     7524   01 02D7A    1D4EF000 N            G        DTA1,-16,0
     7525   01 02D7B    1D4EF000 N            G        DTA1,-16,0
     7526   01 02D7C    00000000 A            G        0,0,0             MEM IN
     7527   01 02D7D    00000000 A            G        0,0,0             MEM OUT
     7528   01 02D7E    00003AC0              DATA     MEMORY            STACK POINTER
     7529   01 02D7F    000F7FFF A            DATA     X'000F7FFF'         DOUBLEWORD IN
     7530   01 02D80    00003AC0              DATA     MEMORY            STACK POINTER
     7531   01 02D81    000F7FFF A            DATA     X'000F7FFF'         DOUBLEWORD OUT
     7532                            ******************************************************************   PSW
     7533                            *                                   WORD COUNT OVERFLOW
     7534                            *                                   SPACE COUNT UNDERFLOW
     7535                            *                                   TS NOT SET, TW SET,  TRAP
     7536   01 02D82    0C0A0028 A            MODULE
     7537   01 02D83    09101D3E              PSW,1    SP
     7538   01 02D84    F73011CE              K        15,7,3,LOC+2
     7539   01 02D85    F730101B              K        15,7,3,EXP:TRAP+5
     7540   01 02D86    00000000 A            G        0,0,0
     7541   01 02D87    00000000 A            G        0,0,0
     7542   01 02D88    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7543   01 02D89    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7544   01 02D8A    00003AC0              DATA     MEMORY            STACK POINTER
     7545   01 02D8B    0000FFFF A            DATA     X'0000FFFF'         DOUBLEWORD IN
     7546   01 02D8C    00003AC0              DATA     MEMORY            STACK POINTER
     7547   01 02D8D    0000FFFF A            DATA     X'0000FFFF'         DOUBLEWORD OUT
     7548                            ******************************************************************   PSW
     7549                            *                                   WORD COUNT OVERFLOW
     7550                            *                                   SPACE COUNT UNDERFLOW
     7551                            *                                   TS SET, TW NOT SET,  TRAP
     7552   01 02D8E    0C0B0029 A            MODULE
     7553   01 02D8F    09101D3E              PSW,1    SP
     7554   01 02D90    073011CE              K        0,7,3,LOC+2
     7555   01 02D91    0730101B              K        0,7,3,EXP:TRAP+5
     7556   01 02D92    00000000 A            G        0,0,0
     7557   01 02D93    00000000 A            G        0,0,0
     7558   01 02D94    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7559   01 02D95    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7560   01 02D96    00003AC0              DATA     MEMORY            STACK POINTER
     7561   01 02D97    80007FFF A            DATA     X'80007FFF'         DOUBLEWORD IN
     7562   01 02D98    00003AC0              DATA     MEMORY            STACK POINTER
     7563   01 02D99    80007FFF A            DATA     X'80007FFF'         DOUBLEWORD OUT
     7564                            ******************************************************************   PSW
     7565                            *                                   INDEXED, INDEX VALUE OF 1 IN R1
     7566                            *                                   PUSH WORD INTO STACK FROM R2
     7567   01 02D9A    0C0C002A A            MODULE
     7568   01 02D9B    09221D3C              PSW,2    SP-2,1
     7569   01 02D9C    B00011CC              K        11,0,0,LOC
     7570   01 02D9D    400011CE              K        4,0,0,LOC+2
     7571   01 02D9E    1D74FE01 N            G        DTA3+1,-2,1
     7572   01 02D9F    1D74FE01 N            G        DTA3+1,-2,1
     7573   01 02DA0    00000000 A            G        0,0,0             MEM IN
     7574   01 02DA1    1D75FF01 N            G        DTA3+2,-1,1       MEM OUT
     7575   01 02DA2    00003AC0              DATA     MEMORY            STACK POINTER
     7576   01 02DA3    00010000 A            DATA     X'00010000'         DOUBLEWORD IN
     7577   01 02DA4    00003AC1              DATA     MEMORY+1          STACK POINTER
     7578   01 02DA5    00000001 A            DATA     X'00000001'         DOUBLEWORD OUT
     7579                            ******************************************************************   PSW
     7580                            *                                   INDIRECTLY ADDRESSED
     7581                            *                                   PUSH WORD FROM R0
     7582   01 02DA6    0C0D002B A            MODULE
     7583   01 02DA7    89001D44              PSW,0    *IASP
     7584   01 02DA8    F00011CC              K        15,0,0,LOC
     7585   01 02DA9    000011CE              K        0,0,0,LOC+2
     7586   01 02DAA    1D4EF000 N            G        DTA1,-16,0
     7587   01 02DAB    1D4EF000 N            G        DTA1,-16,0
     7588   01 02DAC    00000000 A            G        0,0,0             MEM IN
     7589   01 02DAD    1D4EFF01 N            G        DTA1,-1,1         MEM OUT
     7590   01 02DAE    00003AC0              DATA     MEMORY            STACK POINTER
     7591   01 02DAF    80078007 A            DATA     X'80078007'         DOUBLEWORD IN
     7592   01 02DB0    00003AC1              DATA     MEMORY+1          STACK POINTER
     7593   01 02DB1    80068008 A            DATA     X'80068008'         DOUBLEWORD OUT
     7594                            ******************************************************************   PSW
     7595                            *                                   INDEXED,INDEX VALUE OF 32 IN R4
     7596                            *                                   INDIRECTLY ADDRESSED
     7597   01 02DB2    0C0E002C A            MODULE
     7598   01 02DB3    894A1D45              PSW,4    *IA32,5
     7599   01 02DB4    173011CC              K        1,7,3,LOC
     7600   01 02DB5    073011CE              K        0,7,3,LOC+2
     7601   01 02DB6    1D78FE04 N            G        DTA3+5,-2,4
     7602   01 02DB7    1D78FE04 N            G        DTA3+5,-2,4
     7603   01 02DB8    00000000 A            G        0,0,0             MEM IN
     7604   01 02DB9    1D78FF00 N            G        DTA3+5,-1,0       MEM OUT
     7605   01 02DBA    00003ABF              DATA     MEMORY-1          STACK POINTER
     7606   01 02DBB    80028000 A            DATA     X'80028000'         DOUBLEWORD IN
     7607   01 02DBC    00003AC0              DATA     MEMORY            STACK POINTER
     7608   01 02DBD    80018001 A            DATA     X'80018001'         DOUBLEWORD OUT
     7609                            ******************************************************************   PLW
     7610                            *                                   PULL WORD INTO R0
     7611                            *                                   NO OVERFLOW OR UNDERFLOW
     7612   01 02DBE    0C01002D A            MODULE   X'08'
     7613   01 02DBF    08001D3E              PLW,0    SP
     7614   01 02DC0    F73011CC              K        15,7,3,LOC
     7615   01 02DC1    073011CE              K        0,7,3,LOC+2
     7616   01 02DC2    00000000 A            G        0,0,0
     7617   01 02DC3    1D4FFF00 N            G        DTA1+1,-1,0
     7618   01 02DC4    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7619   01 02DC5    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7620   01 02DC6    00003AC1              DATA     MEMORY+1          STACK POINTER
     7621   01 02DC7    00020003 A            DATA     X'00020003'         DOUBLEWORD IN
     7622   01 02DC8    00003AC0              DATA     MEMORY            STACK POINTER
     7623   01 02DC9    00030002 A            DATA     X'00030002'         DOUBLEWORD OUT
     7624                            ******************************************************************   PLW
     7625                            *                                   PULL WORD INTO R15
     7626                            *                                   SPACE COUNT GOES TO MAXIMUM
     7627                            *                                   WORD COUNT GOES TO ZERO
     7628   01 02DCA    0C02002E A            MODULE
     7629   01 02DCB    08F01D3E              PLW,15   SP
     7630   01 02DCC    E00011CC              K        14,0,0,LOC
     7631   01 02DCD    100011CE              K        1,0,0,LOC+2
     7632   01 02DCE    00000000 A            G        0,0,0
     7633   01 02DCF    1D5DFF0F N            G        DTA1+15,-1,15
     7634   01 02DD0    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7635   01 02DD1    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7636   01 02DD2    00003ACF              DATA     MEMORY+15         STACK POINTER
     7637   01 02DD3    FFFE8001 A            DATA     X'FFFE8001'         DOUBLEOWRD IN
     7638   01 02DD4    00003ACE              DATA     MEMORY+14         STACK POINTER
     7639   01 02DD5    FFFF8000 A            DATA     X'FFFF8000'         DOUBLEWORD OUT
     7640                            ******************************************************************   PLW
     7641                            *                                   SPACE COUNT OVERFLOW
     7642                            *                                   TS SET, ABORT
     7643   01 02DD6    0C03002F A            MODULE
     7644   01 02DD7    08101D3E              PLW,1    SP
     7645   01 02DD8    700011CC              K        7,0,0,LOC
     7646   01 02DD9    800011CE              K        8,0,0,LOC+2
     7647   01 02DDA    1D4EF000 N            G        DTA1,-16,0
     7648   01 02DDB    1D4EF000 N            G        DTA1,-16,0
     7649   01 02DDC    00000000 A            G        0,0,0             MEM IN
     7650   01 02DDD    00000000 A            G        0,0,0             MEM OUT
     7651   01 02DDE    00003AC0              DATA     MEMORY            STACK POINTER
     7652   01 02DDF    FFFF0001 A            DATA     X'FFFF0001'         DOUBLEWORD IN
     7653   01 02DE0    00003AC0              DATA     MEMORY            STACK POINTER
     7654   01 02DE1    FFFF0001 A            DATA     X'FFFF0001'         DOUBLEWORD OUT
     7655                            ******************************************************************   PLW
     7656                            *                                   SPACE COUNT OVERFLOW
     7657                            *                                   TS NOT SET,  TRAP
     7658   01 02DE2    0C040030 A            MODULE
     7659   01 02DE3    08101D3E              PLW,1    SP
     7660   01 02DE4    000011CE              K        0,0,0,LOC+2
     7661   01 02DE5    0000101B              K        0,0,0,EXP:TRAP+5
     7662   01 02DE6    1D4EF000 N            G        DTA1,-16,0
     7663   01 02DE7    1D4EF000 N            G        DTA1,-16,0
     7664   01 02DE8    00000000 A            G        0,0,0             MEM IN
     7665   01 02DE9    00000000 A            G        0,0,0             MEM OUT
     7666   01 02DEA    00003AC0              DATA     MEMORY            STACK POINTER
     7667   01 02DEB    7FFF0001 A            DATA     X'7FFF0001'         DOUBLEWORD IN
     7668   01 02DEC    00003AC0              DATA     MEMORY            STACK POINTER
     7669   01 02DED    7FFF0001 A            DATA     X'7FFF0001'         DOUBLEWORD OUT
     7670                            ******************************************************************   PLW
     7671                            *                                   WORD COUNT UNDERFLOW
     7672                            *                                   TW SET, ABORT
     7673   01 02DEE    0C050031 A            MODULE
     7674   01 02DEF    08101D3E              PLW,1    SP
     7675   01 02DF0    800011CC              K        8,0,0,LOC
     7676   01 02DF1    700011CE              K        7,0,0,LOC+2
     7677   01 02DF2    00000000 A            G        0,0,0
     7678   01 02DF3    00000000 A            G        0,0,0
     7679   01 02DF4    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7680   01 02DF5    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7681   01 02DF6    00003AC0              DATA     MEMORY            STACK POINTER
     7682   01 02DF7    00008000 A            DATA     X'00008000'         DOUBLEWORD IN
     7683   01 02DF8    00003AC0              DATA     MEMORY            STACK POINTER
     7684   01 02DF9    00008000 A            DATA     X'00008000'         DOUBLEWORD OUT
     7685                            ******************************************************************   PLW
     7686                            *                                   WORD COUNT UNDERFLOW
     7687                            *                                   TW NOT SET,  TRAP
     7688   01 02DFA    0C060032 A            MODULE
     7689   01 02DFB    08101D3E              PLW,1    SP
     7690   01 02DFC    F00011CE              K        15,0,0,LOC+2
     7691   01 02DFD    F000101B              K        15,0,0,EXP:TRAP+5
     7692   01 02DFE    00000000 A            G        0,0,0
     7693   01 02DFF    00000000 A            G        0,0,0
     7694   01 02E00    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7695   01 02E01    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7696   01 02E02    00003AC0              DATA     MEMORY            STACK POINTER
     7697   01 02E03    00000000 A            DATA     X'00000000'         DOUBLEWORD IN
     7698   01 02E04    00003AC0              DATA     MEMORY            STACK POINTER
     7699   01 02E05    00000000 A            DATA     X'00000000'         DOUBLEWORD OUT
     7700                            *****************************************************************  PLW
     7701                            *                                   TRAP, TS AND TW=0
     7702                            *                                   WORD COUNT UNDER FLOW
     7703                            *
     7704   01 02E06    0C070033 A            MODULE
     7705   01 02E07    08801D3E              PLW,8    SP
     7706   01 02E08    C73011CE              K        12,7,3,LOC+2
     7707   01 02E09    C730101B              K        12,7,3,EXP:TRAP+5
     7708   01 02E0A    1D72FE08 N            G        DTA3-1,-2,8
     7709   01 02E0B    1D72FE08 N            G        DTA3-1,-2,8
     7710   01 02E0C    1D61FE00 N            G        DTA2+3,-2,0
     7711   01 02E0D    1D61FE00 N            G        DTA2+3,-2,0
     7712   01 02E0E    00003AC0              DATA     MEMORY            STACK POINTER
     7713   01 02E0F    00010000 A            DATA     X'10000'           DOUBLEWORD IN
     7714   01 02E10    00003AC0              DATA     MEMORY            STACK POINTER
     7715   01 02E11    00010000 A            DATA     X'10000'           DOUBLEWORD IN
     7716                            *****************************************************************  PLW
     7717                            *                                   INDIRECT ADDRESSING-- TRAP
     7718                            *
     7719                            *
     7720   01 02E12    0C080034 A            MODULE
     7721   01 02E13    88801D44              PLW,8    *IASP
     7722   01 02E14    473011CE              K        4,7,3,LOC+2
     7723   01 02E15    4730101B              K        4,7,3,EXP:TRAP+5
     7724   01 02E16    1D63FE08 N            G        DTA2+5,-2,8
     7725   01 02E17    1D63FE08 N            G        DTA2+5,-2,8
     7726   01 02E18    1F65FF00 N            G        CVT+32,-1,0
     7727   01 02E19    1F65FF00 N            G        CVT+32,-1,0
     7728   01 02E1A    00003AC0              DATA     MEMORY            STACK POINTER
     7729   01 02E1B    7FFF0000 A            DATA     X'7FFF0000'        DOUBLEWORD IN
     7730   01 02E1C    00003AC0              DATA     MEMORY            STACK POINTER
     7731   01 02E1D    7FFF0000 A            DATA     X'7FFF0000'        DOUBLEWORD OUT
     7732                            ******************************************************************   PLW
     7733                            *                                   WORD COUNT UNDERFLOW
     7734                            *                                   SPACE COUNT OVERFLOW
     7735                            *                                   TS SET, TW NOT SET, TRAP
     7736   01 02E1E    0C090035 A            MODULE
     7737   01 02E1F    08101D3E              PLW,1    SP
     7738   01 02E20    073011CE              K        0,7,3,LOC+2
     7739   01 02E21    0730101B              K        0,7,3,EXP:TRAP+5
     7740   01 02E22    00000000 A            G        0,0,0
     7741   01 02E23    00000000 A            G        0,0,0
     7742   01 02E24    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7743   01 02E25    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7744   01 02E26    00003AC0              DATA     MEMORY            STACK POINTER
     7745   01 02E27    FFFF0000 A            DATA     X'FFFF0000'         DOUBLEWORD IN
     7746   01 02E28    00003AC0              DATA     MEMORY            STACK POINTER
     7747   01 02E29    FFFF0000 A            DATA     X'FFFF0000'         DOUBLEWORD OUT
     7748                            ******************************************************************   PLW
     7749                            *                                   WORD COUNT UNDERFLOW
     7750                            *                                   SPACE COUNT OVERFLOW
     7751                            *                                   TS NOT SET, TW SET, TRAP
     7752   01 02E2A    0C0A0036 A            MODULE
     7753   01 02E2B    08101D3E              PLW,1    SP
     7754   01 02E2C    F73011CE              K        15,7,3,LOC+2
     7755   01 02E2D    F730101B              K        15,7,3,EXP:TRAP+5
     7756   01 02E2E    00000000 A            G        0,0,0
     7757   01 02E2F    00000000 A            G        0,0,0
     7758   01 02E30    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7759   01 02E31    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7760   01 02E32    00003AC0              DATA     MEMORY            STACK POINTER
     7761   01 02E33    7FFF8000 A            DATA     X'7FFF8000'         DOUBLEWORD IN
     7762   01 02E34    00003AC0              DATA     MEMORY            STACK POINTER
     7763   01 02E35    7FFF8000 A            DATA     X'7FFF8000'         DOUBLEWORD OUT
     7764                            *****************************************************************  PLW
     7765                            *                                   INDEXING
     7766                            *                                   PULL WORD TO R7
     7767                            *                                   TS AND TW NOT SET
     7768   01 02E36    0C0B0037 A            MODULE
     7769   01 02E37    087F7294 S            PLW,7    SP-X'AAAA',7
     7770   01 02E38    F03011CC              K        15,0,3,LOC
     7771   01 02E39    003011CE              K        0,0,3,LOC+2       PSW2 OUT
     7772   01 02E3A    1D65FF07 N            G        DTA2+7,-1,7
     7773   01 02E3B    1D60FF07 N            G        DTA2+2,-1,7
     7774   01 02E3C    1D60FF00 N            G        DTA2+2,-1,0
     7775   01 02E3D    1D60FF00 N            G        DTA2+2,-1,0
     7776   01 02E3E    00003AC0              DATA     MEMORY            STACK POINTER
     7777   01 02E3F    00000002 A            DATA     X'2'               DOUBLEWORD IN
     7778   01 02E40    00003ABF              DATA     MEMORY-1          STACK POINTER
     7779   01 02E41    00010001 A            DATA     X'10001'           DOUBLEWORD OUT
     7780                            *****************************************************************  PLW
     7781                            *                                   INDIRECT ADDRESSING
     7782                            *                                   PULL WORD TO R12
     7783                            *                                   TS=0, TW=1
     7784   01 02E42    0C0C0038 A            MODULE
     7785   01 02E43    88C01D44              PLW,12   *IASP
     7786   01 02E44    000011CC              K        0,0,0,LOC
     7787   01 02E45    100011CE              K        1,0,0,LOC+2
     7788   01 02E46    1D4EFF0C N            G        DTA1,-1,12
     7789   01 02E47    1D5EFF0C N            G        DTA2,-1,12
     7790   01 02E48    1D5EFF00 N            G        DTA2,-1,0
     7791   01 02E49    1D5EFF00 N            G        DTA2,-1,0
     7792   01 02E4A    00003AC0              DATA     MEMORY            STACK POINTER
     7793   01 02E4B    00008001 A            DATA     X'8001'            DOUBLE WORD IN
     7794   01 02E4C    00003ABF              DATA     MEMORY-1          STACK POINTER
     7795   01 02E4D    00018000 A            DATA     X'18000'           DOUBLE WORD OUT
     7796                            *****************************************************************  PLW
     7797                            *                                   INDIRECT ADDRESSING
     7798                            *                                   TS=0 TW=1
     7799                            *                                   PULL WORD TO R4
     7800   01 02E4E    0C0D0039 A            MODULE
     7801   01 02E4F    88481D45              PLW,4    *IA32,4
     7802   01 02E50    070011CC              K        0,7,0,LOC
     7803   01 02E51    070011CE              K        0,7,0,LOC+2
     7804   01 02E52    1D79FF04 N            G        DTA3+6,-1,4
     7805   01 02E53    1D6AFF04 N            G        DTA2+12,-1,4
     7806   01 02E54    1D6AFF00 N            G        DTA2+12,-1,0
     7807   01 02E55    1D6AFF00 N            G        DTA2+12,-1,0
     7808   01 02E56    00003AC0              DATA     MEMORY            STACK POINTER
     7809   01 02E57    0000FFFF A            DATA     X'FFFF'            DOUBLEWORD IN
     7810   01 02E58    00003ABF              DATA     MEMORY-1          STACK POINT
     7811   01 02E59    0001FFFE A            DATA     X'1FFFE'           DOUBLEWORD
     7812                            ******************************************************************   PLW
     7813                            *                                   WORD COUNT UNDERFLOW
     7814                            *                                   SPACE COUNT OVERFLOW
     7815                            *                                   TS SET, TW SET,  ABORT
     7816   01 02E5A    0C0E003A A            MODULE
     7817   01 02E5B    08001D3E              PLW,0    SP
     7818   01 02E5C    100011CC              K        1,0,0,LOC
     7819   01 02E5D    B00011CE              K        11,0,0,LOC+2
     7820   01 02E5E    00000000 A            G        0,0,0
     7821   01 02E5F    00000000 A            G        0,0,0
     7822   01 02E60    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7823   01 02E61    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7824   01 02E62    00003AC1              DATA     MEMORY+1          STACK POINTER
     7825   01 02E63    FFFF8000 A            DATA     X'FFFF8000'         DOUBLEWORD IN
     7826   01 02E64    00003AC1              DATA     MEMORY+1          STACK POINTER
     7827   01 02E65    FFFF8000 A            DATA     X'FFFF8000'         DOUBLEWORD OUT
     7828                                     SPACE    3



     7829                            ******************************************************************   PLM
     7830                            *                                   PULL 1 WORD INTO R8
     7831                            *                                   TS=0, TW=0
     7832                            *                                   STARTS WITH MAXIMUM WORD COUNT
     7833   01 02E66    0C01003B A            MODULE   X'0A'
     7834   01 02E67    0A801D3E              PLM,8    SP
     7835   01 02E68    100011CC              K        1,0,0,LOC
     7836   01 02E69    000011CE              K        0,0,0,LOC+2
     7837   01 02E6A    00000000 A            G        0,0,0
     7838   01 02E6B    1D4FFF08 N            G        DTA1+1,-1,8
     7839   01 02E6C    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7840   01 02E6D    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7841   01 02E6E    00003AC1              DATA     MEMORY+1          STACK POINTER
     7842   01 02E6F    003F7FFF A            DATA     X'003F7FFF'       DOUBLEWORD IN
     7843   01 02E70    00003AC0              DATA     MEMORY            STACK POINTER
     7844   01 02E71    00407FFE A            DATA     X'00407FFE'         DOUBLEWORD OUT
     7845                            ******************************************************************   PLM
     7846                            *                                   PULL 2 WORD INTO R4,R5
     7847                            *                                   TS=0, TW=1
     7848                            *                                   STARTS WITH ZERO SPACE COUNT
     7849   01 02E72    0C02003C A            MODULE
     7850   01 02E73    0A401D3E              PLM,4    SP
     7851   01 02E74    273011CC              K        2,7,3,LOC
     7852   01 02E75    073011CE              K        0,7,3,LOC+2
     7853   01 02E76    00000000 A            G        0,0,0
     7854   01 02E77    1D4FFE04 N            G        DTA1+1,-2,4
     7855   01 02E78    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7856   01 02E79    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7857   01 02E7A    00003AC2              DATA     MEMORY+2          STACK POINTER
     7858   01 02E7B    00008312 A            DATA     X'00008312'         DOUBLEWORD IN
     7859   01 02E7C    00003AC0              DATA     MEMORY            STACK POINTER
     7860   01 02E7D    00028310 A            DATA     X'00028310'         DOUBLEWORD OUT
     7861                            ******************************************************************   PLM
     7862                            *                                   PULL 4 WORDS INTO R2-R5
     7863                            *                                   TS=1, TW=0
     7864   01 02E7E    0C03003D A            MODULE
     7865   01 02E7F    0A201D3E              PLM,2    SP
     7866   01 02E80    473011CC              K        4,7,3,LOC
     7867   01 02E81    073011CE              K        0,7,3,LOC+2
     7868   01 02E82    00000000 A            G        0,0,0
     7869   01 02E83    1D4EFC02 N            G        DTA1,-4,2
     7870   01 02E84    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7871   01 02E85    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7872   01 02E86    00003AC3              DATA     MEMORY+3          STACK POINTER
     7873   01 02E87    807F7766 A            DATA     X'807F7766'         DOUBLEWORD IN
     7874   01 02E88    00003ABF              DATA     MEMORY-1          STACK POINTER
     7875   01 02E89    80837762 A            DATA     X'80837762'         DOUBLEWORD OUT
     7876                            ******************************************************************   PLM
     7877                            *                                   PULL 8 WORDS INTO R1-R8
     7878                            *                                   TS=1, TW=1
     7879   01 02E8A    0C04003E A            MODULE
     7880   01 02E8B    0A101D3E              PLM,1    SP
     7881   01 02E8C    873011CC              K        8,7,3,LOC
     7882   01 02E8D    073011CE              K        0,7,3,LOC+2
     7883   01 02E8E    00000000 A            G        0,0,0
     7884   01 02E8F    1D4FF801 N            G        DTA1+1,-8,1
     7885   01 02E90    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7886   01 02E91    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7887   01 02E92    00003AC8              DATA     MEMORY+8          STACK POINTER
     7888   01 02E93    800A800A A            DATA     X'800A800A'         DOUBLEWORD IN
     7889   01 02E94    00003AC0              DATA     MEMORY            STACK POINTER
     7890   01 02E95    80128002 A            DATA     X'80128002'         DOUBLEWORD OUT
     7891                            ******************************************************************   PLM
     7892                            *                                   PULL 16 WORDS INTO R0-R15
     7893                            *                                   TS=1, TW=1
     7894   01 02E96    0C05003F A            MODULE
     7895   01 02E97    0A001D3E              PLM,0    SP
     7896   01 02E98    073011CC              K        0,7,3,LOC
     7897   01 02E99    173011CE              K        1,7,3,LOC+2
     7898   01 02E9A    00000000 A            G        0,0,0
     7899   01 02E9B    1D4EF000 N            G        DTA1,-16,0
     7900   01 02E9C    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7901   01 02E9D    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7902   01 02E9E    00003ACF              DATA     MEMORY+15         STACK POINTER
     7903   01 02E9F    80008010 A            DATA     X'80008010'         DOUBLEWORD IN
     7904   01 02EA0    00003ABF              DATA     MEMORY-1          STACK POINTER
     7905   01 02EA1    80108000 A            DATA     X'80108000'         DOUBLEWORD OUT
     7906                            ******************************************************************   PLM
     7907                            *                                   PULL 16 WORDS INT R0-R15 BEGINNING
     7908                            *                                   WITH R1,  WORD CNT GOES TO ZERO.
     7909                            *                                   TS=0, TW=0
     7910   01 02EA2    0C060040 A            MODULE
     7911   01 02EA3    0A101D3E              PLM,1    SP
     7912   01 02EA4    000011CC              K        0,0,0,LOC
     7913   01 02EA5    100011CE              K        1,0,0,LOC+2
     7914   01 02EA6    00000000 A            G        0,0,0
     7915   01 02EA7    1D4EF001 N            G        DTA1,-16,1
     7916   01 02EA8    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7917   01 02EA9    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7918   01 02EAA    00003ACF              DATA     MEMORY+15         STACK POINTER
     7919   01 02EAB    7FEF0010 A            DATA     X'7FEF0010'         DOUBLEWORD IN
     7920   01 02EAC    00003ABF              DATA     MEMORY-1          STACK POINTER
     7921   01 02EAD    7FFF0000 A            DATA     X'7FFF0000'         DOUBLEWORD OUT
     7922                            ******************************************************************   PLM
     7923                            *                                   PULL 1 WORD
     7924                            *                                   WORD COUNT UNDERFLOW
     7925                            *                                   TS=1, TW=0    TRAP
     7926   01 02EAE    0C070041 A            MODULE
     7927   01 02EAF    0A001D3E              PLM,0    SP
     7928   01 02EB0    100011CE              K        1,0,0,LOC+2
     7929   01 02EB1    1000101B              K        1,0,0,EXP:TRAP+5
     7930   01 02EB2    00000000 A            G        0,0,0
     7931   01 02EB3    00000000 A            G        0,0,0
     7932   01 02EB4    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7933   01 02EB5    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7934   01 02EB6    00003AC0              DATA     MEMORY            STACK POINTER
     7935   01 02EB7    F2100000 A            DATA     X'F2100000'         DOUBLEWORD IN
     7936   01 02EB8    00003AC0              DATA     MEMORY            STACK POINTER
     7937   01 02EB9    F2100000 A            DATA     X'F2100000'         DOUBLWORD OUT
     7938                            ******************************************************************   PLM
     7939                            *                                   PULL 1 WORD
     7940                            *                                   WORD COUNT UNDERFLOW
     7941                            *                                   TS=1, TW=1    ABORT
     7942   01 02EBA    0C080042 A            MODULE
     7943   01 02EBB    0A001D3E              PLM,0    SP
     7944   01 02EBC    100011CC              K        1,0,0,LOC
     7945   01 02EBD    300011CE              K        3,0,0,LOC+2
     7946   01 02EBE    00000000 A            G        0,0,0
     7947   01 02EBF    00000000 A            G        0,0,0
     7948   01 02EC0    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7949   01 02EC1    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7950   01 02EC2    00003AC0              DATA     MEMORY            STACK POINTER
     7951   01 02EC3    F2108000 A            DATA     X'F2108000'         DOUBLWORD IN
     7952   01 02EC4    00003AC0              DATA     MEMORY            STACK POINTER
     7953   01 02EC5    F2108000 A            DATA     X'F2108000'         DOUBLEWORD OUT
     7954                            ******************************************************************   PLM
     7955                            *                                   PULL 1 WORD
     7956                            *                                   SPACE COUNT OVERFLOW
     7957                            *                                   TS=0, TW=1    TRAP
     7958   01 02EC6    0C090043 A            MODULE
     7959   01 02EC7    0A001D3E              PLM,0    SP
     7960   01 02EC8    173011CE              K        1,7,3,LOC+2
     7961   01 02EC9    1730101B              K        1,7,3,EXP:TRAP+5
     7962   01 02ECA    00000000 A            G        0,0,0
     7963   01 02ECB    00000000 A            G        0,0,0
     7964   01 02ECC    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7965   01 02ECD    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7966   01 02ECE    00003AC0              DATA     MEMORY            STACK POINTER
     7967   01 02ECF    7FFF8100 A            DATA     X'7FFF8100'         DOUBLEWORD IN
     7968   01 02ED0    00003AC0              DATA     MEMORY            STACK POINTER
     7969   01 02ED1    7FFF8100 A            DATA     X'7FFF8100'         DOUBLEWORD OUT
     7970                            ******************************************************************   PLM
     7971                            *                                   PULL 1 WORD
     7972                            *                                   SPACE COUNT OVERFLOW
     7973                            *                                   TS=1, TW=0    ABORT
     7974   01 02ED2    0C0A0044 A            MODULE
     7975   01 02ED3    0A001D3E              PLM,0    SP
     7976   01 02ED4    173011CC              K        1,7,3,LOC
     7977   01 02ED5    873011CE              K        8,7,3,LOC+2
     7978   01 02ED6    00000000 A            G        0,0,0
     7979   01 02ED7    00000000 A            G        0,0,0
     7980   01 02ED8    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7981   01 02ED9    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7982   01 02EDA    00003AC0              DATA     MEMORY            STACK POINTER
     7983   01 02EDB    FFFF0001 A            DATA     X'FFFF0001'         DOUBLEWORD IN
     7984   01 02EDC    00003AC0              DATA     MEMORY            STACK POINTER
     7985   01 02EDD    FFFF0001 A            DATA     X'FFFF0001'         DOUBLEWORD OUT
     7986                            ******************************************************************   PLM
     7987                            *                                   WORD COUNT UNDERFLOW
     7988                            *                                   SPACE COUNT OVERFLOW
     7989                            *                                   TS=1   TW=1   ABORT
     7990   01 02EDE    0C0B0045 A            MODULE
     7991   01 02EDF    0A001D3E              PLM,0    SP
     7992   01 02EE0    100011CC              K        1,0,0,LOC
     7993   01 02EE1    B00011CE              K        11,0,0,LOC+2
     7994   01 02EE2    00000000 A            G        0,0,0
     7995   01 02EE3    00000000 A            G        0,0,0
     7996   01 02EE4    1D4EF000 N            G        DTA1,-16,0        MEM IN
     7997   01 02EE5    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     7998   01 02EE6    00003AC0              DATA     MEMORY            STACK POINTER
     7999   01 02EE7    FFFF8000 A            DATA     X'FFFF8000'         DOUBLEWORD IN
     8000   01 02EE8    00003AC0              DATA     MEMORY            STACK POINTER
     8001   01 02EE9    FFFF8000 A            DATA     X'FFFF8000'         DOUBLEWORD OUT
     8002                            *****************************************************************  PLM
     8003                            *                                   SPACE COUNT OVERFLOW, WORD COUNT
     8004                            *                                   UNDERFLOW, TW=1
     8005                            *                                   ABORT
     8006   01 02EEA    0C0C0046 A            MODULE
     8007   01 02EEB    0A301D3E              PLM,3    SP
     8008   01 02EEC    500011CC              K        5,0,0,LOC
     8009   01 02EED    A00011CE              K        10,0,0,LOC+2
     8010   01 02EEE    1D73FD02 N            G        DTA3,-3,2
     8011   01 02EEF    1D73FD02 N            G        DTA3,-3,2
     8012   01 02EF0    1D5FFB00 N            G        DTA2+1,-5,0
     8013   01 02EF1    1D5FFB00 N            G        DTA2+1,-5,0
     8014   01 02EF2    00003AC0              DATA     MEMORY            STACK POINTER
     8015   01 02EF3    FFFB8004 A            DATA     X'FFFB8004'        DOUBLEWORD IN
     8016   01 02EF4    00003AC0              DATA     MEMORY            STACK POINTER
     8017   01 02EF5    FFFB8004 A            DATA     X'FFFB8004'        DOUBLEWORD OUT
     8018                            *****************************************************************  PLM
     8019                            *                                   WORD COUNT UNDERFLOW, TS=0, TW=0
     8020                            *                                   INDIRECT ADDRESSING AND INDEXING
     8021                            *                                   TRAP
     8022   01 02EF6    0C0D0047 A            MODULE
     8023   01 02EF7    8A5C1D45              PLM,5    *IA32,6
     8024   01 02EF8    C73011CE              K        12,7,3,LOC+2
     8025   01 02EF9    C730101B              K        12,7,3,EXP:TRAP+5
     8026   01 02EFA    1D78FE05 N            G        DTA3+5,-2,5
     8027   01 02EFB    1D78FE05 N            G        DTA3+5,-2,5
     8028   01 02EFC    1D5FF400 N            G        DTA2+1,-12,0
     8029   01 02EFD    1D5FF400 N            G        DTA2+1,-12,0
     8030   01 02EFE    00003AC0              DATA     MEMORY            STACK POINTER
     8031   01 02EFF    000F0000 A            DATA     X'F0000'           DOUBLEWORD IN
     8032   01 02F00    00003AC0              DATA     MEMORY            STACK POINTER
     8033   01 02F01    000F0000 A            DATA     X'F0000'           DOUBLEWORD OUT
     8034                            *****************************************************************  PLM
     8035                            *                                   WORD COUNT UNDERFLOW, TS AND TW=0
     8036                            *                                   TRAP
     8037                            *
     8038   01 02F02    0C0E0048 A            MODULE
     8039   01 02F03    0A801D3E              PLM,8    SP
     8040   01 02F04    973011CE              K        9,7,3,LOC+2
     8041   01 02F05    9730101B              K        9,7,3,EXP:TRAP+5
     8042   01 02F06    1D55FE08 N            G        DTA1+7,-2,8
     8043   01 02F07    1D55FE08 N            G        DTA1+7,-2,8
     8044   01 02F08    1D61F708 N            G        DTA2+3,-9,8
     8045   01 02F09    1D61F708 N            G        DTA2+3,-9,8
     8046   01 02F0A    00003AC0              DATA     MEMORY            STACK POINTER
     8047   01 02F0B    00000008 A            DATA     8                  DOUBLEWORD IN
     8048   01 02F0C    00003AC0              DATA     MEMORY            STACK POINTER
     8049   01 02F0D    00000008 A            DATA     8                  DOUBLEWORD OUT
     8050                            ******************************************************************   PLM
     8051                            *                                   WORD COUNT UNDERFLOW
     8052                            *                                   SPACE COUNT OVERFLOW
     8053                            *                                   TS=0, TW=0    TRAP
     8054   01 02F0E    0C0F0049 A            MODULE
     8055   01 02F0F    0A001D3E              PLM,0    SP
     8056   01 02F10    073011CE              K        0,7,3,LOC+2
     8057   01 02F11    0730101B              K        0,7,3,EXP:TRAP+5
     8058   01 02F12    00000000 A            G        0,0,0
     8059   01 02F13    00000000 A            G        0,0,0
     8060   01 02F14    1D4EF000 N            G        DTA1,-16,0        MEM IN
     8061   01 02F15    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     8062   01 02F16    00003AC0              DATA     MEMORY            STACK POINTER
     8063   01 02F17    7FF0000F A            DATA     X'7FF0000F'         DOUBLEWORD IN
     8064   01 02F18    00003AC0              DATA     MEMORY            STACK POINTER
     8065   01 02F19    7FF0000F A            DATA     X'7FF0000F'         DOUBLEWORD OUT
     8066                            *****************************************************************  PLM
     8067                            *                                   WORD COUNT UNDERFLOW
     8068                            *                                   TS=0, TW=1
     8069                            *                                   ABORT
     8070   01 02F1A    0C10004A A            MODULE
     8071   01 02F1B    0AF01D3E              PLM,15   SP
     8072   01 02F1C    D00011CC              K        13,0,0,LOC
     8073   01 02F1D    200011CE              K        2,0,0,LOC+2
     8074   01 02F1E    1D5FF30F N            G        DTA2+1,-13,15
     8075   01 02F1F    1D5FF30F N            G        DTA2+1,-13,15
     8076   01 02F20    00000000 A            G        0,0,0
     8077   01 02F21    00000000 A            G        0,0,0
     8078   01 02F22    00003AC0              DATA     MEMORY            STACK POINTER
     8079   01 02F23    0002800C A            DATA     X'2800C'           DOUBLEWORD IN
     8080   01 02F24    00003AC0              DATA     MEMORY            STACK POINTER
     8081   01 02F25    0002800C A            DATA     X'2800C'           DOUBLEWORD OUT
     8082                            ******************************************************************   PLM
     8083                            *                                   INDEXED,  INDEX VALUE=1 IN R7
     8084                            *                                   PULL 15 WORDS; START LOADING INTO
     8085                            *                                   REGISTER R8.     TS=0, TW=0
     8086   01 02F26    0C11004B A            MODULE
     8087   01 02F27    0A8E1D3C              PLM,8    SP-2,7
     8088   01 02F28    F00011CC              K        15,0,0,LOC
     8089   01 02F29    100011CE              K        1,0,0,LOC+2
     8090   01 02F2A    1D5EFF07 N            G        DTA2,-1,7
     8091   01 02F2B    1D5EF007 N            G        DTA2,-16,7
     8092   01 02F2C    1D5FF000 N            G        DTA2+1,-16,0      MEM IN
     8093   01 02F2D    1D5FF000 N            G        DTA2+1,-16,0      MEM OUT
     8094   01 02F2E    00003ACE              DATA     MEMORY+14         STACK POINTER
     8095   01 02F2F    0000000F A            DATA     X'0000000F'         DOUBLEWORD IN
     8096   01 02F30    00003ABF              DATA     MEMORY-1          STACK POINTER
     8097   01 02F31    000F0000 A            DATA     X'000F0000'         DOUBLEWORD OUT
     8098                            ******************************************************************   PLM
     8099                            *                                   INDIRECTLY ADDRESSED
     8100                            *                                   WORD COUNT UNDERFLOW
     8101                            *                                   TS=0, TW=0,  TRAP
     8102   01 02F32    0C12004C A            MODULE
     8103   01 02F33    8A001D44              PLM,0    *IASP
     8104   01 02F34    100011CE              K        1,0,0,LOC+2
     8105   01 02F35    1000101B              K        1,0,0,EXP:TRAP+5
     8106   01 02F36    00000000 A            G        0,0,0
     8107   01 02F37    00000000 A            G        0,0,0
     8108   01 02F38    1D4EF000 N            G        DTA1,-16,0        MEM IN
     8109   01 02F39    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     8110   01 02F3A    00003AC1              DATA     MEMORY+1          STACK POINTER
     8111   01 02F3B    00000000 A            DATA     00000000            DOUBLEWORD IN
     8112   01 02F3C    00003AC1              DATA     MEMORY+1          STACK POINTER
     8113   01 02F3D    00000000 A            DATA     00000000            DOUBLEWORD OUT
     8114                            *****************************************************************  PLM
     8115                            *                                   WORD COUNT UNDERFLOW
     8116                            *                                   TS=0, TW=1
     8117                            *                                   ABORT
     8118   01 02F3E    0C13004D A            MODULE
     8119   01 02F3F    8A021D45              PLM,0    *IA32,1
     8120   01 02F40    900011CC              K        9,0,0,LOC
     8121   01 02F41    600011CE              K        6,0,0,LOC+2
     8122   01 02F42    1D78FE00 N            G        DTA3+5,-2,0
     8123   01 02F43    1D78FE00 N            G        DTA3+5,-2,0
     8124   01 02F44    1F45F708 N            G        CVT,-9,8
     8125   01 02F45    1F45F708 N            G        CVT,-9,8
     8126   01 02F46    00003AC0              DATA     MEMORY            STACK POINTER
     8127   01 02F47    00008008 A            DATA     X'8008'            DOUBLEWORD IN
     8128   01 02F48    00003AC0              DATA     MEMORY            STACK POINTER
     8129   01 02F49    00008008 A            DATA     X'8008'            DOUBLEWORD OUT
     8130                            *****************************************************************  PLM
     8131                            *                                   WORD COUNT UNDERFLOW
     8132                            *                                   TS=0, TW=1
     8133                            *                                   ABORT
     8134   01 02F4A    0C14004E A            MODULE
     8135   01 02F4B    0A001D3E              PLM,0    SP
     8136   01 02F4C    800011CC              K        8,0,0,LOC         PSW1
     8137   01 02F4D    700011CE              K        7,0,0,LOC+2       PSW1
     8138   01 02F4E    1D5FF800 N            G        DTA2+1,-8,0
     8139   01 02F4F    1D5FF800 N            G        DTA2+1,-8,0
     8140   01 02F50    1D4FF800 N            G        DTA1+1,-8,0
     8141   01 02F51    1D4FF800 N            G        DTA1+1,-8,0
     8142   01 02F52    00003AC0              DATA     MEMORY            STACK POINTER
     8143   01 02F53    00008000 A            DATA     X'8000'            DOUBLEWORD
     8144   01 02F54    00003AC0              DATA     MEMORY            STACK POINTER
     8145   01 02F55    00008000 A            DATA     X'8000'            DOUBLEWORD
     8146                            *****************************************************************  PLW
     8147                            *                                   INDEX, TRAP, TS AND TW= 0
     8148                            *
     8149                            *
     8150   01 02F56    0C15004F A            MODULE
     8151   01 02F57    0A9FFB1C S            PLM,9    SP-X'2222',7                                        *B
     8152   01 02F58    773011CE              K        7,7,3,LOC+2
     8153   01 02F59    7730101B              K        7,7,3,EXP:TRAP+5
     8154   01 02F5A    1D5FFD07 N            G        DTA2+1,-3,7
     8155   01 02F5B    1D5FFD07 N            G        DTA2+1,-3,7
     8156   01 02F5C    1D5DFF00 N            G        DTA1+15,-1,0
     8157   01 02F5D    1D5DFF00 N            G        DTA1+15,-1,0
     8158   01 02F5E    00003AC0              DATA     MEMORY            STACK POINTER
     8159   01 02F5F    7FFF0007 A            DATA     X'7FFF0007'        DOUBLEWORD IN
     8160   01 02F60    00003AC0              DATA     MEMORY            STACK POINTER
     8161   01 02F61    7FFF0007 A            DATA     X'7FFF0007'        DOUBLEWORD
     8162                            ******************************************************************   PSM
     8163                            *                                   PUSH 1 WORD FROM R8
     8164                            *                                   TS=0, TW=0
     8165                            *                                   STARTS WITH 0 WORD COUNT
     8166   01 02F62    0C010050 A            MODULE   X'0B'
     8167   01 02F63    0B801D3E              PSM,8    SP
     8168   01 02F64    100011CC              K        1,0,0,LOC
     8169   01 02F65    000011CE              K        0,0,0,LOC+2
     8170   01 02F66    1D4EF000 N            G        DTA1,-16,0
     8171   01 02F67    1D4EF000 N            G        DTA1,-16,0
     8172   01 02F68    00000000 A            G        0,0,0             MEM IN
     8173   01 02F69    1D56FF01 N            G        DTA1+8,-1,1       MEM OUT
     8174   01 02F6A    00003AC0              DATA     MEMORY            STACK POINTER
     8175   01 02F6B    01000000 A            DATA     X'01000000'         DOUBLEWORD IN
     8176   01 02F6C    00003AC1              DATA     MEMORY+1          STACK POINTER
     8177   01 02F6D    00FF0001 A            DATA     X'00FF0001'         DOUBLEWORD OUT
     8178                            ******************************************************************   PSM
     8179                            *                                   PUSH 2 WORDS FROM R4,R5
     8180                            *                                   TS=0, TW=1
     8181                            *                                   STARTS WITH MAXIMUM SPACE COUNT
     8182   01 02F6E    0C020051 A            MODULE
     8183   01 02F6F    0B401D3E              PSM,4    SP
     8184   01 02F70    273011CC              K        2,7,3,LOC
     8185   01 02F71    073011CE              K        0,7,3,LOC+2
     8186   01 02F72    1D4EF000 N            G        DTA1,-16,0
     8187   01 02F73    1D4EF000 N            G        DTA1,-16,0
     8188   01 02F74    00000000 A            G        0,0,0             MEM IN
     8189   01 02F75    1D52FE01 N            G        DTA1+4,-2,1       MEM OUT
     8190   01 02F76    00003AC0              DATA     MEMORY            STACK POINTER
     8191   01 02F77    7FFFFFFD A            DATA     X'7FFFFFFD'         DOUBLEWORD IN
     8192   01 02F78    00003AC2              DATA     MEMORY+2          STACK POINTER
     8193   01 02F79    7FFDFFFF A            DATA     X'7FFDFFFF'         DOUBLEWORD OUT
     8194                            ******************************************************************   PSM
     8195                            *                                   PUSH 4 WORDS FROM R2-R5
     8196                            *                                   TS=1, TW=0
     8197                            *
     8198   01 02F7A    0C030052 A            MODULE
     8199   01 02F7B    0B201D3E              PSM,2    SP
     8200   01 02F7C    473011CC              K        4,7,3,LOC
     8201   01 02F7D    073011CE              K        0,7,3,LOC+2
     8202   01 02F7E    1D4EF000 N            G        DTA1,-16,0
     8203   01 02F7F    1D4EF000 N            G        DTA1,-16,0
     8204   01 02F80    00000000 A            G        0,0,0             MEM IN
     8205   01 02F81    1D50FC01 N            G        DTA1+2,-4,1       MEM OUT
     8206   01 02F82    00003AC0              DATA     MEMORY            STACK POINTER
     8207   01 02F83    80050001 A            DATA     X'80050001'         DOUBLEWORD IN
     8208   01 02F84    00003AC4              DATA     MEMORY+4          STACK POINTER
     8209   01 02F85    80010005 A            DATA     X'80010005'         DOUBLEWORD OUT
     8210                            ******************************************************************   PSM
     8211                            *                                   PUSH 8 WORDS FROM R1-R8
     8212                            *                                   TS=1, TW=1
     8213   01 02F86    0C040053 A            MODULE
     8214   01 02F87    0B101D3E              PSM,1    SP
     8215   01 02F88    873011CC              K        8,7,3,LOC
     8216   01 02F89    073011CE              K        0,7,3,LOC+2
     8217   01 02F8A    1D4EF000 N            G        DTA1,-16,0
     8218   01 02F8B    1D4EF000 N            G        DTA1,-16,0
     8219   01 02F8C    00000000 A            G        0,0,0             MEM IN
     8220   01 02F8D    1D4FF801 N            G        DTA1+1,-8,1       MEM OUT
     8221   01 02F8E    00003AC0              DATA     MEMORY            STACK POINTER
     8222   01 02F8F    FFFF8000 A            DATA     X'FFFF8000'         DOUBLEWORD IN
     8223   01 02F90    00003AC8              DATA     MEMORY+8          STACK POINTER
     8224   01 02F91    FFF78008 A            DATA     X'FFF78008'         DOUBLEWORD OUT
     8225                            ******************************************************************   PSM
     8226                            *                                   PUSH 16 WORDS FROM R0-R15
     8227                            *                                   TS=0, TW=0
     8228   01 02F92    0C050054 A            MODULE
     8229   01 02F93    0B001D3E              PSM,0    SP
     8230   01 02F94    000011CC              K        0,0,0,LOC
     8231   01 02F95    400011CE              K        4,0,0,LOC+2
     8232   01 02F96    1D4EF000 N            G        DTA1,-16,0
     8233   01 02F97    1D4EF000 N            G        DTA1,-16,0
     8234   01 02F98    00000000 A            G        0,0,0             MEM IN
     8235   01 02F99    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     8236   01 02F9A    00003ABF              DATA     MEMORY-1          STACK POINTER
     8237   01 02F9B    00100000 A            DATA     X'00100000'         DOUBLEWORD IN
     8238   01 02F9C    00003ACF              DATA     MEMORY+15         STACK POINTER
     8239   01 02F9D    00000010 A            DATA     X'00000010'         DOUBLEWORD OUT
     8240                            ******************************************************************   PSM
     8241                            *                                   PUSH 16 WORDS FROM R0-R15 BEGINNING
     8242                            *                                   WITH R15
     8243                            *                                   TS=1, TW=1
     8244   01 02F9E    0C060055 A            MODULE
     8245   01 02F9F    0BF01D3E              PSM,15   SP
     8246   01 02FA0    000011CC              K        0,0,0,LOC
     8247   01 02FA1    400011CE              K        4,0,0,LOC+2
     8248   01 02FA2    1D4EF00F N            G        DTA1,-16,15
     8249   01 02FA3    1D4EF00F N            G        DTA1,-16,15
     8250   01 02FA4    00000000 A            G        0,0,0             MEM IN
     8251   01 02FA5    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     8252   01 02FA6    00003ABF              DATA     MEMORY-1          STACK POINTER
     8253   01 02FA7    8010FFEF A            DATA     X'8010FFEF'         DOUBLEWORD IN
     8254   01 02FA8    00003ACF              DATA     MEMORY+15         STACK POINTER
     8255   01 02FA9    8000FFFF A            DATA     X'8000FFFF'         DOUBLEWORD OUT
     8256                            ******************************************************************   PSM
     8257                            *                                   PUSH 1 WORD
     8258                            *                                   WORD COUNT OVERFLOW
     8259                            *                                   TS=1, TW=0,   TRAP
     8260   01 02FAA    0C070056 A            MODULE
     8261   01 02FAB    0B101D3E              PSM,1    SP
     8262   01 02FAC    173011CE              K        1,7,3,LOC+2
     8263   01 02FAD    1730101B              K        1,7,3,EXP:TRAP+5
     8264   01 02FAE    1D4EF000 N            G        DTA1,-16,0
     8265   01 02FAF    1D4EF000 N            G        DTA1,-16,0
     8266   01 02FB0    00000000 A            G        0,0,0             MEM IN
     8267   01 02FB1    00000000 A            G        0,0,0             MEM OUT
     8268   01 02FB2    00003AC0              DATA     MEMORY            STACK POINTER
     8269   01 02FB3    80007FFF A            DATA     X'80007FFF'         DOUBLEWORD IN
     8270   01 02FB4    00003AC0              DATA     MEMORY            STACK POINTER
     8271   01 02FB5    80007FFF A            DATA     X'80007FFF'         DOUBLEWORD OUT
     8272                            *****************************************************************  PSM
     8273                            *                                   WORD COUNT OVERFLOW
     8274                            *                                   TS=0, TW=1
     8275                            *
     8276   01 02FB6    0C080057 A            MODULE
     8277   01 02FB7    0B201D3E              PSM,2    SP
     8278   01 02FB8    D00011CC              K        13,0,0,LOC
     8279   01 02FB9    200011CE              K        2,0,0,LOC+2
     8280   01 02FBA    1D60F302 N            G        DTA2+2,-13,2
     8281   01 02FBB    1D60F302 N            G        DTA2+2,-13,2
     8282   01 02FBC    00000000 A            G        0,0,0
     8283   01 02FBD    00000000 A            G        0,0,0
     8284   01 02FBE    00003AC0              DATA     MEMORY            STACK POINTER
     8285   01 02FBF    000EFFF3 A            DATA     X'000EFFF3'        DOUBLE WORD IN
     8286   01 02FC0    00003AC0              DATA     MEMORY            STACK POINTER
     8287   01 02FC1    000EFFF3 A            DATA     X'000EFFF3'        DOUBLE WORD OUT
     8288                            *****************************************************************  PSM
     8289                            *                                   INDIRECT ADDRESSING INDEXING
     8290                            *                                   SPACE COUNT UNDERFLOW, WORD COUNT
     8291                            *                                   OVERFLOW, ABORT
     8292   01 02FC2    0C090058 A            MODULE
     8293   01 02FC3    8B261D45              PSM,2    *IA32,3
     8294   01 02FC4    500011CC              K        5,0,0,LOC
     8295   01 02FC5    A00011CE              K        10,0,0,LOC+2
     8296   01 02FC6    1D78FB02 N            G        DTA3+5,-5,2
     8297   01 02FC7    1D78FB02 N            G        DTA3+5,-5,2
     8298   01 02FC8    1D5EF901 N            G        DTA2,-7,1
     8299   01 02FC9    1D5EF901 N            G        DTA2,-7,1
     8300   01 02FCA    00003AC1              DATA     MEMORY+1          STACK POINTER
     8301   01 02FCB    8004FFFB A            DATA     X'8004FFFB'        DOUBLE WORD IN
     8302   01 02FCC    00003AC1              DATA     MEMORY+1          STACK POINTER
     8303   01 02FCD    8004FFFB A            DATA     X'8004FFFB'        DOUBLE WORD OUT
     8304                            ******************************************************************   PSM
     8305                            *                                   PUSH 3 WORDS
     8306                            *                                   WORD COUNT OVERFLOW
     8307                            *                                   TS=1, TW=1,   ABORT
     8308   01 02FCE    0C0A0059 A            MODULE
     8309   01 02FCF    0B101D3E              PSM,1    SP
     8310   01 02FD0    373011CC              K        3,7,3,LOC
     8311   01 02FD1    E73011CE              K        14,7,3,LOC+2
     8312   01 02FD2    1D4EF000 N            G        DTA1,-16,0
     8313   01 02FD3    1D4EF000 N            G        DTA1,-16,0
     8314   01 02FD4    00000000 A            G        0,0,0             MEM IN
     8315   01 02FD5    00000000 A            G        0,0,0             MEM OUT
     8316   01 02FD6    00003AC0              DATA     MEMORY            STACK POINTER
     8317   01 02FD7    8000FFFF A            DATA     X'8000FFFF'         DOUBLEWORD IN
     8318   01 02FD8    00003AC0              DATA     MEMORY            STACK POINTER
     8319   01 02FD9    8000FFFF A            DATA     X'8000FFFF'         DOUBLEWORD OUT
     8320                            ******************************************************************   PSM
     8321                            *                                   PUSH 1 WORD
     8322                            *                                   SPACE COUNT UNDERFLOW
     8323                            *                                   TS=0, TW=1    TRAP
     8324   01 02FDA    0C0B005A A            MODULE
     8325   01 02FDB    0B201D3E              PSM,2    SP
     8326   01 02FDC    100011CE              K        1,0,0,LOC+2
     8327   01 02FDD    1000101B              K        1,0,0,EXP:TRAP+5
     8328   01 02FDE    1D4EF000 N            G        DTA1,-16,0
     8329   01 02FDF    1D4EF000 N            G        DTA1,-16,0
     8330   01 02FE0    00000000 A            G        0,0,0             MEM IN
     8331   01 02FE1    00000000 A            G        0,0,0             MEM OUT
     8332   01 02FE2    00003AC0              DATA     MEMORY            STACK POINTER
     8333   01 02FE3    0000FFF0 A            DATA     X'0000FFF0'         DOUBLEWORD IN
     8334   01 02FE4    00003AC0              DATA     MEMORY            STACK POINTER
     8335   01 02FE5    0000FFF0 A            DATA     X'0000FFF0'         DOUBLEWORD OUT
     8336                            ******************************************************************   PSM
     8337                            *                                   PUSH 16 WORDS
     8338                            *                                   SPACE COUNT UNDERFLOW
     8339                            *                                   TS=1, TW=1    ABORT
     8340   01 02FE6    0C0C005B A            MODULE
     8341   01 02FE7    0B601D3E              PSM,6    SP
     8342   01 02FE8    000011CC              K        0,0,0,LOC
     8343   01 02FE9    D00011CE              K        13,0,0,LOC+2
     8344   01 02FEA    1D4EF000 N            G        DTA1,-16,0
     8345   01 02FEB    1D4EF000 N            G        DTA1,-16,0
     8346   01 02FEC    00000000 A            G        0,0,0             MEM IN
     8347   01 02FED    00000000 A            G        0,0,0             MEM OUT
     8348   01 02FEE    00003AC0              DATA     MEMORY            STACK POINTER
     8349   01 02FEF    80008000 A            DATA     X'80008000'         DOUBLEWORD IN
     8350   01 02FF0    00003AC0              DATA     MEMORY            STACK POINTER
     8351   01 02FF1    80008000 A            DATA     X'80008000'         DOUBLEWORD OUT
     8352                            ******************************************************************   PSM
     8353                            *                                   WORD COUNT OVERFLOW
     8354                            *                                   SPACE COUNT UNDERFLOW
     8355                            *                                   TS=1, TW=1,   ABORT
     8356   01 02FF2    0C0D005C A            MODULE
     8357   01 02FF3    0B101D3E              PSM,1    SP
     8358   01 02FF4    100011CC              K        1,0,0,LOC
     8359   01 02FF5    E00011CE              K        14,0,0,LOC+2
     8360   01 02FF6    1D4EF000 N            G        DTA1,-16,0
     8361   01 02FF7    1D4EF000 N            G        DTA1,-16,0
     8362   01 02FF8    00000000 A            G        0,0,0             MEM IN
     8363   01 02FF9    00000000 A            G        0,0,0             MEM OUT
     8364   01 02FFA    00003AC0              DATA     MEMORY            STACK POINTER
     8365   01 02FFB    8000FFFF A            DATA     X'8000FFFF'         DOUBLEWORD IN
     8366   01 02FFC    00003AC0              DATA     MEMORY            STACK POINTER
     8367   01 02FFD    8000FFFF A            DATA     X'8000FFFF'         DOUBLEWORD OUT
     8368                            ******************************************************************   PSM
     8369                            *                                   WORD COUNT OVERFLOW
     8370                            *                                   SPACE COUNT UNDERFLOW
     8371                            *                                   TS=0, TW=1,   TRAP
     8372   01 02FFE    0C0E005D A            MODULE
     8373   01 02FFF    0B101D3E              PSM,1    SP
     8374   01 03000    200011CE              K        2,0,0,LOC+2
     8375   01 03001    2000101B              K        2,0,0,EXP:TRAP+5
     8376   01 03002    1D4EF000 N            G        DTA1,-16,0
     8377   01 03003    1D4EF000 N            G        DTA1,-16,0
     8378   01 03004    00000000 A            G        0,0,0             MEM IN
     8379   01 03005    00000000 A            G        0,0,0             MEM OUT
     8380   01 03006    00003AC0              DATA     MEMORY            STACK POINTER
     8381   01 03007    0001FFFE A            DATA     X'0001FFFE'         DOUBLEWORD IN
     8382   01 03008    00003AC0              DATA     MEMORY            STACK POINTER
     8383   01 03009    0001FFFE A            DATA     X'0001FFFE'         DOUBLEWORD OUT
     8384                            *****************************************************************  PSM
     8385                            *                                   SPACE COUNT UNDERFLOW, TS=1, TW=0
     8386                            *                                   ABORT
     8387                            *
     8388   01 0300A    0C0F005E A            MODULE
     8389   01 0300B    0B301D3E              PSM,3    SP
     8390   01 0300C    300011CC              K        3,0,0,LOC
     8391   01 0300D    C00011CE              K        12,0,0,LOC+2
     8392   01 0300E    1D72FD03 N            G        DTA3-1,-3,3
     8393   01 0300F    1D72FD03 N            G        DTA3-1,-3,3
     8394   01 03010    1D6BFD00 N            G        DTA2+13,-3,0
     8395   01 03011    1D6BFD00 N            G        DTA2+13,-3,0
     8396   01 03012    00003AC0              DATA     MEMORY            STACK POINTER
     8397   01 03013    80007FFC A            DATA     X'80007FFC'        DOUBLEWORD
     8398   01 03014    00003AC0              DATA     MEMORY            STACK POINTER
     8399   01 03015    80007FFC A            DATA     X'80007FFC'        DOUBLEWORD
     8400                            ******************************************************************   PSM
     8401                            *                                   WORD COUNT OVERFLOW
     8402                            *                                   SPACE COUNT UNDERFLOW
     8403                            *                                   TS=1, TW=0,   TRAP
     8404   01 03016    0C10005F A            MODULE
     8405   01 03017    0B101D3E              PSM,1    SP
     8406   01 03018    100011CE              K        1,0,0,LOC+2
     8407   01 03019    1000101B              K        1,0,0,EXP:TRAP+5
     8408   01 0301A    1D4EF000 N            G        DTA1,-16,0
     8409   01 0301B    1D4EF000 N            G        DTA1,-16,0
     8410   01 0301C    00000000 A            G        0,0,0             MEM IN
     8411   01 0301D    00000000 A            G        0,0,0             MEM OUT
     8412   01 0301E    00003AC0              DATA     MEMORY            STACK POINTER
     8413   01 0301F    80007FFF A            DATA     X'80007FFF'         DOUBLEWORD IN
     8414   01 03020    00003AC0              DATA     MEMORY            STACK POINTER
     8415   01 03021    80007FFF A            DATA     X'80007FFF'         DOUBLEWORD OUT
     8416                            ******************************************************************   PSM
     8417                            *                                   INDEXED,  INDEX=4 IN R7
     8418                            *                                   TS=0, TW=0
     8419   01 03022    0C110060 A            MODULE
     8420   01 03023    0B8E1D36              PSM,8    SP-8,7
     8421   01 03024    500011CC              K        5,0,0,LOC
     8422   01 03025    000011CE              K        0,0,0,LOC+2
     8423   01 03026    1D67FA07 N            G        DTA2+9,-6,7
     8424   01 03027    1D67FA07 N            G        DTA2+9,-6,7
     8425   01 03028    00000000 A            G        0,0,0             MEM IN
     8426   01 03029    1D68FB01 N            G        DTA2+10,-5,1      MEM OUT
     8427   01 0302A    00003AC0              DATA     MEMORY            STACK POINTER
     8428   01 0302B    00067FFA A            DATA     X'00067FFA'         DOUBLEWORD IN
     8429   01 0302C    00003AC5              DATA     MEMORY+5          STACK POINTER
     8430   01 0302D    00017FFF A            DATA     X'00017FFF'         DOUBLEWORD OUT
     8431                            ******************************************************************   PSM
     8432                            *                                   INDIRECTLY ADDRESSED
     8433                            *                                   TS=0, TW=0
     8434                            *                                   PUSH FROM R15 TO R0
     8435   01 0302E    0C120061 A            MODULE
     8436   01 0302F    8BF01D44              PSM,15   *IASP
     8437   01 03030    200011CC              K        2,0,0,LOC
     8438   01 03031    000011CE              K        0,0,0,LOC+2
     8439   01 03032    1D4EF00F N            G        DTA1,-16,15
     8440   01 03033    1D4EF00F N            G        DTA1,-16,15
     8441   01 03034    00000000 A            G        0,0,0             MEM IN
     8442   01 03035    1D4EFE00 N            G        DTA1,-2,0         MEM OUT
     8443   01 03036    00003ABF              DATA     MEMORY-1          STACK POINTER
     8444   01 03037    00800080 A            DATA     X'00800080'         DOUBLEWORD IN
     8445   01 03038    00003AC1              DATA     MEMORY+1          STACK POINTER
     8446   01 03039    007E0082 A            DATA     X'007E0082'         DOUBLEWORD OUT
     8447                            *****************************************************************  PSM
     8448                            *                                   INDIRECT ADDRESSING AND INDEXING
     8449                            *                                   TS AND TW = 0
     8450   01 0303A    0C130062 A            MODULE
     8451   01 0303B    8B0A1D45              PSM,0    *IA32,5
     8452   01 0303C    B00011CC              K        11,0,0,LOC
     8453   01 0303D    000011CE              K        0,0,0,LOC+2
     8454   01 0303E    1D74F500 N            G        DTA3+1,-11,0
     8455   01 0303F    1D74F500 N            G        DTA3+1,-11,0
     8456   01 03040    00000000 A            G        0,0,0
     8457   01 03041    1D74F500 N            G        DTA3+1,-11,0
     8458   01 03042    00003ABF              DATA     MEMORY-1          STACK POINTER
     8459   01 03043    000C0000 A            DATA     X'C0000'           DOUBLEWORD
     8460   01 03044    00003ACA              DATA     MEMORY+10         STACK POINTER
     8461   01 03045    0001000B A            DATA     X'1000B'           DOUBLEWORD
     8462                            *****************************************************************  PSM
     8463                            *                                   INDIRECT ADDRESSING AND INDEXING
     8464                            *                                   WORD COUNT OVERFLOW, TS AND TW=0
     8465                            *                                   TRAP
     8466   01 03046    0C140063 A            MODULE
     8467   01 03047    8B7C1D45              PSM,7    *IA32,6
     8468   01 03048    773011CE              K        7,7,3,LOC+2
     8469   01 03049    7730101B              K        7,7,3,EXP:TRAP+5
     8470   01 0304A    1D79F906 N            G        DTA3+6,-7,6
     8471   01 0304B    1D79F906 N            G        DTA3+6,-7,6
     8472   01 0304C    1D61F904 N            G        DTA2+3,-7,4
     8473   01 0304D    1D61F904 N            G        DTA2+3,-7,4
     8474   01 0304E    00003AC0              DATA     MEMORY            STACK POINTER
     8475   01 0304F    00067FF9 A            DATA     X'00067FF9'        DOUBLEWORD
     8476   01 03050    00003AC0              DATA     MEMORY            STACK POINTER
     8477   01 03051    00067FF9 A            DATA     X'00067FF9'        DOUBLEWORD
     8478                            *****************************************************************  PSM
     8479                            *                                   SPACE COUNT UNDERFLOW, WORD COUNT
     8480                            *                                   OVERFLOW,  TS AND TW = 0
     8481                            *
     8482   01 03052    0C150064 A            MODULE
     8483   01 03053    0B801D3E              PSM,8    SP
     8484   01 03054    573011CE              K        5,7,3,LOC+2
     8485   01 03055    5730101B              K        5,7,3,EXP:TRAP+5
     8486   01 03056    1D65FB08 N            G        DTA2+7,-5,8
     8487   01 03057    1D65FB08 N            G        DTA2+7,-5,8
     8488   01 03058    00000000 A            G        0,0,0
     8489   01 03059    00000000 A            G        0,0,0
     8490   01 0305A    00003AC0              DATA     MEMORY            STACK POINTER
     8491   01 0305B    00047FFB A            DATA     X'47FFB'           DOUBLEWORD
     8492   01 0305C    00003AC0              DATA     MEMORY            STACK POINTER
     8493   01 0305D    00047FFB A            DATA     X'47FFB'           DOUBLEWORD
     8494                            ******************************************************************   MMC
     8495                            *                                   COUNT = 1 WORD
     8496                            *                                   CONTROL START = 0
     8497   01 0305E    06010065 A            MODULE   X'6F'
     8498   01 0305F    6F420000 A            MMC,4    1
     8499   01 03060    000011CC              K        0,0,0,LOC
     8500   01 03061    000011CE              K        0,0,0,LOC+2
     8501   01 03062    2522FE04 N            G        MMCR1,-2,4
     8502   01 03063    2524FE04 N            G        MMCR1F,-2,4
     8503                            ******************************************************************   MMC
     8504                            *                                   COUNT = 8 WORDS
     8505                            *                                   CONTROL START = 000011
     8506   01 03064    08022066 A            MODULE,2
     8507   01 03065    6F420000 A            MMC,4    1
     8508   01 03066    F73011CC              K        15,7,3,LOC
     8509   01 03067    F73011CE              K        15,7,3,LOC+2
     8510   01 03068    2526FE04 N            G        MMCR2,-2,4
     8511   01 03069    2528FE04 N            G        MMCR2F,-2,4
     8512   01 0306A    1D4EF000 N            G        DTA1,-16,0        MEM IN
     8513   01 0306B    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     8514                            ******************************************************************   MMC
     8515                            *                                   COUNT =1, CONTROL START = 0
     8516                            *                                   SLAVE MODE
     8517   01 0306C    08031067 A            MODULE,1
     8518   01 0306D    6F420000 A            MMC,4    1
     8519   01 0306E    008011CC              K        0,0,8,LOC
     8520   01 0306F    2000101D              K        2,0,0,EXP:TRAP+7
     8521   01 03070    2522FE04 N            G        MMCR1,-2,4
     8522   01 03071    2522FE04 N            G        MMCR1,-2,4
     8523   01 03072    1D4EF000 N            G        DTA1,-16,0        MEM IN
     8524   01 03073    1D4EF000 N            G        DTA1,-16,0        MEM OUT
     8525                            *****************************************************************  MMC
     8526                            *                                   COUNT=1 WORD, CONTROL START=0
     8527                            *                                   ACCESS PROTECT BIT = 1,
     8528   01 03074    06042068 A            MODULE,2
     8529   01 03075    6F840000 A            MMC,8    2
     8530   01 03076    000011CC              K        0,0,0,LOC
     8531   01 03077    000011CE              K        0,0,0,LOC+2
     8532   01 03078    2522FE08 N            G        MMCR1,-2,8
     8533   01 03079    2524FE08 N            G        MMCR1F,-2,8
     8534                            *****************************************************************  MMC
     8535                            *                                   COUNT= 8 WORDS, CONTROL START= 11
     8536                            *                                   ACCESS PROTEST BIT=1
     8537   01 0307A    06052069 A            MODULE,2
     8538   01 0307B    6FC40000 A            MMC,12   2
     8539   01 0307C    000011CC              K        0,0,0,LOC
     8540   01 0307D    000011CE              K        0,0,0,LOC+2
     8541   01 0307E    2526FE0C N            G        MMCR2,-2,12
     8542   01 0307F    2528FE0C N            G        MMCR2F,-2,12
     8543                            *****************************************************************  MMC
     8544                            *                                   COUNT=1 WORDS, CONTROL START=0
     8545                            *                                   MEMORY MAP BIT=1, PSD MM BIT= 0
     8546   01 03080    0606206A A            MODULE,2
     8547   01 03081    6FE80000 A            MMC,14   4
     8548   01 03082    000011CC              K        0,0,0,LOC
     8549   01 03083    000011CE              K        0,0,0,LOC+2
     8550   01 03084    2532FE0E N            G        MMCR5,-2,14
     8551   01 03085    2534FE0E N            G        MMCR5F,-2,14
     8552                            *****************************************************************  MMC
     8553                            *                                   COUNT=64 WORDS, CONTROL START=0
     8554                            *                                   MEMORY MAP BIT=1, PSD MM BIT=0
     8555   01 03086    0607206B A            MODULE,2
     8556   01 03087    6FA80000 A            MMC,10   4
     8557   01 03088    000011CC              K        0,0,0,LOC
     8558   01 03089    000011CE              K        0,0,0,LOC+2
     8559   01 0308A    2536FE0A N            G        MMCR6,-2,10
     8560   01 0308B    2538FE0A N            G        MMCR6F,-2,10
     8561                            ******************************************************************   MMC
     8562                            *                                   COUNT=2 WORDS, CONTROL START=0
     8563   01 0308C    0608006C A            MODULE
     8564   01 0308D    6F420000 A            MMC,4    1
     8565   01 0308E    000011CC              K        0,0,0,LOC
     8566   01 0308F    000011CE              K        0,0,0,LOC+2
     8567   01 03090    252AFE04 N            G        MMCR3,-2,4
     8568   01 03091    252CFE04 N            G        MMCR3F,-2,4
     8569                            ******************************************************************   MMC
     8570                            *                                   COUNT=15 WORDS,CONTROL START=000011
     8571   01 03092    0609006D A            MODULE
     8572   01 03093    6F020000 A            MMC,0    1
     8573   01 03094    F00011CC              K        15,0,0,LOC
     8574   01 03095    F00011CE              K        15,0,0,LOC+2
     8575   01 03096    252EFE00 N            G        MMCR4,-2,0
     8576   01 03097    2530FE00 N            G        MMCR4F,-2,0
     8577                            ******************************************************************   MMC
     8578                            *                                   COUNT = 1 WORD, CONTROL START =0
     8579                            *                                   INDIRECTLY ADDRESSED
     8580   01 03098    060A006E A            MODULE
     8581   01 03099    EF420000 A            DATA     X'EF420000'        :            MMC,4   *1
     8582   01 0309A    000011CC              K        0,0,0,LOC
     8583   01 0309B    000011CE              K        0,0,0,LOC+2
     8584   01 0309C    2522FE04 N            G        MMCR1,-2,4
     8585   01 0309D    2524FE04 N            G        MMCR1F,-2,4
     8586                            **********************************************************
     8587                            *   THE FOLLOWING 'LRA' MODULES DEPEND UPON THE SUCCESSFUL
     8588                            *   EXECUTION OF THESE 3 'MMC' MODULES TO "INITIALIZE" THE
     8589                            *   ACCESS PROTECT, WRITE LOCK AND MAP CONTROL REGISTERS!
     8590         00000004           MAP8     EQU      4
     8591                            *
     8592   01 0309E    080B206F A            MODULE,2
     8593   01 0309F    6F280000 A            MMC,2    MAP8
     8594   01 030A0    773011CC              K        7,7,3,LOC
     8595   01 030A1    773011CE              K        7,7,3,LOC+2
     8596   01 030A2    2536FE02 N            G        MMCR6,-2,2
     8597   01 030A3    2538FE02 N            G        MMCR6F,-2,2
     8598   01 030A4    1F66C000 N            G        TRTB,-64,0
     8599   01 030A5    1F66C000 N            G        TRTB,-64,0
     8600                            *******************************************************
     8601         00000005           MAP9     EQU      5
     8602                            *
     8603   01 030A6    080C2070 A            MODULE,2
     8604   01 030A7    6F4A0000 A            MMC,4    MAP9
     8605   01 030A8    873011CC              K        8,7,3,LOC
     8606   01 030A9    873011CE              K        8,7,3,LOC+2
     8607   01 030AA    253EFE04 N            G        MMCR8,-2,4
     8608   01 030AB    2540FE04 N            G        MMCR8F,-2,4
     8609   01 030AC    1FC9FF00 N            G        MMCI,-1,0                                         *A03
     8610   01 030AD    1FC9FF00 N            G        MMCI,-1,0                                         *A03
     8611                            *******************************************************
     8612         00000001           WL       EQU      1
     8613                            *
     8614   01 030AE    060D0071 A            MODULE
     8615   01 030AF    6F420000 A            MMC,4    WL
     8616   01 030B0    873011CC              K        8,7,3,LOC
     8617   01 030B1    873011CE              K        8,7,3,LOC+2
     8618   01 030B2    253AFE04 N            G        MMCR7,-2,4
     8619   01 030B3    253CFE04 N            G        MMCR7F,-2,4
     8620                            ********************************************************
     8621         00000002           AP       EQU      2
     8622                            *
     8623   01 030B4    060E2072 A            MODULE,2
     8624   01 030B5    6F640000 A            MMC,6    AP
     8625   01 030B6    F73011CC              K        15,7,3,LOC
     8626   01 030B7    F73011CE              K        15,7,3,LOC+2
     8627   01 030B8    253AFE06 N            G        MMCR7,-2,6
     8628   01 030B9    253CFE06 N            G        MMCR7F,-2,6
     8629                            ******************************************************
     8630                            *
     8631                            *
     8632   01 030BA    06013073 A            MODULE,3 X'2C'                                             *A04
     8633   01 030BB    2C001FCA              LRA,0    MMCD              WORD ADDR.                      *A03
     8634   01 030BC    B73011CC              K        11,7,3,LOC
     8635   01 030BD    073011CE              K        0,7,3,LOC+2                                       *A03
     8636   01 030BE    00000000 A            G        0,0,0
     8637   01 030BF    1FCFFF00 N            G        LRAD,-1,0
     8638                            ********************************************************
     8639                            *
     8640                            *
     8641   01 030C0    06023074 A            MODULE,3                                                   *A04
     8642   01 030C1    2C101FCD              LRA,1    MMCD+3            BYTE ADDR                       *A03
     8643   01 030C2    373011CC              K        3,7,3,LOC
     8644   01 030C3    073011CE              K        0,7,3,LOC+2                                       *A03
     8645   01 030C4    1D4EFF01 N            G        DTA1,-1,1
     8646   01 030C5    1FDBFF01 N            G        LRAD+12,-1,1                                      *A03
     8647                            *******************************************************
     8648                            *
     8649                            *
     8650   01 030C6    06033075 A            MODULE,3                                                   *A04
     8651   01 030C7    2C201FCC              LRA,2    MMCD+2            HALF WORD ADDR                  *A03
     8652   01 030C8    773011CC              K        7,7,3,LOC
     8653   01 030C9    073011CE              K        0,7,3,LOC+2                                       *A03
     8654   01 030CA    1D5EFF02 N            G        DTA2,-1,2
     8655   01 030CB    1FD7FF02 N            G        LRAD+8,-1,2                                       *A03
     8656                            *******************************************************
     8657                            *
     8658                            *
     8659   01 030CC    06043076 A            MODULE,3                                                   *A04
     8660   01 030CD    2C301FCB              LRA,3    MMCD+1            DBL WORD ADDR                   *A03
     8661   01 030CE    F73011CC              K        15,7,3,LOC
     8662   01 030CF    073011CE              K        0,7,3,LOC+2                                       *A03
     8663   01 030D0    1D73FF03 N            G        DTA3,-1,3
     8664   01 030D1    1FD3FF03 N            G        LRAD+4,-1,3                                       *A03
     8665                            *******************************************************
     8666                            *
     8667                            *
     8668   01 030D2    06051077 A            MODULE,1
     8669   01 030D3    2C401FCA              LRA,4    MMCD              SLAVE TRAP                      *A03
     8670   01 030D4    F7B011CC              K        15,7,11,LOC
     8671   01 030D5    F730101D              K        15,7,3,EXP:TRAP+7
     8672   01 030D6    1D4EF000 N            G        DTA1,-16,0
     8673   01 030D7    1D4EF000 N            G        DTA1,-16,0
     8674                            ********************************************************
     8675                            *
     8676                            *
     8677   01 030D8    06062078 A            MODULE,2
     8678   01 030D9    2C50000D A            LRA,5    13                                                *A03
     8679   01 030DA    B73011CC              K        11,7,3,LOC
     8680   01 030DB    C73011CE              K        12,7,3,LOC+2                                      *A03
     8681   01 030DC    1D7AFF05 N            G        DTA4,-1,5
     8682   01 030DD    00000000 A            G        0                                                 *A03
     8683                            ********************************************************
     8684                            *
     8685                            *
     8686   01 030DE    06073079 A            MODULE,3                                                   *A04
     8687   01 030DF    AC6010B6              LRA,6    *IAX              INDR.
     8688   01 030E0    B73011CC              K        11,7,3,LOC
     8689   01 030E1    073011CE              K        0,7,3,LOC+2                                       *A03
     8690   01 030E2    1D7EFF06 N            G        DTA5,-1,6
     8691   01 030E3    1FCFFF06 N            G        LRAD,-1,6
     8692                            ******************************************************
     8693                            *
     8694                            *
     8695   01 030E4    0608307A A            MODULE,3                                                   *A04
     8696   01 030E5    2C8E1F8A              LRA,8    MMCD-64,7         INDX                            *A03
     8697   01 030E6    B73011CC              K        11,7,3,LOC
     8698   01 030E7    073011CE              K        0,7,3,LOC+2                                       *A03
     8699   01 030E8    1F5EFE07 N            G        MSK:BTM+2,-2,7
     8700   01 030E9    1FCEFE07 N            G        LRAD-1,-2,7
     8701                            *******************************************************
     8702                            *
     8703                            *
     8704   01 030EA    0609307B A            MODULE,3                                                   *A03
     8705   01 030EB    ACF0000F A            LRA,15   *15               NON-EX MEM.
     8706   01 030EC    877011CC              K        8,7,7,LOC
     8707   01 030ED    C730101F              K        12,7,3,EXP:TRAP+9                                 *A03
     8708   01 030EE    1D86FF0F N            G        DTA6,-1,15
     8709   01 030EF    1D86FF0F N            G        DTA6,-1,15                                        *A03
     8710                            *****************************************************
     8711                            *
     8712                            *
     8713   01 030F0    0601207C A            MODULE,2 X'2C'                                             *A03
     8714   01 030F1    2C001FCA              LRA,0    MMCD              WORD ADDR.                      *A03
     8715   01 030F2    B73011CC              K        11,7,3,LOC                                        *A03
     8716   01 030F3    073011CE              K        0,7,3,LOC+2                                       *A03
     8717   01 030F4    00000000 A            G        0,0,0                                             *A03
     8718   01 030F5    1FCFFF00 N            G        LRAD,-1,0                                         *A03
     8719                            **************************************************                  *A03
     8720                            *                                                                   *A03
     8721                            *                                                                   *A03
     8722   01 030F6    0802307D A            MODULE,3                                                   *A03
     8723   01 030F7    AC41FE00 A            LRA,4    *X'1FE00'                                         *A03
     8724   01 030F8    077011CC              K        0,7,7,LOC                                         *A03
     8725   01 030F9    4730101F              K        4,7,3,EXP:TRAP+9                                  *A03
     8726   01 030FA    00000000 A            G        0                                                 *A03
     8727   01 030FB    00000000 A            G        0                                                 *A03
     8728   01 030FC    1D86FF04 N            G        DTA6,-1,4                                         *A03
     8729   01 030FD    1D86FF04 N            G        DTA6,-1,4                                         *A03
     8730                            **************************************************                  *A03
     8731                            *                                                                   *A03
     8732                            *                                                                   *A03
     8733   01 030FE    0601207E A            MODULE,2 X'2C'                                             *A03
     8734   01 030FF    2C001FCA              LRA,0    MMCD              WORD ADDR.                      *A03
     8735   01 03100    B73011CC              K        11,7,3,LOC                                        *A03
     8736   01 03101    073011CE              K        0,7,3,LOC+2                                       *A03
     8737   01 03102    00000000 A            G        0,0,0                                             *A03
     8738   01 03103    1FCFFF00 N            G        LRAD,-1,0                                         *A03
     8739                            **************************************************                  *A03
     8740                            *                                                                   *A03
     8741                            *                                                                   *A03
     8742   01 03104    0602307F A            MODULE,3                                                   *A04
     8743   01 03105    AC7C10B7              LRA,7    *IAM32,6          WORD ADDR                       *A03
     8744   01 03106    B73011CC              K        11,7,3,LOC
     8745   01 03107    073011CE              K        0,7,3,LOC+2                                       *A03
     8746   01 03108    1F5EFE06 N            G        MSK:BTM+2,-2,6
     8747   01 03109    1FCEFE06 N            G        LRAD-1,-2,6
     8748                            **************************************************                  *A03
     8749                            *                                                                   *A03
     8750                            *                                                                     *A03
     8751   01 0310A    06033080 A            MODULE,3                                                   *A04
     8752   01 0310B    AC7C10B7              LRA,7    *IAM32,6          DBL WORD ADDR                   *A03
     8753   01 0310C    F73011CC              K        15,7,3,LOC                                        *A03
     8754   01 0310D    073011CE              K        0,7,3,LOC+2                                       *A03
     8755   01 0310E    1FD0FE06 N            G        LRAD+1,-2,6                                       *A03
     8756   01 0310F    1FD2FE06 N            G        LRAD+3,-2,6                                       *A03
     8757                            **************************************************                  *A03
     8758                            *                                                                   *A03
     8759                            *                                                                   *A03
     8760   01 03110    06043081 A            MODULE,3                                                   *A04
     8761   01 03111    AC5810B7              LRA,5    *IAM32,4          HALF WORD ADDR                  *A03
     8762   01 03112    773011CC              K        7,7,3,LOC                                         *A03
     8763   01 03113    073011CE              K        0,7,3,LOC+2                                       *A03
     8764   01 03114    1FD4FE04 N            G        LRAD+5,-2,4                                       *A03
     8765   01 03115    1FD6FE04 N            G        LRAD+7,-2,4                                       *A03
     8766                            **************************************************                  *A03
     8767                            *                                                                   *A03
     8768                            *                                                                   *A03
     8769   01 03116    06053082 A            MODULE,3                                                   *A04
     8770   01 03117    AC3410B7              LRA,3    *IAM32,2          BYTE ADDR                       *A03
     8771   01 03118    373011CC              K        3,7,3,LOC                                         *A03
     8772   01 03119    073011CE              K        0,7,3,LOC+2                                       *A03
     8773   01 0311A    1FD8FE02 N            G        LRAD+9,-2,2                                       *A03
     8774   01 0311B    1FDAFE02 N            G        LRAD+11,-2,2                                      *A03
     8775                            *****************************************************************  ANLZ
     8776                            *
     8777                            *
     8778   01 0311C    06012083 A            MODULE,2 X'2C'                                             *A03
     8779   01 0311D    2C001FCA              LRA,0    MMCD              WORD ADDR.                      *A03
     8780   01 0311E    B73011CC              K        11,7,3,LOC                                        *A03
     8781   01 0311F    073011CE              K        0,7,3,LOC+2                                       *A03
     8782   01 03120    00000000 A            G        0,0,0                                             *A03
     8783   01 03121    1FCFFF00 N            G        LRAD,-1,0                                         *A03
     8784                            *****************************************************************   *A03
     8785                            *                                                                   *A03
     8786                            *                                                                   *A03
     8787   01 03122    06022084 A            MODULE,2                                                   *A03
     8788   01 03123    2C101FCD              LRA,1    MMCD+3            BYTE ADDR                       *A03
     8789   01 03124    373011CC              K        3,7,3,LOC                                         *A03
     8790   01 03125    073011CE              K        0,7,3,LOC+2                                       *A03
     8791   01 03126    1D4EFF01 N            G        DTA1,-1,1                                         *A03
     8792   01 03127    1FDBFF01 N            G        LRAD+12,-1,1                                      *A03
     8793                            *****************************************************************   *A03
     8794                            *                                                                   *A03
     8795                            *                                                                   *A03
     8796   01 03128    06032085 A            MODULE,2                                                   *A03
     8797   01 03129    2C201FCC              LRA,2    MMCD+2            HALF WORD ADDR                  *A03
     8798   01 0312A    773011CC              K        7,7,3,LOC                                         *A03
     8799   01 0312B    073011CE              K        0,7,3,LOC+2                                       *A03
     8800   01 0312C    1D5EFF02 N            G        DTA2,-1,2                                         *A03
     8801   01 0312D    1FD7FF02 N            G        LRAD+8,-1,2                                       *A03
     8802                            *****************************************************************   *A03
     8803                            *                                                                   *A03
     8804                            *                                                                   *A03
     8805   01 0312E    06042086 A            MODULE,2                                                   *A03
     8806   01 0312F    2C301FCB              LRA,3    MMCD+1            DBL WORD ADDR                   *A03
     8807   01 03130    F73011CC              K        15,7,3,LOC                                        *A03
     8808   01 03131    073011CE              K        0,7,3,LOC+2                                       *A03
     8809   01 03132    1D73FF03 N            G        DTA3,-1,3                                         *A03
     8810   01 03133    1FD3FF03 N            G        LRAD+4,-1,3                                       *A03
     8811                            *****************************************************************   *A03
     8812                            *                                                                   *A03
     8813                            *                                                                   *A03
     8814   01 03134    06052087 A            MODULE,2                                                   *A03
     8815   01 03135    AC6010B6              LRA,6    *IAX              INDR                            *A03
     8816   01 03136    B73011CC              K        11,7,3,LOC                                        *A03
     8817   01 03137    073011CE              K        0,7,3,LOC+2                                       *A03
     8818   01 03138    1D7EFF06 N            G        DTA5,-1,6                                         *A03
     8819   01 03139    1FCFFF06 N            G        LRAD,-1,6                                         *A03
     8820                            *****************************************************************   *A03
     8821                            *                                                                   *A03
     8822                            *                                                                   *A03
     8823   01 0313A    06062088 A            MODULE,2                                                   *A03
     8824   01 0313B    2C8E1F8A              LRA,8    MMCD-64,7         INDX                            *A03
     8825   01 0313C    B73011CC              K        11,7,3,LOC                                        *A03
     8826   01 0313D    073011CE              K        0,7,3,LOC+2                                       *A03
     8827   01 0313E    1F5EFE07 N            G        MSK:BTM+2,-2,7                                    *A03
     8828   01 0313F    1FCEFE07 N            G        LRAD-1,-2,7                                       *A03
     8829                            *****************************************************************   *A03
     8830                            *                                                                   *A03
     8831                            *                                                                   *A03
     8832   01 03140    06072089 A            MODULE,2                                                   *A03
     8833   01 03141    AC7C10B7              LRA,7    *IAM32,6          WORD ADDR                       *A03
     8834   01 03142    B73011CC              K        11,7,3,LOC                                        *A03
     8835   01 03143    073011CE              K        0,7,3,LOC+2                                       *A03
     8836   01 03144    1F5EFE06 N            G        MSK:BTM+2,-2,6                                    *A03
     8837   01 03145    1FCEFE06 N            G        LRAD-1,-2,6                                       *A03
     8838                            *****************************************************************   *A03
     8839                            *                                                                   *A03
     8840                            *                                                                   *A03
     8841   01 03146    0608208A A            MODULE,2                                                   *A03
     8842   01 03147    AC7C10B7              LRA,7    *IAM32,6          DBL WORD ADDR                   *A03
     8843   01 03148    F73011CC              K        15,7,3,LOC                                        *A03
     8844   01 03149    073011CE              K        0,7,3,LOC+2                                       *A03
     8845   01 0314A    1FD0FE06 N            G        LRAD+1,-2,6                                       *A03
     8846   01 0314B    1FD2FE06 N            G        LRAD+3,-2,6                                       *A03
     8847                            *****************************************************************   *A03
     8848                            *                                                                   *A03
     8849                            *                                                                   *A03
     8850   01 0314C    0609208B A            MODULE,2                                                   *A03
     8851   01 0314D    AC5810B7              LRA,5    *IAM32,4          HALF WORD ADDR                  *A03
     8852   01 0314E    773011CC              K        7,7,3,LOC                                         *A03
     8853   01 0314F    073011CE              K        0,7,3,LOC+2                                       *A03
     8854   01 03150    1FD4FE04 N            G        LRAD+5,-2,4                                       *A03
     8855   01 03151    1FD6FE04 N            G        LRAD+7,-2,4                                       *A03
     8856                            *****************************************************************   *A03
     8857                            *                                                                   *A03
     8858                            *                                                                   *A03
     8859   01 03152    060A208C A            MODULE,2                                                   *A03
     8860   01 03153    AC3410B7              LRA,3    *IAM32,2          BYTE ADDR                       *A03
     8861   01 03154    373011CC              K        3,7,3,LOC                                         *A03
     8862   01 03155    073011CE              K        0,7,3,LOC+2                                       *A03
     8863   01 03156    1FD8FE02 N            G        LRAD+9,-2,2                                       *A03
     8864   01 03157    1FDAFE02 N            G        LRAD+11,-2,2                                      *A03
     8865                            *****************************************************************   *A03
     8866                            *                                                                   *A03
     8867                            *                                                                   *A03
     8868   01 03158    0801A08D A            MODULE,10   X'44'
     8869   01 03159    44C03AC0              ANLZ,R12 MEMORY            MASTER PROTECTED MODE
     8870   01 0315A    677011CC              K        6,7,7,LOC
     8871   01 0315B    977011CE              K        9,7,7,LOC+2
     8872   01 0315C    1FDDFF0C N            G        DTRO2,-1,12
     8873   01 0315D    1FDDFF0C N            G        DTRO2,-1,12
     8874   01 0315E    1FDFFF00 N            G        DTMI2,-1,0
     8875   01 0315F    1FDFFF00 N            G        DTMI2,-1,0
     8876                            *****************************************************************  ANLZ
     8877                            *
     8878                            *
     8879   01 03160    0802A08E A            MODULE,10
     8880   01 03161    C4C1FFFF A            ANLZ,R12 *-1                                               *A03
     8881   01 03162    677011CC              K        6,7,7,LOC
     8882   01 03163    677011CE              K        6,7,7,LOC+2                                       *A03
     8883   01 03164    00000000 A            G        0                                                 *A03
     8884   01 03165    1FE0FF0C N            G        DTRO3,-1,12                                       *A03
     8885   01 03166    1FAFFF00 N            G        IX+1,-1,0                                         *A03
     8886   01 03167    1FAFFF00 N            G        IX+1,-1,0                                         *A03
     8887                            *****************************************************************  ANLZ
     8888                            *
     8889                            *
     8890   01 03168    0803A08F A            MODULE,10
     8891   01 03169    44C1FFFF A            ANLZ,R12 X'1FFFF'          MASTER PROTECTED MODE           *A03
     8892   01 0316A    677011CC              K        6,7,7,LOC
     8893   01 0316B    677011CE              K        6,7,7,LOC+2                                       *A03
     8894   01 0316C    00000000 A            G        0                                                 *A03
     8895   01 0316D    1FDCFF0C N            G        DTRO1,-1,12                                       *A03
     8896   01 0316E    1FDEFF00 N            G        DTMI1,-1,0                                        *A03
     8897   01 0316F    1FDEFF00 N            G        DTMI1,-1,0                                        *A03
     8898                            *****************************************************************  ANLZ
     8899                            *
     8900                            *
     8901   01 03170    0804A090 A            MODULE,10
     8902   01 03171    44C03AC0              ANLZ,R12 MEMORY            MASTER PROTECTED MODE
     8903   01 03172    677011CC              K        6,7,7,LOC
     8904   01 03173    677011CE              K        6,7,7,LOC+2                                       *A03
     8905   01 03174    00000000 A            G        0                                                 *A03
     8906   01 03175    1FE1FF0C N            G        DTRO4,-1,12                                       *A03
     8907   01 03176    1FE2FF00 N            G        DTMI4,-1,0                                        *A03
     8908   01 03177    1FE2FF00 N            G        DTMI4,-1,0                                        *A03
     8909                            *****************************************************************  MBS
     8910                            *                                   CASE 1-- NONZERO R FIELD,RU1=R+1
     8911                            *                                   COUNT=0, WORD BOUNDARIES
     8912   01 03178    06014091 A            MODULE,4 X'61'
     8913   01 03179    61200000 A            MBS,2    0
     8914   01 0317A    000011CC              K        0,0,0,LOC
     8915   01 0317B    000011CE              K        0,0,0,LOC+2
     8916   01 0317C    1FE5FE02 N            G        SR1,-2,2
     8917   01 0317D    1FE5FE02 N            G        SR1,-2,2
     8918                            *****************************************************************  MBS
     8919                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
     8920                            *                                   COUNT=4, WORD BOUNDARIES
     8921   01 0317E    08024092 A            MODULE,4
     8922   01 0317F    61400000 A            MBS,4    0
     8923   01 03180    000011CC              K        0,0,0,LOC
     8924   01 03181    000011CE              K        0,0,0,LOC+2
     8925   01 03182    1FE9FE04 N            G        SR2,-2,4
     8926   01 03183    1FEBFE04 N            G        SRR2,-2,4
     8927   01 03184    00000000 A            G        0,0,0
     8928   01 03185    1D4EFF00 N            G        DTA1,-1,0
     8929                            *****************************************************************  MBS
     8930                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
     8931                            *                                   COUNT=3; BOUNDARIES-- SOURCE=BYTE 1,
     8932                            *                                    DESTINATION=BYTE 3
     8933   01 03186    08034093 A            MODULE,4
     8934   01 03187    61600001 A            MBS,6    1
     8935   01 03188    A00011CC              K        10,0,0,LOC
     8936   01 03189    A00011CE              K        10,0,0,LOC+2
     8937   01 0318A    1FEDFE06 N            G        SR3,-2,6
     8938   01 0318B    1FEFFE06 N            G        SRR3,-2,6
     8939   01 0318C    00000000 A            G        0,0,0
     8940   01 0318D    1D7EFE00 N            G        DTA5,-2,0
     8941                            *****************************************************************  MBS
     8942                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
     8943                            *                                   COUNT=1; BOUNDARIES-- SOURCE=BYTE 2,
     8944                            *                                   DESTINATION=BYTE 1
     8945   01 0318E    08044094 A            MODULE,4
     8946   01 0318F    61800002 A            MBS,8    2
     8947   01 03190    500011CC              K        5,0,0,LOC
     8948   01 03191    500011CE              K        5,0,0,LOC+2
     8949   01 03192    1FF1FE08 N            G        SR4,-2,8
     8950   01 03193    1FF3FE08 N            G        SRR4,-2,8
     8951   01 03194    00000000 A            G        0,0,0
     8952   01 03195    1D80FF00 N            G        DTA5+2,-1,0
     8953                            *****************************************************************  MBS
     8954                            *                                   SOURCE BYTE AND DESTINATION BYTE
     8955                            *                                   OVERLAP,COUNT=3,SOURCE=BYTE 0,DES-
     8956                            *                                   TINATION=BYTE 1
     8957   01 03196    08054095 A            MODULE,4
     8958   01 03197    61C0EB08              MBS,12   BA(MEMORY+2)
     8959   01 03198    000011CC              K        0,0,0,LOC
     8960   01 03199    000011CE              K        0,0,0,LOC+2
     8961   01 0319A    2008FE0C N            G        SR10,-2,12
     8962   01 0319B    200AFE0C N            G        SRR10,-2,12
     8963   01 0319C    1D5EFF02 N            G        DTA2,-1,2
     8964   01 0319D    1D6BFF02 N            G        DTA2+13,-1,2
     8965                            *****************************************************************  MBS
     8966                            *                                   COUNT=MAX, WORD BOUNDARIES
     8967                            *
     8968   01 0319E    08064096 A            MODULE,4
     8969   01 0319F    61A00000 A            MBS,10   0
     8970   01 031A0    000011CC              K        0,0,0,LOC
     8971   01 031A1    000011CE              K        0,0,0,LOC+2
     8972   01 031A2    200CFE0A N            G        SR11,-2,10
     8973   01 031A3    2011FE0A N            G        SRR11A,-2,10
     8974   01 031A4    00000000 A            G        0,0,0
     8975   01 031A5    1D4EC000 N            G        DTA1,-64,0
     8976                            *****************************************************************  MBS
     8977                            *                                   CASE 2--ODD R FIELD, RU1=R,
     8978                            *                                   COUNT=3; BOUNDARIES-- SOURCE=BYTE 0,
     8979                            *                                    DESTINATION=BYTE 0
     8980   01 031A6    08074097 A            MODULE,4
     8981   01 031A7    61DF8A68 A            MBS,13   ((ABSVAL(DTA1+12-MEMORY))*4)   INSTRUCTION
     8982   01 031A8    000011CC              K        0,0,0,LOC
     8983   01 031A9    000011CE              K        0,0,0,LOC+2
     8984   01 031AA    1FFFFF0D N            G        SR7,-1,13
     8985   01 031AB    2000FF0D N            G        SRR7,-1,13
     8986   01 031AC    1F45FF00 N            G        CVT,-1,0
     8987   01 031AD    1D5AFF00 N            G        DTA1+12,-1,0      MEMORY
     8988                            *****************************************************************  MBS
     8989                            *                                   CASE 3--R=ZERO, RU1=1
     8990                            *                                   COUNT=4; BOUNDARIES-- SOURCE=BYTE 0,
     8991                            *                                    DESTINATION=BYTE 0
     8992   01 031AE    08084098 A            MODULE,4
     8993   01 031AF    610075B0              MBS,0    BA(DTA2+14)
     8994   01 031B0    100011CC              K        1,0,0,LOC
     8995   01 031B1    100011CE              K        1,0,0,LOC+2
     8996   01 031B2    2001FF01 N            G        SR8,-1,1
     8997   01 031B3    2003FF01 N            G        SRR8,-1,1
     8998   01 031B4    1D4FFF00 N            G        DTA1+1,-1,0
     8999   01 031B5    1D6CFF00 N            G        DTA2+14,-1,0
     9000                            *****************************************************************  MBS
     9001                            *                                   CASE 3-- R=ZERO, RU1=1
     9002                            *                                   COUNT=4; BOUNDARIES-- SOURCE=BYTE 3,
     9003                            *                                   DESTINATION BYTE 0
     9004   01 031B6    08094099 A            MODULE,4
     9005   01 031B7    61007D97              MBS,0    BA(CVT+32)+3
     9006   01 031B8    C00011CC              K        12,0,0,LOC
     9007   01 031B9    C00011CE              K        12,0,0,LOC+2
     9008   01 031BA    203CFF01 N            G        DT25,-1,1
     9009   01 031BB    203DFF01 N            G        DTT25,-1,1
     9010   01 031BC    00000000 A            G        0,0,0
     9011   01 031BD    1D72FF00 N            G        DTA3-1,-1,0
     9012                            *****************************************************************  MBS
     9013                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
     9014                            *                                   COUNT=2; BOUNDARIES-- SOURCE=BYTE 3
     9015                            *                                    DESTINATION=BYTE 2
     9016   01 031BE    080A409A A            MODULE,4
     9017   01 031BF    61A00000 A            MBS,10   0
     9018   01 031C0    F00011CC              K        15,0,0,LOC
     9019   01 031C1    F00011CE              K        15,0,0,LOC+2
     9020   01 031C2    1FF5FE0A N            G        SR5,-2,10
     9021   01 031C3    1FF7FE0A N            G        SRR5,-2,10
     9022   01 031C4    00000000 A            G        0,0,0
     9023   01 031C5    1D81FF00 N            G        DTA5+3,-1,0
     9024                            *****************************************************************  MBS
     9025                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
     9026                            *                                   COUNT=3; BOUNDARIES-- SOURCE= BYTE 2
     9027                            *                                    DESTINATION=BYTE 0
     9028   01 031C6    080B409B A            MODULE,4
     9029   01 031C7    61C03AF5              GEN,8,4,20 X'61',12,HA(DTA4)+1  MBS,12 HA(DTA4)+1
     9030   01 031C8    000011CC              K        0,0,0,LOC
     9031   01 031C9    000011CE              K        0,0,0,LOC+2
     9032   01 031CA    1FFBFE0C N            G        SR6,-2,12
     9033   01 031CB    1FFDFE0C N            G        SRR6,-2,12
     9034   01 031CC    00000000 A            G        0,0,0
     9035   01 031CD    1D7FFF00 N            G        DTA5+1,-1,0
     9036                            *****************************************************************  MBS
     9037                            *                                   NONEXISTENT INSTRUCTION TRAP-- USE
     9038                            *                                    INDIRECT ADDRESSING. COUNT=3
     9039                            *
     9040   01 031CE    060C109C A            MODULE,1
     9041   01 031CF    E1E00000 A            DATA     X'E1E00000'        :                MBS,14   *0
     9042   01 031D0    000011CC              K        0,0,0,LOC
     9043   01 031D1    80001023              K        8,0,0,EXP:TRAP+13
     9044   01 031D2    1FF1FE0E N            G        SR4,-2,14
     9045   01 031D3    1FF1FE0E N            G        SR4,-2,14
     9046                            *****************************************************************  MBS
     9047                            *                                   SOURCE AND DESTINATION ADDRESS ARE
     9048                            *                                   EQUAL
     9049                            *
     9050   01 031D4    080D409D A            MODULE,4
     9051   01 031D5    61E0EB04              MBS,14   BA(MEMORY+1)
     9052   01 031D6    000011CC              K        0,0,0,LOC
     9053   01 031D7    000011CE              K        0,0,0,LOC+2
     9054   01 031D8    2004FE0E N            G        SR9,-2,14
     9055   01 031D9    2006FE0E N            G        SRR9,-2,14
     9056   01 031DA    1D59FE01 N            G        DTA1+11,-2,1
     9057   01 031DB    1D59FE01 N            G        DTA1+11,-2,1
     9058                            **********************************************************  MBS
     9059                            *
     9060   01 031DC    080E409E A            MODULE,4
     9061   01 031DD    61800000 A            MBS,8    0
     9062   01 031DE    000011CC              K        0,0,0,LOC
     9063   01 031DF    000011CE              K        0,0,0,LOC+2
     9064   01 031E0    24E2FE08 N            G        OVRLAP00,-2,8
     9065   01 031E1    24E4FE08 N            G        OVRLAP00+2,-2,8
     9066   01 031E2    1E6BFD00 N            G        DTASC0,-3,0
     9067   01 031E3    1F08FA00 N            G        RIGHT00,-6,0
     9068                            **********************************************************  MBS
     9069                            *
     9070   01 031E4    080F409F A            MODULE,4
     9071   01 031E5    61800000 A            MBS,8    0
     9072   01 031E6    000011CC              K        0,0,0,LOC
     9073   01 031E7    000011CE              K        0,0,0,LOC+2
     9074   01 031E8    24E6FE08 N            G        OVRLAP01,-2,8
     9075   01 031E9    24E8FE08 N            G        OVRLAP01+2,-2,8
     9076   01 031EA    1E6BFD00 N            G        DTASC0,-3,0
     9077   01 031EB    1F0EFA00 N            G        RIGHT01,-6,0
     9078                            **********************************************************  MBS
     9079                            *
     9080   01 031EC    081040A0 A            MODULE,4
     9081   01 031ED    61800000 A            MBS,8    0
     9082   01 031EE    000011CC              K        0,0,0,LOC
     9083   01 031EF    000011CE              K        0,0,0,LOC+2
     9084   01 031F0    24EAFE08 N            G        OVRLAP03,-2,8
     9085   01 031F1    24ECFE08 N            G        OVRLAP03+2,-2,8
     9086   01 031F2    1E6BFD00 N            G        DTASC0,-3,0
     9087   01 031F3    1F14FA00 N            G        RIGHT03,-6,0
     9088                            **********************************************************  MBS
     9089                            *
     9090   01 031F4    081140A1 A            MODULE,4
     9091   01 031F5    61800000 A            MBS,8    0
     9092   01 031F6    000011CC              K        0,0,0,LOC
     9093   01 031F7    000011CE              K        0,0,0,LOC+2
     9094   01 031F8    24EEFE08 N            G        OVRLAP04,-2,8
     9095   01 031F9    24F0FE08 N            G        OVRLAP04+2,-2,8
     9096   01 031FA    1E6BFD00 N            G        DTASC0,-3,0
     9097   01 031FB    1F1AFB00 N            G        RIGHT04,-5,0
     9098                            **********************************************************  MBS
     9099                            *
     9100   01 031FC    081240A2 A            MODULE,4
     9101   01 031FD    61800000 A            MBS,8    0
     9102   01 031FE    000011CC              K        0,0,0,LOC
     9103   01 031FF    000011CE              K        0,0,0,LOC+2
     9104   01 03200    24F2FE08 N            G        OVRLAP07,-2,8
     9105   01 03201    24F4FE08 N            G        OVRLAP07+2,-2,8
     9106   01 03202    1E6BFD00 N            G        DTASC0,-3,0
     9107   01 03203    1F1FFB00 N            G        RIGHT07,-5,0
     9108                            **********************************************************  MBS
     9109                            *
     9110   01 03204    081340A3 A            MODULE,4
     9111   01 03205    61800000 A            MBS,8    0
     9112   01 03206    000011CC              K        0,0,0,LOC
     9113   01 03207    000011CE              K        0,0,0,LOC+2
     9114   01 03208    24F6FE08 N            G        OVRLAP08,-2,8
     9115   01 03209    24F8FE08 N            G        OVRLAP08+2,-2,8
     9116   01 0320A    1E6BFD00 N            G        DTASC0,-3,0
     9117   01 0320B    1F24FC00 N            G        RIGHT08,-4,0
     9118                            **********************************************************  MBS
     9119                            *
     9120   01 0320C    081440A4 A            MODULE,4
     9121   01 0320D    61800000 A            MBS,8    0
     9122   01 0320E    000011CC              K        0,0,0,LOC
     9123   01 0320F    000011CE              K        0,0,0,LOC+2
     9124   01 03210    24FAFE08 N            G        OVRLAP11,-2,8
     9125   01 03211    24FCFE08 N            G        OVRLAP11+2,-2,8
     9126   01 03212    1E6BFD00 N            G        DTASC0,-3,0
     9127   01 03213    1F28FC00 N            G        RIGHT11,-4,0
     9128                            **********************************************************  MBS
     9129                            *
     9130   01 03214    081540A5 A            MODULE,4
     9131   01 03215    61800000 A            MBS,8    0
     9132   01 03216    000011CC              K        0,0,0,LOC
     9133   01 03217    000011CE              K        0,0,0,LOC+2
     9134   01 03218    24FEFE08 N            G        OVRLAY00,-2,8
     9135   01 03219    2500FE08 N            G        OVRLAY00+2,-2,8
     9136   01 0321A    1F2CFE00 N            G        DTASCX,-2,0
     9137   01 0321B    1F2EFD00 N            G        LEFT00,-3,0
     9138                            **********************************************************  MBS
     9139                            *
     9140   01 0321C    081640A6 A            MODULE,4
     9141   01 0321D    61800000 A            MBS,8    0
     9142   01 0321E    000011CC              K        0,0,0,LOC
     9143   01 0321F    000011CE              K        0,0,0,LOC+2
     9144   01 03220    2502FE08 N            G        OVRLAY01,-2,8
     9145   01 03221    2504FE08 N            G        OVRLAY01+2,-2,8
     9146   01 03222    1F2CFE00 N            G        DTASCX,-2,0
     9147   01 03223    1F31FD00 N            G        LEFT01,-3,0
     9148                            **********************************************************  MBS
     9149                            *
     9150   01 03224    081740A7 A            MODULE,4
     9151   01 03225    61800000 A            MBS,8    0
     9152   01 03226    000011CC              K        0,0,0,LOC
     9153   01 03227    000011CE              K        0,0,0,LOC+2
     9154   01 03228    2506FE08 N            G        OVRLAY03,-2,8
     9155   01 03229    2508FE08 N            G        OVRLAY03+2,-2,8
     9156   01 0322A    1F2CFE00 N            G        DTASCX,-2,0
     9157   01 0322B    1F34FD00 N            G        LEFT03,-3,0
     9158                            **********************************************************  MBS
     9159                            *
     9160   01 0322C    081840A8 A            MODULE,4
     9161   01 0322D    61800000 A            MBS,8    0
     9162   01 0322E    000011CC              K        0,0,0,LOC
     9163   01 0322F    000011CE              K        0,0,0,LOC+2
     9164   01 03230    250AFE08 N            G        OVRLAY04,-2,8
     9165   01 03231    250CFE08 N            G        OVRLAY04+2,-2,8
     9166   01 03232    1F2CFE00 N            G        DTASCX,-2,0
     9167   01 03233    1F37FD00 N            G        LEFT04,-3,0
     9168                            **********************************************************  MBS
     9169                            *
     9170   01 03234    081940A9 A            MODULE,4
     9171   01 03235    61800000 A            MBS,8    0
     9172   01 03236    000011CC              K        0,0,0,LOC
     9173   01 03237    000011CE              K        0,0,0,LOC+2
     9174   01 03238    250EFE08 N            G        OVRLAY07,-2,8
     9175   01 03239    2510FE08 N            G        OVRLAY07+2,-2,8
     9176   01 0323A    1F2CFE00 N            G        DTASCX,-2,0
     9177   01 0323B    1F3AFE00 N            G        LEFT07,-2,0
     9178                            **********************************************************  MBS
     9179                            *
     9180   01 0323C    081A40AA A            MODULE,4
     9181   01 0323D    61800000 A            MBS,8    0
     9182   01 0323E    000011CC              K        0,0,0,LOC
     9183   01 0323F    000011CE              K        0,0,0,LOC+2
     9184   01 03240    2512FE08 N            G        OVRLAY08,-2,8
     9185   01 03241    2514FE08 N            G        OVRLAY08+2,-2,8
     9186   01 03242    1F2CFE00 N            G        DTASCX,-2,0
     9187   01 03243    1F3CFE00 N            G        LEFT08,-2,0
     9188                            **********************************************************  MBS
     9189                            *
     9190   01 03244    081B40AB A            MODULE,4
     9191   01 03245    61800000 A            MBS,8    0
     9192   01 03246    000011CC              K        0,0,0,LOC
     9193   01 03247    000011CE              K        0,0,0,LOC+2
     9194   01 03248    2516FE08 N            G        OVRLAY11,-2,8
     9195   01 03249    2518FE08 N            G        OVRLAY11+2,-2,8
     9196   01 0324A    1F3EFF00 N            G        DTASCY,-1,0
     9197   01 0324B    1F3FFE00 N            G        LEFT11,-2,0
     9198                            **********************************************************  MBS
     9199                            *
     9200   01 0324C    081C40AC A            MODULE,4
     9201   01 0324D    61800000 A            MBS,8    0
     9202   01 0324E    000011CC              K        0,0,0,LOC
     9203   01 0324F    000011CE              K        0,0,0,LOC+2
     9204   01 03250    251AFE08 N            G        OVRLAY12,-2,8
     9205   01 03251    251CFE08 N            G        OVRLAY12+2,-2,8
     9206   01 03252    1F3EFF00 N            G        DTASCY,-1,0
     9207   01 03253    1F41FE00 N            G        LEFT12,-2,0
     9208                            **********************************************************  MBS
     9209                            *
     9210   01 03254    081D40AD A            MODULE,4
     9211   01 03255    61800000 A            MBS,8    0
     9212   01 03256    000011CC              K        0,0,0,LOC
     9213   01 03257    000011CE              K        0,0,0,LOC+2
     9214   01 03258    251EFE08 N            G        OVRLAY13,-2,8
     9215   01 03259    2520FE08 N            G        OVRLAY13+2,-2,8
     9216   01 0325A    1F3EFF00 N            G        DTASCY,-1,0
     9217   01 0325B    1F43FF00 N            G        LEFT13,-1,0
     9218                            *****************************************************************  CBS
     9219                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
     9220                            *                                   COUNT=0, WORD BOUNDARIES, CC=0
     9221                            *                                   SOURCE AND DESTINATION BYTE EQUAL
     9222   01 0325C    080140AE A            MODULE,4 X'60'
     9223   01 0325D    60E00000 A            CBS,14   0
     9224   01 0325E    300011CC              K        3,0,0,LOC
     9225   01 0325F    000011CE              K        0,0,0,LOC+2       PSW OUT
     9226   01 03260    1FE5FE0E N            G        SR1,-2,14
     9227   01 03261    1FE5FE0E N            G        SR1,-2,14
     9228   01 03262    1D4EFF00 N            G        DTA1,-1,0
     9229   01 03263    1D4EFF00 N            G        DTA1,-1,0
     9230                            *****************************************************************  CBS
     9231                            *                                   CASE 2-- ODD R FIELD RU1=R,
     9232                            *                                   COUNT=3, CC =1, SOURCE AND DEST.BYTE
     9233                            *                                    EQUAL
     9234   01 03264    080240AF A            MODULE,4
     9235   01 03265    607F8A68 A            CBS,7    ((ABSVAL(DTA1+12-MEMORY))*4)   INSTRUCTION
     9236   01 03266    000011CC              K        0,0,0,LOC
     9237   01 03267    000011CE              K        0,0,0,LOC+2
     9238   01 03268    1FFFFF07 N            G        SR7,-1,7
     9239   01 03269    2000FF07 N            G        SRR7,-1,7
     9240   01 0326A    1D5AFF00 N            G        DTA1+12,-1,0
     9241   01 0326B    1D5AFF00 N            G        DTA1+12,-1,0
     9242                            *****************************************************************  CBS
     9243                            *                                   CASE 3-- ZERO R FIELD, RU1=1
     9244                            *                                   COUNT=2,CC=0,SOURCE AND DESTINATION
     9245                            *                                    EQUAL
     9246   01 0326C    060340B0 A            MODULE,4
     9247   01 0326D    600075A8              CBS,0    BA(DTA2+12)
     9248   01 0326E    000011CC              K        0,0,0,LOC
     9249   01 0326F    000011CE              K        0,0,0,LOC+2
     9250   01 03270    201BFF01 N            G        SR14,-1,1
     9251   01 03271    201CFF01 N            G        SRR14,-1,1
     9252                            *****************************************************************  CBS
     9253                            *                                   CASE 2-- ODD R FIELD (RU1=R)
     9254                            *                                   COUNT= 255, CC=2, SOURCE > DEST.
     9255   01 03272    080440B1 A            MODULE,4
     9256   01 03273    605F8A38 A            CBS,5    ((ABSVAL(DTA1-MEMORY))*4)   INSTRUCTION
     9257   01 03274    000011CC              K        0,0,0,LOC
     9258   01 03275    200011CE              K        2,0,0,LOC+2
     9259   01 03276    200DFF05 N            G        DT11,-1,5
     9260   01 03277    200EFF05 N            G        DT11A,-1,5
     9261   01 03278    1D4EC300 N            G        DTA1,-61,0
     9262   01 03279    1D4EC300 N            G        DTA1,-61,0
     9263                            *****************************************************************  CBS
     9264                            *                                   CASE 2-- ODD R FIELD (RU1=R)
     9265                            *                                   COUNT=7, CC=1, SOURCE < DESTINATION
     9266                            *                                   OVERLAPED FIELDS
     9267   01 0327A    080540B2 A            MODULE,4
     9268   01 0327B    60900001 A            CBS,9    1
     9269   01 0327C    000011CC              K        0,0,0,LOC
     9270   01 0327D    100011CE              K        1,0,0,LOC+2
     9271   01 0327E    2040FF09 N            G        DT27,-1,9
     9272   01 0327F    2041FF09 N            G        DTT27,-1,9
     9273   01 03280    1D6CFE00 N            G        DTA2+14,-2,0
     9274   01 03281    1D6CFE00 N            G        DTA2+14,-2,0
     9275                            *****************************************************************  CBS
     9276                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
     9277                            *                                   COUNT=0, WORD BOUNDARIES, CC=0
     9278                            *                                   SOURCE AND DESTINATION BYTE EQUAL
     9279   01 03282    080140B3 A            MODULE,4 X'60'
     9280   01 03283    60E00000 A            CBS,14   0
     9281   01 03284    300011CC              K        3,0,0,LOC
     9282   01 03285    000011CE              K        0,0,0,LOC+2       PSW OUT
     9283   01 03286    1FE5FE0E N            G        SR1,-2,14
     9284   01 03287    1FE5FE0E N            G        SR1,-2,14
     9285   01 03288    1D4EFF00 N            G        DTA1,-1,0
     9286   01 03289    1D4EFF00 N            G        DTA1,-1,0
     9287                            *****************************************************************  CBS
     9288                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
     9289                            *                                   COUNT=4, WORD BOUNDARIES, CC=0,
     9290                            *                                   SOURCE AND DESTINATION BYTE EQUAL
     9291   01 0328A    080240B4 A            MODULE,4
     9292   01 0328B    60C00000 A            CBS,12   0
     9293   01 0328C    000011CC              K        0,0,0,LOC
     9294   01 0328D    000011CE              K        0,0,0,LOC+2
     9295   01 0328E    1FE9FE0C N            G        SR2,-2,12
     9296   01 0328F    1FEBFE0C N            G        SRR2,-2,12
     9297   01 03290    1D4EFE00 N            G        DTA1,-2,0
     9298   01 03291    1D4EFE00 N            G        DTA1,-2,0
     9299                            *****************************************************************  CBS
     9300                            *                                   CASE 2-- ODD R FIELD RU1=R,
     9301                            *                                   COUNT=3, CC =1, SOURCE AND DEST.BYTE
     9302                            *                                    EQUAL
     9303   01 03292    080340B5 A            MODULE,4
     9304   01 03293    607F8A68 A            CBS,7    ((ABSVAL(DTA1+12-MEMORY))*4)   INSTRUCTION
     9305   01 03294    000011CC              K        0,0,0,LOC
     9306   01 03295    000011CE              K        0,0,0,LOC+2
     9307   01 03296    1FFFFF07 N            G        SR7,-1,7
     9308   01 03297    2000FF07 N            G        SRR7,-1,7
     9309   01 03298    1D5AFF00 N            G        DTA1+12,-1,0
     9310   01 03299    1D5AFF00 N            G        DTA1+12,-1,0
     9311                            *****************************************************************  CBS
     9312                            *                                   CASE 3-- ZERO R FIELD, RU1=1
     9313                            *                                   COUNT=2,CC=0,SOURCE AND DESTINATION
     9314                            *                                    EQUAL
     9315   01 0329A    060440B6 A            MODULE,4
     9316   01 0329B    600075A8              CBS,0    BA(DTA2+12)
     9317   01 0329C    000011CC              K        0,0,0,LOC
     9318   01 0329D    000011CE              K        0,0,0,LOC+2
     9319   01 0329E    201BFF01 N            G        SR14,-1,1
     9320   01 0329F    201CFF01 N            G        SRR14,-1,1
     9321                            *****************************************************************  CBS
     9322                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
     9323                            *                                   COUNT=6, CC=2,  SOURCE > DEST. BYTE,
     9324                            *                                   BOUNDARIES ON BYTE ONE
     9325   01 032A0    060540B7 A            MODULE,4
     9326   01 032A1    60A00001 A            CBS,10   1
     9327   01 032A2    000011CC              K        0,0,0,LOC
     9328   01 032A3    200011CE              K        2,0,0,LOC+2
     9329   01 032A4    2013FE0A N            G        SR12,-2,10
     9330   01 032A5    2013FE0A N            G        SR12,-2,10
     9331                            *****************************************************************  CBS
     9332                            *                                   CASE 1-- NON ZERO R FIELD, RU1=R+1
     9333                            *                                   COUNT=3, CC=1,  SOURCE < DEST. BYTE,
     9334                            *                                   BOUNDARIES ON BYTE 1
     9335   01 032A6    060640B8 A            MODULE,4
     9336   01 032A7    60800005 A            CBS,8    5
     9337   01 032A8    000011CC              K        0,0,0,LOC
     9338   01 032A9    100011CE              K        1,0,0,LOC+2
     9339   01 032AA    2013FE08 N            G        SR12,-2,8
     9340   01 032AB    2013FE08 N            G        SR12,-2,8
     9341                            *****************************************************************  CBS
     9342                            *                                   CASE 2-- ODD R FIELD (RU1=R)
     9343                            *                                   COUNT= 255, CC=2, SOURCE > DEST.
     9344   01 032AC    080740B9 A            MODULE,4
     9345   01 032AD    605F8A38 A            CBS,5    ((ABSVAL(DTA1-MEMORY))*4)   INSTRUCTION
     9346   01 032AE    000011CC              K        0,0,0,LOC
     9347   01 032AF    200011CE              K        2,0,0,LOC+2
     9348   01 032B0    200DFF05 N            G        DT11,-1,5
     9349   01 032B1    200EFF05 N            G        DT11A,-1,5
     9350   01 032B2    1D4EC300 N            G        DTA1,-61,0
     9351   01 032B3    1D4EC300 N            G        DTA1,-61,0
     9352                            *****************************************************************  CBS
     9353                            *                                   CASE 2-- ODD R FIELD (RU1=R)
     9354                            *                                   COUNT=7, CC=1, SOURCE < DESTINATION
     9355                            *                                   OVERLAPED FIELDS
     9356   01 032B4    080840BA A            MODULE,4
     9357   01 032B5    60900001 A            CBS,9    1
     9358   01 032B6    000011CC              K        0,0,0,LOC
     9359   01 032B7    100011CE              K        1,0,0,LOC+2
     9360   01 032B8    2040FF09 N            G        DT27,-1,9
     9361   01 032B9    2041FF09 N            G        DTT27,-1,9
     9362   01 032BA    1D6CFE00 N            G        DTA2+14,-2,0
     9363   01 032BB    1D6CFE00 N            G        DTA2+14,-2,0
     9364                            *****************************************************************  CBS
     9365                            *                                   CASE 3-- ZERO R FIELD, RU1=1
     9366                            *                                   COUNT=7, CC=2 SOURCE > DEST BYTE.
     9367   01 032BC    080940BB A            MODULE,4
     9368   01 032BD    6000EB03              CBS,0    BA(MEMORY)+3
     9369   01 032BE    300011CC              K        3,0,0,LOC
     9370   01 032BF    200011CE              K        2,0,0,LOC+2
     9371   01 032C0    203EFF01 N            G        DT26,-1,1
     9372   01 032C1    203FFF01 N            G        DTT26,-1,1
     9373   01 032C2    1D67FE00 N            G        DTA2+9,-2,0
     9374   01 032C3    1D67FE00 N            G        DTA2+9,-2,0
     9375                            *****************************************************************  CBS
     9376                            *                                   NONEXISTENT INSTRUCTION TRAP-- USE
     9377                            *                                    INDIRECT ADDRESSING, COUNT=3,CC=0
     9378                            *
     9379   01 032C4    080A10BC A            MODULE,1
     9380   01 032C5    E0A0750C              GEN,12,1,19 X'E0A',0,BA(IA)   INSTRUCTION:   CBS,10  *BA(IA)
     9381   01 032C6    000011CC              K        0,0,0,LOC
     9382   01 032C7    80001023              K        8,0,0,EXP:TRAP+13
     9383   01 032C8    1FF1FE0A N            G        SR4,-2,10
     9384   01 032C9    1FF1FE0A N            G        SR4,-2,10
     9385   01 032CA    1D7BFF00 N            G        DTA4+1,-1,0
     9386   01 032CB    1D7BFF00 N            G        DTA4+1,-1,0
     9387                            *****************************************************************  CBS
     9388                            *
     9389   01 032CC    060B40BD A            MODULE,4
     9390   01 032CD    60800000 A            CBS,8    0
     9391   01 032CE    000011CC              K        0,0,0,LOC
     9392   01 032CF    200011CE              K        2,0,0,LOC+2
     9393   01 032D0    2102FE08 N            G        S0D0C1,-2,8
     9394   01 032D1    2104FE08 N            G        S0D0C1+2,-2,8
     9395                            *****************************************************************  CBS
     9396                            *
     9397   01 032D2    060C40BE A            MODULE,4
     9398   01 032D3    60800000 A            CBS,8    0
     9399   01 032D4    000011CC              K        0,0,0,LOC
     9400   01 032D5    200011CE              K        2,0,0,LOC+2
     9401   01 032D6    2106FE08 N            G        S0D1C1,-2,8
     9402   01 032D7    2108FE08 N            G        S0D1C1+2,-2,8
     9403                            *****************************************************************  CBS
     9404                            *
     9405   01 032D8    060D40BF A            MODULE,4
     9406   01 032D9    60800000 A            CBS,8    0
     9407   01 032DA    000011CC              K        0,0,0,LOC
     9408   01 032DB    200011CE              K        2,0,0,LOC+2
     9409   01 032DC    210AFE08 N            G        S0D2C1,-2,8
     9410   01 032DD    210CFE08 N            G        S0D2C1+2,-2,8
     9411                            *****************************************************************  CBS
     9412                            *
     9413   01 032DE    060E40C0 A            MODULE,4
     9414   01 032DF    60800000 A            CBS,8    0
     9415   01 032E0    000011CC              K        0,0,0,LOC
     9416   01 032E1    200011CE              K        2,0,0,LOC+2
     9417   01 032E2    210EFE08 N            G        S0D3C1,-2,8
     9418   01 032E3    2110FE08 N            G        S0D3C1+2,-2,8
     9419                            *****************************************************************  CBS
     9420                            *
     9421   01 032E4    060F40C1 A            MODULE,4
     9422   01 032E5    60800000 A            CBS,8    0
     9423   01 032E6    000011CC              K        0,0,0,LOC
     9424   01 032E7    200011CE              K        2,0,0,LOC+2
     9425   01 032E8    2112FE08 N            G        S1D0C1,-2,8
     9426   01 032E9    2114FE08 N            G        S1D0C1+2,-2,8
     9427                            *****************************************************************  CBS
     9428                            *
     9429   01 032EA    061040C2 A            MODULE,4
     9430   01 032EB    60800000 A            CBS,8    0
     9431   01 032EC    000011CC              K        0,0,0,LOC
     9432   01 032ED    200011CE              K        2,0,0,LOC+2
     9433   01 032EE    2116FE08 N            G        S1D1C1,-2,8
     9434   01 032EF    2118FE08 N            G        S1D1C1+2,-2,8
     9435                            *****************************************************************  CBS
     9436                            *
     9437   01 032F0    061140C3 A            MODULE,4
     9438   01 032F1    60800000 A            CBS,8    0
     9439   01 032F2    000011CC              K        0,0,0,LOC
     9440   01 032F3    200011CE              K        2,0,0,LOC+2
     9441   01 032F4    211AFE08 N            G        S1D2C1,-2,8
     9442   01 032F5    211CFE08 N            G        S1D2C1+2,-2,8
     9443                            *****************************************************************  CBS
     9444                            *
     9445   01 032F6    061240C4 A            MODULE,4
     9446   01 032F7    60800000 A            CBS,8    0
     9447   01 032F8    000011CC              K        0,0,0,LOC
     9448   01 032F9    200011CE              K        2,0,0,LOC+2
     9449   01 032FA    211EFE08 N            G        S1D3C1,-2,8
     9450   01 032FB    2120FE08 N            G        S1D3C1+2,-2,8
     9451                            *****************************************************************  CBS
     9452                            *
     9453   01 032FC    061340C5 A            MODULE,4
     9454   01 032FD    60800000 A            CBS,8    0
     9455   01 032FE    000011CC              K        0,0,0,LOC
     9456   01 032FF    200011CE              K        2,0,0,LOC+2
     9457   01 03300    2122FE08 N            G        S2D0C1,-2,8
     9458   01 03301    2124FE08 N            G        S2D0C1+2,-2,8
     9459                            *****************************************************************  CBS
     9460                            *
     9461   01 03302    061440C6 A            MODULE,4
     9462   01 03303    60800000 A            CBS,8    0
     9463   01 03304    000011CC              K        0,0,0,LOC
     9464   01 03305    200011CE              K        2,0,0,LOC+2
     9465   01 03306    2126FE08 N            G        S2D1C1,-2,8
     9466   01 03307    2128FE08 N            G        S2D1C1+2,-2,8
     9467                            *****************************************************************  CBS
     9468                            *
     9469   01 03308    061540C7 A            MODULE,4
     9470   01 03309    60800000 A            CBS,8    0
     9471   01 0330A    000011CC              K        0,0,0,LOC
     9472   01 0330B    200011CE              K        2,0,0,LOC+2
     9473   01 0330C    212AFE08 N            G        S2D2C1,-2,8
     9474   01 0330D    212CFE08 N            G        S2D2C1+2,-2,8
     9475                            *****************************************************************  CBS
     9476                            *
     9477   01 0330E    061640C8 A            MODULE,4
     9478   01 0330F    60800000 A            CBS,8    0
     9479   01 03310    000011CC              K        0,0,0,LOC
     9480   01 03311    200011CE              K        2,0,0,LOC+2
     9481   01 03312    212EFE08 N            G        S2D3C1,-2,8
     9482   01 03313    2130FE08 N            G        S2D3C1+2,-2,8
     9483                            *****************************************************************  CBS
     9484                            *
     9485   01 03314    061740C9 A            MODULE,4
     9486   01 03315    60800000 A            CBS,8    0
     9487   01 03316    000011CC              K        0,0,0,LOC
     9488   01 03317    200011CE              K        2,0,0,LOC+2
     9489   01 03318    2132FE08 N            G        S3D0C1,-2,8
     9490   01 03319    2134FE08 N            G        S3D0C1+2,-2,8
     9491                            *****************************************************************  CBS
     9492                            *
     9493   01 0331A    061840CA A            MODULE,4
     9494   01 0331B    60800000 A            CBS,8    0
     9495   01 0331C    000011CC              K        0,0,0,LOC
     9496   01 0331D    200011CE              K        2,0,0,LOC+2
     9497   01 0331E    2136FE08 N            G        S3D1C1,-2,8
     9498   01 0331F    2138FE08 N            G        S3D1C1+2,-2,8
     9499                            *****************************************************************  CBS
     9500                            *
     9501   01 03320    061940CB A            MODULE,4
     9502   01 03321    60800000 A            CBS,8    0
     9503   01 03322    000011CC              K        0,0,0,LOC
     9504   01 03323    200011CE              K        2,0,0,LOC+2
     9505   01 03324    213AFE08 N            G        S3D2C1,-2,8
     9506   01 03325    213CFE08 N            G        S3D2C1+2,-2,8
     9507                            *****************************************************************  CBS
     9508                            *
     9509   01 03326    061A40CC A            MODULE,4
     9510   01 03327    60800000 A            CBS,8    0
     9511   01 03328    000011CC              K        0,0,0,LOC
     9512   01 03329    200011CE              K        2,0,0,LOC+2
     9513   01 0332A    213EFE08 N            G        S3D3C1,-2,8
     9514   01 0332B    2140FE08 N            G        S3D3C1+2,-2,8
     9515                            *****************************************************************  CBS
     9516                            *
     9517   01 0332C    061B40CD A            MODULE,4
     9518   01 0332D    60800000 A            CBS,8    0
     9519   01 0332E    000011CC              K        0,0,0,LOC
     9520   01 0332F    200011CE              K        2,0,0,LOC+2
     9521   01 03330    2142FE08 N            G        S0D0C2,-2,8
     9522   01 03331    2144FE08 N            G        S0D0C2+2,-2,8
     9523                            *****************************************************************  CBS
     9524                            *
     9525   01 03332    061C40CE A            MODULE,4
     9526   01 03333    60800000 A            CBS,8    0
     9527   01 03334    000011CC              K        0,0,0,LOC
     9528   01 03335    200011CE              K        2,0,0,LOC+2
     9529   01 03336    2146FE08 N            G        S0D1C2,-2,8
     9530   01 03337    2148FE08 N            G        S0D1C2+2,-2,8
     9531                            *****************************************************************  CBS
     9532                            *
     9533   01 03338    061D40CF A            MODULE,4
     9534   01 03339    60800000 A            CBS,8    0
     9535   01 0333A    000011CC              K        0,0,0,LOC
     9536   01 0333B    200011CE              K        2,0,0,LOC+2
     9537   01 0333C    214AFE08 N            G        S0D2C2,-2,8
     9538   01 0333D    214CFE08 N            G        S0D2C2+2,-2,8
     9539                            *****************************************************************  CBS
     9540                            *
     9541   01 0333E    061E40D0 A            MODULE,4
     9542   01 0333F    60800000 A            CBS,8    0
     9543   01 03340    000011CC              K        0,0,0,LOC
     9544   01 03341    200011CE              K        2,0,0,LOC+2
     9545   01 03342    214EFE08 N            G        S0D3C2,-2,8
     9546   01 03343    2150FE08 N            G        S0D3C2+2,-2,8
     9547                            *****************************************************************  CBS
     9548                            *
     9549   01 03344    061F40D1 A            MODULE,4
     9550   01 03345    60800000 A            CBS,8    0
     9551   01 03346    000011CC              K        0,0,0,LOC
     9552   01 03347    200011CE              K        2,0,0,LOC+2
     9553   01 03348    2152FE08 N            G        S1D0C2,-2,8
     9554   01 03349    2154FE08 N            G        S1D0C2+2,-2,8
     9555                            *****************************************************************  CBS
     9556                            *
     9557   01 0334A    062040D2 A            MODULE,4
     9558   01 0334B    60800000 A            CBS,8    0
     9559   01 0334C    000011CC              K        0,0,0,LOC
     9560   01 0334D    200011CE              K        2,0,0,LOC+2
     9561   01 0334E    2156FE08 N            G        S1D1C2,-2,8
     9562   01 0334F    2158FE08 N            G        S1D1C2+2,-2,8
     9563                            *****************************************************************  CBS
     9564                            *
     9565   01 03350    062140D3 A            MODULE,4
     9566   01 03351    60800000 A            CBS,8    0
     9567   01 03352    000011CC              K        0,0,0,LOC
     9568   01 03353    200011CE              K        2,0,0,LOC+2
     9569   01 03354    215AFE08 N            G        S1D2C2,-2,8
     9570   01 03355    215CFE08 N            G        S1D2C2+2,-2,8
     9571                            *****************************************************************  CBS
     9572                            *
     9573   01 03356    062240D4 A            MODULE,4
     9574   01 03357    60800000 A            CBS,8    0
     9575   01 03358    000011CC              K        0,0,0,LOC
     9576   01 03359    200011CE              K        2,0,0,LOC+2
     9577   01 0335A    215EFE08 N            G        S1D3C2,-2,8
     9578   01 0335B    2160FE08 N            G        S1D3C2+2,-2,8
     9579                            *****************************************************************  CBS
     9580                            *
     9581   01 0335C    062340D5 A            MODULE,4
     9582   01 0335D    60800000 A            CBS,8    0
     9583   01 0335E    000011CC              K        0,0,0,LOC
     9584   01 0335F    200011CE              K        2,0,0,LOC+2
     9585   01 03360    2162FE08 N            G        S2D0C2,-2,8
     9586   01 03361    2164FE08 N            G        S2D0C2+2,-2,8
     9587                            *****************************************************************  CBS
     9588                            *
     9589   01 03362    062440D6 A            MODULE,4
     9590   01 03363    60800000 A            CBS,8    0
     9591   01 03364    000011CC              K        0,0,0,LOC
     9592   01 03365    200011CE              K        2,0,0,LOC+2
     9593   01 03366    2166FE08 N            G        S2D1C2,-2,8
     9594   01 03367    2168FE08 N            G        S2D1C2+2,-2,8
     9595                            *****************************************************************  CBS
     9596                            *
     9597   01 03368    062540D7 A            MODULE,4
     9598   01 03369    60800000 A            CBS,8    0
     9599   01 0336A    000011CC              K        0,0,0,LOC
     9600   01 0336B    200011CE              K        2,0,0,LOC+2
     9601   01 0336C    216AFE08 N            G        S2D2C2,-2,8
     9602   01 0336D    216CFE08 N            G        S2D2C2+2,-2,8
     9603                            *****************************************************************  CBS
     9604                            *
     9605   01 0336E    062640D8 A            MODULE,4
     9606   01 0336F    60800000 A            CBS,8    0
     9607   01 03370    000011CC              K        0,0,0,LOC
     9608   01 03371    200011CE              K        2,0,0,LOC+2
     9609   01 03372    216EFE08 N            G        S2D3C2,-2,8
     9610   01 03373    2170FE08 N            G        S2D3C2+2,-2,8
     9611                            *****************************************************************  CBS
     9612                            *
     9613   01 03374    062740D9 A            MODULE,4
     9614   01 03375    60800000 A            CBS,8    0
     9615   01 03376    000011CC              K        0,0,0,LOC
     9616   01 03377    200011CE              K        2,0,0,LOC+2
     9617   01 03378    2172FE08 N            G        S3D0C2,-2,8
     9618   01 03379    2174FE08 N            G        S3D0C2+2,-2,8
     9619                            *****************************************************************  CBS
     9620                            *
     9621   01 0337A    062840DA A            MODULE,4
     9622   01 0337B    60800000 A            CBS,8    0
     9623   01 0337C    000011CC              K        0,0,0,LOC
     9624   01 0337D    200011CE              K        2,0,0,LOC+2
     9625   01 0337E    2176FE08 N            G        S3D1C2,-2,8
     9626   01 0337F    2178FE08 N            G        S3D1C2+2,-2,8
     9627                            *****************************************************************  CBS
     9628                            *
     9629   01 03380    062940DB A            MODULE,4
     9630   01 03381    60800000 A            CBS,8    0
     9631   01 03382    000011CC              K        0,0,0,LOC
     9632   01 03383    200011CE              K        2,0,0,LOC+2
     9633   01 03384    217AFE08 N            G        S3D2C2,-2,8
     9634   01 03385    217CFE08 N            G        S3D2C2+2,-2,8
     9635                            *****************************************************************  CBS
     9636                            *
     9637   01 03386    062A40DC A            MODULE,4
     9638   01 03387    60800000 A            CBS,8    0
     9639   01 03388    000011CC              K        0,0,0,LOC
     9640   01 03389    200011CE              K        2,0,0,LOC+2
     9641   01 0338A    217EFE08 N            G        S3D3C2,-2,8
     9642   01 0338B    2180FE08 N            G        S3D3C2+2,-2,8
     9643                            *****************************************************************  CBS
     9644                            *
     9645   01 0338C    062B40DD A            MODULE,4
     9646   01 0338D    60800000 A            CBS,8    0
     9647   01 0338E    000011CC              K        0,0,0,LOC
     9648   01 0338F    200011CE              K        2,0,0,LOC+2
     9649   01 03390    2182FE08 N            G        S0D0C3,-2,8
     9650   01 03391    2184FE08 N            G        S0D0C3+2,-2,8
     9651                            *****************************************************************  CBS
     9652                            *
     9653   01 03392    062C40DE A            MODULE,4
     9654   01 03393    60800000 A            CBS,8    0
     9655   01 03394    000011CC              K        0,0,0,LOC
     9656   01 03395    200011CE              K        2,0,0,LOC+2
     9657   01 03396    2186FE08 N            G        S0D1C3,-2,8
     9658   01 03397    2188FE08 N            G        S0D1C3+2,-2,8
     9659                            *****************************************************************  CBS
     9660                            *
     9661   01 03398    062D40DF A            MODULE,4
     9662   01 03399    60800000 A            CBS,8    0
     9663   01 0339A    000011CC              K        0,0,0,LOC
     9664   01 0339B    200011CE              K        2,0,0,LOC+2
     9665   01 0339C    218AFE08 N            G        S0D2C3,-2,8
     9666   01 0339D    218CFE08 N            G        S0D2C3+2,-2,8
     9667                            *****************************************************************  CBS
     9668                            *
     9669   01 0339E    062E40E0 A            MODULE,4
     9670   01 0339F    60800000 A            CBS,8    0
     9671   01 033A0    000011CC              K        0,0,0,LOC
     9672   01 033A1    200011CE              K        2,0,0,LOC+2
     9673   01 033A2    218EFE08 N            G        S0D3C3,-2,8
     9674   01 033A3    2190FE08 N            G        S0D3C3+2,-2,8
     9675                            *****************************************************************  CBS
     9676                            *
     9677   01 033A4    062F40E1 A            MODULE,4
     9678   01 033A5    60800000 A            CBS,8    0
     9679   01 033A6    000011CC              K        0,0,0,LOC
     9680   01 033A7    200011CE              K        2,0,0,LOC+2
     9681   01 033A8    2192FE08 N            G        S1D0C3,-2,8
     9682   01 033A9    2194FE08 N            G        S1D0C3+2,-2,8
     9683                            *****************************************************************  CBS
     9684                            *
     9685   01 033AA    063040E2 A            MODULE,4
     9686   01 033AB    60800000 A            CBS,8    0
     9687   01 033AC    000011CC              K        0,0,0,LOC
     9688   01 033AD    200011CE              K        2,0,0,LOC+2
     9689   01 033AE    2196FE08 N            G        S1D1C3,-2,8
     9690   01 033AF    2198FE08 N            G        S1D1C3+2,-2,8
     9691                            *****************************************************************  CBS
     9692                            *
     9693   01 033B0    063140E3 A            MODULE,4
     9694   01 033B1    60800000 A            CBS,8    0
     9695   01 033B2    000011CC              K        0,0,0,LOC
     9696   01 033B3    200011CE              K        2,0,0,LOC+2
     9697   01 033B4    219AFE08 N            G        S1D2C3,-2,8
     9698   01 033B5    219CFE08 N            G        S1D2C3+2,-2,8
     9699                            *****************************************************************  CBS
     9700                            *
     9701   01 033B6    063240E4 A            MODULE,4
     9702   01 033B7    60800000 A            CBS,8    0
     9703   01 033B8    000011CC              K        0,0,0,LOC
     9704   01 033B9    200011CE              K        2,0,0,LOC+2
     9705   01 033BA    219EFE08 N            G        S1D3C3,-2,8
     9706   01 033BB    21A0FE08 N            G        S1D3C3+2,-2,8
     9707                            *****************************************************************  CBS
     9708                            *
     9709   01 033BC    063340E5 A            MODULE,4
     9710   01 033BD    60800000 A            CBS,8    0
     9711   01 033BE    000011CC              K        0,0,0,LOC
     9712   01 033BF    200011CE              K        2,0,0,LOC+2
     9713   01 033C0    21A2FE08 N            G        S2D0C3,-2,8
     9714   01 033C1    21A4FE08 N            G        S2D0C3+2,-2,8
     9715                            *****************************************************************  CBS
     9716                            *
     9717   01 033C2    063440E6 A            MODULE,4
     9718   01 033C3    60800000 A            CBS,8    0
     9719   01 033C4    000011CC              K        0,0,0,LOC
     9720   01 033C5    200011CE              K        2,0,0,LOC+2
     9721   01 033C6    21A6FE08 N            G        S2D1C3,-2,8
     9722   01 033C7    21A8FE08 N            G        S2D1C3+2,-2,8
     9723                            *****************************************************************  CBS
     9724                            *
     9725   01 033C8    063540E7 A            MODULE,4
     9726   01 033C9    60800000 A            CBS,8    0
     9727   01 033CA    000011CC              K        0,0,0,LOC
     9728   01 033CB    200011CE              K        2,0,0,LOC+2
     9729   01 033CC    21AAFE08 N            G        S2D2C3,-2,8
     9730   01 033CD    21ACFE08 N            G        S2D2C3+2,-2,8
     9731                            *****************************************************************  CBS
     9732                            *
     9733   01 033CE    063640E8 A            MODULE,4
     9734   01 033CF    60800000 A            CBS,8    0
     9735   01 033D0    000011CC              K        0,0,0,LOC
     9736   01 033D1    200011CE              K        2,0,0,LOC+2
     9737   01 033D2    21AEFE08 N            G        S2D3C3,-2,8
     9738   01 033D3    21B0FE08 N            G        S2D3C3+2,-2,8
     9739                            *****************************************************************  CBS
     9740                            *
     9741   01 033D4    063740E9 A            MODULE,4
     9742   01 033D5    60800000 A            CBS,8    0
     9743   01 033D6    000011CC              K        0,0,0,LOC
     9744   01 033D7    200011CE              K        2,0,0,LOC+2
     9745   01 033D8    21B2FE08 N            G        S3D0C3,-2,8
     9746   01 033D9    21B4FE08 N            G        S3D0C3+2,-2,8
     9747                            *****************************************************************  CBS
     9748                            *
     9749   01 033DA    063840EA A            MODULE,4
     9750   01 033DB    60800000 A            CBS,8    0
     9751   01 033DC    000011CC              K        0,0,0,LOC
     9752   01 033DD    200011CE              K        2,0,0,LOC+2
     9753   01 033DE    21B6FE08 N            G        S3D1C3,-2,8
     9754   01 033DF    21B8FE08 N            G        S3D1C3+2,-2,8
     9755                            *****************************************************************  CBS
     9756                            *
     9757   01 033E0    063940EB A            MODULE,4
     9758   01 033E1    60800000 A            CBS,8    0
     9759   01 033E2    000011CC              K        0,0,0,LOC
     9760   01 033E3    200011CE              K        2,0,0,LOC+2
     9761   01 033E4    21BAFE08 N            G        S3D2C3,-2,8
     9762   01 033E5    21BCFE08 N            G        S3D2C3+2,-2,8
     9763                            *****************************************************************  CBS
     9764                            *
     9765   01 033E6    063A40EC A            MODULE,4
     9766   01 033E7    60800000 A            CBS,8    0
     9767   01 033E8    000011CC              K        0,0,0,LOC
     9768   01 033E9    200011CE              K        2,0,0,LOC+2
     9769   01 033EA    21BEFE08 N            G        S3D3C3,-2,8
     9770   01 033EB    21C0FE08 N            G        S3D3C3+2,-2,8
     9771                            *****************************************************************  CBS
     9772                            *
     9773   01 033EC    063B40ED A            MODULE,4
     9774   01 033ED    60800000 A            CBS,8    0
     9775   01 033EE    000011CC              K        0,0,0,LOC
     9776   01 033EF    200011CE              K        2,0,0,LOC+2
     9777   01 033F0    21C2FE08 N            G        S0D0C4,-2,8
     9778   01 033F1    21C4FE08 N            G        S0D0C4+2,-2,8
     9779                            *****************************************************************  CBS
     9780                            *
     9781   01 033F2    063C40EE A            MODULE,4
     9782   01 033F3    60800000 A            CBS,8    0
     9783   01 033F4    000011CC              K        0,0,0,LOC
     9784   01 033F5    200011CE              K        2,0,0,LOC+2
     9785   01 033F6    21C6FE08 N            G        S0D1C4,-2,8
     9786   01 033F7    21C8FE08 N            G        S0D1C4+2,-2,8
     9787                            *****************************************************************  CBS
     9788                            *
     9789   01 033F8    063D40EF A            MODULE,4
     9790   01 033F9    60800000 A            CBS,8    0
     9791   01 033FA    000011CC              K        0,0,0,LOC
     9792   01 033FB    200011CE              K        2,0,0,LOC+2
     9793   01 033FC    21CAFE08 N            G        S0D2C4,-2,8
     9794   01 033FD    21CCFE08 N            G        S0D2C4+2,-2,8
     9795                            *****************************************************************  CBS
     9796                            *
     9797   01 033FE    063E40F0 A            MODULE,4
     9798   01 033FF    60800000 A            CBS,8    0
     9799   01 03400    000011CC              K        0,0,0,LOC
     9800   01 03401    200011CE              K        2,0,0,LOC+2
     9801   01 03402    21CEFE08 N            G        S0D3C4,-2,8
     9802   01 03403    21D0FE08 N            G        S0D3C4+2,-2,8
     9803                            *****************************************************************  CBS
     9804                            *
     9805   01 03404    063F40F1 A            MODULE,4
     9806   01 03405    60800000 A            CBS,8    0
     9807   01 03406    000011CC              K        0,0,0,LOC
     9808   01 03407    200011CE              K        2,0,0,LOC+2
     9809   01 03408    21D2FE08 N            G        S1D0C4,-2,8
     9810   01 03409    21D4FE08 N            G        S1D0C4+2,-2,8
     9811                            *****************************************************************  CBS
     9812                            *
     9813   01 0340A    064040F2 A            MODULE,4
     9814   01 0340B    60800000 A            CBS,8    0
     9815   01 0340C    000011CC              K        0,0,0,LOC
     9816   01 0340D    200011CE              K        2,0,0,LOC+2
     9817   01 0340E    21D6FE08 N            G        S1D1C4,-2,8
     9818   01 0340F    21D8FE08 N            G        S1D1C4+2,-2,8
     9819                            *****************************************************************  CBS
     9820                            *
     9821   01 03410    064140F3 A            MODULE,4
     9822   01 03411    60800000 A            CBS,8    0
     9823   01 03412    000011CC              K        0,0,0,LOC
     9824   01 03413    200011CE              K        2,0,0,LOC+2
     9825   01 03414    21DAFE08 N            G        S1D2C4,-2,8
     9826   01 03415    21DCFE08 N            G        S1D2C4+2,-2,8
     9827                            *****************************************************************  CBS
     9828                            *
     9829   01 03416    064240F4 A            MODULE,4
     9830   01 03417    60800000 A            CBS,8    0
     9831   01 03418    000011CC              K        0,0,0,LOC
     9832   01 03419    200011CE              K        2,0,0,LOC+2
     9833   01 0341A    21DEFE08 N            G        S1D3C4,-2,8
     9834   01 0341B    21E0FE08 N            G        S1D3C4+2,-2,8
     9835                            *****************************************************************  CBS
     9836                            *
     9837   01 0341C    064340F5 A            MODULE,4
     9838   01 0341D    60800000 A            CBS,8    0
     9839   01 0341E    000011CC              K        0,0,0,LOC
     9840   01 0341F    200011CE              K        2,0,0,LOC+2
     9841   01 03420    21E2FE08 N            G        S2D0C4,-2,8
     9842   01 03421    21E4FE08 N            G        S2D0C4+2,-2,8
     9843                            *****************************************************************  CBS
     9844                            *
     9845   01 03422    064440F6 A            MODULE,4
     9846   01 03423    60800000 A            CBS,8    0
     9847   01 03424    000011CC              K        0,0,0,LOC
     9848   01 03425    200011CE              K        2,0,0,LOC+2
     9849   01 03426    21E6FE08 N            G        S2D1C4,-2,8
     9850   01 03427    21E8FE08 N            G        S2D1C4+2,-2,8
     9851                            *****************************************************************  CBS
     9852                            *
     9853   01 03428    064540F7 A            MODULE,4
     9854   01 03429    60800000 A            CBS,8    0
     9855   01 0342A    000011CC              K        0,0,0,LOC
     9856   01 0342B    200011CE              K        2,0,0,LOC+2
     9857   01 0342C    21EAFE08 N            G        S2D2C4,-2,8
     9858   01 0342D    21ECFE08 N            G        S2D2C4+2,-2,8
     9859                            *****************************************************************  CBS
     9860                            *
     9861   01 0342E    064640F8 A            MODULE,4
     9862   01 0342F    60800000 A            CBS,8    0
     9863   01 03430    000011CC              K        0,0,0,LOC
     9864   01 03431    200011CE              K        2,0,0,LOC+2
     9865   01 03432    21EEFE08 N            G        S2D3C4,-2,8
     9866   01 03433    21F0FE08 N            G        S2D3C4+2,-2,8
     9867                            *****************************************************************  CBS
     9868                            *
     9869   01 03434    064740F9 A            MODULE,4
     9870   01 03435    60800000 A            CBS,8    0
     9871   01 03436    000011CC              K        0,0,0,LOC
     9872   01 03437    200011CE              K        2,0,0,LOC+2
     9873   01 03438    21F2FE08 N            G        S3D0C4,-2,8
     9874   01 03439    21F4FE08 N            G        S3D0C4+2,-2,8
     9875                            *****************************************************************  CBS
     9876                            *
     9877   01 0343A    064840FA A            MODULE,4
     9878   01 0343B    60800000 A            CBS,8    0
     9879   01 0343C    000011CC              K        0,0,0,LOC
     9880   01 0343D    200011CE              K        2,0,0,LOC+2
     9881   01 0343E    21F6FE08 N            G        S3D1C4,-2,8
     9882   01 0343F    21F8FE08 N            G        S3D1C4+2,-2,8
     9883                            *****************************************************************  CBS
     9884                            *
     9885   01 03440    064940FB A            MODULE,4
     9886   01 03441    60800000 A            CBS,8    0
     9887   01 03442    000011CC              K        0,0,0,LOC
     9888   01 03443    200011CE              K        2,0,0,LOC+2
     9889   01 03444    21FAFE08 N            G        S3D2C4,-2,8
     9890   01 03445    21FCFE08 N            G        S3D2C4+2,-2,8
     9891                            *****************************************************************  CBS
     9892                            *
     9893   01 03446    064A40FC A            MODULE,4
     9894   01 03447    60800000 A            CBS,8    0
     9895   01 03448    000011CC              K        0,0,0,LOC
     9896   01 03449    200011CE              K        2,0,0,LOC+2
     9897   01 0344A    21FEFE08 N            G        S3D3C4,-2,8
     9898   01 0344B    2200FE08 N            G        S3D3C4+2,-2,8
     9899                            *****************************************************************  CBS
     9900                            *
     9901   01 0344C    064B40FD A            MODULE,4
     9902   01 0344D    60800000 A            CBS,8    0
     9903   01 0344E    000011CC              K        0,0,0,LOC
     9904   01 0344F    200011CE              K        2,0,0,LOC+2
     9905   01 03450    2202FE08 N            G        S0D0C5,-2,8
     9906   01 03451    2204FE08 N            G        S0D0C5+2,-2,8
     9907                            *****************************************************************  CBS
     9908                            *
     9909   01 03452    064C40FE A            MODULE,4
     9910   01 03453    60800000 A            CBS,8    0
     9911   01 03454    000011CC              K        0,0,0,LOC
     9912   01 03455    200011CE              K        2,0,0,LOC+2
     9913   01 03456    2206FE08 N            G        S0D1C5,-2,8
     9914   01 03457    2208FE08 N            G        S0D1C5+2,-2,8
     9915                            *****************************************************************  CBS
     9916                            *
     9917   01 03458    064D40FF A            MODULE,4
     9918   01 03459    60800000 A            CBS,8    0
     9919   01 0345A    000011CC              K        0,0,0,LOC
     9920   01 0345B    200011CE              K        2,0,0,LOC+2
     9921   01 0345C    220AFE08 N            G        S0D2C5,-2,8
     9922   01 0345D    220CFE08 N            G        S0D2C5+2,-2,8
     9923                            *****************************************************************  CBS
     9924                            *
     9925   01 0345E    064E4100 A            MODULE,4
     9926   01 0345F    60800000 A            CBS,8    0
     9927   01 03460    000011CC              K        0,0,0,LOC
     9928   01 03461    200011CE              K        2,0,0,LOC+2
     9929   01 03462    220EFE08 N            G        S0D3C5,-2,8
     9930   01 03463    2210FE08 N            G        S0D3C5+2,-2,8
     9931                            *****************************************************************  CBS
     9932                            *
     9933   01 03464    064F4101 A            MODULE,4
     9934   01 03465    60800000 A            CBS,8    0
     9935   01 03466    000011CC              K        0,0,0,LOC
     9936   01 03467    200011CE              K        2,0,0,LOC+2
     9937   01 03468    2212FE08 N            G        S1D0C5,-2,8
     9938   01 03469    2214FE08 N            G        S1D0C5+2,-2,8
     9939                            *****************************************************************  CBS
     9940                            *
     9941   01 0346A    06504102 A            MODULE,4
     9942   01 0346B    60800000 A            CBS,8    0
     9943   01 0346C    000011CC              K        0,0,0,LOC
     9944   01 0346D    200011CE              K        2,0,0,LOC+2
     9945   01 0346E    2216FE08 N            G        S1D1C5,-2,8
     9946   01 0346F    2218FE08 N            G        S1D1C5+2,-2,8
     9947                            *****************************************************************  CBS
     9948                            *
     9949   01 03470    06514103 A            MODULE,4
     9950   01 03471    60800000 A            CBS,8    0
     9951   01 03472    000011CC              K        0,0,0,LOC
     9952   01 03473    200011CE              K        2,0,0,LOC+2
     9953   01 03474    221AFE08 N            G        S1D2C5,-2,8
     9954   01 03475    221CFE08 N            G        S1D2C5+2,-2,8
     9955                            *****************************************************************  CBS
     9956                            *
     9957   01 03476    06524104 A            MODULE,4
     9958   01 03477    60800000 A            CBS,8    0
     9959   01 03478    000011CC              K        0,0,0,LOC
     9960   01 03479    200011CE              K        2,0,0,LOC+2
     9961   01 0347A    221EFE08 N            G        S1D3C5,-2,8
     9962   01 0347B    2220FE08 N            G        S1D3C5+2,-2,8
     9963                            *****************************************************************  CBS
     9964                            *
     9965   01 0347C    06534105 A            MODULE,4
     9966   01 0347D    60800000 A            CBS,8    0
     9967   01 0347E    000011CC              K        0,0,0,LOC
     9968   01 0347F    200011CE              K        2,0,0,LOC+2
     9969   01 03480    2222FE08 N            G        S2D0C5,-2,8
     9970   01 03481    2224FE08 N            G        S2D0C5+2,-2,8
     9971                            *****************************************************************  CBS
     9972                            *
     9973   01 03482    06544106 A            MODULE,4
     9974   01 03483    60800000 A            CBS,8    0
     9975   01 03484    000011CC              K        0,0,0,LOC
     9976   01 03485    200011CE              K        2,0,0,LOC+2
     9977   01 03486    2226FE08 N            G        S2D1C5,-2,8
     9978   01 03487    2228FE08 N            G        S2D1C5+2,-2,8
     9979                            *****************************************************************  CBS
     9980                            *
     9981   01 03488    06554107 A            MODULE,4
     9982   01 03489    60800000 A            CBS,8    0
     9983   01 0348A    000011CC              K        0,0,0,LOC
     9984   01 0348B    200011CE              K        2,0,0,LOC+2
     9985   01 0348C    222AFE08 N            G        S2D2C5,-2,8
     9986   01 0348D    222CFE08 N            G        S2D2C5+2,-2,8
     9987                            *****************************************************************  CBS
     9988                            *
     9989   01 0348E    06564108 A            MODULE,4
     9990   01 0348F    60800000 A            CBS,8    0
     9991   01 03490    000011CC              K        0,0,0,LOC
     9992   01 03491    200011CE              K        2,0,0,LOC+2
     9993   01 03492    222EFE08 N            G        S2D3C5,-2,8
     9994   01 03493    2230FE08 N            G        S2D3C5+2,-2,8
     9995                            *****************************************************************  CBS
     9996                            *
     9997   01 03494    06574109 A            MODULE,4
     9998   01 03495    60800000 A            CBS,8    0
     9999   01 03496    000011CC              K        0,0,0,LOC
    10000   01 03497    200011CE              K        2,0,0,LOC+2
    10001   01 03498    2232FE08 N            G        S3D0C5,-2,8
    10002   01 03499    2234FE08 N            G        S3D0C5+2,-2,8
    10003                            *****************************************************************  CBS
    10004                            *
    10005   01 0349A    0658410A A            MODULE,4
    10006   01 0349B    60800000 A            CBS,8    0
    10007   01 0349C    000011CC              K        0,0,0,LOC
    10008   01 0349D    200011CE              K        2,0,0,LOC+2
    10009   01 0349E    2236FE08 N            G        S3D1C5,-2,8
    10010   01 0349F    2238FE08 N            G        S3D1C5+2,-2,8
    10011                            *****************************************************************  CBS
    10012                            *
    10013   01 034A0    0659410B A            MODULE,4
    10014   01 034A1    60800000 A            CBS,8    0
    10015   01 034A2    000011CC              K        0,0,0,LOC
    10016   01 034A3    200011CE              K        2,0,0,LOC+2
    10017   01 034A4    223AFE08 N            G        S3D2C5,-2,8
    10018   01 034A5    223CFE08 N            G        S3D2C5+2,-2,8
    10019                            *****************************************************************  CBS
    10020                            *
    10021   01 034A6    065A410C A            MODULE,4
    10022   01 034A7    60800000 A            CBS,8    0
    10023   01 034A8    000011CC              K        0,0,0,LOC
    10024   01 034A9    200011CE              K        2,0,0,LOC+2
    10025   01 034AA    223EFE08 N            G        S3D3C5,-2,8
    10026   01 034AB    2240FE08 N            G        S3D3C5+2,-2,8
    10027                            *****************************************************************  CBS
    10028                            *
    10029   01 034AC    065B410D A            MODULE,4
    10030   01 034AD    60800000 A            CBS,8    0
    10031   01 034AE    000011CC              K        0,0,0,LOC
    10032   01 034AF    200011CE              K        2,0,0,LOC+2
    10033   01 034B0    2242FE08 N            G        S0D0C6,-2,8
    10034   01 034B1    2244FE08 N            G        S0D0C6+2,-2,8
    10035                            *****************************************************************  CBS
    10036                            *
    10037   01 034B2    065C410E A            MODULE,4
    10038   01 034B3    60800000 A            CBS,8    0
    10039   01 034B4    000011CC              K        0,0,0,LOC
    10040   01 034B5    200011CE              K        2,0,0,LOC+2
    10041   01 034B6    2246FE08 N            G        S0D1C6,-2,8
    10042   01 034B7    2248FE08 N            G        S0D1C6+2,-2,8
    10043                            *****************************************************************  CBS
    10044                            *
    10045   01 034B8    065D410F A            MODULE,4
    10046   01 034B9    60800000 A            CBS,8    0
    10047   01 034BA    000011CC              K        0,0,0,LOC
    10048   01 034BB    200011CE              K        2,0,0,LOC+2
    10049   01 034BC    224AFE08 N            G        S0D2C6,-2,8
    10050   01 034BD    224CFE08 N            G        S0D2C6+2,-2,8
    10051                            *****************************************************************  CBS
    10052                            *
    10053   01 034BE    065E4110 A            MODULE,4
    10054   01 034BF    60800000 A            CBS,8    0
    10055   01 034C0    000011CC              K        0,0,0,LOC
    10056   01 034C1    200011CE              K        2,0,0,LOC+2
    10057   01 034C2    224EFE08 N            G        S0D3C6,-2,8
    10058   01 034C3    2250FE08 N            G        S0D3C6+2,-2,8
    10059                            *****************************************************************  CBS
    10060                            *
    10061   01 034C4    065F4111 A            MODULE,4
    10062   01 034C5    60800000 A            CBS,8    0
    10063   01 034C6    000011CC              K        0,0,0,LOC
    10064   01 034C7    200011CE              K        2,0,0,LOC+2
    10065   01 034C8    2252FE08 N            G        S1D0C6,-2,8
    10066   01 034C9    2254FE08 N            G        S1D0C6+2,-2,8
    10067                            *****************************************************************  CBS
    10068                            *
    10069   01 034CA    06604112 A            MODULE,4
    10070   01 034CB    60800000 A            CBS,8    0
    10071   01 034CC    000011CC              K        0,0,0,LOC
    10072   01 034CD    200011CE              K        2,0,0,LOC+2
    10073   01 034CE    2256FE08 N            G        S1D1C6,-2,8
    10074   01 034CF    2258FE08 N            G        S1D1C6+2,-2,8
    10075                            *****************************************************************  CBS
    10076                            *
    10077   01 034D0    06614113 A            MODULE,4
    10078   01 034D1    60800000 A            CBS,8    0
    10079   01 034D2    000011CC              K        0,0,0,LOC
    10080   01 034D3    200011CE              K        2,0,0,LOC+2
    10081   01 034D4    225AFE08 N            G        S1D2C6,-2,8
    10082   01 034D5    225CFE08 N            G        S1D2C6+2,-2,8
    10083                            *****************************************************************  CBS
    10084                            *
    10085   01 034D6    06624114 A            MODULE,4
    10086   01 034D7    60800000 A            CBS,8    0
    10087   01 034D8    000011CC              K        0,0,0,LOC
    10088   01 034D9    200011CE              K        2,0,0,LOC+2
    10089   01 034DA    225EFE08 N            G        S1D3C6,-2,8
    10090   01 034DB    2260FE08 N            G        S1D3C6+2,-2,8
    10091                            *****************************************************************  CBS
    10092                            *
    10093   01 034DC    06634115 A            MODULE,4
    10094   01 034DD    60800000 A            CBS,8    0
    10095   01 034DE    000011CC              K        0,0,0,LOC
    10096   01 034DF    200011CE              K        2,0,0,LOC+2
    10097   01 034E0    2262FE08 N            G        S2D0C6,-2,8
    10098   01 034E1    2264FE08 N            G        S2D0C6+2,-2,8
    10099                            *****************************************************************  CBS
    10100                            *
    10101   01 034E2    06644116 A            MODULE,4
    10102   01 034E3    60800000 A            CBS,8    0
    10103   01 034E4    000011CC              K        0,0,0,LOC
    10104   01 034E5    200011CE              K        2,0,0,LOC+2
    10105   01 034E6    2266FE08 N            G        S2D1C6,-2,8
    10106   01 034E7    2268FE08 N            G        S2D1C6+2,-2,8
    10107                            *****************************************************************  CBS
    10108                            *
    10109   01 034E8    06654117 A            MODULE,4
    10110   01 034E9    60800000 A            CBS,8    0
    10111   01 034EA    000011CC              K        0,0,0,LOC
    10112   01 034EB    200011CE              K        2,0,0,LOC+2
    10113   01 034EC    226AFE08 N            G        S2D2C6,-2,8
    10114   01 034ED    226CFE08 N            G        S2D2C6+2,-2,8
    10115                            *****************************************************************  CBS
    10116                            *
    10117   01 034EE    06664118 A            MODULE,4
    10118   01 034EF    60800000 A            CBS,8    0
    10119   01 034F0    000011CC              K        0,0,0,LOC
    10120   01 034F1    200011CE              K        2,0,0,LOC+2
    10121   01 034F2    226EFE08 N            G        S2D3C6,-2,8
    10122   01 034F3    2270FE08 N            G        S2D3C6+2,-2,8
    10123                            *****************************************************************  CBS
    10124                            *
    10125   01 034F4    06674119 A            MODULE,4
    10126   01 034F5    60800000 A            CBS,8    0
    10127   01 034F6    000011CC              K        0,0,0,LOC
    10128   01 034F7    200011CE              K        2,0,0,LOC+2
    10129   01 034F8    2272FE08 N            G        S3D0C6,-2,8
    10130   01 034F9    2274FE08 N            G        S3D0C6+2,-2,8
    10131                            *****************************************************************  CBS
    10132                            *
    10133   01 034FA    0668411A A            MODULE,4
    10134   01 034FB    60800000 A            CBS,8    0
    10135   01 034FC    000011CC              K        0,0,0,LOC
    10136   01 034FD    200011CE              K        2,0,0,LOC+2
    10137   01 034FE    2276FE08 N            G        S3D1C6,-2,8
    10138   01 034FF    2278FE08 N            G        S3D1C6+2,-2,8
    10139                            *****************************************************************  CBS
    10140                            *
    10141   01 03500    0669411B A            MODULE,4
    10142   01 03501    60800000 A            CBS,8    0
    10143   01 03502    000011CC              K        0,0,0,LOC
    10144   01 03503    200011CE              K        2,0,0,LOC+2
    10145   01 03504    227AFE08 N            G        S3D2C6,-2,8
    10146   01 03505    227CFE08 N            G        S3D2C6+2,-2,8
    10147                            *****************************************************************  CBS
    10148                            *
    10149   01 03506    066A411C A            MODULE,4
    10150   01 03507    60800000 A            CBS,8    0
    10151   01 03508    000011CC              K        0,0,0,LOC
    10152   01 03509    200011CE              K        2,0,0,LOC+2
    10153   01 0350A    227EFE08 N            G        S3D3C6,-2,8
    10154   01 0350B    2280FE08 N            G        S3D3C6+2,-2,8
    10155                            *****************************************************************  CBS
    10156                            *
    10157   01 0350C    066B411D A            MODULE,4
    10158   01 0350D    60800000 A            CBS,8    0
    10159   01 0350E    000011CC              K        0,0,0,LOC
    10160   01 0350F    200011CE              K        2,0,0,LOC+2
    10161   01 03510    2282FE08 N            G        S0D0C7,-2,8
    10162   01 03511    2284FE08 N            G        S0D0C7+2,-2,8
    10163                            *****************************************************************  CBS
    10164                            *
    10165   01 03512    066C411E A            MODULE,4
    10166   01 03513    60800000 A            CBS,8    0
    10167   01 03514    000011CC              K        0,0,0,LOC
    10168   01 03515    200011CE              K        2,0,0,LOC+2
    10169   01 03516    2286FE08 N            G        S0D1C7,-2,8
    10170   01 03517    2288FE08 N            G        S0D1C7+2,-2,8
    10171                            *****************************************************************  CBS
    10172                            *
    10173   01 03518    066D411F A            MODULE,4
    10174   01 03519    60800000 A            CBS,8    0
    10175   01 0351A    000011CC              K        0,0,0,LOC
    10176   01 0351B    200011CE              K        2,0,0,LOC+2
    10177   01 0351C    228AFE08 N            G        S0D2C7,-2,8
    10178   01 0351D    228CFE08 N            G        S0D2C7+2,-2,8
    10179                            *****************************************************************  CBS
    10180                            *
    10181   01 0351E    066E4120 A            MODULE,4
    10182   01 0351F    60800000 A            CBS,8    0
    10183   01 03520    000011CC              K        0,0,0,LOC
    10184   01 03521    200011CE              K        2,0,0,LOC+2
    10185   01 03522    228EFE08 N            G        S0D3C7,-2,8
    10186   01 03523    2290FE08 N            G        S0D3C7+2,-2,8
    10187                            *****************************************************************  CBS
    10188                            *
    10189   01 03524    066F4121 A            MODULE,4
    10190   01 03525    60800000 A            CBS,8    0
    10191   01 03526    000011CC              K        0,0,0,LOC
    10192   01 03527    200011CE              K        2,0,0,LOC+2
    10193   01 03528    2292FE08 N            G        S1D0C7,-2,8
    10194   01 03529    2294FE08 N            G        S1D0C7+2,-2,8
    10195                            *****************************************************************  CBS
    10196                            *
    10197   01 0352A    06704122 A            MODULE,4
    10198   01 0352B    60800000 A            CBS,8    0
    10199   01 0352C    000011CC              K        0,0,0,LOC
    10200   01 0352D    200011CE              K        2,0,0,LOC+2
    10201   01 0352E    2296FE08 N            G        S1D1C7,-2,8
    10202   01 0352F    2298FE08 N            G        S1D1C7+2,-2,8
    10203                            *****************************************************************  CBS
    10204                            *
    10205   01 03530    06714123 A            MODULE,4
    10206   01 03531    60800000 A            CBS,8    0
    10207   01 03532    000011CC              K        0,0,0,LOC
    10208   01 03533    200011CE              K        2,0,0,LOC+2
    10209   01 03534    229AFE08 N            G        S1D2C7,-2,8
    10210   01 03535    229CFE08 N            G        S1D2C7+2,-2,8
    10211                            *****************************************************************  CBS
    10212                            *
    10213   01 03536    06724124 A            MODULE,4
    10214   01 03537    60800000 A            CBS,8    0
    10215   01 03538    000011CC              K        0,0,0,LOC
    10216   01 03539    200011CE              K        2,0,0,LOC+2
    10217   01 0353A    229EFE08 N            G        S1D3C7,-2,8
    10218   01 0353B    22A0FE08 N            G        S1D3C7+2,-2,8
    10219                            *****************************************************************  CBS
    10220                            *
    10221   01 0353C    06734125 A            MODULE,4
    10222   01 0353D    60800000 A            CBS,8    0
    10223   01 0353E    000011CC              K        0,0,0,LOC
    10224   01 0353F    200011CE              K        2,0,0,LOC+2
    10225   01 03540    22A2FE08 N            G        S2D0C7,-2,8
    10226   01 03541    22A4FE08 N            G        S2D0C7+2,-2,8
    10227                            *****************************************************************  CBS
    10228                            *
    10229   01 03542    06744126 A            MODULE,4
    10230   01 03543    60800000 A            CBS,8    0
    10231   01 03544    000011CC              K        0,0,0,LOC
    10232   01 03545    200011CE              K        2,0,0,LOC+2
    10233   01 03546    22A6FE08 N            G        S2D1C7,-2,8
    10234   01 03547    22A8FE08 N            G        S2D1C7+2,-2,8
    10235                            *****************************************************************  CBS
    10236                            *
    10237   01 03548    06754127 A            MODULE,4
    10238   01 03549    60800000 A            CBS,8    0
    10239   01 0354A    000011CC              K        0,0,0,LOC
    10240   01 0354B    200011CE              K        2,0,0,LOC+2
    10241   01 0354C    22AAFE08 N            G        S2D2C7,-2,8
    10242   01 0354D    22ACFE08 N            G        S2D2C7+2,-2,8
    10243                            *****************************************************************  CBS
    10244                            *
    10245   01 0354E    06764128 A            MODULE,4
    10246   01 0354F    60800000 A            CBS,8    0
    10247   01 03550    000011CC              K        0,0,0,LOC
    10248   01 03551    200011CE              K        2,0,0,LOC+2
    10249   01 03552    22AEFE08 N            G        S2D3C7,-2,8
    10250   01 03553    22B0FE08 N            G        S2D3C7+2,-2,8
    10251                            *****************************************************************  CBS
    10252                            *
    10253   01 03554    06774129 A            MODULE,4
    10254   01 03555    60800000 A            CBS,8    0
    10255   01 03556    000011CC              K        0,0,0,LOC
    10256   01 03557    200011CE              K        2,0,0,LOC+2
    10257   01 03558    22B2FE08 N            G        S3D0C7,-2,8
    10258   01 03559    22B4FE08 N            G        S3D0C7+2,-2,8
    10259                            *****************************************************************  CBS
    10260                            *
    10261   01 0355A    0678412A A            MODULE,4
    10262   01 0355B    60800000 A            CBS,8    0
    10263   01 0355C    000011CC              K        0,0,0,LOC
    10264   01 0355D    200011CE              K        2,0,0,LOC+2
    10265   01 0355E    22B6FE08 N            G        S3D1C7,-2,8
    10266   01 0355F    22B8FE08 N            G        S3D1C7+2,-2,8
    10267                            *****************************************************************  CBS
    10268                            *
    10269   01 03560    0679412B A            MODULE,4
    10270   01 03561    60800000 A            CBS,8    0
    10271   01 03562    000011CC              K        0,0,0,LOC
    10272   01 03563    200011CE              K        2,0,0,LOC+2
    10273   01 03564    22BAFE08 N            G        S3D2C7,-2,8
    10274   01 03565    22BCFE08 N            G        S3D2C7+2,-2,8
    10275                            *****************************************************************  CBS
    10276                            *
    10277   01 03566    067A412C A            MODULE,4
    10278   01 03567    60800000 A            CBS,8    0
    10279   01 03568    000011CC              K        0,0,0,LOC
    10280   01 03569    200011CE              K        2,0,0,LOC+2
    10281   01 0356A    22BEFE08 N            G        S3D3C7,-2,8
    10282   01 0356B    22C0FE08 N            G        S3D3C7+2,-2,8
    10283                            *****************************************************************  CBS
    10284                            *
    10285   01 0356C    067B412D A            MODULE,4
    10286   01 0356D    60800000 A            CBS,8    0
    10287   01 0356E    000011CC              K        0,0,0,LOC
    10288   01 0356F    200011CE              K        2,0,0,LOC+2
    10289   01 03570    22C2FE08 N            G        S0D0C8,-2,8
    10290   01 03571    22C4FE08 N            G        S0D0C8+2,-2,8
    10291                            *****************************************************************  CBS
    10292                            *
    10293   01 03572    067C412E A            MODULE,4
    10294   01 03573    60800000 A            CBS,8    0
    10295   01 03574    000011CC              K        0,0,0,LOC
    10296   01 03575    200011CE              K        2,0,0,LOC+2
    10297   01 03576    22C6FE08 N            G        S0D1C8,-2,8
    10298   01 03577    22C8FE08 N            G        S0D1C8+2,-2,8
    10299                            *****************************************************************  CBS
    10300                            *
    10301   01 03578    067D412F A            MODULE,4
    10302   01 03579    60800000 A            CBS,8    0
    10303   01 0357A    000011CC              K        0,0,0,LOC
    10304   01 0357B    200011CE              K        2,0,0,LOC+2
    10305   01 0357C    22CAFE08 N            G        S0D2C8,-2,8
    10306   01 0357D    22CCFE08 N            G        S0D2C8+2,-2,8
    10307                            *****************************************************************  CBS
    10308                            *
    10309   01 0357E    067E4130 A            MODULE,4
    10310   01 0357F    60800000 A            CBS,8    0
    10311   01 03580    000011CC              K        0,0,0,LOC
    10312   01 03581    200011CE              K        2,0,0,LOC+2
    10313   01 03582    22CEFE08 N            G        S0D3C8,-2,8
    10314   01 03583    22D0FE08 N            G        S0D3C8+2,-2,8
    10315                            *****************************************************************  CBS
    10316                            *
    10317   01 03584    067F4131 A            MODULE,4
    10318   01 03585    60800000 A            CBS,8    0
    10319   01 03586    000011CC              K        0,0,0,LOC
    10320   01 03587    200011CE              K        2,0,0,LOC+2
    10321   01 03588    22D2FE08 N            G        S1D0C8,-2,8
    10322   01 03589    22D4FE08 N            G        S1D0C8+2,-2,8
    10323                            *****************************************************************  CBS
    10324                            *
    10325   01 0358A    06804132 A            MODULE,4
    10326   01 0358B    60800000 A            CBS,8    0
    10327   01 0358C    000011CC              K        0,0,0,LOC
    10328   01 0358D    200011CE              K        2,0,0,LOC+2
    10329   01 0358E    22D6FE08 N            G        S1D1C8,-2,8
    10330   01 0358F    22D8FE08 N            G        S1D1C8+2,-2,8
    10331                            *****************************************************************  CBS
    10332                            *
    10333   01 03590    06814133 A            MODULE,4
    10334   01 03591    60800000 A            CBS,8    0
    10335   01 03592    000011CC              K        0,0,0,LOC
    10336   01 03593    200011CE              K        2,0,0,LOC+2
    10337   01 03594    22DAFE08 N            G        S1D2C8,-2,8
    10338   01 03595    22DCFE08 N            G        S1D2C8+2,-2,8
    10339                            *****************************************************************  CBS
    10340                            *
    10341   01 03596    06824134 A            MODULE,4
    10342   01 03597    60800000 A            CBS,8    0
    10343   01 03598    000011CC              K        0,0,0,LOC
    10344   01 03599    200011CE              K        2,0,0,LOC+2
    10345   01 0359A    22DEFE08 N            G        S1D3C8,-2,8
    10346   01 0359B    22E0FE08 N            G        S1D3C8+2,-2,8
    10347                            *****************************************************************  CBS
    10348                            *
    10349   01 0359C    06834135 A            MODULE,4
    10350   01 0359D    60800000 A            CBS,8    0
    10351   01 0359E    000011CC              K        0,0,0,LOC
    10352   01 0359F    200011CE              K        2,0,0,LOC+2
    10353   01 035A0    22E2FE08 N            G        S2D0C8,-2,8
    10354   01 035A1    22E4FE08 N            G        S2D0C8+2,-2,8
    10355                            *****************************************************************  CBS
    10356                            *
    10357   01 035A2    06844136 A            MODULE,4
    10358   01 035A3    60800000 A            CBS,8    0
    10359   01 035A4    000011CC              K        0,0,0,LOC
    10360   01 035A5    200011CE              K        2,0,0,LOC+2
    10361   01 035A6    22E6FE08 N            G        S2D1C8,-2,8
    10362   01 035A7    22E8FE08 N            G        S2D1C8+2,-2,8
    10363                            *****************************************************************  CBS
    10364                            *
    10365   01 035A8    06854137 A            MODULE,4
    10366   01 035A9    60800000 A            CBS,8    0
    10367   01 035AA    000011CC              K        0,0,0,LOC
    10368   01 035AB    200011CE              K        2,0,0,LOC+2
    10369   01 035AC    22EAFE08 N            G        S2D2C8,-2,8
    10370   01 035AD    22ECFE08 N            G        S2D2C8+2,-2,8
    10371                            *****************************************************************  CBS
    10372                            *
    10373   01 035AE    06864138 A            MODULE,4
    10374   01 035AF    60800000 A            CBS,8    0
    10375   01 035B0    000011CC              K        0,0,0,LOC
    10376   01 035B1    200011CE              K        2,0,0,LOC+2
    10377   01 035B2    22EEFE08 N            G        S2D3C8,-2,8
    10378   01 035B3    22F0FE08 N            G        S2D3C8+2,-2,8
    10379                            *****************************************************************  CBS
    10380                            *
    10381   01 035B4    06874139 A            MODULE,4
    10382   01 035B5    60800000 A            CBS,8    0
    10383   01 035B6    000011CC              K        0,0,0,LOC
    10384   01 035B7    200011CE              K        2,0,0,LOC+2
    10385   01 035B8    22F2FE08 N            G        S3D0C8,-2,8
    10386   01 035B9    22F4FE08 N            G        S3D0C8+2,-2,8
    10387                            *****************************************************************  CBS
    10388                            *
    10389   01 035BA    0688413A A            MODULE,4
    10390   01 035BB    60800000 A            CBS,8    0
    10391   01 035BC    000011CC              K        0,0,0,LOC
    10392   01 035BD    200011CE              K        2,0,0,LOC+2
    10393   01 035BE    22F6FE08 N            G        S3D1C8,-2,8
    10394   01 035BF    22F8FE08 N            G        S3D1C8+2,-2,8
    10395                            *****************************************************************  CBS
    10396                            *
    10397   01 035C0    0689413B A            MODULE,4
    10398   01 035C1    60800000 A            CBS,8    0
    10399   01 035C2    000011CC              K        0,0,0,LOC
    10400   01 035C3    200011CE              K        2,0,0,LOC+2
    10401   01 035C4    22FAFE08 N            G        S3D2C8,-2,8
    10402   01 035C5    22FCFE08 N            G        S3D2C8+2,-2,8
    10403                            *****************************************************************  CBS
    10404                            *
    10405   01 035C6    068A413C A            MODULE,4
    10406   01 035C7    60800000 A            CBS,8    0
    10407   01 035C8    000011CC              K        0,0,0,LOC
    10408   01 035C9    200011CE              K        2,0,0,LOC+2
    10409   01 035CA    22FEFE08 N            G        S3D3C8,-2,8
    10410   01 035CB    2300FE08 N            G        S3D3C8+2,-2,8
    10411                            *****************************************************************  CBS
    10412                            *
    10413   01 035CC    068B413D A            MODULE,4
    10414   01 035CD    60800000 A            CBS,8    0
    10415   01 035CE    000011CC              K        0,0,0,LOC
    10416   01 035CF    200011CE              K        2,0,0,LOC+2
    10417   01 035D0    2302FE08 N            G        S0D0C9,-2,8
    10418   01 035D1    2304FE08 N            G        S0D0C9+2,-2,8
    10419                            *****************************************************************  CBS
    10420                            *
    10421   01 035D2    068C413E A            MODULE,4
    10422   01 035D3    60800000 A            CBS,8    0
    10423   01 035D4    000011CC              K        0,0,0,LOC
    10424   01 035D5    200011CE              K        2,0,0,LOC+2
    10425   01 035D6    2306FE08 N            G        S0D1C9,-2,8
    10426   01 035D7    2308FE08 N            G        S0D1C9+2,-2,8
    10427                            *****************************************************************  CBS
    10428                            *
    10429   01 035D8    068D413F A            MODULE,4
    10430   01 035D9    60800000 A            CBS,8    0
    10431   01 035DA    000011CC              K        0,0,0,LOC
    10432   01 035DB    200011CE              K        2,0,0,LOC+2
    10433   01 035DC    230AFE08 N            G        S0D2C9,-2,8
    10434   01 035DD    230CFE08 N            G        S0D2C9+2,-2,8
    10435                            *****************************************************************  CBS
    10436                            *
    10437   01 035DE    068E4140 A            MODULE,4
    10438   01 035DF    60800000 A            CBS,8    0
    10439   01 035E0    000011CC              K        0,0,0,LOC
    10440   01 035E1    200011CE              K        2,0,0,LOC+2
    10441   01 035E2    230EFE08 N            G        S0D3C9,-2,8
    10442   01 035E3    2310FE08 N            G        S0D3C9+2,-2,8
    10443                            *****************************************************************  CBS
    10444                            *
    10445   01 035E4    068F4141 A            MODULE,4
    10446   01 035E5    60800000 A            CBS,8    0
    10447   01 035E6    000011CC              K        0,0,0,LOC
    10448   01 035E7    200011CE              K        2,0,0,LOC+2
    10449   01 035E8    2312FE08 N            G        S1D0C9,-2,8
    10450   01 035E9    2314FE08 N            G        S1D0C9+2,-2,8
    10451                            *****************************************************************  CBS
    10452                            *
    10453   01 035EA    06904142 A            MODULE,4
    10454   01 035EB    60800000 A            CBS,8    0
    10455   01 035EC    000011CC              K        0,0,0,LOC
    10456   01 035ED    200011CE              K        2,0,0,LOC+2
    10457   01 035EE    2316FE08 N            G        S1D1C9,-2,8
    10458   01 035EF    2318FE08 N            G        S1D1C9+2,-2,8
    10459                            *****************************************************************  CBS
    10460                            *
    10461   01 035F0    06914143 A            MODULE,4
    10462   01 035F1    60800000 A            CBS,8    0
    10463   01 035F2    000011CC              K        0,0,0,LOC
    10464   01 035F3    200011CE              K        2,0,0,LOC+2
    10465   01 035F4    231AFE08 N            G        S1D2C9,-2,8
    10466   01 035F5    231CFE08 N            G        S1D2C9+2,-2,8
    10467                            *****************************************************************  CBS
    10468                            *
    10469   01 035F6    06924144 A            MODULE,4
    10470   01 035F7    60800000 A            CBS,8    0
    10471   01 035F8    000011CC              K        0,0,0,LOC
    10472   01 035F9    200011CE              K        2,0,0,LOC+2
    10473   01 035FA    231EFE08 N            G        S1D3C9,-2,8
    10474   01 035FB    2320FE08 N            G        S1D3C9+2,-2,8
    10475                            *****************************************************************  CBS
    10476                            *
    10477   01 035FC    06934145 A            MODULE,4
    10478   01 035FD    60800000 A            CBS,8    0
    10479   01 035FE    000011CC              K        0,0,0,LOC
    10480   01 035FF    200011CE              K        2,0,0,LOC+2
    10481   01 03600    2322FE08 N            G        S2D0C9,-2,8
    10482   01 03601    2324FE08 N            G        S2D0C9+2,-2,8
    10483                            *****************************************************************  CBS
    10484                            *
    10485   01 03602    06944146 A            MODULE,4
    10486   01 03603    60800000 A            CBS,8    0
    10487   01 03604    000011CC              K        0,0,0,LOC
    10488   01 03605    200011CE              K        2,0,0,LOC+2
    10489   01 03606    2326FE08 N            G        S2D1C9,-2,8
    10490   01 03607    2328FE08 N            G        S2D1C9+2,-2,8
    10491                            *****************************************************************  CBS
    10492                            *
    10493   01 03608    06954147 A            MODULE,4
    10494   01 03609    60800000 A            CBS,8    0
    10495   01 0360A    000011CC              K        0,0,0,LOC
    10496   01 0360B    200011CE              K        2,0,0,LOC+2
    10497   01 0360C    232AFE08 N            G        S2D2C9,-2,8
    10498   01 0360D    232CFE08 N            G        S2D2C9+2,-2,8
    10499                            *****************************************************************  CBS
    10500                            *
    10501   01 0360E    06964148 A            MODULE,4
    10502   01 0360F    60800000 A            CBS,8    0
    10503   01 03610    000011CC              K        0,0,0,LOC
    10504   01 03611    200011CE              K        2,0,0,LOC+2
    10505   01 03612    232EFE08 N            G        S2D3C9,-2,8
    10506   01 03613    2330FE08 N            G        S2D3C9+2,-2,8
    10507                            *****************************************************************  CBS
    10508                            *
    10509   01 03614    06974149 A            MODULE,4
    10510   01 03615    60800000 A            CBS,8    0
    10511   01 03616    000011CC              K        0,0,0,LOC
    10512   01 03617    200011CE              K        2,0,0,LOC+2
    10513   01 03618    2332FE08 N            G        S3D0C9,-2,8
    10514   01 03619    2334FE08 N            G        S3D0C9+2,-2,8
    10515                            *****************************************************************  CBS
    10516                            *
    10517   01 0361A    0698414A A            MODULE,4
    10518   01 0361B    60800000 A            CBS,8    0
    10519   01 0361C    000011CC              K        0,0,0,LOC
    10520   01 0361D    200011CE              K        2,0,0,LOC+2
    10521   01 0361E    2336FE08 N            G        S3D1C9,-2,8
    10522   01 0361F    2338FE08 N            G        S3D1C9+2,-2,8
    10523                            *****************************************************************  CBS
    10524                            *
    10525   01 03620    0699414B A            MODULE,4
    10526   01 03621    60800000 A            CBS,8    0
    10527   01 03622    000011CC              K        0,0,0,LOC
    10528   01 03623    200011CE              K        2,0,0,LOC+2
    10529   01 03624    233AFE08 N            G        S3D2C9,-2,8
    10530   01 03625    233CFE08 N            G        S3D2C9+2,-2,8
    10531                            *****************************************************************  CBS
    10532                            *
    10533   01 03626    069A414C A            MODULE,4
    10534   01 03627    60800000 A            CBS,8    0
    10535   01 03628    000011CC              K        0,0,0,LOC
    10536   01 03629    200011CE              K        2,0,0,LOC+2
    10537   01 0362A    233EFE08 N            G        S3D3C9,-2,8
    10538   01 0362B    2340FE08 N            G        S3D3C9+2,-2,8
    10539                            *****************************************************************  CBS
    10540                            *
    10541   01 0362C    069B414D A            MODULE,4
    10542   01 0362D    60800000 A            CBS,8    0
    10543   01 0362E    000011CC              K        0,0,0,LOC
    10544   01 0362F    200011CE              K        2,0,0,LOC+2
    10545   01 03630    2342FE08 N            G        S0D0CA,-2,8
    10546   01 03631    2344FE08 N            G        S0D0CA+2,-2,8
    10547                            *****************************************************************  CBS
    10548                            *
    10549   01 03632    069C414E A            MODULE,4
    10550   01 03633    60800000 A            CBS,8    0
    10551   01 03634    000011CC              K        0,0,0,LOC
    10552   01 03635    200011CE              K        2,0,0,LOC+2
    10553   01 03636    2346FE08 N            G        S0D1CA,-2,8
    10554   01 03637    2348FE08 N            G        S0D1CA+2,-2,8
    10555                            *****************************************************************  CBS
    10556                            *
    10557   01 03638    069D414F A            MODULE,4
    10558   01 03639    60800000 A            CBS,8    0
    10559   01 0363A    000011CC              K        0,0,0,LOC
    10560   01 0363B    200011CE              K        2,0,0,LOC+2
    10561   01 0363C    234AFE08 N            G        S0D2CA,-2,8
    10562   01 0363D    234CFE08 N            G        S0D2CA+2,-2,8
    10563                            *****************************************************************  CBS
    10564                            *
    10565   01 0363E    069E4150 A            MODULE,4
    10566   01 0363F    60800000 A            CBS,8    0
    10567   01 03640    000011CC              K        0,0,0,LOC
    10568   01 03641    200011CE              K        2,0,0,LOC+2
    10569   01 03642    234EFE08 N            G        S0D3CA,-2,8
    10570   01 03643    2350FE08 N            G        S0D3CA+2,-2,8
    10571                            *****************************************************************  CBS
    10572                            *
    10573   01 03644    069F4151 A            MODULE,4
    10574   01 03645    60800000 A            CBS,8    0
    10575   01 03646    000011CC              K        0,0,0,LOC
    10576   01 03647    200011CE              K        2,0,0,LOC+2
    10577   01 03648    2352FE08 N            G        S1D0CA,-2,8
    10578   01 03649    2354FE08 N            G        S1D0CA+2,-2,8
    10579                            *****************************************************************  CBS
    10580                            *
    10581   01 0364A    06A04152 A            MODULE,4
    10582   01 0364B    60800000 A            CBS,8    0
    10583   01 0364C    000011CC              K        0,0,0,LOC
    10584   01 0364D    200011CE              K        2,0,0,LOC+2
    10585   01 0364E    2356FE08 N            G        S1D1CA,-2,8
    10586   01 0364F    2358FE08 N            G        S1D1CA+2,-2,8
    10587                            *****************************************************************  CBS
    10588                            *
    10589   01 03650    06A14153 A            MODULE,4
    10590   01 03651    60800000 A            CBS,8    0
    10591   01 03652    000011CC              K        0,0,0,LOC
    10592   01 03653    200011CE              K        2,0,0,LOC+2
    10593   01 03654    235AFE08 N            G        S1D2CA,-2,8
    10594   01 03655    235CFE08 N            G        S1D2CA+2,-2,8
    10595                            *****************************************************************  CBS
    10596                            *
    10597   01 03656    06A24154 A            MODULE,4
    10598   01 03657    60800000 A            CBS,8    0
    10599   01 03658    000011CC              K        0,0,0,LOC
    10600   01 03659    200011CE              K        2,0,0,LOC+2
    10601   01 0365A    235EFE08 N            G        S1D3CA,-2,8
    10602   01 0365B    2360FE08 N            G        S1D3CA+2,-2,8
    10603                            *****************************************************************  CBS
    10604                            *
    10605   01 0365C    06A34155 A            MODULE,4
    10606   01 0365D    60800000 A            CBS,8    0
    10607   01 0365E    000011CC              K        0,0,0,LOC
    10608   01 0365F    200011CE              K        2,0,0,LOC+2
    10609   01 03660    2362FE08 N            G        S2D0CA,-2,8
    10610   01 03661    2364FE08 N            G        S2D0CA+2,-2,8
    10611                            *****************************************************************  CBS
    10612                            *
    10613   01 03662    06A44156 A            MODULE,4
    10614   01 03663    60800000 A            CBS,8    0
    10615   01 03664    000011CC              K        0,0,0,LOC
    10616   01 03665    200011CE              K        2,0,0,LOC+2
    10617   01 03666    2366FE08 N            G        S2D1CA,-2,8
    10618   01 03667    2368FE08 N            G        S2D1CA+2,-2,8
    10619                            *****************************************************************  CBS
    10620                            *
    10621   01 03668    06A54157 A            MODULE,4
    10622   01 03669    60800000 A            CBS,8    0
    10623   01 0366A    000011CC              K        0,0,0,LOC
    10624   01 0366B    200011CE              K        2,0,0,LOC+2
    10625   01 0366C    236AFE08 N            G        S2D2CA,-2,8
    10626   01 0366D    236CFE08 N            G        S2D2CA+2,-2,8
    10627                            *****************************************************************  CBS
    10628                            *
    10629   01 0366E    06A64158 A            MODULE,4
    10630   01 0366F    60800000 A            CBS,8    0
    10631   01 03670    000011CC              K        0,0,0,LOC
    10632   01 03671    200011CE              K        2,0,0,LOC+2
    10633   01 03672    236EFE08 N            G        S2D3CA,-2,8
    10634   01 03673    2370FE08 N            G        S2D3CA+2,-2,8
    10635                            *****************************************************************  CBS
    10636                            *
    10637   01 03674    06A74159 A            MODULE,4
    10638   01 03675    60800000 A            CBS,8    0
    10639   01 03676    000011CC              K        0,0,0,LOC
    10640   01 03677    200011CE              K        2,0,0,LOC+2
    10641   01 03678    2372FE08 N            G        S3D0CA,-2,8
    10642   01 03679    2374FE08 N            G        S3D0CA+2,-2,8
    10643                            *****************************************************************  CBS
    10644                            *
    10645   01 0367A    06A8415A A            MODULE,4
    10646   01 0367B    60800000 A            CBS,8    0
    10647   01 0367C    000011CC              K        0,0,0,LOC
    10648   01 0367D    200011CE              K        2,0,0,LOC+2
    10649   01 0367E    2376FE08 N            G        S3D1CA,-2,8
    10650   01 0367F    2378FE08 N            G        S3D1CA+2,-2,8
    10651                            *****************************************************************  CBS
    10652                            *
    10653   01 03680    06A9415B A            MODULE,4
    10654   01 03681    60800000 A            CBS,8    0
    10655   01 03682    000011CC              K        0,0,0,LOC
    10656   01 03683    200011CE              K        2,0,0,LOC+2
    10657   01 03684    237AFE08 N            G        S3D2CA,-2,8
    10658   01 03685    237CFE08 N            G        S3D2CA+2,-2,8
    10659                            *****************************************************************  CBS
    10660                            *
    10661   01 03686    06AA415C A            MODULE,4
    10662   01 03687    60800000 A            CBS,8    0
    10663   01 03688    000011CC              K        0,0,0,LOC
    10664   01 03689    200011CE              K        2,0,0,LOC+2
    10665   01 0368A    237EFE08 N            G        S3D3CA,-2,8
    10666   01 0368B    2380FE08 N            G        S3D3CA+2,-2,8
    10667                            *****************************************************************  CBS
    10668                            *
    10669   01 0368C    06AB415D A            MODULE,4
    10670   01 0368D    60800000 A            CBS,8    0
    10671   01 0368E    000011CC              K        0,0,0,LOC
    10672   01 0368F    200011CE              K        2,0,0,LOC+2
    10673   01 03690    2382FE08 N            G        S0D0CB,-2,8
    10674   01 03691    2384FE08 N            G        S0D0CB+2,-2,8
    10675                            *****************************************************************  CBS
    10676                            *
    10677   01 03692    06AC415E A            MODULE,4
    10678   01 03693    60800000 A            CBS,8    0
    10679   01 03694    000011CC              K        0,0,0,LOC
    10680   01 03695    200011CE              K        2,0,0,LOC+2
    10681   01 03696    2386FE08 N            G        S0D1CB,-2,8
    10682   01 03697    2388FE08 N            G        S0D1CB+2,-2,8
    10683                            *****************************************************************  CBS
    10684                            *
    10685   01 03698    06AD415F A            MODULE,4
    10686   01 03699    60800000 A            CBS,8    0
    10687   01 0369A    000011CC              K        0,0,0,LOC
    10688   01 0369B    200011CE              K        2,0,0,LOC+2
    10689   01 0369C    238AFE08 N            G        S0D2CB,-2,8
    10690   01 0369D    238CFE08 N            G        S0D2CB+2,-2,8
    10691                            *****************************************************************  CBS
    10692                            *
    10693   01 0369E    06AE4160 A            MODULE,4
    10694   01 0369F    60800000 A            CBS,8    0
    10695   01 036A0    000011CC              K        0,0,0,LOC
    10696   01 036A1    200011CE              K        2,0,0,LOC+2
    10697   01 036A2    238EFE08 N            G        S0D3CB,-2,8
    10698   01 036A3    2390FE08 N            G        S0D3CB+2,-2,8
    10699                            *****************************************************************  CBS
    10700                            *
    10701   01 036A4    06AF4161 A            MODULE,4
    10702   01 036A5    60800000 A            CBS,8    0
    10703   01 036A6    000011CC              K        0,0,0,LOC
    10704   01 036A7    200011CE              K        2,0,0,LOC+2
    10705   01 036A8    2392FE08 N            G        S1D0CB,-2,8
    10706   01 036A9    2394FE08 N            G        S1D0CB+2,-2,8
    10707                            *****************************************************************  CBS
    10708                            *
    10709   01 036AA    06B04162 A            MODULE,4
    10710   01 036AB    60800000 A            CBS,8    0
    10711   01 036AC    000011CC              K        0,0,0,LOC
    10712   01 036AD    200011CE              K        2,0,0,LOC+2
    10713   01 036AE    2396FE08 N            G        S1D1CB,-2,8
    10714   01 036AF    2398FE08 N            G        S1D1CB+2,-2,8
    10715                            *****************************************************************  CBS
    10716                            *
    10717   01 036B0    06B14163 A            MODULE,4
    10718   01 036B1    60800000 A            CBS,8    0
    10719   01 036B2    000011CC              K        0,0,0,LOC
    10720   01 036B3    200011CE              K        2,0,0,LOC+2
    10721   01 036B4    239AFE08 N            G        S1D2CB,-2,8
    10722   01 036B5    239CFE08 N            G        S1D2CB+2,-2,8
    10723                            *****************************************************************  CBS
    10724                            *
    10725   01 036B6    06B24164 A            MODULE,4
    10726   01 036B7    60800000 A            CBS,8    0
    10727   01 036B8    000011CC              K        0,0,0,LOC
    10728   01 036B9    200011CE              K        2,0,0,LOC+2
    10729   01 036BA    239EFE08 N            G        S1D3CB,-2,8
    10730   01 036BB    23A0FE08 N            G        S1D3CB+2,-2,8
    10731                            *****************************************************************  CBS
    10732                            *
    10733   01 036BC    06B34165 A            MODULE,4
    10734   01 036BD    60800000 A            CBS,8    0
    10735   01 036BE    000011CC              K        0,0,0,LOC
    10736   01 036BF    200011CE              K        2,0,0,LOC+2
    10737   01 036C0    23A2FE08 N            G        S2D0CB,-2,8
    10738   01 036C1    23A4FE08 N            G        S2D0CB+2,-2,8
    10739                            *****************************************************************  CBS
    10740                            *
    10741   01 036C2    06B44166 A            MODULE,4
    10742   01 036C3    60800000 A            CBS,8    0
    10743   01 036C4    000011CC              K        0,0,0,LOC
    10744   01 036C5    200011CE              K        2,0,0,LOC+2
    10745   01 036C6    23A6FE08 N            G        S2D1CB,-2,8
    10746   01 036C7    23A8FE08 N            G        S2D1CB+2,-2,8
    10747                            *****************************************************************  CBS
    10748                            *
    10749   01 036C8    06B54167 A            MODULE,4
    10750   01 036C9    60800000 A            CBS,8    0
    10751   01 036CA    000011CC              K        0,0,0,LOC
    10752   01 036CB    200011CE              K        2,0,0,LOC+2
    10753   01 036CC    23AAFE08 N            G        S2D2CB,-2,8
    10754   01 036CD    23ACFE08 N            G        S2D2CB+2,-2,8
    10755                            *****************************************************************  CBS
    10756                            *
    10757   01 036CE    06B64168 A            MODULE,4
    10758   01 036CF    60800000 A            CBS,8    0
    10759   01 036D0    000011CC              K        0,0,0,LOC
    10760   01 036D1    200011CE              K        2,0,0,LOC+2
    10761   01 036D2    23AEFE08 N            G        S2D3CB,-2,8
    10762   01 036D3    23B0FE08 N            G        S2D3CB+2,-2,8
    10763                            *****************************************************************  CBS
    10764                            *
    10765   01 036D4    06B74169 A            MODULE,4
    10766   01 036D5    60800000 A            CBS,8    0
    10767   01 036D6    000011CC              K        0,0,0,LOC
    10768   01 036D7    200011CE              K        2,0,0,LOC+2
    10769   01 036D8    23B2FE08 N            G        S3D0CB,-2,8
    10770   01 036D9    23B4FE08 N            G        S3D0CB+2,-2,8
    10771                            *****************************************************************  CBS
    10772                            *
    10773   01 036DA    06B8416A A            MODULE,4
    10774   01 036DB    60800000 A            CBS,8    0
    10775   01 036DC    000011CC              K        0,0,0,LOC
    10776   01 036DD    200011CE              K        2,0,0,LOC+2
    10777   01 036DE    23B6FE08 N            G        S3D1CB,-2,8
    10778   01 036DF    23B8FE08 N            G        S3D1CB+2,-2,8
    10779                            *****************************************************************  CBS
    10780                            *
    10781   01 036E0    06B9416B A            MODULE,4
    10782   01 036E1    60800000 A            CBS,8    0
    10783   01 036E2    000011CC              K        0,0,0,LOC
    10784   01 036E3    200011CE              K        2,0,0,LOC+2
    10785   01 036E4    23BAFE08 N            G        S3D2CB,-2,8
    10786   01 036E5    23BCFE08 N            G        S3D2CB+2,-2,8
    10787                            *****************************************************************  CBS
    10788                            *
    10789   01 036E6    06BA416C A            MODULE,4
    10790   01 036E7    60800000 A            CBS,8    0
    10791   01 036E8    000011CC              K        0,0,0,LOC
    10792   01 036E9    200011CE              K        2,0,0,LOC+2
    10793   01 036EA    23BEFE08 N            G        S3D3CB,-2,8
    10794   01 036EB    23C0FE08 N            G        S3D3CB+2,-2,8
    10795                            *****************************************************************  CBS
    10796                            *
    10797   01 036EC    06BB416D A            MODULE,4
    10798   01 036ED    60800000 A            CBS,8    0
    10799   01 036EE    000011CC              K        0,0,0,LOC
    10800   01 036EF    200011CE              K        2,0,0,LOC+2
    10801   01 036F0    23C2FE08 N            G        S0D0CC,-2,8
    10802   01 036F1    23C4FE08 N            G        S0D0CC+2,-2,8
    10803                            *****************************************************************  CBS
    10804                            *
    10805   01 036F2    06BC416E A            MODULE,4
    10806   01 036F3    60800000 A            CBS,8    0
    10807   01 036F4    000011CC              K        0,0,0,LOC
    10808   01 036F5    200011CE              K        2,0,0,LOC+2
    10809   01 036F6    23C6FE08 N            G        S0D1CC,-2,8
    10810   01 036F7    23C8FE08 N            G        S0D1CC+2,-2,8
    10811                            *****************************************************************  CBS
    10812                            *
    10813   01 036F8    06BD416F A            MODULE,4
    10814   01 036F9    60800000 A            CBS,8    0
    10815   01 036FA    000011CC              K        0,0,0,LOC
    10816   01 036FB    200011CE              K        2,0,0,LOC+2
    10817   01 036FC    23CAFE08 N            G        S0D2CC,-2,8
    10818   01 036FD    23CCFE08 N            G        S0D2CC+2,-2,8
    10819                            *****************************************************************  CBS
    10820                            *
    10821   01 036FE    06BE4170 A            MODULE,4
    10822   01 036FF    60800000 A            CBS,8    0
    10823   01 03700    000011CC              K        0,0,0,LOC
    10824   01 03701    200011CE              K        2,0,0,LOC+2
    10825   01 03702    23CEFE08 N            G        S0D3CC,-2,8
    10826   01 03703    23D0FE08 N            G        S0D3CC+2,-2,8
    10827                            *****************************************************************  CBS
    10828                            *
    10829   01 03704    06BF4171 A            MODULE,4
    10830   01 03705    60800000 A            CBS,8    0
    10831   01 03706    000011CC              K        0,0,0,LOC
    10832   01 03707    200011CE              K        2,0,0,LOC+2
    10833   01 03708    23D2FE08 N            G        S1D0CC,-2,8
    10834   01 03709    23D4FE08 N            G        S1D0CC+2,-2,8
    10835                            *****************************************************************  CBS
    10836                            *
    10837   01 0370A    06C04172 A            MODULE,4
    10838   01 0370B    60800000 A            CBS,8    0
    10839   01 0370C    000011CC              K        0,0,0,LOC
    10840   01 0370D    200011CE              K        2,0,0,LOC+2
    10841   01 0370E    23D6FE08 N            G        S1D1CC,-2,8
    10842   01 0370F    23D8FE08 N            G        S1D1CC+2,-2,8
    10843                            *****************************************************************  CBS
    10844                            *
    10845   01 03710    06C14173 A            MODULE,4
    10846   01 03711    60800000 A            CBS,8    0
    10847   01 03712    000011CC              K        0,0,0,LOC
    10848   01 03713    200011CE              K        2,0,0,LOC+2
    10849   01 03714    23DAFE08 N            G        S1D2CC,-2,8
    10850   01 03715    23DCFE08 N            G        S1D2CC+2,-2,8
    10851                            *****************************************************************  CBS
    10852                            *
    10853   01 03716    06C24174 A            MODULE,4
    10854   01 03717    60800000 A            CBS,8    0
    10855   01 03718    000011CC              K        0,0,0,LOC
    10856   01 03719    200011CE              K        2,0,0,LOC+2
    10857   01 0371A    23DEFE08 N            G        S1D3CC,-2,8
    10858   01 0371B    23E0FE08 N            G        S1D3CC+2,-2,8
    10859                            *****************************************************************  CBS
    10860                            *
    10861   01 0371C    06C34175 A            MODULE,4
    10862   01 0371D    60800000 A            CBS,8    0
    10863   01 0371E    000011CC              K        0,0,0,LOC
    10864   01 0371F    200011CE              K        2,0,0,LOC+2
    10865   01 03720    23E2FE08 N            G        S2D0CC,-2,8
    10866   01 03721    23E4FE08 N            G        S2D0CC+2,-2,8
    10867                            *****************************************************************  CBS
    10868                            *
    10869   01 03722    06C44176 A            MODULE,4
    10870   01 03723    60800000 A            CBS,8    0
    10871   01 03724    000011CC              K        0,0,0,LOC
    10872   01 03725    200011CE              K        2,0,0,LOC+2
    10873   01 03726    23E6FE08 N            G        S2D1CC,-2,8
    10874   01 03727    23E8FE08 N            G        S2D1CC+2,-2,8
    10875                            *****************************************************************  CBS
    10876                            *
    10877   01 03728    06C54177 A            MODULE,4
    10878   01 03729    60800000 A            CBS,8    0
    10879   01 0372A    000011CC              K        0,0,0,LOC
    10880   01 0372B    200011CE              K        2,0,0,LOC+2
    10881   01 0372C    23EAFE08 N            G        S2D2CC,-2,8
    10882   01 0372D    23ECFE08 N            G        S2D2CC+2,-2,8
    10883                            *****************************************************************  CBS
    10884                            *
    10885   01 0372E    06C64178 A            MODULE,4
    10886   01 0372F    60800000 A            CBS,8    0
    10887   01 03730    000011CC              K        0,0,0,LOC
    10888   01 03731    200011CE              K        2,0,0,LOC+2
    10889   01 03732    23EEFE08 N            G        S2D3CC,-2,8
    10890   01 03733    23F0FE08 N            G        S2D3CC+2,-2,8
    10891                            *****************************************************************  CBS
    10892                            *
    10893   01 03734    06C74179 A            MODULE,4
    10894   01 03735    60800000 A            CBS,8    0
    10895   01 03736    000011CC              K        0,0,0,LOC
    10896   01 03737    200011CE              K        2,0,0,LOC+2
    10897   01 03738    23F2FE08 N            G        S3D0CC,-2,8
    10898   01 03739    23F4FE08 N            G        S3D0CC+2,-2,8
    10899                            *****************************************************************  CBS
    10900                            *
    10901   01 0373A    06C8417A A            MODULE,4
    10902   01 0373B    60800000 A            CBS,8    0
    10903   01 0373C    000011CC              K        0,0,0,LOC
    10904   01 0373D    200011CE              K        2,0,0,LOC+2
    10905   01 0373E    23F6FE08 N            G        S3D1CC,-2,8
    10906   01 0373F    23F8FE08 N            G        S3D1CC+2,-2,8
    10907                            *****************************************************************  CBS
    10908                            *
    10909   01 03740    06C9417B A            MODULE,4
    10910   01 03741    60800000 A            CBS,8    0
    10911   01 03742    000011CC              K        0,0,0,LOC
    10912   01 03743    200011CE              K        2,0,0,LOC+2
    10913   01 03744    23FAFE08 N            G        S3D2CC,-2,8
    10914   01 03745    23FCFE08 N            G        S3D2CC+2,-2,8
    10915                            *****************************************************************  CBS
    10916                            *
    10917   01 03746    06CA417C A            MODULE,4
    10918   01 03747    60800000 A            CBS,8    0
    10919   01 03748    000011CC              K        0,0,0,LOC
    10920   01 03749    200011CE              K        2,0,0,LOC+2
    10921   01 0374A    23FEFE08 N            G        S3D3CC,-2,8
    10922   01 0374B    2400FE08 N            G        S3D3CC+2,-2,8
    10923                            *****************************************************************  CBS
    10924                            *
    10925   01 0374C    06CB417D A            MODULE,4
    10926   01 0374D    60800000 A            CBS,8    0
    10927   01 0374E    000011CC              K        0,0,0,LOC
    10928   01 0374F    100011CE              K        1,0,0,LOC+2
    10929   01 03750    2402FE08 N            G        S0D027,-2,8
    10930   01 03751    2404FE08 N            G        S0D027+2,-2,8
    10931                            *****************************************************************  CBS
    10932                            *
    10933   01 03752    06CC417E A            MODULE,4
    10934   01 03753    60800000 A            CBS,8    0
    10935   01 03754    000011CC              K        0,0,0,LOC
    10936   01 03755    100011CE              K        1,0,0,LOC+2
    10937   01 03756    2406FE08 N            G        S0D037,-2,8
    10938   01 03757    2408FE08 N            G        S0D037+2,-2,8
    10939                            *****************************************************************  CBS
    10940                            *
    10941   01 03758    06CD417F A            MODULE,4
    10942   01 03759    60800000 A            CBS,8    0
    10943   01 0375A    000011CC              K        0,0,0,LOC
    10944   01 0375B    100011CE              K        1,0,0,LOC+2
    10945   01 0375C    240AFE08 N            G        S0D046,-2,8
    10946   01 0375D    240CFE08 N            G        S0D046+2,-2,8
    10947                            *****************************************************************  CBS
    10948                            *
    10949   01 0375E    06CE4180 A            MODULE,4
    10950   01 0375F    60800000 A            CBS,8    0
    10951   01 03760    000011CC              K        0,0,0,LOC
    10952   01 03761    100011CE              K        1,0,0,LOC+2
    10953   01 03762    240EFE08 N            G        S0D056,-2,8
    10954   01 03763    2410FE08 N            G        S0D056+2,-2,8
    10955                            *****************************************************************  CBS
    10956                            *
    10957   01 03764    06CF4181 A            MODULE,4
    10958   01 03765    60800000 A            CBS,8    0
    10959   01 03766    000011CC              K        0,0,0,LOC
    10960   01 03767    100011CE              K        1,0,0,LOC+2
    10961   01 03768    2412FE08 N            G        S0D066,-2,8
    10962   01 03769    2414FE08 N            G        S0D066+2,-2,8
    10963                            *****************************************************************  CBS
    10964                            *
    10965   01 0376A    06D04182 A            MODULE,4
    10966   01 0376B    60800000 A            CBS,8    0
    10967   01 0376C    000011CC              K        0,0,0,LOC
    10968   01 0376D    100011CE              K        1,0,0,LOC+2
    10969   01 0376E    2416FE08 N            G        S0D076,-2,8
    10970   01 0376F    2418FE08 N            G        S0D076+2,-2,8
    10971                            *****************************************************************  CBS
    10972                            *
    10973   01 03770    06D14183 A            MODULE,4
    10974   01 03771    60800000 A            CBS,8    0
    10975   01 03772    000011CC              K        0,0,0,LOC
    10976   01 03773    100011CE              K        1,0,0,LOC+2
    10977   01 03774    241AFE08 N            G        S0D085,-2,8
    10978   01 03775    241CFE08 N            G        S0D085+2,-2,8
    10979                            *****************************************************************  CBS
    10980                            *
    10981   01 03776    06D24184 A            MODULE,4
    10982   01 03777    60800000 A            CBS,8    0
    10983   01 03778    000011CC              K        0,0,0,LOC
    10984   01 03779    100011CE              K        1,0,0,LOC+2
    10985   01 0377A    241EFE08 N            G        S0D095,-2,8
    10986   01 0377B    2420FE08 N            G        S0D095+2,-2,8
    10987                            *****************************************************************  CBS
    10988                            *
    10989   01 0377C    06D34185 A            MODULE,4
    10990   01 0377D    60800000 A            CBS,8    0
    10991   01 0377E    000011CC              K        0,0,0,LOC
    10992   01 0377F    100011CE              K        1,0,0,LOC+2
    10993   01 03780    2422FE08 N            G        S0D0A5,-2,8
    10994   01 03781    2424FE08 N            G        S0D0A5+2,-2,8
    10995                            *****************************************************************  CBS
    10996                            *
    10997   01 03782    06D44186 A            MODULE,4
    10998   01 03783    60800000 A            CBS,8    0
    10999   01 03784    000011CC              K        0,0,0,LOC
    11000   01 03785    100011CE              K        1,0,0,LOC+2
    11001   01 03786    2426FE08 N            G        S0D0B5,-2,8
    11002   01 03787    2428FE08 N            G        S0D0B5+2,-2,8
    11003                            *****************************************************************  CBS
    11004                            *
    11005   01 03788    06D54187 A            MODULE,4
    11006   01 03789    60800000 A            CBS,8    0
    11007   01 0378A    000011CC              K        0,0,0,LOC
    11008   01 0378B    100011CE              K        1,0,0,LOC+2
    11009   01 0378C    242AFE08 N            G        S0D0N5,-2,8
    11010   01 0378D    242CFE08 N            G        S0D0N5+2,-2,8
    11011                            *****************************************************************  CBS
    11012                            *
    11013   01 0378E    06D64188 A            MODULE,4
    11014   01 0378F    60800000 A            CBS,8    0
    11015   01 03790    000011CC              K        0,0,0,LOC
    11016   01 03791    100011CE              K        1,0,0,LOC+2
    11017   01 03792    242EFE08 N            G        S0D0D5,-2,8
    11018   01 03793    2430FE08 N            G        S0D0D5+2,-2,8
    11019                            *****************************************************************  CBS
    11020                            *
    11021   01 03794    06D74189 A            MODULE,4
    11022   01 03795    60800000 A            CBS,8    0
    11023   01 03796    000011CC              K        0,0,0,LOC
    11024   01 03797    100011CE              K        1,0,0,LOC+2
    11025   01 03798    2432FE08 N            G        S0D0E5,-2,8
    11026   01 03799    2434FE08 N            G        S0D0E5+2,-2,8
    11027                            *****************************************************************  CBS
    11028                            *
    11029   01 0379A    06D8418A A            MODULE,4
    11030   01 0379B    60800000 A            CBS,8    0
    11031   01 0379C    000011CC              K        0,0,0,LOC
    11032   01 0379D    100011CE              K        1,0,0,LOC+2
    11033   01 0379E    2436FE08 N            G        S0D0F5,-2,8
    11034   01 0379F    2438FE08 N            G        S0D0F5+2,-2,8
    11035                            *****************************************************************  CBS
    11036                            *
    11037   01 037A0    06D9418B A            MODULE,4
    11038   01 037A1    60800000 A            CBS,8    0
    11039   01 037A2    000011CC              K        0,0,0,LOC
    11040   01 037A3    100011CE              K        1,0,0,LOC+2
    11041   01 037A4    243AFE08 N            G        S1D127,-2,8
    11042   01 037A5    243CFE08 N            G        S1D127+2,-2,8
    11043                            *****************************************************************  CBS
    11044                            *
    11045   01 037A6    06DA418C A            MODULE,4
    11046   01 037A7    60800000 A            CBS,8    0
    11047   01 037A8    000011CC              K        0,0,0,LOC
    11048   01 037A9    100011CE              K        1,0,0,LOC+2
    11049   01 037AA    243EFE08 N            G        S1D137,-2,8
    11050   01 037AB    2440FE08 N            G        S1D137+2,-2,8
    11051                            *****************************************************************  CBS
    11052                            *
    11053   01 037AC    06DB418D A            MODULE,4
    11054   01 037AD    60800000 A            CBS,8    0
    11055   01 037AE    000011CC              K        0,0,0,LOC
    11056   01 037AF    100011CE              K        1,0,0,LOC+2
    11057   01 037B0    2442FE08 N            G        S1D146,-2,8
    11058   01 037B1    2444FE08 N            G        S1D146+2,-2,8
    11059                            *****************************************************************  CBS
    11060                            *
    11061   01 037B2    06DC418E A            MODULE,4
    11062   01 037B3    60800000 A            CBS,8    0
    11063   01 037B4    000011CC              K        0,0,0,LOC
    11064   01 037B5    100011CE              K        1,0,0,LOC+2
    11065   01 037B6    2446FE08 N            G        S1D156,-2,8
    11066   01 037B7    2448FE08 N            G        S1D156+2,-2,8
    11067                            *****************************************************************  CBS
    11068                            *
    11069   01 037B8    06DD418F A            MODULE,4
    11070   01 037B9    60800000 A            CBS,8    0
    11071   01 037BA    000011CC              K        0,0,0,LOC
    11072   01 037BB    100011CE              K        1,0,0,LOC+2
    11073   01 037BC    244AFE08 N            G        S1D166,-2,8
    11074   01 037BD    244CFE08 N            G        S1D166+2,-2,8
    11075                            *****************************************************************  CBS
    11076                            *
    11077   01 037BE    06DE4190 A            MODULE,4
    11078   01 037BF    60800000 A            CBS,8    0
    11079   01 037C0    000011CC              K        0,0,0,LOC
    11080   01 037C1    100011CE              K        1,0,0,LOC+2
    11081   01 037C2    244EFE08 N            G        S1D176,-2,8
    11082   01 037C3    2450FE08 N            G        S1D176+2,-2,8
    11083                            *****************************************************************  CBS
    11084                            *
    11085   01 037C4    06DF4191 A            MODULE,4
    11086   01 037C5    60800000 A            CBS,8    0
    11087   01 037C6    000011CC              K        0,0,0,LOC
    11088   01 037C7    100011CE              K        1,0,0,LOC+2
    11089   01 037C8    2452FE08 N            G        S1D185,-2,8
    11090   01 037C9    2454FE08 N            G        S1D185+2,-2,8
    11091                            *****************************************************************  CBS
    11092                            *
    11093   01 037CA    06E04192 A            MODULE,4
    11094   01 037CB    60800000 A            CBS,8    0
    11095   01 037CC    000011CC              K        0,0,0,LOC
    11096   01 037CD    100011CE              K        1,0,0,LOC+2
    11097   01 037CE    2456FE08 N            G        S1D195,-2,8
    11098   01 037CF    2458FE08 N            G        S1D195+2,-2,8
    11099                            *****************************************************************  CBS
    11100                            *
    11101   01 037D0    06E14193 A            MODULE,4
    11102   01 037D1    60800000 A            CBS,8    0
    11103   01 037D2    000011CC              K        0,0,0,LOC
    11104   01 037D3    100011CE              K        1,0,0,LOC+2
    11105   01 037D4    245AFE08 N            G        S1D1A5,-2,8
    11106   01 037D5    245CFE08 N            G        S1D1A5+2,-2,8
    11107                            *****************************************************************  CBS
    11108                            *
    11109   01 037D6    06E24194 A            MODULE,4
    11110   01 037D7    60800000 A            CBS,8    0
    11111   01 037D8    000011CC              K        0,0,0,LOC
    11112   01 037D9    100011CE              K        1,0,0,LOC+2
    11113   01 037DA    245EFE08 N            G        S1D1B5,-2,8
    11114   01 037DB    2460FE08 N            G        S1D1B5+2,-2,8
    11115                            *****************************************************************  CBS
    11116                            *
    11117   01 037DC    06E34195 A            MODULE,4
    11118   01 037DD    60800000 A            CBS,8    0
    11119   01 037DE    000011CC              K        0,0,0,LOC
    11120   01 037DF    100011CE              K        1,0,0,LOC+2
    11121   01 037E0    2462FE08 N            G        S1D1N5,-2,8
    11122   01 037E1    2464FE08 N            G        S1D1N5+2,-2,8
    11123                            *****************************************************************  CBS
    11124                            *
    11125   01 037E2    06E44196 A            MODULE,4
    11126   01 037E3    60800000 A            CBS,8    0
    11127   01 037E4    000011CC              K        0,0,0,LOC
    11128   01 037E5    100011CE              K        1,0,0,LOC+2
    11129   01 037E6    2466FE08 N            G        S1D1D5,-2,8
    11130   01 037E7    2468FE08 N            G        S1D1D5+2,-2,8
    11131                            *****************************************************************  CBS
    11132                            *
    11133   01 037E8    06E54197 A            MODULE,4
    11134   01 037E9    60800000 A            CBS,8    0
    11135   01 037EA    000011CC              K        0,0,0,LOC
    11136   01 037EB    100011CE              K        1,0,0,LOC+2
    11137   01 037EC    246AFE08 N            G        S1D1E5,-2,8
    11138   01 037ED    246CFE08 N            G        S1D1E5+2,-2,8
    11139                            *****************************************************************  CBS
    11140                            *
    11141   01 037EE    06E64198 A            MODULE,4
    11142   01 037EF    60800000 A            CBS,8    0
    11143   01 037F0    000011CC              K        0,0,0,LOC
    11144   01 037F1    100011CE              K        1,0,0,LOC+2
    11145   01 037F2    246EFE08 N            G        S1D1F5,-2,8
    11146   01 037F3    2470FE08 N            G        S1D1F5+2,-2,8
    11147                            *****************************************************************  CBS
    11148                            *
    11149   01 037F4    06E74199 A            MODULE,4
    11150   01 037F5    60800000 A            CBS,8    0
    11151   01 037F6    000011CC              K        0,0,0,LOC
    11152   01 037F7    100011CE              K        1,0,0,LOC+2
    11153   01 037F8    2472FE08 N            G        S2D227,-2,8
    11154   01 037F9    2474FE08 N            G        S2D227+2,-2,8
    11155                            *****************************************************************  CBS
    11156                            *
    11157   01 037FA    06E8419A A            MODULE,4
    11158   01 037FB    60800000 A            CBS,8    0
    11159   01 037FC    000011CC              K        0,0,0,LOC
    11160   01 037FD    100011CE              K        1,0,0,LOC+2
    11161   01 037FE    2476FE08 N            G        S2D237,-2,8
    11162   01 037FF    2478FE08 N            G        S2D237+2,-2,8
    11163                            *****************************************************************  CBS
    11164                            *
    11165   01 03800    06E9419B A            MODULE,4
    11166   01 03801    60800000 A            CBS,8    0
    11167   01 03802    000011CC              K        0,0,0,LOC
    11168   01 03803    100011CE              K        1,0,0,LOC+2
    11169   01 03804    247AFE08 N            G        S2D246,-2,8
    11170   01 03805    247CFE08 N            G        S2D246+2,-2,8
    11171                            *****************************************************************  CBS
    11172                            *
    11173   01 03806    06EA419C A            MODULE,4
    11174   01 03807    60800000 A            CBS,8    0
    11175   01 03808    000011CC              K        0,0,0,LOC
    11176   01 03809    100011CE              K        1,0,0,LOC+2
    11177   01 0380A    247EFE08 N            G        S2D256,-2,8
    11178   01 0380B    2480FE08 N            G        S2D256+2,-2,8
    11179                            *****************************************************************  CBS
    11180                            *
    11181   01 0380C    06EB419D A            MODULE,4
    11182   01 0380D    60800000 A            CBS,8    0
    11183   01 0380E    000011CC              K        0,0,0,LOC
    11184   01 0380F    100011CE              K        1,0,0,LOC+2
    11185   01 03810    2482FE08 N            G        S2D266,-2,8
    11186   01 03811    2484FE08 N            G        S2D266+2,-2,8
    11187                            *****************************************************************  CBS
    11188                            *
    11189   01 03812    06EC419E A            MODULE,4
    11190   01 03813    60800000 A            CBS,8    0
    11191   01 03814    000011CC              K        0,0,0,LOC
    11192   01 03815    100011CE              K        1,0,0,LOC+2
    11193   01 03816    2486FE08 N            G        S2D276,-2,8
    11194   01 03817    2488FE08 N            G        S2D276+2,-2,8
    11195                            *****************************************************************  CBS
    11196                            *
    11197   01 03818    06ED419F A            MODULE,4
    11198   01 03819    60800000 A            CBS,8    0
    11199   01 0381A    000011CC              K        0,0,0,LOC
    11200   01 0381B    100011CE              K        1,0,0,LOC+2
    11201   01 0381C    248AFE08 N            G        S2D285,-2,8
    11202   01 0381D    248CFE08 N            G        S2D285+2,-2,8
    11203                            *****************************************************************  CBS
    11204                            *
    11205   01 0381E    06EE41A0 A            MODULE,4
    11206   01 0381F    60800000 A            CBS,8    0
    11207   01 03820    000011CC              K        0,0,0,LOC
    11208   01 03821    100011CE              K        1,0,0,LOC+2
    11209   01 03822    248EFE08 N            G        S2D295,-2,8
    11210   01 03823    2490FE08 N            G        S2D295+2,-2,8
    11211                            *****************************************************************  CBS
    11212                            *
    11213   01 03824    06EF41A1 A            MODULE,4
    11214   01 03825    60800000 A            CBS,8    0
    11215   01 03826    000011CC              K        0,0,0,LOC
    11216   01 03827    100011CE              K        1,0,0,LOC+2
    11217   01 03828    2492FE08 N            G        S2D2A5,-2,8
    11218   01 03829    2494FE08 N            G        S2D2A5+2,-2,8
    11219                            *****************************************************************  CBS
    11220                            *
    11221   01 0382A    06F041A2 A            MODULE,4
    11222   01 0382B    60800000 A            CBS,8    0
    11223   01 0382C    000011CC              K        0,0,0,LOC
    11224   01 0382D    100011CE              K        1,0,0,LOC+2
    11225   01 0382E    2496FE08 N            G        S2D2B5,-2,8
    11226   01 0382F    2498FE08 N            G        S2D2B5+2,-2,8
    11227                            *****************************************************************  CBS
    11228                            *
    11229   01 03830    06F141A3 A            MODULE,4
    11230   01 03831    60800000 A            CBS,8    0
    11231   01 03832    000011CC              K        0,0,0,LOC
    11232   01 03833    100011CE              K        1,0,0,LOC+2
    11233   01 03834    249AFE08 N            G        S2D2N5,-2,8
    11234   01 03835    249CFE08 N            G        S2D2N5+2,-2,8
    11235                            *****************************************************************  CBS
    11236                            *
    11237   01 03836    06F241A4 A            MODULE,4
    11238   01 03837    60800000 A            CBS,8    0
    11239   01 03838    000011CC              K        0,0,0,LOC
    11240   01 03839    100011CE              K        1,0,0,LOC+2
    11241   01 0383A    249EFE08 N            G        S2D2D5,-2,8
    11242   01 0383B    24A0FE08 N            G        S2D2D5+2,-2,8
    11243                            *****************************************************************  CBS
    11244                            *
    11245   01 0383C    06F341A5 A            MODULE,4
    11246   01 0383D    60800000 A            CBS,8    0
    11247   01 0383E    000011CC              K        0,0,0,LOC
    11248   01 0383F    100011CE              K        1,0,0,LOC+2
    11249   01 03840    24A2FE08 N            G        S2D2E5,-2,8
    11250   01 03841    24A4FE08 N            G        S2D2E5+2,-2,8
    11251                            *****************************************************************  CBS
    11252                            *
    11253   01 03842    06F441A6 A            MODULE,4
    11254   01 03843    60800000 A            CBS,8    0
    11255   01 03844    000011CC              K        0,0,0,LOC
    11256   01 03845    100011CE              K        1,0,0,LOC+2
    11257   01 03846    24A6FE08 N            G        S2D2F5,-2,8
    11258   01 03847    24A8FE08 N            G        S2D2F5+2,-2,8
    11259                            *****************************************************************  CBS
    11260                            *
    11261   01 03848    06F541A7 A            MODULE,4
    11262   01 03849    60800000 A            CBS,8    0
    11263   01 0384A    000011CC              K        0,0,0,LOC
    11264   01 0384B    100011CE              K        1,0,0,LOC+2
    11265   01 0384C    24AAFE08 N            G        S3D327,-2,8
    11266   01 0384D    24ACFE08 N            G        S3D327+2,-2,8
    11267                            *****************************************************************  CBS
    11268                            *
    11269   01 0384E    06F641A8 A            MODULE,4
    11270   01 0384F    60800000 A            CBS,8    0
    11271   01 03850    000011CC              K        0,0,0,LOC
    11272   01 03851    100011CE              K        1,0,0,LOC+2
    11273   01 03852    24AEFE08 N            G        S3D337,-2,8
    11274   01 03853    24B0FE08 N            G        S3D337+2,-2,8
    11275                            *****************************************************************  CBS
    11276                            *
    11277   01 03854    06F741A9 A            MODULE,4
    11278   01 03855    60800000 A            CBS,8    0
    11279   01 03856    000011CC              K        0,0,0,LOC
    11280   01 03857    100011CE              K        1,0,0,LOC+2
    11281   01 03858    24B2FE08 N            G        S3D346,-2,8
    11282   01 03859    24B4FE08 N            G        S3D346+2,-2,8
    11283                            *****************************************************************  CBS
    11284                            *
    11285   01 0385A    06F841AA A            MODULE,4
    11286   01 0385B    60800000 A            CBS,8    0
    11287   01 0385C    000011CC              K        0,0,0,LOC
    11288   01 0385D    100011CE              K        1,0,0,LOC+2
    11289   01 0385E    24B6FE08 N            G        S3D356,-2,8
    11290   01 0385F    24B8FE08 N            G        S3D356+2,-2,8
    11291                            *****************************************************************  CBS
    11292                            *
    11293   01 03860    06F941AB A            MODULE,4
    11294   01 03861    60800000 A            CBS,8    0
    11295   01 03862    000011CC              K        0,0,0,LOC
    11296   01 03863    100011CE              K        1,0,0,LOC+2
    11297   01 03864    24BAFE08 N            G        S3D366,-2,8
    11298   01 03865    24BCFE08 N            G        S3D366+2,-2,8
    11299                            *****************************************************************  CBS
    11300                            *
    11301   01 03866    06FA41AC A            MODULE,4
    11302   01 03867    60800000 A            CBS,8    0
    11303   01 03868    000011CC              K        0,0,0,LOC
    11304   01 03869    100011CE              K        1,0,0,LOC+2
    11305   01 0386A    24BEFE08 N            G        S3D376,-2,8
    11306   01 0386B    24C0FE08 N            G        S3D376+2,-2,8
    11307                            *****************************************************************  CBS
    11308                            *
    11309   01 0386C    06FB41AD A            MODULE,4
    11310   01 0386D    60800000 A            CBS,8    0
    11311   01 0386E    000011CC              K        0,0,0,LOC
    11312   01 0386F    100011CE              K        1,0,0,LOC+2
    11313   01 03870    24C2FE08 N            G        S3D385,-2,8
    11314   01 03871    24C4FE08 N            G        S3D385+2,-2,8
    11315                            *****************************************************************  CBS
    11316                            *
    11317   01 03872    06FC41AE A            MODULE,4
    11318   01 03873    60800000 A            CBS,8    0
    11319   01 03874    000011CC              K        0,0,0,LOC
    11320   01 03875    100011CE              K        1,0,0,LOC+2
    11321   01 03876    24C6FE08 N            G        S3D395,-2,8
    11322   01 03877    24C8FE08 N            G        S3D395+2,-2,8
    11323                            *****************************************************************  CBS
    11324                            *
    11325   01 03878    06FD41AF A            MODULE,4
    11326   01 03879    60800000 A            CBS,8    0
    11327   01 0387A    000011CC              K        0,0,0,LOC
    11328   01 0387B    100011CE              K        1,0,0,LOC+2
    11329   01 0387C    24CAFE08 N            G        S3D3A5,-2,8
    11330   01 0387D    24CCFE08 N            G        S3D3A5+2,-2,8
    11331                            *****************************************************************  CBS
    11332                            *
    11333   01 0387E    06FE41B0 A            MODULE,4
    11334   01 0387F    60800000 A            CBS,8    0
    11335   01 03880    000011CC              K        0,0,0,LOC
    11336   01 03881    100011CE              K        1,0,0,LOC+2
    11337   01 03882    24CEFE08 N            G        S3D3B5,-2,8
    11338   01 03883    24D0FE08 N            G        S3D3B5+2,-2,8
    11339                            *****************************************************************  CBS
    11340                            *
    11341   01 03884    06FF41B1 A            MODULE,4
    11342   01 03885    60800000 A            CBS,8    0
    11343   01 03886    000011CC              K        0,0,0,LOC
    11344   01 03887    100011CE              K        1,0,0,LOC+2
    11345   01 03888    24D2FE08 N            G        S3D3N5,-2,8
    11346   01 03889    24D4FE08 N            G        S3D3N5+2,-2,8
    11347                            *****************************************************************  CBS
    11348                            *
    11349   01 0388A    060041B2 A            MODULE,4
    11350   01 0388B    60800000 A            CBS,8    0
    11351   01 0388C    000011CC              K        0,0,0,LOC
    11352   01 0388D    100011CE              K        1,0,0,LOC+2
    11353   01 0388E    24D6FE08 N            G        S3D3D5,-2,8
    11354   01 0388F    24D8FE08 N            G        S3D3D5+2,-2,8
    11355                            *****************************************************************  CBS
    11356                            *
    11357   01 03890    060141B3 A            MODULE,4
    11358   01 03891    60800000 A            CBS,8    0
    11359   01 03892    000011CC              K        0,0,0,LOC
    11360   01 03893    100011CE              K        1,0,0,LOC+2
    11361   01 03894    24DAFE08 N            G        S3D3E5,-2,8
    11362   01 03895    24DCFE08 N            G        S3D3E5+2,-2,8
    11363                            *****************************************************************  CBS
    11364                            *
    11365   01 03896    060241B4 A            MODULE,4
    11366   01 03897    60800000 A            CBS,8    0
    11367   01 03898    000011CC              K        0,0,0,LOC
    11368   01 03899    100011CE              K        1,0,0,LOC+2
    11369   01 0389A    24DEFE08 N            G        S3D3F5,-2,8
    11370   01 0389B    24E0FE08 N            G        S3D3F5+2,-2,8
    11371                            *****************************************************************  CVA
    11372                            *                                   CC=0
    11373                            *                                   RU1=0 INPUT, R=0 OUTPUT
    11374                            *
    11375   01 0389C    060101B5 A            MODULE   X'29'
    11376   01 0389D    29C01F45              CVA,12   CVT
    11377   01 0389E    000011CC              K        0,0,0,LOC
    11378   01 0389F    000011CE              K        0,0,0,LOC+2
    11379   01 038A0    1D72FE0C N            G        DTA3-1,-2,12
    11380   01 038A1    00000000 A            G        0,0,0
    11381                            *****************************************************************  CBS
    11382                            *                                   CC=4
    11383                            *                                   RU1=X'80000000'IN,R=X'80000000'OUT
    11384                            *
    11385   01 038A2    060201B6 A            MODULE
    11386   01 038A3    29001F45              CVA,0    CVT
    11387   01 038A4    000011CC              K        0,0,0,LOC
    11388   01 038A5    100011CE              K        1,0,0,LOC+2
    11389   01 038A6    1F44FE00 N            G        CVT-1,-2,0
    11390   01 038A7    1FA7FE00 N            G        CVTO,-2,0
    11391                            *****************************************************************  CVA
    11392                            *                                   CC=2
    11393                            *                                   RU1=1 IN, R=1 OUT
    11394                            *
    11395   01 038A8    060301B7 A            MODULE
    11396   01 038A9    29201F45              CVA,2    CVT
    11397   01 038AA    B00011CC              K        11,0,0,LOC
    11398   01 038AB    200011CE              K        2,0,0,LOC+2
    11399   01 038AC    1D73FE02 N            G        DTA3,-2,2
    11400   01 038AD    1FA9FE02 N            G        CVAT-2,-2,2
    11401                            *****************************************************************  CVA
    11402                            *                                   CC=1 AND 4
    11403                            *                                   RU1=X'C0000000'IN, R=1 OUT
    11404                            *
    11405   01 038AE    060401B8 A            MODULE
    11406   01 038AF    29401F44              CVA,4    CVT-1
    11407   01 038B0    000011CC              K        0,0,0,LOC         PSW1, IN
    11408   01 038B1    A00011CE              K        10,0,0,LOC+2
    11409   01 038B2    1FABFF05 N            G        CVAC1-1,-1,5
    11410   01 038B3    1FAAFE04 N            G        CVAT-1,-2,4
    11411                            *****************************************************************  CVA
    11412                            *                                   INDIRECT ADDRESSING AND INDEXING
    11413                            *                                   CC=2
    11414                            *                                   R=-1   IN, RU1=X'55555555' OUT
    11415   01 038B4    060501B9 A            MODULE
    11416   01 038B5    A96A1FA6              CVA,6    *IDCVT,5
    11417   01 038B6    000011CC              K        0,0,0,LOC
    11418   01 038B7    200011CE              K        2,0,0,LOC+2
    11419   01 038B8    1FAEFD05 N            G        IX,-3,5
    11420   01 038B9    1FB4FD05 N            G        IXO1,-3,5
    11421                            *****************************************************************  CVA
    11422                            *                                   CC=1
    11423                            *                                   RU1 =X'7FFFFFF', R=X'BFFFFFFF'
    11424   01 038BA    060601BA A            MODULE
    11425   01 038BB    29801F46              CVA,8    CVT+1
    11426   01 038BC    A00011CC              K        10,0,0,LOC
    11427   01 038BD    100011CE              K        1,0,0,LOC+2
    11428   01 038BE    1F64FE08 N            G        CVT+31,-2,8
    11429   01 038BF    1FACFE08 N            G        CVAC1,-2,8
    11430                            *****************************************************************  CVS
    11431                            *                                   CC=1,      AND RU1 OUT =X'BBBBBBBB'
    11432                            *
    11433   01 038C0    060101BB A            MODULE   X'28'
    11434   01 038C1    28A01F45              CVS,10   CVT
    11435   01 038C2    300011CC              K        3,0,0,LOC
    11436   01 038C3    100011CE              K        1,0,0,LOC+2
    11437   01 038C4    1D6CFE0A N            G        DTA2+14,-2,10
    11438   01 038C5    1D6CFF0B N            G        DTA2+14,-1,11
    11439                            *****************************************************************  CVS
    11440                            *                                   CC=1       = BFFFFFFE
    11441                            *                                    =     3FFFFFFF, RU1=-2
    11442                            *
    11443   01 038C6    060201BC A            MODULE
    11444   01 038C7    28E01F46              CVS,14   CVT+1
    11445   01 038C8    000011CC              K        0,0,0,LOC         PSW IN
    11446   01 038C9    100011CE              K        1,0,0,LOC+2
    11447   01 038CA    1FACFF0E N            G        CVAC1,-1,14
    11448   01 038CB    1D86FE0E N            G        DTA6,-2,14
    11449                            *****************************************************************  CVS
    11450                            *                                   CC=13
    11451                            *                                   SUB EACH TIME EXCEPT LAST
    11452   01 038CC    060301BD A            MODULE
    11453   01 038CD    28C01F46              CVS,12   CVT+1
    11454   01 038CE    F70011CC              K        15,7,0,LOC
    11455   01 038CF    D70011CE              K        13,7,0,LOC+2
    11456   01 038D0    1D6FFE0C N            G        DTA3-4,-2,12
    11457   01 038D1    1D88FE0C N            G        DTA6+2,-2,12
    11458                            *****************************************************************  CVS
    11459                            *                                   CC=4,     AND R OUT=1, RU1=0
    11460   01 038D2    060401BE A            MODULE
    11461   01 038D3    28001F44              CVS,0    CVT-1
    11462   01 038D4    700011CC              K        7,0,0,LOC
    11463   01 038D5    400011CE              K        4,0,0,LOC+2
    11464   01 038D6    1F64FE00 N            G        CVT+31,-2,0
    11465   01 038D7    1D8AFE00 N            G        DTA6+4,-2,0        :     R=1, RU1=0
    11466                            *****************************************************************  CVS
    11467                            *                                   INDIRECT ADDRESSING AND INDEXING
    11468                            *                                   SUBTRACT EACH TIME
    11469                            *                                        IS -1, R OUT= 0, RU1=-1
    11470   01 038D8    060501BF A            MODULE
    11471   01 038D9    A8461FA6              CVS,4    *IDCVT,3
    11472   01 038DA    000011CC              K        0,0,0,LOC
    11473   01 038DB    100011CE              K        1,0,0,LOC+2       PSW1 OUY
    11474   01 038DC    1FAEFE03 N            G        IX,-2,3
    11475   01 038DD    1FB1FD03 N            G        IXO,-3,3
    11476                            *****************************************************************  CVS
    11477                            *                                   SUB ON ALTERNATE BITS (EVEN)
    11478                            *                                    =    A'S, R=0, RU1= A'S
    11479   01 038DE    060601C0 A            MODULE
    11480   01 038DF    28601F45              CVS,6    CVT
    11481   01 038E0    000011CC              K        0,0,0,LOC
    11482   01 038E1    100011CE              K        1,0,0,LOC+2
    11483   01 038E2    1D6BFF06 N            G        DTA2+13,-1,6
    11484   01 038E3    1D8DFE06 N            G        DTA6+7,-2,6
    11485                            *****************************************************************  CVS
    11486                            *                                   SUBTRACT ALTERNATE BITS (ODD
    11487                            *                                    =    5'S, R=0, RU1= ALL 5'S
    11488   01 038E4    060701C1 A            MODULE
    11489   01 038E5    28601F45              CVS,6    CVT
    11490   01 038E6    000011CC              K        0,0,0,LOC
    11491   01 038E7    200011CE              K        2,0,0,LOC+2
    11492   01 038E8    1D90FF06 N            G        DTA6+10,-1,6
    11493   01 038E9    1D8FFE06 N            G        DTA6+9,-2,6
    11494                            *
    11495         000001C1           LAST:9R  SET      MODULE#                                           *A05
    11496                            *
    11497                            ********************************************************************TBS
    11498                            *                                   CASE 1--NONEZERO R FIELD, RU1=R+1
    11499                            *                                   WORD BOUNDARIES, COUNT=0, CC=0
    11500   01 038EA    080141C2 A            MODULE,4 X'41'
    11501   01 038EB    41E00000 A            TBS,14   0
    11502   01 038EC    000011CC              K        0,0,0,LOC
    11503   01 038ED    000011CE              K        0,0,0,LOC+2
    11504   01 038EE    1FE5FE0E N            G        SR1,-2,14
    11505   01 038EF    1FE5FE0E N            G        SR1,-2,14
    11506   01 038F0    1F66FF00 N            G        TRTB,-1,0
    11507   01 038F1    1F66FF00 N            G        TRTB,-1,0
    11508                            ********************************************************************TBS
    11509                            *                                   CASE 1--NONEZERO R FIELD, RU1=R+1
    11510                            *                                   WORD BOUNDARIES, COUNT=4, CC=0
    11511                            *
    11512   01 038F2    080241C3 A            MODULE,4
    11513   01 038F3    41C00000 A            TBS,12   0
    11514   01 038F4    000011CC              K        0,0,0,LOC
    11515   01 038F5    000011CE              K        0,0,0,LOC+2
    11516   01 038F6    1FE9FE0C N            G        SR2,-2,12
    11517   01 038F7    2002FE0C N            G        SR8A,-2,12
    11518   01 038F8    1F66FF00 N            G        TRTB,-1,0
    11519   01 038F9    1D4EFF00 N            G        DTA1,-1,0
    11520                            ********************************************************************TBS
    11521                            *                                   CASE1-- NONZERO R FIELD, RU1=R+1
    11522                            *                                   BOUNDARIES-- SOURCE=BYTE 1, DESTINA-
    11523                            *                                   TION=BYTE 0, COUNT=3, CC=0
    11524   01 038FA    080341C4 A            MODULE,4
    11525   01 038FB    41A00001 A            TBS,10   1
    11526   01 038FC    000011CC              K        0,0,0,LOC
    11527   01 038FD    000011CE              K        0,0,0,LOC+2
    11528   01 038FE    201DFE0A N            G        SR15,-2,10
    11529   01 038FF    201FFE0A N            G        SRR15,-2,10
    11530   01 03900    1F66FF00 N            G        TRTB,-1,0
    11531   01 03901    1D83FF00 N            G        DTA5+5,-1,0
    11532                            ********************************************************************TBS
    11533                            *                                   CASE 3-- ZERO R FIELD, RU1=1
    11534                            *                                   BOUNDARIES-- SOURCE=BYTE 0, DESTINA-
    11535                            *                                   TION=BYTE, COUNT=4, CC=0
    11536   01 03902    080441C5 A            MODULE,4
    11537   01 03903    41007540              TBS,0    BA(DTA1+2)
    11538   01 03904    000011CC              K        0,0,0,LOC
    11539   01 03905    000011CE              K        0,0,0,LOC+2
    11540   01 03906    1FEAFF01 N            G        DT2,-1,1
    11541   01 03907    1FECFF01 N            G        DTT2,-1,1
    11542   01 03908    1F66FF00 N            G        TRTB,-1,0
    11543   01 03909    1D50FF00 N            G        DTA1+2,-1,0
    11544                            ********************************************************************TBS
    11545                            *                                   COUNT=255
    11546                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11547                            *                                   WORD BOUNDARIES, CC=0
    11548   01 0390A    080541C6 A            MODULE,4
    11549   01 0390B    41A00000 A            TBS,10   0
    11550   01 0390C    000011CC              K        0,0,0,LOC
    11551   01 0390D    000011CE              K        0,0,0,LOC+2
    11552   01 0390E    200CFE0A N            G        SR11,-2,10
    11553   01 0390F    200FFE0A N            G        SRR11,-2,10
    11554   01 03910    1F66C100 N            G        TRTB,-63,0        M IN
    11555   01 03911    1D4EC100 N            G        DTA1,-63,0        M OUT
    11556                            ********************************************************************TBS
    11557                            *                                   NONEXISTENT INSTRUCTION TRAP VIA
    11558                            *                                   INDIRECT ADDRESSING
    11559   01 03912    080611C7 A            MODULE,1
    11560   01 03913    C1807F98              GEN,12,1,19 X'C18',0,BA(DT1)  INSTRUCTION:   TBS,8   *BA(DT1)
    11561   01 03914    000011CC              K        0,0,0,LOC
    11562   01 03915    80001023              K        8,0,0,EXP:TRAP+13
    11563   01 03916    2004FE08 N            G        SR9,-2,8
    11564   01 03917    2004FE08 N            G        SR9,-2,8
    11565   01 03918    1F66FE01 N            G        TRTB,-2,1
    11566   01 03919    1F66FE01 N            G        TRTB,-2,1
    11567                            *****************************************************************  TBS
    11568                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11569                            *                                   COUNT=2, CC=0
    11570                            *
    11571   01 0391A    080741C8 A            MODULE,4
    11572   01 0391B    41EFFFFD A            TBS,14   -3
    11573   01 0391C    000011CC              K        0,0,0,LOC
    11574   01 0391D    000011CE              K        0,0,0,LOC+2
    11575   01 0391E    1FF5FE0E N            G        SR5,-2,14
    11576   01 0391F    1FF9FE0E N            G        SRR5A,-2,14
    11577   01 03920    1F66FF00 N            G        TRTB,-1,0
    11578   01 03921    1D84FF00 N            G        DTA5+6,-1,0
    11579                            ***************************************************************** TTBS
    11580                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11581                            *                                   BOUNDARIES-- SOURCE=BYTE 1, DESTINA-
    11582                            *                                   TION=BYTE 0, COUNT=3, CC=0, MASK=0
    11583   01 03922    080141C9 A            MODULE,4 X'40'
    11584   01 03923    40200000 A            TTBS,2   0
    11585   01 03924    000011CC              K        0,0,0,LOC
    11586   01 03925    000011CE              K        0,0,0,LOC+2
    11587   01 03926    201DFE02 N            G        SR15,-2,2
    11588   01 03927    201FFE02 N            G        SRR15,-2,2
    11589   01 03928    1F66FF00 N            G        TRTB,-1,0
    11590   01 03929    1F66FF00 N            G        TRTB,-1,0
    11591                            ***************************************************************** TTBS
    11592                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11593                            *                                   MASK=X'80', CC=1, COUNT=6
    11594   01 0392A    080241CA A            MODULE,4
    11595   01 0392B    40400000 A            TTBS,4   0
    11596   01 0392C    000011CC              K        0,0,0,LOC
    11597   01 0392D    100011CE              K        1,0,0,LOC+2
    11598   01 0392E    2021FE04 N            G        SR16,-2,4
    11599   01 0392F    2023FE04 N            G        SRR16,-2,4
    11600   01 03930    1F66FE00 N            G        TRTB,-2,0
    11601   01 03931    1F66FE00 N            G        TRTB,-2,0
    11602                            ***************************************************************** TTBS
    11603                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11604                            *                                   MASK=X'40', CC=1, COUNT=6
    11605   01 03932    080341CB A            MODULE,4
    11606   01 03933    40400000 A            TTBS,4   0
    11607   01 03934    000011CC              K        0,0,0,LOC
    11608   01 03935    100011CE              K        1,0,0,LOC+2
    11609   01 03936    2025FE04 N            G        SR17,-2,4
    11610   01 03937    2027FE04 N            G        SRR17,-2,4
    11611   01 03938    1F66FE02 N            G        TRTB,-2,2
    11612   01 03939    1F66FE02 N            G        TRTB,-2,2
    11613                            ***************************************************************** TTBS
    11614                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11615                            *                                   MASK=X'20', CC=1, COUNT= 6
    11616   01 0393A    080441CC A            MODULE,4
    11617   01 0393B    40600000 A            TTBS,6   0
    11618   01 0393C    000011CC              K        0,0,0,LOC
    11619   01 0393D    100011CE              K        1,0,0,LOC+2
    11620   01 0393E    2029FE06 N            G        SR18,-2,6
    11621   01 0393F    202BFE06 N            G        SRR18,-2,6
    11622   01 03940    1F66FE00 N            G        TRTB,-2,0
    11623   01 03941    1F66FE00 N            G        TRTB,-2,0         M OUT
    11624                            ***************************************************************** TTBS
    11625                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11626                            *                                   MASK=X'10', CC=1, COUNT=7
    11627   01 03942    080541CD A            MODULE,4
    11628   01 03943    40800000 A            TTBS,8   0
    11629   01 03944    000011CC              K        0,0,0,LOC
    11630   01 03945    100011CE              K        1,0,0,LOC+2
    11631   01 03946    202DFE08 N            G        SR19,-2,8
    11632   01 03947    202FFE08 N            G        SRR19,-2,8
    11633   01 03948    1F66FE00 N            G        TRTB,-2,0
    11634   01 03949    1F66FE00 N            G        TRTB,-2,0         M OUT
    11635                            ***************************************************************** TTBS
    11636                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11637                            *                                   MASK=X'08', CC=1, COUNT=3
    11638   01 0394A    080641CE A            MODULE,4
    11639   01 0394B    40600000 A            TTBS,6   0
    11640   01 0394C    000011CC              K        0,0,0,LOC
    11641   01 0394D    100011CE              K        1,0,0,LOC+2
    11642   01 0394E    2031FE06 N            G        SR20,-2,6
    11643   01 0394F    2031FE06 N            G        SR20,-2,6
    11644   01 03950    1F66FF03 N            G        TRTB,-1,3
    11645   01 03951    1F66FF03 N            G        TRTB,-1,3
    11646                            ***************************************************************** TTBS
    11647                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11648                            *                                   MASK=X'04', CC=1, COUNT=2
    11649   01 03952    080741CF A            MODULE,4
    11650   01 03953    40400000 A            TTBS,4   0
    11651   01 03954    000011CC              K        0,0,0,LOC
    11652   01 03955    100011CE              K        1,0,0,LOC+2
    11653   01 03956    2033FE04 N            G        SR21,-2,4
    11654   01 03957    2033FE04 N            G        SR21,-2,4
    11655   01 03958    1F66FF00 N            G        TRTB,-1,0
    11656   01 03959    1F66FF00 N            G        TRTB,-1,0
    11657                            ***************************************************************** TTBS
    11658                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11659                            *                                   MASK=X'02', CC=15, COUNT=1
    11660                            *
    11661   01 0395A    080841D0 A            MODULE,4
    11662   01 0395B    40400003 A            TTBS,4   +3
    11663   01 0395C    F00011CC              K        15,0,0,LOC
    11664   01 0395D    F00011CE              K        15,0,0,LOC+2
    11665   01 0395E    2035FE04 N            G        SR22,-2,4
    11666   01 0395F    2035FE04 N            G        SR22,-2,4
    11667   01 03960    1F66FF00 N            G        TRTB,-1,0
    11668   01 03961    1F66FF00 N            G        TRTB,-1,0
    11669                            ***************************************************************** TTBS
    11670                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11671                            *                                   MASK=X'01', CC=1, COUNT=9
    11672                            *
    11673   01 03962    080941D1 A            MODULE,4
    11674   01 03963    40200004 A            TTBS,2   4
    11675   01 03964    000011CC              K        0,0,0,LOC
    11676   01 03965    100011CE              K        1,0,0,LOC+2
    11677   01 03966    2037FE02 N            G        SR23,-2,2
    11678   01 03967    2037FE02 N            G        SR23,-2,2
    11679   01 03968    1F66FF00 N            G        TRTB,-1,0
    11680   01 03969    1F66FF00 N            G        TRTB,-1,0
    11681                            ***************************************************************** TTBS
    11682                            *                                   CASE 3-- ZERO R FIELD, RU1=R+1
    11683                            *                                   MASK IS AUTOMATICALLY = X'FF'  CC=1
    11684   01 0396A    080A41D2 A            MODULE,4
    11685   01 0396B    40007538              TTBS,0   BA(DTA1)
    11686   01 0396C    E00011CC              K        14,0,0,LOC
    11687   01 0396D    F00011CE              K        15,0,0,LOC+2      PSW2 OUT
    11688   01 0396E    2039FF01 N            G        DT24,-1,1
    11689   01 0396F    203AFE00 N            G        SRR24,-2,0
    11690   01 03970    1F66FF00 N            G        TRTB,-1,0
    11691   01 03971    1F66FF00 N            G        TRTB,-1,0
    11692                            ***************************************************************** TTBS
    11693                            *                                   CASE 1-- NONZERO R FIELD, RU1=R+1
    11694                            *                                   MASK=0, CC=0, COUNT=255
    11695   01 03972    080B41D3 A            MODULE,4
    11696   01 03973    40E00008 A            TTBS,14  8
    11697   01 03974    000011CC              K        0,0,0,LOC
    11698   01 03975    000011CE              K        0,0,0,LOC+2
    11699   01 03976    200CFE0E N            G        SR11,-2,14
    11700   01 03977    200FFE0E N            G        SRR11,-2,14
    11701   01 03978    00000000 A            G        0,0,0
    11702   01 03979    00000000 A            G        0,0,0
    11703                            ***************************************************************** TTBS
    11704                            *                                   CASE 3-- 0 R FILED,RU1=R+1,NONEXIS-
    11705                            *                                   TENT INSTRUCTION TRAP VIA INDIRECT
    11706                            *                                   ADDRESSING,MASK=X'FF',CC=0,COUNT=4
    11707   01 0397A    060C11D4 A            MODULE,1
    11708   01 0397B    C0C075CC              GEN,12,1,19 X'C0C',0,BA(DTA3)    TTBS,12  *BA(DTA3)
    11709   01 0397C    000011CC              K        0,0,0,LOC
    11710   01 0397D    80001023              K        8,0,0,EXP:TRAP+13
    11711   01 0397E    2039FF01 N            G        DT24,-1,1
    11712   01 0397F    2039FF01 N            G        DT24,-1,1
    11713                            ***************************************************************** TTBS
    11714                            *
    11715   01 03980    060D41D5 A            MODULE,4
    11716   01 03981    40800000 A           TTBS,8    0
    11717   01 03982    000011CC              K        0,0,0,LOC
    11718   01 03983    100011CE              K        1,0,0,LOC+2
    11719   01 03984    2042FE08 N            G        S0DXC1,-2,8
    11720   01 03985    2044FE08 N            G        S0DXC1+2,-2,8
    11721                            ***************************************************************** TTBS
    11722                            *
    11723   01 03986    060E41D6 A            MODULE,4
    11724   01 03987    40800000 A           TTBS,8    0
    11725   01 03988    000011CC              K        0,0,0,LOC
    11726   01 03989    100011CE              K        1,0,0,LOC+2
    11727   01 0398A    2046FE08 N            G        S1DXC1,-2,8
    11728   01 0398B    2048FE08 N            G        S1DXC1+2,-2,8
    11729                            ***************************************************************** TTBS
    11730                            *
    11731   01 0398C    060F41D7 A            MODULE,4
    11732   01 0398D    40800000 A           TTBS,8    0
    11733   01 0398E    000011CC              K        0,0,0,LOC
    11734   01 0398F    100011CE              K        1,0,0,LOC+2
    11735   01 03990    204AFE08 N            G        S2DXC1,-2,8
    11736   01 03991    204CFE08 N            G        S2DXC1+2,-2,8
    11737                            ***************************************************************** TTBS
    11738                            *
    11739   01 03992    061041D8 A            MODULE,4
    11740   01 03993    40800000 A           TTBS,8    0
    11741   01 03994    000011CC              K        0,0,0,LOC
    11742   01 03995    100011CE              K        1,0,0,LOC+2
    11743   01 03996    204EFE08 N            G        S3DXC1,-2,8
    11744   01 03997    2050FE08 N            G        S3DXC1+2,-2,8
    11745                            ***************************************************************** TTBS
    11746                            *
    11747   01 03998    061141D9 A            MODULE,4
    11748   01 03999    40800000 A           TTBS,8    0
    11749   01 0399A    000011CC              K        0,0,0,LOC
    11750   01 0399B    100011CE              K        1,0,0,LOC+2
    11751   01 0399C    2052FE08 N            G        S0DXC2,-2,8
    11752   01 0399D    2054FE08 N            G        S0DXC2+2,-2,8
    11753                            ***************************************************************** TTBS
    11754                            *
    11755   01 0399E    061241DA A            MODULE,4
    11756   01 0399F    40800000 A           TTBS,8    0
    11757   01 039A0    000011CC              K        0,0,0,LOC
    11758   01 039A1    100011CE              K        1,0,0,LOC+2
    11759   01 039A2    2056FE08 N            G        S1DXC2,-2,8
    11760   01 039A3    2058FE08 N            G        S1DXC2+2,-2,8
    11761                            ***************************************************************** TTBS
    11762                            *
    11763   01 039A4    061341DB A            MODULE,4
    11764   01 039A5    40800000 A           TTBS,8    0
    11765   01 039A6    000011CC              K        0,0,0,LOC
    11766   01 039A7    100011CE              K        1,0,0,LOC+2
    11767   01 039A8    205AFE08 N            G        S2DXC2,-2,8
    11768   01 039A9    205CFE08 N            G        S2DXC2+2,-2,8
    11769                            ***************************************************************** TTBS
    11770                            *
    11771   01 039AA    061441DC A            MODULE,4
    11772   01 039AB    40800000 A           TTBS,8    0
    11773   01 039AC    000011CC              K        0,0,0,LOC
    11774   01 039AD    100011CE              K        1,0,0,LOC+2
    11775   01 039AE    205EFE08 N            G        S3DXC2,-2,8
    11776   01 039AF    2060FE08 N            G        S3DXC2+2,-2,8
    11777                            ***************************************************************** TTBS
    11778                            *
    11779   01 039B0    061541DD A            MODULE,4
    11780   01 039B1    40800000 A           TTBS,8    0
    11781   01 039B2    000011CC              K        0,0,0,LOC
    11782   01 039B3    100011CE              K        1,0,0,LOC+2
    11783   01 039B4    2062FE08 N            G        S0DXC3,-2,8
    11784   01 039B5    2064FE08 N            G        S0DXC3+2,-2,8
    11785                            ***************************************************************** TTBS
    11786                            *
    11787   01 039B6    061641DE A            MODULE,4
    11788   01 039B7    40800000 A           TTBS,8    0
    11789   01 039B8    000011CC              K        0,0,0,LOC
    11790   01 039B9    100011CE              K        1,0,0,LOC+2
    11791   01 039BA    2066FE08 N            G        S1DXC3,-2,8
    11792   01 039BB    2068FE08 N            G        S1DXC3+2,-2,8
    11793                            ***************************************************************** TTBS
    11794                            *
    11795   01 039BC    061741DF A            MODULE,4
    11796   01 039BD    40800000 A           TTBS,8    0
    11797   01 039BE    000011CC              K        0,0,0,LOC
    11798   01 039BF    100011CE              K        1,0,0,LOC+2
    11799   01 039C0    206AFE08 N            G        S2DXC3,-2,8
    11800   01 039C1    206CFE08 N            G        S2DXC3+2,-2,8
    11801                            ***************************************************************** TTBS
    11802                            *
    11803   01 039C2    061841E0 A            MODULE,4
    11804   01 039C3    40800000 A           TTBS,8    0
    11805   01 039C4    000011CC              K        0,0,0,LOC
    11806   01 039C5    100011CE              K        1,0,0,LOC+2
    11807   01 039C6    206EFE08 N            G        S3DXC3,-2,8
    11808   01 039C7    2070FE08 N            G        S3DXC3+2,-2,8
    11809                            ***************************************************************** TTBS
    11810                            *
    11811   01 039C8    061941E1 A            MODULE,4
    11812   01 039C9    40800000 A           TTBS,8    0
    11813   01 039CA    000011CC              K        0,0,0,LOC
    11814   01 039CB    100011CE              K        1,0,0,LOC+2
    11815   01 039CC    2072FE08 N            G        S0DXC4,-2,8
    11816   01 039CD    2074FE08 N            G        S0DXC4+2,-2,8
    11817                            ***************************************************************** TTBS
    11818                            *
    11819   01 039CE    061A41E2 A            MODULE,4
    11820   01 039CF    40800000 A           TTBS,8    0
    11821   01 039D0    000011CC              K        0,0,0,LOC
    11822   01 039D1    100011CE              K        1,0,0,LOC+2
    11823   01 039D2    2076FE08 N            G        S1DXC4,-2,8
    11824   01 039D3    2078FE08 N            G        S1DXC4+2,-2,8
    11825                            ***************************************************************** TTBS
    11826                            *
    11827   01 039D4    061B41E3 A            MODULE,4
    11828   01 039D5    40800000 A           TTBS,8    0
    11829   01 039D6    000011CC              K        0,0,0,LOC
    11830   01 039D7    100011CE              K        1,0,0,LOC+2
    11831   01 039D8    207AFE08 N            G        S2DXC4,-2,8
    11832   01 039D9    207CFE08 N            G        S2DXC4+2,-2,8
    11833                            ***************************************************************** TTBS
    11834                            *
    11835   01 039DA    061C41E4 A            MODULE,4
    11836   01 039DB    40800000 A           TTBS,8    0
    11837   01 039DC    000011CC              K        0,0,0,LOC
    11838   01 039DD    100011CE              K        1,0,0,LOC+2
    11839   01 039DE    207EFE08 N            G        S3DXC4,-2,8
    11840   01 039DF    2080FE08 N            G        S3DXC4+2,-2,8
    11841                            ***************************************************************** TTBS
    11842                            *
    11843   01 039E0    061D41E5 A            MODULE,4
    11844   01 039E1    40800000 A           TTBS,8    0
    11845   01 039E2    000011CC              K        0,0,0,LOC
    11846   01 039E3    100011CE              K        1,0,0,LOC+2
    11847   01 039E4    2082FE08 N            G        S0DXC5,-2,8
    11848   01 039E5    2084FE08 N            G        S0DXC5+2,-2,8
    11849                            ***************************************************************** TTBS
    11850                            *
    11851   01 039E6    061E41E6 A            MODULE,4
    11852   01 039E7    40800000 A           TTBS,8    0
    11853   01 039E8    000011CC              K        0,0,0,LOC
    11854   01 039E9    100011CE              K        1,0,0,LOC+2
    11855   01 039EA    2086FE08 N            G        S1DXC5,-2,8
    11856   01 039EB    2088FE08 N            G        S1DXC5+2,-2,8
    11857                            ***************************************************************** TTBS
    11858                            *
    11859   01 039EC    061F41E7 A            MODULE,4
    11860   01 039ED    40800000 A           TTBS,8    0
    11861   01 039EE    000011CC              K        0,0,0,LOC
    11862   01 039EF    100011CE              K        1,0,0,LOC+2
    11863   01 039F0    208AFE08 N            G        S2DXC5,-2,8
    11864   01 039F1    208CFE08 N            G        S2DXC5+2,-2,8
    11865                            ***************************************************************** TTBS
    11866                            *
    11867   01 039F2    062041E8 A            MODULE,4
    11868   01 039F3    40800000 A           TTBS,8    0
    11869   01 039F4    000011CC              K        0,0,0,LOC
    11870   01 039F5    100011CE              K        1,0,0,LOC+2
    11871   01 039F6    208EFE08 N            G        S3DXC5,-2,8
    11872   01 039F7    2090FE08 N            G        S3DXC5+2,-2,8
    11873                            ***************************************************************** TTBS
    11874                            *
    11875   01 039F8    062141E9 A            MODULE,4
    11876   01 039F9    40800000 A           TTBS,8    0
    11877   01 039FA    000011CC              K        0,0,0,LOC
    11878   01 039FB    100011CE              K        1,0,0,LOC+2
    11879   01 039FC    2092FE08 N            G        S0DXC6,-2,8
    11880   01 039FD    2094FE08 N            G        S0DXC6+2,-2,8
    11881                            ***************************************************************** TTBS
    11882                            *
    11883   01 039FE    062241EA A            MODULE,4
    11884   01 039FF    40800000 A           TTBS,8    0
    11885   01 03A00    000011CC              K        0,0,0,LOC
    11886   01 03A01    100011CE              K        1,0,0,LOC+2
    11887   01 03A02    2096FE08 N            G        S1DXC6,-2,8
    11888   01 03A03    2098FE08 N            G        S1DXC6+2,-2,8
    11889                            ***************************************************************** TTBS
    11890                            *
    11891   01 03A04    062341EB A            MODULE,4
    11892   01 03A05    40800000 A           TTBS,8    0
    11893   01 03A06    000011CC              K        0,0,0,LOC
    11894   01 03A07    100011CE              K        1,0,0,LOC+2
    11895   01 03A08    209AFE08 N            G        S2DXC6,-2,8
    11896   01 03A09    209CFE08 N            G        S2DXC6+2,-2,8
    11897                            ***************************************************************** TTBS
    11898                            *
    11899   01 03A0A    062441EC A            MODULE,4
    11900   01 03A0B    40800000 A           TTBS,8    0
    11901   01 03A0C    000011CC              K        0,0,0,LOC
    11902   01 03A0D    100011CE              K        1,0,0,LOC+2
    11903   01 03A0E    209EFE08 N            G        S3DXC6,-2,8
    11904   01 03A0F    20A0FE08 N            G        S3DXC6+2,-2,8
    11905                            ***************************************************************** TTBS
    11906                            *
    11907   01 03A10    062541ED A            MODULE,4
    11908   01 03A11    40800000 A           TTBS,8    0
    11909   01 03A12    000011CC              K        0,0,0,LOC
    11910   01 03A13    100011CE              K        1,0,0,LOC+2
    11911   01 03A14    20A2FE08 N            G        S0DXC7,-2,8
    11912   01 03A15    20A4FE08 N            G        S0DXC7+2,-2,8
    11913                            ***************************************************************** TTBS
    11914                            *
    11915   01 03A16    062641EE A            MODULE,4
    11916   01 03A17    40800000 A           TTBS,8    0
    11917   01 03A18    000011CC              K        0,0,0,LOC
    11918   01 03A19    100011CE              K        1,0,0,LOC+2
    11919   01 03A1A    20A6FE08 N            G        S1DXC7,-2,8
    11920   01 03A1B    20A8FE08 N            G        S1DXC7+2,-2,8
    11921                            ***************************************************************** TTBS
    11922                            *
    11923   01 03A1C    062741EF A            MODULE,4
    11924   01 03A1D    40800000 A           TTBS,8    0
    11925   01 03A1E    000011CC              K        0,0,0,LOC
    11926   01 03A1F    100011CE              K        1,0,0,LOC+2
    11927   01 03A20    20AAFE08 N            G        S2DXC7,-2,8
    11928   01 03A21    20ACFE08 N            G        S2DXC7+2,-2,8
    11929                            ***************************************************************** TTBS
    11930                            *
    11931   01 03A22    062841F0 A            MODULE,4
    11932   01 03A23    40800000 A           TTBS,8    0
    11933   01 03A24    000011CC              K        0,0,0,LOC
    11934   01 03A25    100011CE              K        1,0,0,LOC+2
    11935   01 03A26    20AEFE08 N            G        S3DXC7,-2,8
    11936   01 03A27    20B0FE08 N            G        S3DXC7+2,-2,8
    11937                            ***************************************************************** TTBS
    11938                            *
    11939   01 03A28    062941F1 A            MODULE,4
    11940   01 03A29    40800000 A           TTBS,8    0
    11941   01 03A2A    000011CC              K        0,0,0,LOC
    11942   01 03A2B    100011CE              K        1,0,0,LOC+2
    11943   01 03A2C    20B2FE08 N            G        S0DXC8,-2,8
    11944   01 03A2D    20B4FE08 N            G        S0DXC8+2,-2,8
    11945                            ***************************************************************** TTBS
    11946                            *
    11947   01 03A2E    062A41F2 A            MODULE,4
    11948   01 03A2F    40800000 A           TTBS,8    0
    11949   01 03A30    000011CC              K        0,0,0,LOC
    11950   01 03A31    100011CE              K        1,0,0,LOC+2
    11951   01 03A32    20B6FE08 N            G        S1DXC8,-2,8
    11952   01 03A33    20B8FE08 N            G        S1DXC8+2,-2,8
    11953                            ***************************************************************** TTBS
    11954                            *
    11955   01 03A34    062B41F3 A            MODULE,4
    11956   01 03A35    40800000 A           TTBS,8    0
    11957   01 03A36    000011CC              K        0,0,0,LOC
    11958   01 03A37    100011CE              K        1,0,0,LOC+2
    11959   01 03A38    20BAFE08 N            G        S2DXC8,-2,8
    11960   01 03A39    20BCFE08 N            G        S2DXC8+2,-2,8
    11961                            ***************************************************************** TTBS
    11962                            *
    11963   01 03A3A    062C41F4 A            MODULE,4
    11964   01 03A3B    40800000 A           TTBS,8    0
    11965   01 03A3C    000011CC              K        0,0,0,LOC
    11966   01 03A3D    100011CE              K        1,0,0,LOC+2
    11967   01 03A3E    20BEFE08 N            G        S3DXC8,-2,8
    11968   01 03A3F    20C0FE08 N            G        S3DXC8+2,-2,8
    11969                            ***************************************************************** TTBS
    11970                            *
    11971   01 03A40    062D41F5 A            MODULE,4
    11972   01 03A41    40800000 A           TTBS,8    0
    11973   01 03A42    000011CC              K        0,0,0,LOC
    11974   01 03A43    100011CE              K        1,0,0,LOC+2
    11975   01 03A44    20C2FE08 N            G        S0DXC9,-2,8
    11976   01 03A45    20C4FE08 N            G        S0DXC9+2,-2,8
    11977                            ***************************************************************** TTBS
    11978                            *
    11979   01 03A46    062E41F6 A            MODULE,4
    11980   01 03A47    40800000 A           TTBS,8    0
    11981   01 03A48    000011CC              K        0,0,0,LOC
    11982   01 03A49    100011CE              K        1,0,0,LOC+2
    11983   01 03A4A    20C6FE08 N            G        S1DXC9,-2,8
    11984   01 03A4B    20C8FE08 N            G        S1DXC9+2,-2,8
    11985                            ***************************************************************** TTBS
    11986                            *
    11987   01 03A4C    062F41F7 A            MODULE,4
    11988   01 03A4D    40800000 A           TTBS,8    0
    11989   01 03A4E    000011CC              K        0,0,0,LOC
    11990   01 03A4F    100011CE              K        1,0,0,LOC+2
    11991   01 03A50    20CAFE08 N            G        S2DXC9,-2,8
    11992   01 03A51    20CCFE08 N            G        S2DXC9+2,-2,8
    11993                            ***************************************************************** TTBS
    11994                            *
    11995   01 03A52    063041F8 A            MODULE,4
    11996   01 03A53    40800000 A           TTBS,8    0
    11997   01 03A54    000011CC              K        0,0,0,LOC
    11998   01 03A55    100011CE              K        1,0,0,LOC+2
    11999   01 03A56    20CEFE08 N            G        S3DXC9,-2,8
    12000   01 03A57    20D0FE08 N            G        S3DXC9+2,-2,8
    12001                            ***************************************************************** TTBS
    12002                            *
    12003   01 03A58    063141F9 A            MODULE,4
    12004   01 03A59    40800000 A           TTBS,8    0
    12005   01 03A5A    000011CC              K        0,0,0,LOC
    12006   01 03A5B    100011CE              K        1,0,0,LOC+2
    12007   01 03A5C    20D2FE08 N            G        S0DXCA,-2,8
    12008   01 03A5D    20D4FE08 N            G        S0DXCA+2,-2,8
    12009                            ***************************************************************** TTBS
    12010                            *
    12011   01 03A5E    063241FA A            MODULE,4
    12012   01 03A5F    40800000 A           TTBS,8    0
    12013   01 03A60    000011CC              K        0,0,0,LOC
    12014   01 03A61    100011CE              K        1,0,0,LOC+2
    12015   01 03A62    20D6FE08 N            G        S1DXCA,-2,8
    12016   01 03A63    20D8FE08 N            G        S1DXCA+2,-2,8
    12017                            ***************************************************************** TTBS
    12018                            *
    12019   01 03A64    063341FB A            MODULE,4
    12020   01 03A65    40800000 A           TTBS,8    0
    12021   01 03A66    000011CC              K        0,0,0,LOC
    12022   01 03A67    100011CE              K        1,0,0,LOC+2
    12023   01 03A68    20DAFE08 N            G        S2DXCA,-2,8
    12024   01 03A69    20DCFE08 N            G        S2DXCA+2,-2,8
    12025                            ***************************************************************** TTBS
    12026                            *
    12027   01 03A6A    063441FC A            MODULE,4
    12028   01 03A6B    40800000 A           TTBS,8    0
    12029   01 03A6C    000011CC              K        0,0,0,LOC
    12030   01 03A6D    100011CE              K        1,0,0,LOC+2
    12031   01 03A6E    20DEFE08 N            G        S3DXCA,-2,8
    12032   01 03A6F    20E0FE08 N            G        S3DXCA+2,-2,8
    12033                            ***************************************************************** TTBS
    12034                            *
    12035   01 03A70    063541FD A            MODULE,4
    12036   01 03A71    40800000 A           TTBS,8    0
    12037   01 03A72    000011CC              K        0,0,0,LOC
    12038   01 03A73    100011CE              K        1,0,0,LOC+2
    12039   01 03A74    20E2FE08 N            G        S0DXCB,-2,8
    12040   01 03A75    20E4FE08 N            G        S0DXCB+2,-2,8
    12041                            ***************************************************************** TTBS
    12042                            *
    12043   01 03A76    063641FE A            MODULE,4
    12044   01 03A77    40800000 A           TTBS,8    0
    12045   01 03A78    000011CC              K        0,0,0,LOC
    12046   01 03A79    100011CE              K        1,0,0,LOC+2
    12047   01 03A7A    20E6FE08 N            G        S1DXCB,-2,8
    12048   01 03A7B    20E8FE08 N            G        S1DXCB+2,-2,8
    12049                            ***************************************************************** TTBS
    12050                            *
    12051   01 03A7C    063741FF A            MODULE,4
    12052   01 03A7D    40800000 A           TTBS,8    0
    12053   01 03A7E    000011CC              K        0,0,0,LOC
    12054   01 03A7F    100011CE              K        1,0,0,LOC+2
    12055   01 03A80    20EAFE08 N            G        S2DXCB,-2,8
    12056   01 03A81    20ECFE08 N            G        S2DXCB+2,-2,8
    12057                            ***************************************************************** TTBS
    12058                            *
    12059   01 03A82    06384200 A            MODULE,4
    12060   01 03A83    40800000 A           TTBS,8    0
    12061   01 03A84    000011CC              K        0,0,0,LOC
    12062   01 03A85    100011CE              K        1,0,0,LOC+2
    12063   01 03A86    20EEFE08 N            G        S3DXCB,-2,8
    12064   01 03A87    20F0FE08 N            G        S3DXCB+2,-2,8
    12065                            ***************************************************************** TTBS
    12066                            *
    12067   01 03A88    06394201 A            MODULE,4
    12068   01 03A89    40800000 A           TTBS,8    0
    12069   01 03A8A    000011CC              K        0,0,0,LOC
    12070   01 03A8B    100011CE              K        1,0,0,LOC+2
    12071   01 03A8C    20F2FE08 N            G        S0DXCC,-2,8
    12072   01 03A8D    20F4FE08 N            G        S0DXCC+2,-2,8
    12073                            ***************************************************************** TTBS
    12074                            *
    12075   01 03A8E    063A4202 A            MODULE,4
    12076   01 03A8F    40800000 A           TTBS,8    0
    12077   01 03A90    000011CC              K        0,0,0,LOC
    12078   01 03A91    100011CE              K        1,0,0,LOC+2
    12079   01 03A92    20F6FE08 N            G        S1DXCC,-2,8
    12080   01 03A93    20F8FE08 N            G        S1DXCC+2,-2,8
    12081                            ***************************************************************** TTBS
    12082                            *
    12083   01 03A94    063B4203 A            MODULE,4
    12084   01 03A95    40800000 A           TTBS,8    0
    12085   01 03A96    000011CC              K        0,0,0,LOC
    12086   01 03A97    100011CE              K        1,0,0,LOC+2
    12087   01 03A98    20FAFE08 N            G        S2DXCC,-2,8
    12088   01 03A99    20FCFE08 N            G        S2DXCC+2,-2,8
    12089                            ***************************************************************** TTBS
    12090                            *
    12091   01 03A9A    063C4204 A            MODULE,4
    12092   01 03A9B    40800000 A           TTBS,8    0
    12093   01 03A9C    000011CC              K        0,0,0,LOC
    12094   01 03A9D    100011CE              K        1,0,0,LOC+2
    12095   01 03A9E    20FEFE08 N            G        S3DXCC,-2,8
    12096   01 03A9F    2100FE08 N            G        S3DXCC+2,-2,8
    12097                            ************************************************************************
    12098                            * END OF TEST MODULE LIST
    12099                            *
    12100                            ************************************************************************
    12101         00000204           LAST:MOD SET      MODULE#
    12102   01 03AA0    013D0205 A            MODULE
    12103         00000205           CON:WORD SET      MODULE#
    12104         01 03AA1           LASTMODULE EQU    %
    12105   01 03AA1    003E0206 A            MODULE
    12106                            *
    12107   01 03AA2    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
    12108   01 03AA3    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
    12109   01 03AA4    EA6003C8              BAL,X6   *#GUIDE%
    12110   01 03AA5    02209708              GEN,8,3,21 2,1,BA(PROGTEXT)
    12111   01 03AA6    2620EAC0              GEN,8,3,21   38,1,BA(ENDE)                                 *A05
    12112                            *
    12113                            *
    12114   01 03AA7    00000000 A            DATA     0
    12115   01 03AA8    00000000 A   SN:OBS   DATA     0
    12116                            *
    12117                                     BOUND    64
    12118                            *
    12119         01 03AB0           ENDE     EQU      %
    12120                            *
    12121         01 03AB0           RES:SAV  EQU      ENDE
    12122         01 03AC0           MEMORY   EQU      ENDE+16
    12123         01 03B00           RTABLIN  EQU      ENDE+80
    12124         01 03B10           MTABLIN  EQU      ENDE+96
    12125         01 03B50           RTABLOUT EQU      ENDE+160
    12126         01 03B60           MTABLOUT EQU      ENDE+176
    12127         01 03BA0           SBUF:END EQU      ENDE+240
    12128         01 03BA0           SN:CHECK EQU      ENDE+240
    12129         01 03BA5           BIT:MSK  EQU      ENDE+245
    12130         01 03CA5           SN:EXP   EQU      ENDE+501
    12131                            *
    12132         01 03AB0                    TEXTCS   'REVISION A05'
    12133                                     TEXTCS   ;
    12134         01 03AB4                    '1. SKIP BYTESTRING TESTS IF SIGMA 9R/16R'
    12135                                     TEXTCS   ;
    12136         01 03ABF                    '------------------------------'
    12137         01 03AC7                    TEXTCS   'REVISION A04'                                    *A04
    12138                                     TEXTCS   ;                                                 *A04
    12139         01 03ACB                    '1. TO PERMIT PROGRAM TO RUN CORRECTLY ON A SIGMA 8 '      *A04
    12140                                     TEXTCS   ;                                                 *A04
    12141         01 03AD8                    '2. CORRECTED PROBLEM OF HANGING IN STATUS RESPOND LOOP'   *A04
    12142                                     TEXTCS   ;                                                 *A04
    12143         01 03AE6                    '   AFTER TYPING IN THE & SYMBOL TAR #10944 '              *A04
    12144         01 03AF1                    TEXTCS   'REVISION A03'                                    *A03
    12145                                     TEXTCS   ;                                                 *A03
    12146         01 03AF5                   '----------------------------------'                        *A03
    12147                                     TEXTCS   ;                                                 *A03
    12148         01 03AFE                   'PROGRAM MODIFICATIONS'                                     *A03
    12149                                     TEXTCS   ;                                                 *A03
    12150         01 03B04                   '1. ADDED ORG AT HEX 1010 FOR REMOTE GUIDE'                 *A03
    12151                                     TEXTCS   ;                                                 *A03
    12152         01 03B0F                   '2. CORRECTED SNAP OUTPUT TO TTY'                           *A03
    12153                                     TEXTCS   ;                                                 *A03
    12154         01 03B17                   '3. CORRECTED SNAP VERIFY PROBLEMS'                         *A03
    12155                                     TEXTCS   ;                                                 *A03
    12156         01 03B20                   '4. CHANGED LRA MODULES TO ACCOMODATE HARDWARE EO'          *A03
    12157                                     TEXTCS   ;                                                 *A03
    12158         01 03B2D                    '5. CHANGED ANLZ MODULES TO DETECT'                        *A03
    12159                                     TEXTCS   ;                                                 *A03
    12160         01 03B36                   '  CORRECTED HARDWARE ERROR'                                *A03
    12161         01 03B3D                    TEXTCS   'REVISION *A02- SNAP TO CPU REV. H'
    12162                                     TEXTCS   ;
    12163         01 03B46                   'PROGRAM MODIFICATIONS'
    12164                                     TEXTCS   ;
    12165         01 03B4C                   '----------------------------'
    12166                                     TEXTCS   ;
    12167         01 03B54                   '1.  RESTORE CI:SAV ON YES RECOVERY.'
    12168                                     TEXTCS   ;
    12169         01 03B5D                   '2.  CLOCK MARGINS CAN BE FIXED WITHOUT RECOVERY.'
    12170                                     TEXTCS   ;
    12171         01 03B6A                   '3. NOW CARD LOAD WONT MOVE MAGTAPE.'
    12172                                     TEXTCS   ;
    12173         01 03B73                   '4. BEGIN INTERRUPTABILITY ON 56TH PASS.'
    12174                                     TEXTCS   ;
    12175         01 03B7D                   '5. ADDED "DEV-NOT-AVAILABLE" MESSAGE TO J-LINE.'
    12176                                     TEXTCS   ;
    12177         01 03B89                   '6. FUNCTIONALLY TEST UNSNAPPABLE MODULES.'
    12178                                     TEXTCS   ;
    12179         01 03B94                   '7. DELETED CNT PULSE & CNT 4 ZERO FROM PROG.'
    12180                                     TEXTCS   ;
    12181         01 03BA0                   '8. MODIFIED TAPE HANDLER TO REW CORRECT # MODS.'
    12182                                     TEXTCS   ;
    12183         01 03BAC                    '9.  CORRECTED CB AND CE CONTROL IN K-LINE.'
    12184         01 03BB7                    TEXTCS   'REVISION *A01'
    12185                                     TEXTCS   ;
    12186         01 03BBB                   '1.  FIX SO=3 TO NOT CAUSE SNAPPING.'
    12187                                     TEXTCS   ;
    12188         01 03BC4                   '2.  RESET COUNTER INTERRUPTS ON ANY RECOVERY.'
    12189                                     TEXTCS   ;
    12190         01 03BD0                   '3. FIX AMPERSAND LOOPING PROBLEM.'
    12191                                     TEXTCS   ;
    12192         01 03BD9                   '4. FIX CLOCK MARGIN SO THAT IT IS PROPERLY'
    12193                                     TEXTCS   ;
    12194         01 03BE4                      'CONTROLLED BY SELECTED PARAMETER.'
    12195                                     TEXTCS   ;
    12196         01 03BED                   '5. FIX ERROR REPORT SO THAT IT DISPLAYS THE'
    12197                                     TEXTCS   ;
    12198         01 03BF8                      'CORRECT FAILING ITEM.'
    12199                                     TEXTCS   ;
    12200         01 03BFE                   '6. FIX SENSE SWITCH EXPLANATIONS.'
    12201                                     TEXTCS   ;
    12202         01 03C07                   '7. FIX REGISTER POINTER MODULES.'
    12203                            *
    12204         01 03AA3           ENDADDR  END      GUIDE             GO TO GUIDE

  CONTROL SECTION SUMMARY: 01 03C10   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   00:37 JUN 21,'83    SIGMA 8-9 CPU DIAG SUFFIX 706134-11/51-A05  1-28-74                   PAGE    8
A  A                858-COM
   ADR:MSK         1175/AND     1191/AND     1208/AND     1233/AND     2210/AND     2410/AND     2972/AND
      4389-DATA
   ADV:PTR         1111/BAL     1819-EQU
   ALPHATXT         786/GEN     4216-TEXT
   AMP:BUF         4064/STW     4066/STW     4069/STW     4071/STW     4073/STW     4075/STW     4077/STW
      4079/STW     4081/STW     4084/STW     4086/STW     4088/STW     4091/STW     4093/STW     4095/STW
      4096/STW     4100/STW     4102/STW     4104/STB     4105/#PRINT  4118-EQU
   AMP:HDR         4060/CI      4062/#PRINT  4106/LI      4125-TEXTCS
   AMPER%EXPL      4057/LW      6634-Z
   ANYL:EX         2387/B       2407/B       2432/B       2447/B       2453/B       2469-B
   AP              8621-EQU     8624/MMC
   ASTR:MSK        2156/AW      2162-DATA
   ASTRSK          3089/LW      4225-DATA
   AVL:MEM         3212/STW     3235/LW      3440-DATA
   BACKUP          3309/BCS     3312-EOR
   BACK12          2932/BCS     3169/BCR     3174-LW
   BAD:PAR1        3991/BCR     3993/BG      4132-LW
   BAD:PAR2        3997/BCR     4000/BG      4134-LW
   BALNORM         2087/BCR     2093-BAL
   BIT:MSK         3069/LW      3161/LW      3243/STW     3450/J       3453/J       3525/STW    12129-EQU
   BM:FILL         3242/LW      3248-DATA
   BRANCH           933-XPSD    1202/LW      1393/LW
   BS:ADR          2376/BCS     2389-LW
   BUF:SIZE        1306/CW      1337-EQU
   BYPASS           954/BCS     1070-RD
   CA               634/SET      691-EQU
   CARD:BUF        3484/LB      3489/LW      3497/#ETHCON 3518/LW      3521/#ETHCON 3524/#ETHCON 4366-EQU
      4370/J
   CARD:CON        1671/BCS     3456-EQU
   CARD:SW         1029/STW     1536/STW     3465/LW      3468/STW     4373-DATA
   CARDADR         3477/SIO*    3478/TIO*    4357-DATA    6711/STW
   CARDIOCD        3476/LI      4370-J
   CB               634/SET      692-EQU
   CB:C            3790/D       3929-EQU
   CC               634/SET      693-EQU
   CD               634/SET      694-EQU
   CE               634/SET      695-EQU
   CE:C            3791/D       3957-EQU
   CE:PTR          1064/STW     1525/CW      1562/CW      1564/LW      2878/CW      2880/LW      3959/STW
      3964/STW     4362-DATA
   CHECK5          2212/B       2214/BNE     2223-CI
   CHECK6          2224/BNE     2231-CI      2261/B
   CHECK7          2232/BNE     2250-CI
   CI:C            3584/D       3676-EQU
   CI:CNT          1026/STW     1072/STW     1137/STW     1398/LW      1449-DATA    1897/STW     3684/STW
   CI:PROC         1403/STW     1983/XPSD    2011-DATA    2015/LPSD    2174/LW      2178/#HTECON
   CI:SAV          1045/STW     1421/LW      1881/LW      1896/LW      3688/STW     3693-DATA    3893/STW
      3913/STW
   CICOUNT         1401/STW     1984/MTW     1985-DATA
   CIMTW           1892/LW      1984-MTW
   CIXPSD          1885/LW      1983-XPSD
   CK:ADV          2892/BAL     2926/BAL     2950/BAL     3105-EQU     3145/BAL     3180/BAL
   CK:BIAS         1028/STW     1612/LW      2888/LW      3933/STW     3946/STW     4347-DATA
   CK:CTR          2887/STW     2946/CW      3051/LW      3068/LW      3106/LW      3108/STW     3118/STW
      3141/CW      3160/LW      3174/LW      4221-DATA
   CK:LIMIT        1063/LW      3221/STW     3441-DATA    3958/LW
   CK:PTR          1474/STW     1487/LW      1524/LW      1528/STW     1549/LW      2881/STW     2945/LW
      3140/LW      3260/LW      4348-DATA
   CK:SAV          1067/STW     1068/STW     1069/STW     2871/STW     3176/CW      3185/STW     4352-EQU
   CLK:MSK         3126/AND     3128/AND     3157-DATA
   CLR:DCB         3041/BAL     3094-EQU     4023/BAL
   CLR:SNP         1829/BAL     3235-LW      3469/BAL
   CLR:SUFF        1100/BAL     1269-EQU     4024/BAL
   CM:C            3582/D       3624-EQU
   CM:LO           2041/STW     2069-DATA
   CM:OFF          1056/STW     1425/LW      2037/STW     2068-DATA
   CM:ON           1055/STW     1358/LW      1424/STW     1906/STW     2067-DATA    2142/LW      3639/STW
   CM:SAV          1905/LW      2044/STW     2070-DATA    3638/STW
   CM:TSTA         2148/CW      2159-DATA
   CM:TSTB         2150/CW      2164-DATA
   CM:VALU         3636/LW      3644-EQU
   CMP:ERR         2876/STW     3122/STW     3167/STW     4226-DATA
   CMP:MEM         1641/B       1705-EQU     1715/BCR
   CMP:OE          1570/BAL     2899/BAL     3119-EQU
   CMP:REG         1644/B       1719-EQU     1729/BCR
   CMP:SP          1638/B       1690-EQU     1700/BDR
   CMP:STD         1635/BL      1646-LW
   CMP:SUFF        1108/BAL     1627-EQU     1672/B*
   CMPOE:EX        3120/STW     3156-DATA    3172/B*
   CNT:P3          2394/AW      2506-DATA
   CNT:SAV         1302/STW     1319-EQU
   CNT:TABL        2800/LW      2815-EQU
   COM:C           3580/D       3603-EQU
   COM:TRAP        1123-EQU
   COMADR          4358-DATA
   CON:WORD       12103-SET
   CONT:FTE        1771/BCR     1782-LC      3460/BCS
   CONVERT         3511-EQU
   CON7            3916/AND     4338-DATA
   CON7F           2126/AND     2298/AND     4174/AND     4196/AND     4339-DATA
   CVAC1           4762-DATA   11409/G      11429/G      11447/G
   CVAT            4761-DATA   11400/G      11410/G
   CVT             4656-DATA    4756/DATA    7496/G       7497/G       7726/G       7727/G       8124/G
      8125/G       8986/G       9005/MBS    11376/CVA    11386/CVA    11389/G      11396/CVA    11406/CVA
     11425/CVA    11428/G      11434/CVS    11444/CVS    11453/CVS    11461/CVS    11464/G      11480/CVS
     11489/CVS
   CVTO            4757-DATA   11390/G
   C0               659/GEN      681-EQU
   C1               634/SET      682-EQU     3333/#PRINT
   C2               634/SET      683-EQU     2614/#PRINT
   C3               634/SET      684-EQU
   C4               634/SET      685-EQU
   C5               634/SET      686-EQU
   C6               634/SET      687-EQU
   C7               634/SET      688-EQU
   C8               634/SET      689-EQU
   C9               634/SET      690-EQU
   D                860-COM
   DAT:OUT         2912/BAL     2940/BAL     2977-EQU     3000/B*
   DATA:SAV        3515/STW     3536/LW      4378-DATA
   DBL:WRD         2764/STW     2820/STW     2997/STW     3013/LW      3036-DATA
   DC:BUF          2755/STW     2756/STW     4250-EQU
   DC:DWT1         2833/DATA    2835-J
   DC:DWT1E        2818/STB     2824/STB     2850-I
   DC:OUT          2766/BAL     2822/BAL     2998/BAL     3003-EQU     3025/STW     3028/BNE*    3033/B*
   DCA              791-ORG
   DCB:DW0         2911/LI      2939/LI      2996/LI      4233-D
   DCB:LST         3047/LW      3074/LW      4313-EQU
   DHEX:CON        1596/BAL     1600/BAL     1615/BAL     2089/BAL     2587/BAL     2608/BAL     2643/BAL
      2679/BAL     2694/BAL     2734/BAL     2754/BAL     2788/BAL     2804/BAL     3046/BAL     3060/BAL
      3190-EQU
   DIS:FLG         2910/BAL     2938/BAL     3066-EQU
   DIS:SAV         1300/STW     1325-EQU     1378/LW      2425/AW
   DIS:X7          3076-BIR     3082/BCS     3085/BCR     3088/BCR     3090/B
   DISP#1          3044-LW      3050/BIR
   DISP#2          3070-LW      3076/BIR
   DISRGD          3070/LW      4224-DATA
   DL%EXPL         6408-TEXTCS  6659/Z
   DLTA            3987-EQU     6657/E
   DM%EXPL         6379-TEXTCS  6644/Z
   DO:SN           3899/BCR     3909-LI
   DONE            6861/GOTO    6983-PEND
   DR:ERET         4147/BCS     4163-#TYPE   4179/BCR
   DRTA            4145-EQU     4155/B       6652/E
   DST1            4808-F
   DTADA0          4546-DATA    5671/F       5673/F       5687/F       5689/F       5703/F       5705/F
      5719/F       5721/F
   DTADA1          4547-DATA    5675/F       5677/F       5691/F       5693/F       5707/F       5709/F
      5723/F       5725/F
   DTADA2          4548-DATA    5679/F       5681/F       5695/F       5697/F       5711/F       5713/F
      5727/F       5729/F
   DTADA3          4549-DATA    5683/F       5685/F       5699/F       5701/F       5715/F       5717/F
      5731/F       5733/F
   DTADB0          4554-DATA    5735/F       5737/F       5751/F       5753/F       5767/F       5769/F
      5783/F       5785/F
   DTADB1          4555-DATA    5739/F       5741/F       5755/F       5757/F       5771/F       5773/F
      5787/F       5789/F
   DTADB2          4556-DATA    5743/F       5745/F       5759/F       5761/F       5775/F       5777/F
      5791/F       5793/F
   DTADB3          4557-DATA    5747/F       5749/F       5763/F       5765/F       5779/F       5781/F
      5795/F       5797/F
   DTADC0          4562-DATA    5799/F       5801/F       5815/F       5817/F       5831/F       5833/F
      5847/F       5849/F
   DTADC1          4563-DATA    5803/F       5805/F       5819/F       5821/F       5835/F       5837/F
      5851/F       5853/F
   DTADC2          4564-DATA    5807/F       5809/F       5823/F       5825/F       5839/F       5841/F
      5855/F       5857/F
   DTADC3          4565-DATA    5811/F       5813/F       5827/F       5829/F       5843/F       5845/F
      5859/F       5861/F
   DTADXX          4625-DATA    4903/F       4905/F       4907/F       4909/F       4911/F       4913/F
      4915/F       4917/F       4919/F       4921/F       4923/F       4925/F       4927/F       4929/F
      4931/F       4933/F       4935/F       4937/F       4939/F       4941/F       4943/F       4945/F
      4947/F       4949/F       4951/F       4953/F       4955/F       4957/F       4959/F       4961/F
      4963/F       4965/F       4967/F       4969/F       4971/F       4973/F       4975/F       4977/F
      4979/F       4981/F       4983/F       4985/F       4987/F       4989/F       4991/F       4993/F
      4995/F       4997/F       4999/F       5001/F       5003/F       5005/F       5007/F       5009/F
      5011/F       5013/F       5015/F       5017/F       5019/F       5021/F       5023/F       5025/F
      5027/F       5029/F       5031/F       5033/F       5035/F       5037/F       5039/F       5041/F
      5043/F       5045/F       5047/F       5049/F       5051/F       5053/F       5055/F       5057/F
      5059/F       5061/F       5063/F       5065/F       5067/F       5069/F       5071/F       5073/F
      5075/F       5077/F       5079/F       5081/F       5083/F       5085/F       5087/F       5089/F
      5091/F       5093/F
   DTAD10          4474-DATA    5095/F       5097/F       5111/F       5113/F       5127/F       5129/F
      5143/F       5145/F
   DTAD11          4475-DATA    5099/F       5101/F       5115/F       5117/F       5131/F       5133/F
      5147/F       5149/F
   DTAD12          4476-DATA    5103/F       5105/F       5119/F       5121/F       5135/F       5137/F
      5151/F       5153/F
   DTAD13          4477-DATA    5107/F       5109/F       5123/F       5125/F       5139/F       5141/F
      5155/F       5157/F
   DTAD20          4482-DATA    5159/F       5161/F       5175/F       5177/F       5191/F       5193/F
      5207/F       5209/F
   DTAD21          4483-DATA    5163/F       5165/F       5179/F       5181/F       5195/F       5197/F
      5211/F       5213/F
   DTAD22          4484-DATA    5167/F       5169/F       5183/F       5185/F       5199/F       5201/F
      5215/F       5217/F
   DTAD23          4485-DATA    5171/F       5173/F       5187/F       5189/F       5203/F       5205/F
      5219/F       5221/F
   DTAD30          4490-DATA    5223/F       5225/F       5239/F       5241/F       5255/F       5257/F
      5271/F       5273/F
   DTAD31          4491-DATA    5227/F       5229/F       5243/F       5245/F       5259/F       5261/F
      5275/F       5277/F
   DTAD32          4492-DATA    5231/F       5233/F       5247/F       5249/F       5263/F       5265/F
      5279/F       5281/F
   DTAD33          4493-DATA    5235/F       5237/F       5251/F       5253/F       5267/F       5269/F
      5283/F       5285/F
   DTAD40          4498-DATA    5287/F       5289/F       5303/F       5305/F       5319/F       5321/F
      5335/F       5337/F
   DTAD41          4499-DATA    5291/F       5293/F       5307/F       5309/F       5323/F       5325/F
      5339/F       5341/F
   DTAD42          4500-DATA    5295/F       5297/F       5311/F       5313/F       5327/F       5329/F
      5343/F       5345/F
   DTAD43          4501-DATA    5299/F       5301/F       5315/F       5317/F       5331/F       5333/F
      5347/F       5349/F
   DTAD50          4506-DATA    5351/F       5353/F       5367/F       5369/F       5383/F       5385/F
      5399/F       5401/F
   DTAD51          4507-DATA    5355/F       5357/F       5371/F       5373/F       5387/F       5389/F
      5403/F       5405/F
   DTAD52          4508-DATA    5359/F       5361/F       5375/F       5377/F       5391/F       5393/F
      5407/F       5409/F
   DTAD53          4509-DATA    5363/F       5365/F       5379/F       5381/F       5395/F       5397/F
      5411/F       5413/F
   DTAD60          4514-DATA    5415/F       5417/F       5431/F       5433/F       5447/F       5449/F
      5463/F       5465/F
   DTAD61          4515-DATA    5419/F       5421/F       5435/F       5437/F       5451/F       5453/F
      5467/F       5469/F
   DTAD62          4516-DATA    5423/F       5425/F       5439/F       5441/F       5455/F       5457/F
      5471/F       5473/F
   DTAD63          4517-DATA    5427/F       5429/F       5443/F       5445/F       5459/F       5461/F
      5475/F       5477/F
   DTAD70          4522-DATA    5479/F       5481/F       5495/F       5497/F       5511/F       5513/F
      5527/F       5529/F
   DTAD71          4523-DATA    5483/F       5485/F       5499/F       5501/F       5515/F       5517/F
      5531/F       5533/F
   DTAD72          4524-DATA    5487/F       5489/F       5503/F       5505/F       5519/F       5521/F
      5535/F       5537/F
   DTAD73          4525-DATA    5491/F       5493/F       5507/F       5509/F       5523/F       5525/F
      5539/F       5541/F
   DTAD80          4530-DATA    5543/F       5545/F       5559/F       5561/F       5575/F       5577/F
      5591/F       5593/F
   DTAD81          4531-DATA    5547/F       5549/F       5563/F       5565/F       5579/F       5581/F
      5595/F       5597/F
   DTAD82          4532-DATA    5551/F       5553/F       5567/F       5569/F       5583/F       5585/F
      5599/F       5601/F
   DTAD83          4533-DATA    5555/F       5557/F       5571/F       5573/F       5587/F       5589/F
      5603/F       5605/F
   DTAD90          4538-DATA    5607/F       5609/F       5623/F       5625/F       5639/F       5641/F
      5655/F       5657/F
   DTAD91          4539-DATA    5611/F       5613/F       5627/F       5629/F       5643/F       5645/F
      5659/F       5661/F
   DTAD92          4540-DATA    5615/F       5617/F       5631/F       5633/F       5647/F       5649/F
      5663/F       5665/F
   DTAD93          4541-DATA    5619/F       5621/F       5635/F       5637/F       5651/F       5653/F
      5667/F       5669/F
   DTASA0          4542-DATA    5046/F       5048/F       5670/F       5672/F       5674/F       5676/F
      5678/F       5680/F       5682/F       5684/F
   DTASA1          4543-DATA    5050/F       5052/F       5686/F       5688/F       5690/F       5692/F
      5694/F       5696/F       5698/F       5700/F
   DTASA2          4544-DATA    5054/F       5056/F       5702/F       5704/F       5706/F       5708/F
      5710/F       5712/F       5714/F       5716/F
   DTASA3          4545-DATA    5058/F       5060/F       5718/F       5720/F       5722/F       5724/F
      5726/F       5728/F       5730/F       5732/F
   DTASB0          4550-DATA    5062/F       5064/F       5734/F       5736/F       5738/F       5740/F
      5742/F       5744/F       5746/F       5748/F
   DTASB1          4551-DATA    5066/F       5068/F       5750/F       5752/F       5754/F       5756/F
      5758/F       5760/F       5762/F       5764/F
   DTASB2          4552-DATA    5070/F       5072/F       5766/F       5768/F       5770/F       5772/F
      5774/F       5776/F       5778/F       5780/F
   DTASB3          4553-DATA    5074/F       5076/F       5782/F       5784/F       5786/F       5788/F
      5790/F       5792/F       5794/F       5796/F
   DTASCX          4642-DATA    9136/G       9146/G       9156/G       9166/G       9176/G       9186/G
   DTASCY          4649-DATA    9196/G       9206/G       9216/G
   DTASC0          4558-DATA    5078/F       5080/F       5798/F       5800/F       5802/F       5804/F
      5806/F       5808/F       5810/F       5812/F       9066/G       9076/G       9086/G       9096/G
      9106/G       9116/G       9126/G
   DTASC1          4559-DATA    5082/F       5084/F       5814/F       5816/F       5818/F       5820/F
      5822/F       5824/F       5826/F       5828/F
   DTASC2          4560-DATA    5086/F       5088/F       5830/F       5832/F       5834/F       5836/F
      5838/F       5840/F       5842/F       5844/F
   DTASC3          4561-DATA    5090/F       5092/F       5846/F       5848/F       5850/F       5852/F
      5854/F       5856/F       5858/F       5860/F
   DTAS10          4470-DATA    4902/F       4904/F       5094/F       5096/F       5098/F       5100/F
      5102/F       5104/F       5106/F       5108/F
   DTAS11          4471-DATA    4906/F       4908/F       5110/F       5112/F       5114/F       5116/F
      5118/F       5120/F       5122/F       5124/F
   DTAS12          4472-DATA    4910/F       4912/F       5126/F       5128/F       5130/F       5132/F
      5134/F       5136/F       5138/F       5140/F
   DTAS13          4473-DATA    4914/F       4916/F       5142/F       5144/F       5146/F       5148/F
      5150/F       5152/F       5154/F       5156/F
   DTAS20          4478-DATA    4918/F       4920/F       5158/F       5160/F       5162/F       5164/F
      5166/F       5168/F       5170/F       5172/F
   DTAS21          4479-DATA    4922/F       4924/F       5174/F       5176/F       5178/F       5180/F
      5182/F       5184/F       5186/F       5188/F
   DTAS22          4480-DATA    4926/F       4928/F       5190/F       5192/F       5194/F       5196/F
      5198/F       5200/F       5202/F       5204/F
   DTAS23          4481-DATA    4930/F       4932/F       5206/F       5208/F       5210/F       5212/F
      5214/F       5216/F       5218/F       5220/F
   DTAS30          4486-DATA    4934/F       4936/F       5222/F       5224/F       5226/F       5228/F
      5230/F       5232/F       5234/F       5236/F
   DTAS31          4487-DATA    4938/F       4940/F       5238/F       5240/F       5242/F       5244/F
      5246/F       5248/F       5250/F       5252/F
   DTAS32          4488-DATA    4942/F       4944/F       5254/F       5256/F       5258/F       5260/F
      5262/F       5264/F       5266/F       5268/F
   DTAS33          4489-DATA    4946/F       4948/F       5270/F       5272/F       5274/F       5276/F
      5278/F       5280/F       5282/F       5284/F
   DTAS40          4494-DATA    4582/EQU     4950/F       4952/F       5286/F       5288/F       5290/F
      5292/F       5294/F       5296/F       5298/F       5300/F
   DTAS41          4495-DATA    4596/EQU     4954/F       4956/F       5302/F       5304/F       5306/F
      5308/F       5310/F       5312/F       5314/F       5316/F
   DTAS42          4496-DATA    4610/EQU     4958/F       4960/F       5318/F       5320/F       5322/F
      5324/F       5326/F       5328/F       5330/F       5332/F
   DTAS43          4497-DATA    4624/EQU     4962/F       4964/F       5334/F       5336/F       5338/F
      5340/F       5342/F       5344/F       5346/F       5348/F
   DTAS50          4502-DATA    4574/EQU     4966/F       4968/F       5350/F       5352/F       5354/F
      5356/F       5358/F       5360/F       5362/F       5364/F
   DTAS51          4503-DATA    4588/EQU     4970/F       4972/F       5366/F       5368/F       5370/F
      5372/F       5374/F       5376/F       5378/F       5380/F
   DTAS52          4504-DATA    4602/EQU     4974/F       4976/F       5382/F       5384/F       5386/F
      5388/F       5390/F       5392/F       5394/F       5396/F
   DTAS53          4505-DATA    4616/EQU     4978/F       4980/F       5398/F       5400/F       5402/F
      5404/F       5406/F       5408/F       5410/F       5412/F
   DTAS60          4510-DATA    4570/EQU     4982/F       4984/F       5414/F       5416/F       5418/F
      5420/F       5422/F       5424/F       5426/F       5428/F
   DTAS61          4511-DATA    4584/EQU     4986/F       4988/F       5430/F       5432/F       5434/F
      5436/F       5438/F       5440/F       5442/F       5444/F
   DTAS62          4512-DATA    4598/EQU     4990/F       4992/F       5446/F       5448/F       5450/F
      5452/F       5454/F       5456/F       5458/F       5460/F
   DTAS63          4513-DATA    4612/EQU     4994/F       4996/F       5462/F       5464/F       5466/F
      5468/F       5470/F       5472/F       5474/F       5476/F
   DTAS70          4518-DATA    4998/F       5000/F       5478/F       5480/F       5482/F       5484/F
      5486/F       5488/F       5490/F       5492/F
   DTAS71          4519-DATA    5002/F       5004/F       5494/F       5496/F       5498/F       5500/F
      5502/F       5504/F       5506/F       5508/F
   DTAS72          4520-DATA    5006/F       5008/F       5510/F       5512/F       5514/F       5516/F
      5518/F       5520/F       5522/F       5524/F
   DTAS73          4521-DATA    5010/F       5012/F       5526/F       5528/F       5530/F       5532/F
      5534/F       5536/F       5538/F       5540/F
   DTAS80          4526-DATA    5014/F       5016/F       5542/F       5544/F       5546/F       5548/F
      5550/F       5552/F       5554/F       5556/F       5862/F       5864/F       5866/F       5868/F
      5870/F       5872/F       5874/F       5876/F       5878/F       5880/F       5882/F       5884/F
      5886/F       5888/F       5890/F       5892/F       5894/F       5896/F       5898/F       5900/F
      5902/F       5904/F       5906/F       5908/F       5910/F       5912/F       5914/F       5916/F
   DTAS81          4527-DATA    5018/F       5020/F       5558/F       5560/F       5562/F       5564/F
      5566/F       5568/F       5570/F       5572/F       5918/F       5920/F       5922/F       5924/F
      5926/F       5928/F       5930/F       5932/F       5934/F       5936/F       5938/F       5940/F
      5942/F       5944/F       5946/F       5948/F       5950/F       5952/F       5954/F       5956/F
      5958/F       5960/F       5962/F       5964/F       5966/F       5968/F       5970/F       5972/F
   DTAS82          4528-DATA    5022/F       5024/F       5574/F       5576/F       5578/F       5580/F
      5582/F       5584/F       5586/F       5588/F       5974/F       5976/F       5978/F       5980/F
      5982/F       5984/F       5986/F       5988/F       5990/F       5992/F       5994/F       5996/F
      5998/F       6000/F       6002/F       6004/F       6006/F       6008/F       6010/F       6012/F
      6014/F       6016/F       6018/F       6020/F       6022/F       6024/F       6026/F       6028/F
   DTAS83          4529-DATA    5026/F       5028/F       5590/F       5592/F       5594/F       5596/F
      5598/F       5600/F       5602/F       5604/F       6030/F       6032/F       6034/F       6036/F
      6038/F       6040/F       6042/F       6044/F       6046/F       6048/F       6050/F       6052/F
      6054/F       6056/F       6058/F       6060/F       6062/F       6064/F       6066/F       6068/F
      6070/F       6072/F       6074/F       6076/F       6078/F       6080/F       6082/F       6084/F
   DTAS90          4534-DATA    5030/F       5032/F       5606/F       5608/F       5610/F       5612/F
      5614/F       5616/F       5618/F       5620/F
   DTAS91          4535-DATA    5034/F       5036/F       5622/F       5624/F       5626/F       5628/F
      5630/F       5632/F       5634/F       5636/F
   DTAS92          4536-DATA    5038/F       5040/F       5638/F       5640/F       5642/F       5644/F
      5646/F       5648/F       5650/F       5652/F
   DTAS93          4537-DATA    5042/F       5044/F       5654/F       5656/F       5658/F       5660/F
      5662/F       5664/F       5666/F       5668/F
   DTA0            4400-DATA    4898/F       4899/F       7067/G       7068/G       7146/G       7147/G
   DTA0A5          4577-DATA    5895/F       5897/F
   DTA0B5          4578-DATA    5899/F       5901/F
   DTA0C5          4579-DATA    5903/F       5905/F
   DTA0D5          4580-DATA    5907/F       5909/F
   DTA0E5          4581-DATA    5911/F       5913/F
   DTA0F5          4582-EQU     5915/F       5917/F
   DTA027          4569-DATA    5863/F       5865/F
   DTA037          4570-EQU     5867/F       5869/F
   DTA046          4571-DATA    5871/F       5873/F
   DTA056          4572-DATA    5875/F       5877/F
   DTA066          4573-DATA    5879/F       5881/F
   DTA076          4574-EQU     5883/F       5885/F
   DTA085          4575-DATA    5887/F       5889/F
   DTA095          4576-DATA    5891/F       5893/F
   DTA1            4409-DATA    4468/DATA    4807/F       4809/F       4811/F       4813/F       4815/F
      4838/F       4848/F       4851/F       4853/F       4859/F       4860/F       4861/F       4862/F
      4865/F       4867/F       6996/G       6997/G       6998/G       7008/G       7009/G       7010/G
      7020/G       7021/G       7022/G       7044/G       7045/G       7046/G       7076/G       7077/G
      7079/G       7088/G       7089/G       7091/G       7100/G       7101/G       7103/G       7124/G
      7125/G       7127/G       7156/G       7157/G       7188/G       7189/G       7204/G       7205/G
      7220/G       7221/G       7235/G       7236/G       7250/G       7251/G       7296/G       7297/G
      7312/G       7313/G       7328/G       7329/G       7359/G       7360/G       7402/G       7403/G
      7405/G       7418/G       7419/G       7421/G       7433/G       7434/G       7448/G       7449/G
      7511/G       7512/G       7524/G       7525/G       7542/G       7543/G       7558/G       7559/G
      7586/G       7587/G       7589/G       7617/G       7618/G       7619/G       7633/G       7634/G
      7635/G       7647/G       7648/G       7662/G       7663/G       7679/G       7680/G       7694/G
      7695/G       7742/G       7743/G       7758/G       7759/G       7788/G       7822/G       7823/G
      7838/G       7839/G       7840/G       7854/G       7855/G       7856/G       7869/G       7870/G
      7871/G       7884/G       7885/G       7886/G       7899/G       7900/G       7901/G       7915/G
      7916/G       7917/G       7932/G       7933/G       7948/G       7949/G       7964/G       7965/G
      7980/G       7981/G       7996/G       7997/G       8042/G       8043/G       8060/G       8061/G
      8108/G       8109/G       8140/G       8141/G       8156/G       8157/G       8170/G       8171/G
      8173/G       8186/G       8187/G       8189/G       8202/G       8203/G       8205/G       8217/G
      8218/G       8220/G       8232/G       8233/G       8235/G       8248/G       8249/G       8251/G
      8264/G       8265/G       8312/G       8313/G       8328/G       8329/G       8344/G       8345/G
      8360/G       8361/G       8376/G       8377/G       8408/G       8409/G       8439/G       8440/G
      8442/G       8512/G       8513/G       8523/G       8524/G       8645/G       8672/G       8673/G
      8791/G       8928/G       8975/G       8981/MBS     8987/G       8998/G       9056/G       9057/G
      9228/G       9229/G       9235/CBS     9240/G       9241/G       9256/CBS     9261/G       9262/G
      9285/G       9286/G       9297/G       9298/G       9304/CBS     9309/G       9310/G       9345/CBS
      9350/G       9351/G      11519/G      11537/TBS    11543/G      11555/G      11685/TTBS
   DTA1A5          4591-DATA    5951/F       5953/F
   DTA1B5          4592-DATA    5955/F       5957/F
   DTA1C5          4593-DATA    5959/F       5961/F
   DTA1D5          4594-DATA    5963/F       5965/F
   DTA1E5          4595-DATA    5967/F       5969/F
   DTA1F5          4596-EQU     5971/F       5973/F
   DTA127          4583-DATA    5919/F       5921/F
   DTA137          4584-EQU     5923/F       5925/F
   DTA146          4585-DATA    5927/F       5929/F
   DTA156          4586-DATA    5931/F       5933/F
   DTA166          4587-DATA    5935/F       5937/F
   DTA176          4588-EQU     5939/F       5941/F
   DTA185          4589-DATA    5943/F       5945/F
   DTA195          4590-DATA    5947/F       5949/F
   DTA2            4426-DATA    4855/F       4856/F       4857/F       4858/F       4863/F       4864/F
      4869/F       4871/F       4873/F       4875/F       4877/F       4879/F       4881/F       4883/F
      4885/F       4887/F       4889/F       4891/F       4900/F       4901/F       7031/G       7032/G
      7033/G       7034/G       7054/G       7055/G       7056/G       7057/G       7112/G       7113/G
      7115/G       7135/G       7136/G       7138/G       7172/G       7173/G       7465/G       7466/G
      7481/G       7482/G       7710/G       7711/G       7724/G       7725/G       7772/G       7773/G
      7774/G       7775/G       7789/G       7790/G       7791/G       7805/G       7806/G       7807/G
      8012/G       8013/G       8028/G       8029/G       8044/G       8045/G       8074/G       8075/G
      8090/G       8091/G       8092/G       8093/G       8138/G       8139/G       8154/G       8155/G
      8280/G       8281/G       8298/G       8299/G       8394/G       8395/G       8423/G       8424/G
      8426/G       8472/G       8473/G       8486/G       8487/G       8654/G       8800/G       8963/G
      8964/G       8993/MBS     8999/G       9247/CBS     9273/G       9274/G       9316/CBS     9362/G
      9363/G       9373/G       9374/G      11437/G      11438/G      11483/G
   DTA2A5          4605-DATA    6007/F       6009/F
   DTA2B5          4606-DATA    6011/F       6013/F
   DTA2C5          4607-DATA    6015/F       6017/F
   DTA2D5          4608-DATA    6019/F       6021/F
   DTA2E5          4609-DATA    6023/F       6025/F
   DTA2F5          4610-EQU     6027/F       6029/F
   DTA227          4597-DATA    5975/F       5977/F
   DTA237          4598-EQU     5979/F       5981/F
   DTA246          4599-DATA    5983/F       5985/F
   DTA256          4600-DATA    5987/F       5989/F
   DTA266          4601-DATA    5991/F       5993/F
   DTA276          4602-EQU     5995/F       5997/F
   DTA285          4603-DATA    5999/F       6001/F
   DTA295          4604-DATA    6003/F       6005/F
   DTA3            4448-DATA    7202/G       7203/G       7218/G       7219/G       7233/G       7234/G
      7248/G       7249/G       7263/G       7264/G       7278/G       7279/G       7294/G       7295/G
      7310/G       7311/G       7326/G       7327/G       7342/G       7343/G       7357/G       7358/G
      7372/G       7373/G       7387/G       7388/G       7463/G       7464/G       7479/G       7480/G
      7494/G       7495/G       7571/G       7572/G       7574/G       7601/G       7602/G       7604/G
      7708/G       7709/G       7804/G       8010/G       8011/G       8026/G       8027/G       8122/G
      8123/G       8296/G       8297/G       8392/G       8393/G       8454/G       8455/G       8457/G
      8470/G       8471/G       8663/G       8809/G       9011/G      11379/G      11399/G      11456/G
     11708/GEN
   DTA3A5          4619-DATA    6063/F       6065/F
   DTA3B5          4620-DATA    6067/F       6069/F
   DTA3C5          4621-DATA    6071/F       6073/F
   DTA3D5          4622-DATA    6075/F       6077/F
   DTA3E5          4623-DATA    6079/F       6081/F
   DTA3F5          4624-EQU     6083/F       6085/F
   DTA327          4611-DATA    6031/F       6033/F
   DTA337          4612-EQU     6035/F       6037/F
   DTA346          4613-DATA    6039/F       6041/F
   DTA356          4614-DATA    6043/F       6045/F
   DTA366          4615-DATA    6047/F       6049/F
   DTA376          4616-EQU     6051/F       6053/F
   DTA385          4617-DATA    6055/F       6057/F
   DTA395          4618-DATA    6059/F       6061/F
   DTA4            4456-DATA    4817/F       4819/F       4821/F       4823/F       4825/F       4827/F
      4829/F       4831/DATA    4833/DATA    8681/G       9029/GEN     9385/G       9386/G
   DTA5            4458-DATA    8690/G       8818/G       8940/G       8952/G       9023/G       9035/G
     11531/G      11578/G
   DTA6            4462-DATA    8708/G       8709/G       8728/G       8729/G      11448/G      11457/G
     11465/G      11484/G      11492/G      11493/G
   DTA7            4468-DATA
   DTMI1           4801-LD      8896/G       8897/G
   DTMI2           4802-LI      8874/G       8875/G
   DTMI4           4805-LD      8907/G       8908/G
   DTRO1           4799-D       8895/G
   DTRO2           4800-DATA    8872/G       8873/G
   DTRO3           4803-D       8884/G
   DTRO4           4804-D       8906/G
   DTT1            4812-F
   DTT10           4847-F
   DTT11           4852-F
   DTT11A          4854-F
   DTT12           4858-F
   DTT13           4862-F
   DTT15           4868-F
   DTT16           4872-F
   DTT17           4876-F
   DTT18           4880-F
   DTT19           4884-F
   DTT2            4816-F      11541/G
   DTT24           4895-F
   DTT25           4897-F       9009/G
   DTT26           4899-F       9372/G
   DTT27           4901-F       9272/G       9361/G
   DTT3            4820-F
   DTT4            4824-F
   DTT5            4828-F
   DTT5A           4830-F
   DTT6            4834-F
   DTT9            4843-F
   DT1             4810-F      11560/GEN
   DT10            4845-F
   DT11            4849-F       9259/G       9348/G
   DT11A           4850-F       9260/G       9349/G
   DT12            4856-F
   DT13            4860-F
   DT15            4866-F
   DT16            4870-F
   DT17            4874-F
   DT18            4878-F
   DT19            4882-F
   DT2             4814-F      11540/G
   DT20            4886-F
   DT21            4888-F
   DT22            4890-F
   DT23            4892-F
   DT24            4893-F      11688/G      11711/G      11712/G
   DT25            4896-F       9008/G
   DT26            4898-F       9371/G
   DT27            4900-F       9271/G       9360/G
   DT3             4818-F
   DT4             4822-F
   DT5             4826-F
   DT6             4832-F
   DT9             4841-F
   DUMMY           1149/BAL     3250-EQU
   DWA:DWT1        2763/LW      2819/LW      2833-DATA
   E                862-COM
   EL:MSK1         2120/AND     2529-DATA
   EM              1024/STW     1136/STW     1196/AW      1223/AW      1933/STW     1942/LW      1949/STW
      1982-DATA    3666/STW
   EM:ADV          1928/BCR     1930/BCR     1937-LW
   EM:C            3583/D       3649-EQU
   EM:CNT          1939/LW      1965/STW     1980-DATA
   EM:FLG          1039/STW     1937/LW      1981-DATA    3662/STW
   EM:LIST         1948/LW      1978-DATA
   EM:VALU         3665/LW      3674-DATA
   END:FLG         1030/STW     3470/LW      3493/STW     4374-DATA
   END:MOVE        1294/STW     1313/CW      1317-DATA
   END:SW          4012/STCF    4014/LC      4022/STW     4035/LW      4131-DATA
   ENDADDR        12204-END
   ENDE           12111/GEN    12119-EQU    12121/EQU    12122/EQU    12123/EQU    12124/EQU    12125/EQU
     12126/EQU    12127/EQU    12128/EQU    12129/EQU    12130/EQU
   ENDT            3490/CW      4372-TEXT
   EOF             3420-D       6764/LI
   EOT             3287/CW      3432-DATA
   ERMG4           3288/BCS     3409-#TYPE
   ERMSG4          3409/#TYPE   3413-TEXTCS
   ERMSG5          3131/#TYPE   3415-TEXTCS
   ERMSG6          3418-TEXTCS  3487/#TYPE
   ERMSG8          3712/#TYPE   3732-TEXTCS
   ERR:CNT         1019/STW     1761/LW      1763/STW     1926/STW     2130/LW      3877/STW     4342-DATA
   ERR:FLG         1035/STW     1754/STW     1822/STW     3459/LW      4343-DATA
   ERR:MSKT        3366/CW      3396/CW      3406-DATA
   ERR:PASS        1873/BCS     1903/BCR     1907-LI
   ERR:RET         3767/B       3803/BCR     3805/BG      3827/BG      3829/BL      3864-LW      3901/BCS
      3904/BCR     3906/BCR     3908/BCR     3974/BG
   ERR:RETJ        3595/B       3607/B       3630/B       3633/B       3656/B       3659/B       3682/B
      3699/B       3735-LW
   ERR:TAPE        3372/#TYPE   3402/#TYPE   3407-TEXTC
   ESM:CI          2174-LW      2202/DATA    4087/BAL
   ESM:CM          2142-LW      2199/DATA    4080/BAL
   ESM:EL          2112-EQU     2188/DATA    2580/BAL     4065/BAL
   ESM:EM          2171-LW      2193/DATA
   ESM:ERRS        2130-LW      2191/DATA    4072/BAL
   ESM:FAIL        2195/DATA    2205-LB
   ESM:FAIL1       2196/DATA    2209-LB      2235/B       2257/B
   ESM:HEDR        1784/LI      1787/#PRINT  1799/LI      2103-TEXTCS
   ESM:MNEM        2123-LI      2194/DATA    2582/BAL     4078/BAL
   ESM:MOD         2106-LW      2187/DATA    2578/BAL     4063/BAL
   ESM:NULL        2278-LW      3727/I
   ESM:PASS        2136-LW      2192/DATA    4074/BAL
   ETM2:ADR        1230/EOR     1253-DATA
   ETP4:ADR        1227/EOR     1252-DATA
   EX:FLG          2751/STW     2762/STW     2767/LW      2831-DATA
   EX:TRP0         1209/CW      1243-DATA
   EX:TRP5         1213/CW      1244-DATA
   EXIT:DL         4041-LW
   EXIT:EM         1938/BCS     1941/BCS     1962-LI
   EXIT:EXU        1344/STW     1432/B*      1434-DATA
   EXIT:MAR        2043-EOR
   EXIT:SD         2733/BCR     2768/BCS     2796/B       2813/B       2829-B
   EXP:TRAP         909/LC       911-DATA    1182/LI      1185/LI      1228/STW     1231/STW     1243/DATA
      1244/DATA    1245/XPSD    1246/XPSD    1247/XPSD    1252/DATA    1253/DATA    7293/K       7309/K
      7325/K       7341/K       7447/K       7493/K       7523/K       7539/K       7555/K       7661/K
      7691/K       7707/K       7723/K       7739/K       7755/K       7929/K       7961/K       8025/K
      8041/K       8057/K       8105/K       8153/K       8263/K       8327/K       8375/K       8407/K
      8469/K       8485/K       8520/K       8671/K       8707/K       8725/K       9043/K       9382/K
     11562/K      11710/K
   EXT:ERR         1664/BCR     1666-BAL
   EXTRAP00        1215/LW      1245-XPSD
   EXTRAP40        1217/LW      1246-XPSD
   EXTRAP46        1211/LW      1247-XPSD
   EXU:SUFF        1106/BAL     1343-EQU
   F                877-COM
   FAIL:ID         2206/LW      2264-DATA
   FETCH           1295-LW      1314/BCS
   FIFTEEN         4334-DATA
   FILL:MSK        1164/AND     1241-DATA
   FILLER          1165/EOR     1242-DATA
   FLAG:MSK        1221/AND     2525-DATA
   FLAG7           4228-DATA
   FLG126          1569/STW     1579/STW     3168/LW      3171/STW     4227-DATA
   FLG45            981/STW     1088-DATA    1153/LW
   FNC:RET         1567/LI      1575-LW
   FORM:ESM        1795/BAL     2083-EQU     2098/B       2101/B*
   FOUR            4333-DATA
   FT:CMP1         1658-LW      1667/BIR
   FT:ERR          1652/BAL     1666/BAL     1698/BAL     1713/BAL     1727/BAL     1751-EQU     1805/BCS*
      1814/B*
   FTE:SS3         1783/BCS     1804-LC
   FTERRMSG        1816/Z       6532-TEXTCS
   FTERSTAT        1801/LW      1816-Z
   FTFL            1018/STW     1452/LW      1460/STW     1535/STW     3541/LW      3773/STW     3889/STW
      3931/STW     4344-DATA
   F0               634/SET      697-EQU
   F1               634/SET      698-EQU     4002/#PRINT
   G                864-COM
   GEN:FLG         1034/STW     1128/LW      1147/LW      1360/LW      1537/LW      1670/LW      1764/LW
      1809/LW      1827/AW      1850/LW      2526-DATA    6696/STW     6759/STW
   GET:CNT         2418/B       2426-LB
   GET:NEXT        1631-LW      1656/B
   GIDLE           3777-LCF
   GO              1077/DATA    1079-DATA
   GO:SNAP         3466/BCS     3471/BCS     3494/B       3508/B       3539-EQU
   GUIDE          12108-STW    12204/END
   H                866-COM
   HALT            1806/#TYPE   1817-TEXTCS
   HDR:ADR         2900/LW      2979/LW      4330-EQU
   HDR:OUT         2901/BAL     2961-EQU     2974/B*      2982/BAL
   HFF             3870/AND     3882-DATA    3895/AND
   HFFFF           3251/AND     3337-DATA
   H17             2071-DATA
   I                868-COM
   IA              1397/STW     1741/DATA    4390-DATA    7040/LM*     7051/LM*     7121/STM*    7132/STM*
      9380/GEN
   IAM32           1085-DATA    8743/LRA*    8752/LRA*    8761/LRA*    8770/LRA*    8833/LRA*    8842/LRA*
      8851/LRA*    8860/LRA*
   IAP             1086-DATA
   IASP            1354/STW     4391-DATA    7369/MSP*    7583/PSW*    7721/PLW*    7785/PLW*    8103/PLM*
      8436/PSM*
   IAX             1084-DATA    8687/LRA*    8815/LRA*
   IA32            4392-DATA    7384/MSP*    7598/PSW*    7801/PLW*    8023/PLM*    8119/PLM*    8293/PSM*
      8451/PSM*    8467/PSM*
   IC:MSG          4367-TEXTCS  6693/#TYPE
   ID:EL           2228/LW      2274-TEXT
   ID:EXT          1658/LW      1744-EQU
   ID:WRT          3253/LI      3436-D       6716/LI
   IDCVT           4756-DATA   11416/CVA*   11471/CVS*
   IDX:ADR         2334/STW     2492-DATA    2607/LW*
   IDX:EBC         2329/STW     2494-DATA    2605/LW
   IDX:EQ          2328/OR      2509-DATA
   IDX:MSK         2321/AND     2508-DATA
   IDX:SAV         3513/STW     3534/LW      4377-DATA
   IDX:SAV1        2327/STW     2331/LW      2420/LW      2493-DATA
   IDX:TAPE        3271-EQU     3299/BAL
   IDX:TST         2313-LC
   IN:0X34         2546-EQU
   IN:1X78         2551-EQU
   INC:RET         1177/BE      1194-AI
   INI:EXIT         952/STW     1076/BAL*    1082-DATA
   INIFLG           958/LW       973/LW      1062/STW     1087-DATA
   INITIAL          807/DATA     951-EQU
   IO:PTR          2569-EQU     2632/LW      2785/LW
   IO:RTAB0        2499-EQU     2670/LW
   IO:RTAB1        2503-EQU     2692/LW
   IO34IDX         2518-DATA
   IO78IDX         2519-DATA
   IX              4764-DATA    8885/G       8886/G      11419/G      11474/G
   IXO             4767-DATA   11475/G
   IXO1            4770-DATA   11420/G
   J                885-CNAME
   J%EXPL          6414-TEXTCS  6664/Z
   JH              3549-TEXTCS  3553/DATA
   JINIT           1007/STW     1011/STW     1012/LB      1013/LB      1049/LW      1133/LW
      3551-TEXTCS  3703/STW
   JL:EXIT         3556/STW     3576-DATA    3737/B*
   JOUT            1014/STB     1050/STW     1134/STW     1961/STW     2024/LW      2038/STB     2147/LW
      2171/LW      2181/LW      3550-TEXTCS  3552/DATA    3561/LW      3598/STW     3610/STW     3619/STW
      3641/STW     3668/STW     3690/STW     3702/STW     3722/STW     4076/LW
   JP:LST          3564/LW*     3588-DATA    3735/LW*
   JRTA            3555-EQU     6662/E
   K                870-COM
   K%EXPL          6458-TEXTCS  6669/Z
   KH              3741-TEXTCS  3746/DATA
   KINIT            992/STW     1000/STW     1001/LB      1002/LB      3743-TEXTCS
   KL:EXIT         3748/STW     3866/B*      3983-DATA
   KL:FLG          1997/LW      2021-DATA    3769/STW     3772/STW     4008/STW     4021/STW
   KOUT            1003/STB     1843/STW     1865/LW      1868/STW     2590/LW      3742-TEXTCS  3745/DATA
      3754/LW      3810/STW     3812/STW     3832/STW     3833/LW      3835/STW     3853/STW     3855/LW
      3857/STW     3879/STW     3926/STW     3950/STW     3968/STW     3980/STW     4082/LW      4085/LW
   KP:LST          3757/LW      3794-DATA    3864/LW*
   KRTA            3747-EQU     6667/E
   L                872-COM
   LAST:MOD         794/DATA     986/LI      3826/CI     12101-SET
   LAST:9R          984/LI     11495-SET
   LASTMODULE      4178/CI      6839/DO     12104-EQU
   LC:C            3788/D       3868-EQU
   LC:EXIT         1468/STW     1516/LW      1521/STW     4353-DATA
   LC:FLG          1467/STW     1500/STW     1518/LW      4346-DATA
   LCNT            1027/STW     1910/LW      1914/AW      3873/STW     3883-DATA
   LEFT00          4643-DATA    9137/G
   LEFT01          4644-DATA    9147/G
   LEFT03          4645-DATA    9157/G
   LEFT04          4646-DATA    9167/G
   LEFT07          4647-DATA    9177/G
   LEFT08          4648-DATA    9187/G
   LEFT11          4650-DATA    9197/G
   LEFT12          4651-DATA    9207/G
   LEFT13          4652-DATA    9217/G
   LFT:PTR         2536-EQU     2630/LW      2660/LW
   LINEADR         3043/LW      4318-EQU
   LINE0ADR        4315-DATA
   LINE1ADR        4316-DATA
   LINE2ADR        4317-DATA
   LIST             796/DATA    1051/LI      1989/LI      4171/LI      6734/LI      6793-RES
   LISTEXT         1395/STW     1661/LW      1732-EQU
   LISTPTR          796-DATA    1052/STW     1116/LW*     1119/LW*     1140/LW*     1152/LW*     1166/LW*
      1174/LW*     1190/LW*     1207/LW*     1289/LB*     1295/LW*     1376/LD*     1550/LW*     1629/LB*
      1648/LW*     1693/LW*     1844/LB*     1845/AW      1846/STW     1990/STW     2106/LW*     2114/LB*
      2124/LW*     2435/LW*     2586/LW*     2627/LW      3261/LW*     4003/LW      4036/LB*     4037/AW
      4038/STW     4042/STW     6735/STW
   LISTS           6988-EQU
   LISTSAV         4004/STW     4041/LW      4128-DATA
   LM:ADR          2374/BCS     2409-LW
   LO:MSK          2040/AW      2066-DATA
   LOADPNT         3345/AND     3431-DATA
   LOC              937/DATA     997/LI      1117/STW     1176/CI      1178/CI      1192/CI      1234/AI
      1348/GEN     1394/STW     1408/B       1409/EXU     1410/B       1412-DATA    1676/D       1677/D
      1742/DATA    2189/GEN     2256/AI      2297/LB      2312/LW      2344/LW      2390/AW      2409/LW
      4067/#HTECON 4363/GEN     4364/GEN     4387/DATA    4388/DATA    6993/K       6994/K       7005/K
      7006/K       7017/K       7018/K       7029/K       7030/K       7041/K       7042/K       7052/K
      7053/K       7065/K       7066/K       7074/K       7075/K       7086/K       7087/K       7098/K
      7099/K       7110/K       7111/K       7122/K       7123/K       7133/K       7134/K       7144/K
      7145/K       7152/K       7153/K       7168/K       7169/K       7184/K       7185/K       7200/K
      7201/K       7216/K       7217/K       7231/K       7232/K       7246/K       7247/K       7261/K
      7262/K       7276/K       7277/K       7292/K       7308/K       7324/K       7340/K       7355/K
      7356/K       7370/K       7371/K       7385/K       7386/K       7400/K       7401/K       7416/K
      7417/K       7431/K       7432/K       7446/K       7461/K       7462/K       7477/K       7478/K
      7492/K       7507/K       7508/K       7522/K       7538/K       7554/K       7569/K       7570/K
      7584/K       7585/K       7599/K       7600/K       7614/K       7615/K       7630/K       7631/K
      7645/K       7646/K       7660/K       7675/K       7676/K       7690/K       7706/K       7722/K
      7738/K       7754/K       7770/K       7771/K       7786/K       7787/K       7802/K       7803/K
      7818/K       7819/K       7835/K       7836/K       7851/K       7852/K       7866/K       7867/K
      7881/K       7882/K       7896/K       7897/K       7912/K       7913/K       7928/K       7944/K
      7945/K       7960/K       7976/K       7977/K       7992/K       7993/K       8008/K       8009/K
      8024/K       8040/K       8056/K       8072/K       8073/K       8088/K       8089/K       8104/K
      8120/K       8121/K       8136/K       8137/K       8152/K       8168/K       8169/K       8184/K
      8185/K       8200/K       8201/K       8215/K       8216/K       8230/K       8231/K       8246/K
      8247/K       8262/K       8278/K       8279/K       8294/K       8295/K       8310/K       8311/K
      8326/K       8342/K       8343/K       8358/K       8359/K       8374/K       8390/K       8391/K
      8406/K       8421/K       8422/K       8437/K       8438/K       8452/K       8453/K       8468/K
      8484/K       8499/K       8500/K       8508/K       8509/K       8519/K       8530/K       8531/K
      8539/K       8540/K       8548/K       8549/K       8557/K       8558/K       8565/K       8566/K
      8573/K       8574/K       8582/K       8583/K       8594/K       8595/K       8605/K       8606/K
      8616/K       8617/K       8625/K       8626/K       8634/K       8635/K       8643/K       8644/K
      8652/K       8653/K       8661/K       8662/K       8670/K       8679/K       8680/K       8688/K
      8689/K       8697/K       8698/K       8706/K       8715/K       8716/K       8724/K       8735/K
      8736/K       8744/K       8745/K       8753/K       8754/K       8762/K       8763/K       8771/K
      8772/K       8780/K       8781/K       8789/K       8790/K       8798/K       8799/K       8807/K
      8808/K       8816/K       8817/K       8825/K       8826/K       8834/K       8835/K       8843/K
      8844/K       8852/K       8853/K       8861/K       8862/K       8870/K       8871/K       8881/K
      8882/K       8892/K       8893/K       8903/K       8904/K       8914/K       8915/K       8923/K
      8924/K       8935/K       8936/K       8947/K       8948/K       8959/K       8960/K       8970/K
      8971/K       8982/K       8983/K       8994/K       8995/K       9006/K       9007/K       9018/K
      9019/K       9030/K       9031/K       9042/K       9052/K       9053/K       9062/K       9063/K
      9072/K       9073/K       9082/K       9083/K       9092/K       9093/K       9102/K       9103/K
      9112/K       9113/K       9122/K       9123/K       9132/K       9133/K       9142/K       9143/K
      9152/K       9153/K       9162/K       9163/K       9172/K       9173/K       9182/K       9183/K
      9192/K       9193/K       9202/K       9203/K       9212/K       9213/K       9224/K       9225/K
      9236/K       9237/K       9248/K       9249/K       9257/K       9258/K       9269/K       9270/K
      9281/K       9282/K       9293/K       9294/K       9305/K       9306/K       9317/K       9318/K
      9327/K       9328/K       9337/K       9338/K       9346/K       9347/K       9358/K       9359/K
      9369/K       9370/K       9381/K       9391/K       9392/K       9399/K       9400/K       9407/K
      9408/K       9415/K       9416/K       9423/K       9424/K       9431/K       9432/K       9439/K
      9440/K       9447/K       9448/K       9455/K       9456/K       9463/K       9464/K       9471/K
      9472/K       9479/K       9480/K       9487/K       9488/K       9495/K       9496/K       9503/K
      9504/K       9511/K       9512/K       9519/K       9520/K       9527/K       9528/K       9535/K
      9536/K       9543/K       9544/K       9551/K       9552/K       9559/K       9560/K       9567/K
      9568/K       9575/K       9576/K       9583/K       9584/K       9591/K       9592/K       9599/K
      9600/K       9607/K       9608/K       9615/K       9616/K       9623/K       9624/K       9631/K
      9632/K       9639/K       9640/K       9647/K       9648/K       9655/K       9656/K       9663/K
      9664/K       9671/K       9672/K       9679/K       9680/K       9687/K       9688/K       9695/K
      9696/K       9703/K       9704/K       9711/K       9712/K       9719/K       9720/K       9727/K
      9728/K       9735/K       9736/K       9743/K       9744/K       9751/K       9752/K       9759/K
      9760/K       9767/K       9768/K       9775/K       9776/K       9783/K       9784/K       9791/K
      9792/K       9799/K       9800/K       9807/K       9808/K       9815/K       9816/K       9823/K
      9824/K       9831/K       9832/K       9839/K       9840/K       9847/K       9848/K       9855/K
      9856/K       9863/K       9864/K       9871/K       9872/K       9879/K       9880/K       9887/K
      9888/K       9895/K       9896/K       9903/K       9904/K       9911/K       9912/K       9919/K
      9920/K       9927/K       9928/K       9935/K       9936/K       9943/K       9944/K       9951/K
      9952/K       9959/K       9960/K       9967/K       9968/K       9975/K       9976/K       9983/K
      9984/K       9991/K       9992/K       9999/K      10000/K      10007/K      10008/K      10015/K
     10016/K      10023/K      10024/K      10031/K      10032/K      10039/K      10040/K      10047/K
     10048/K      10055/K      10056/K      10063/K      10064/K      10071/K      10072/K      10079/K
     10080/K      10087/K      10088/K      10095/K      10096/K      10103/K      10104/K      10111/K
     10112/K      10119/K      10120/K      10127/K      10128/K      10135/K      10136/K      10143/K
     10144/K      10151/K      10152/K      10159/K      10160/K      10167/K      10168/K      10175/K
     10176/K      10183/K      10184/K      10191/K      10192/K      10199/K      10200/K      10207/K
     10208/K      10215/K      10216/K      10223/K      10224/K      10231/K      10232/K      10239/K
     10240/K      10247/K      10248/K      10255/K      10256/K      10263/K      10264/K      10271/K
     10272/K      10279/K      10280/K      10287/K      10288/K      10295/K      10296/K      10303/K
     10304/K      10311/K      10312/K      10319/K      10320/K      10327/K      10328/K      10335/K
     10336/K      10343/K      10344/K      10351/K      10352/K      10359/K      10360/K      10367/K
     10368/K      10375/K      10376/K      10383/K      10384/K      10391/K      10392/K      10399/K
     10400/K      10407/K      10408/K      10415/K      10416/K      10423/K      10424/K      10431/K
     10432/K      10439/K      10440/K      10447/K      10448/K      10455/K      10456/K      10463/K
     10464/K      10471/K      10472/K      10479/K      10480/K      10487/K      10488/K      10495/K
     10496/K      10503/K      10504/K      10511/K      10512/K      10519/K      10520/K      10527/K
     10528/K      10535/K      10536/K      10543/K      10544/K      10551/K      10552/K      10559/K
     10560/K      10567/K      10568/K      10575/K      10576/K      10583/K      10584/K      10591/K
     10592/K      10599/K      10600/K      10607/K      10608/K      10615/K      10616/K      10623/K
     10624/K      10631/K      10632/K      10639/K      10640/K      10647/K      10648/K      10655/K
     10656/K      10663/K      10664/K      10671/K      10672/K      10679/K      10680/K      10687/K
     10688/K      10695/K      10696/K      10703/K      10704/K      10711/K      10712/K      10719/K
     10720/K      10727/K      10728/K      10735/K      10736/K      10743/K      10744/K      10751/K
     10752/K      10759/K      10760/K      10767/K      10768/K      10775/K      10776/K      10783/K
     10784/K      10791/K      10792/K      10799/K      10800/K      10807/K      10808/K      10815/K
     10816/K      10823/K      10824/K      10831/K      10832/K      10839/K      10840/K      10847/K
     10848/K      10855/K      10856/K      10863/K      10864/K      10871/K      10872/K      10879/K
     10880/K      10887/K      10888/K      10895/K      10896/K      10903/K      10904/K      10911/K
     10912/K      10919/K      10920/K      10927/K      10928/K      10935/K      10936/K      10943/K
     10944/K      10951/K      10952/K      10959/K      10960/K      10967/K      10968/K      10975/K
     10976/K      10983/K      10984/K      10991/K      10992/K      10999/K      11000/K      11007/K
     11008/K      11015/K      11016/K      11023/K      11024/K      11031/K      11032/K      11039/K
     11040/K      11047/K      11048/K      11055/K      11056/K      11063/K      11064/K      11071/K
     11072/K      11079/K      11080/K      11087/K      11088/K      11095/K      11096/K      11103/K
     11104/K      11111/K      11112/K      11119/K      11120/K      11127/K      11128/K      11135/K
     11136/K      11143/K      11144/K      11151/K      11152/K      11159/K      11160/K      11167/K
     11168/K      11175/K      11176/K      11183/K      11184/K      11191/K      11192/K      11199/K
     11200/K      11207/K      11208/K      11215/K      11216/K      11223/K      11224/K      11231/K
     11232/K      11239/K      11240/K      11247/K      11248/K      11255/K      11256/K      11263/K
     11264/K      11271/K      11272/K      11279/K      11280/K      11287/K      11288/K      11295/K
     11296/K      11303/K      11304/K      11311/K      11312/K      11319/K      11320/K      11327/K
     11328/K      11335/K      11336/K      11343/K      11344/K      11351/K      11352/K      11359/K
     11360/K      11367/K      11368/K      11377/K      11378/K      11387/K      11388/K      11397/K
     11398/K      11407/K      11408/K      11417/K      11418/K      11426/K      11427/K      11435/K
     11436/K      11445/K      11446/K      11454/K      11455/K      11462/K      11463/K      11472/K
     11473/K      11481/K      11482/K      11490/K      11491/K      11502/K      11503/K      11514/K
     11515/K      11526/K      11527/K      11538/K      11539/K      11550/K      11551/K      11561/K
     11573/K      11574/K      11585/K      11586/K      11596/K      11597/K      11607/K      11608/K
     11618/K      11619/K      11629/K      11630/K      11640/K      11641/K      11651/K      11652/K
     11663/K      11664/K      11675/K      11676/K      11686/K      11687/K      11697/K      11698/K
     11709/K      11717/K      11718/K      11725/K      11726/K      11733/K      11734/K      11741/K
     11742/K      11749/K      11750/K      11757/K      11758/K      11765/K      11766/K      11773/K
     11774/K      11781/K      11782/K      11789/K      11790/K      11797/K      11798/K      11805/K
     11806/K      11813/K      11814/K      11821/K      11822/K      11829/K      11830/K      11837/K
     11838/K      11845/K      11846/K      11853/K      11854/K      11861/K      11862/K      11869/K
     11870/K      11877/K      11878/K      11885/K      11886/K      11893/K      11894/K      11901/K
     11902/K      11909/K      11910/K      11917/K      11918/K      11925/K      11926/K      11933/K
     11934/K      11941/K      11942/K      11949/K      11950/K      11957/K      11958/K      11965/K
     11966/K      11973/K      11974/K      11981/K      11982/K      11989/K      11990/K      11997/K
     11998/K      12005/K      12006/K      12013/K      12014/K      12021/K      12022/K      12029/K
     12030/K      12037/K      12038/K      12045/K      12046/K      12053/K      12054/K      12061/K
     12062/K      12069/K      12070/K      12077/K      12078/K      12085/K      12086/K      12093/K
     12094/K
   LOCADR          1222/EOR     4387-DATA
   LOC1:SW         1173/STW     1180/STW     1203/LW      1254-DATA
   LOC2ADR         4388-DATA
   LONG:SNP        3939/LW      3954-B
   LONGPTR         1492/B*      1669/BCS*    1780/B*      2521-DATA
   LOOKFWD         3273/BCR     3278-LI      3291/BCS     6733/BAL
   LRAD            4785-DATA    8637/G       8646/G       8655/G       8664/G       8691/G       8700/G
      8718/G       8738/G       8747/G       8755/G       8756/G       8764/G       8765/G       8773/G
      8774/G       8783/G       8792/G       8801/G       8810/G       8819/G       8828/G       8837/G
      8845/G       8846/G       8854/G       8855/G       8863/G       8864/G
   LRAT             943-DATA
   LS:MSK           991/AND     1842/AND     2109/AND     2133/AND     2139/AND     3331/AND     4206/AND
      4340-DATA
   LS:MSK2         4341-DATA
   LST:NUM          987/STW     3804/CW      3815-DATA    3992/CW      3999/CW
   LSTSERVO        1869/BAL     1987-EQU     1996/B       3770/BAL     4019/BAL
   M                875-COM
   MA:PTR          1466/STW     1483/LW      1494/LW      1507/LW      1511/STW     1515/STW     4345-DATA
   MAP8            8590-EQU     8593/MMC
   MAP9            8601-EQU     8604/MMC
   MAR:FLG         2047/STW     2060-DATA
   MAR:SET         1025/STW     2033/LB      2034/LW      2052/STB     2056-M
   MAR:TAPE         971/BAL     1557/BAL     1931/BAL     3296-EQU     3308/BCR     3323/B       3349/B
   MASK8           1159/AND     1255-DATA
   MAX:CLR         3207/STW     3211/STW     3439-DATA    6690/LW
   MCNT:IN         1322-DATA    1379/LW
   MCNT:OUT        1323-DATA
   MCR:C           3787/D       3841-EQU     3854/B*      3860/B*
   MCR:NUM          795-DATA     995/STW     1830/LW      1834/STW     1864/STW     1991/CW      3304/CW
      3307/AW      3327/LW      3498/LW      3807/STW     3837/STW     3851/STW     3859/STW     4005/LW
      4010/STW     4044/STW     6737/STW
   MCR:SAV         4006/STW     4043/LW      4129-DATA
   MEMORY          1086/DATA    1381/STW     1396/LI      1682/D       1683/D       1686/D       1709/LW
      1735/DATA    2436/AI      4390/DATA    4468/DATA    4808/F       4810/F       4812/F       4814/F
      4816/F       4818/F       4820/F       4822/F       4824/F       4826/F       4828/F       4830/F
      4832/F       4834/F       4835/F       4836/F       4837/F       4839/F       4841/F       4843/F
      4845/F       4847/F       4849/F       4850/F       4852/F       4854/F       4866/F       4868/F
      4870/F       4872/F       4874/F       4876/F       4878/F       4880/F       4882/F       4884/F
      4886/F       4888/F       4890/F       4892/F       4893/F       4895/F       4896/F       4897/F
      6086/F       6087/F       6088/F       6089/F       6090/F       6091/F       6092/F       6093/F
      6094/F       6095/F       6096/F       6097/F       6098/F       6099/F       6100/F       6101/F
      6102/F       6103/F       6104/F       6105/F       6106/F       6107/F       6108/F       6109/F
      6110/F       6111/F       6112/F       6113/F       6114/F       6115/F       6116/F       6117/F
      6118/F       6119/F       6120/F       6121/F       6122/F       6123/F       6124/F       6125/F
      6126/F       6127/F       6128/F       6129/F       6130/F       6131/F       6132/F       6133/F
      6134/F       6135/F       6136/F       6137/F       6138/F       6139/F       6140/F       6141/F
      6142/F       6143/F       6144/F       6145/F       6146/F       6147/F       6148/F       6149/F
      6153/DATA    6155/DATA    6158/DATA    6160/DATA    6163/DATA    6165/DATA    6168/DATA    6170/DATA
      6173/DATA    6175/DATA    6178/DATA    6180/DATA    6183/DATA    6185/DATA    6187/DATA    6189/DATA
      6992/LM      7004/LM      7016/LM      7028/LM      7073/STM     7085/STM     7097/STM     7109/STM
      7158/DATA    7160/DATA    7174/DATA    7176/DATA    7190/DATA    7192/DATA    7206/DATA    7208/DATA
      7222/DATA    7224/DATA    7237/DATA    7239/DATA    7252/DATA    7254/DATA    7267/DATA    7269/DATA
      7282/DATA    7284/DATA    7298/DATA    7300/DATA    7314/DATA    7316/DATA    7330/DATA    7332/DATA
      7346/DATA    7348/DATA    7361/DATA    7363/DATA    7376/DATA    7378/DATA    7391/DATA    7393/DATA
      7406/DATA    7408/DATA    7422/DATA    7424/DATA    7437/DATA    7439/DATA    7452/DATA    7454/DATA
      7467/DATA    7469/DATA    7483/DATA    7485/DATA    7498/DATA    7500/DATA    7513/DATA    7515/DATA
      7528/DATA    7530/DATA    7544/DATA    7546/DATA    7560/DATA    7562/DATA    7575/DATA    7577/DATA
      7590/DATA    7592/DATA    7605/DATA    7607/DATA    7620/DATA    7622/DATA    7636/DATA    7638/DATA
      7651/DATA    7653/DATA    7666/DATA    7668/DATA    7681/DATA    7683/DATA    7696/DATA    7698/DATA
      7712/DATA    7714/DATA    7728/DATA    7730/DATA    7744/DATA    7746/DATA    7760/DATA    7762/DATA
      7776/DATA    7778/DATA    7792/DATA    7794/DATA    7808/DATA    7810/DATA    7824/DATA    7826/DATA
      7841/DATA    7843/DATA    7857/DATA    7859/DATA    7872/DATA    7874/DATA    7887/DATA    7889/DATA
      7902/DATA    7904/DATA    7918/DATA    7920/DATA    7934/DATA    7936/DATA    7950/DATA    7952/DATA
      7966/DATA    7968/DATA    7982/DATA    7984/DATA    7998/DATA    8000/DATA    8014/DATA    8016/DATA
      8030/DATA    8032/DATA    8046/DATA    8048/DATA    8062/DATA    8064/DATA    8078/DATA    8080/DATA
      8094/DATA    8096/DATA    8110/DATA    8112/DATA    8126/DATA    8128/DATA    8142/DATA    8144/DATA
      8158/DATA    8160/DATA    8174/DATA    8176/DATA    8190/DATA    8192/DATA    8206/DATA    8208/DATA
      8221/DATA    8223/DATA    8236/DATA    8238/DATA    8252/DATA    8254/DATA    8268/DATA    8270/DATA
      8284/DATA    8286/DATA    8300/DATA    8302/DATA    8316/DATA    8318/DATA    8332/DATA    8334/DATA
      8348/DATA    8350/DATA    8364/DATA    8366/DATA    8380/DATA    8382/DATA    8396/DATA    8398/DATA
      8412/DATA    8414/DATA    8427/DATA    8429/DATA    8443/DATA    8445/DATA    8458/DATA    8460/DATA
      8474/DATA    8476/DATA    8490/DATA    8492/DATA    8869/ANLZ    8902/ANLZ    8958/MBS     8981/MBS
      9051/MBS     9235/CBS     9256/CBS     9304/CBS     9345/CBS     9368/CBS    12122-EQU
   MI:ADR          1048/HIO*    3708/HIO*    3716/STW     3731-DATA
   MI:C            3587/D       3706-EQU
   MINUS2          2350/AND     2367/AND     2505-DATA
   MMC:ADR         2378/BCS     2449-LI
   MMCD            1084/DATA    1085/DATA    4779-DATA    8633/LRA     8642/LRA     8651/LRA     8660/LRA
      8669/LRA     8696/LRA     8714/LRA     8734/LRA     8779/LRA     8788/LRA     8797/LRA     8806/LRA
      8824/LRA
   MMCI            4778-DATA    8609/G       8610/G
   MMCR1           6153-DATA    8501/G       8521/G       8522/G       8532/G       8584/G
   MMCR1F          6155-DATA    8502/G       8533/G       8585/G
   MMCR2           6158-DATA    8510/G       8541/G
   MMCR2F          6160-DATA    8511/G       8542/G
   MMCR3           6163-DATA    8567/G
   MMCR3F          6165-DATA    8568/G
   MMCR4           6168-DATA    8575/G
   MMCR4F          6170-DATA    8576/G
   MMCR5           6173-DATA    8550/G
   MMCR5F          6175-DATA    8551/G
   MMCR6           6178-DATA    8559/G       8596/G
   MMCR6F          6180-DATA    8560/G       8597/G
   MMCR7           6183-DATA    8618/G       8627/G
   MMCR7F          6185-DATA    8619/G       8628/G
   MMCR8           6187-DATA    8607/G
   MMCR8F          6189-DATA    8608/G
   MNEM:MSG        4163/#TYPE   4166-TEXTC
   MNEM:X2         4160/BCR     4168-LI      4180/B
   MNEMEND         6322-EQU
   MNEMLIST        2127/LW      4159/CW      6192-EQU
   MOD%END         6841-EQU
   MOD:DATA        1572/BAL     2622-EQU     2829/B*      4034/BAL
   MOD:HDR         1571/BAL     2572-EQU     2617/B*      4033/BAL
   MOD:MSG         3501/#TYPE   3546-TEXTCS
   MOD:MSK         3303/AND     3802/AND     3824/AND     3846/AND     4376-DATA
   MOD#CHK         3473/BCS     3496-NOP
   MODLIST1        6800-SET     6814-SET     6814/SET     6895-SET     6948/GEN
   MODLIST2        6802-SET     6816-SET     6816/SET     6901-SET     6954/GEN
   MODLIST3        6804-SET     6818-SET     6818/SET     6907-SET     6960/GEN
   MODLIST4        6806-SET     6820-SET     6820/SET     6913-SET     6966/GEN
   MODLIST5        6808-SET     6822-SET     6822/SET     6917-SET     6970/GEN
   MODT            2531-TEXT    2576/LW
   MODULE          6834-CNAME
   MODULE%         6830-SET     6895/SET     6901/SET     6907/SET     6913/SET     6917/SET     6931-SET
   MODULE:         6832-SET     6866-SET     6868-SET     6868/SET     6948/GEN     6954/GEN     6960/GEN
      6966/GEN     6970/GEN
   MODULE#         6828-SET     6891/DO      6893/DO      6895-SET     6899/DO      6901-SET     6905/DO
      6907-SET     6911/DO      6913-SET     6917-SET     6929-SET     6929/SET     6940-SET     6940/SET
      6946/DO      6948/GEN     6948/GEN     6952/DO      6954/GEN     6954/GEN     6958/DO      6960/GEN
      6960/GEN     6964/DO      6966/GEN     6966/GEN     6970/GEN     6970/GEN    11495/SET    12101/SET
     12103/SET
   MODULE@         6810-SET     6824-SET     6824/SET     6845/RES     6849/DO      6851/SET     6853/SET
      6878/DO      6880-SET     6884-SET     6884/SET
   MOV:TAPE        3321/BAL     3322/BDR     3341-EQU     3370/BAL     3400/BAL     6749/BAL
   MOVB            3314/LI      3369/LI      3399/LI      3444-D
   MOVERS          1101/BAL     1278-EQU     1351/BAL     4025/BAL
   MOVF            1145/LI      3310/LI      3447-D
   MP:MSK          1167/AND     1256-DATA
   MR%EXPL         6524-TEXTCS  6654/Z
   MS:RTN          2958/B       3139-BIR     3163/BCS
   MSAV            2555-DATA
   MSAV1           2556-DATA
   MSB21           3811/AW      3834/AW      3856/AW      3862-DATA    4083/AW
   MSG:C           3578/D       3590-EQU
   MSG:CNT         1792/STB     2099/LB      2186-DATA
   MSG:LST         1790/LI      2187-DATA
   MSG:OK          3593/BCR     3596-STW
   MSGADR          4359-DATA
   MSK:BTM         2986/CW      3162/CW      4679-EQU     8699/G       8746/G       8827/G       8836/G
   MSK:CM          2039/AND     2064-DATA
   MSK:DATA        3514/LW      3524-#ETHCON 3529/LW      3531/STW     3537/STW
   MSK:IDX         3512/LW      3521-#ETHCON 3526/LW      3528/STW     3533/BIR     3535/STW
   MSK:LST         3021/CW      3029/#TYPE   3072/CW      4002/#PRINT  4655-EQU
   MSK:TST         3138/BCS     3159-EQU
   MSP:C           3786/D       3819-EQU     3838/B*
   MSP:NUM          794-DATA     988/STW     1824/CW      1832/CW      3763/LW      3830/STW     3849/CW
   MST:C           3785/D       3797-EQU     3813/B*
   MST:INIT        1833/BCS     1849-EQU
   MST:NUM          793-DATA     994/STW     1823/LW      1863/LW      3764/CW      3808/STW     3828/CW
      3836/LW      3847/CW      3858/LW
   MT:C            3585/D       3695-EQU
   MTABLIN         1334/DATA    1380/LW      2424/LI      2437/AI      2449/LI     12124-EQU
   MTABLOUT        1335/DATA    1708/LW     12126-EQU
   NC:FLG          3073/BCR     3080-EQU
   NEG2MSK         2512-DATA
   NEM             4777-DATA
   NEW:CM          1054/AND     2036/AND     2042/AND     2062-DATA    3635/AND
   NEW:HDR         2882-LI      2933/B       3153/BIR
   NEW:MSK         2063-DATA
   NEW:MST         3753/STB     3777/LCF     3800/STW     3816-DATA    3822/STW     3844/STW     3891/STW
   NEXT:MOD        4022-STW     4039/BIR
   NEXT:WRD        1296/BEZ     1312-AI
   NO:CON          2989/B       2996-LI
   NO:GEN          1127/BCR     1142/BCR     1152-LW
   NO:SN           3325-LW      3362/BCR
   NO:SNAP         1497/BAL     1608-EQU     1620/LCF     1621/B*
   NOCI            1880/B       1882/BCR     1884/BCS     1899-LW
   NODEV           3594/#TYPE   3601-TEXTCS
   NORM:SNP        1058/LW      3935/LW      3953-BCR
   NOT:REG         2412/BCS     2420-LW
   NOTAPE           957/BCR      959/BCS      966/B        968/BCR      970/BCR      973-LW
   NS:MSG          3332/STW     3333/#PRINT  3339-TEXTCS
   NSM             1616/STW     1617/STW     1618/#TYPE   1623-TEXTCS
   NXT:CLK         3135-LI      3146/B
   OB:CNT          4336-DATA
   OB:OUT          2907/BE      2918/BCR     2923/B       2935-EQU
   OB:SW           4229-DATA
   OBS:IDLA        1674-EQU
   OBS:IDLS        1631/LW      1675-EQU     1707/LW      1721/LW
   OBSEXT          1659/LW      1738-EQU
   OC:CBS          2483-H
   OC:CVA          2486-H
   OC:CVS          2487-H
   OC:FLG          2292/STB     2310/STB     2313/LC      2323/LB      2325/STB     2336/LC      2375/LC
      2490-DATA    2601/LC      2648/LC      2651/LC      2658/LC      2672/LC      2682/LC      2688/LC
   OC:LIST         2290/LI      2299/LI      2473-EQU
   OC:LISTE        2290/LI      2293/STB     2299/LI      2300/CB      2307/STB     2309/LB      2488-EQU
   OC:LM           2373/LC      2474-H
   OC:MBS          2482-H
   OC:MMC          2377/LC      2481-H
   OC:MSP          2480-H       2719/LC
   OC:PLM          2379/LC      2476-H
   OC:PLW          2385/LC      2478-H
   OC:PREP         1121/BAL     2282-EQU     2469/B*
   OC:PSM          2383/LC      2477-H
   OC:PSW          2479-H       2717/LC
   OC:SP           2491-DATA
   OC:STM          2381/LC      2475-H
   OC:TBS          2484-H
   OC:TTBS         2485-H
   OE:ADV          2957/BAL     3109-LW      3134/BAL     3165/BAL
   ONE             2226/AND     2259/AND     4332-DATA
   ONES            1954/EOR     2416/EOR     3306/EOR     3312/EOR     3615/EOR     3663/EOR     3871/EOR
      4013/EOR     4200/EOR     4360-DATA
   OUT:IDX         2324/AND     2507-DATA
   OUT:0X34        2560-EQU
   OUT:1X78        2565-EQU
   OUTBUF          1796/#PRINT  2090/STW     2094/STW     2100/STB     2577/STW     2579/STW     2581/STW
      2583/STW     2585/STW     2588/STW     2589/STW     2592/STW     2593/STW     2594/STW     2595/STW
      2597/STW     2599/STW     2604/STW     2606/STW     2609/STW     2610/STW     2612/STB
      2614/#PRINT  2629/STW     2631/STW     2633/STW     2634/STW     2635/STW     2644/STW     2645/STW
      2647/STB     2656/STW     2663/STW     2680/STW     2681/STW     2687/STW     2695/STW     2696/STW
      2698/STB     2699/#PRINT  2723/STW     2738/STW     2744/STB     2745/#PRINT  2776/STW     2784/STW
      2786/STW     2789/STW     2790/STW     2792/STB     2793/#PRINT  2802/STB     2805/STW     2806/STW
      2810/#PRINT  4170/STW     4189/STW     4191/STW     4207/STW     4209/STB     4210/#TYPE   4335-RES
   OVRLAP00        6086-F       9064/G       9065/G
   OVRLAP01        6090-F       9074/G       9075/G
   OVRLAP03        6094-F       9084/G       9085/G
   OVRLAP04        6098-F       9094/G       9095/G
   OVRLAP07        6102-F       9104/G       9105/G
   OVRLAP08        6106-F       9114/G       9115/G
   OVRLAP11        6110-F       9124/G       9125/G
   OVRLAY00        6114-F       9134/G       9135/G
   OVRLAY01        6118-F       9144/G       9145/G
   OVRLAY03        6122-F       9154/G       9155/G
   OVRLAY04        6126-F       9164/G       9165/G
   OVRLAY07        6130-F       9174/G       9175/G
   OVRLAY08        6134-F       9184/G       9185/G
   OVRLAY11        6138-F       9194/G       9195/G
   OVRLAY12        6142-F       9204/G       9205/G
   OVRLAY13        6146-F       9214/G       9215/G
   PAR:ERR         4135/STW     4136/#PRINT  4142-TEXTCS
   PARA:SET         977-LW
   PAR1:LJ         4149/BCS     4157-LI      4162/BIR
   PASS:CNT         996/STW     1856/LW      1875/LW      1912/LW      1922/LW      1924/STW     2019-DATA
      2136/LW      3875/STW
   PASS:ERR        1755/STW     1872/LW      1908/STW     2524-DATA
   PASS:LIM        1902/CW      2020-DATA
   PASS:OK         1020/STW     1899/LW      1901/STW     2018-DATA    2046/STW
   PASSES          4337-DATA
   PLINEIN          809/DATA    3562/CW      3591/#ETHCON 3597/LW      3604/#ETHCON 3609/LW
      3614/#ETHCON 3618/LW      3625/#ETHCON 3640/LW      3650/#ETHCON 3667/LW      3677/#ETHCON 3689/LW
      3696/#ETHCON 3701/LW      3707/#ETHCON 3721/LW      3755/CW      3801/#ETHCON 3809/LW
      3823/#ETHCON 3831/LW      3845/#ETHCON 3852/LW      3869/#ETHCON 3878/LW      3894/#ETHCON 3925/LW
      3934/#ETHCON 3949/LW      3960/#ETHCON 3967/LW      3972/#ETHCON 3979/LW      6682-RES
   PLM:ADR         2380/BCS     2424-LI
   PLW:ADR         2386/BCS     2434-LI
   PRE:LOC         1393-LW
   PRIV:MSK        1226/AND     1229/AND     1251-DATA
   PRNT:MOD        2602/BCR     2614-#PRINT
   PRNT:SUF        2649/BCR     2699-#PRINT
   PRNTR           3008/BNE     3010/BCR     3013-LW
   PROGTEXT        6325-TEXTCS 12110/GEN
   PSW1            1120/STW     1195/LW      1197/STW     1219/LW      1224/STW     1407/LPSD    2426/LB
      2456/LB      4381-PZE
   PSW1SAV         4383-DATA
   PSW2            1125/STW     1163/LW      1170/STW     4382-PZE
   PSW2SAV         4384-DATA
   PTR:ADJ         2943/BE      2955-EQU
   PTR:ADV         1110-EQU     1150/B       1576/BCS     1584/B       3269/B       3326/BCS     3334/B
      3404/B
   RCNT:IN         1283/STW     1320-DATA    2415/LW
   RCNT:OUT        1321-DATA
   RD:SW           1031/STW     3472/LW      3475/STW     3510/STW     4375-DATA
   READ            1146/BAL     3300/BAL     3351-EQU     3371/BIR     3374/B
   READ:SN         3282/LI      3426-D
   READSTAT        6632/E       6775-EQU
   REG:LOOP        2359-SLS     2369/BIR
   REG:MSK         2345/AND     2510-DATA
   REG:SP          2364/OR      2511-DATA
   REG:TXT         2655/LW      2714-TEXT
   REGN            2365/STW     2515-EQU     2662/LW      2686/LW      2783/LW
   REPORT          1504/BAL     1594-EQU
   RES:SAV         1271/LI      1418/STW     1427/STW     1437/STW     1439/STW     1680/D       1681/D
      1684/D       1723/LW      1739/DATA    1740/DATA    2233/AI     12121-EQU
   RESTART         3779/DATA    3782-DATA
   RESTORE         3520/BCR     3534-LW
   RETURN           910/XPSD     915/XPSD     916/XPSD     917/XPSD     918/XPSD     919/XPSD     920/XPSD
       921/XPSD     922/XPSD     923/XPSD     924/XPSD     925/XPSD     926/XPSD     927/XPSD     928/XPSD
       929/XPSD     930/XPSD     931/XPSD     933/XPSD     935-DATA    1411/BCS     1413/XPSD    1678/D
      1679/D       1688/D
   REWT            3422-D
   RHT:PTR         2541-EQU     2684/LW
   RIGHT           4633-DATA
   RIGHT00         4630-DATA    9067/G
   RIGHT01         4632-DATA    9077/G
   RIGHT03         4634-DATA    9087/G
   RIGHT04         4636-DATA    9097/G
   RIGHT07         4638-DATA    9107/G
   RIGHT08         4640-DATA    9117/G
   RIGHT11         4641-DATA    9127/G
   RIN:SAV         2349/STW     2355/LW      2389/LW*     2455/LW      2497-DATA    2787/LW*
   RIN:SAV1        2352/STW     2391/LB*     2450/LB*     2501-DATA
   RM%EXPL         6382-TEXTCS  6649/Z
   ROU:SAV         2357/STW     2498-DATA
   ROU:SAV1        2354/STW     2502-DATA
   RSAV            2553-DATA
   RSAV1           2554-DATA
   RTABLIN         1332/DATA    1384/LD      1385/LD      1386/LD      1387/LD      1388/LD      1389/LD
      1390/LD      1391/LD      1404/LW      2333/AI      2348/AI      2353/AI      2356/AI      2413/LI
      2459/LI     12123-EQU
   RTABLOUT        1333/DATA    1722/LW      2353/AI      2356/AI     12125-EQU
   RUN:IT          1154/BCR     1160/BCR     1163-LW
   S%EXPL          6388-EQU     6639/Z
   S:INT            519/ERROR    566/SET      575/SET      584/ERROR    587/ERROR    591/SET      593/SET
       601/DO
   S:RAD            584/ERROR    591/SET      629/ERROR
   S:UFV            584/ERROR    629/ERROR   6796/SET     6814/SET     6816/SET     6818/SET     6820/SET
      6822/SET     6824/SET
   SAMPLE          1262-EQU     1363/BAL
   SAV:RES         1107/BAL     1436-EQU
   SAVCC           3007/STCF    3017/LCF     3035-DATA
   SAVE            4220-DATA
   SBUF:END        1271/LI      1272/STW    12127-EQU
   SD:ADR          2372/STW     2397/STW     2400/STB     2431/STW     2440/STW     2452/STW     2462/STW
      2471-DATA    2732/LW      2740/LB      2748/LW      2803/LW*
   SD:LINES        2626-LI      2703/BIR
   SD:LINE3        2740-LB
   SD:LOOP         2749-LI      2769/B
   SD:UND5         2742/BL      2798-LI
   SDAT            1259-DATA    1263/MTW     1267/STW
   SDPRESET        2710/B       2716-EQU
   SEQ:EM          3653/BL      3662-STW
   SEQ:MAR         3627/BL      3634-RD
   SET:CM          1358-LW
   SET:IDX         1205/BNE     1212/B       1219-LW
   SET:MAR         2026/BG      2028-EQU
   SET:MCR         3848/BCS     3850/BCS     3855-LW
   SET:MEM          975/BAL     3196-EQU
   SET:MSPW        2718/BCS     2720/BCS     2775-LW
   SET:SNAP        1484-AW      1512/B       1532/B
   SET:VER         6747/BCR     6757-EQU
   SETPSW2         1169/EOR     1257-DATA
   SETSDADR        2371-LI
   SETSIZE         3202/B       3206/BGE     3211-STW
   SHORTL          1096/LI      1368-LW
   SHORTPTR        1097/STW     1417/BCS*    2520-DATA    6722/STW
   SHORTS          1345/B       1350-EQU     2521/DATA    6721/LI
   SI              1061/STW     1854/LW      1857/AW      3617/STW     3622-DATA
   SI:C            3581/D       3613-EQU
   SKIPEM          1132/BCR     1140-LW
   SKIP8           1143-LW      1158/BCS     1162/BCS
   SKP:NC          3065/STW     3077/STW     3081/LW      3092-DATA
   SN:CHECK        3252/STW     3289/LW      3426/D       3436/D       6715/STW    12128-EQU
   SN:COL0         3061/STW     3097/STW     4233/D       4251-DATA    4305/DATA
   SN:COL1         2835/J       2984/#ETHCON 2992/STW     2994/STB     4235/J       4253-DATA    4306/DATA
   SN:COL2         2837/J       4237/J       4256-DATA    4307/DATA
   SN:COL3         2839/J       4239/J       4259-DATA    4308/DATA
   SN:COL4         2841/J       4241/J       4262-DATA    4309/DATA
   SN:COL5         2843/J       4243/J       4265-DATA    4310/DATA
   SN:COL6         2845/J       4245/J       4268-DATA    4311/DATA
   SN:COL7         2847/J       4247/J       4271-DATA    4312/DATA
   SN:COL8         2849/J       4274-DATA
   SN:EXP          1547/LI      1561/LB      2882/LI      3127/LW      3201/AI      3204/AI      3232/AI
      3238/STW     3263/STW     3301/LW      3353/STW     3361/LW      3543/LI      6739/STW    12130-EQU
   SN:EXPTR        1548/STW     2883/STW     2908/LW      3087/CW*     3109/LW      3111/STW     3137/CW*
      4223-DATA
   SN:HDR0         4320-TEXTCS  4327/DATA
   SN:HDR1         4322-TEXTCS  4328/DATA
   SN:HDR2         4324-TEXTCS  4329/DATA
   SN:OBPTR        1546/STW     2885/STW     2936/LW      3086/LW*     3112/LW      3114/STW     3136/LW*
      4222-DATA
   SN:OBS          1454/LW      1545/LW      1552/STW     1565/STB     2877/LB      2884/LW      3125/LW
      3233/STW    12115-DATA
   SN:OEPTR        1455/STW     1478/LW      1482/STW     1501/STW*    1529/LW      1531/STW     2517-DATA
   SNAP:CON        1105/BAL     1429/BCS     1431/BCS     1451-EQU     3544/B
   SNAP:FLG        1021/STW     1095/STW     1103/LW      1428/LW      1464/STW     1578/STW     1773/STW
      1826/LW      2522-DATA    3887/STW     3910/STW
   SNAP:INI        1046/LW      4364-GEN
   SNAP:OUT        1568/STW     1573/BAL     2866-EQU     3154/B*      3188/B*
   SNAP:PRNT       1556/BCR     1566/B       1571-BAL
   SNAP:RUN        1453/BCS     1494-LW      3542/BCS
   SNAP:SET        1047/STW     1486/STB     1489/STB     1490/LW      1599/LW      3978/STW     4363-GEN
   SNAP:SW         1059/STW     1498-BCR     3940/STW     3953/BCR     3954/B
   SNAP:UNC        1033/STW     1430/LW      1461/LW      1575/LW      2523-DATA    3888/STW     3911/STW
      6763/STW
   SNAP:WRT        3231/STW     3382/STW     3388/LI      3453-J
   SNAPEXIT        1458/BCR     1517/BCS     1526/BCR     1534-LI      1614/B
   SNAPINI         1348-GEN     1890/LW
   SNAPINT         1037/STW     1347-DATA    1368/LW      1879/STW     1891/STW     1934/STW     3685/STW
   SNPADR:C        3793/D       3971-EQU
   SO               967/LW      1022/STW     1126/LW      1371/LW      1456/LW      1554/LW      1558/LW
      1580/LW      1770/LW      1876/LW      1927/LW      1945/LW      2894/LW      2902/LW      2915/LW
      2930/LW      2941/LW      3083/LW      3150/LW      3917/STW     4230-DATA    6698/STW     6767/STW
   SO:C            3789/D       3885-EQU
   SO:CEX          3896/BCR     3898/BCS     3903/BCS     3917-STW
   SO:EXIT         2953/B       3188-B
   SO:LINE0        4285-EQU     4315/DATA
   SO:LINE1        4294-EQU     4316/DATA
   SO:LINE2        4303-EQU     4317/DATA
   SO:MSG          2598/LW      2619-TEXT
   SOE:MOVR        2909/BAL     2937/BAL     3039-EQU     3062/B*
   SO12A           2914-EQU
   SO12B           2917/BCR     2941-LW
   SO126           2902-LW      2927/B       2951/B       3186/B
   SO2             2944/BL      2953-B
   SO67B           2929-EQU     2952/BIR
   SP              1353/LI      1377/STD     1687/D       4386-DATA    4391/DATA    4392/DATA    7151/MSP
      7167/MSP     7183/MSP     7199/MSP     7215/MSP     7230/MSP     7245/MSP     7260/MSP     7275/MSP
      7291/MSP     7307/MSP     7323/MSP     7339/MSP     7354/MSP     7399/PSW     7415/PSW     7430/PSW
      7445/PSW     7460/PSW     7476/PSW     7491/PSW     7506/PSW     7521/PSW     7537/PSW     7553/PSW
      7568/PSW     7613/PLW     7629/PLW     7644/PLW     7659/PLW     7674/PLW     7689/PLW     7705/PLW
      7737/PLW     7753/PLW     7769/PLW     7817/PLW     7834/PLM     7850/PLM     7865/PLM     7880/PLM
      7895/PLM     7911/PLM     7927/PLM     7943/PLM     7959/PLM     7975/PLM     7991/PLM     8007/PLM
      8039/PLM     8055/PLM     8071/PLM     8087/PLM     8135/PLM     8151/PLM     8167/PSM     8183/PSM
      8199/PSM     8214/PSM     8229/PSM     8245/PSM     8261/PSM     8277/PSM     8309/PSM     8325/PSM
      8341/PSM     8357/PSM     8373/PSM     8389/PSM     8405/PSM     8420/PSM     8483/PSM
   SP:REG          2314/BCR     2336-LC
   SP:SAV          2678/STW     2712-DATA
   SP:TXT          2653/LW      2713-TEXT
   SPACES          1866/LW      1957/LW      2217/LW      2237/LW      2252/LW      2278/LW      2584/LW
      2591/LW      2722/LW      3096/LW      3519/CW      4094/LW      4169/LW      4231-DATA
   SPF:BAK         3274/LI      3424-D
   SPF:FWD         3278/LI      3428-D       6748/LI
   SPM:ADR         2382/BCS     2384/BCS     2455-LW
   SRR1            4811-F
   SRR10           4846-F       8962/G
   SRR11           4851-F      11553/G      11700/G
   SRR11A          4853-F       8973/G
   SRR12           4857-F
   SRR13           4861-F
   SRR14           4864-F       9251/G       9320/G
   SRR15           4867-F      11529/G      11588/G
   SRR16           4871-F      11599/G
   SRR17           4875-F      11610/G
   SRR18           4879-F      11621/G
   SRR19           4883-F      11632/G
   SRR2            4815-F       8926/G       9296/G
   SRR24           4894-F      11689/G
   SRR3            4819-F       8938/G
   SRR4            4823-F       8950/G
   SRR5            4827-F       9021/G
   SRR5A           4829-F      11576/G
   SRR6            4833-DATA    9033/G
   SRR7            4836-F       8985/G       9239/G       9308/G
   SRR8            4839-F       8997/G
   SRR9            4842-F       9055/G
   SR1             4809-F       8916/G       8917/G       9226/G       9227/G       9283/G       9284/G
     11504/G      11505/G
   SR10            4844-F       8961/G
   SR11            4848-F       8972/G      11552/G      11699/G
   SR12            4855-F       9329/G       9330/G       9339/G       9340/G
   SR13            4859-F
   SR14            4863-F       9250/G       9319/G
   SR15            4865-F      11528/G      11587/G
   SR16            4869-F      11598/G
   SR17            4873-F      11609/G
   SR18            4877-F      11620/G
   SR19            4881-F      11631/G
   SR2             4813-F       8925/G       9295/G      11516/G
   SR20            4885-F      11642/G      11643/G
   SR21            4887-F      11653/G      11654/G
   SR22            4889-F      11665/G      11666/G
   SR23            4891-F      11677/G      11678/G
   SR3             4817-F       8937/G
   SR4             4821-F       8949/G       9044/G       9045/G       9383/G       9384/G
   SR5             4825-F       9020/G      11575/G
   SR6             4831-DATA    9032/G
   SR7             4835-F       8984/G       9238/G       9307/G
   SR8             4837-F       8996/G
   SR8A            4838-F      11517/G
   SR9             4840-F       9054/G      11563/G      11564/G
   START           1079/DATA    1093-EQU     3782/DATA
   STAT%EXPL       6330-TEXTCS  6634/Z
   STATEXIT        4050/STW     4114/B*      4116-DATA
   STATMSGS        1861/BAL     4049-EQU     4051/STW     4052/STW     4112/LW      4113/LW      6776/BAL
   STEP:X3         1632/BCS     1654-AI      1702/B       1716/B       1730/B
   STGEN           6700/LI      6708-EQU
   STVER           6718/LI      6729-EQU
   SUFF:SD         2735/STW     2737/LW      2852-TEXT
   SUFFTEST        1099-EQU     1112/B       1935/B       1967/B       3726/J       3727/I       6727/B
      6743/B
   SUR1            4807-F
   SYNTAX%EXPL     6344-TEXTCS  6629/Z
   S0DXCA          5046-F      12007/G      12008/G
   S0DXCB          5062-F      12039/G      12040/G
   S0DXCC          5078-F      12071/G      12072/G
   S0DXC1          4902-F      11719/G      11720/G
   S0DXC2          4918-F      11751/G      11752/G
   S0DXC3          4934-F      11783/G      11784/G
   S0DXC4          4950-F      11815/G      11816/G
   S0DXC5          4966-F      11847/G      11848/G
   S0DXC6          4982-F      11879/G      11880/G
   S0DXC7          4998-F      11911/G      11912/G
   S0DXC8          5014-F      11943/G      11944/G
   S0DXC9          5030-F      11975/G      11976/G
   S0D0A5          5894-F      10993/G      10994/G
   S0D0B5          5898-F      11001/G      11002/G
   S0D0CA          5670-F      10545/G      10546/G
   S0D0CB          5734-F      10673/G      10674/G
   S0D0CC          5798-F      10801/G      10802/G
   S0D0C1          5094-F       9393/G       9394/G
   S0D0C2          5158-F       9521/G       9522/G
   S0D0C3          5222-F       9649/G       9650/G
   S0D0C4          5286-F       9777/G       9778/G
   S0D0C5          5350-F       9905/G       9906/G
   S0D0C6          5414-F      10033/G      10034/G
   S0D0C7          5478-F      10161/G      10162/G
   S0D0C8          5542-F      10289/G      10290/G
   S0D0C9          5606-F      10417/G      10418/G
   S0D0D5          5906-F      11017/G      11018/G
   S0D0E5          5910-F      11025/G      11026/G
   S0D0F5          5914-F      11033/G      11034/G
   S0D0N5          5902-F      11009/G      11010/G
   S0D027          5862-F      10929/G      10930/G
   S0D037          5866-F      10937/G      10938/G
   S0D046          5870-F      10945/G      10946/G
   S0D056          5874-F      10953/G      10954/G
   S0D066          5878-F      10961/G      10962/G
   S0D076          5882-F      10969/G      10970/G
   S0D085          5886-F      10977/G      10978/G
   S0D095          5890-F      10985/G      10986/G
   S0D1CA          5674-F      10553/G      10554/G
   S0D1CB          5738-F      10681/G      10682/G
   S0D1CC          5802-F      10809/G      10810/G
   S0D1C1          5098-F       9401/G       9402/G
   S0D1C2          5162-F       9529/G       9530/G
   S0D1C3          5226-F       9657/G       9658/G
   S0D1C4          5290-F       9785/G       9786/G
   S0D1C5          5354-F       9913/G       9914/G
   S0D1C6          5418-F      10041/G      10042/G
   S0D1C7          5482-F      10169/G      10170/G
   S0D1C8          5546-F      10297/G      10298/G
   S0D1C9          5610-F      10425/G      10426/G
   S0D2CA          5678-F      10561/G      10562/G
   S0D2CB          5742-F      10689/G      10690/G
   S0D2CC          5806-F      10817/G      10818/G
   S0D2C1          5102-F       9409/G       9410/G
   S0D2C2          5166-F       9537/G       9538/G
   S0D2C3          5230-F       9665/G       9666/G
   S0D2C4          5294-F       9793/G       9794/G
   S0D2C5          5358-F       9921/G       9922/G
   S0D2C6          5422-F      10049/G      10050/G
   S0D2C7          5486-F      10177/G      10178/G
   S0D2C8          5550-F      10305/G      10306/G
   S0D2C9          5614-F      10433/G      10434/G
   S0D3CA          5682-F      10569/G      10570/G
   S0D3CB          5746-F      10697/G      10698/G
   S0D3CC          5810-F      10825/G      10826/G
   S0D3C1          5106-F       9417/G       9418/G
   S0D3C2          5170-F       9545/G       9546/G
   S0D3C3          5234-F       9673/G       9674/G
   S0D3C4          5298-F       9801/G       9802/G
   S0D3C5          5362-F       9929/G       9930/G
   S0D3C6          5426-F      10057/G      10058/G
   S0D3C7          5490-F      10185/G      10186/G
   S0D3C8          5554-F      10313/G      10314/G
   S0D3C9          5618-F      10441/G      10442/G
   S1DXCA          5050-F      12015/G      12016/G
   S1DXCB          5066-F      12047/G      12048/G
   S1DXCC          5082-F      12079/G      12080/G
   S1DXC1          4906-F      11727/G      11728/G
   S1DXC2          4922-F      11759/G      11760/G
   S1DXC3          4938-F      11791/G      11792/G
   S1DXC4          4954-F      11823/G      11824/G
   S1DXC5          4970-F      11855/G      11856/G
   S1DXC6          4986-F      11887/G      11888/G
   S1DXC7          5002-F      11919/G      11920/G
   S1DXC8          5018-F      11951/G      11952/G
   S1DXC9          5034-F      11983/G      11984/G
   S1D0CA          5686-F      10577/G      10578/G
   S1D0CB          5750-F      10705/G      10706/G
   S1D0CC          5814-F      10833/G      10834/G
   S1D0C1          5110-F       9425/G       9426/G
   S1D0C2          5174-F       9553/G       9554/G
   S1D0C3          5238-F       9681/G       9682/G
   S1D0C4          5302-F       9809/G       9810/G
   S1D0C5          5366-F       9937/G       9938/G
   S1D0C6          5430-F      10065/G      10066/G
   S1D0C7          5494-F      10193/G      10194/G
   S1D0C8          5558-F      10321/G      10322/G
   S1D0C9          5622-F      10449/G      10450/G
   S1D1A5          5950-F      11105/G      11106/G
   S1D1B5          5954-F      11113/G      11114/G
   S1D1CA          5690-F      10585/G      10586/G
   S1D1CB          5754-F      10713/G      10714/G
   S1D1CC          5818-F      10841/G      10842/G
   S1D1C1          5114-F       9433/G       9434/G
   S1D1C2          5178-F       9561/G       9562/G
   S1D1C3          5242-F       9689/G       9690/G
   S1D1C4          5306-F       9817/G       9818/G
   S1D1C5          5370-F       9945/G       9946/G
   S1D1C6          5434-F      10073/G      10074/G
   S1D1C7          5498-F      10201/G      10202/G
   S1D1C8          5562-F      10329/G      10330/G
   S1D1C9          5626-F      10457/G      10458/G
   S1D1D5          5962-F      11129/G      11130/G
   S1D1E5          5966-F      11137/G      11138/G
   S1D1F5          5970-F      11145/G      11146/G
   S1D1N5          5958-F      11121/G      11122/G
   S1D127          5918-F      11041/G      11042/G
   S1D137          5922-F      11049/G      11050/G
   S1D146          5926-F      11057/G      11058/G
   S1D156          5930-F      11065/G      11066/G
   S1D166          5934-F      11073/G      11074/G
   S1D176          5938-F      11081/G      11082/G
   S1D185          5942-F      11089/G      11090/G
   S1D195          5946-F      11097/G      11098/G
   S1D2CA          5694-F      10593/G      10594/G
   S1D2CB          5758-F      10721/G      10722/G
   S1D2CC          5822-F      10849/G      10850/G
   S1D2C1          5118-F       9441/G       9442/G
   S1D2C2          5182-F       9569/G       9570/G
   S1D2C3          5246-F       9697/G       9698/G
   S1D2C4          5310-F       9825/G       9826/G
   S1D2C5          5374-F       9953/G       9954/G
   S1D2C6          5438-F      10081/G      10082/G
   S1D2C7          5502-F      10209/G      10210/G
   S1D2C8          5566-F      10337/G      10338/G
   S1D2C9          5630-F      10465/G      10466/G
   S1D3CA          5698-F      10601/G      10602/G
   S1D3CB          5762-F      10729/G      10730/G
   S1D3CC          5826-F      10857/G      10858/G
   S1D3C1          5122-F       9449/G       9450/G
   S1D3C2          5186-F       9577/G       9578/G
   S1D3C3          5250-F       9705/G       9706/G
   S1D3C4          5314-F       9833/G       9834/G
   S1D3C5          5378-F       9961/G       9962/G
   S1D3C6          5442-F      10089/G      10090/G
   S1D3C7          5506-F      10217/G      10218/G
   S1D3C8          5570-F      10345/G      10346/G
   S1D3C9          5634-F      10473/G      10474/G
   S2DXCA          5054-F      12023/G      12024/G
   S2DXCB          5070-F      12055/G      12056/G
   S2DXCC          5086-F      12087/G      12088/G
   S2DXC1          4910-F      11735/G      11736/G
   S2DXC2          4926-F      11767/G      11768/G
   S2DXC3          4942-F      11799/G      11800/G
   S2DXC4          4958-F      11831/G      11832/G
   S2DXC5          4974-F      11863/G      11864/G
   S2DXC6          4990-F      11895/G      11896/G
   S2DXC7          5006-F      11927/G      11928/G
   S2DXC8          5022-F      11959/G      11960/G
   S2DXC9          5038-F      11991/G      11992/G
   S2D0CA          5702-F      10609/G      10610/G
   S2D0CB          5766-F      10737/G      10738/G
   S2D0CC          5830-F      10865/G      10866/G
   S2D0C1          5126-F       9457/G       9458/G
   S2D0C2          5190-F       9585/G       9586/G
   S2D0C3          5254-F       9713/G       9714/G
   S2D0C4          5318-F       9841/G       9842/G
   S2D0C5          5382-F       9969/G       9970/G
   S2D0C6          5446-F      10097/G      10098/G
   S2D0C7          5510-F      10225/G      10226/G
   S2D0C8          5574-F      10353/G      10354/G
   S2D0C9          5638-F      10481/G      10482/G
   S2D1CA          5706-F      10617/G      10618/G
   S2D1CB          5770-F      10745/G      10746/G
   S2D1CC          5834-F      10873/G      10874/G
   S2D1C1          5130-F       9465/G       9466/G
   S2D1C2          5194-F       9593/G       9594/G
   S2D1C3          5258-F       9721/G       9722/G
   S2D1C4          5322-F       9849/G       9850/G
   S2D1C5          5386-F       9977/G       9978/G
   S2D1C6          5450-F      10105/G      10106/G
   S2D1C7          5514-F      10233/G      10234/G
   S2D1C8          5578-F      10361/G      10362/G
   S2D1C9          5642-F      10489/G      10490/G
   S2D2A5          6006-F      11217/G      11218/G
   S2D2B5          6010-F      11225/G      11226/G
   S2D2CA          5710-F      10625/G      10626/G
   S2D2CB          5774-F      10753/G      10754/G
   S2D2CC          5838-F      10881/G      10882/G
   S2D2C1          5134-F       9473/G       9474/G
   S2D2C2          5198-F       9601/G       9602/G
   S2D2C3          5262-F       9729/G       9730/G
   S2D2C4          5326-F       9857/G       9858/G
   S2D2C5          5390-F       9985/G       9986/G
   S2D2C6          5454-F      10113/G      10114/G
   S2D2C7          5518-F      10241/G      10242/G
   S2D2C8          5582-F      10369/G      10370/G
   S2D2C9          5646-F      10497/G      10498/G
   S2D2D5          6018-F      11241/G      11242/G
   S2D2E5          6022-F      11249/G      11250/G
   S2D2F5          6026-F      11257/G      11258/G
   S2D2N5          6014-F      11233/G      11234/G
   S2D227          5974-F      11153/G      11154/G
   S2D237          5978-F      11161/G      11162/G
   S2D246          5982-F      11169/G      11170/G
   S2D256          5986-F      11177/G      11178/G
   S2D266          5990-F      11185/G      11186/G
   S2D276          5994-F      11193/G      11194/G
   S2D285          5998-F      11201/G      11202/G
   S2D295          6002-F      11209/G      11210/G
   S2D3CA          5714-F      10633/G      10634/G
   S2D3CB          5778-F      10761/G      10762/G
   S2D3CC          5842-F      10889/G      10890/G
   S2D3C1          5138-F       9481/G       9482/G
   S2D3C2          5202-F       9609/G       9610/G
   S2D3C3          5266-F       9737/G       9738/G
   S2D3C4          5330-F       9865/G       9866/G
   S2D3C5          5394-F       9993/G       9994/G
   S2D3C6          5458-F      10121/G      10122/G
   S2D3C7          5522-F      10249/G      10250/G
   S2D3C8          5586-F      10377/G      10378/G
   S2D3C9          5650-F      10505/G      10506/G
   S3DXCA          5058-F      12031/G      12032/G
   S3DXCB          5074-F      12063/G      12064/G
   S3DXCC          5090-F      12095/G      12096/G
   S3DXC1          4914-F      11743/G      11744/G
   S3DXC2          4930-F      11775/G      11776/G
   S3DXC3          4946-F      11807/G      11808/G
   S3DXC4          4962-F      11839/G      11840/G
   S3DXC5          4978-F      11871/G      11872/G
   S3DXC6          4994-F      11903/G      11904/G
   S3DXC7          5010-F      11935/G      11936/G
   S3DXC8          5026-F      11967/G      11968/G
   S3DXC9          5042-F      11999/G      12000/G
   S3D0CA          5718-F      10641/G      10642/G
   S3D0CB          5782-F      10769/G      10770/G
   S3D0CC          5846-F      10897/G      10898/G
   S3D0C1          5142-F       9489/G       9490/G
   S3D0C2          5206-F       9617/G       9618/G
   S3D0C3          5270-F       9745/G       9746/G
   S3D0C4          5334-F       9873/G       9874/G
   S3D0C5          5398-F      10001/G      10002/G
   S3D0C6          5462-F      10129/G      10130/G
   S3D0C7          5526-F      10257/G      10258/G
   S3D0C8          5590-F      10385/G      10386/G
   S3D0C9          5654-F      10513/G      10514/G
   S3D1CA          5722-F      10649/G      10650/G
   S3D1CB          5786-F      10777/G      10778/G
   S3D1CC          5850-F      10905/G      10906/G
   S3D1C1          5146-F       9497/G       9498/G
   S3D1C2          5210-F       9625/G       9626/G
   S3D1C3          5274-F       9753/G       9754/G
   S3D1C4          5338-F       9881/G       9882/G
   S3D1C5          5402-F      10009/G      10010/G
   S3D1C6          5466-F      10137/G      10138/G
   S3D1C7          5530-F      10265/G      10266/G
   S3D1C8          5594-F      10393/G      10394/G
   S3D1C9          5658-F      10521/G      10522/G
   S3D2CA          5726-F      10657/G      10658/G
   S3D2CB          5790-F      10785/G      10786/G
   S3D2CC          5854-F      10913/G      10914/G
   S3D2C1          5150-F       9505/G       9506/G
   S3D2C2          5214-F       9633/G       9634/G
   S3D2C3          5278-F       9761/G       9762/G
   S3D2C4          5342-F       9889/G       9890/G
   S3D2C5          5406-F      10017/G      10018/G
   S3D2C6          5470-F      10145/G      10146/G
   S3D2C7          5534-F      10273/G      10274/G
   S3D2C8          5598-F      10401/G      10402/G
   S3D2C9          5662-F      10529/G      10530/G
   S3D3A5          6062-F      11329/G      11330/G
   S3D3B5          6066-F      11337/G      11338/G
   S3D3CA          5730-F      10665/G      10666/G
   S3D3CB          5794-F      10793/G      10794/G
   S3D3CC          5858-F      10921/G      10922/G
   S3D3C1          5154-F       9513/G       9514/G
   S3D3C2          5218-F       9641/G       9642/G
   S3D3C3          5282-F       9769/G       9770/G
   S3D3C4          5346-F       9897/G       9898/G
   S3D3C5          5410-F      10025/G      10026/G
   S3D3C6          5474-F      10153/G      10154/G
   S3D3C7          5538-F      10281/G      10282/G
   S3D3C8          5602-F      10409/G      10410/G
   S3D3C9          5666-F      10537/G      10538/G
   S3D3D5          6074-F      11353/G      11354/G
   S3D3E5          6078-F      11361/G      11362/G
   S3D3F5          6082-F      11369/G      11370/G
   S3D3N5          6070-F      11345/G      11346/G
   S3D327          6030-F      11265/G      11266/G
   S3D337          6034-F      11273/G      11274/G
   S3D346          6038-F      11281/G      11282/G
   S3D356          6042-F      11289/G      11290/G
   S3D366          6046-F      11297/G      11298/G
   S3D376          6050-F      11305/G      11306/G
   S3D385          6054-F      11313/G      11314/G
   S3D395          6058-F      11321/G      11322/G
   TABL:PTR        1303/LW      1331-EQU
   TABLE3           808/DATA    6624-EQU
   TABLE3END       6676-DATA
   TABLPREP        1305-LW      1311/BIR
   TAPE            3230/STW     3355/LI      3450-J
   TAPE:AT         3272/LW      3293/STW     3297/LW      3336-DATA    3348/STW
   TAPE:ID         3290/CW      3433-TEXT    6714/LW
   TAPE:PTR        4361-DATA
   TAPEMOV         3311/B       3321-BAL
   TAPE0ADR         961/STW     3275/SIO*    3276/TIO*    3279/SIO*    3280/TIO*    3283/SIO*    3284/TIO*
      3286/TDV*    3342/SIO*    3343/TIO*    3356/SIO*    3357/TIO*    3700/STW     4354-DATA    6730/MTW
      6731/TIO*
   TAPE1ADR         963/STW     3254/SIO*    3255/TIO*    3383/TIO*    3389/SIO*    3390/TIO*    4355-DATA
      6712/TIO*    6717/SIO*    6765/SIO*
   TAPE2ADR         965/STW     4356-DATA
   TEMPRSAV        2347/STW     2358/LW      2366/LW      2495-DATA
   TEXTCS           701-CNAME
   THREE           2146/AND     2167-DATA
   THRU:TXT        4190/LW      4214-TEXT
   TIC             3714/LI      3726-J       3728/D
   TITLE            490/OPEN     491-CNAME
   TOO:FAR         4193/STB     4199/LB      4213-DATA
   TOT:ERRS        1032/STW     1083-DATA    1757/LW      1759/STW     4089/#HTECON
   TRAP:FLG        1206/STW     1248-DATA    1281/STW     1442/LW
   TRAP:IDX        1237/STW     1250-DATA    1444/LW
   TRAP:SAV         978/STW     1236/STW     1249-DATA    1445/LW
   TRAP:SW         1102/BAL     1200-EQU     1352/BAL
   TRAPTEST        1114-EQU     1315/B
   TRTB            4691-DATA    8598/G       8599/G      11506/G      11507/G      11518/G      11530/G
     11542/G      11554/G      11565/G      11566/G      11577/G      11589/G      11590/G      11600/G
     11601/G      11611/G      11612/G      11622/G      11623/G      11633/G      11634/G      11644/G
     11645/G      11655/G      11656/G      11667/G      11668/G      11679/G      11680/G      11690/G
     11691/G
   TRY:WRT         3388-LI      3401/BDR
   TST:EXIT        1516-LW
   TXT:PTR         2272-TEXT    2603/LW      2628/LW      2775/LW
   TXTP1           4132/LW      4139-TEXT
   TXTP2           4134/LW      4140-TEXT
   TYPE:CR         2574/BAL     2765/BAL     2821/BAL     2868/BAL     2971/BAL     3025-STW
   UNDER8          2760/BCS     2817-SLS
   UPDTA           6672/E       6687-EQU
   VALBIT           777-DATA
   VALDEX           781-EQU
   VALTYPE          785-EQU
   VER:END         1129/AW      1361/AW      1807/LW      1852/LW      2528-DATA    3325/LW      6762/STW
   VER:FLG         1038/STW     1143/LW      2527-DATA    3890/STW     3923/STW     6746/LW      6761/STW
   VG:END          1851/BCS     1853/BCS     6745-EQU     6772/B
   VM:CM           1904/BAL     2023-EQU
   VM:MSK          2030/AND     2065-DATA
   VMF             2036-AND
   WDT:MSG         1597/STW     1598/STW     1601/STW     1602/STW     1603/#PRINT  1624-TEXTCS
   WDT:SNAP        1036/STW     1502/LW      3932/STW     3948/STW     3955-DATA
   WL              8612-EQU     8615/MMC
   WRD:CNT         1794/STW     2096/CW      2185-DATA
   WRT:MTL         1538/BCS     3259-EQU
   WRT:SNAP        3268/BAL     3376-EQU
   W0T15           4776-DATA    7170/G       7171/G
   X40C3           2025/CW      2061-DATA
   Z                879-COM
   ZERO            2017-DATA
   #BRKOUT          741-EQU
   #BTE%            752-EQU
   #DIAG@           810-GEN
   #DISUSER%        753-EQU
   #DM%END          743-EQU
   #DM%START        742-EQU
   #DMENTRY%        767-EQU
   #ENUSER%         754-EQU
   #ERRTEXT%        762-EQU     1802/STW*    4058/STW*
   #ERR1PTR%        764-EQU
   #ETH%            600/BAL*     750-EQU
   #ETHCON          563-CNAME
   #FIDLE%          757-EQU     3502/B*      3558/BCR*    3574/B*      3750/BCR*    3778/BAL*    4045/B*
      4137/B*      4164/B*      4211/B*
   #GUIDE%          756-EQU    12109/BAL*
   #HDRFLG          720-EQU     1023/STW     1785/CW      1800/STW     2963/CW      2973/STW     2980/CW
      2999/STW     4059/LW      4107/STW
   #HTE%            526/BAL*     751-EQU
   #HTECON          516-CNAME
   #INDEX           728-EQU
   #INITIAL@        807-DATA
   #LOADER@         811-DATA   12108/STW
   #LOADFLAG        721-EQU      953/LC
   #MAXMEM          739-EQU     3197/LW      3973/CW
   #MTLFLAG         722-EQU      956/LW      1811/LW      6699/LW      6709/LW      6719/LW      6754/LW
   #OUTPTR          726-EQU
   #P%MODE%         768-EQU
   #PAKDEX          727-EQU
   #PARAM%H1        729-EQU     3990/LW      4009/LW
   #PARAM%H2        730-EQU     3996/LW
   #PARAM%H3        731-EQU
   #PARAM%H4        732-EQU
   #PARAM1          735-EQU     4146/LW      4148/LW      4154/STW
   #PARAM2          736-EQU
   #PARAM3          737-EQU
   #PARAM4          738-EQU
   #PASS           6796-SET     6796/SET     6798/DO      6843/DO      6870/DO
   #PLINEIN@        809-DATA
   #PRINT           613-CNAME
   #PRINTER%        613/CNAME    761-EQU
   #PRTADDR         724-EQU     1005/#HTECON 3006/CW      3014/SIO*    3015/TIO*    3027/CW      3596/STW
   #RETURN%         759-EQU     6777/B*
   #RUNADDR%        758-EQU     1583/XPSD*   1619/XPSD*   1789/XPSD*   1798/XPSD*   1813/XPSD*   1919/XPSD*
      2616/XPSD*   2701/XPSD*   2747/XPSD*   2795/XPSD*   2812/XPSD*   2970/XPSD*   3023/XPSD*   3132/XPSD*
      3373/XPSD*   3403/XPSD*   3410/XPSD*   3488/XPSD*   4097/LW*     6694/XPSD*
   #SAMPLE%         740-EQU     1265/XPSD*
   #SENSE           719-EQU     1416/LC      1668/LC      1782/LC      1804/LC
   #STATUS          734-EQU
   #TABLE1A         718-ORG
   #TABLE1B         749-ORG
   #TABLE2@         806-ORG
   #TABLE3@         808-DATA
   #TESTINIT        733-EQU     1075/LC
   #TOADDR          723-EQU     1009/#HTECON 3005/LW      3009/TIO*    3011/HIO*    3020/SIO*    3026/LW
      3608/STW
   #TYPE            614-CNAME
   #TYPER%          614/CNAME    760-EQU
   #VALTAB%         766-EQU
