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

      541                            *
      542                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      543                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
      544                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      545                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      546                            *        IN THE MACHINE WORD.
      547                            *
      548                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      549                            *
      550                            * LABELOPT  #HTECON  LABELADDR       OPTIONAL COMMENTS
      551                            *
      552                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      553                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      554                            *                  EXECUTION LOCATION COUNTER;
      555                            *
      556                            *                  #HTECON IS THE PROCEDURE REFERENCE;
      557                            *
      558                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      559                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      560                            *                  'EBCDIC'.
      561                            *
      562         00000000           #HTECON  CNAME
      563                                     PROC
      564                            *
      565                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      566                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      567                            *
      568                                     ERROR,0,NUM(AF)~=1 ;
      569                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      570                            *
      571                            *
      572                            LF       BAL,X6     *#HTE%
      573                                     GEN,10,22  0,AF(1)
      574                            *
      575                                     PEND
      576                            *
      577                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      578                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      579                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      580                            *
      581                            *        RETURN IS TO THE PROCEDURE REFERENCE
      582                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      583                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      584                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      585                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      586                            *        OF THE LOAD MULTIPLE INSTRUCTION.
      587                            *
      588                            *
      589                            *
      590                            *
      591                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      592                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#ETH',
      593                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      594                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      595                            *        IF THE CHARACTER STRING TO BE CONVERTED
      596                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      597                            *        THE REGISTERS USED MUST NOT
      598                            *        INCLUDE THE LINK REGISTER.
      599                            *
      600                            *
      601                            *                 #ETHCON,CHAR   LABEL,DISP,ERRETN
      602                            *
      603                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      604                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      605                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      606                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      607                            *                          ( MUST BE BETWEEN 0 AND 3 )
      608                            *
      609         00000000           #ETHCON  CNAME
      610                                     PROC
      611                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      612                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      613                            *
      614                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      615                            A        SET      0
      616                            *
      617                            *
      618                                     ERROR,0,A~=CF(2) ;
      619                             '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      620                            *
      621                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      622                            *
      623                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      624                            B        SET      0
      625                            *
      626                            *
      627                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      628                             '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      629                            *
      630                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD,S:INT)=0 ;
      631                             '**AF(1) LABEL NOT A RELOCATABLE ADDRESS OR ACCEPTABLE REGISTER**'
      632                            *
      633                             ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      634                             (AF(1)=X3))     ;
      635                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      636                            *
      637                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      638                            *
      639                            D SET TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      640                             |(AF(3)=X3))&NUM(AF)>2
      641                            *
      642                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      643                             '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      644                            *
      645                            E        SET      C|D               'OR' THE RESULTS
      646                            LF       BAL,X6    *#ETH%           GO TO CONVERSION ROUTINE
      647                                     DO       TCOR(AF(1),S:INT)   DO IF REGISTER
      648                            *
      649                                     GEN,8,22,2  A,AF(1),B
      650                            *
      651                                     ELSE                       RELOCATABLE ADDRESS
      652                            *
      653                                     GEN,8,24     A,BA(AF(1))+B
      654                            *
      655                                     FIN
      656                                     PEND

      658                            *
      659         00000002           #PRINT   CNAME    2,#PRINTER%
      660         00000001           #TYPE    CNAME    1,#TYPER%
      661                                     PROC
      662                            *
      663                            *
      664                                     LOCAL    A
      665                            *
      666                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      667                             '**CF(2) MUST BE POSITIVE INTEGER**'
      668                            *
      669                                     ERROR,0,NUM(CF)>3 ;
      670                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      671                            *
      672                                     ERROR,0,NUM(AF)>NAME(1) ;
      673                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      674                            *
      675                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      676                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      677                            *
      678                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      679                            *
      680                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      681                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      682                            *
      683                                     ERROR,0,A=0  ;
      684                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      685                            *
      686                                     ELSE
      687                            *
      688                            A        SET      0
      689                            *
      690                                     FIN
      691                            *
      692                            *
      693                            *
      694                            *
      695                            LF       BAL,X6   *NAME(2)                                          *A04
      696                            *
      697                            *
      698                                     DO       NUM(CF)=1&NAME(1)=1
      699                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      700                                     ELSE
      701                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      702                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      703                                     ELSE
      704                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      705                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      706                                     ELSE
      707                                     DO       NUM(CF)=2&CF(2)>0
      708                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      709                                     ELSE
      710                                     DO       NUM(CF)=2&CF(2)=0
      711                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      712                                     ELSE
      713                                     DO       NUM(CF)>2&CF(2)>0
      714                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      715                                     ELSE
      716                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      717                                     FIN
      718                                     FIN
      719                                     FIN
      720                                     FIN
      721                                     FIN
      722                                     FIN
      723                            *
      724                            *
      725                                     PEND
      726                            *
      727         000000C0           C0       EQU      X'C0'
      728         000000C1           C1       EQU      X'C1'
      729         000000C2           C2       EQU      X'C2'
      730         000000C3           C3       EQU      X'C3'
      731         000000C4           C4       EQU      X'C4'
      732         000000C5           C5       EQU      X'C5'
      733         000000C6           C6       EQU      X'C6'
      734         000000C7           C7       EQU      X'C7'
      735         000000C8           C8       EQU      X'C8'
      736         000000C9           C9       EQU      X'C9'
      737         000000CA           CA       EQU      X'CA'
      738         000000CB           CB       EQU      X'CB'
      739         000000CC           CC       EQU      X'CC'
      740         000000CD           CD       EQU      X'CD'
      741         000000CE           CE       EQU      X'CE'
      742         000000CF           CF       EQU      X'CF'
      743         000000F0           F0       EQU      X'F0'
      744         000000F1           F1       EQU      X'F1'
      745                            *
      746                            *
      747         00000000           TEXTCS   CNAME
      748                                     PROC
      749                                     DISP     %
      750                                     LIST     0
      751                            LF       TEXTC    AF
      752                                     LIST     1
      753                                     PEND
      754                            *
      755                            *
      756                            *
      757                            *
      758                            *********************************************
      759                                     SYSTEM   SIG9P
1 C00   00:01 JUN 21,'83    SIGMA 8/9 CPU DIAG FLOAT 706135-11/51A05  6-20-73                     PAGE    4
A     761                            *********************************************
      762                            *
      763                            *
      764   01 00392                 #TABLE1A   ORG     X'392'           THIS TABLE IS USED BY THE USER
            01 00392
      765         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      766         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      767         01 00394           #LOADFLAG  EQU    %+2
      768         01 00395           #MTLFLAG   EQU    %+3
      769         01 00396           #TOADDR    EQU    %+4
      770         01 00397           #PRTADDR   EQU    %+5
      771                            *                                                                   *A03
      772         01 00399           #OUTPTR    EQU    %+7
      773         01 0039A           #PAKDEX    EQU    %+8
      774         01 0039B           #INDEX     EQU    %+9
      775         01 0039C           #PARAM%H1 EQU     %+10
      776         01 0039D           #PARAM%H2 EQU     %+11
      777         01 0039E           #PARAM%H3 EQU     %+12
      778         01 0039F           #PARAM%H4 EQU     %+13
      779         01 003A0           #TESTINIT EQU     %+14
      780         01 003A1           #STATUS   EQU     %+15
      781         01 003A2           #PARAM1  EQU      %+16
      782         01 003A4           #PARAM2  EQU      %+18
      783         01 003A6           #PARAM3  EQU      %+20
      784         01 003A8           #PARAM4  EQU      %+22
      785         01 003AA           #MAXMEM   EQU     %+24
      786         01 003AB           #SAMPLE% EQU      %+25                                              *A04
      787         01 003AC           #BRKOUT  EQU      %+26
      788         01 003AD           #DM%START EQU     %+27
      789         01 003AE           #DM%END  EQU      %+28
      790                            *
      791                            *
      792                            ************
      793                            *
      794                            *
      795   01 003C2                 #TABLE1B   ORG     X'3C2'           THIS TABLE IS USED BY USER
            01 003C2
      796         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      797         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      798         01 003C4           #BTE%      EQU    %+2
      799         01 003C5           #DISUSER%  EQU    %+3
      800         01 003C6           #ENUSER%   EQU    %+4
      801                            *
      802         01 003C8           #GUIDE%    EQU    %+6
      803         01 003C9           #FIDLE%    EQU    %+7
      804         01 003CA           #RUNADDR%  EQU    %+8
      805         01 003CB           #RETURN%   EQU    %+9
      806         01 003CC           #TYPER%    EQU    %+10
      807         01 003CD           #PRINTER%  EQU    %+11
      808         01 003CE           #ERRTEXT%  EQU    %+12
      809                            *                                                                   *A03
      810                            *                                                                   *A03
      811         01 003D0           #ERR1PTR%  EQU    %+14
      812         01 003D2           #VALTAB% EQU      %+16
      813         01 003D3           #DMENTRY% EQU     %+17
      814         01 003D4           #P%MODE% EQU      %+18
      815                            *
      816                            *
      817                            **************:
      818                            *
      819                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      820                            *
      821   01 003E5                          ORG      X'3E5'
            01 003E5
      822                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      823   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
      824                            *
      825   01 003E7                          ORG      X'3E7'
            01 003E7
      826                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      827         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      828   01 003E7    00       A            DATA,1   ,,,-30
            01 003E7 1  00       A
            01 003E7 2  00       A
            01 003E7 3  E2       A
      829                            *
      830   01 003EC                          ORG      X'3EC'
            01 003EC
      831         01 003EC           VALTYPE  EQU      %
      832   01 003EC    1E006A28              GEN,8,24  30,BA(ALPHATXT)
      833                            *
      834                            *
      835                            ************
      836                            *
      837   01 003F0                 DCA        ORG     X'3F0'
            01 003F0
      838                            *
      839   01 003F0    00000001 A   MST:NUM  DATA     1
      840   01 003F1    0000016E A   MSP:NUM  DATA     LAST:MOD
      841   01 003F2    00000001 A   MCR:NUM  DATA     1
      842   01 003F3    00002246     LISTPTR  DATA     LIST
      843                            *                 **********
      844                            *                DESIGNERS CONSTANT AREA.
      845                            *                THIS SECTION IS NOT REQUIRED IF
      846                            *                THE USER PROGRAM DOES NOT USE IT!
      847                            *                **********
      848                            *
      849                            ************
      850                            *
      851                            *
      852   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      853   01 01000    00001034     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      854   01 01001    000021BA     #TABLE3@   DATA   TABLE3
      855   01 01002    000021E3     #PLINEIN@  DATA   PLINEIN
      856   01 01003    80000000 A   #DIAG@   GEN,1,31 1,0               SAMPLE FLAG FOR GUIDE           *A04
      857   01 01004    00000000 A   #LOADER@ DATA     0
      858                            *
      859                            *
      860                            *
      861                            *
      862                            ************
      863                            *
      864                            *
      865                            *                **********
      866         00000000           R0         EQU    0
      867         00000001           R1         EQU    1
      868         00000001           X1         EQU    1
      869         00000002           R2         EQU    2
      870         00000002           X2         EQU    2
      871         00000003           R3         EQU    3
      872         00000003           X3         EQU    3
      873         00000004           R4         EQU    4          **********
      874         00000004           X4         EQU    4          PREFFERED AREA TO BE USED
      875         00000005           R5         EQU    5          FOR USER PROGRAM EQU TABLES.
      876         00000005           X5         EQU    5          NOT MANDATORY BUT DESIRABLE
      877         00000006           R6         EQU    6          FOR CONSISTANTCY.
      878         00000006           X6         EQU    6          **********
      879         00000007           R7         EQU    7
      880         00000007           X7         EQU    7
      881         00000008           R8         EQU    8
      882         00000009           R9         EQU    9
      883         0000000A           R10        EQU    10
      884         0000000B           R11        EQU    11
      885         0000000C           R12        EQU    12
      886         0000000D           R13        EQU    13
      887         0000000E           R14        EQU    14
      888         0000000F           R15        EQU    15
      889                            *
      890                            *
      891                            *
      892                            *
      893                            ************                 **********
      894                            *                            PREFFERED AREA TO BE USED
      895                            *                            FOR USER PROGRAM FORM TABLES.
      896                            *                            NOT MANDATORY BUT DESIRABLE
      897                            *                            FOR CONSISTANTCY.
      898                            **********
      899                            *
      900                            *       FORMS   THE ADDRESS FIELD SPECIFIES HOW THE WORD IS DIVIDED AND
      901                            *              HOW MANY BITS THERE WILL BE IN EACH PART OF THE WORD.
      902                            *              EFFECTIVE AT ASSEMBLY TIME ONLY.
      903                            *
      904                        *S* A        COM,4,4,24 AF(1),AF(2),AF(3)
      905         00000004           D        COM,8,24 AF(1),AF(2)
      906         00000004           E        COM,8,8,16 AF(1),AF(2),AF(3)
      907                        *S* G        COM,16,8,8 AF(1),AF(2),AF(3)
      908         00000004           H        COM,8,8,8,8 AF(1),AF(2),AF(3),AF(4)
      909         00000004           I        COM,4,28 AF(1),AF(2)
      910         00000004           K        COM,4,4,4,20 AF(1),AF(2),AF(3),AF(4)
      911                            L        COM,3,2,3,5,3,1,3,3,3,3,3 AF(1),AF(2),AF(3),AF(4),AF(5),;
      912         00000004                             AF(6),AF(7),AF(8),AF(9),AF(10),AF(11)
      913         00000004           M        COM,4,2,2,2,6,8,8 AF(1),AF(2),AF(3),AF(4),AF(5),AF(6),AF(7)
      914                        *S* N        COM,4,4,4,1,19 AF(1),AF(2),AF(3),AF(4),AF(5)
      915                        *S* F        COM,8,5,19 AF(1),AF(2),AF(3)
      916         00000004           Z        COM,8,2,6,16 AF(1),AF(2),AF(3),AF(4)
      917                            *
      918                            *      PROCS                       EFFECTIVE AT ASSEMBLY TIME ONLY
      919                            *
      920                            *
      921                            *        J        CONVERTS TO BYTE ADDRESS
      922         00000000           J        CNAME
      923                                     PROC
      924                            LF       GEN,8,24 AF(1),BA(AF(2))
      925                                     PEND
      926                            *
      927                            *      R8      ERROR IDENTIFIER AND ADDRESS:
      928                            *              01000000 = INSTRUCTION
      929                            *              02000000 = LOCATION+1 OF THE EXECUTION LOCATION
      930                            *              03000000 = INDIRECT ADDRESS
      931                            *              0400000X = INDEX REGISTER X: X=1(NORMAL) OR 7(ONE)
      932                            *              0500000X = PROGRAM STATUS WORD X: X=1 OR 2
      933                            *              0600000X = REGISTER X: X=C(12)OR D(13)
      934                            *              0700WXYZ = MEMORY WORD IN LOCATION WXYZ (WXYZ=0-FFFF)
      935                            *      R9      EXPECTED  RESULT
      936                            *      R10     OBSERVED RESULT
      937                            *      R11     EXCLUSIVE 'OR' OF R9 AND R10
      938                            *
      939                            *
      940   01 01010                          ORG      X'1010'                                           *A03
            01 01010
      941                                     BOUND    8
      942   01 01010    00000000 A            DATA     0
      943   01 01011    00000000 A            DATA     0
      944   01 01012    00001014              DATA     %+2
      945   01 01013    00000000 A            DATA     0
      946   01 01014    70201010              LC       EXP:TRAP-6
      947   01 01015    0F00102C              XPSD,0   RETURN
      948   01 01016    00000000 A   EXP:TRAP DATA     0
      949   01 01017    00000000 A            DATA     0
      950   01 01018    0000101A              DATA     %+2
      951   01 01019    00000000 A            DATA     0
      952   01 0101A    0F00102C              XPSD,0   RETURN
      953   01 0101B    0F00102C              XPSD,0   RETURN
      954   01 0101C    0F00102C              XPSD,0   RETURN
      955   01 0101D    0F00102C              XPSD,0   RETURN
      956   01 0101E    0F00102C              XPSD,0   RETURN
      957   01 0101F    0F00102C              XPSD,0   RETURN
      958   01 01020    0F00102C              XPSD,0   RETURN
      959   01 01021    0F00102C              XPSD,0   RETURN
      960   01 01022    0F00102C              XPSD,0   RETURN
      961   01 01023    0F00102C              XPSD,0   RETURN
      962   01 01024    0F00102C              XPSD,0   RETURN
      963   01 01025    0F00102C              XPSD,0   RETURN
      964   01 01026    0F00102C              XPSD,0   RETURN
      965   01 01027    0F00102C              XPSD,0   RETURN
      966   01 01028    0F00102C              XPSD,0   RETURN
      967   01 01029    0F00102C              XPSD,0   RETURN
      968   01 0102A    0F00102C              XPSD,0   RETURN
      969                            *
      970   01 0102B    0F80102C     BRANCH   XPSD,8   RETURN
      971                                     BOUND    8
      972   01 0102C    00000000 A   RETURN   DATA     0
      973   01 0102D    00000000 A            DATA     0
      974   01 0102E    0000118F              DATA     LOC+2
      975   01 0102F    00000000 A            DATA     0
      976   01 01030    02000000 A            NOP
      977   01 01031    02000000 A            NOP
      978   01 01032    02000000 A            NOP
      979   01 01033    02000000 A            NOP
1 C00   00:01 JUN 21,'83    SIGMA 8/9 CPU DIAG FLOAT 706135-11/51A05  6-20-73                     PAGE    5
A     981                            *
      982                            ********************************************************************
      983                            ***         CONTROL  PROGRAM  BEGINS  HERE            ***
      984                            ********************************************************************
      985                            *
      986         01 01034           INITIAL  EQU      %
      987   01 01034    356010B4              STW,X6     INI:EXIT        YES RECOVERY IF 'LOADFLAG'
      988   01 01035    70200394              LC       #LOADFLAG         IS ZERO.
      989   01 01036    69F010AB              BCS,15   BYPASS
      990                            *
      991   01 01037    32600395              LW,X6    #MTLFLAG          #MTLFLAG CONTAINS THE ADDRESS
      992   01 01038    68301047              BCR,3    NOTAPE            OF THE MAGTAPE LIBRARY'S LINK
      993   01 01039    328010B9              LW,R8    INIFLG
      994   01 0103A    69301042              BCS,3    NOTAPE-5
      995   01 0103B    328C0004 A            LW,R8    4,X6              TABLE IF THE PROGRAM IS LOADED
      996   01 0103C    35801B49              STW,R8   TAPE0ADR          FROM TAPE; OTHERWISE IT IS 0.
      997   01 0103D    20800001 A            AI,R8    1
      998   01 0103E    35801B4A              STW,R8   TAPE1ADR          IDX:TAPE IS A SIBROUTINE USED
      999   01 0103F    20800001 A            AI,R8    1                 TO POSITION THE LIBRARY TAPE
     1000   01 01040    35801B4B              STW,R8   TAPE2ADR          AT THE SNAP COMPARE DATA.
     1001   01 01041    68001047              B        NOTAPE
     1002   01 01042    32801A9C              LW,R8    SO
     1003   01 01043    68301047              BCR,3    NOTAPE
     1004   01 01044    21800007 A            CI,R8    7
     1005   01 01045    68301047              BCR,3    NOTAPE
     1006   01 01046    6AF016B3              BAL,R15  MAR:TAPE
     1007                            *
     1008   01 01047    328010B9     NOTAPE   LW,R8    INIFLG            SET:MEM IS A SUBROUTINE USED
     1009   01 01048    6930104A              BCS,3    %+2               TO SET UP BUFFER ADDRESSES TO
     1010   01 01049    6AE0165D              BAL,R14  SET:MEM           BE USED BY THE SNAP ROUTINES
     1011                            *                                   ACCORDING TO AVAIALABLE MEMORY.
     1012   01 0104A    32800040 A   PARA:SET LW,R8    X'40'             ONLY REQ'D ONCE PER LOAD.
     1013   01 0104B    35801140              STW,R8   TRAP:SAV
     1014   01 0104C    02000000 A            NOP
     1015   01 0104D    02000000 A            NOP
     1016   01 0104E    02000000 A            NOP
     1017   01 0104F    02000000 A            NOP
     1018   01 01050    2280016E A            LI,R8    LAST:MOD          RESTORE 'MODULE STOP' AND LAST
     1019   01 01051    358018F0              STW,R8   LST:NUM           NUMBER TO THE LAST MODULE #.
     1020   01 01052    358003F1              STW,R8   MSP:NUM
     1021   01 01053    EA6003C3              #HTECON  R8
            01 01054    00000008 A
     1022   01 01055    328C0001 A            LW,R8    1,X6              INITIALIZE THE VALUES IN THE
     1023   01 01056    4B801B3C              AND,R8   LS:MSK            K-PARAMETER LINE BY FIRST SET-
     1024   01 01057    358018A8              STW,R8   KINIT+1           TING UP THE K-INITIAL LINE &
     1025   01 01058    22800001 A            LI,R8    1                 THEN WRITING IT OVER THE K-
     1026   01 01059    358003F0              STW,R8   MST:NUM           PARAMETER LINE.
     1027   01 0105A    358003F2              STW,R8   MCR:NUM
     1028   01 0105B    358013CB              STW,R8   PASS:CNT
     1029   01 0105C    2280118D              LI,R8    LOC               SET VALUE OF 'LOC' IN
     1030   01 0105D    EA6003C3              #HTECON  R8                K-PARAMETER LINE.
            01 0105E    00000008 A
     1031   01 0105F    328C0001 A            LW,R8    1,X6
     1032   01 01060    358018AF              STW,R8   KINIT+8
     1033                            *
     1034   01 01061    722018A7              LB,X2    KINIT
     1035   01 01062    728418A7              LB,R8    KINIT,X2
     1036   01 01063    7584189E              STB,R8   KOUT,X2
     1037   01 01064    64201062              BDR,X2   %-2
     1038                            *
     1039   01 01065    EA6003C3              #HTECON  #PRTADDR
            01 01066    00000397
     1040   01 01067    328C0001 A            LW,R8    1,X6              INITIALIZE THE VALUES IN THE
     1041   01 01068    358017D6              STW,R8   JINIT+1           J-PARAMETER LINE BY FIRST SET-
     1042                            *                                   TING UP THE J-INITIAL LINE &
     1043   01 01069    EA6003C3              #HTECON  #TOADDR           THE WRTITING IT OVER THE
            01 0106A    00000396
     1044   01 0106B    328C0001 A            LW,R8    1,X6              J-PARAMETER LINE.
     1045   01 0106C    358017D8              STW,R8   JINIT+3
     1046                            *
     1047   01 0106D    722017D5              LB,X2    JINIT
     1048   01 0106E    728417D5              LB,R8    JINIT,X2
     1049   01 0106F    758417CA              STB,R8   JOUT,X2
     1050   01 01070    6420106E              BDR,X2   %-2
     1051                            *
     1052   01 01071    22800000 A            LI,R8    0
     1053   01 01072    35801B40              STW,R8   FTFL
     1054   01 01073    35801B3E              STW,R8   ERR:CNT           FLAGS AND COUNTS THAT MUST BE
     1055   01 01074    358013CA              STW,R8   PASS:OK           CLEARED TO ZERO UPON ANY 'YES'
     1056   01 01075    358014B6              STW,R8   SNAP:FLG          RECOVERY.
     1057   01 01076    35801A9C              STW,R8   SO
     1058   01 01077    35800393              STW,R8   #HDRFLG
     1059   01 01078    358013AA              STW,R8   EM
     1060   01 01079    358013EB              STW,R8   MAR:SET-1
     1061   01 0107A    358011AC              STW,R8   CI:CNT
     1062   01 0107B    3580192E              STW,R8   LCNT
     1063   01 0107C    35801B43              STW,R8   CK:BIAS
     1064   01 0107D    35801B6D              STW,R8   CARD:SW
     1065   01 0107E    35801B6E              STW,R8   END:FLG
     1066   01 0107F    35801B6F              STW,R8   RD:SW
     1067   01 01080    358010B5              STW,R8   TOT:ERRS
     1068   01 01081    358014B7              STW,R8   SNAP:UNC
     1069   01 01082    358014BA              STW,R8   GEN:FLG
     1070   01 01083    35801B3F              STW,R8   ERR:FLG
     1071   01 01084    35801973              STW,R8   WDT:SNAP
     1072   01 01085    3580114A              STW,R8   SNAPINT
     1073   01 01086    358014BB              STW,R8   VER:FLG
     1074   01 01087    358013A9              STW,R8   EM:FLG
     1075   01 01088    02000000 A            NOP
     1076   01 01089    02000000 A            NOP
     1077   01 0108A    02000000 A            NOP
     1078   01 0108B    02000000 A            NOP
     1079   01 0108C    02000000 A            NOP
     1080   01 0108D    22800040 A            LI,R8    X'40'                                             *A04
     1081   01 0108E    6D801100 A            WD,R8    X'1100'                                           *A04
     1082   01 0108F    2280E390 A            LI,R8    X'E390'
     1083   01 01090    35801861              STW,R8   CI:SAV
     1084   01 01091    32801B53              LW,R8    SNAP:INI
     1085   01 01092    35801B52              STW,R8   SNAP:SET
     1086   01 01093    CF001884              HIO,0    *MI:ADR           TURN OFF MEMORY INTERFERRENCE.
     1087   01 01094    328017DF              LW,R8    JINIT+10
     1088   01 01095    358017D4              STW,R8   JOUT+10
     1089   01 01096    22802246              LI,R8    LIST
     1090   01 01097    358003F3              STW,R8   LISTPTR           RESET THE LISTPTR BACK TO THE
     1091   01 01098    6C800045 A            RD,R8    X'45'             FIRST MODULE IN THE LIST.
     1092   01 01099    4B8013F1              AND,R8   NEW:CM            RESET THE CLOCK MARGINS TO
     1093   01 0109A    358013F6              STW,R8   CM:ON                                             *A01
     1094   01 0109B    358013F7              STW,R8   CM:OFF
     1095   01 0109C    6D800045 A            WD,R8    X'45'             NORMAL.  RESET MAX CLOCK OVER-
     1096   01 0109D    32801971              LW,R8    NORM:SNP          RIDE SET BY CB=FF IN K LINE.
     1097   01 0109E    358011D6              STW,R8   SNAP:SW           PREPARE COUNTER ZERO ACTIVATION
     1098   01 0109F    228FFFF6 A            LI,R8    -10               SET THE STATUS REPORT INTERVAL
     1099   01 010A0    35801821              STW,R8   SI                BACK TO ITS DEFAULT VALUE(10).
     1100   01 010A1    358010B9              STW,R8   INIFLG
     1101   01 010A2    32801754              LW,R8    CK:LIMIT          SET THE CLOCK END POINTER FOR
     1102   01 010A3    35801B51              STW,R8   CE:PTR            SNAPSHOT TO THE MAX VALUE CAL-
     1103   01 010A4    02000000 A            NOP                        CULATED BY THE SET:MEM ROUTINE.
     1104   01 010A5    02000000 A            NOP
     1105   01 010A6    02000000 A            NOP
     1106   01 010A7    22800001 A            LI,R8    1                 CK:SAV IS USED BY THE 'BACK12'
     1107   01 010A8    35801B47              STW,R8   CK:SAV-1          ROUTINE OF SNAP TO KEEP SNAP
     1108   01 010A9    35801B46              STW,R8   CK:SAV-2          OUTPUT ROUTINE FROM BACKING UP
     1109   01 010AA    35801B45              STW,R8   CK:SAV-3          1 CLOCK IN SEMI-INTERLACED
     1110   01 010AB    6C800049 A   BYPASS   RD,R8    X'49'             RESET SNAP
     1111   01 010AC    22800000 A            LI,R8    0                 OF ALL IMPLEMENTED COUNTERS     *A01
     1112   01 010AD    358011AC              STW,R8   CI:CNT            (AFTER 11TH ERROR FREE PASS).   *A01
     1113   01 010AE    02000000 A            NOP                        TURN OFF ANY COUNTERS SELECTED. *A01
     1114                            *                                   MODE WHE FAILING CLOCK IS #1.
     1115   01 010AF    702003A0              LC       #TESTINIT
     1116   01 010B0    EA6010B4              BAL,X6    *INI:EXIT        BYTE 0 OF #TESTINIT CONTROLS
     1117   01 010B1    000010B2              DATA     GO                THE AUTOMATIC START FEATURE
     1118                                     BOUND    8                 OF GUIDE INTERFACED PROGRAMS.
     1119   01 010B2    000010BA     GO       DATA     START             IF THE CC VALUE FETCHED IS NOT
     1120   01 010B3    00000000 A            DATA     0                 ZERO, THEN GUIDE WILL GO TO
     1121                            *                                   IDLE INSTEAD OF RUN.
     1122   01 010B4    00000000 A   INI:EXIT DATA     0
     1123   01 010B5    00000000 A   TOT:ERRS DATA    0
     1124   01 010B6    02000000 A            NOP
     1125   01 010B7    000030B0     IAM32    DATA     MEMORY-64
     1126   01 010B8    000030EF     IAP      DATA     MEMORY-1
     1127   01 010B9    00000000 A   INIFLG   DATA     0
1 C00   00:01 JUN 21,'83    SIGMA 8/9 CPU DIAG FLOAT 706135-11/51A05  6-20-73                     PAGE    6
A    1129                            *
     1130                            **** NON-INITIALIZED START BEGINS HERE ****
     1131                            *
     1132         01 010BA           START    EQU      %
     1133   01 010BA    22C00000 A            LI,R12   0
     1134   01 010BB    35C014B6              STW,R12  SNAP:FLG
     1135   01 010BC    22C01177              LI,R12   SHORTL
     1136   01 010BD    35C014B4              STW,R12  SHORTPTR
     1137                            *
     1138         01 010BE           AUTOTEST EQU      %
     1139   01 010BE    6AF010CA              BAL,R15  CLR:AUTO          CLEAR DRIVER FOR TEST MODULE.
     1140   01 010BF    22A012BB              LI,R10   AUTO:DL           MOVE MODULE DATA INTO DRIVER
     1141   01 010C0    6AF010D0              BAL,R15  MOVER             USING DISPERSION LIST(AUTO:DL).
     1142   01 010C1    6AF01114              BAL,R15  TRAP:SW           SET UP FOR TRAP IF ONE IS EXP
     1143   01 010C2    32A014B6              LW,R10   SNAP:FLG          SNAP:FLG IS SET IN K-LINE OR AT
     1144   01 010C3    683010C5              BCR,3    %+2               FT:ERR DEPENDING UPON OPTION(SO)
     1145   01 010C4    6AF011AD              BAL,R15  SNAP:CON
     1146   01 010C5    6AF01146              BAL,R15  EXU:AUTO          EXECUTE TEST MODULE
     1147   01 010C6    6AF011A1              BAL,R15  SAV:RES           SAVE TEST RESULTS
     1148   01 010C7    6AF0125F              BAL,R15  CMP:AUTO          COMPARE OBS'D W/EXP'D
     1149                            *
     1150         01 010C8           PTR:ADV  EQU      %
     1151   01 010C8    6AF01310              BAL,R15  ADV:PTR           ADVANCE LISTPTR & TEST FOR
     1152   01 010C9    680010BE              B        AUTOTEST          SUFFIX ENTRY OR LIST END.
     1153                            *
     1154         01 010CA           CLR:AUTO EQU      %
     1155   01 010CA    221FFFF2 A            LI,X1    AUTO:DL-AUTO:DLE  CLEAR ALL AREAS USED BY DISPERSION
     1156   01 010CB    22800000 A            LI,R8    0                 ROUTINE (MOVER).
     1157   01 010CC    329212C9              LW,R9    AUTO:DLE,X1
     1158   01 010CD    B5800009 A            STW,R8   *R9
     1159   01 010CE    651010CC              BIR,X1   CLR:AUTO+2
     1160   01 010CF    E800000F A            B        *R15
     1161                            *
     1162                            *            CALLING SEQUENCE
     1163                            *        LI,R10   AUTO:DL
     1164                            *        BAL,R15  MOVER
     1165                            *
     1166         01 010D0           MOVER    EQU      %
     1167   01 010D0    F21003F3              LB,X1    *LISTPTR          MOVE MODULE DATA FROM 'LIST' BY
     1168   01 010D1    4B1014A7              AND,X1   MINUS2
     1169   01 010D2    201FFFFF A            AI,X1    -1                INDEXING THRU MODULE DISPERSION
     1170   01 010D3    B28203F3              LW,R8    *LISTPTR,X1       LIST.  USE MODULE COUNT AS INDEX
     1171   01 010D4    B292000A A            LW,R9    *R10,X1           TO LIST & DISPERSION LIST.
     1172   01 010D5    B5800009 A            STW,R8   *R9
     1173   01 010D6    641010D3              BDR,X1   MOVER+3
     1174   01 010D7    3510113F              STW,X1   TRAP:FLG          CLEAR TRAP FLAG.
     1175   01 010D8    35C014CB              STW,R12  RSAV              SAVE MINIMUM OPERATING
     1176   01 010D9    35D014CC              STW,R13  RSAV1             ENVIRONMENT FOR SHORT LOOP.
     1177   01 010DA    328030F0              LW,R8    MEMORY
     1178   01 010DB    358014CD              STW,R8   MSAV
     1179   01 010DC    328030F1              LW,R8    MEMORY+1
     1180   01 010DD    358014CE              STW,R8   MSAV1
     1181   01 010DE    02000000 A            NOP
     1182                            *
     1183         01 010DF           COM:TRAP EQU      %                 ******
     1184   01 010DF    32801A9C              LW,R8    SO
     1185   01 010E0    683010F5              BCR,3    NO:GEN            SKIP UNSNAPPABLE MODULES IF
     1186   01 010E1    21800007 A            CI,R8    7
     1187   01 010E2    683010EA              BCR,3    SKIPEM
     1188   01 010E3    328017DB              LW,R8    JINIT+6
     1189   01 010E4    358017D0              STW,R8   JOUT+6
     1190   01 010E5    22800000 A            LI,R8    0
     1191   01 010E6    358013AA              STW,R8   EM
     1192   01 010E7    358011AC              STW,R8   CI:CNT
     1193   01 010E8    2280E390 A            LI,R8    X'E390'
     1194   01 010E9    6D801100 A            WD,R8    X'1100'
     1195   01 010EA    B28003F3     SKIPEM   LW,R8    *LISTPTR          SNAP OPTION IS NOT ZERO.
     1196   01 010EB    21801000 A            CI,R8    X'1000'
     1197   01 010EC    684010F5              BCR,4    NO:GEN
     1198   01 010ED    32E014BB              LW,R14   VER:FLG
     1199   01 010EE    683010F1              BCR,3    %+3
     1200   01 010EF    22000BAC              LI,R0    DA(MOVF)
     1201   01 010F0    6AE016EA              BAL,R14  READ                                              *A02
     1202   01 010F1    32E014BA              LW,R14   GEN:FLG           WRITE DUMMY MODULES OUT TO
     1203   01 010F2    683010F4              BCR,3    %+2               SNAP TAPE IN PLACE OF
     1204   01 010F3    6AE0168B              BAL,R14  DUMMY             UNSNAPPABLE MODULES.
     1205   01 010F4    680010C8              B        PTR:ADV
     1206                            *
     1207   01 010F5    32801B75     NO:GEN   LW,R8    PSW2              DUMMY DATA IS PUT IN PSW2 TO
     1208   01 010F6    4B801138              AND,R8   FILL:MSK          OBSERVE A NON-ZERO DATA FLOW
     1209   01 010F7    48801139              EOR,R8   FILLER            IN SNAPSHOT OUTPUT.
     1210   01 010F8    35801B75              STW,R8   PSW2
     1211                            *
     1212   01 010F9    22100003 A            LI,X1    3                 LOC1:SW IS USED IN TRAP:SW FOR
     1213   01 010FA    35101145              STW,X1   LOC1:SW           THOSE MODULES THAT PSW1 EX-
     1214   01 010FB    B28203F3              LW,R8    *LISTPTR,X1       PECTED VALUE IS LOC+1.
     1215   01 010FC    4B801B79              AND,R8   ADR:MSK           IF PSW1 OUT ADDRESS IS LOC+2
     1216   01 010FD    2180118F              CI,R8    LOC+2
     1217   01 010FE    6830110F              BE       INC:RET           INCREMENT THE RETURN ADDRESS
     1218   01 010FF    2180118E              CI,R8    LOC+1             IN R15 TO SKIP THE TRAP:SW
     1219   01 01100    69301103              BNE      %+3               ROUTINE.
     1220   01 01101    35801145              STW,R8   LOC1:SW
     1221   01 01102    E800000F A            B        *R15
     1222   01 01103    22901029              LI,R9    EXP:TRAP+19
     1223   01 01104    31800009 A            CW,R8    R9
     1224   01 01105    6920110A              BCS,2    %+5
     1225   01 01106    2290101B              LI,R9    EXP:TRAP+5
     1226   01 01107    31800009 A            CW,R8    R9
     1227   01 01108    6910110A              BCS,1    %+2
     1228   01 01109    E800000F A            B        *R15
     1229   01 0110A    22100002 A            LI,X1    2
     1230   01 0110B    B28203F3              LW,R8    *LISTPTR,X1       IN R15 TO SKIP THE TRAP:SW
     1231   01 0110C    4B801B79              AND,R8   ADR:MSK           ROUTINE
     1232   01 0110D    2180118D              CI,R8    LOC
     1233   01 0110E    E930000F A            BNE      *R15
     1234   01 0110F    20F00001 A   INC:RET  AI,R15   1
     1235   01 01110    32801B74              LW,R8    PSW1
     1236   01 01111    308013AA              AW,R8    EM
     1237   01 01112    35801B74              STW,R8   PSW1
     1238   01 01113    E800000F A            B        *R15
     1239                            *
     1240         01 01114           TRAP:SW  EQU      %
     1241   01 01114    22100003 A            LI,X1    3
     1242   01 01115    3290102B              LW,R9    BRANCH
     1243   01 01116    32801145              LW,R8    LOC1:SW
     1244   01 01117    21800003 A            CI,R8    3
     1245   01 01118    69301125              BNE      SET:IDX
     1246   01 01119    3580113F              STW,R8   TRAP:FLG
     1247   01 0111A    B28203F3              LW,R8    *LISTPTR,X1
     1248   01 0111B    4B801B79              AND,R8   ADR:MSK           TEST PSW1 OUT ADDRESS TO SELECT
     1249   01 0111C    3180113A              CW,R8    EX:TRP0           APPROPRIATE XPSD FOR EXPECTED
     1250   01 0111D    69301120              BNE      %+3               TRAP LOCATION.  USE EXTRAP46 IF
     1251   01 0111E    3290113E              LW,R9    EXTRAP46          PSW1 SAYS EXP:TRAP, USE EXTRAP00 IF
     1252   01 0111F    68001125              B        SET:IDX           PSW1 SAYS EXP:TRAP+5.  IF NEITHER
     1253   01 01120    3180113B              CW,R8    EX:TRP5           OF ABOVE, USE EXTRAP40 FOR ADD
     1254   01 01121    69301124              BNE      %+3               IMMEDIATE TYPES.
     1255   01 01122    3290113C              LW,R9    EXTRAP00
     1256   01 01123    68001125              B        %+2
     1257   01 01124    3290113D              LW,R9    EXTRAP40
     1258                            *
     1259   01 01125    32501B74     SET:IDX  LW,X5    PSW1
     1260   01 01126    32800005 A            LW,R8    X5
     1261   01 01127    4B8014B9              AND,R8   FLAG:MSK
     1262   01 01128    48801B78              EOR,R8   LOCADR            FETCH PSW1 IN, SET ADDRESS TO
     1263   01 01129    308013AA              AW,R8    EM                'LOC' AND ADD THE EXECUTION MODE
     1264   01 0112A    35801B74              STW,R8   PSW1              BIAS.
     1265                            *
     1266   01 0112B    4B801142              AND,R8   PRIV:MSK          PLACE EXPECTED FLAGS FROM TEST
     1267   01 0112C    48801143              EOR,R8   ETP4:ADR          MODULE'S PSW1-IN IN APPROPRIATE
     1268   01 0112D    35801018              STW,R8   EXP:TRAP+2        TRAP LOCATION FOR COMPARATOR
     1269   01 0112E    4B801142              AND,R8   PRIV:MSK          VALIDATION AT CMP:AUTO.
     1270   01 0112F    48801144              EOR,R8   ETM2:ADR
     1271   01 01130    35801012              STW,R8   EXP:TRAP-4
     1272                            *
     1273   01 01131    4B501B79              AND,X5   ADR:MSK           COMPUTE THE LOCATION OF EXPECTED
     1274   01 01132    205FEE73 N            AI,X5    0-LOC             TRAP BY USING THE EXCESS COUNT
     1275   01 01133    328A0040 A            LW,R8     X'40',X5         AS AN INDEX (X5).
     1276   01 01134    35801140              STW,R8   TRAP:SAV          SAVE THE OLD TRAP CONTENTS AND THE
     1277   01 01135    35501141              STW,X5   TRAP:IDX          INDEX COUNT TO RESTORE UPON EXIT.
     1278   01 01136    359A0040 A            STW,R9    X'40',X5
     1279   01 01137    E800000F A            B        *R15
     1280                            *
     1281   01 01138    FFC0FFFF A   FILL:MSK DATA     X'FFC0FFFF'
     1282   01 01139    003F0000 A   FILLER   DATA     X'3F0000'
     1283   01 0113A    00001016     EX:TRP0  DATA     EXP:TRAP
     1284   01 0113B    0000101B     EX:TRP5  DATA     EXP:TRAP+5
     1285   01 0113C    0F001016     EXTRAP00 XPSD,0   EXP:TRAP
     1286   01 0113D    0F401016     EXTRAP40 XPSD,4   EXP:TRAP
     1287   01 0113E    0F401010     EXTRAP46 XPSD,4   EXP:TRAP-6
     1288   01 0113F    00000000 A   TRAP:FLG DATA     0
     1289   01 01140    00000000 A   TRAP:SAV DATA     0
     1290   01 01141    00000000 A   TRAP:IDX DATA     0
     1291   01 01142    FF3E0000 A   PRIV:MSK DATA     X'FF3E0000'
     1292   01 01143    0000101A     ETP4:ADR DATA     EXP:TRAP+4
     1293   01 01144    00001014     ETM2:ADR DATA     EXP:TRAP-2
     1294   01 01145    00000000 A   LOC1:SW  DATA     0
     1295                            *
     1296                            *
     1297         01 01146           EXU:AUTO EQU      %
     1298   01 01146    35F011A0              STW,R15  EXIT:EXU
     1299   01 01147    02000000 A            NOP
     1300   01 01148    02000000 A            NOP
     1301   01 01149    68001156              B        IISET:UP
     1302                            *
     1303   01 0114A    00000000 A   SNAPINT  DATA     0
     1304   01 0114B    08801188 N   SNAPINI  GEN,8,1,7,16  8,1,0,LOC-5
     1305   01 0114C    FFFFFF9C A   SDAT     DATA     -100                                              *A04
     1306                            *                                                                   *A04
     1307                            *                                                                   *A04
     1308         01 0114D           SAMPLE   EQU      %                                                 *A04
     1309   01 0114D    3310114C              MTW,1    SDAT                                              *A04
     1310   01 0114E    E820000F A           BCR,2     *R15                                              *A04
     1311   01 0114F    8F0003AB              XPSD,0   *#SAMPLE%                                         *A04
     1312   01 01150    22CFFF9C A            LI,R12   -100                                              *A04
     1313   01 01151    35C0114C              STW,R12  SDAT                                              *A04
     1314   01 01152    E800000F A            B        *R15                                              *A04
     1315                            *
     1316   01 01153    22A012BB     SHORTA   LI,R10   AUTO:DL
     1317   01 01154    6AF010D0              BAL,R15  MOVER
     1318   01 01155    6AF01114              BAL,R15  TRAP:SW
     1319                            *
     1320   01 01156    22500004 A   IISET:UP LI,X5    4                 INDIRECT ADDRESS AND INDEXING
     1321   01 01157    B21A03F3              LW,X1    *LISTPTR,X5       PREPARATION CODE.  RESTORE INDX1
     1322   01 01158    351012AF              STW,X1   LISTEXT           VALUE TO SAME AS R12.
     1323   01 01159    327014BA              LW,X7    GEN:FLG
     1324   01 0115A    307014BB              AW,X7    VER:FLG
     1325   01 0115B    6930115E              BCS,3    %+3
     1326   01 0115C    327014B6              LW,X7    SNAP:FLG          MODULE IX02, AW MODULE.  R8&R9
     1327   01 0115D    68301163              BCR,3    SET:CM-1          ARE USED TO RESTORE SHORT LOOP.
     1328   01 0115E    327013F8              LW,X7    CM:LO
     1329   01 0115F    7220118D              LB,X2    LOC               FORCE CLOCK MARGINS TO LOW IF
     1330   01 01160    4B201459              AND,X2   THREE
     1331   01 01161    21200003 A            CI,X2    3
     1332   01 01162    68301164              BCR,3    SET:CM
     1333   01 01163    327013F6              LW,X7    CM:ON             TURN SELECTED CLOCK MARGIN ON.
     1334   01 01164    6D700045 A   SET:CM   WD,X7    X'45'
     1335   01 01165    22200001 A            LI,X2    1                 X2 IS A SPECIAL INDX FOR MODULE
     1336   01 01166    22700001 A            LI,X7    1                 IX03, A SF MODULE.  X7 IS A
     1337   01 01167    02000000 A            NOP                        GENERAL INDX AND IS ALWAYS =1.
     1338   01 01168    32F014BA              LW,R15   GEN:FLG                                           *A04
     1339   01 01169    30F014BC              AW,R15   VER:END                                           *A04
     1340   01 0116A    6930116C              BCS,3    %+2                                               *A04
     1341   01 0116B    6AF0114D              BAL,R15  SAMPLE                                            *A04
     1342   01 0116C    02000000 A            NOP                        THIS SET OF NOP'S ARE LEFT FOR
     1343   01 0116D    02000000 A            NOP                        THE USER TO INNOVATE AS HE SEES
     1344   01 0116E    02000000 A            NOP                        FIT.  THEY ARE OUTSIDE SHORT
     1345   01 0116F    02000000 A            NOP                        LOOP BUT INSIDE LONG LOOP.
1 C00   00:01 JUN 21,'83    SIGMA 8/9 CPU DIAG FLOAT 706135-11/51A05  6-20-73                     PAGE    7
A    1347   01 01170    32F0102B     PRE:LOC  LW,R15   BRANCH            RESTORE XPSD IN LOC+1 AND IN
     1348   01 01171    35F0118E              STW,R15  LOC+1             COMPARATOR REFERENCE TABLE.
     1349   01 01172    35F012B2              STW,R15  LISTEXT+3         RESTORE INDIRECT ADDRESS (IA).
     1350   01 01173    22F030F0              LI,R15   MEMORY
     1351   01 01174    35F01B7A              STW,R15  IA
     1352   01 01175    32F011AC              LW,R15   CI:CNT            TURN ON COUNTERS AFTER 56TH     *A04
     1353   01 01176    6DF01200 A            WD,R15   X'1200'           ERROR FREE PASS.
     1354   01 01177    32F0114A     SHORTL   LW,R15   SNAPINT
     1355   01 01178    6830117A              BCR,3    %+2
     1356   01 01179    6DF00049 A            WD,R15   X'49'
     1357   01 0117A    32F01A9C              LW,R15   SO                DISABLE COUNT                   *A03
     1358   01 0117B    6830117E              BCR,3    %+3               PULSE 4 IF                      *A03
     1359   01 0117C    22F01000 A            LI,R15   X'1000'           SNAP IS                         *A03
     1360   01 0117D    6DF01100 A            WD,R15   X'1100'           REQUESTED                       *A03
     1361   01 0117E    22FFFFFF A            LI,R15   -1                SET COUNTER ZERO LOCATION TO
     1362   01 0117F    35F013AD              STW,R15  CICOUNT           -1.  CLEAR LOCATION OF CNTR 0
     1363   01 01180    22F00000 A            LI,R15   0                 STORED  ADDRESS FROM XPSD.
     1364   01 01181    35F013C4              STW,R15  CI:PROC           CM
     1365   01 01182    328014CD              LW,R8    MSAV              LOOP BUT INSIDE LONG LOOP.
     1366   01 01183    329014CE              LW,R9    MSAV1
     1367   01 01184    358030F0              STW,R8   MEMORY            SHORT LOOP REFRESHING STARTS
     1368   01 01185    359030F1              STW,R9   MEMORY+1          HERE.
     1369   01 01186    32C014CB              LW,R12   RSAV
     1370   01 01187    32D014CC              LW,R13   RSAV1
     1371                            *
     1372                            ***********************************************************************
     1373   01 01188    0E001B74              LPSD,0   PSW1                  SET  TEST  STATUS
     1374   01 01189    6800118D              B        LOC               EM=3   EXECUTION MODE
     1375   01 0118A    6700118D              EXU      LOC               EM=2     VARIATION
     1376   01 0118B    6800118E              B        LOC+1                      (SEE J PARAMETER LINE)
     1377   01 0118C    6900102C              BCS,0    RETURN            EM=1
     1378   01 0118D    00000000 A   LOC      DATA     0                 EXECUTE  TEST  INSTRUCTION
     1379   01 0118E    0F80102C              XPSD,8   RETURN               SAVE  TEST  STATUS
     1380                            ***********************************************************************
     1381                            *
     1382   01 0118F    70200392              LC       #SENSE            SHORT LOOP.  SENSE SW1.
     1383   01 01190    E98014B4              BCS,8    *SHORTPTR
     1384   01 01191    35F030EF              STW,R15  RES:SAV+15
     1385   01 01192    22F01000 A            LI,R15   X'1000'           TURN COUNT PULSE 4              *A03
     1386   01 01193    6DF01200 A            WD,R15   X'1200'           BACK ON                         *A03
     1387   01 01194    32F01861              LW,R15   CI:SAV            TURN OFF COUNTER INTERRUPTS.
     1388   01 01195    6DF01100 A            WD,R15   X'1100'
     1389   01 01196    6CF00045 A            RD,R15   X'45'             SAVE STATUS OF CLOCK MARGINS
     1390   01 01197    35F013F6              STW,R15  CM:ON             FOR ERROR AND STATUS REPORT
     1391   01 01198    32F013F7              LW,R15   CM:OFF            ROUTINES.  TURN CM OFF.
     1392   01 01199    6DF00045 A            WD,R15   X'45'
     1393   01 0119A    350030E0              STW,R0   RES:SAV
     1394   01 0119B    320014B6              LW,R0    SNAP:FLG
     1395   01 0119C    693011AD              BCS,3    SNAP:CON
     1396   01 0119D    320014B7              LW,R0    SNAP:UNC
     1397   01 0119E    693011AD              BCS,3    SNAP:CON
     1398   01 0119F    E80011A0              B        *EXIT:EXU
     1399                            *
     1400   01 011A0    00000000 A   EXIT:EXU DATA     0
     1401                            *
     1402         01 011A1           SAV:RES  EQU      %
     1403   01 011A1    351030E1              STW,X1   RES:SAV+1         SAVE REGISTERS.
     1404   01 011A2    221FFFF3 A            LI,X1    -13
     1405   01 011A3    352230EF              STW,X2   RES:SAV+15,X1
     1406   01 011A4    32220010 A            LW,X2     X'10',X1
     1407   01 011A5    651011A3              BIR,X1   %-2
     1408   01 011A6    02000000 A            NOP
     1409   01 011A7    02000000 A            NOP
     1410   01 011A8    32501141              LW,X5    TRAP:IDX
     1411   01 011A9    32801140              LW,R8    TRAP:SAV          RESTORE GUIDE'S TRAP XPSD'S.
     1412   01 011AA    358A0040 A            STW,R8    X'40',X5
     1413   01 011AB    E800000F A            B        *R15
     1414                            *
     1415   01 011AC    00000000 A   CI:CNT   DATA     0
     1416                            *
     1417         01 011AD           SNAP:CON EQU      %
     1418   01 011AD    32201B40              LW,X2    FTFL              GO TO SNAP:RUN AFTER FTFL IS
     1419   01 011AE    693011D2              BCS,3    SNAP:RUN          SET BYPASSING SNAP INITIALIZER.
     1420   01 011AF    322030D6              LW,X2    SN:OBS            SET EXP/OBS POINTER TO PUT
     1421   01 011B0    352014B1              STW,X2   SN:OEPTR          SNAP DATA INTO OBSERVED BUFF.
     1422   01 011B1    32201A9C              LW,X2    SO
     1423   01 011B2    21200003 A            CI,X2    3
     1424   01 011B3    683011F8              BCR,3    SNAPEXIT
     1425   01 011B4    222FFFFF A            LI,X2    -1                SET FTFL FLAG, RESET SNAP:FLG
     1426   01 011B5    35201B40              STW,X2   FTFL              IF NOT UNCONDITIONAL SNAP;
     1427   01 011B6    322014B7              LW,X2    SNAP:UNC          CLEAR SNAP BUFFERS BASED
     1428   01 011B7    693011BA              BCS,3    %+3               UPON AVAILABLE MEMORY FOUND
     1429   01 011B8    22200000 A            LI,X2    0                 IN SET:MEM ROUTINE.  CLEAR
     1430   01 011B9    352014B6              STW,X2   SNAP:FLG          LAST CLOCK FLAG & EXIT
     1431   01 011BA    22800000 A            LI,R8    0
     1432   01 011BB    35801B41              STW,R8   MA:PTR
     1433   01 011BC    35801B42              STW,R8   LC:FLG
     1434   01 011BD    35801B48              STW,R8   LC:EXIT
     1435   01 011BE    02000000 A            NOP
     1436   01 011BF    02000000 A            NOP
     1437                            *                                   SET CLOCK POINTER VALUE ENT-
     1438                            *                                   ERED IN CLOCK BIAS FIELD OF
     1439   01 011C0    22800001 A            LI,R8    1                 K-LINE.  IF BIAS IS 0 SET PTR TO
     1440   01 011C1    35801B44              STW,R8   CK:PTR            ONE.  REFER TO CB:C,K-LINE.
     1441   01 011C2    02000000 A            NOP
     1442                            *
     1443   01 011C3    02000000 A            NOP                        SNAP DATA IS IN BLOCKS OF 23
     1444   01 011C4    328014B1              LW,R8    SN:OEPTR          WORDS PER CPU CLOCK.  THIS
     1445   01 011C5    680011C7              B        %+2               CODE SERVOS THE 0BS/EXP PNTR
     1446   01 011C6    20800017 A            AI,R8    23                TO THE SELECTED BLOCK OF 23.
     1447   01 011C7    642011C6              BDR,X2   %-1
     1448   01 011C8    358014B1              STW,R8   SN:OEPTR
     1449   01 011C9    32801B41              LW,R8    MA:PTR
     1450   01 011CA    30800008 A   SET:SNAP AW,R8    R8
     1451   01 011CB    22200001 A            LI,X2    1
     1452   01 011CC    75841B52              STB,R8   SNAP:SET,X2       SNAP:SET IS THE WORD USED BY
     1453   01 011CD    32801B44              LW,R8    CK:PTR            THE SNAP ACTIVATING WD TO LOAD
     1454                            *                                   AND ARM THE SNAP.  THE 1ST
     1455   01 011CE    75801B52              STB,R8   SNAP:SET          BYTE IS THE SELECTED CPU CLOCK
     1456   01 011CF    32801B52              LW,R8    SNAP:SET          AND BITS 10-14 SELECT THE ITEM
     1457   01 011D0    6D800049 A            WD,R8    X'49'             TO BE SNAPPED.  SEE SO:LINE0,1
     1458   01 011D1    E80014B5              B        *LONGPTR          AND 2 FOR THE RELATIVE POSITION
     1459                            *                                   OF SNAPPABLE ITEMS IN THE 23
     1460   01 011D2    32401B41     SNAP:RUN LW,X4    MA:PTR            WORD BLOCK.
     1461   01 011D3    6C200049 A            RD,X2    X'49'
     1462   01 011D4    682011D6              BCR,2    %+2
     1463   01 011D5    6AC0123E              BAL,R12  NO:SNAP
     1464   01 011D6    681011D9     SNAP:SW  BCR,1    %+3               SNAP:SW IS CHANGED TO UNCOND.
     1465   01 011D7    223FFFFF A            LI,X3    -1                BRANCH IF CB=FF IN K-LINE.
     1466   01 011D8    35301B42              STW,X3   LC:FLG            SEE CB:C.
     1467   01 011D9    B52814B1              STW,X2   *SN:OEPTR,X4
     1468   01 011DA    32801973              LW,R8    WDT:SNAP
     1469   01 011DB    683011DD              BCR,3    %+2
     1470   01 011DC    6A801231              BAL,R8   REPORT
     1471   01 011DD    02000000 A            NOP
     1472   01 011DE    02000000 A            NOP
     1473   01 011DF    32801B41              LW,R8    MA:PTR
     1474   01 011E0    20800001 A            AI,R8    1
     1475   01 011E1    21800017 A            CI,R8    23                WHEN MATRIX ADDRESS POINTER =
     1476   01 011E2    683011E5              BCR,3    %+3               23 SNAP OF CURRET CLOCK IS
     1477   01 011E3    35801B41              STW,R8   MA:PTR            COMPLETE.  MA:PTR IS SET TO
     1478   01 011E4    680011CA              B        SET:SNAP          ZERO AND CLOCK POINTER IS
     1479                            *                                   ADVANCED BY 1 AND TESTED FOR
     1480   01 011E5    22800000 A            LI,R8    0                 LAST CLOCK(CC4=1).
     1481   01 011E6    35801B41              STW,R8   MA:PTR            LC:FLG IS SET WHEN SNAP OCCURS
     1482   01 011E7    32201B48     TST:EXIT LW,X2    LC:EXIT           ON LAST CLOCK.  LC:FLG IS
     1483   01 011E8    693011F8              BCS,3    SNAPEXIT          INTERLOCKED WITH LC:EXIT TO
     1484   01 011E9    32201B42              LW,X2    LC:FLG            PERMIT SNAP TO TAKE AND PRINT
     1485   01 011EA    683011ED              BCR,3    %+3               ONE MORE CLOCK OF SNAP DATA.
     1486   01 011EB    222FFFFF A            LI,X2    -1
     1487   01 011EC    35201B48              STW,X2   LC:EXIT
     1488   01 011ED    02000000 A            NOP
     1489   01 011EE    02000000 A            NOP
     1490   01 011EF    32801B44              LW,R8    CK:PTR            EXIT SNAP WHEN SNAP CLOCK
     1491   01 011F0    31801B51              CW,R8    CE:PTR            POINTER.  CE:PTR IS DEFAULT
     1492   01 011F1    683011F8              BCR,3    SNAPEXIT          TO CK:LIMIT SET IN
     1493   01 011F2    20800001 A            AI,R8    1                 POINTER EQUALS CLOCK END
     1494   01 011F3    35801B44              STW,R8   CK:PTR            SET:MEM ROUTINE BASED UPON
     1495   01 011F4    328014B1              LW,R8    SN:OEPTR          AVAILABLE MEMORY.
     1496   01 011F5    20800017 A            AI,R8    23                ADVANCE OBS/EXP PTRS IF NOT END.
     1497   01 011F6    358014B1              STW,R8   SN:OEPTR
     1498   01 011F7    680011C9              B        SET:SNAP-1
     1499                            *
     1500   01 011F8    22200000 A   SNAPEXIT LI,X2    0
     1501   01 011F9    35201B40              STW,X2   FTFL              CLEAR SNAP CONTROL FLAGS.
     1502   01 011FA    35201B6D              STW,X2   CARD:SW
     1503   01 011FB    322014BA              LW,X2    GEN:FLG
     1504   01 011FC    69301692              BCS,3    WRT:MTL
     1505   01 011FD    02000000 A            NOP
     1506   01 011FE    02000000 A            NOP
     1507   01 011FF    02000000 A            NOP
     1508   01 01200    02000000 A            NOP
     1509   01 01201    02000000 A            NOP
     1510   01 01202    02000000 A            NOP
     1511   01 01203    328030D6              LW,R8    SN:OBS
     1512   01 01204    35801A94              STW,R8   SN:OBPTR
     1513   01 01205    228031F9              LI,R8    SN:EXP
     1514   01 01206    35801A95              STW,R8   SN:EXPTR
     1515   01 01207    32201B44              LW,X2    CK:PTR            SET SN:OBS-1 TO CURRENT
     1516   01 01208    B28003F3              LW,R8    *LISTPTR          MODULE # TO BE USED FOR
     1517   01 01209    75200008 A            STB,X2   R8                LATER COMPARISON WITH
     1518   01 0120A    358030D5              STW,R8   SN:OBS-1          EXPECTED DATA FROM MAGTAPE
     1519   01 0120B    32201A9C              LW,X2    SO
     1520   01 0120C    21200007 A            CI,X2    7
     1521   01 0120D    6830121C              BCR,3    SNAP:PRNT
     1522   01 0120E    6AF016B3              BAL,R15  MAR:TAPE
     1523   01 0120F    32201A9C              LW,X2    SO
     1524   01 01210    21200003 A            CI,X2    3
     1525   01 01211    69301218              BCS,3    %+7                                               *A01
     1526   01 01212    722031F8              LB,X2    SN:EXP-1                                          *A01
     1527   01 01213    31201B51              CW,X2    CE:PTR                                            *A02
     1528   01 01214    69101216              BCS,1    %+2                                               *A02
     1529   01 01215    32201B51              LW,X2    CE:PTR                                            *A02
     1530   01 01216    752030D5              STB,X2   SN:OBS-1                                          *A01
     1531   01 01217    6800121C              B        SNAP:PRNT                                         *A01
     1532   01 01218    2220121F              LI,X2    FNC:RET
     1533   01 01219    3520153C              STW,X2   SNAP:OUT-1
     1534   01 0121A    35201A99              STW,X2   FLG126
     1535   01 0121B    6AF01615              BAL,R15  CMP:OE-2                                          *A03
     1536   01 0121C    6AF014D8     SNAP:PRNT BAL,R15 MOD:HDR
     1537   01 0121D    6AF014F8              BAL,R15  MOD:DATA
     1538   01 0121E    6AF0153D              BAL,R15   SNAP:OUT
     1539                            *
     1540   01 0121F    32C014B7     FNC:RET  LW,R12   SNAP:UNC
     1541   01 01220    693010C8              BCS,3    PTR:ADV
     1542   01 01221    22C00000 A            LI,R12   0
     1543   01 01222    35C014B6              STW,R12  SNAP:FLG
     1544   01 01223    35C01A99              STW,R12  FLG126
     1545   01 01224    32C01A9C              LW,R12   SO
     1546   01 01225    21C00001 A            CI,R12   1
     1547   01 01226    69301228              BCS,3    %+2
     1548   01 01227    8F9003CA              XPSD,9   *#RUNADDR%
     1549   01 01228    680010C8              B        PTR:ADV
     1550   01 01229    02000000 A            NOP
     1551   01 0122A    02000000 A            NOP
     1552   01 0122B    02000000 A            NOP
     1553   01 0122C    02000000 A            NOP
     1554   01 0122D    02000000 A            NOP
     1555   01 0122E    02000000 A            NOP
     1556   01 0122F    02000000 A            NOP
     1557   01 01230    02000000 A            NOP
     1558                            *
     1559         01 01231           REPORT   EQU      %
     1560   01 01231    32C00002 A            LW,R12   X2
     1561   01 01232    6AF01658              BAL,R15  DHEX:CON
     1562   01 01233    35D0125C              STW,R13  WDT:MSG+8
     1563   01 01234    35C0125D              STW,R12  WDT:MSG+9
     1564   01 01235    32C01B52              LW,R12   SNAP:SET
     1565   01 01236    6AF01658              BAL,R15  DHEX:CON
     1566   01 01237    35D01258              STW,R13  WDT:MSG+4
     1567   01 01238    35C01259              STW,R12  WDT:MSG+5
     1568   01 01239    EA6003CD              #PRINT   WDT:MSG
            01 0123A    C0004950 A
     1569   01 0123B    E8000008 A            B        *R8
     1570                            *
     1571   01 0123C    00000000 A            DATA     0
     1572   01 0123D    00000000 A            DATA     0
     1573         01 0123E           NO:SNAP  EQU      %
     1574   01 0123E    7400123C              STCF     %-2
     1575   01 0123F    35C0123D              STW,R12  %-2
     1576   01 01240    20CFFFFD A            AI,R12   -3
     1577   01 01241    32D01B43              LW,R13   CK:BIAS
     1578   01 01242    68101244              BCR,1    %+2
     1579   01 01243    680011F8              B        SNAPEXIT
     1580   01 01244    6AF01658              BAL,R15  DHEX:CON
     1581   01 01245    35D01252              STW,R13  NSM+6
     1582   01 01246    35C01253              STW,R12  NSM+7
     1583   01 01247    EA6003CC              #TYPE    NSM
            01 01248    00004930 A
     1584   01 01249    8F9003CA              XPSD,9   *#RUNADDR%
     1585   01 0124A    7030123C              LCF      NO:SNAP-2
     1586   01 0124B    E800123D              B        *NO:SNAP-1
     1587                            *
     1588         01 0124C           NSM      TEXTCS   'CC3 SET ON SNAP RD AT          '
     1589         01 01254           WDT:MSG  TEXTCS   'WDT:SNAP  WD =            RD =         '
     1590                            *
     1591   01 0125E    00000000 A            DATA     0
     1592         01 0125F           CMP:AUTO EQU      %
     1593   01 0125F    35F0125E              STW,R15  %-1
     1594   01 01260    328013AA              LW,R8    EM
     1595   01 01261    218FFFFD A            CI,R8    -3
     1596   01 01262    69301277              BCS,3    NOT:EM2           THE RESULTS OF NON-TRAPPING 'EXU'
     1597   01 01263    3280113F              LW,R8    TRAP:FLG          AND 'BAL'S IN EXECUTION MODE 2
     1598   01 01264    69301277              BCS,3    NOT:EM2           NEED TO BE MODIFIED BECAUSE IF THE
     1599   01 01265    7280118D              LB,R8    LOC               ACTION OF THE 'EXECUTE' INSTRUCTION.
     1600   01 01266    4B801B3B              AND,R8   CON7F             *
     1601   01 01267    21800067 A            CI,R8    X'67'             FOR EXECUTES THE RETURN ADDRESS
     1602   01 01268    68301270              BE       %+8               IN 'RETURN' MUST BE INCREMENTED
     1603   01 01269    2180006A A            CI,R8    X'6A'             BY 3.  FOR 'BAL'S THE SPECIFIED
     1604   01 0126A    69301277              BCS,3    NOT:EM2           REGISTER CONTENT MUST BE INCREMENTED
     1605   01 0126B    22300001 A            LI,X3    1                 BY 3.
     1606   01 0126C    7296118D              LB,R9    LOC,X3            *
     1607   01 0126D    2590007C A            SLS,R9   -4
     1608   01 0126E    209030E0              AI,R9    RES:SAV
     1609   01 0126F    68001271              B        %+2
     1610   01 01270    2290102C              LI,R9    RETURN
     1611   01 01271    321030E1              LW,X1    RES:SAV+1
     1612   01 01272    4480118D              ANLZ,R8  LOC
     1613   01 01273    C4800008 A            ANLZ,R8  *R8
     1614   01 01274    21800816              CI,R8    DA(RETURN)
     1615   01 01275    69301277              BCS,3    NOT:EM2
     1616   01 01276    B3300009 A            MTW,3    *R9
     1617                            *
     1618   01 01277    F23003F3     NOT:EM2  LB,X3    *LISTPTR          USE REG 2 AS INDEX BY SETTING IT
     1619   01 01278    4B3014A7              AND,X3   MINUS2
     1620   01 01279    203FFFFF A            AI,X3    -1                EQUAL TO MOD COUNT-1.  THEN INDEX
     1621   01 0127A    328612A0              LW,R8    OBS:IDLA,X3       THRU A COMPARISON BETWEEN THE
     1622   01 0127B    B2A00008 A            LW,R10   *R8
     1623   01 0127C    B29603F3              LW,R9    *LISTPTR,X3       THE OBSERVED DATA IN VARIOUS
     1624   01 0127D    32B00009 A            LW,R11   R9                PLACES.  THAT'S WHY OBSERV IS
     1625   01 0127E    48B0000A A            EOR,R11  R10               INDIRECT.
     1626   01 0127F    68301281              BCR,3    %+2
     1627   01 01280    6AF012CC              BAL,R15  FT:ERR
     1628   01 01281    203FFFFE A            AI,X3    -2                NOT:EM2 COMPARES THE TEST RESULTS
     1629   01 01282    69101284              BCS,1    %+2               AND FT:ERR DOES THE REPORTING.
     1630   01 01283    6800127A              B        NOT:EM2+3
     1631   01 01284    223FFFFC A            LI,X3    -4                ONLY ITEMS SPECIFIED IN MODULE
     1632                            *                                   ARE CHECKED.  (REG & MEM)
     1633   01 01285    328612BB     FT:CMP1  LW,R8    ID:EXT+4,X3       EXTENSION ITEMS THAT ARE ALWAYS
     1634   01 01286    32A612B7              LW,R10   OBSEXT+4,X3       CHECKED ARE, LOC+1,INDX 1,
     1635   01 01287    B2A0000A A            LW,R10   *R10              INDX 7, AND INDIRECT ADDR.(IA).
     1636   01 01288    329612B3              LW,R9    LISTEXT+4,X3
     1637   01 01289    32B00009 A            LW,R11   R9
     1638   01 0128A    48B0000A A            EOR,R11  R10
     1639   01 0128B    6830129B              BCR,3    EXT:ERR+1
     1640                            *
     1641   01 0128C    213FFFFC A            CI,X3    -4                SPECIAL TEST FOR R1.  USED
     1642   01 0128D    6930129A              BCS,3    EXT:ERR            ONLY FOR SEARCHING SHIFT MODULES.
     1643   01 0128E    7220118D              LB,X2    LOC               R1 IS DEDICATED FOR SEARCHING
     1644   01 0128F    21200025 A            CI,X2    X'25'             SHIFT.  THE EXP. DATA IS STORED
     1645   01 01290    6930129A              BCS,3    EXT:ERR           IN 'MEMORY' POSITIONS IN THE
     1646   01 01291    322030F0              LW,X2    MEMORY            MODULES.
     1647   01 01292    312030E1              CW,X2    RES:SAV+1
     1648   01 01293    6830129B              BCR,3    EXT:ERR+1
     1649   01 01294    328012AE              LW,R8    SPEC:R1
     1650   01 01295    329030F0              LW,R9    MEMORY
     1651   01 01296    32A030E1              LW,R10   RES:SAV+1
     1652   01 01297    32B00009 A            LW,R11   R9
     1653   01 01298    48B0000A A            EOR,R11  R10
     1654   01 01299    6830129B              BCR,3    %+2
     1655                            *
     1656   01 0129A    6AF012CC     EXT:ERR  BAL,R15  FT:ERR
     1657   01 0129B    65301285              BIR,X3   FT:CMP1
     1658   01 0129C    70200392              LC       #SENSE            LONG LOOP.   SENSE SW2.
     1659   01 0129D    E9C014B5              BCS,12   *LONGPTR
     1660   01 0129E    322014BA              LW,X2    GEN:FLG
     1661   01 0129F    6930175E              BCS,3    CARD:CON
     1662   01 012A0    E800125E              B        *CMP:AUTO-1
     1663                            *
     1664         01 012A0           OBS:IDLA EQU      %-1
     1665         01 012A1           OBS:IDLS EQU      %
     1666   01 012A1    0100118D              D        1,LOC
     1667   01 012A2    0100118D              D        1,LOC
     1668   01 012A3    0500102C              D        5,RETURN
     1669   01 012A4    0500102C              D        5,RETURN
     1670   01 012A5    060030EC              D        6,RES:SAV+12
     1671   01 012A6    060030E0              D        6,RES:SAV
     1672   01 012A7    070030F0              D        7,MEMORY
     1673   01 012A8    070030F0              D        7,MEMORY
     1674   01 012A9    060030ED              D        6,RES:SAV+13
     1675   01 012AA    FF000000 A            D        -1,0
     1676   01 012AB    070030F1              D        7,MEMORY+1
     1677   01 012AC    08000000 A            D        8,0
     1678   01 012AD    0500102D              D        5,RETURN+1
     1679                            *
     1680   01 012AE    060030E1     SPEC:R1  D        6,RES:SAV+1
     1681                            *
     1682         01 012AF           LISTEXT  EQU      %
     1683   01 012AF    00000000 A            DATA     0
     1684   01 012B0    00000001 A            DATA     1
     1685   01 012B1    000030F0              DATA     MEMORY
     1686   01 012B2    00000000 A            DATA     0
     1687                            *
     1688         01 012B3           OBSEXT   EQU      %
     1689   01 012B3    000030E1              DATA     RES:SAV+1
     1690   01 012B4    000030E7              DATA     RES:SAV+7
     1691   01 012B5    00001B7A              DATA     IA
     1692   01 012B6    0000118E              DATA     LOC+1
     1693                            *
     1694         01 012B7           ID:EXT   EQU      %
     1695   01 012B7    04000001 A            D        4,1
     1696   01 012B8    04000007 A            D        4,7
     1697   01 012B9    03000000 A            D        3,0               IAID
     1698   01 012BA    02000001 A            D        2,1
     1699                            *
     1700   01 012BB    000012CA     AUTO:DL  DATA     DEAD              MODULE DISPERSION LIST.
     1701   01 012BC    0000118D              DATA     LOC               DEAD RECEIVES ALL'EXPECTED'WORDS
     1702   01 012BD    00001B74              DATA     PSW1              TO SIMPLIFY MOVING FROM MODULE.
     1703   01 012BE    00001B76              DATA     PSW1SAV
     1704   01 012BF    0000000C A            DATA     R12
     1705   01 012C0    000014CB              DATA     RSAV
     1706   01 012C1    000030F0              DATA     MEMORY
     1707   01 012C2    000014CD              DATA     MSAV
     1708   01 012C3    0000000D A            DATA     R13
     1709   01 012C4    000014CC              DATA     RSAV1
     1710   01 012C5    000030F1              DATA     MEMORY+1
     1711   01 012C6    000014CE              DATA     MSAV1
     1712   01 012C7    00001B75              DATA     PSW2
     1713   01 012C8    00001B77              DATA     PSW2SAV
     1714   01 012C9    000012CA     AUTO:DLE DATA     DEAD
     1715                            *
     1716   01 012CA    00000000 A   DEAD     DATA     0
     1717                            *
     1718   01 012CB    00000000 A            DATA     0
     1719         01 012CC           FT:ERR   EQU      %
     1720   01 012CC    35F012CB              STW,R15  %-1               THIS CODE IS ENTERED IN THE
     1721   01 012CD    222FFFFF A            LI,X2    -1                EVENT OF A FUNCTIONAL TEST
     1722   01 012CE    35201B3F              STW,X2   ERR:FLG           ERROR.
     1723   01 012CF    352014B8              STW,X2   PASS:ERR
     1724                            *
     1725   01 012D0    322010B5              LW,X2    TOT:ERRS
     1726   01 012D1    20200001 A            AI,X2    1
     1727   01 012D2    352010B5              STW,X2   TOT:ERRS
     1728                            *
     1729   01 012D3    32201B3E              LW,X2    ERR:CNT
     1730   01 012D4    20200001 A            AI,X2    1
     1731   01 012D5    35201B3E              STW,X2   ERR:CNT
     1732   01 012D6    322014BA              LW,X2    GEN:FLG
     1733   01 012D7    E930000F A            BCS,3    *R15
     1734   01 012D8    222F0FFF A            LI,X2    X'F0FFF'
     1735   01 012D9    6D000041 A            WD,0     X'41'
     1736   01 012DA    652012DA              BIR,X2   %
     1737   01 012DB    6D000040 A            WD,0     X'40'
     1738   01 012DC    32201A9C              LW,X2    SO
     1739   01 012DD    683012E7              BCR,3    CONT:FTE
     1740   01 012DE    222FFFFF A            LI,X2    -1                SET SNAP FLAG IF SO IS NOT 0.
     1741   01 012DF    352014B6              STW,X2   SNAP:FLG
     1742   01 012E0    02000000 A            NOP
     1743   01 012E1    02000000 A            NOP
     1744   01 012E2    02000000 A            NOP
     1745   01 012E3    02000000 A            NOP
     1746   01 012E4    02000000 A            NOP
     1747   01 012E5    02000000 A            NOP
     1748   01 012E6    E80014B5              B        *LONGPTR
     1749                            *
     1750   01 012E7    70200392     CONT:FTE LC       #SENSE            BYPASS FT ERROR PRINTOUT IF
     1751   01 012E8    691012FE              BCS,1    FTE:SS3           SENSE SW4 IS SET.
     1752   01 012E9    2220140E              LI,X2    ESM:HEDR
     1753   01 012EA    31200393              CW,X2    #HDRFLG
     1754   01 012EB    683012F0              BCR,3    %+5                                               *A04
     1755   01 012EC    EA6003CD              #PRINT   ESM:HEDR
            01 012ED    C0005038 A
     1756   01 012EE    693012F0              BCS,3    %+2
     1757   01 012EF    8F9003CA              XPSD,9   *#RUNADDR%
     1758   01 012F0    22E0146A              LI,R14   MSG:LST
     1759   01 012F1    22C00047 A            LI,R12   71                LINKING DATA TO FORM ERROR
     1760   01 012F2    75C01469              STB,R12  MSG:CNT           STATUS MESSAGE.
     1761   01 012F3    22C00012 A            LI,R12   18
     1762   01 012F4    35C01468              STW,R12  WRD:CNT
     1763   01 012F5    6AF013FC              BAL,R15  FORM:ESM
     1764   01 012F6    EA6003CD              #PRINT   OUTBUF
            01 012F7    C0006C98 A
     1765   01 012F8    693012FA              BCS,3    %+2
     1766   01 012F9    8F9003CA              XPSD,9   *#RUNADDR%
     1767   01 012FA    2220140E              LI,X2    ESM:HEDR
     1768   01 012FB    35200393              STW,X2   #HDRFLG
     1769   01 012FC    3220130A              LW,X2    FTERSTAT
     1770   01 012FD    B52003CE              STW,X2   *#ERRTEXT%
     1771                            *
     1772   01 012FE    70200392     FTE:SS3  LC       #SENSE            DONT HALT ON ERROR IF SENSE
     1773   01 012FF    E92012CB              BCS,2    *FT:ERR-1         SW3 IS SET.
     1774   01 01300    EA6003CC              #TYPE    HALT
            01 01301    00004C2C A
     1775   01 01302    322014BC              LW,X2    VER:END
     1776   01 01303    69301306              BCS,3    %+3
     1777   01 01304    322014BA              LW,X2    GEN:FLG
     1778   01 01305    68301308              BCR,3    %+3
     1779   01 01306    32200395              LW,X2    #MTLFLAG
     1780   01 01307    68040003 A            B        3,X2
     1781   01 01308    8F9003CA              XPSD,9   *#RUNADDR%
     1782   01 01309    E80012CB              B        *FT:ERR-1
     1783                            *
     1784   01 0130A    110283D0 N   FTERSTAT Z        17,,2,BA(FTERRMSG)
     1785         01 0130B           HALT     TEXTCS   '***ERROR HALT***'
     1786                            *
     1787         01 01310           ADV:PTR  EQU      %
     1788   01 01310    02000000 A            NOP
     1789   01 01311    02000000 A            NOP
     1790   01 01312    22300000 A            LI,X3    0                 ADV:PTR ADVANCES THE LIST
     1791   01 01313    35301B3F              STW,X3   ERR:FLG           POINTER TO THE NEXT MODULE
     1792   01 01314    323003F0              LW,X3    MST:NUM                                           *A02
     1793   01 01315    313003F1              CW,X3    MSP:NUM                                           *A02
     1794   01 01316    6830131B              BCR,3    %+5                                               *A02
     1795   01 01317    32E014B6              LW,R14   SNAP:FLG                                          *A02
     1796   01 01318    30E014BA              AW,R14   GEN:FLG                                           *A02
     1797   01 01319    6830131B              BCR,3    %+2                                               *A02
     1798   01 0131A    6AE01680              BAL,R14  CLR:SNP                                           *A02
     1799   01 0131B    323003F2              LW,X3    MCR:NUM           IN THE LIST.  IF THE
     1800   01 0131C    20300001 A            AI,X3    1                 CURRENT MODULE IS ADVANCED
     1801   01 0131D    313003F1              CW,X3    MSP:NUM           OUT OF SPECIFIED RANGE,
     1802   01 0131E    6920132F              BCS,2    MST:INIT          CONTROL IS PASSED TO
     1803   01 0131F    353003F2              STW,X3   MCR:NUM
     1804   01 01320    02000000 A            NOP
     1805   01 01321    02000000 A            NOP
     1806   01 01322    02000000 A            NOP
     1807   01 01323    02000000 A            NOP
     1808   01 01324    02000000 A            NOP
     1809   01 01325    02000000 A            NOP
     1810   01 01326    EA6003C3              #HTECON  X3
            01 01327    00000003 A
     1811   01 01328    323C0001 A            LW,X3    1,X6
     1812   01 01329    4B301B3C              AND,X3   LS:MSK            UPDATE K-LINE, MCR.
     1813   01 0132A    353018A0              STW,X3   KOUT+2
     1814   01 0132B    F23003F3              LB,X3    *LISTPTR
     1815   01 0132C    303003F3              AW,X3    LISTPTR
     1816   01 0132D    353003F3              STW,X3   LISTPTR
     1817   01 0132E    E800000F A            B        *R15
     1818                            *
     1819         01 0132F           MST:INIT EQU      %
     1820   01 0132F    323014BA              LW,X3    GEN:FLG           THIS ROUTINE SETS THE MODULE
     1821   01 01330    6930222A              BCS,3    VG:END            POINTERS BACK TO FIRST
     1822   01 01331    323014BC              LW,X3    VER:END           SELECTED MODULE (MST).
     1823   01 01332    6930222A              BCS,3    VG:END
     1824   01 01333    32301821              LW,X3    SI                IF SI, STATUS INTERVAL, IS
     1825   01 01334    6830133B              BCR,3    %+7                                               *A04
     1826   01 01335    323013CB              LW,X3    PASS:CNT          PASS:CNT GO TO PRINT A
     1827   01 01336    30301821              AW,X3    SI                STATUS MESSAGE.
     1828   01 01337    6830133A              BCR,3    %+3
     1829   01 01338    69201336              BCS,2    %-2
     1830   01 01339    6800133B              B        %+2                                               *A04
     1831   01 0133A    6A6019C5              BAL,X6    STATMSGS
     1832                            *
     1833   01 0133B    323003F0              LW,X3    MST:NUM           SET MCR BACK TO MST.
     1834   01 0133C    353003F2              STW,X3   MCR:NUM
     1835   01 0133D    3230189E              LW,X3    KOUT
     1836   01 0133E    32401A9D              LW,X4    SPACES
     1837   01 0133F    75400003 A            STB,X4   X3
     1838   01 01340    353018A0              STW,X3   KOUT+2
     1839   01 01341    6A6013AE              BAL,X6    LSTSERVO         SERVO THE LISTPTR BACK TO
     1840   01 01342    02000000 A            NOP
     1841   01 01343    02000000 A            NOP
     1842   01 01344    323014B8              LW,X3    PASS:ERR
     1843   01 01345    69301365              BCS,3    ERR:PASS
     1844                            *
     1845   01 01346    323013CB              LW,X3    PASS:CNT          ENABLE COUNT PULSE 4 INTERUPT
     1846   01 01347    32C01A9C              LW,R12   SO                ON THE 11TH ERROR FREE PASS.
     1847   01 01348    6830134C              BCR,3    %+4               IF SNAP OPTION IS NOT ZERO,
     1848   01 01349    22C00000 A            LI,R12   0                 THEN DISABLE INTERUPT BY
     1849   01 0134A    35C0114A              STW,R12  SNAPINT
     1850   01 0134B    6800135C              B        NOCI-1
     1851   01 0134C    32C01861              LW,R12   CI:SAV
     1852   01 0134D    6830135D              BCR,3    NOCI
     1853   01 0134E    21300038 A            CI,X3    56
     1854   01 0134F    6910135D              BCS,1    NOCI
     1855   01 01350    32C013AB              LW,R12   CIXPSD            SET UP COUNT PULSE AND
     1856   01 01351    35C00058 A            STW,R12  X'58'             COUNTER ZERO LOCATIONS.
     1857   01 01352    35C00059 A            STW,R12  X'59'
     1858   01 01353    35C0005A A            STW,R12  X'5A'
     1859   01 01354    35C0005D A            STW,R12  X'5D'
     1860   01 01355    32C0114B              LW,R12   SNAPINI
     1861   01 01356    35C0114A              STW,R12  SNAPINT
     1862   01 01357    32C013AC              LW,R12   CIMTW
     1863   01 01358    35C00052 A            STW,R12  X'52'
     1864   01 01359    35C00053 A            STW,R12  X'53'
     1865   01 0135A    35C00054 A            STW,R12  X'54'
     1866   01 0135B    32C01861              LW,R12   CI:SAV
     1867   01 0135C    35C011AC              STW,R12  CI:CNT
     1868                            *
     1869   01 0135D    323013CA     NOCI     LW,X3    PASS:OK
     1870   01 0135E    20300001 A            AI,X3    1
     1871   01 0135F    353013CA              STW,X3   PASS:OK
     1872   01 01360    313013CC              CW,X3    PASS:LIM
     1873   01 01361    68201365              BCR,2    ERR:PASS                                          *A01
     1874   01 01362    6A6013CE              BAL,X6    VM:CM            SEQUENCE CLOCK MARGINS TO
     1875   01 01363    326013F9              LW,X6    CM:SAV                                             *A01
     1876   01 01364    356013F6              STW,X6   CM:ON                                             *A01
     1877   01 01365    22300000 A   ERR:PASS LI,X3    0                 NEXT SETTING EVERY 10TH
     1878   01 01366    353014B8              STW,X3   PASS:ERR          ERROR FREE PASS.
     1879                            *
     1880   01 01367    3230192E              LW,X3    LCNT
     1881   01 01368    68301371              BCR,3    %+9
     1882   01 01369    323013CB              LW,X3    PASS:CNT
     1883                            *
     1884   01 0136A    3030192E              AW,X3    LCNT
     1885   01 0136B    6830136E              BCR,3    %+3               GO TO GUIDE IDLE WHEN LCNT
     1886   01 0136C    6920136A              BCS,2    %-2               IS AN EVEN MULTIPLE OF PASS:CNT.
     1887   01 0136D    68001371              B        %+4
     1888   01 0136E    8F9003CA              XPSD,9   *#RUNADDR%
     1889   01 0136F    22300000 A            LI,X3    0
     1890   01 01370    68001372              B        %+2
     1891   01 01371    323013CB              LW,X3    PASS:CNT
     1892   01 01372    20300001 A            AI,X3    1
     1893   01 01373    353013CB              STW,X3   PASS:CNT
     1894   01 01374    22300000 A            LI,X3    0
     1895   01 01375    35301B3E              STW,X3   ERR:CNT
     1896   01 01376    32301A9C              LW,X3    SO
     1897   01 01377    6830137F              BCR,3    EM:ADV
     1898   01 01378    21300007 A            CI,X3    7
     1899   01 01379    6830137F              BCR,3    EM:ADV
     1900   01 0137A    6AF016B3              BAL,R15  MAR:TAPE
     1901   01 0137B    22300000 A            LI,X3    0
     1902   01 0137C    353013AA              STW,X3   EM
     1903   01 0137D    3530114A              STW,X3   SNAPINT
     1904   01 0137E    680010BE              B        AUTOTEST
     1905                            *
     1906   01 0137F    323013A9     EM:ADV   LW,X3    EM:FLG            EM:FLG IS SET IN EM:C,
     1907   01 01380    69301399              BCS,3    EXIT:EM           K-LINE INDICATING USER
     1908   01 01381    323013A8              LW,X3    EM:CNT            HAS FIXED EM VALUE.
     1909   01 01382    2130000D A            CI,X3    13
     1910   01 01383    6930139B              BCS,3    EXIT:EM+2         SEQUENCE EXECUTION MODE
     1911   01 01384    323013AA              LW,X3    EM                TO NEXT SETTING AFTER
     1912   01 01385    213FFFFF A            CI,X3    -1                13 PASSES.
     1913   01 01386    6930138A              BCS,3    %+4
     1914   01 01387    32C01A9C              LW,R12   SO
     1915   01 01388    6830138A              BCR,3    %+2
     1916   01 01389    203FFFFF A            AI,X3    -1                INHIBIT SNAPPING IF EM=2
     1917   01 0138A    323613A7              LW,X3    EM:LIST,X3        BY FORCING EM TO NEXT STATE.
     1918   01 0138B    353013AA              STW,X3   EM
     1919   01 0138C    68301392              BCR,3    %+6
     1920   01 0138D    213FFFFF A            CI,X3    -1
     1921   01 0138E    68301390              BE       %+2
     1922   01 0138F    20300001 A            AI,X3    1
     1923   01 01390    48301B4F              EOR,X3   ONES
     1924   01 01391    20300001 A            AI,X3    1
     1925   01 01392    EA6003C3              #HTECON  X3
            01 01393    00000003 A
     1926   01 01394    32C01A9D              LW,R12   SPACES            UPDATE EM PARAMETER IN J-LINE.
     1927   01 01395    326C0001 A            LW,X6    1,X6
     1928   01 01396    22300002 A            LI,X3    2
     1929   01 01397    7566000C A            STB,X6    R12,X3
     1930   01 01398    35C017D0              STW,R12  JOUT+6
     1931   01 01399    22300000 A   EXIT:EM  LI,X3    0
     1932   01 0139A    6800139C              B        %+2
     1933   01 0139B    20300001 A            AI,X3    1
     1934   01 0139C    353013A8              STW,X3   EM:CNT
     1935                            *
     1936   01 0139D    680010BE              B        AUTOTEST
     1937   01 0139E    02000000 A            NOP
     1938   01 0139F    02000000 A            NOP
     1939   01 013A0    02000000 A            NOP
     1940   01 013A1    02000000 A            NOP
     1941   01 013A2    02000000 A            NOP
     1942                            *
     1943   01 013A3    00000000 A            DATA     0
     1944   01 013A4    FFFFFFFC A            DATA     -4
     1945   01 013A5    00000000 A            DATA     0
     1946   01 013A6    FFFFFFFD A            DATA     -3
     1947   01 013A7    FFFFFFFF A   EM:LIST  DATA     -1
     1948                            *
     1949   01 013A8    00000000 A   EM:CNT   DATA     0
     1950   01 013A9    00000000 A   EM:FLG   DATA     0
     1951   01 013AA    00000000 A   EM       DATA     0
     1952   01 013AB    0F0013C4     CIXPSD   XPSD,0   CI:PROC
     1953   01 013AC    331013AD     CIMTW    MTW,1    CICOUNT
     1954   01 013AD    00000000 A   CICOUNT  DATA     0
     1955                            *
     1956         01 013AE           LSTSERVO EQU      %
     1957   01 013AE    22700001 A            LI,X7    1                 LIST SERVO, SERVOS THE LIST
     1958   01 013AF    22A02246              LI,R10   LIST              POINTER TO THE MODULE
     1959   01 013B0    35A003F3              STW,R10  LISTPTR           SPECIFIED BY MCR:NUM.  IT
     1960   01 013B1    317003F2              CW,X7    MCR:NUM           IS USED BY THE ADV:PTR
     1961   01 013B2    683013B7              BCR,3    %+5               ROUTINE AND THE DISPLAY
     1962   01 013B3    F290000A A            LB,R9    *R10              LIST ROUTINE(DL).
     1963   01 013B4    30A00009 A            AW,R10   R9
     1964   01 013B5    20700001 A            AI,X7    1
     1965   01 013B6    680013B0              B        LSTSERVO+2        IT IS ALSO USED BY THE
     1966   01 013B7    328013CD              LW,R8    KL:FLG            K-LINE WHEN A DIFFERENT
     1967   01 013B8    683013BA              BCR,3    %+2               MCR IS SPECIFIED.
     1968   01 013B9    E800000F A            B        *R15
     1969   01 013BA    02000000 A            NOP
     1970   01 013BB    02000000 A            NOP
     1971   01 013BC    02000000 A            NOP
     1972   01 013BD    02000000 A            NOP
     1973   01 013BE    02000000 A            NOP
     1974   01 013BF    02000000 A            NOP
     1975   01 013C0    22800000 A            LI,R8    0
     1976   01 013C1    02000000 A            NOP
     1977   01 013C2    E8000006 A            B        *X6
     1978                            *
     1979                                     BOUND    8                 THIS IS THE COUNTER ZERO
     1980   01 013C4    00000000 A   CI:PROC  DATA     0                 INTERRUPT PROCESSOR.  THE
     1981   01 013C5    00000000 A            DATA     0                 RIGHT HEX DIGTI OF CI:PROC
     1982   01 013C6    000013C8              DATA     %+2               IS OUTPUT ON ERROR AND
     1983   01 013C7    04000000 A            DATA     X'04000000'       STATUS MESSAGES UNDER THE
     1984   01 013C8    0E3013C4              LPSD,3   CI:PROC           CI HEADER.
     1985                            *
     1986   01 013C9    00000000 A   ZERO     DATA     0
     1987   01 013CA    00000000 A   PASS:OK  DATA     0
     1988   01 013CB    00000001 A   PASS:CNT DATA     1
     1989   01 013CC    0000000A A   PASS:LIM DATA     10
     1990   01 013CD    00000000 A   KL:FLG   DATA     0
     1991                            *
     1992         01 013CE           VM:CM    EQU      %
     1993   01 013CE    328017CF              LW,R8    JOUT+5            EXIT CLOCK MARGIN IF JOUT
     1994   01 013CF    318013F0              CW,R8    X40C3             INDICATES CM IS FIXED.
     1995   01 013D0    692013D2              BG       SET:MAR           CM IS NOT FIXED - GO SET MARGINS
     1996   01 013D1    E8000006 A            B        *X6
     1997         01 013D2           SET:MAR  EQU      %
     1998   01 013D2    6C400045 A            RD,X4    X'45'             TEST THE VOLTAGE NOT NORMAL
     1999   01 013D3    4B4013F4              AND,X4   VM:MSK            BIT IN THE MARGIN CONTROL
     2000   01 013D4    E8200006 A            BCR,2    *X6               WORD. IF ANY SUPPLY IS NOT
     2001   01 013D5    22400002 A            LI,X4    2                 IN THE NORMAL POSITION BIT 11
     2002   01 013D6    722013EB              LB,X2    MAR:SET-1         WILL BE LOW.  THIS INHIBITS
     2003   01 013D7    32A413EC              LW,R10   MAR:SET,X2        THE PROGRAM FROM SETTING
     2004   01 013D8    6C800045 A            RD,R8    X'45'             CLOCK MARGINS.
     2005   01 013D9    4B8013F1     VMF      AND,R8   NEW:CM
     2006   01 013DA    358013F7              STW,R8   CM:OFF
     2007   01 013DB    75A817CF              STB,R10  JOUT+5,X4         STORE NEW CM IN JOUT
     2008   01 013DC    4BA013F3              AND,R10  MSK:CM            REMOVE EBCDIC FROM MAR:SET IN R10
     2009   01 013DD    308013F5              AW,R8    LO:MSK
     2010   01 013DE    358013F8              STW,R8   CM:LO             SET UP CM:LO FOR USE IN
     2011   01 013DF    4B8013F1              AND,R8   NEW:CM
     2012   01 013E0    4880000A A   EXIT:MAR EOR,R8   R10               SNAPPING ANY MULTIPLY
     2013   01 013E1    358013F9              STW,R8   CM:SAV            INSTRUCTION.
     2014   01 013E2    22400000 A            LI,X4    0                 SET UP CM:ON WITH LATEST
     2015   01 013E3    354013CA              STW,X4   PASS:OK           MARGIN SETTING.  CM:ON IS
     2016   01 013E4    354013EF              STW,X4   MAR:FLG           USED JUST PRIOR TO LOC.
     2017   01 013E5    20200001 A            AI,X2    1                 CM:OFF IS USED JUST AFTER
     2018   01 013E6    21200003 A            CI,X2    3                 LOC.
     2019   01 013E7    691013E9              BL       %+2
     2020   01 013E8    22200000 A            LI,X2    0
     2021   01 013E9    752013EB              STB,X2   MAR:SET-1
     2022   01 013EA    E8000006 A            B        *X6
     2023                            *
     2024   01 013EB    00000000 A            DATA     0                 CM
     2025   01 013EC    0000F0F0 A   MAR:SET  M        0,0,0,0,0,X'F0',X'F0'
     2026   01 013ED    0040F0F1 A            M        0,0,0,1,0,X'F0',X'F1'
     2027   01 013EE    0480F1F2 A            M        0,1,0,2,0,X'F1',X'F2'
     2028                            *
     2029   01 013EF    00000000 A   MAR:FLG  DATA     0
     2030   01 013F0    4040C340 A   X40C3    DATA     X'4040C340'
     2031   01 013F1    FF3FFFFF A   NEW:CM   DATA     X'FF3FFFFF'
     2032   01 013F2    F33FFFFF A   NEW:MSK  DATA     X'F33FFFFF'
     2033   01 013F3    00C00000 A   MSK:CM   DATA     X'0C00000'
     2034   01 013F4    00100000 A   VM:MSK   DATA     X'100000'
     2035   01 013F5    00800000 A   LO:MSK   DATA     X'00800000'
     2036   01 013F6    00000000 A   CM:ON    DATA     0
     2037   01 013F7    00000000 A   CM:OFF   DATA     0
     2038   01 013F8    00800000 A   CM:LO    DATA     X'00800000'
     2039   01 013F9    00000000 A   CM:SAV   DATA     0
     2040   01 013FA    00000017 A   H17      DATA     X'17'
     2041                            *
     2042                            *    THE CALLING SEQUENCE TO USE FORM:ESM IS AS FOLLOWS:
     2043                            *
     2044                            *        LI,R14   MSG:LST
     2045                            *        LI,R12   71
     2046                            *        STB,R12  MSG:CNT
     2047                            *        LI,R12   18
     2048                            *        STW,R12  WRD:CNT
     2049                            *        BAL,R15  FORM:ESM
     2050                            *
     2051   01 013FB    00000000 A            DATA     0
     2052         01 013FC           FORM:ESM EQU      %                 THIS CODE IS ENTERED FROM
     2053   01 013FC    35F013FB              STW,R15  %-1               CONT:FTE, FUNCT. TEST ERR
     2054   01 013FD    22700000 A            LI,X7    0                 EXIT.  A LIST OF CONTROL
     2055   01 013FE    B2CE000E A            LW,R12   *R14,X7           WORDS, MSG:LST, CAUSE
     2056   01 013FF    68101405              BCR,1    BALNORM           BALNORM TO BAL OUT TO THE
     2057   01 01400    B2C0000C A            LW,R12   *R12              FETCHING SUBROUTINES TO
     2058   01 01401    6AF01658              BAL,R15  DHEX:CON          SET UP THE ERROR STATUS
     2059   01 01402    35DE1B26              STW,R13  OUTBUF,X7         MESSAGE.  IF THE MSG:LST
     2060   01 01403    20700001 A            AI,X7    1                 WORD IS NEG. IT CONTAINS
     2061   01 01404    68001406              B        %+2               THE WORD TO BE CONVERTED.
     2062   01 01405    EAF0000C A   BALNORM  BAL,R15  *R12
     2063   01 01406    35CE1B26              STW,R12  OUTBUF,X7
     2064   01 01407    20700001 A            AI,X7    1
     2065   01 01408    31701468              CW,X7    WRD:CNT
     2066   01 01409    6830140B              BCR,3    %+2
     2067   01 0140A    680013FE              B        FORM:ESM+2                                        *A04
     2068   01 0140B    72C01469              LB,R12   MSG:CNT
     2069   01 0140C    75C01B26              STB,R12  OUTBUF
     2070   01 0140D    E80013FB              B        *FORM:ESM-1
     2071                            *
     2072                            ESM:HEDR TEXTCS   'MOD EL TESTINST E/P PAS EM MNEM FAILED ',;
     2073         01 0140E             'EXPECTED CM OBSERVED CI DIFF=EOR'
     2074                            *
     2075   01 01420    B2C003F3     ESM:MOD  LW,R12   *LISTPTR          FETCH MODULE NO. FROM MODULE
     2076   01 01421    EA6003C3              #HTECON  R12
            01 01422    0000000C A
     2077   01 01423    32CC0001 A            LW,R12   1,X6
     2078   01 01424    4BC01B3C              AND,R12  LS:MSK
     2079   01 01425    E800000F A            B        *R15
     2080                            *
     2081         01 01426           ESM:EL   EQU      %                 FETCH ELEMENT # FROM MODULE
     2082   01 01426    22200001 A            LI,X2    1
     2083   01 01427    F2C403F3              LB,R12   *LISTPTR,X2
     2084   01 01428    222FFFFC A            LI,X2    -4
     2085   01 01429    30C0000C A            AW,R12   R12
     2086   01 0142A    65201429              BIR,X2   %-1
     2087   01 0142B    EA6003C3              #HTECON  R12               EBCDIC AND HOLD IN R12.
            01 0142C    0000000C A
     2088   01 0142D    32CC0001 A            LW,R12   1,X6
     2089   01 0142E    4BC014BD              AND,R12  EL:MSK1
     2090   01 0142F    E800000F A            B        *R15
     2091                            *
     2092   01 01430    22200001 A   ESM:MNEM LI,X2    1                 FETCH MNEMONIC FROM LIST.
     2093   01 01431    B25403F3              LW,X5    *LISTPTR,X2
     2094   01 01432    72500005 A            LB,X5    X5
     2095   01 01433    4B501B3B              AND,X5   CON7F
     2096   01 01434    32CA1B9E              LW,R12   MNEMLIST,X5       AND HOLD IN R12.
     2097   01 01435    E800000F A            B        *R15
     2098                            *
     2099   01 01436    32C01B3E     ESM:ERRS LW,R12   ERR:CNT           FETCH THE ERROR COUNTER, CONVERT
     2100   01 01437    EA6003C3              #HTECON  R12
            01 01438    0000000C A
     2101   01 01439    32CC0001 A            LW,R12   1,X6
     2102   01 0143A    4BC01B3C              AND,R12  LS:MSK
     2103   01 0143B    E800000F A            B        *R15
     2104                            *
     2105   01 0143C    32C013CB     ESM:PASS LW,R12   PASS:CNT          FETCH THE PASS COUNTER, CONVERT
     2106   01 0143D    EA6003C3              #HTECON  R12
            01 0143E    0000000C A
     2107   01 0143F    32CC0001 A            LW,R12   1,X6
     2108   01 01440    4BC01B3C              AND,R12  LS:MSK
     2109   01 01441    E800000F A            B        *R15
     2110                            *
     2111   01 01442    322013F6     ESM:CM   LW,X2    CM:ON             FETCH CLOCK MARGIN THAT
     2112   01 01443    30200002 A            AW,X2    X2                WAS SAVED AT LOC EXIT.
     2113   01 01444    30200002 A            AW,X2    X2
     2114   01 01445    72200002 A            LB,X2    X2
     2115   01 01446    4B201459              AND,X2   THREE             PUT * BEFORE SETTING IF
     2116   01 01447    32C017CF              LW,R12   JOUT+5            IT DISAGREES WITH EXP.
     2117   01 01448    31C41452              CW,R12   CM:TSTA,X2        SETTING.
     2118   01 01449    E830000F A            BCR,3    *R15
     2119   01 0144A    31C41456              CW,R12   CM:TSTB,X2
     2120   01 0144B    E830000F A            BCR,3    *R15
     2121   01 0144C    22600002 A            LI,X6    2
     2122   01 0144D    752C000C A            STB,X2   R12,X6
     2123   01 0144E    02000000 A            NOP
     2124   01 0144F    02000000 A            NOP
     2125   01 01450    30C01455              AW,R12   ASTR:MSK
     2126   01 01451    E800000F A            B        *R15
     2127                            *
     2128   01 01452    4040F040 A   CM:TSTA  DATA     X'4040F040'
     2129   01 01453    4040F140 A            DATA     X'4040F140'
     2130   01 01454    4040F240 A            DATA     X'4040F240'
     2131   01 01455    405CF040 A   ASTR:MSK DATA     X'405CF040'
     2132                            *
     2133   01 01456    4040C140 A   CM:TSTB  DATA     X'4040C140'
     2134   01 01457    4040C240 A            DATA     X'4040C240'
     2135   01 01458    4040C340 A            DATA     X'4040C340'
     2136   01 01459    00000003 A   THREE    DATA     3
     2137                            *
     2138   01 0145A    E800000F A            B        *R15
     2139                            *
     2140   01 0145B    32C017D0     ESM:EM   LW,R12   JOUT+6
     2141   01 0145C    E800000F A            B        *R15
     2142                            *
     2143   01 0145D    326013C4     ESM:CI   LW,X6    CI:PROC
     2144   01 0145E    69301461              BCS,3    %+3
     2145   01 0145F    22600040 A            LI,X6    X'40'
     2146   01 01460    68001464              B        %+4
     2147   01 01461    EA6003C3              #HTECON  CI:PROC           CONVERT RIGHT HEX DIGIT
            01 01462    000013C4
     2148   01 01463    326C0001 A            LW,X6    1,X6              OF CI:PROC AND PUT IT
     2149   01 01464    22200001 A            LI,X2    1                 IN FRONT OF CURRENT
     2150   01 01465    32C017D1              LW,R12   JOUT+7            SETTING IF CI IN ERROR
     2151   01 01466    7564000C A            STB,X6    R12,X2           AND STATUS MESSAGES.
     2152   01 01467    E800000F A            B        *R15
     2153                            *
     2154   01 01468    00000000 A   WRD:CNT  DATA     0
     2155   01 01469    00000000 A   MSG:CNT  DATA     0
     2156   01 0146A    00001420     MSG:LST  DATA     ESM:MOD           0 <<< WORD POSITION IN OUTBUF FOR
     2157   01 0146B    00001426              DATA     ESM:EL            1
     2158   01 0146C    FF00118D              GEN,8,24 -1,LOC            2,3
     2159   01 0146D    00000000 A            DATA     0
     2160   01 0146E    00001436              DATA     ESM:ERRS          4
     2161   01 0146F    0000143C              DATA     ESM:PASS          5     THESE ARE SUBROUTINE
     2162   01 01470    0000145B              DATA     ESM:EM            6     ADDRESSES THAT ARE USED BY
     2163   01 01471    00001430              DATA     ESM:MNEM          7
     2164   01 01472    0000147B              DATA     ESM:FAIL          8     FORM:MSG TO STUFF OUTBUF.
     2165   01 01473    0000147E              DATA     ESM:FAIL1         9
     2166   01 01474    FF000009 A            GEN,8,24 -1,R9             10,11
     2167   01 01475    00000000 A            DATA     0
     2168   01 01476    00001442              DATA     ESM:CM            12
     2169   01 01477    FF00000A A            GEN,8,24 -1,R10            13,14
     2170   01 01478    00000000 A            DATA     0
     2171   01 01479    0000145D              DATA     ESM:CI            15
     2172   01 0147A    FF00000B A            GEN,8,24 -1,R11            16,17
     2173                            *
     2174   01 0147B    72200008 A   ESM:FAIL LB,X2    R8                FETCH IDENTIFIER FLAG FROM 1ST
     2175   01 0147C    32C41499              LW,R12   FAIL:ID,X2        BYTE OF R8.  USE AS INDEX TO
     2176   01 0147D    E800000F A            B        *R15              FETCH EBCDIC RELATED
     2177                            *                                   TO FAILING ITEM.
     2178   01 0147E    72200008 A   ESM:FAIL1 LB,X2   R8
     2179   01 0147F    4B801B79              AND,R8   ADR:MSK
     2180   01 01480    21200005 A            CI,X2    5                                                 *A01
     2181   01 01481    68301492              BE       CHECK5                                            *A01
     2182   01 01482    21200007 A            CI,X2    7                                                 *A01
     2183   01 01483    68301492              BE       CHECK5                                            *A01
     2184   01 01484    21200006 A            CI,X2    6                                                 *A01
     2185   01 01485    69301487              BNE      %+2                                               *A01
     2186   01 01486    208FCF20 N            AI,R8    0-RES:SAV                                         *A01
     2187   01 01487    21200001 A            CI,X2    1                                                 *A01
     2188   01 01488    6930148A              BCS,3    %+2                                               *A01
     2189   01 01489    22800000 A            LI,R8    0                                                 *A01
     2190   01 0148A    02000000 A            NOP
     2191   01 0148B    EA6003C3              #HTECON  R8
            01 0148C    00000008 A
     2192   01 0148D    32C01A9D              LW,R12   SPACES
     2193   01 0148E    322C0001 A            LW,X2    1,X6
     2194   01 0148F    22500002 A            LI,X5    2
     2195   01 01490    752A000C A            STB,X2   R12,X5
     2196   01 01491    E800000F A            B        *R15
     2197                            *
     2198   01 01492    32500008 A   CHECK5   LW,X5    R8
     2199   01 01493    4B501B23              AND,X5   ONE
     2200   01 01494    21200005 A            CI,X2    5                                                 *A01
     2201   01 01495    69301497              BCS,3    %+2                                               *A01
     2202   01 01496    20500001 A            AI,X5    1
     2203   01 01497    32CA14A2              LW,R12   ID:EL,X5
     2204   01 01498    E800000F A            B        *R15
     2205                            *
     2206   01 01499    00000000 A   FAIL:ID  DATA     0
     2207   01 0149A    40D3D6C3 A            TEXT     ' LOC'
     2208   01 0149B    40D7E2C4 A            TEXT     ' PSD'
     2209   01 0149C    40C9C140 A            TEXT     ' IA '
     2210   01 0149D    40C9C4E7 A            TEXT     ' IDX'
     2211   01 0149E    40D7E2E6 A            TEXT     ' PSW'
     2212   01 0149F    40D9C5C7 A            TEXT     ' REG'
     2213   01 014A0    40D4C5D4 A            TEXT     ' MEM'
     2214   01 014A1    40E2D740 A   TXT:PTR  TEXT     ' SP '
     2215                            *
     2216   01 014A2    4040F040 A   ID:EL    TEXT     '  0 '
     2217   01 014A3    4040F140 A            TEXT     '  1 '
     2218   01 014A4    4040F240 A            TEXT     '  2 '
     2219                            *
     2220   01 014A5    32C01A9D     ESM:NULL LW,R12   SPACES
     2221   01 014A6    E800000F A            B        *R15
     2222                            *
     2223   01 014A7    FFFFFFFE A   MINUS2   DATA     -2
     2224   01 014A8    03000000 A   CNT:P3   DATA     X'03000000'
     2225   01 014A9    000000EF A   OUT:IDX  DATA     X'EF'
     2226   01 014AA    000E0000 A   IDX:MSK  DATA     X'E0000'
     2227   01 014AB    40F07E40 A   IDX:EQ   DATA     X'40F07E40'
     2228   01 014AC    00F00000 A   REG:MSK  DATA     X'F00000'
     2229   01 014AD    40400040 A   REG:SP   DATA     X'40400040'
     2230   01 014AE    4040FE40 A   NEG2MSK  DATA     X'4040FE40'
     2231   01 014AF    00000000 A            DATA     0
     2232   01 014B0    00000000 A            DATA     0
     2233         01 014B1           REGN     EQU      %
     2234                            *
     2235   01 014B1    00000000 A   SN:OEPTR DATA     0
     2236   01 014B2    00000000 A   IO34IDX  DATA     0
     2237   01 014B3    00000000 A   IO78IDX  DATA     0
     2238   01 014B4    00000000 A   SHORTPTR DATA     0
     2239   01 014B5    00001153     LONGPTR  DATA     SHORTA
     2240   01 014B6    00000000 A   SNAP:FLG DATA     0
     2241   01 014B7    00000000 A   SNAP:UNC DATA     0
     2242   01 014B8    00000000 A   PASS:ERR DATA     0
     2243   01 014B9    FFF80000 A   FLAG:MSK DATA     X'FFF80000'
     2244   01 014BA    00000000 A   GEN:FLG  DATA     0
     2245   01 014BB    00000000 A   VER:FLG  DATA     0
     2246   01 014BC    00000000 A   VER:END  DATA     0
     2247   01 014BD    40FFFF40 A   EL:MSK1  DATA     X'40FFFF40'
     2248                            *
     2249   01 014BE    40D4D6C4 A   MODT     TEXT     ' MOD'
     2250                            *
     2251   01 014BF    4040F140 A            TEXT     '  1 '
     2252   01 014C0    40F1F240 A            TEXT     ' 12 '
     2253   01 014C1    404EF040 A            TEXT     ' +0 '
     2254         01 014C2           LFT:PTR  EQU %
     2255                            *
     2256   01 014C2    4040F240 A            TEXT     '  2 '
     2257   01 014C3    40F1F340 A            TEXT     ' 13 '
     2258   01 014C4    404EF140 A            TEXT     ' +1 '
     2259         01 014C5           RHT:PTR  EQU      %
     2260                            *
     2261   01 014C5    00000002 A            DATA     2
     2262   01 014C6    00000004 A            DATA     4
     2263   01 014C7    00000006 A            DATA     6
     2264         01 014C8           IN:0X34  EQU      %
     2265                            *
     2266   01 014C8    0000000C A            DATA     12
     2267   01 014C9    00000008 A            DATA     8
     2268   01 014CA    0000000A A            DATA     10
     2269         01 014CB           IN:1X78  EQU      %
     2270                            *
     2271   01 014CB    00000000 A   RSAV     DATA     0
     2272   01 014CC    00000000 A   RSAV1    DATA     0
     2273   01 014CD    00000000 A   MSAV     DATA     0
     2274   01 014CE    00000000 A   MSAV1    DATA     0
     2275   01 014CF    00000003 A            DATA     3
     2276   01 014D0    00000005 A            DATA     5
     2277   01 014D1    00000007 A            DATA     7
     2278         01 014D2           OUT:0X34 EQU      %
     2279                            *
     2280   01 014D2    0000000D A            DATA     13
     2281   01 014D3    00000009 A            DATA     9
     2282   01 014D4    0000000B A            DATA     11
     2283         01 014D5           OUT:1X78 EQU      %
     2284                            *
     2285   01 014D5    C9D54040 A            TEXT     'IN'
     2286   01 014D6    D6E4E340 A            TEXT     'OUT'
     2287         01 014D7           IO:PTR   EQU      %
     2288                            *
1 C00   00:01 JUN 21,'83    SIGMA 8/9 CPU DIAG FLOAT 706135-11/51A05  6-20-73                     PAGE    8
A    2290                              TITLE 'MODULE FORMAT DATA STRUCTURE TABLE'
     2291                            *
     2292                            *  LABEL MAP FOR        -3        T    ' PSW'          T=TEXT
     2293                            *   MOD:DATA            -2        T    ' REG'          D=DATA
     2294                            *                       -1        T    ' MEM'
     2295                            *                         TXT:PTR EQU  %
     2296                            *
     2297                            * -3        T    '  1 '           D    2                D    3
     2298                            * -2        T    '  C '           D    4                D    5
     2299                            * -1        T    ' +0 '           D    6                D    7
     2300                            *   LFT:PTR EQU  %        IN:0X34 EQU  %        OUT:0X34 EQU %
     2301                            *
     2302                            * -3        T    '  2 '           D    12               D    13
     2303                            * -2        T    '  D '           D    8                D    9
     2304                            * -1        T    ' +1 '           D    10               D    11
     2305                            *   RHT:PTR EQU  %        IN:1X78 EQU  %        OUT:1I78 EQU %
     2306                            *
     2307                            *
     2308                            * 3,4&7,8 ARE WORD      -2        T    'IN  '          OB=OBSERVED
     2309                            * DISPLACEMENTS IN      -1        T    'OUT '          EX=EXPECTED
     2310                            * OUTBUF FOR 'MOD'        IO:PTR  EQU  %
     2311                            *
     2312                            *
     2313   01 014D7    00000000 A            DATA     0
     2314         01 014D8           MOD:HDR  EQU      %                 THE MOD:HDR AND MOD:DATA
     2315   01 014D8    35F014D7              STW,R15  %-1               ROUTINES ARE USED DURING
     2316   01 014D9    6AF015CD              BAL,R15  TYPE:CR                                           *A/O
     2317   01 014DA    22700001 A            LI,X7    1                 OUTPUT OF SNAP DATA AND
     2318   01 014DB    32C014BE              LW,R12   MODT              BY THE 'DL' ROUTINE TO
     2319   01 014DC    35C01B26              STW,R12  OUTBUF            PRESENT THE MODULE DATA
     2320   01 014DD    6AF01420              BAL,R15  ESM:MOD           IN A SNAP HAEDER FORMAT.
     2321   01 014DE    35C01B27              STW,R12  OUTBUF+1
     2322   01 014DF    6AF01426              BAL,R15  ESM:EL
     2323   01 014E0    35C01B28              STW,R12  OUTBUF+2
     2324   01 014E1    6AF01430              BAL,R15  ESM:MNEM
     2325   01 014E2    35C01B29              STW,R12  OUTBUF+3          MOD:HDR OUTPUTS THE FIRST
     2326   01 014E3    32C01A9D              LW,R12   SPACES            LINE OF THE SNAP HEADER
     2327   01 014E4    35C01B2A              STW,R12  OUTBUF+4          BLOCK.
     2328   01 014E5    B2CE03F3              LW,R12   *LISTPTR,X7
     2329   01 014E6    6AF01658              BAL,R15  DHEX:CON
     2330   01 014E7    35D01B2B              STW,R13  OUTBUF+5
     2331   01 014E8    35C01B2C              STW,R12  OUTBUF+6
     2332   01 014E9    32D018A2              LW,R13   KOUT+4
     2333   01 014EA    32C01A9D              LW,R12   SPACES
     2334   01 014EB    75D0000C A            STB,R13  R12
     2335   01 014EC    35C01B2E              STW,R12  OUTBUF+8
     2336   01 014ED    32C014F6              LW,R12   SO:MSG
     2337   01 014EE    35C01B2D              STW,R12  OUTBUF+7
     2338   01 014EF    22C00023 A            LI,R12   35
     2339   01 014F0    75C01B26              STB,R12  OUTBUF
     2340                            *
     2341   01 014F1    EA6003CD     PRNT:MOD #PRINT   OUTBUF,C2
            01 014F2    C2006C98 A
     2342   01 014F3    693014F5              BCS,3    %+2
     2343   01 014F4    8F9003CA              XPSD,9   *#RUNADDR%
     2344   01 014F5    E80014D7              B        *MOD:HDR-1
     2345                            *
     2346   01 014F6    40E2D67E A   SO:MSG   TEXT     ' SO='
     2347                            *
     2348   01 014F7    00000000 A            DATA     0
     2349         01 014F8           MOD:DATA EQU      %                 MOD:DATA OUTPUTS THE DATA
     2350   01 014F8    35F014F7              STW,R15  %-1               PERTAINING TO THE CURRENT
     2351   01 014F9    32C01A9D              LW,R12   SPACES
     2352   01 014FA    35C01B2B              STW,R12  OUTBUF+5
     2353   01 014FB    224FFFFD A            LI,X4    -3
     2354   01 014FC    223FFFFE A            LI,X3    -2
     2355   01 014FD    22C014C8              LI,R12   IN:0X34
     2356   01 014FE    35C014B2              STW,R12  IO34IDX
     2357   01 014FF    22C014CB              LI,R12   IN:1X78
     2358   01 01500    35C014B3              STW,R12  IO78IDX
     2359   01 01501    F2A003F3              LB,R10   *LISTPTR
     2360   01 01502    31A814D2              CW,R10   OUT:0X34,X4
     2361   01 01503    E91014F7              BCS,1    *MOD:DATA-1
     2362   01 01504    32C814A1              LW,R12   TXT:PTR,X4
     2363   01 01505    35C01B26              STW,R12  OUTBUF
     2364   01 01506    32C814C2              LW,R12   LFT:PTR,X4
     2365   01 01507    35C01B27              STW,R12  OUTBUF+1
     2366   01 01508    32C614D7     M2LOOP   LW,R12   IO:PTR,X3
     2367   01 01509    35C01B28              STW,R12  OUTBUF+2
     2368   01 0150A    35C01B2C              STW,R12  OUTBUF+6
     2369   01 0150B    B25814B2              LW,X5    *IO34IDX,X4
     2370   01 0150C    B2CA03F3              LW,R12   *LISTPTR,X5
     2371   01 0150D    6AF01658              BAL,R15  DHEX:CON
     2372   01 0150E    35D01B29              STW,R13  OUTBUF+3
     2373   01 0150F    35C01B2A              STW,R12  OUTBUF+4
     2374   01 01510    22C00013 A            LI,R12   19
     2375   01 01511    75C01B26              STB,R12  OUTBUF
     2376   01 01512    31A814D5              CW,R10   OUT:1X78,X4
     2377   01 01513    6910151D              BCS,1    OUT:MOD
     2378   01 01514    32C814C5              LW,R12   RHT:PTR,X4
     2379   01 01515    35C01B2B              STW,R12  OUTBUF+5
     2380   01 01516    B25814B3              LW,X5    *IO78IDX,X4
     2381   01 01517    B2CA03F3              LW,R12   *LISTPTR,X5
     2382   01 01518    6AF01658              BAL,R15  DHEX:CON
     2383   01 01519    35D01B2D              STW,R13  OUTBUF+7
     2384   01 0151A    35C01B2E              STW,R12  OUTBUF+8
     2385   01 0151B    22C00023 A            LI,R12   35
     2386   01 0151C    75C01B26              STB,R12  OUTBUF
     2387   01 0151D    EA6003CD     OUT:MOD  #PRINT   OUTBUF
            01 0151E    C0006C98 A
     2388   01 0151F    69301521              BCS,3    %+2
     2389   01 01520    8F9003CA              XPSD,9   *#RUNADDR%
     2390   01 01521    22C014D2              LI,R12   OUT:0X34
     2391   01 01522    35C014B2              STW,R12  IO34IDX
     2392   01 01523    22C014D5              LI,R12   OUT:1X78
     2393   01 01524    35C014B3              STW,R12  IO78IDX
     2394   01 01525    65301508              BIR,X3   M2LOOP
     2395   01 01526    654014FC              BIR,X4   MOD:DATA+4
     2396   01 01527    02000000 A            NOP
     2397   01 01528    02000000 A            NOP
     2398   01 01529    E80014F7              B        *MOD:DATA-1
     2399                            *
     2400                            *
     2401   01 0152A    00000A96     DWA:DWT1 DATA     DA(DC:DWT1)
     2402                                     BOUND    8
     2403   01 0152C    01006AC0     DC:DWT1  J        1,SN:COL1
     2404   01 0152D    80000009 A            I        8,9
     2405   01 0152E    01006ACC              J        1,SN:COL2
     2406   01 0152F    80000009 A            I        8,9
     2407   01 01530    01006AD8              J        1,SN:COL3
     2408   01 01531    80000009 A            I        8,9
     2409   01 01532    01006AE4              J        1,SN:COL4
     2410   01 01533    80000009 A            I        8,9
     2411   01 01534    01006AF0              J        1,SN:COL5
     2412   01 01535    80000009 A            I        8,9
     2413   01 01536    01006AFC              J        1,SN:COL6
     2414   01 01537    80000009 A            I        8,9
     2415   01 01538    01006B08              J        1,SN:COL7
     2416   01 01539    80000009 A            I        8,9
     2417   01 0153A    01006B14              J        1,SN:COL8
     2418   01 0153B    00000009 A   DC:DWT1E I        0,9
     2419                            *
     2420                            *
     2421                            *     SNAP:OUT CONVERTS BOTH THE EXP AND OR OBS DATA INTO
     2422                            *     EBCDIC AND PLACES THEM IN A SPECIAL DATA CHAINING
     2423                            *     BUFFER FOR OUTPUT.  THE OUTPUT FORMAT IS CONTROLLED
     2424                            *     BY THE SO OPTION IN THE K-LINE.
     2425                            *
     2426                            *     THE SNAPSHOT OUTPUT IS 'FOLDED' INTO 3 SEPARATE SECTIONS.
     2427                            *     THE CURRENT SECTION IS KEPT TRACK OF BY X2.
     2428   01 0153C    00000000 A            DATA     0
     2429         01 0153D           SNAP:OUT EQU      %                 THE INITIALIZATION CONSISTS
     2430   01 0153D    35F0153C              STW,R15  %-1               OF SETTING THE CK:SAV'S(3)
     2431   01 0153E    6AF015CD              BAL,R15  TYPE:CR           TO 1, RESETTING THE FAILED
     2432   01 0153F    22C00001 A            LI,R12   1                 TO FIND NON-COMPARE FLAG,
     2433   01 01540    222FFFFD A            LI,X2    -3                FETCHING THE # OF CLOCKS
     2434   01 01541    35C41B48              STW,R12  CK:SAV,X2         USED BY THE CURRENT SNAP
     2435   01 01542    65201541              BIR,X2   %-1               FROM SN:OBS-1 AND SETTING
     2436                            *                                   THE EXIT VALUE IN CK:PTR,
     2437   01 01543    222FFFFD A            LI,X2    -3                AND BY SETTING THE EXP &
     2438   01 01544    22C00000 A            LI,R12   0                 OBS BUFFER POINTERS TO THE
     2439   01 01545    35C01A98              STW,R12  CMP:ERR           START OF THEIR BUFFERS.
     2440   01 01546    72C030D5              LB,R12   SN:OBS-1          *
     2441   01 01547    31C01B51              CW,R12   CE:PTR                                            *A02
     2442   01 01548    6820154A              BCR,2    %+2                                               *A02
     2443   01 01549    32C01B51              LW,R12   CE:PTR                                            *A02
     2444   01 0154A    35C01B44              STW,R12  CK:PTR            IF THE SNAP OPTION IS LESS
     2445   01 0154B    22C031F9     NEW:HDR  LI,R12   SN:EXP            THAN 7, THE SNAP OUTPUT IS
     2446   01 0154C    35C01A95              STW,R12  SN:EXPTR          A FUNCTION OF A NON-COMPARE
     2447   01 0154D    32C030D6              LW,R12   SN:OBS            BEING DETECTED.  CONTROL
     2448   01 0154E    35C01A94              STW,R12  SN:OBPTR          GOES TO CMP:OE TO COMPARE
     2449   01 0154F    22C00001 A            LI,R12   1                 EXP WITH OBS BUFFERS.
     2450   01 01550    35C01A93              STW,R12  CK:CTR            *
     2451   01 01551    32D01B43              LW,R13   CK:BIAS
     2452   01 01552    68201557              BCR,2    %+5
     2453   01 01553    22B00017 A            LI,R11   23
     2454   01 01554    22A00001 A            LI,R10   1                                                 *A02
     2455   01 01555    6AF0160B              BAL,R15  CK:ADV                                            *A02
     2456   01 01556    64D01555              BDR,R13  %-1
     2457   01 01557    32C01A9C              LW,R12   SO                IF SNAP OPTION IS GREATER
     2458   01 01558    21C00003 A            CI,R12   3
     2459   01 01559    6830155D              BCR,3    %+4
     2460   01 0155A    21C00006 A            CI,R12   6                 THAN 6 THE FIRST SECTION
     2461   01 0155B    6810155D              BCR,1    %+2
     2462   01 0155C    6AF01617              BAL,R15  CMP:OE            OF THE HEADER CAN BE
     2463   01 0155D    32C41B23              LW,R12   HDR:ADR,X2        OUTPUT.  IF SO=7 OR F,
     2464   01 0155E    6AF01591              BAL,R15  HDR:OUT           THERE IS NO EXP. DATA
     2465   01 0155F    32C01A9C     SO126    LW,R12   SO                FROM TAPE AND CONTROL GOES
     2466   01 01560    21C00003 A            CI,R12   3
     2467   01 01561    69301563              BCS,3    %+2
     2468   01 01562    225FFFFF A            LI,X5    -1
     2469   01 01563    21C00007 A            CI,R12   7                 TO OBS DATA ONLY.
     2470   01 01564    6830157B              BE       OB:OUT            *
     2471   01 01565    32A01A95              LW,R10   SN:EXPTR          IF SO<7 THE EXP DATA IS
     2472   01 01566    6AF015DA              BAL,R15  SOE:MOVR          MOVED BY SOE:MOVR INTO
     2473   01 01567    6AF015ED              BAL,R15  DIS:FLG-2         THE DATA CHAINING BUFFER;
     2474   01 01568    22000D4F              LI,R0    DA(DCB:DW0)       THE DISREGARD FLAGS ARE
     2475   01 01569    6AF015A0              BAL,R15  DAT:OUT           SET ACCORDING TO THE
     2476                            *                                   BIT MASK AND THE BUFFER
     2477         01 0156A           SO12A    EQU      %                 IS OUTPUT BY DAT:OUT.
     2478   01 0156A    32C01A9C              LW,R12   SO                *
     2479   01 0156B    21C00003 A            CI,R12   3                 IF SO<3 OR IF THE CLK:CTR
     2480   01 0156C    68301584              BCR,3    SO12B+4
     2481   01 0156D    6810157B              BCR,1    OB:OUT            =1 OR IF THE LOOP COUNT IN
     2482   01 0156E    02000000 A            NOP                        X5 GOES TO 0, THE NEXT
     2483   01 0156F    02000000 A            NOP                        OUTPUT IS FROM THE OBS
     2484   01 01570    02000000 A            NOP                        BUFFER.  OTHERWISE THERE
     2485   01 01571    65501573              BIR,X5   %+2               IS ONE MORE OUTPUT FROM
     2486   01 01572    6800157B              B        OB:OUT            THE EXP BUFFER.  THIS IS
     2487   01 01573    22A00001 A            LI,R10   1                 THE SEMI-INTERLACED FORMAT.
     2488   01 01574    22B00017 A            LI,R11   23                (EXP, EXP, OBS)
     2489   01 01575    6AF0160B              BAL,R15  CK:ADV            *
     2490   01 01576    68001565              B        SO126+6
     2491                            *
     2492         01 01577           SO67B    EQU      %
     2493   01 01577    32C01A9C              LW,R12   SO
     2494   01 01578    21C00003 A            CI,R12   3
     2495   01 01579    6910164A              BCS,1    BACK12
     2496   01 0157A    6800154B              B        NEW:HDR
     2497                            *                                   OB:OUT USES SOE:MOVR TO
     2498         01 0157B           OB:OUT   EQU      %                 MOVE THE OBS DATA INTO
     2499   01 0157B    32A01A94              LW,R10   SN:OBPTR          THE DATA CHAINING BUFFER
     2500   01 0157C    6AF015DA              BAL,R15  SOE:MOVR          FOR OUTPUT.  DAT:OUT IS
     2501   01 0157D    6AF015EF              BAL,R15  DIS:FLG           A SHARED SUBROUTINE USED
     2502   01 0157E    22000D4F              LI,R0    DA(DCB:DW0)       TO OUTPUT SNAP DATA.
     2503   01 0157F    6AF015A0              BAL,R15  DAT:OUT           *
     2504   01 01580    32C01A9C     SO12B    LW,R12   SO                IF SO=2 THE BUFFER POINTERS
     2505   01 01581    21C00002 A            CI,R12   2                 MUST BE ADJUSTED AND
     2506   01 01582    6830158D              BE       PTR:ADJ           CONTROL GOES BACK TO THE
     2507   01 01583    6910158B              BL       SO2-1             COMPARE ROUTINE.  THIS
     2508   01 01584    32C01B44              LW,R12   CK:PTR            OPTION SAYS TO PRINT ALL        *A03
     2509   01 01585    31C01A93              CW,R12   CK:CTR            NON-COMPARES IN THE RANGE       *A03
     2510   01 01586    6830158B              BCR,3    %+5               SPECIFIED BY MST/MSP            *A03
     2511   01 01587    22A00001 A            LI,R10   1                 OPTION SAYS TO PRINT ALL
     2512   01 01588    22B00017 A            LI,R11   23                NON-COMPARES IN THE RANGE
     2513   01 01589    6AF0160B              BAL,R15  CK:ADV            SPECIFIED BY MST/MSP.
     2514   01 0158A    6800155F              B        SO126
     2515   01 0158B    65201577              BIR,X2   SO67B
     2516   01 0158C    68001657     SO2      B        SO:EXIT
     2517                            *
     2518         01 0158D           PTR:ADJ  EQU      %
     2519   01 0158D    22B00017 A            LI,R11   23
     2520   01 0158E    6AF0160E              BAL,R15  OE:ADV
     2521   01 0158F    6800162C              B        MS:RTN+1
     2522                            *
     2523   01 01590    00000000 A            DATA     0
     2524         01 01591           HDR:OUT  EQU      %
     2525   01 01591    35F01590              STW,R15  %-1               HDR:OUT PRINTS THE SNAP
     2526   01 01592    31C00393              CW,R12   #HDRFLG           HEADERS.  (A FUNCTION
     2527   01 01593    E830000F A            BCR,3    *R15              OF X2)
     2528   01 01594    22D000C1 A            LI,R13   X'C1'
     2529   01 01595    75D0000C A            STB,R13  R12
     2530   01 01596    35C01598              STW,R12  %+2                                               *A04
     2531   01 01597    EA6003CD              #PRINT   %+1
            01 01598    C0005664 A
     2532   01 01599    6930159B              BCS,3    %+2
     2533   01 0159A    8F9003CA              XPSD,9   *#RUNADDR%
     2534   01 0159B    6AF015CD              BAL,R15  TYPE:CR
     2535   01 0159C    4BC01B79              AND,R12  ADR:MSK
     2536   01 0159D    35C00393              STW,R12  #HDRFLG
     2537   01 0159E    E8001590              B        *HDR:OUT-1
     2538                            *
     2539   01 0159F    00000000 A            DATA     0
     2540         01 015A0           DAT:OUT  EQU      %
     2541   01 015A0    35F0159F              STW,R15  %-1               DAT:OUT IS A SHARED
     2542   01 015A1    32C41B23              LW,R12   HDR:ADR,X2        ROUTINE FOR OUTPUTTING
     2543   01 015A2    31C00393              CW,R12   #HDRFLG           BOTH EXP AND OBS SNAP
     2544   01 015A3    683015A5              BCR,3    %+2               DATA.
     2545   01 015A4    6AF01591              BAL,R15  HDR:OUT
     2546                            *
     2547   01 015A5    EA6003C2              #ETHCON,4  SN:COL1+1
            01 015A6    04006AC4
     2548   01 015A7    22400010 A            LI,X4    16                THIS CODE CONVERTS THE RIGHT
     2549   01 015A8    31681B8B              CW,X6    MSK:BTM-8,X4      16 BITS OF THE SNAPSHOT 'PHASE'
     2550   01 015A9    683015AC              BCR,3    %+3               COLUMN INTO A HEX NUMBER
     2551   01 015AA    644015A8              BDR,X4   %-2               PRECEEDED BY A DASH AND
     2552   01 015AB    680015B2              B        NO:CON            REPLACES IT IN THE OUTPUT BUFFER.
     2553   01 015AC    EA6003C3              #HTECON  X4
            01 015AD    00000004 A
     2554   01 015AE    326C0001 A            LW,X6    1,X6              NO CONVERSION IS DONE IF MORE THAN
     2555   01 015AF    35601AB1              STW,X6    SN:COL1+1        A SINGLE BIT IS PRESENT OR IF IT
     2556   01 015B0    22600060 A            LI,X6    X'60'             IS ALL ZERO.
     2557   01 015B1    75601AB1              STB,X6    SN:COL1+1
     2558                            *                                                                   *A04
     2559   01 015B2    22F00D4F     NO:CON   LI,R15   DA(DCB:DW0)                                       *A04
     2560   01 015B3    35F015D8              STW,R15  DBL:WRD
     2561   01 015B4    6AF015B8              BAL,R15  DC:OUT
     2562   01 015B5    35C00393              STW,R12  #HDRFLG
     2563   01 015B6    E800159F              B        *DAT:OUT-1
     2564                            *
     2565   01 015B7    00000000 A            DATA     0
     2566         01 015B8           DC:OUT   EQU      %
     2567   01 015B8    35F015B7              STW,R15  %-1               DC:OUT DOES THE ACTUAL
     2568   01 015B9    32000396              LW,R0    #TOADDR           PRINTING OR TYPING OF
     2569   01 015BA    31000397              CW,R0    #PRTADDR          SNAP DATA.
     2570   01 015BB    740015D7              STCF     SAVCC                                             *A03
     2571   01 015BC    693015C1              BNE      PRNTR             *
     2572   01 015BD    CDE00396              TIO,R14  *#TOADDR          OUTPUT IS ALWAYS TO
     2573   01 015BE    68C015C1              BCR,12   PRNTR             THE MESSAGE DEVICE
     2574   01 015BF    CF000396              HIO,R0   *#TOADDR          SPECIFIED IN THE J:LINE.
     2575   01 015C0    698015BF              BCS,8    %-1
     2576   01 015C1    320015D8     PRNTR    LW,R0    DBL:WRD
     2577   01 015C2    CC000397              SIO,R0   *#PRTADDR
     2578   01 015C3    CD100397              TIO,X1   *#PRTADDR
     2579   01 015C4    69C015C3              BCS,12   %-1
     2580   01 015C5    703015D7              LCF      SAVCC                                             *A03
     2581   01 015C6    693015C9              BCS,3    %+3                                               *A03
     2582   01 015C7    3200000E A            LW,R0    R14
     2583   01 015C8    CC000396              SIO,R0   *#TOADDR                                          *A03
     2584   01 015C9    31101B80              CW,X1    MSK:LST+4
     2585   01 015CA    684015CC              BCR,4    %+2               'BREAK' OF OUTPUT CAUSES
     2586   01 015CB    8F9003CA              XPSD,9   *#RUNADDR%        A RETURN TO GUIDE IDLE.
     2587   01 015CC    680015CE              B        %+2
     2588   01 015CD    35F015B7     TYPE:CR  STW,R15  DC:OUT-1
     2589   01 015CE    32000396              LW,R0    #TOADDR
     2590   01 015CF    31000397              CW,R0    #PRTADDR
     2591   01 015D0    E93015B7              BNE      *DC:OUT-1
     2592   01 015D1    EA6003CC              #TYPE    MSK:LST+7
            01 015D2    00006E0C A
     2593   01 015D3    02000000 A            NOP
     2594   01 015D4    02000000 A            NOP
     2595   01 015D5    02000000 A            NOP
     2596   01 015D6    E80015B7              B        *DC:OUT-1
     2597                            *
     2598   01 015D7    00000000 A   SAVCC    DATA     0                                                 *A03
     2599   01 015D8    00000000 A   DBL:WRD  DATA     0
     2600                            *
     2601   01 015D9    00000000 A            DATA     0
     2602         01 015DA           SOE:MOVR EQU      %
     2603   01 015DA    35F015D9              STW,R15  %-1               SNAPSHOT OBS/EXP MOVER,
     2604   01 015DB    6AF01606              BAL,R15  CLR:DCB           MOVES DATA FROM THE OBS
     2605   01 015DC    227FFFF9 A            LI,X7    -7                OR EXP BUFFER, CONVERTS
     2606   01 015DD    32941AE8              LW,R9    LINEADR,X2        IT AND STORES IT IN THE
     2607   01 015DE    B23E0009 A   DISP#1   LW,X3    *R9,X7            DATA CHAINING BUFFER
     2608   01 015DF    B2C6000A A            LW,R12   *R10,X3           USING THE 'ITEM'
     2609   01 015E0    6AF01658              BAL,R15  DHEX:CON          DISPLACEMENTS IN DCB:LST.
     2610   01 015E1    326E1AE5              LW,X6    DCB:LST,X7        THERE ARE 7 ITEMS ON EACH
     2611   01 015E2    35DC0000 A            STW,R13  0,X6              ROW OF SNAP PRINTOUT.
     2612   01 015E3    35CC0001 A            STW,R12  1,X6              THE CURRENT SECTION OF
     2613   01 015E4    657015DE              BIR,X7   DISP#1            THE FOLDED SNAP OUTPUT
     2614   01 015E5    32C01A93              LW,R12   CK:CTR            IS A FUNCTION OF X2.
     2615                            *                                   CK:CTR HOLDS THE VALUE          *A03
     2616                            *                                   OF THE CURRENT CLOCK
     2617                            *                                   BEING PROCESSED BY THE
     2618                            *                                   SNAP OUTPUT ROUTINE.
     2619   01 015E6    02000000 A            NOP
     2620   01 015E7    02000000 A            NOP
     2621   01 015E8    02000000 A            NOP
     2622   01 015E9    02000000 A            NOP
     2623   01 015EA    6AF01658              BAL,R15  DHEX:CON
     2624   01 015EB    35C01AAE              STW,R12  SN:COL0
     2625   01 015EC    E80015D9              B        *SOE:MOVR-1
     2626                            *
     2627   01 015ED    227FFFFF A            LI,X7    -1
     2628   01 015EE    35701605              STW,X7   SKP:NC
     2629         01 015EF           DIS:FLG  EQU      %                 DISREGARD FLAGS ARE
     2630   01 015EF    227FFFF9 A            LI,X7    -7                INSERTED INTO THE DC
     2631   01 015F0    32401A93              LW,X4    CK:CTR            BUFFER PRIOR TO OUTPUT
     2632   01 015F1    32C830F8              LW,R12   BIT:MSK-1,X4      IF THE CORRESPONDING
     2633   01 015F2    32B01A96     DISP#2   LW,R11   DISRGD            BIT:MSK BIT IS SET.
     2634   01 015F3    B23E0009 A            LW,X3    *R9,X7            DIS:FLG IS ENTERED FROM
     2635   01 015F4    31C61B7C              CW,R12   MSK:LST,X3        OB:OUT.  EXP DATA OUT
     2636   01 015F5    684015FB              BCR,4    NC:FLG            FROM SO126 ENTERS THRU
     2637   01 015F6    326E1AE5              LW,X6    DCB:LST,X7        DIS:FLG-2 TO KEEP THE
     2638   01 015F7    35BDFFFF A            STW,R11  -1,X6             NC:FLG ROUTINE FROM
     2639   01 015F8    657015F2     DIS:X7   BIR,X7   DISP#2            PUTTING *'S ON THE
     2640   01 015F9    35701605              STW,X7   SKP:NC            EXPECTED DATA.
     2641   01 015FA    E800000F A            B        *R15
     2642                            *
     2643         01 015FB           NC:FLG   EQU      %
     2644   01 015FB    32D01605              LW,R13   SKP:NC            NC:FLG PUTS THE *'S ON
     2645   01 015FC    693015F8              BCS,3    DIS:X7            THE NON-COMPARING OBS
     2646   01 015FD    32D01A9C              LW,R13   SO                DATA.
     2647   01 015FE    21D00007 A            CI,R13   7
     2648   01 015FF    683015F8              BCR,3    DIS:X7
     2649   01 01600    B2D61A94              LW,R13   *SN:OBPTR,X3
     2650   01 01601    B1D61A95              CW,R13   *SN:EXPTR,X3
     2651   01 01602    683015F8              BCR,3    DIS:X7
     2652   01 01603    32B01A97              LW,R11   ASTRSK
     2653   01 01604    680015F6              B        DIS:X7-2
     2654                            *
     2655   01 01605    00000000 A   SKP:NC   DATA     0
     2656                            *
     2657         01 01606           CLR:DCB  EQU      %
     2658   01 01606    226FFFE7 A            LI,X6    -25               CLEAR DATA CHAINING BUFF.
     2659   01 01607    32801A9D              LW,R8    SPACES
     2660   01 01608    358C1AC7              STW,R8   SN:COL0+25,X6
     2661   01 01609    65601608              BIR,X6   %-1
     2662   01 0160A    E800000F A            B        *R15
     2663                            *
     2664                            *        LI,R10   +1   OR (-1)     CALLING SEQUENCE FOR CK:ADV
     2665                            *        LI,R11   +23  OR (-23)
     2666                            *        BAL,R15  CK:ADV
     2667                            *
     2668         01 0160B           CK:ADV   EQU      %                 THE CK:PTR AND THE EXP
     2669   01 0160B    32C01A93              LW,R12   CK:CTR            AND OBS POINTERS ARE
     2670   01 0160C    30C0000A A            AW,R12   R10               MOVED UP OR DOWN THE
     2671   01 0160D    35C01A93              STW,R12  CK:CTR            SNAP BUFFERS BY THIS
     2672   01 0160E    32C01A95     OE:ADV   LW,R12   SN:EXPTR          ROUTINE.  ENTERING AT
     2673   01 0160F    30C0000B A            AW,R12   R11               CK:ADV MOVES THEM DOWN
     2674   01 01610    35C01A95              STW,R12  SN:EXPTR          IF R10/R11 ARE POSITIVE
     2675   01 01611    32C01A94              LW,R12   SN:OBPTR          OR BACK UP IF NEGATIVE.
     2676   01 01612    30C0000B A            AW,R12   R11               ENTERING AT OE:ADV ONLY
     2677   01 01613    35C01A94              STW,R12  SN:OBPTR          MOVES THE BUFFER PTRS.
     2678   01 01614    E800000F A            B        *R15
     2679                            *
     2680   01 01615    22C00001 A            LI,R12   1                                                 *A03
     2681   01 01616    35C01A93              STW,R12  CK:CTR                                            *A03
     2682         01 01617           CMP:OE   EQU      %                 SNAP OF A MODULE DURING
     2683   01 01617    35F0163B              STW,R15  CMPOE:EX
     2684   01 01618    22C00000 A            LI,R12   0
     2685   01 01619    35C01A98              STW,R12  CMP:ERR
     2686   01 0161A    02000000 A            NOP                        THE GENERATE PASS, THE
     2687   01 0161B    02000000 A            NOP                        FIRST WORD OF THE MODULE
     2688   01 0161C    32C030D5              LW,R12   SN:OBS-1          IS FETCHED AND THE
     2689   01 0161D    4BC0163C              AND,R12  CLK:MSK
     2690   01 0161E    32D031F8              LW,R13   SN:EXP-1
     2691   01 0161F    4BD0163C              AND,R13  CLK:MSK
     2692   01 01620    31C0000D A            CW,R12   R13               FINAL CLOCK COUNT OF THE
     2693   01 01621    68301625              BCR,3    %+4               MODULE IS STORED IN THE         *A04
     2694   01 01622    EA6003CC              #TYPE    ERMSG5            FIRST BYTE.  THIS WORD
            01 01623    00005CB4 A
     2695   01 01624    8F9003CA              XPSD,9   *#RUNADDR%        IS THEN STORED IN SN:EXP-1
     2696                            *                                   PRIOR TO WRITING THE            *A03
     2697                            *                                   MODULE OUT TO TAPE              *A03
     2698   01 01625    22B00017 A            LI,R11   23                *
     2699   01 01626    6AF0160E              BAL,R15  OE:ADV            AT CMP:OE THIS SAME WORD
     2700   01 01627    226FFFE9 A   NXT:CLK  LI,X6    -23               IS RECREATED AND VERIFIED
     2701   01 01628    B2CC1A94              LW,R12   *SN:OBPTR,X6      AGAINST THE ONE THAT HAS
     2702   01 01629    B1CC1A95              CW,R12   *SN:EXPTR,X6      BEEN READ IN OFF TAPE.
     2703   01 0162A    6930163D              BCS,3    MSK:TST           *
     2704   01 0162B    65601628     MS:RTN   BIR,X6   %-3               COMPARE THE 23 ITEMS PER
     2705   01 0162C    32C01B44              LW,R12   CK:PTR            CORRESPONDING BIT IS SET
     2706   01 0162D    31C01A93              CW,R12   CK:CTR            IN THE BIT:MSK.  IF NOT
     2707   01 0162E    68301633              BCR,3    %+5               SET THEY EXIT THRU MSK:TST
     2708   01 0162F    22A00001 A            LI,R10   1                 CPU CLOCK AT NXT:CLK.
     2709   01 01630    22B00017 A            LI,R11   23                NON-COMPARES ARE REFERED
     2710   01 01631    6AF0160B              BAL,R15  CK:ADV            TO MSK:TST TO SEE IF THE
     2711   01 01632    68001627              B        NXT:CLK           AFTER THE EXP/OBS PTRS
     2712   01 01633    02000000 A            NOP                        ARE ADJUSTED.
     2713   01 01634    02000000 A            NOP
     2714   01 01635    02000000 A            NOP
     2715   01 01636    32C01A9C              LW,R12   SO                EXCEPT 'DUMMIES' ARE PREFACED
     2716   01 01637    21C00002 A            CI,R12   2                 BY A 256 WORD BIT MASK.
     2717   01 01638    6930163A              BNE      %+2               THERE IS ONE WORD FOR
     2718   01 01639    6520154B              BIR,X2   NEW:HDR           EACH CPU CLOCK THAT CAN
     2719   01 0163A    E800153C              B        *SNAP:OUT-1       BE SNAPPED.  THE FIRST 23
     2720                            *                                   BITS(0-22) ARE USED TO
     2721   01 0163B    00000000 A   CMPOE:EX DATA     0                 INDICATE WHETHER THE
     2722   01 0163C    00FFFFFF A   CLK:MSK  DATA     X'FFFFFF'
     2723                            *                                   CORRESPONDING ENTRY IN
     2724         01 0163D           MSK:TST  EQU      %                 THE 23 WORD BLOCK OF SNAP
     2725   01 0163D    32401A93              LW,X4    CK:CTR            DATA IS SUFFICIENTLY
     2726   01 0163E    32C830F8              LW,R12   BIT:MSK-1,X4      STABLE FROM CPU CLOCK
     2727   01 0163F    31CC1B93              CW,R12   MSK:BTM,X6        TO CLOCK TO PERMIT
     2728   01 01640    6940162B              BCS,4    MS:RTN            COMPARISSION.
     2729   01 01641    22BFFFE9 A            LI,R11   -23               THE PRESENCE OF A BIT IN
     2730   01 01642    6AF0160E              BAL,R15  OE:ADV            THE MASK INDICATES THE
     2731   01 01643    22CFFFFF A            LI,R12   -1                WORD CANT BE COMPARED.
     2732   01 01644    35C01A98              STW,R12  CMP:ERR           *
     2733   01 01645    32C01A99              LW,R12   FLG126
     2734   01 01646    6830164A              BCR,3    BACK12
     2735   01 01647    22C00000 A            LI,R12   0
     2736   01 01648    35C01A99              STW,R12  FLG126
     2737   01 01649    E800163B              B        *CMPOE:EX
     2738                            *
     2739   01 0164A    32901A93     BACK12   LW,R9    CK:CTR            THIS ROUTINE MOVES THE
     2740   01 0164B    02000000 A            NOP                        CLOCK AND OBS/EXP PTRS
     2741   01 0164C    31941B48              CW,R9    CK:SAV,X2         BACK ONE CLOCK FOR SO=1
     2742   01 0164D    68301653              BE       %+6               OR 2 TO OBTAIN THE SEMI-
     2743   01 0164E    22AFFFFF A            LI,R10   -1                INTERLACED FORMAT.  THE
     2744   01 0164F    22BFFFE9 A            LI,R11   -23               3 CK:SAV WORDS ARE USED
     2745   01 01650    6AF0160B              BAL,R15  CK:ADV            HERE TO PREVENT BACKUP
     2746   01 01651    225FFFFE A            LI,X5    -2                ON THE FIRST CLOCK.  X5
     2747   01 01652    68001654              B        %+2               IS SET TO -2 TO BE USED
     2748   01 01653    225FFFFF A            LI,X5    -1                AS THE LOOP COUNT IN THE
     2749   01 01654    20900001 A            AI,R9    1                 EXP DATA OUTPUT RUOTINE.
     2750   01 01655    35941B48              STW,R9   CK:SAV,X2         *
     2751   01 01656    6800155D              B        SO126-2
     2752                            *
     2753   01 01657    E800153C     SO:EXIT  B        *SNAP:OUT-1
     2754                            *
     2755         01 01658           DHEX:CON EQU      %                 DHEX:CON CONVERTS A WORD
     2756   01 01658    EA6003C3              #HTECON  R12               OF HEX IN TO 2 WORDS OF
            01 01659    0000000C A
     2757   01 0165A    B2D00006 A            LW,R13   *X6               EBCDIC.  R13 HAS HIGH
     2758   01 0165B    32CC0001 A            LW,R12   1,X6              SIDE, R12 HAS LOW SIDE.
     2759   01 0165C    E800000F A            B        *R15
     2760                            *
     2761         01 0165D           SET:MEM  EQU      %
     2762   01 0165D    328003AA              LW,R8    #MAXMEM           SET:MEM IS BAL'D TO FROM
     2763   01 0165E    21803FFF A            CI,R8    16383             THE INITIALIZER TO SETUP THE
     2764   01 0165F    69201663              BG       %+4               SNAP BUFFER SIZES BASED UPON
     2765   01 01660    22803FFF A            LI,R8    16383             AVAILABLE MEMORY.  THE VALUE
     2766   01 01661    208FCE07 N            AI,R8    -SN:EXP           IN CK:LIMIT IS THE MAXIMUM #
     2767   01 01662    6800166B              B        SETSIZE           OF CLOCKS THE AVAILABLE CORE
     2768   01 01663    208FE100 A            AI,R8    -X'1F00'          SPACE WILL PERMIT.  THE HARE-
     2769   01 01664    208FCE07 N            AI,R8    -SN:EXP           WARE LIMIT IS 256 CLOCKS.
     2770   01 01665    21802E00 A            CI,R8    11776             *
     2771   01 01666    6810166A              BGE      SETSIZE-1         AVAILABLE MEMORY, AVL:MEM IS
     2772   01 01667    35801752              STW,R8   MAX:CLR           SET TO THE MAXIMUM USED BY
     2773   01 01668    20800F00 A            AI,R8    X'F00'            THE SNAP IF THERE IS MORE
     2774   01 01669    6800166C              B        %+3               CORE THAN IS NEEDED TO SNAP.
     2775   01 0166A    22802E00 A            LI,R8    11776             *
     2776   01 0166B    35801752     SETSIZE  STW,R8   MAX:CLR           MAX:CLR IS X'F00' LESS THAN
     2777   01 0166C    35801753              STW,R8   AVL:MEM           AVL:MEM IF THE AVAILABLE
     2778                            *                                   CORE SPACE IS LESS THAN THAT
     2779   01 0166D    226FFF00 A            LI,X6    -256              REQUIRED FOR A FULL SNAP.
     2780   01 0166E    22100000 A            LI,X1    0                 THIS PERMITS THE PROGRAM TO
     2781   01 0166F    20100001 A            AI,X1    1                 OVERLAY MTL BUFFERS PROVIDED
     2782   01 01670    208FFFD2 A            AI,R8    -46               THAT A GENERATION OF SNAP
     2783   01 01671    69101673              BCS,1    %+2               DATA IS NOT REQUESTED.
     2784   01 01672    6560166F              BIR,X6   %-3               *(SEE UPDTA MEM TESTS)
     2785   01 01673    201FFFFF A            AI,X1    -1                R8 CONTAINS AVL:MEM VALUE.
     2786   01 01674    35101754              STW,X1   CK:LIMIT          IT IS USED TO CALCULATE
     2787                            *                                   THE NUMBER IF 23 WORD
     2788   01 01675    22800000 A            LI,R8    0                 EXP/OBS PAIRS IT CAN
     2789   01 01676    20800017 A            AI,R8    23                SUPPORT.  ONCE THE
     2790   01 01677    64101676              BDR,X1   %-1               MAXIMUM SIZE IS CALCULATED
     2791   01 01678    32900008 A            LW,R9    R8                A CORRESPONDING BYTE COUNT
     2792   01 01679    30900009 A            AW,R9    R9                FOR THE SNAP IOCD'S IS
     2793   01 0167A    30900009 A            AW,R9    R9                CALCULATED AND STORED.
     2794   01 0167B    20900404 A            AI,R9    1028
     2795   01 0167C    3590175B              STW,R9   TAPE+1            CORE IS CLEARED AND
     2796   01 0167D    3590175D              STW,R9   SNAP:WRT+1        THE BIT:MSK IS FILLED
     2797   01 0167E    208031F9              AI,R8    SN:EXP            WITH THE DEFAULT DATA (BM:FILL).
     2798   01 0167F    358030D6              STW,R8   SN:OBS
     2799                            *
     2800   01 01680    32101753     CLR:SNP  LW,X1    AVL:MEM
     2801   01 01681    02000000 A            NOP
     2802   01 01682    22900000 A            LI,R9    0
     2803   01 01683    359231F9              STW,R9   SN:EXP,X1
     2804   01 01684    64101683              BDR,X1   %-1
     2805                            *
     2806   01 01685    221FFF00 A            LI,X1    -256
     2807   01 01686    3290168A              LW,R9    BM:FILL
     2808   01 01687    359231F8              STW,R9   BIT:MSK+255,X1
     2809   01 01688    65101687              BIR,X1   %-1
     2810                            *
     2811   01 01689    E800000E A            B        *R14
     2812                            *
     2813   01 0168A    078F2000 A   BM:FILL  DATA     X'078F2000'
     2814                            *
     2815         01 0168B           DUMMY    EQU      %
     2816   01 0168B    4B8016DA              AND,R8   HFFFF
     2817   01 0168C    358030F4              STW,R8   SN:CHECK
     2818   01 0168D    22000BA8              LI,R0    DA(ID:WRT)
     2819   01 0168E    CC001B4A              SIO,R0   *TAPE1ADR
     2820   01 0168F    CD001B4A              TIO,R0   *TAPE1ADR
     2821   01 01690    69C0168F              BCS,12   %-1
     2822   01 01691    E800000E A            B        *R14
     2823                            *
     2824         01 01692           WRT:MTL  EQU      %
     2825   01 01692    32201B44              LW,X2    CK:PTR
     2826   01 01693    B23003F3              LW,X3    *LISTPTR
     2827   01 01694    75200003 A            STB,X2   X3
     2828   01 01695    353031F8              STW,X3   SN:EXP-1
     2829   01 01696    02000000 A            NOP
     2830   01 01697    02000000 A            NOP
     2831   01 01698    02000000 A            NOP
     2832   01 01699    22800000 A            LI,R8    0
     2833   01 0169A    6A601702              BAL,X6    WRT:SNAP
     2834   01 0169B    680010C8              B        PTR:ADV
     2835                            *
     2836         01 0169C           IDX:TAPE EQU      %                 INDEX TAPE IS USED TO
     2837   01 0169C    329016D9              LW,R9    TAPE:AT           LOCATE THE SNAP DATA ON THE     *A02
     2838   01 0169D    683016A2              BCR,3    LOOKFWD           MAGTAPE LIBRARY AFTER           *A02
     2839   01 0169E    22000BA3              LI,R0    DA(SPF:BAK)       LOADING IS COMPLETE.            *A02
     2840   01 0169F    CC001B49              SIO,R0   *TAPE0ADR                                         *A02
     2841   01 016A0    CD001B49              TIO,R0   *TAPE0ADR                                         *A02
     2842   01 016A1    69C016A0              BCS,12   %-1               IT IS ALSO USED BY THE          *A02
     2843   01 016A2    22000BA5     LOOKFWD  LI,R0    DA(SPF:FWD)       INITIALIZER ON 'YES'
     2844   01 016A3    CC001B49              SIO,R0   *TAPE0ADR         ABSOLUTE RECOVERIES TO
     2845   01 016A4    CD001B49              TIO,R0   *TAPE0ADR         REPOSITION THE TAPE TO
     2846   01 016A5    69C016A4              BCS,12   %-1               THE FIRST MODULE'S
     2847   01 016A6    22000BA4              LI,R0    DA(READ:SN)       SNAP DATA.  THE FIRST
     2848   01 016A7    CC001B49              SIO,R0   *TAPE0ADR         RECORD ON TAPE IS A 4
     2849   01 016A8    CD001B49              TIO,R0   *TAPE0ADR         WORD BLOCK THAT CONTAINS
     2850   01 016A9    69C016A8              BCS,12   %-1               A UNIQUE PROGRAM
     2851   01 016AA    CE901B49              TDV,R9   *TAPE0ADR
     2852   01 016AB    3190174D              CW,R9    EOT               DESCRIPTOR WORD IN
     2853   01 016AC    69401723              BCS,4    ERMG4             EBCDIC.  SEE TAPE:ID.
     2854   01 016AD    328030F4              LW,R8    SN:CHECK
     2855   01 016AE    3180174E              CW,R8    TAPE:ID
     2856   01 016AF    693016A2              BCS,3    LOOKFWD
     2857   01 016B0    228FFFFF A            LI,R8    -1
     2858   01 016B1    358016D9              STW,R8   TAPE:AT
     2859   01 016B2    E800000E A            B        *R14
     2860                            *
     2861         01 016B3           MAR:TAPE EQU      %                 MOVE AND READ TAPE IS
     2862   01 016B3    328016D9              LW,R8    TAPE:AT
     2863   01 016B4    693016B7              BCS,3    %+3
     2864   01 016B5    6AE0169C              BAL,R14  IDX:TAPE
     2865   01 016B6    6AE016EA              BAL,R14  READ              ENTERED WHENEVER THE
     2866   01 016B7    328031F8              LW,R8    SN:EXP-1          SO OPTION REQUIRES EXP
     2867   01 016B8    683016B6              BCR,3    %-2               DATA FROM TAPE.
     2868   01 016B9    4B801B70              AND,R8   MOD:MSK
     2869   01 016BA    318003F2              CW,R8    MCR:NUM
     2870   01 016BB    E830000F A            BCR,3    *R15
     2871   01 016BC    48801B4F              EOR,R8   ONES
     2872   01 016BD    308003F2              AW,R8    MCR:NUM
     2873   01 016BE    683016B6              BCR,3    MAR:TAPE+3
     2874   01 016BF    691016C2              BCS,1    BACKUP                                            *A02
     2875   01 016C0    22000BAC              LI,R0    DA(MOVF)                                          *A02
     2876   01 016C1    680016C9              B        TAPEMOV                                           *A02
     2877   01 016C2    48801B4F     BACKUP   EOR,R8   ONES                                              *A01
     2878   01 016C3    20800001 A            AI,R8    1
     2879   01 016C4    22000BAB              LI,R0    DA(MOVB)
     2880   01 016C5    02000000 A            NOP
     2881   01 016C6    02000000 A            NOP
     2882   01 016C7    02000000 A            NOP
     2883   01 016C8    02000000 A            NOP
     2884   01 016C9    6AD016E2     TAPEMOV  BAL,R13  MOV:TAPE                                          *A02
     2885   01 016CA    648016E2              BDR,R8   MOV:TAPE
     2886   01 016CB    680016B6              B        MAR:TAPE+3
     2887                            *
     2888   01 016CC    326014BC     NO:SN    LW,X6    VER:END
     2889   01 016CD    693010C8              BCS,3    PTR:ADV
     2890   01 016CE    320003F2              LW,R0    MCR:NUM
     2891   01 016CF    02000000 A            NOP
     2892   01 016D0    EA6003C3              #HTECON  R0
            01 016D1    00000000 A
     2893   01 016D2    326C0001 A            LW,X6    1,X6
     2894   01 016D3    02000000 A            NOP
     2895   01 016D4    4B601B3C              AND,X6    LS:MSK
     2896   01 016D5    356016DC              STW,X6    NS:MSG+1
     2897   01 016D6    EA6003CD              #PRINT   NS:MSG,C1
            01 016D7    C1005B6C A
     2898   01 016D8    680010C8              B        PTR:ADV                                           *A02
     2899                            *
     2900   01 016D9    00000000 A   TAPE:AT  DATA     0
     2901   01 016DA    0000FFFF A   HFFFF    DATA     X'FFFF'
     2902                            *
     2903         01 016DB           NS:MSG   TEXTCS   'MOD     CANNOT BE SNAPPED!'
     2904                            *
     2905         01 016E2           MOV:TAPE EQU      %
     2906   01 016E2    CC201B49              SIO,X2   *TAPE0ADR         USED TO MOVE TAPE
     2907   01 016E3    CD201B49              TIO,X2   *TAPE0ADR         FORWARD OR BACK.
     2908   01 016E4    69C016E3              BCS,12   %-1
     2909   01 016E5    4B30174C              AND,X3   LOADPNT                                           *A02
     2910   01 016E6    E820000D A            BCR,2    *R13                                              *A02
     2911   01 016E7    22200000 A            LI,X2    0                                                 *A02
     2912   01 016E8    352016D9              STW,X2   TAPE:AT                                           *A02
     2913   01 016E9    680016B3              B        MAR:TAPE                                          *A02
     2914                            *
     2915         01 016EA           READ     EQU      %
     2916   01 016EA    22400000 A            LI,X4    0                                                 *A02
     2917   01 016EB    354031F8              STW,X4   SN:EXP-1                                          *A02
     2918   01 016EC    224FFFFC A            LI,X4    -4                THE SNAP DATA READ
     2919   01 016ED    22000BAD              LI,R0    DA(TAPE)          ROUTINE.  X4 IS THE
     2920   01 016EE    CC201B49              SIO,X2   *TAPE0ADR         RETRY COUNT IN THE
     2921   01 016EF    CD201B49              TIO,X2   *TAPE0ADR         EVENT OF A READ ERROR.
     2922   01 016F0    69C016EF              BCS,12   %-1               ERR:MSKT CONTAINS THE
     2923   01 016F1    02000000 A            NOP                        ERROR BITS CHECKED.
     2924   01 016F2    02000000 A            NOP
     2925   01 016F3    328031F8              LW,R8    SN:EXP-1
     2926   01 016F4    683016CC              BCR,3    NO:SN
     2927   01 016F5    02000000 A            NOP
     2928   01 016F6    02000000 A            NOP
     2929   01 016F7    02000000 A            NOP
     2930   01 016F8    3130171F              CW,X3    ERR:MSKT
     2931   01 016F9    694016FB              BCS,4    %+2
     2932   01 016FA    E800000E A            B        *R14
     2933   01 016FB    22000BAB              LI,R0    DA(MOVB)
     2934   01 016FC    6AD016E2              BAL,R13  MOV:TAPE
     2935   01 016FD    654016EB              BIR,X4   READ+1
     2936   01 016FE    EA6003CC              #TYPE    ERR:TAPE
            01 016FF    00005C80 A
     2937   01 01700    8F9003CA              XPSD,9   *#RUNADDR%
     2938   01 01701    680016EA              B        READ
     2939                            *
     2940         01 01702           WRT:SNAP EQU      %
     2941   01 01702    22400003 A            LI,X4    3
     2942   01 01703    223FFFA4 A            LI,X3    -92
     2943   01 01704    30800002 A            AW,R8    X2
     2944   01 01705    65301704              BIR,X3   %-1
     2945   01 01706    20800404 A            AI,R8    1028
     2946   01 01707    3580175D              STW,R8   SNAP:WRT+1
     2947   01 01708    CD001B4A              TIO,R0   *TAPE1ADR
     2948   01 01709    69C01708              BCS,12   %-1
     2949   01 0170A    02000000 A            NOP
     2950   01 0170B    02000000 A            NOP
     2951   01 0170C    02000000 A            NOP
     2952   01 0170D    22000BAE     TRY:WRT  LI,R0    DA(SNAP:WRT)
     2953   01 0170E    CC201B4A              SIO,X2   *TAPE1ADR
     2954   01 0170F    CD201B4A              TIO,X2   *TAPE1ADR
     2955   01 01710    69C0170F              BCS,12   %-1
     2956   01 01711    02000000 A            NOP
     2957   01 01712    02000000 A            NOP
     2958   01 01713    02000000 A            NOP
     2959   01 01714    02000000 A            NOP
     2960   01 01715    3130171F              CW,X3    ERR:MSKT
     2961   01 01716    69401718              BCS,4    %+2
     2962   01 01717    E8000006 A            B        *X6
     2963   01 01718    22000BAB              LI,R0    DA(MOVB)
     2964   01 01719    6AD016E2              BAL,R13  MOV:TAPE
     2965   01 0171A    6440170D              BDR,X4   TRY:WRT
     2966   01 0171B    EA6003CC              #TYPE    ERR:TAPE
            01 0171C    00005C80 A
     2967   01 0171D    8F9003CA              XPSD,9   *#RUNADDR%
     2968   01 0171E    680010C8              B        PTR:ADV
     2969                            *
     2970   01 0171F    007C0000 A   ERR:MSKT DATA     X'7C0000'
     2971   01 01720    0AE3C1D7 A   ERR:TAPE TEXTC    'TAPE ERROR'
            01 01721    C540C5D9 A
            01 01722    D9D6D940 A
     2972                            *
     2973   01 01723    EA6003CC     ERMG4    #TYPE    ERMSG4
            01 01724    00005C9C A
     2974   01 01725    8F9003CA              XPSD,9   *#RUNADDR%
     2975   01 01726    E800000E A            B        *R14
     2976                            *
     2977         01 01727           ERMSG4   TEXTCS   'CANT LOCATE SNAP DATA'
     2978                            *
     2979                            ERMSG5   TEXTCS   ;
     2980         01 0172D             'CONTROL WORD FROM TAPE DOESNT MATCH CURRENT MODULE'
     2981                            *
     2982         01 0173A           ERMSG6   TEXTCS   'SNAP UPDATE CARD KEYPUNCH ERROR'
     2983                                     BOUND    8
     2984   01 01742    73000000 A   EOF      D        X'73',0
     2985   01 01743    00000000 A            DATA     0
     2986   01 01744    33000000 A   REWT     D        X'33',0
     2987   01 01745    00000000 A            DATA     0
     2988   01 01746    5B000000 A   SPF:BAK  D        X'5B',0                                           *A02
     2989   01 01747    00000000 A            D        0
     2990   01 01748    0200C3D0     READ:SN  D        2,BA(SN:CHECK)
     2991   01 01749    00000010 A            DATA     16
     2992   01 0174A    53000000 A   SPF:FWD  D        X'53',0
     2993   01 0174B    00000000 A            D        0
     2994                            *
     2995   01 0174C    04000000 A   LOADPNT  DATA     X'4000000'
     2996   01 0174D    10000000 A   EOT      DATA     X'10000000'
     2997   01 0174E    C6C6D3E3 A   TAPE:ID  TEXT     'FFLT'
     2998                            *
     2999                                     BOUND    8
     3000   01 01750    0100C3D0     ID:WRT   D        1,BA(SN:CHECK)
     3001   01 01751    00000010 A            DATA     16
     3002                            *
     3003   01 01752    00000000 A   MAX:CLR  DATA     0
     3004   01 01753    00000000 A   AVL:MEM  DATA     0
     3005   01 01754    00000000 A   CK:LIMIT DATA     0
     3006                            *
     3007                                     BOUND    8
     3008   01 01756    4B000000 A   MOVB     D        X'4B',0
     3009   01 01757    00000000 A            D        0,0
     3010                            *
     3011   01 01758    43000000 A   MOVF     D        X'43',0
     3012   01 01759    00000000 A            D        0,0
     3013                            *
     3014   01 0175A    0200C3E0     TAPE     J        2,BIT:MSK-1
     3015   01 0175B    00001804 A            D        0,6148
     3016                            *
     3017   01 0175C    0100C3E0     SNAP:WRT J        1,BIT:MSK-1
     3018   01 0175D    00001804 A            D        0,6148
     3019                            *
     3020         01 0175E           CARD:CON EQU      %
     3021   01 0175E    02000000 A            NOP
     3022   01 0175F    02000000 A            NOP                        CARD CONTROL IS ENTERED
     3023   01 01760    32201B3F              LW,X2    ERR:FLG           FROM EXT:ERR, THE FT:ERR
     3024   01 01761    693012E7              BCS,3    CONT:FTE          EXIT IF THE GENERATE
     3025   01 01762    02000000 A            NOP                        FLAG IS SET.  THIS ROUTINE
     3026   01 01763    02000000 A            NOP                        IS DESIGNED TO INTERPRET
     3027   01 01764    02000000 A            NOP                        BIT:MSK CARDS AND PLACE
     3028   01 01765    02000000 A            NOP                        THE DATA IN THE BUFFER
     3029   01 01766    32201B6D              LW,X2    CARD:SW           OVERLAYING THE DEFAULT
     3030   01 01767    693017B5              BCS,3    GO:SNAP           DATA.  THE CARD FORMAT
     3031   01 01768    222FFFFF A            LI,X2    -1                IS:
     3032   01 01769    35201B6D              STW,X2   CARD:SW             #302,06,XXXXXXXX,CF,YYY
     3033   01 0176A    6AE01680              BAL,R14  CLR:SNP
     3034   01 0176B    32201B6E              LW,X2    END:FLG               ETC.
     3035   01 0176C    693017B5              BCS,3    GO:SNAP           WHERE 302 IS THE MODULE#
     3036   01 0176D    32201B6F              LW,X2    RD:SW             IN HEX, 06 AND CF ARE
     3037   01 0176E    69301785              BCS,3    MOD#CHK           THE CLOCKS WHOSE BIT MASK
     3038   01 0176F    222FFFFF A            LI,X2    -1                DATA IS BEING ALTERED AND
     3039   01 01770    35201B6F              STW,X2   RD:SW             XXXXXXXX IS THE NEW DATA
     3040   01 01771    22000DB5              LI,R0    DA(CARDIOCD)      FOR CLOCK 06 AND YYYYYYYY
     3041   01 01772    CC001B4C              SIO,0    *CARDADR          IS THE NEW DATA FOR CLOCK
     3042   01 01773    CD001B4C              TIO,R0   *CARDADR          CF.  EACH CARD MUST START
     3043   01 01774    69C01773              BCS,12   %-1               WITH #(MODULE#) IN HEX.
     3044   01 01775    02000000 A            NOP
     3045   01 01776    02000000 A            NOP
     3046   01 01777    02000000 A            NOP
     3047   01 01778    02000000 A            NOP
     3048   01 01779    72801B54              LB,R8    CARD:BUF
     3049   01 0177A    2180007B A            CI,R8    X'7B'
     3050   01 0177B    6830177F              BCR,3    %+4                                               *A04
     3051   01 0177C    EA6003CC              #TYPE    ERMSG6
            01 0177D    00005CE8 A
     3052   01 0177E    8F0003CA              XPSD,0   *#RUNADDR%
     3053   01 0177F    32801B54              LW,R8    CARD:BUF
     3054   01 01780    31801B6C              CW,R8    ENDT               ENDT= TEXT '#END'
     3055   01 01781    69301785              BCS,3    %+4               CARD:CON IS LOOKING FOR
     3056   01 01782    229FFFFF A            LI,R9    -1                A CARD WITH #END IN
     3057   01 01783    35901B6E              STW,R9   END:FLG           COLUMNS 1-4 TO EXIT THIS
     3058   01 01784    680017B5              B        GO:SNAP           PHASE OF SNAP GENERATION.
     3059                            *
     3060   01 01785    02000000 A   MOD#CHK  NOP                                                        *A03
     3061   01 01786    EA6003C2              #ETHCON,3 CARD:BUF,1
            01 01787    03006D51
     3062   01 01788    328003F2              LW,R8    MCR:NUM           MOD#CHK VALIDATES THE
     3063   01 01789    31600008 A            CW,X6    R8                MODULE NUMBERS ON EACH
     3064   01 0178A    6810178E              BCR,1    %+4               CARD                            *A04
     3065   01 0178B    EA6003CC              #TYPE    MOD:MSG
            01 0178C    00005EE8 A
     3066   01 0178D    E80003C9              B        *#FIDLE%
     3067   01 0178E    02000000 A            NOP
     3068   01 0178F    02000000 A            NOP
     3069   01 01790    02000000 A            NOP
     3070   01 01791    02000000 A            NOP
     3071   01 01792    68301794              BCR,3    %+2
     3072   01 01793    680017B5              B        GO:SNAP
     3073   01 01794    22800000 A            LI,R8    0
     3074   01 01795    35801B6F              STW,R8   RD:SW
     3075         01 01796           CONVERT  EQU      %
     3076   01 01796    328017A0              LW,R8    MSK:IDX+1         CONVERT, CONVERTS THE
     3077   01 01797    35801B71              STW,R8   IDX:SAV           EBCDIC CARD DATA INTO
     3078   01 01798    328017A3              LW,R8    MSK:DATA+1        HEX AND
     3079   01 01799    35801B72              STW,R8   DATA:SAV
     3080   01 0179A    22300001 A            LI,X3    1                                                 *A02
     3081   01 0179B    222FFFFA A            LI,X2    -6
     3082   01 0179C    32861B54              LW,R8    CARD:BUF,X3                                       *A02
     3083   01 0179D    31801A9D              CW,R8    SPACES                                            *A02
     3084   01 0179E    683017B1              BCR,3    RESTORE                                           *A02
     3085   01 0179F    EA6003C2     MSK:IDX  #ETHCON,2 CARD:BUF+1,1
            01 017A0    02006D55
     3086   01 017A1    32700006 A            LW,X7    X6
     3087                            *
     3088   01 017A2    EA6003C2     MSK:DATA #ETHCON  CARD:BUF+2
            01 017A3    00006D58
     3089   01 017A4    356E30F8              STW,X6    BIT:MSK-1,X7     STORES IT IN THE SELECTED
     3090   01 017A5    328017A0              LW,R8    MSK:IDX+1         BIT MASK POSITION.
     3091   01 017A6    2080000C A            AI,R8    12
     3092   01 017A7    358017A0              STW,R8   MSK:IDX+1
     3093   01 017A8    328017A3              LW,R8    MSK:DATA+1
     3094   01 017A9    2080000C A            AI,R8    12
     3095   01 017AA    358017A3              STW,R8   MSK:DATA+1
     3096   01 017AB    20300003 A            AI,X3    3
     3097   01 017AC    6520179C              BIR,X2   MSK:IDX-3
     3098   01 017AD    02000000 A            NOP
     3099   01 017AE    02000000 A            NOP
     3100   01 017AF    02000000 A            NOP
     3101   01 017B0    02000000 A            NOP
     3102   01 017B1    32801B71     RESTORE  LW,R8    IDX:SAV
     3103   01 017B2    358017A0              STW,R8   MSK:IDX+1
     3104   01 017B3    32801B72              LW,R8    DATA:SAV
     3105   01 017B4    358017A3              STW,R8   MSK:DATA+1
     3106                            *                                   THIS ROUTINE PERMITS THE
     3107         01 017B5           GO:SNAP  EQU      %                 GENERATE ROUTINE TO SHARE
     3108   01 017B5    02000000 A            NOP                                                        *A03
     3109   01 017B6    32201B40              LW,X2    FTFL              THE SNAP INITIALIZER
     3110   01 017B7    693011D2              BCS,3    SNAP:RUN          ROUTINE, EXCEPT SN:OEPTR
     3111   01 017B8    222031F9              LI,X2    SN:EXP            IS SET TO SN:EXP INSTEAD
     3112   01 017B9    680011B0              B        SNAP:CON+3        OF SN:OBS.
     3113                            *
     3114         01 017BA           MOD:MSG  TEXTCS   'MOD# SEQUENCE ERROR'
     3115                            *
     3116                               TITLE  'J PARAMETER LINE PROCESSING ROUTINE'
     3117         01 017BF           JH       TEXTCS   ' MSGDEV  COMDEV  SI CM  EM  CI MTADR  MIDEV'
     3118         01 017CA           JOUT     TEXTCS   '   0002    0001 00A  0   0   1 0080    0000'
     3119         01 017D5           JINIT    TEXTCS   '   0002    0001 00A  0   0   1 0080    0000'
     3120   01 017E0    00005F28              DATA     BA(JOUT)
     3121   01 017E1    00005EFC              DATA     BA(JH)
     3122                            *
     3123         01 017E2           JRTA     EQU      %
     3124   01 017E2    356017F3              STW,X6    JL:EXIT
     3125   01 017E3    70200006 A            LC       X6
     3126   01 017E4    E83003C9              BCR,3    *#FIDLE%          EXIT THIS ROUTINE IF NO
     3127                            *                                   CHANGES WERE MADE               *A04
     3128   01 017E5    223FFFF6 A            LI,X3    -10
     3129   01 017E6    328617D5              LW,R8    JOUT+11,X3
     3130   01 017E7    318621EE              CW,R8    PLINEIN+11,X3     USE JP:LST TO ENTER ONLY
     3131   01 017E8    683017EC              BCR,3    %+4               THOSE SUBROUTINES IN
     3132   01 017E9    B2C617FE              LW,R12   *JP:LST,X3        WHICH PARAMETER CHANGES
     3133   01 017EA    691017EC              BCS,1    %+2               WERE MADE BY THE USER.
     3134   01 017EB    EAF0000C A            BAL,R15  *R12
     3135   01 017EC    653017E6              BIR,X3   %-6
     3136   01 017ED    02000000 A            NOP
     3137   01 017EE    02000000 A            NOP
     3138   01 017EF    02000000 A            NOP
     3139   01 017F0    02000000 A            NOP
     3140   01 017F1    02000000 A            NOP
     3141   01 017F2    E80003C9              B        *#FIDLE%
     3142                            *
     3143   01 017F3    00000000 A   JL:EXIT  DATA     0
     3144                            *
     3145   01 017F4    010017FF              D        1,MSG:C           ARRANGED IN A 1 TO 1
     3146   01 017F5    FF000000 A            D        -1,0              CORRESPONDENCE WITH THE
     3147   01 017F6    02001810              D        2,COM:C           COMPUTER WORDS IN THE
     3148   01 017F7    03001819              D        3,SI:C            J-PARAMETER LINE.  NEG.
     3149   01 017F8    04001822              D        4,CM:C            ENTRIES ARE SPACE FIELDS
     3150   01 017F9    05001838              D        5,EM:C            IN THE J-LINE.
     3151   01 017FA    06001851              D        6,CI:C
     3152   01 017FB    07001862              D        7,MT:C
     3153   01 017FC    FF000000 A            D        -1,0
     3154   01 017FD    0800186C              D        8,MI:C
     3155   01 017FE    000017FE     JP:LST   DATA     %
     3156                            *
     3157         01 017FF           MSG:C    EQU      %
     3158   01 017FF    EA6003C2              #ETHCON,4 PLINEIN+1
            01 01800    04008790
     3159   01 01801    CD000006 A            TIO,0    *X6
     3160   01 01802    68801806              BCR,8    MSG:OK                                            *A02
     3161   01 01803    EA6003CC              #TYPE    NODEV                                             *A02
            01 01804    00006028 A
     3162   01 01805    68001892              B        ERR:RETJ
     3163   01 01806    35600397     MSG:OK   STW,X6    #PRTADDR
     3164   01 01807    326021E4              LW,X6    PLINEIN+1
     3165   01 01808    356017CB              STW,X6   JOUT+1
     3166   01 01809    E800000F A            B        *R15
     3167                            *
     3168         01 0180A           NODEV    TEXTCS   'DEVICE NOT AVAILABLE'                            *A02
     3169                            *
     3170         01 01810           COM:C    EQU      %
     3171   01 01810    EA6003C2              #ETHCON,4 PLINEIN+3
            01 01811    04008798
     3172   01 01812    CD000006 A            TIO,0    *X6
     3173   01 01813    68801815              BCR,8    %+2
     3174   01 01814    68001892              B        ERR:RETJ
     3175   01 01815    35600396              STW,X6    #TOADDR
     3176   01 01816    326021E6              LW,X6    PLINEIN+3
     3177   01 01817    356017CD              STW,X6    JOUT+3
     3178   01 01818    E800000F A            B        *R15
     3179                            *
     3180         01 01819           SI:C     EQU      %
     3181   01 01819    EA6003C2              #ETHCON,3 PLINEIN+4,1
            01 0181A    0300879D
     3182   01 0181B    48601B4F              EOR,X6    ONES
     3183   01 0181C    20600001 A            AI,X6    1
     3184   01 0181D    35601821              STW,X6    SI
     3185   01 0181E    326021E7              LW,X6    PLINEIN+4
     3186   01 0181F    356017CE              STW,X6    JOUT+4
     3187   01 01820    E800000F A            B        *R15
     3188                            *
     3189   01 01821    FFFFFFF6 A   SI       DATA     -10
     3190                            *
     3191         01 01822           CM:C     EQU      %
     3192   01 01822    EA6003C2              #ETHCON,1 PLINEIN+5,2
            01 01823    010087A2
     3193   01 01824    21600003 A            CI,X6    3
     3194   01 01825    6910182C              BL       SEQ:MAR
     3195   01 01826    21600009 A            CI,X6    9
     3196   01 01827    69201829              BG       %+2
     3197   01 01828    68001892              B        ERR:RETJ
     3198   01 01829    2160000D A            CI,X6    13
     3199   01 0182A    6910182C              BL       %+2
     3200   01 0182B    68001892              B        ERR:RETJ
     3201   01 0182C    6C800045 A   SEQ:MAR  RD,R8    X'45'
     3202   01 0182D    4B8013F1              AND,R8   NEW:CM
     3203   01 0182E    326C182B              LW,X6    CM:VALU,X6
     3204   01 0182F    48800006 A            EOR,R8   X6
     3205   01 01830    358013F9              STW,R8   CM:SAV                                            *A01
     3206   01 01831    358013F6              STW,R8   CM:ON                                             *A01
     3207   01 01832    326021E8              LW,X6    PLINEIN+5
     3208   01 01833    356017CF              STW,X6    JOUT+5
     3209   01 01834    E800000F A            B        *R15
     3210                            *
     3211         01 0182B           CM:VALU  EQU      %-10
     3212   01 01835    00000000 A            M        0,0,0,0,0,0,0
     3213   01 01836    00400000 A            M        0,0,0,1,0,0,0
     3214   01 01837    00800000 A            M        0,0,0,2,0,0,0
     3215                            *
     3216         01 01838           EM:C     EQU      %
     3217   01 01838    EA6003C2              #ETHCON,1 PLINEIN+6,2
            01 01839    010087A6
     3218   01 0183A    22800000 A            LI,R8    0
     3219   01 0183B    21600004 A            CI,X6    4
     3220   01 0183C    69101845              BL       SEQ:EM
     3221   01 0183D    21600009 A            CI,X6    9
     3222   01 0183E    69201840              BG       %+2
     3223   01 0183F    68001892              B        ERR:RETJ
     3224   01 01840    2160000E A            CI,X6    14
     3225   01 01841    69101843              BL       %+2
     3226   01 01842    68001892              B        ERR:RETJ
     3227   01 01843    206FFFF6 A            AI,X6    -10
     3228   01 01844    228FFFFF A            LI,R8    -1
     3229   01 01845    358013A9     SEQ:EM   STW,R8   EM:FLG
     3230   01 01846    48601B4F              EOR,X6    ONES
     3231   01 01847    20600001 A            AI,X6    1
     3232   01 01848    326C1850              LW,X6    EM:VALU,X6
     3233   01 01849    356013AA              STW,X6    EM
     3234   01 0184A    326021E9              LW,X6    PLINEIN+6
     3235   01 0184B    356017D0              STW,X6    JOUT+6
     3236   01 0184C    E800000F A            B        *R15
     3237                            *
     3238   01 0184D    FFFFFFFC A            DATA     -4
     3239   01 0184E    FFFFFFFD A            DATA     -3
     3240   01 0184F    FFFFFFFF A            DATA     -1
     3241   01 01850    00000000 A   EM:VALU  DATA     0
     3242                            *
     3243         01 01851           CI:C     EQU      %
     3244   01 01851    EA6003C2              #ETHCON,1 PLINEIN+7,2
            01 01852    010087AA
     3245   01 01853    32600006 A            LW,X6    X6
     3246   01 01854    68301858              BCR,3    %+4
     3247   01 01855    21600001 A            CI,X6    1
     3248   01 01856    6830185C              BCR,3    %+6
     3249   01 01857    68001892              B        ERR:RETJ
     3250   01 01858    22600000 A            LI,X6    0
     3251   01 01859    356011AC              STW,X6    CI:CNT
     3252   01 0185A    3560114A              STW,X6   SNAPINT
     3253   01 0185B    6800185D              B        %+2
     3254   01 0185C    2260E390 A            LI,X6    X'E390'
     3255   01 0185D    35601861              STW,X6    CI:SAV
     3256   01 0185E    326021EA              LW,X6    PLINEIN+7
     3257   01 0185F    356017D1              STW,X6    JOUT+7
     3258   01 01860    E800000F A            B        *R15
     3259                            *
     3260   01 01861    0000E390 A   CI:SAV   DATA     X'E390'
     3261                            *
     3262         01 01862           MT:C     EQU      %
     3263   01 01862    EA6003C2              #ETHCON,4 PLINEIN+8
            01 01863    040087AC
     3264   01 01864    CD000006 A            TIO,0    *X6
     3265   01 01865    68801867              BCR,8    %+2
     3266   01 01866    68001892              B        ERR:RETJ
     3267   01 01867    35601B49              STW,X6    TAPE0ADR
     3268   01 01868    326021EB              LW,X6    PLINEIN+8
     3269   01 01869    356017D2              STW,X6    JOUT+8
     3270   01 0186A    356017DD              STW,X6   JINIT+8
     3271   01 0186B    E800000F A            B        *R15
     3272                            *
     3273         01 0186C           MI:C     EQU      %
     3274   01 0186C    EA6003C2              #ETHCON,4 PLINEIN+10
            01 0186D    040087B4
     3275   01 0186E    CF001884              HIO,R0   *MI:ADR
     3276   01 0186F    CF000006 A            HIO,0    *X6
     3277   01 01870    CD000006 A            TIO,0    *X6
     3278   01 01871    68C01875              BCR,12   %+4                                               *A04
     3279   01 01872    EA6003CC              #TYPE    ERMSG8
            01 01873    00006214 A
     3280   01 01874    E800000F A            B        *R15
     3281   01 01875    22000C40              LI,R0    DA(TIC)
     3282   01 01876    CC000006 A            SIO,R0   *X6
     3283   01 01877    35601884              STW,X6   MI:ADR
     3284   01 01878    02000000 A            NOP
     3285   01 01879    02000000 A            NOP
     3286   01 0187A    02000000 A            NOP
     3287   01 0187B    02000000 A            NOP
     3288   01 0187C    326021ED              LW,X6    PLINEIN+10
     3289   01 0187D    356017D4              STW,X6   JOUT+10
     3290   01 0187E    E800000F A            B        *R15
     3291                            *
     3292                                     BOUND    8
     3293   01 01880    010042F8     TIC      J        1,AUTOTEST
     3294   01 01881    20000F9C A            I        2,(ESM:NULL-AUTOTEST)**2
     3295   01 01882    08000C40              D        8,DA(TIC)
     3296   01 01883    00000000 A            I        0
     3297                            *
     3298   01 01884    00000000 A   MI:ADR   DATA     X'0000'
     3299                            ERMSG8   TEXTCS   ;
     3300         01 01885            'NO RECOGNITION FROM MEMORY INTERFERRENCE ADDRESS'
     3301                            *
     3302   01 01892    B26617FE     ERR:RETJ LW,X6    *JP:LST,X3
     3303   01 01893    72600006 A            LB,X6    X6
     3304   01 01894    E80017F3              B        *JL:EXIT
     3305                            *
     3306                             TITLE  'K PARAMETER LINE PROCESSING ROUTINE'
     3307                            *
     3308         01 01895           KH       TEXTCS   'MST MSP MCR  LC  SO  CB  CE  SNPADR'
     3309         01 0189E           KOUT     TEXTCS   '001 000 001  00  00  00  00    0000'
     3310         01 018A7           KINIT    TEXTCS   '001 000 001  00  00  00  00    0000'
     3311                            *
     3312   01 018B0    00006278              DATA     BA(KOUT)
     3313   01 018B1    00006254              DATA     BA(KH)
     3314         01 018B2           KRTA     EQU      %
     3315   01 018B2    3560198C              STW,X6     KL:EXIT
     3316   01 018B3    70200006 A            LC       X6
     3317   01 018B4    E83003C9              BCR,3    *#FIDLE%
     3318   01 018B5    223FFFF7 A            LI,X3    -9                  !EXIT!  IF NOT,COMPARE THE ELEMENT
     3319   01 018B6    22800010 A            LI,R8    X'10'             OF KOUT AND PLINEIN  TO PROCESS ALL
     3320   01 018B7    758018F1              STB,R8   NEW:MST           THOSE NOT COMPARING.  RESET NEW:MST.
     3321   01 018B8    328618A7              LW,R8    KOUT+9,X3          NEW:MST WILL BE SET IN MST:C IF A
     3322   01 018B9    318621EC              CW,R8    PLINEIN+9,X3       NEW STARTING ADDRESS HAS BEEN
     3323   01 018BA    683018BD              BCR,3    %+3                REQUESTED.
     3324   01 018BB    32C618DD              LW,R12   KP:LST,X3            MOVE PLINEIN  INTO KOUT
     3325   01 018BC    EAF0000C A            BAL,R15  *R12
     3326   01 018BD    653018B8              BIR,X3   %-5
     3327   01 018BE    02000000 A            NOP
     3328   01 018BF    02000000 A            NOP
     3329   01 018C0    02000000 A            NOP
     3330   01 018C1    328003F1              LW,R8    MSP:NUM
     3331   01 018C2    318003F0              CW,R8    MST:NUM
     3332   01 018C3    681018C6              BGE      %+3
     3333   01 018C4    223FFFF8 A            LI,X3    -8
     3334   01 018C5    6800191D              B        ERR:RET
     3335   01 018C6    22FFFFFF A            LI,R15   -1
     3336   01 018C7    35F013CD              STW,R15  KL:FLG
     3337   01 018C8    6AF013AE              BAL,R15  LSTSERVO          SERVO LIST POINTER TO
     3338   01 018C9    22F00000 A            LI,R15   0                 THE SELECTED MODULE(MCR)
     3339   01 018CA    35F013CD              STW,R15  KL:FLG
     3340   01 018CB    35F01B40              STW,R15  FTFL
     3341   01 018CC    02000000 A            NOP
     3342   01 018CD    02000000 A            NOP
     3343   01 018CE    02000000 A            NOP
     3344   01 018CF    703018F1     GIDLE    LCF      NEW:MST
     3345   01 018D0    EA6003C9              BAL,X6    *#FIDLE%          ADDRESS AT RESTART IF REQUESTED.
     3346   01 018D1    000018D2              DATA     RESTART
     3347                            *
     3348                                     BOUND    8
     3349   01 018D2    000010BC     RESTART  DATA     START+2
     3350   01 018D3    00000000 A            DATA     0
     3351                            *
     3352   01 018D4    010018DF              D        1,MST:C
     3353   01 018D5    020018F3              D        2,MSP:C
     3354   01 018D6    03001908              D        3,MCR:C
     3355   01 018D7    04001920              D        4,LC:C
     3356   01 018D8    0500192F              D        5,SO:C
     3357   01 018D9    0600195A              D        6,CB:C
     3358   01 018DA    07001974              D        7,CE:C
     3359   01 018DB    000018DB              DATA     %
     3360   01 018DC    08001981              D        8,SNPADR:C
     3361   01 018DD    000018DD     KP:LST   DATA     %
     3362                            *
     3363   01 018DE    00000000 A            DATA     0
     3364         01 018DF           MST:C    EQU      %
     3365   01 018DF    35F018DE              STW,R15  %-1
     3366   01 018E0    22600000 A            LI,X6    0
     3367   01 018E1    356018F1              STW,X6   NEW:MST
     3368   01 018E2    EA6003C2              #ETHCON,3 PLINEIN,1
            01 018E3    0300878D
     3369   01 018E4    4B601B70              AND,X6    MOD:MSK          VERIFY THAT THE NEW MST IS SMALLER
     3370   01 018E5    6830191D              BCR,3    ERR:RET
     3371   01 018E6    316018F0              CW,X6    LST:NUM           THAN THE LAST MODULE NUMBER (+1).
     3372   01 018E7    6920191D              BG       ERR:RET
     3373   01 018E8    02000000 A            NOP
     3374   01 018E9    356003F2              STW,X6   MCR:NUM
     3375   01 018EA    356003F0              STW,X6    MST:NUM           SAVE VALID MST AT MST:NUM.
     3376   01 018EB    329021E3              LW,R9    PLINEIN
     3377   01 018EC    3590189E              STW,R9   KOUT
     3378   01 018ED    3090191C              AW,R9    MSB21
     3379   01 018EE    359018A0              STW,R9   KOUT+2
     3380   01 018EF    E80018DE              B        *MST:C-1
     3381                            *
     3382   01 018F0    00000000 A   LST:NUM  DATA     0
     3383   01 018F1    FFFFFFFF A   NEW:MST  DATA     -1
     3384                            *
     3385   01 018F2    00000000 A            DATA     0
     3386         01 018F3           MSP:C    EQU      %
     3387   01 018F3    35F018F2              STW,R15  %-1
     3388   01 018F4    22600000 A            LI,X6    0
     3389   01 018F5    356018F1              STW,X6   NEW:MST
     3390   01 018F6    EA6003C2              #ETHCON,3 PLINEIN+1,1      VERIFY THAT MSP IS SMALLER THAN THE
            01 018F7    03008791
     3391   01 018F8    4B601B70              AND,X6    MOD:MSK          LAST MODULE NUMBER (+1). AND GREATER
     3392   01 018F9    683018FC              BCR,3    %+3
     3393   01 018FA    2160016E A            CI,X6    LAST:MOD
     3394   01 018FB    6920191D              BG       ERR:RET
     3395   01 018FC    316003F0              CW,X6    MST:NUM
     3396   01 018FD    6910191D              BL       ERR:RET
     3397   01 018FE    356003F1              STW,X6    MSP:NUM          SAVE VOLID MSP AT MSP:NUM.
     3398   01 018FF    329021E4              LW,R9    PLINEIN+1
     3399   01 01900    3590189F              STW,R9   KOUT+1
     3400   01 01901    3290189E              LW,R9    KOUT
     3401   01 01902    3090191C              AW,R9    MSB21
     3402   01 01903    359018A0              STW,R9   KOUT+2
     3403   01 01904    329003F0              LW,R9    MST:NUM
     3404   01 01905    359003F2              STW,R9   MCR:NUM
     3405   01 01906    E80018F2              B        *MSP:C-1
     3406                            *
     3407   01 01907    00000000 A            DATA     0
     3408         01 01908           MCR:C    EQU      %
     3409   01 01908    35F01907              STW,R15  %-1
     3410   01 01909    22600000 A            LI,X6    0
     3411   01 0190A    356018F1              STW,X6   NEW:MST
     3412   01 0190B    EA6003C2              #ETHCON,3 PLINEIN+2,1      IF MCR IS BEYOND THE RANGE OF
            01 0190C    03008795
     3413   01 0190D    4B601B70              AND,X6    MOD:MSK          MST TO MSP SET IT EQUAL TO MST
     3414   01 0190E    316003F0              CW,X6    MST:NUM           AT SET:MCR.
     3415   01 0190F    69101916              BCS,1    SET:MCR
     3416   01 01910    316003F1              CW,X6    MSP:NUM
     3417   01 01911    69201916              BCS,2    SET:MCR
     3418   01 01912    356003F2              STW,X6    MCR:NUM
     3419   01 01913    329021E5              LW,R9    PLINEIN+2
     3420   01 01914    359018A0              STW,R9   KOUT+2
     3421   01 01915    E8001907              B        *MCR:C-1
     3422   01 01916    3290189E     SET:MCR  LW,R9    KOUT              STARTING POINT.
     3423   01 01917    3090191C              AW,R9    MSB21             MSB21 IS A CONSTANT THAT ADJUSTS THE
     3424   01 01918    359018A0              STW,R9   KOUT+2            KOUT BYTE COUNT TO A SPACE CODE X'40
     3425   01 01919    329003F0              LW,R9    MST:NUM
     3426   01 0191A    359003F2              STW,R9   MCR:NUM
     3427   01 0191B    E8001907              B        *MCR:C-1
     3428                            *
     3429   01 0191C    1D000000 A   MSB21    DATA     X'1D000000'
     3430                            *
     3431   01 0191D    B26618DD     ERR:RET  LW,X6    *KP:LST,X3
     3432   01 0191E    72600006 A            LB,X6    X6
     3433   01 0191F    E800198C              B        *KL:EXIT
     3434                            *
     3435         01 01920           LC:C     EQU      %
     3436   01 01920    EA6003C2              #ETHCON,2  PLINEIN+3,2
            01 01921    0200879A
     3437   01 01922    4B60192D              AND,X6     HFF             LOOP COUNT.  THE NUMBER
     3438   01 01923    48601B4F              EOR,X6    ONES             OF TIMES THRU THE MODULE
     3439   01 01924    20600001 A            AI,X6    1                 RANGE SPECIFIED BY
     3440   01 01925    3560192E              STW,X6     LCNT            MST/MSP.
     3441   01 01926    22600001 A            LI,X6    1
     3442   01 01927    356013CB              STW,X6   PASS:CNT
     3443   01 01928    22600000 A            LI,X6    0
     3444   01 01929    35601B3E              STW,X6   ERR:CNT
     3445   01 0192A    326021E6              LW,X6    PLINEIN+3
     3446   01 0192B    356018A1              STW,X6    KOUT+3
     3447   01 0192C    E800000F A            B        *R15
     3448                            *
     3449   01 0192D    000000FF A   HFF      DATA     X'FF'
     3450   01 0192E    00000000 A   LCNT     DATA     0
     3451                            *
     3452         01 0192F           SO:C     EQU      %                 SNAP OPTION PARAMETER VALIDATION.
     3453   01 0192F    22900000 A            LI,R9    0
     3454   01 01930    359014B6              STW,R9   SNAP:FLG
     3455   01 01931    359014B7              STW,R9   SNAP:UNC
     3456   01 01932    35901B40              STW,R9   FTFL
     3457   01 01933    359014BB              STW,R9   VER:FLG
     3458   01 01934    359018F1              STW,R9   NEW:MST
     3459   01 01935    2290E390 A            LI,R9    X'E390'
     3460   01 01936    35901861              STW,R9   CI:SAV
     3461   01 01937    EA6003C2              #ETHCON,2 PLINEIN+4,2
            01 01938    0200879E
     3462   01 01939    4B60192D              AND,X6    HFF
     3463   01 0193A    6830194F              BCR,3    SO:CEX
     3464   01 0193B    21600003 A            CI,X6    3                 IF LESS THAN 3 SET SO AND EXIT.
     3465   01 0193C    6910194F              BCS,1    SO:CEX
     3466   01 0193D    68301947              BCR,3    DO:SN
     3467   01 0193E    21600006 A            CI,X6    6
     3468   01 0193F    6910191D              BCS,1    ERR:RET
     3469   01 01940    21600008 A            CI,X6    8
     3470   01 01941    6910194F              BCS,1    SO:CEX
     3471   01 01942    6830191D              BCR,3    ERR:RET
     3472   01 01943    2160000C A            CI,X6    12
     3473   01 01944    6830191D              BCR,3    ERR:RET
     3474   01 01945    2160000D A            CI,X6    13
     3475   01 01946    6830191D              BCR,3    ERR:RET
     3476   01 01947    229FFFFF A   DO:SN    LI,R9    -1                IF GREATER THAN 8 SET SNAP:FLG
     3477   01 01948    359014B6              STW,R9   SNAP:FLG          IF SO=15 RESET SNAP;FLG AND SAME AS5
     3478   01 01949    359014B7              STW,R9   SNAP:UNC
     3479   01 0194A    22900000 A            LI,R9    0
     3480   01 0194B    35901861              STW,R9   CI:SAV
     3481   01 0194C    2290E390 A            LI,R9    X'E390'
     3482   01 0194D    6D901100 A            WD,R9    X'1100'
     3483   01 0194E    4B601B3A              AND,X6     CON7
     3484   01 0194F    35601A9C     SO:CEX   STW,X6    SO
     3485   01 01950    68301957              BCR,3    %+7
     3486   01 01951    21600007 A            CI,X6    7
     3487   01 01952    68301957              BCR,3    %+5
     3488   01 01953    21600003 A            CI,X6    3
     3489   01 01954    68301956              BCR,3    %+2
     3490   01 01955    356014BB              STW,X6   VER:FLG
     3491   01 01956    02000000 A            NOP
     3492   01 01957    329021E7              LW,R9    PLINEIN+4
     3493   01 01958    359018A2              STW,R9   KOUT+4
     3494   01 01959    E800000F A            B        *R15
     3495                            *
     3496         01 0195A           CB:C     EQU      %
     3497   01 0195A    22900000 A            LI,R9    0
     3498   01 0195B    35901B40              STW,R9   FTFL
     3499   01 0195C    35901973              STW,R9   WDT:SNAP
     3500   01 0195D    35901B43              STW,R9   CK:BIAS
     3501   01 0195E    EA6003C2              #ETHCON,2 PLINEIN+5,2
            01 0195F    020087A2
     3502   01 01960    32801971              LW,R8    NORM:SNP          CLOCK BIAS SETS THE CLOCK
     3503   01 01961    216000FF A            CI,X6    X'FF'             ON WHICH SNAPPING WILL
     3504   01 01962    69301965              BCS,3    %+3               BEGIN.
     3505   01 01963    226FFFFF A            LI,X6    -1
     3506   01 01964    32801972              LW,R8    LONG:SNP
     3507   01 01965    358011D6              STW,R8   SNAP:SW           IF CB IS SET TO X'FF'
     3508   01 01966    216000FE A            CI,X6    X'FE'
     3509   01 01967    6830196D              BCR,3    %+6
     3510   01 01968    21600000 A            CI,X6    0
     3511   01 01969    6830196B              BCR,3    %+2
     3512   01 0196A    206FFFFF A            AI,X6    -1
     3513   01 0196B    35601B43              STW,X6    CK:BIAS          SNAPPING WILL CONTINUE
     3514   01 0196C    6800196E              B        %+2
     3515   01 0196D    35601973              STW,X6   WDT:SNAP
     3516   01 0196E    329021E8              LW,R9    PLINEIN+5         UNTIL THE BUFFER IS FULL.
     3517   01 0196F    359018A3              STW,R9   KOUT+5
     3518   01 01970    E800000F A            B        *R15
     3519                            *
     3520   01 01971    681011D9     NORM:SNP BCR,1    SNAP:SW+3
     3521   01 01972    680011D9     LONG:SNP B        SNAP:SW+3
     3522   01 01973    00000000 A   WDT:SNAP DATA     0
     3523                            *
     3524         01 01974           CE:C     EQU      %                 CLOCK END SETS THE CLOCK
     3525   01 01974    32901754              LW,R9    CK:LIMIT          ON WHICH SNAPPING WILL
     3526   01 01975    35901B51              STW,R9   CE:PTR            STOP.
     3527   01 01976    EA6003C2              #ETHCON,2 PLINEIN+6,2
            01 01977    020087A6
     3528   01 01978    21600000 A            CI,X6    0                                                 *A02
     3529   01 01979    6830197C              BCR,3    %+3                                               *A02
     3530   01 0197A    02000000 A            NOP
     3531   01 0197B    35601B51              STW,X6   CE:PTR
     3532   01 0197C    02000000 A            NOP
     3533   01 0197D    02000000 A            NOP
     3534   01 0197E    329021E9              LW,R9    PLINEIN+6
     3535   01 0197F    359018A4              STW,R9   KOUT+6
     3536   01 01980    E800000F A            B        *R15
     3537                            *
     3538         01 01981           SNPADR:C EQU      %                 SNAP ADDRESS.  SET TO LOC
     3539   01 01981    EA6003C2              #ETHCON,4 PLINEIN+8        IN THE INITIALIZER.
            01 01982    040087AC
     3540   01 01983    316003AA              CW,X6    #MAXMEM           THE RANGE OF SNAPPABLE
     3541   01 01984    6920191D              BG       ERR:RET           ADDRESSES IS LIMITED TO
     3542   01 01985    02000000 A            NOP                        THE CODE PASSED THRU
     3543   01 01986    02000000 A            NOP                        AFTER SNAP IS ARMED AT
     3544   01 01987    02000000 A            NOP                        SET:SNAP AND TURNED OFF
     3545   01 01988    35601B52              STW,X6    SNAP:SET         AT SNAP:RUN.  THIS IS
     3546   01 01989    329021EB              LW,R9    PLINEIN+8         ESSENTIALLY THE AREA OF
     3547   01 0198A    359018A6              STW,R9   KOUT+8            LOC DURING SHORT LOOP.
     3548   01 0198B    E800000F A            B        *R15
     3549                            *
     3550   01 0198C    00000000 A   KL:EXIT  DATA     0
     3551                            *
1 C00   00:01 JUN 21,'83    SIGMA 8/9 CPU DIAG FLOAT 706135-11/51A05  6-20-73                     PAGE    9
A    3553                                     TITLE  '*****DISPLAY  LIST  ROUTINE  (DL) *****'
     3554                            *
     3555         01 0198D           DLTA     EQU      %
     3556   01 0198D    02000000 A            NOP
     3557   01 0198E    02000000 A            NOP
     3558   01 0198F    3260039C              LW,X6    #PARAM%H1         FIRST PARAMETER ENTERED.
     3559   01 01990    68301A33              BCR,3    BAD:PAR1                                          *A03
     3560   01 01991    316018F0              CW,X6    LST:NUM
     3561   01 01992    69201A33              BG       BAD:PAR1
     3562   01 01993    02000000 A            NOP
     3563   01 01994    02000000 A            NOP
     3564   01 01995    3260039D              LW,X6    #PARAM%H2         SECOND PARAMETER ENTERED.
     3565   01 01996    68301A35              BCR,3    BAD:PAR2                                          *A03
     3566   01 01997    02000000 A            NOP
     3567   01 01998    316018F0              CW,X6    LST:NUM
     3568   01 01999    69201A35              BG       BAD:PAR2
     3569   01 0199A    35600001 A            STW,X6    X1
     3570   01 0199B    EA6003CD              #PRINT   MSK:LST+7,F1      TOP OF FORM ONLY.
            01 0199C    F1006E0C A
     3571   01 0199D    328003F3              LW,R8    LISTPTR           SAVE CURRENT LIST POINTER
     3572   01 0199E    35801A30              STW,R8   LISTSAV           AND MCR SO THAT LISTSERVO
     3573   01 0199F    328003F2              LW,R8    MCR:NUM           ROUTINE CAN BE USED AS
     3574   01 019A0    35801A31              STW,R8   MCR:SAV           A SUBROUTINE.
     3575   01 019A1    229FFFFF A            LI,R9    -1
     3576   01 019A2    359013CD              STW,R9   KL:FLG
     3577   01 019A3    3280039C              LW,R8    #PARAM%H1
     3578   01 019A4    358003F2              STW,R8   MCR:NUM
     3579   01 019A5    31800001 A            CW,R8    X1
     3580   01 019A6    74001A32              STCF     END:SW
     3581   01 019A7    48101B4F              EOR,X1   ONES
     3582   01 019A8    70201A32              LC       END:SW
     3583   01 019A9    682019AC              BCR,2    %+3
     3584   01 019AA    20100001 A            AI,X1    1
     3585   01 019AB    680019AD              B        %+2
     3586   01 019AC    30100008 A            AW,X1    R8
     3587   01 019AD    6AF013AE              BAL,R15  LSTSERVO
     3588   01 019AE    22800000 A            LI,R8    0
     3589   01 019AF    358013CD              STW,R8   KL:FLG
     3590   01 019B0    35101A32     NEXT:MOD STW,X1   END:SW
     3591   01 019B1    02000000 A            NOP
     3592   01 019B2    02000000 A            NOP
     3593   01 019B3    02000000 A            NOP
     3594   01 019B4    02000000 A            NOP
     3595   01 019B5    02000000 A            NOP
     3596   01 019B6    02000000 A            NOP
     3597   01 019B7    6AF014D8              BAL,R15  MOD:HDR           USE MODULE HEADER ROUTINES
     3598   01 019B8    6AF014F8              BAL,R15  MOD:DATA          NORMALLY USED FOR SNAP
     3599   01 019B9    32101A32              LW,X1    END:SW            OUTPUT.
     3600   01 019BA    F28003F3              LB,R8    *LISTPTR
     3601   01 019BB    308003F3              AW,R8    LISTPTR
     3602   01 019BC    358003F3              STW,R8   LISTPTR
     3603   01 019BD    651019B0              BIR,X1   NEXT:MOD
     3604                            *
     3605   01 019BE    32801A30     EXIT:DL  LW,R8    LISTSAV           RESTORE LISTPTR AND MCR.
     3606   01 019BF    358003F3              STW,R8   LISTPTR
     3607   01 019C0    32801A31              LW,R8    MCR:SAV
     3608   01 019C1    358003F2              STW,R8   MCR:NUM
     3609   01 019C2    E80003C9              B        *#FIDLE%
     3610                            *
     3611   01 019C3    00000000 A            DATA     0
     3612   01 019C4    00000000 A            DATA     0
     3613         01 019C5           STATMSGS  EQU     %
     3614   01 019C5    35601A0B              STW,X6    STATEXIT         STATUS MESSAGE ROUTINE.
     3615   01 019C6    35C019C4              STW,R12  STATMSGS-1
     3616   01 019C7    35F019C3              STW,R15  STATMSGS-2        ENTERED FROM GUIDE IN
     3617   01 019C8    02000000 A            NOP                        RESPONSE TO AMPERSAND
     3618   01 019C9    02000000 A            NOP                        FROM READSTAT.  SEE TABLE3.
     3619   01 019CA    02000000 A            NOP
     3620   01 019CB    02000000 A            NOP
     3621   01 019CC    32C021C1              LW,R12   AMPER%EXPL
     3622   01 019CD    B5C003CE              STW,R12  *#ERRTEXT%
     3623   01 019CE    32C00393              LW,R12   #HDRFLG
     3624   01 019CF    21C01A1E              CI,R12   AMP:HDR
     3625   01 019D0    683019D3              BCR,3    %+3                                               *A04
     3626   01 019D1    EA6003CD              #PRINT   AMP:HDR
            01 019D2    C0006878 A
     3627   01 019D3    6AF01420              BAL,R15  ESM:MOD           ENTERED FROM MST:INIT IF
     3628   01 019D4    35C01A0C              STW,R12  AMP:BUF           THE SI PARAMETER IS AN
     3629   01 019D5    6AF01426              BAL,R15  ESM:EL            EVEN MULTIPLE OF THE
     3630   01 019D6    35C01A0D              STW,R12  AMP:BUF+1         PASS COUNT AND NOT =0.
     3631   01 019D7    EA6003C3              #HTECON  LOC
            01 019D8    0000118D
     3632   01 019D9    32CC0000 A            LW,R12   0,X6              STATMSGS SHARES MOST OF
     3633   01 019DA    35C01A0E              STW,R12  AMP:BUF+2         THE SUBROUTINES USED BY
     3634   01 019DB    32CC0001 A            LW,R12   1,X6              THE FT ERROR MESSAGE.
     3635   01 019DC    35C01A0F              STW,R12  AMP:BUF+3
     3636   01 019DD    6AF01436              BAL,R15  ESM:ERRS
     3637   01 019DE    35C01A10              STW,R12  AMP:BUF+4
     3638   01 019DF    6AF0143C              BAL,R15  ESM:PASS
     3639   01 019E0    35C01A11              STW,R12  AMP:BUF+5
     3640   01 019E1    32C017D0              LW,R12   JOUT+6
     3641   01 019E2    35C01A12              STW,R12  AMP:BUF+6
     3642   01 019E3    6AF01430              BAL,R15  ESM:MNEM
     3643   01 019E4    35C01A13              STW,R12  AMP:BUF+7
     3644   01 019E5    6AF01442              BAL,R15  ESM:CM
     3645   01 019E6    35C01A14              STW,R12  AMP:BUF+8
     3646   01 019E7    32C0189E              LW,R12   KOUT
     3647   01 019E8    30C0191C              AW,R12   MSB21
     3648   01 019E9    35C01A15              STW,R12  AMP:BUF+9
     3649   01 019EA    32C0189F              LW,R12   KOUT+1
     3650   01 019EB    35C01A16              STW,R12  AMP:BUF+10
     3651   01 019EC    6AF0145D              BAL,R15  ESM:CI
     3652   01 019ED    35C01A17              STW,R12  AMP:BUF+11
     3653   01 019EE    EA6003C3              #HTECON  TOT:ERRS
            01 019EF    000010B5
     3654   01 019F0    32CC0000 A            LW,R12   0,X6
     3655   01 019F1    35C01A18              STW,R12  AMP:BUF+12
     3656   01 019F2    32CC0001 A            LW,R12   1,X6
     3657   01 019F3    35C01A19              STW,R12  AMP:BUF+13
     3658   01 019F4    32C01A9D              LW,R12   SPACES                                            *A02
     3659   01 019F5    35C01A1A              STW,R12  AMP:BUF+14                                        *A02
     3660   01 019F6    35C01A1B              STW,R12  AMP:BUF+15                                        *A02
     3661   01 019F7    B2C003CA              LW,R12   *#RUNADDR%
     3662   01 019F8    EA6003C3              #HTECON  R12
            01 019F9    0000000C A
     3663   01 019FA    32CC0000 A            LW,R12   0,X6
     3664   01 019FB    35C01A1C              STW,R12  AMP:BUF+16
     3665   01 019FC    32CC0001 A            LW,R12   1,X6
     3666   01 019FD    35C01A1D              STW,R12  AMP:BUF+17
     3667   01 019FE    22C00047 A            LI,R12   71
     3668   01 019FF    75C01A0C              STB,R12  AMP:BUF
     3669   01 01A00    EA6003CD              #PRINT   AMP:BUF
            01 01A01    C0006830 A
     3670   01 01A02    22C01A1E              LI,R12   AMP:HDR
     3671   01 01A03    35C00393              STW,R12  #HDRFLG
     3672   01 01A04    02000000 A            NOP
     3673   01 01A05    02000000 A            NOP
     3674   01 01A06    02000000 A            NOP
     3675   01 01A07    02000000 A            NOP
     3676   01 01A08    32C019C4              LW,R12   STATMSGS-1
     3677   01 01A09    32F019C3              LW,R15   STATMSGS-2
     3678   01 01A0A    E8001A0B              B        *STATEXIT
     3679                            *
     3680   01 01A0B    00000000 A   STATEXIT DATA     0
     3681                            *
     3682         01 01A0C           AMP:BUF  EQU      %
     3688                            *
     3689                            AMP:HDR  TEXTCS  'MOD EL TESTINST E/P PAS EM MNEM ',;
     3690         01 01A1E                    'CM  MST MSP CI TOT:ERRS        PROGADDR'
     3691                            *
     3692   01 01A30    00000000 A   LISTSAV  DATA     0
     3693   01 01A31    00000000 A   MCR:SAV  DATA     0
     3694                            *
     3695   01 01A32    00000000 A   END:SW   DATA     0
     3696   01 01A33    32801A3A     BAD:PAR1 LW,R8    TXTP1
     3697   01 01A34    68001A36              B        %+2
     3698   01 01A35    32801A3B     BAD:PAR2 LW,R8    TXTP2
     3699   01 01A36    35801A3E              STW,R8   PAR:ERR+2
     3700   01 01A37    EA6003CD              #PRINT   PAR:ERR
            01 01A38    C00068F0 A
     3701   01 01A39    E80003C9              B        *#FIDLE%
     3702                            *
     3703   01 01A3A    40D7F140 A   TXTP1    TEXT     ' P1 '
     3704   01 01A3B    40D7F240 A   TXTP2    TEXT     ' P2 '
     3705                            *
     3706         01 01A3C           PAR:ERR  TEXTCS   'INVALID P1 PARAMETER.'
1 C00   00:01 JUN 21,'83    SIGMA 8/9 CPU DIAG FLOAT 706135-11/51A05  6-20-73                     PAGE   10
A    3708                            *
     3709                                TITLE   'MODULE RANGE (MR) ROUTINE'
     3710                            *
     3711         01 01A42           DRTA     EQU      %
     3712   01 01A42    328003A2              LW,R8    #PARAM1
     3713   01 01A43    69301A52              BCS,3    DR:ERET           SEARCH MNEMONIC LIST WITH
     3714   01 01A44    328003A3              LW,R8    #PARAM1+1         INPUT PARAMETER.
     3715   01 01A45    69101A4C              BCS,1    PAR1:LJ
     3716   01 01A46    222FFFF8 A            LI,X2    -8
     3717   01 01A47    30800008 A            AW,R8    R8
     3718   01 01A48    65201A47              BIR,X2   %-1
     3719   01 01A49    20800040 A            AI,R8    X'40'
     3720   01 01A4A    358003A3              STW,R8   #PARAM1+1
     3721   01 01A4B    68001A44              B        DRTA+2
     3722                            *
     3723   01 01A4C    221FFF80 A   PAR1:LJ  LI,X1    -128
     3724   01 01A4D    22200000 A            LI,X2    0
     3725   01 01A4E    31841B9E              CW,R8    MNEMLIST,X2
     3726   01 01A4F    68301A5A              BCR,3    MNEM:X2
     3727   01 01A50    20200001 A            AI,X2    1
     3728   01 01A51    65101A4E              BIR,X1   PAR1:LJ+2
     3729   01 01A52    EA6003CC     DR:ERET  #TYPE    MNEM:MSG
            01 01A53    00006954 A
     3730   01 01A54    E80003C9              B        *#FIDLE%
     3731                            *
     3732   01 01A55    10C9D5E5 A   MNEM:MSG TEXTC    'INVALID MNEMONIC'
            01 01A56    C1D3C9C4 A
            01 01A57    40D4D5C5 A
            01 01A58    D4D6D5C9 A
            01 01A59    C3404040 A
     3733                            *
     3734   01 01A5A    22100004 A   MNEM:X2  LI,X1    4
     3735   01 01A5B    32801A9D              LW,R8    SPACES
     3736   01 01A5C    35801B26              STW,R8   OUTBUF
     3737   01 01A5D    22802246              LI,R8    LIST
     3738   01 01A5E    F2900008 A            LB,R9    *R8
     3739   01 01A5F    F2A20008 A            LB,R10   *R8,X1
     3740   01 01A60    4BA01B3B              AND,R10  CON7F
     3741   01 01A61    31A00002 A            CW,R10   X2
     3742   01 01A62    68301A67              BCR,3    %+5
     3743   01 01A63    30800009 A            AW,R8    R9
     3744   01 01A64    218030CF              CI,R8    LASTMODULE
     3745   01 01A65    68301A52              BCR,3    DR:ERET
     3746   01 01A66    68001A5E              B        MNEM:X2+4
     3747                            *
     3748   01 01A67    B2C00008 A            LW,R12   *R8
     3749   01 01A68    EA6003C3              #HTECON  R12
            01 01A69    0000000C A
     3750   01 01A6A    32CC0001 A            LW,R12   1,X6
     3751   01 01A6B    223FFFF8 A            LI,X3    -8
     3752   01 01A6C    30C0000C A            AW,R12   R12
     3753   01 01A6D    65301A6C              BIR,X3   %-1
     3754   01 01A6E    20C00040 A            AI,R12   X'40'
     3755   01 01A6F    35C01B27              STW,R12  OUTBUF+1
     3756   01 01A70    32C01A89              LW,R12   THRU:TXT
     3757   01 01A71    35C01B28              STW,R12  OUTBUF+2
     3758   01 01A72    30800009 A            AW,R8    R9
     3759   01 01A73    75901A88              STB,R9   TOO:FAR
     3760   01 01A74    F2900008 A            LB,R9    *R8
     3761   01 01A75    F2A20008 A            LB,R10   *R8,X1
     3762   01 01A76    4BA01B3B              AND,R10  CON7F
     3763   01 01A77    31A00002 A            CW,R10   X2
     3764   01 01A78    68301A72              BCR,3    %-6
     3765   01 01A79    72901A88              LB,R9    TOO:FAR
     3766   01 01A7A    48901B4F              EOR,R9   ONES
     3767   01 01A7B    20900001 A            AI,R9    1
     3768   01 01A7C    30800009 A            AW,R8    R9
     3769   01 01A7D    B2C00008 A            LW,R12   *R8
     3770   01 01A7E    EA6003C3              #HTECON  R12
            01 01A7F    0000000C A
     3771   01 01A80    32CC0001 A            LW,R12   1,X6
     3772   01 01A81    4BC01B3C              AND,R12  LS:MSK
     3773   01 01A82    35C01B29              STW,R12  OUTBUF+3
     3774   01 01A83    22C0000F A            LI,R12   15
     3775   01 01A84    75C01B26              STB,R12  OUTBUF
     3776   01 01A85    EA6003CC              #TYPE    OUTBUF
            01 01A86    00006C98 A
     3777   01 01A87    E80003C9              B        *#FIDLE%
     3778                            *
     3779   01 01A88    00000000 A   TOO:FAR  DATA     0
     3780   01 01A89    E3C8D9E4 A   THRU:TXT TEXT     'THRU'
     3781                            *
     3782   01 01A8A    F1F2F3F4 A   ALPHATXT TEXT     '1234ABCDEFGHIJKLMNOPQRSTUVWXYZ'
            01 01A8B    C1C2C3C4 A
            01 01A8C    C5C6C7C8 A
            01 01A8D    C9D1D2D3 A
            01 01A8E    D4D5D6D7 A
            01 01A8F    D8D9E2E3 A
            01 01A90    E4E5E6E7 A
            01 01A91    E8E94040 A
     3783                            *
     3784                                TITLE   'CONSTANTS & DATA STORAGE AREA'
     3785                            *
     3786   01 01A92    00000000 A   SAVE     DATA     0                                                 *A04
     3787   01 01A93    00000000 A   CK:CTR   DATA     0
     3788   01 01A94    00000000 A   SN:OBPTR DATA     0
     3789   01 01A95    00000000 A   SN:EXPTR DATA     0
     3790   01 01A96    40614040 A   DISRGD   DATA     X'40614040'
     3791   01 01A97    405C4040 A   ASTRSK   DATA     X'405C4040'
     3792   01 01A98    00000000 A   CMP:ERR  DATA     0
     3793   01 01A99    00000000 A   FLG126   DATA     0
     3794   01 01A9A    00000000 A   FLAG7    DATA     0
     3795   01 01A9B    00000000 A   OB:SW    DATA     0
     3796   01 01A9C    00000000 A   SO       DATA     0
     3797   01 01A9D    40404040 A   SPACES   DATA     X'40404040'
     3798                                     BOUND    8
     3799   01 01A9E    01006ABA     DCB:DW0  D        1,BA(SN:COL0)+2
     3800   01 01A9F    80000004 A            I        8,4
     3801   01 01AA0    01006AC0              J        1,SN:COL1
     3802   01 01AA1    8000000A A            I        8,10
     3803   01 01AA2    01006ACC              J        1,SN:COL2
     3804   01 01AA3    8000000A A            I        8,10
     3805   01 01AA4    01006AD8              J        1,SN:COL3
     3806   01 01AA5    8000000A A            I        8,10
     3807   01 01AA6    01006AE4              J        1,SN:COL4
     3808   01 01AA7    8000000A A            I        8,10
     3809   01 01AA8    01006AF0              J        1,SN:COL5
     3810   01 01AA9    8000000A A            I        8,10
     3811   01 01AAA    01006AFC              J        1,SN:COL6
     3812   01 01AAB    8000000A A            I        8,10
     3813   01 01AAC    01006B08              J        1,SN:COL7
     3814   01 01AAD    0000000A A            I        0,10
     3815                            *
     3816         01 01AAE           DC:BUF   EQU      %                 DATA CHAINING BUFFER FOR SNAP
     3817   01 01AAE    00000000 A   SN:COL0  DATA     0
     3818   01 01AAF    00000000 A            DATA     0
     3819   01 01AB0    00000000 A   SN:COL1  DATA     0
     3820   01 01AB1    00000000 A            DATA     0
     3821   01 01AB2    00000000 A            DATA     0
     3822   01 01AB3    00000000 A   SN:COL2  DATA     0
     3823   01 01AB4    00000000 A            DATA     0
     3824   01 01AB5    00000000 A            DATA     0
     3825   01 01AB6    00000000 A   SN:COL3  DATA     0
     3826   01 01AB7    00000000 A            DATA     0
     3827   01 01AB8    00000000 A            DATA     0
     3828   01 01AB9    00000000 A   SN:COL4  DATA     0
     3829   01 01ABA    00000000 A            DATA     0
     3830   01 01ABB    00000000 A            DATA     0
     3831   01 01ABC    00000000 A   SN:COL5  DATA     0
     3832   01 01ABD    00000000 A            DATA     0
     3833   01 01ABE    00000000 A            DATA     0
     3834   01 01ABF    00000000 A   SN:COL6  DATA     0
     3835   01 01AC0    00000000 A            DATA     0
     3836   01 01AC1    00000000 A            DATA     0
     3837   01 01AC2    00000000 A   SN:COL7  DATA     0
     3838   01 01AC3    00000000 A            DATA     0
     3839   01 01AC4    00000000 A            DATA     0
     3840   01 01AC5    00000000 A   SN:COL8  DATA     0
     3841   01 01AC6    00000000 A            DATA     0
     3842   01 01AC7    00000000 A            DATA     0
     3843                            *
     3844   01 01AC8    00000010 A            DATA     16                PHASE
     3845   01 01AC9    00000000 A            DATA     0                 A
     3846   01 01ACA    00000002 A            DATA     2                 B
     3847   01 01ACB    00000004 A            DATA     4                 S
     3848   01 01ACC    00000006 A            DATA     6                 C  DISRGD
     3849   01 01ACD    00000009 A            DATA     9                 D
     3850   01 01ACE    00000007 A            DATA     7                 CA  DISRGD
     3851         01 01ACF           SO:LINE0 EQU      %
     3852                            *
     3853   01 01ACF    00000010 A            DATA     16                PHASE
     3854   01 01AD0    00000001 A            DATA     1                 A(L)
     3855   01 01AD1    00000003 A            DATA     3                 B(L)
     3856   01 01AD2    00000005 A            DATA     5                 S(L)  DISRGD
     3857   01 01AD3    00000008 A            DATA     8                 C(L)  DISRGD
     3858   01 01AD4    0000000B A            DATA     11                D(L)
     3859   01 01AD5    0000000A A            DATA     10                DA
     3860         01 01AD6           SO:LINE1 EQU      %
     3861                            *
     3862   01 01AD6    00000010 A            DATA     16                PHASE
     3863   01 01AD7    00000012 A            DATA     18                LB  DISRGD
     3864   01 01AD8    00000016 A            DATA     22                P24
     3865   01 01AD9    00000011 A            DATA     17                MEM
     3866   01 01ADA    00000015 A            DATA     21                E/F
     3867   01 01ADB    00000013 A            DATA     19                C1
     3868   01 01ADC    00000014 A            DATA     20                C2
     3869         01 01ADD           SO:LINE2 EQU      %
     3870                            *
     3871   01 01ADD    00001AAE              DATA     SN:COL0
     3872   01 01ADE    00001AB0              DATA     SN:COL1
     3873   01 01ADF    00001AB3              DATA     SN:COL2
     3874   01 01AE0    00001AB6              DATA     SN:COL3
     3875   01 01AE1    00001AB9              DATA     SN:COL4
     3876   01 01AE2    00001ABC              DATA     SN:COL5
     3877   01 01AE3    00001ABF              DATA     SN:COL6
     3878   01 01AE4    00001AC2              DATA     SN:COL7
     3879         01 01AE5           DCB:LST  EQU      %
     3880                            *
     3881   01 01AE5    00001ACF     LINE0ADR DATA     SO:LINE0
     3882   01 01AE6    00001AD6     LINE1ADR DATA     SO:LINE1
     3883   01 01AE7    00001ADD     LINE2ADR DATA     SO:LINE2
     3884         01 01AE8           LINEADR  EQU      %
     3885                            *
     3886                            SN:HDR0  TEXTCS   'CLK  PHASE    A(00-31)  B(00-31)  S(00-31)',;
     3887         01 01AE8                             '  C(00-31)  D(00-31)  CA(0-31)'
     3888                            SN:HDR1  TEXTCS   'CLK  PHASE    A(46-71)  B(46-71)  S(46-71)',;
     3889         01 01AFB                             '  C(47-71)  D(46-71)  DA(0-31)'
     3890                            SN:HDR2  TEXTCS   'CLK  PHASE    LB &SPEC  P24PS3Q4  MEMORYSW',;
     3891         01 01B0E                             '  E07F2431   CONT1     CONT2'
     3892                            *
     3893   01 01B20    00006BA0              DATA     BA(SN:HDR0)
     3894   01 01B21    00006BEC              DATA     BA(SN:HDR1)
     3895   01 01B22    00006C38              DATA     BA(SN:HDR2)
     3896         01 01B23           HDR:ADR  EQU      %
     3897                            *
     3898   01 01B23    00000001 A   ONE      DATA     1
     3899   01 01B24    00000004 A   FOUR     DATA     4
     3900   01 01B25    0000000F A   FIFTEEN  DATA     15
     3901   01 01B26                 OUTBUF   RES      18
     3902   01 01B38    00000048 A   OB:CNT   DATA     72
     3903   01 01B39    00000000 A   PASSES   DATA     0
     3904   01 01B3A    00000007 A   CON7     DATA     7
     3905   01 01B3B    0000007F A   CON7F    DATA     X'7F'
     3906   01 01B3C    40FFFFFF A   LS:MSK   DATA     X'40FFFFFF'
     3907   01 01B3D    4040FFFF A   LS:MSK2  DATA     X'4040FFFF'
     3908   01 01B3E    00000000 A   ERR:CNT  DATA     0
     3909   01 01B3F    00000000 A   ERR:FLG  DATA     0
     3910   01 01B40    00000000 A   FTFL     DATA     0
     3911   01 01B41    00000000 A   MA:PTR   DATA     0
     3912   01 01B42    00000000 A   LC:FLG   DATA     0
     3913   01 01B43    00000000 A   CK:BIAS  DATA     0
     3914   01 01B44    00000000 A   CK:PTR   DATA     0
     3915   01 01B45    00000002 A            DATA     2
     3916   01 01B46    00000002 A            DATA     2
     3917   01 01B47    00000002 A            DATA     2
     3918         01 01B48           CK:SAV   EQU      %
     3919   01 01B48    00000000 A   LC:EXIT  DATA     0
     3920   01 01B49    00000080 A   TAPE0ADR DATA     X'80'
     3921   01 01B4A    00000081 A   TAPE1ADR DATA     X'81'
     3922   01 01B4B    00000082 A   TAPE2ADR DATA     X'82'
     3923   01 01B4C    00000003 A   CARDADR  DATA     3
     3924   01 01B4D    00000001 A   COMADR   DATA     1
     3925   01 01B4E    00000002 A   MSGADR   DATA     2
     3926   01 01B4F    FFFFFFFF A   ONES     DATA     -1
     3927   01 01B50    00000000 A   TAPE:PTR DATA     0
     3928   01 01B51    00000000 A   CE:PTR   DATA     0
     3929   01 01B52    0100118D     SNAP:SET GEN,8,7,17 1,0,LOC
     3930   01 01B53    0100118D     SNAP:INI GEN,8,7,17   1,0,LOC
     3931                            *
     3932         01 01B54           CARD:BUF EQU      %
     3933         01 01B54           IC:MSG   TEXTCS   'INSUFFICIENT CORE TO GENERATE SNAP DATA.'
     3934   01 01B5F                          RES      10
     3935                                     BOUND    8
     3936   01 01B6A    06006D50     CARDIOCD J        6,CARD:BUF
     3937   01 01B6B    00000050 A            D        0,80
     3938   01 01B6C    7BC5D5C4 A   ENDT     TEXT     '#END'
     3939   01 01B6D    00000000 A   CARD:SW  DATA     0
     3940   01 01B6E    00000000 A   END:FLG  DATA     0
     3941   01 01B6F    00000000 A   RD:SW    DATA     0
     3942   01 01B70    00000FFF A   MOD:MSK  DATA     X'FFF'
     3943   01 01B71    00000000 A   IDX:SAV  DATA     0
     3944   01 01B72    00000000 A   DATA:SAV DATA     0
     3945                            *
     3946                                     BOUND    8
     3947   01 01B74    00000000 A   PSW1     PZE                                                            AUTO7400
     3948   01 01B75    00000000 A   PSW2     PZE                                                            AUTO7410
     3949   01 01B76    00000000 A   PSW1SAV  DATA     0
     3950   01 01B77    00000000 A   PSW2SAV  DATA     0
     3951   01 01B78    0000118D     LOCADR   DATA     LOC
     3952   01 01B79    0001FFFF A   ADR:MSK  DATA     X'1FFFF'
     3953   01 01B7A    000030F0     IA       DATA     MEMORY
     3954                            *
     3955                            *
     3956                            *
     3957                            *     ************CONSTANTS AND WORKING STORAGE************
     3958                            *
     3959                            *
     3960                                     BOUND    8
     3961         01 01B7C           MSK:LST  EQU      %
     3962   01 01B7C    80000000 A            DATA     X'80000000'
     3963   01 01B7D    40000000 A            DATA     X'40000000'
     3964   01 01B7E    20000000 A            DATA     X'20000000'
     3965   01 01B7F    10000000 A            DATA     X'10000000'
     3966   01 01B80    08000000 A            DATA     X'8000000'
     3967   01 01B81    04000000 A            DATA     X'4000000'
     3968   01 01B82    02000000 A            DATA     X'2000000'
     3969   01 01B83    01000000 A            DATA     X'1000000'
     3970   01 01B84    00800000 A            DATA     X'800000'
     3971   01 01B85    00400000 A            DATA     X'400000'
     3972   01 01B86    00200000 A            DATA     X'200000'
     3973   01 01B87    00100000 A            DATA     X'100000'
     3974   01 01B88    00080000 A            DATA     X'80000'
     3975   01 01B89    00040000 A            DATA     X'40000'
     3976   01 01B8A    00020000 A            DATA     X'20000'
     3977   01 01B8B    00010000 A            DATA     X'10000'
     3978   01 01B8C    00008000 A            DATA     X'8000'
     3979   01 01B8D    00004000 A            DATA     X'4000'
     3980   01 01B8E    00002000 A            DATA     X'2000'
     3981   01 01B8F    00001000 A            DATA     X'1000'
     3982   01 01B90    00000800 A            DATA     X'800'
     3983   01 01B91    00000400 A            DATA     X'400'
     3984   01 01B92    00000200 A            DATA     X'200'
     3985         01 01B93           MSK:BTM  EQU      %
     3986   01 01B93    00000100 A            DATA     X'100'
     3987   01 01B94    00000080 A            DATA     X'80'
     3988   01 01B95    00000040 A            DATA     X'40'
     3989   01 01B96    00000020 A            DATA     X'20'
     3990   01 01B97    00000010 A            DATA     X'10'
     3991   01 01B98    00000008 A            DATA     X'8'
     3992   01 01B99    00000004 A            DATA     X'4'
     3993   01 01B9A    00000002 A            DATA     X'2'
     3994   01 01B9B    00000001 A            DATA     X'1'
     3995   01 01B9C    7FFFFFFF A            DATA     X'7FFFFFFF'
     3996                                     BOUND    8
     3997                            *
     3998         01 01B9E           MNEMLIST EQU      %
     4130                            *
     4131         01 01C1E           PROGTEXT TEXTCS   'FLOAT A05'                                       *A05
     4132                                     TEXTCS   'SIGMA 8/9 CPU DIAGNOSTIC PROGRAM 706135-';
     4133         01 01C21                    ,'A05 MANUAL 901878'                                       *A05
     4134                            *
     4135                            *          **********
     4136         01 01C30           STAT%EXPL  TEXTCS 'STATUS REPORT EXPLANATION'
     4137                                     TEXTCS   ;
     4138         01 01C37            '&      CAUSES OUTPUT OF THE CURRENT TESTING STATUS'
     4139                            *
     4140                                     TEXTCS   ;
     4141         01 01C44            'THE ITEMS THAT MAKE-UP THE STATUS MESSAGE ARE TAKEN FROM THE'
     4142                                     TEXTCS   ;
     4143         01 01C54            'FUNCTIONAL TEST ERROR MESSAGE AND THE J AND K PARAMETER LINES.'
     4144                                     TEXTCS   ;
     4145         01 01C64            'TOTAL ERRORS DIFFERS FROM ERRORS PER PASS BY ONLY GETTING'
     4146                                     TEXTCS   ;
     4147         01 01C73            ' RESET ON ABSOLUTE RECOVERY.  PROGADDR IS THE PROGRAM ADDRESS'
     4148                                     TEXTCS   ;
     4149         01 01C83            'AT THE TIME THE &  KEY WAS DEPRESSED.'
     4150                            SYNTAX%EXPL TEXTCS      ;
     4151                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
     4152         01 01C8D            ' EXPLANATION,'
     4153                                     TEXTCS   ;
     4154         01 01C9F            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
     4155         01 01CAB                    TEXTCS   ' '
     4156                                     TEXTCS   ;
     4157         01 01CAC            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
     4158         01 01CBC                    TEXTCS   ' '
     4159                                     TEXTCS   ;
     4160         01 01CBD            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
     4161                                     TEXTCS   ;
     4162         01 01CCC            'THE SPECIFIED ACTION.'
     4163         01 01CD2                    TEXTCS   ' '
     4164                                     TEXTCS   ;
     4165         01 01CD3            '(1) ''@''-ABSOLUTE RECOVERY,DOES SAME AS''SYSTEM RESET''FROM PCP'
     4166         01 01CE3                    TEXTCS   ' '
     4167                                     TEXTCS   ;
     4168         01 01CE4            '(2) ''%''-FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING PCP'
     4169                                     TEXTCS   ;
     4170         01 01CF4            '     ''COMPUTE''SWITCH TO ''IDLE''.  WHEN OUTPUT TO KSR, IT MEANS'
     4171                                     TEXTCS   ;
     4172         01 01D04            '     THE PROGRAM IS WAITING FOR INPUT.'
     4173         01 01D0E                    TEXTCS   ' '
     4174                                     TEXTCS   ;
     4175         01 01D0F            '(3) ''#''- FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
     4176                                     TEXTCS   ;
     4177         01 01D1F            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
     4178         01 01D2A                    TEXTCS   ' '
     4179                                     TEXTCS   ;
     4180         01 01D2B            '(4) ''QUEST. MARK''-OUTPUTS SYNTAX GLOSS. AFTER ''@'' PROMPT,'
     4181                                     TEXTCS   ;
     4182         01 01D3A            '     OR CURRENT ''REQUEST'' EXPL. AFTER KEYIN, OR CURRENT ERROR EXPL.'
     4183                                     TEXTCS   ;
     4184         01 01D4B            '     AFTER AN ERROR MSG.'
     4185         01 01D52           DM%EXPL  TEXTCS   ' '
     4186                                     TEXTCS   ;
     4187         01 01D53            '(5) ''DM>X,Y''- DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
     4188         01 01D64           RM%EXPL  TEXTCS   ' '
     4189                                     TEXTCS   ;
     4190         01 01D65            '(6) ''RM>X,Y'' - DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
     4191                                     TEXTCS   ;
     4192         01 01D74             '      REPLACEMENT OF WORD DISPLAYED.'
     4193         01 01D7E                    TEXTCS   ' '
     4194         01 01D7F           S%EXPL   EQU      %
     4195                                     TEXTCS   ;
     4196         01 01D7F            '(7)"SS"-SENSE SWITCH OPTIONS DISPLAY TO MSG DEV THE CURRENT'       *A03
     4197                                     TEXTCS   ;
     4198         01 01D8E            '     SENSE SWITCH (SOFTWARE) STATUS AND ALLOW USER TO MODIFY STATUS'
     4199                                     TEXTCS   ;
     4200         01 01D9F            '      SW1=1 SHORT LOOP     SW1  OVERRIDES ALL OTHERS'
     4201                                     TEXTCS   ;
     4202         01 01DAD            '      SW2=1 LONG LOOP     REPORTS ERRORS IF SW4=0'
     4203                                     TEXTCS   ;
     4204         01 01DBA            '      SW3=1 NO HALT ON ERROR'
     4205                                     TEXTCS   ;
     4206         01 01DC2            '      SW4=1 SUPPRESS ERROR MESSAGES ONLY - NOT STATUS'
     4207                                     TEXTCS   ;                                                 *A03
     4208         01 01DD0            '      PCP IF M=1, SOFTWARE SS IF M=0'                             *A03
     4209         01 01DDA                    TEXTCS   ' '
     4210                            *
     4211                            ******************************************************************
     4212                            *  DESIGNER INSERTS HIS SYNTAX EXPLANATIONS HERE
     4213                            ******************************************************************
     4214                            DL%EXPL  TEXTCS   ;
     4215         01 01DDB            '  ''DL'' MEANS DISPLAY MODULE DATA'
     4216                                     TEXTCS   ;
     4217         01 01DE4            'DL>XXX,YYY,   CAUSES A DISPLAY OF MODULES FROM XXX TO YYY'
     4218                                     TEXTCS   ;
     4219         01 01DF3            '        IF YYY<XXX IT IS USED AS THE # TO BE DISPLAYED'
     4220                            J%EXPL   TEXTCS   ;
     4221         01 01E01            'J      SELECTS PROGRAM CONTROL PARAMETERS'
     4222                                     TEXTCS   ;
     4223         01 01E0C            '** PARAMETER LINE J (CONTROL  LINE) EXPLANATION'
     4224                                     TEXTCS   ;
     4225         01 01E18            'MSGDEV          MESSAGE OUTPUT DEVICE NUMBER'
     4226                                     TEXTCS   ;
     4227         01 01E24            'COMDEV          COMMUNICATION DEVICE NUMBER'
     4228                                     TEXTCS   ;
     4229         01 01E2F            'SI              STATUS INTERVAL'
     4230                                     TEXTCS   ;
     4231         01 01E37            '                  THE INTERVAL (TIME OR PASSES) BETWEEN AUTOMATIC'
     4232                                     TEXTCS   ;
     4233         01 01E48            '                      STATUS REPORTS    0=INFINITY'
     4234                                     TEXTCS   ;
     4235         01 01E55            'CM              CLOCK MARGIN'
     4236                                     TEXTCS   ;
     4237         01 01E5D            'MARGIN LIMITS:'
     4238                                     TEXTCS   ;
     4239         01 01E61            '     PROGRAM CONTROLLED    USER CONTROLLED (FIXED)'
     4240                                     TEXTCS   ;
     4241         01 01E6E            '       0 = NORMAL             A = NORMAL'
     4242                                     TEXTCS   ;
     4243         01 01E79            '       1 = HIGH               B = HIGH'
     4244                                     TEXTCS   ;
     4245         01 01E83            '       2 = LO                 C = LO'
     4246                                     TEXTCS   ;
     4247         01 01E8D            'EM         EXECUTION MODE - DEFINES THE ANTICIPATE PATH'
     4248                                     TEXTCS   ;
     4249         01 01E9B            '           TAKEN TO THE TEST INSTRUCTION AS FOLLOWS:'
     4250                                     TEXTCS   ;
     4251         01 01EA9            '    PROGRAM CONTROLLED     USER CONTROLLED (FIXED)'
     4252                                     TEXTCS   ;
     4253         01 01EB6            '       0 = LPSD TO TI       A = SAME (FIXED)'
     4254                                     TEXTCS   ;
     4255         01 01EC2            '       1 = BRANCH (NOP)     B = SAME (FIXED)'
     4256                                     TEXTCS   ;
     4257         01 01ECE            '       2 = EXECUTE TI       C = SAME (FIXED)'
     4258                                     TEXTCS   ;
     4259         01 01EDA            '       3 = BRANCH TO TI     D = SAME (FIXED)'
     4260                                     TEXTCS   ;
     4261         01 01EE6            'CI     COUNT PULSE 4 INTERRUPT; 0 = OFF, 1 = ON'
     4262                                     TEXTCS   ;
     4263         01 01EF2            'MTADR  MAGTAPE ADDRESS FOR SNAP DATA DEFAULT = HEX80'
     4264                            K%EXPL   TEXTCS   ;
     4265         01 01F00            'K   SELECTS THE SNAP OPTION PARAMETERS'
     4266                                     TEXTCS   ;
     4267         01 01F0A            'MST = MODULE START,  MSP = MODULE STOP,  MCR = MODULE CURRENT'
     4268                                     TEXTCS   ;
     4269         01 01F1A            'LC = LOOP COUNT, # OF ITERATIONS OVER RANGE OF MODULES'
     4270                                     TEXTCS   ;
     4271         01 01F28            '     SPECIFIED BY MST THRU MSP'
     4272                                     TEXTCS   ;
     4273         01 01F30            'SO = SNAP OPTION.  ACCEPTABLE VALUES ARE AS FOLLOWS:'
     4274                                     TEXTCS   ;
     4275         01 01F3E            '     0 = NONE'
     4276                                     TEXTCS   ;
     4277         01 01F42            '     1 = SNAP AND PRINT FIRST NON-COMPARE IF THERE IS A'
     4278                                     TEXTCS   ;
     4279         01 01F50            '         FUNCTIONAL TEST ERROR---AND HALT.'
     4280                                     TEXTCS   ;
     4281         01 01F5B            '     2 = SNAP AND PRINT ALL NON-COMPARES ON THOSE MODULES'
     4282                                     TEXTCS   ;
     4283         01 01F6A            '         THAT FAIL THEIR FUNCTIONAL TEST.'
     4284                                     TEXTCS   ;
     4285         01 01F75            '     3 = PRINT DATA FROM SNAPTAPE.  LIKE SO=F, EXCEPT DATA'
     4286                                     TEXTCS   ;
     4287         01 01F84            '         IS EXPECTED INSTEAD OF OBSERVED'
     4288                                     TEXTCS   ;
     4289         01 01F8F            '     6 = FULL INTERLACED SNAP OF ALL CLOCKS OF BOTH EXPECTED'
     4290                                     TEXTCS   ;
     4291         01 01F9F            '         AND OBSERVED DATA ON ONLY THOSE MODULES THAT FAIL FT.'
     4292                                     TEXTCS   ;
     4293         01 01FAF            '     7 = SNAP AND PRINT ONLY THE OBSERVED DATA FOR THOSE MODULES'
     4294                                     TEXTCS   ;
     4295         01 01FC0            '         THAT FAIL THEIR FUNCTIONAL TEST.'
     4296                                     TEXTCS   ;
     4297         01 01FCB            '     9 = FORCED OPTION 1.  PRINTS ONLY IF NON-COMPARE.'
     4298                                     TEXTCS   ;
     4299         01 01FD9            '     A = FORCED OPTION 2.  PRINTS ONLY IF NON-COMPARE.'
     4300                                     TEXTCS   ;
     4301         01 01FE7            '     E = SNAP AND PRINT BOTH EXPECTED AND OBSERVED DATA FOR ALL'
     4302                                     TEXTCS   ;
     4303         01 01FF7            '         MODULES IN THE RANGE SPECIFIED THAT HAVE COMPARE ERRORS'
     4304                                     TEXTCS   ;
     4305         01 02008            '     F = SNAP AND PRINT ONLY THE OBSERVED DATA FOR ALL MODULES'
     4306                                     TEXTCS   ;
     4307         01 02018            '         IN THE SPECIFIED RANGE.'
     4308                                     TEXTCS   ;
     4309         01 02021            'NOTE:  OPTIONS 7 AND F DO NOT REQUIRE A COMPARE TAPE(MTL).'
     4310                                     TEXTCS   ;
     4311         01 02030            '       QPTIONS 1 AND 2 PRESENT THE SNAP DATA IN A SEMI-INTERLACED'
     4312                                     TEXTCS   ;
     4313         01 02041            '       FORMAT, THAT IS, EXPECTED DATA FOR CLOCK N-1, EXPECTED'
     4314                                     TEXTCS   ;
     4315         01 02051            '       EXPECTED DATA FOR CLOCK N, AND OBSERVED DATA FOR CLOCK N.'
     4316                                     TEXTCS   ;
     4317         01 02062            '     ONLY OPTIONS F AND 7 MAY BE USED WITHOUT MAGTAPE'
     4318                                     TEXTCS   ;
     4319         01 02070            'CB = CLOCK BIAS.  # OF CLOCKS INTO INSTRUCTION USER WISHES'
     4320                                     TEXTCS   ;
     4321         01 0207F            '     TO START SNAPPING.  IF CB=FF, SNAP STOPS WHEN BUFFER IS FULL.'
     4322                                     TEXTCS   ;
     4323         01 02090            'CE = CLOCK END.  IF CE = 0 SNAP WILL STOP ON ONE CLOCK'
     4324                                     TEXTCS   ;
     4325         01 0209E            '     AFTER THE LAST CLOCK OF THE INSTRUCTION.  IF CE IS'
     4326                                     TEXTCS   ;
     4327         01 020AC            '     NOT 0 THEN SNAPPING WILL CONTINUE UNTIL THAT CLOCK'
     4328                                     TEXTCS   ;
     4329         01 020BA            '     NUMBER HAS BEEN SNAPPED'
     4330                            MR%EXPL  TEXTCS   ;
     4331         01 020C2            'MR  FOLLEWED BY AN INSTRUCTION MNEMONIC PRODUCES THE'
     4332                                     TEXTCS   ;
     4333         01 020D0            '     MODULE RANGE, IE, MR>AW,  2AC THRU 2F3'
     4334                                     TEXTCS   ;
     4335         01 020DB             'ENTER INSTRUCTION MNEMONIC AS THE ONLY PARAMETER'
     4336                                     TEXTCS   ;
     4337         01 020E8             ' TO OBTAIN STARTING AND ENDING MODULE NUMBERS.'
     4338                            FTERRMSG TEXTCS   ;
     4339         01 020F4            'MOD =  FAILING MODULE NUMBER'
     4340                                     TEXTCS   ;
     4341         01 020FC            'EL =  ELEMENT #,  WHICH AW OF 47 AW MODULES'
     4342                                     TEXTCS   ;
     4343         01 02107            'TESTINST =  TEST INSTRUCTION'
     4344                                     TEXTCS   ;
     4345         01 0210F            'E/P =  ERRORS PER PASS'
     4346                                     TEXTCS   ;
     4347         01 02115            'PAS =  NUMBER OF THE CURRENT PASS'
     4348                                     TEXTCS   ;
     4349         01 0211E            'EM =  EXECUTION MODE, SEE K PARAMETER EXPLANATION'
     4350                                     TEXTCS   ;
     4351         01 0212B            'MNEM =  INSTRUCTION MNEMONIC'
     4352                                     TEXTCS   ;
     4353         01 02133            'FAILED =  THE ITEM THAT DID NOT COMPARE'
     4354                                     TEXTCS   ;
     4355         01 0213D            'EXPECTED =  EXPECTED RESULTS FOR FAILING ITEM'
     4356                                     TEXTCS   ;
     4357         01 02149            'CM =  CLOCK MARGIN  SEE J PARAMETER FO EXPLANATION'
     4358                                     TEXTCS   ;
     4359         01 02156            'OBSERVED =  OBSERVED RESULTS FOR FAILING ITEM'
     4360                                     TEXTCS   ;
     4361         01 02162            ' CI =  COUNT PULSE INTERRUPT.  RIGHT HEX IS FROM J PARAMETER'
     4362                                     TEXTCS   ;
     4363         01 02172            '       LINE.  1 = ACTIVE AFTER 11 ERROR FREE PASSES.'
     4364                                     TEXTCS   ;
     4365         01 02180            'LEFT HEX INDICATES THE LEAST SIGNIFICANT 4 BITS OF ADDRESS THAT'
     4366                                     TEXTCS   ;
     4367         01 02190            '      WAS STORED AS A RESULT OF AN INTERRUPT.  INTERRUPT IS'
     4368                                     TEXTCS   ;
     4369         01 0219F            '     ARMED AT LOC-7 AND DISARMED AT LOC+6.'
     4370                                     TEXTCS   ;
     4371         01 021AA            'DIFF=EOR =  DIFFERENCE BETWEEN EXPECTED AND OBSERVED VIA EOR'
     4372                            **********************
     4373                            *        TABLE 3
     4374                            **********************
     4375                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     4376                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     4377                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     4378                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     4379                            *
     4380                            *  FORMAT
     4381                            *        WORD 1 = DIRECTIVE POINTER
     4382                            *         ***********
     4383                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     4384                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     4385                            *            AF(3)   BYTE 2 = SECOND CHAR.
     4386                            *            AF(4)   BYTE 3 = THIRD CHAR.
     4387                            *
     4388                            *
     4389                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     4390                            *         ***********
     4391                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     4392                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     4393                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     4394                            *                                       DIRECTIVE ROUTINE
     4395                            *
     4396                            *        WORD 3 = CONTROL WORD
     4397                            *         ***********
     4398                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     4399                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     4400                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     4401                            *             AF(4)   BITS 8-12= NOT USED
     4402                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     4403                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     4404                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     4405                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     4406                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     4407                            *                    OR INDEX PARAM #1 (MODE 6)
     4408                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     4409                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     4410                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     4411                            *
     4412                            *                 MODE:  0= UNCONDITIONAL (&)
     4413                            *                        1= IMMEDIATE     (DM)
     4414                            *                        2= PARAMETER LINE (S)
     4415                            *                        6= INDEXED PARAMETER LINE
     4416                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     4417                            *                            0 = HEX, 1 = BIN, AND
     4418                            *                            4-7 = DESIGNER DEFINED
     4419                            *
     4420                            *         WORD 4 = EXPLANATION POINTER
     4421                            *         ***********
     4422                            *  Z          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     4423                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     4424                            *                             = 1 IF TEXT IS COMPRESSED
     4425                            *                             = 2,3   ** NOT ALLOWED **
     4426                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     4427                            *                   TO CHARACTER #1 (REQUEST)
     4428                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     4429                            *
     4430         01 021BA           TABLE3            EQU      %
     4431                            *
     4432   01 021BA    017C0000 A            H        1,'@'
     4433   01 021BB    00000000 A            E        0
     4434   01 021BC    00000000 A            L        0
     4435   01 021BD    5F007234 N            Z        95,,0,BA(SYNTAX%EXPL)                             *A03
     4436                            *
     4437   01 021BE    01500000 A            H        1,'&'
     4438   01 021BF    00002243 N            E        ,,READSTAT
     4439   01 021C0    00000000 A            L        0
     4440   01 021C1    070070C0 N   AMPER%EXPL Z      7,,0,BA(STAT%EXPL)
     4441                            *
     4442   01 021C2    02E2E200 A            H        2,'S','S'                                         *A02
     4443   01 021C3    00000000 A            E        0                                                 *A01
     4444   01 021C4    00000000 A            L        0                                                 *A01
     4445   01 021C5    060075FC N            Z        6,,,BA(S%EXPL)                                    *A01
     4446                            *
     4447   01 021C6    02C4D400 A            H        2,'D','M'
     4448   01 021C7    00000000 A            E        0
     4449   01 021C8    00000000 A            L        0
     4450   01 021C9    02017548 N            Z        2,,1,BA(DM%EXPL)
     4451                            *
     4452   01 021CA    02D9D400 A            H        2,'R','M'
     4453   01 021CB    00000000 A            E        0
     4454   01 021CC    00000000 A            L        0
     4455   01 021CD    03017590 N            Z        3,,1,BA(RM%EXPL)
     4456                            *
     4457   01 021CE    02D4D900 A            H        2,'M','R'
     4458   01 021CF    00001A42 N            E        ,,DRTA
     4459   01 021D0    21000800 A            L        1,,1,,,,,4
     4460   01 021D1    04008308 N            Z        4,,0,BA(MR%EXPL)
     4461                            *
     4462   01 021D2    02C4D300 A            H        2,'D','L'
     4463   01 021D3    0000198D N            E        ,,DLTA
     4464   01 021D4    22000000 A            L        1,,2
     4465   01 021D5    0301776C N            Z        3,,1,BA(DL%EXPL)
     4466                            *
     4467   01 021D6    01D10000 A            H        1,'J'
     4468   01 021D7    000017E2 N            E        ,,JRTA
     4469   01 021D8    40000000 A            L        2
     4470   01 021D9    16007804 N            Z        22,,0,BA(J%EXPL)
     4471                            *
     4472   01 021DA    01D20000 A            H        1,'K'
     4473   01 021DB    000018B2 N            E        ,,KRTA
     4474   01 021DC    40000000 A            L        2
     4475   01 021DD    21007C00 N            Z        33,,0,BA(K%EXPL)
     4476                            *
     4477   01 021DE    03E4D7C4 A            H        3,'U','P','D'
     4478   01 021DF    000021F6 N            E        ,,UPDTA
     4479   01 021E0    00000000 A            L        0
     4480   01 021E1    00000000 A            Z        0
     4481                            *
     4482   01 021E2    FF000000 A   TABLE3END  DATA   X'FF000000'
     4483                            *
     4484                            *
     4485                            ***************
     4486                            *
     4487                            *
     4488   01 021E3                 PLINEIN  RES      19
     4489                            *
     4490                            *
     4491                            ***************
     4492                            *
     4493         01 021F6           UPDTA    EQU      %
     4494   01 021F6    22800040 A            LI,R8    X'40'                                             *A03
     4495   01 021F7    6D801100 A            WD,R8    X'1100'                                           *A03
     4496   01 021F8    32801752              LW,R8    MAX:CLR                                           *A02
     4497   01 021F9    21802E00 A            CI,R8    11776                                             *A02
     4498   01 021FA    681021FE              BGE      %+4                                               *A04
     4499   01 021FB    EA6003CC              #TYPE    IC:MSG                                            *A02
            01 021FC    00006D50 A
     4500   01 021FD    8F0003CA              XPSD,0   *#RUNADDR%                                        *A02
     4501   01 021FE    228FFFFF A            LI,R8    -1
     4502   01 021FF    358014BA              STW,R8   GEN:FLG
     4503   01 02200    22800007 A            LI,R8    7
     4504   01 02201    35801A9C              STW,R8   SO
     4505   01 02202    32600395              LW,X6    #MTLFLAG
     4506   01 02203    2280220A              LI,R8    STGEN
     4507   01 02204    358C0000 A            STW,R8   0,X6
     4508   01 02205    02000000 A            NOP
     4509   01 02206    02000000 A            NOP
     4510   01 02207    02000000 A            NOP
     4511   01 02208    02000000 A            NOP
     4512   01 02209    680C0001 A            B        1,X6
     4513                            *
     4514         01 0220A           STGEN    EQU      %
     4515   01 0220A    32600395              LW,X6    #MTLFLAG
     4516   01 0220B    320C0007 A            LW,R0    7,X6
     4517   01 0220C    35001B4C              STW,R0   CARDADR
     4518   01 0220D    CD001B4A              TIO,R0   *TAPE1ADR
     4519   01 0220E    69C0220D              BCS,12   %-1
     4520   01 0220F    3200174E              LW,R0    TAPE:ID
     4521   01 02210    350030F4              STW,R0   SN:CHECK
     4522   01 02211    22000BA8              LI,R0    DA(ID:WRT)
     4523   01 02212    CC001B4A              SIO,R0   *TAPE1ADR
     4524   01 02213    2200221D              LI,R0    STVER
     4525   01 02214    32600395              LW,X6    #MTLFLAG
     4526   01 02215    350C0000 A            STW,R0   0,X6
     4527   01 02216    22001153              LI,R0    SHORTA
     4528   01 02217    350014B4              STW,R0   SHORTPTR
     4529   01 02218    02000000 A            NOP
     4530   01 02219    02000000 A            NOP
     4531   01 0221A    02000000 A            NOP
     4532   01 0221B    02000000 A            NOP
     4533   01 0221C    680010BE              B        AUTOTEST
     4534                            *
     4535         01 0221D           STVER    EQU      %
     4536   01 0221D    33201B49              MTW,2    TAPE0ADR                                          *A03
     4537   01 0221E    CD001B49              TIO,R0   *TAPE0ADR                                         *A03
     4538   01 0221F    6AE016A6              BAL,R14  LOOKFWD+4                                         *A03
     4539   01 02220    22002246              LI,R0    LIST
     4540   01 02221    350003F3              STW,R0   LISTPTR
     4541   01 02222    22000001 A            LI,R0    1
     4542   01 02223    350003F2              STW,R0   MCR:NUM
     4543   01 02224    22000000 A            LI,R0    0                                                 *A03
     4544   01 02225    350031F8              STW,R0   SN:EXP-1                                          *A03
     4545   01 02226    02000000 A            NOP
     4546   01 02227    02000000 A            NOP
     4547   01 02228    02000000 A            NOP
     4548   01 02229    680010BE              B        AUTOTEST
     4549                            *
     4550         01 0222A           VG:END   EQU      %
     4551   01 0222A    328014BB              LW,R8    VER:FLG
     4552   01 0222B    68302234              BCR,3    SET:VER
     4553   01 0222C    22000BA5              LI,R0    DA(SPF:FWD)
     4554   01 0222D    6AD016E2              BAL,R13  MOV:TAPE
     4555   01 0222E    02000000 A            NOP
     4556   01 0222F    02000000 A            NOP
     4557   01 02230    02000000 A            NOP
     4558   01 02231    02000000 A            NOP
     4559   01 02232    32600395              LW,X6    #MTLFLAG
     4560   01 02233    680C0002 A            B        2,X6
     4561                            *
     4562         01 02234           SET:VER  EQU      %
     4563   01 02234    22800000 A            LI,R8    0
     4564   01 02235    358014BA              STW,R8   GEN:FLG
     4565   01 02236    228FFFFF A            LI,R8    -1
     4566   01 02237    358014BB              STW,R8   VER:FLG
     4567   01 02238    358014BC              STW,R8   VER:END
     4568   01 02239    358014B7              STW,R8   SNAP:UNC
     4569   01 0223A    22000BA1              LI,R0    DA(EOF)
     4570   01 0223B    CC001B4A              SIO,R0   *TAPE1ADR
     4571   01 0223C    22800002 A            LI,R8    2
     4572   01 0223D    35801A9C              STW,R8   SO
     4573   01 0223E    02000000 A            NOP
     4574   01 0223F    02000000 A            NOP
     4575   01 02240    02000000 A            NOP
     4576   01 02241    02000000 A            NOP
     4577   01 02242    6800222C              B        VG:END+2
     4578                            *
     4579                            *
     4580         01 02243           READSTAT EQU      %
     4581   01 02243    6A6019C5              BAL,X6   STATMSGS
     4582   01 02244    E80003CB              B        *#RETURN%
     4583                            *
1 C00   00:01 JUN 21,'83    SIGMA 8/9 CPU DIAG FLOAT 706135-11/51A05  6-20-73                     PAGE   11
A    4585                                     BOUND    8
     4586   01 02246                 LIST     RES      0
     4587                            *'COMMAND PROCEDURE TO GENERATE TEST MODULE CONTROL WORD'
     4588         00000002           #PASS    SET      S:UFV(#PASS)+1
     4589         00000000                    DO       #PASS=1           FIRST ASSEMBLER PASS
     4590                        *S* *
     4591                        *S* MODLIST1 SET                        NULL
     4592                        *S* *
     4593                        *S* MODLIST2 SET                        NULL
     4594                        *S* *
     4595                        *S* MODLIST3 SET                        NULL
     4596                        *S* *
     4597                        *S* MODLIST4 SET                        NULL
     4598                        *S* *
     4599                        *S* MODLIST5 SET                        NULL
     4600                        *S* *
     4601                        *S* MODULE@  SET                        NULL
     4602                        *S* *
     4603                                     ELSE                       USE END OF PASS 1 VALUES FOR PASS 2.
     4604                            *
     4605         LIST               MODLIST1 SET      S:UFV(MODLIST1)   TEST MODULES 1-255
     4606                            *
     4607         LIST               MODLIST2 SET      S:UFV(MODLIST2)   TEST MODULES 256-510
     4608                            *
     4609         00000000           MODLIST3 SET      S:UFV(MODLIST3)   TEST MODULES 511-765
     4610                            *
     4611         00000000           MODLIST4 SET      S:UFV(MODLIST4)   TEST MODULES 766-1020
     4612                            *
     4613         00000000           MODLIST5 SET      S:UFV(MODLIST5)   TEST MODULES 1021-1276
     4614                            *
     4615         LIST               MODULE@  SET      S:UFV(MODULE@)
     4616                            *
     4617                                     FIN
     4618                            *
     4619         00000000           MODULE#  SET      0
     4620                            *
     4621         00000000           MODULE%  SET      0
     4622                            *
     4623         00000000           MODULE:  SET      0
     4624                            *
     4625         00000000           MODULE   CNAME
     4626                                     PROC
     4627                            *
     4628                                     LOCAL    I,OC,ML           SYMBOLS LOCALLY DEFINED AND USED
     4629                            *
     4630                                     DO       SCOR(LF(1),LASTMODULE)
     4631                            *
     4632                            MOD%END  EQU      %
     4633                            *
     4634                                     DO       #PASS=1
     4635                            *
     4636                                     RES      NUM(MODULE@)
     4637                            *
     4638                                     ELSE
     4639                            *
     4640                            I        DO       NUM(MODULE@)
     4641                            *
     4642                            OC       SET      MODULE@(I,1)      'OP'-CODE
     4643                            *
     4644                            ML       SET      MODULE@(I,2)      MEMORY LOCATION
     4645                            *
     4646                                     GEN,8,24 OC,ML
     4647                            *
     4648                                     FIN
     4649                            *
     4650                                     FIN
     4651                            *
     4652                                     GOTO     DONE
     4653                            *
     4654                                     FIN
     4655                            *
     4656                                     DO1      NUM(AF)>0
     4657                            MODULE:  SET      0                 RESET ELEMENT COUNTER
     4658                            *
     4659                            MODULE:  SET      MODULE:+1
     4660                            *
     4661                                     DO       #PASS=1           BUILD LISTS
     4662                            *
     4663                                     DO       NUM(AF)>0
     4664                            *
     4665                            OC       SET      AF(1)             'OP'-CODE
     4666                            *
     4667                            ML       SET      ABSVAL(%)         (LISTING) MODULE LOCATION
     4668                            *
     4669                                     DO       NUM(MODULE@)=0
     4670                            *
     4671                            MODULE@  SET      (OC,ML)
     4672                            *
     4673                                     ELSE                       LIST HAS BEEN STARTED
     4674                            *
     4675                            MODULE@  SET      MODULE@,(OC,ML)
     4676                            *
     4677                                     FIN
     4678                            *
     4679                                     FIN
     4680                            *
     4681                            *
     4682                                     DO       MODULE#>0
     4683                            *
     4684                                     DO       MODULE#<256
     4685                            *
     4686                            MODLIST1(MODULE#)   SET   %-MODULE%   SAVE MODULE DISPLACEMENT
     4687                            *
     4688                                     ELSE
     4689                            *
     4690                                     DO       MODULE#<511
     4691                            *
     4692                            MODLIST2(MODULE#-255)   SET   %-MODULE%
     4693                            *
     4694                                     ELSE
     4695                            *
     4696                                     DO       MODULE#<766
     4697                            *
     4698                            MODLIST3(MODULE#-510)   SET   %-MODULE%
     4699                            *
     4700                                     ELSE
     4701                            *
     4702                                     DO       MODULE#<1021
     4703                            *
     4704                            MODLIST4(MODULE#-765)   SET   %-MODULE%
     4705                            *
     4706                                     ELSE
     4707                            *
     4708                            MODLIST5(MODULE#-1020)  SET   %-MODULE%
     4709                            *
     4710                                     FIN                        <1021
     4711                            *
     4712                                     FIN                        <766
     4713                            *
     4714                                     FIN                        <511
     4715                            *
     4716                                     FIN                        <256
     4717                            *
     4718                                     FIN                        >0
     4719                            *
     4720                            MODULE#  SET      MODULE#+1
     4721                            *
     4722                            MODULE%  SET      %
     4723                            *
     4724                                     RES      1                 PUT 'LF' IN COLUMNS 1-2 TO ENTER
     4725                            *                                   LABEL FIELD ON PROC REFERENCE
     4726                            *                                   LINE IN 'SYMBOL' TABLE.  (ASSEMBLER)
     4727                            *
     4728                            *
     4729                                     ELSE                       PASS 2 GENERATES CODE
     4730                            *
     4731                            MODULE#  SET      MODULE#+1
     4732                            *
     4733                            *        ADD 'LF' TO COLUMNS 1-2 FOR EACH OF THE FOLLOWING
     4734                            *        'GEN,8,8,4,12' STATEMENTS TO DEFINE LABEL(S) ON
     4735                            *        THE 'PROC' REFERENCE LINE.
     4736                            *
     4737                                     DO       MODULE#<256
     4738                            *
     4739                                     GEN,8,8,4,12 MODLIST1(MODULE#),MODULE:,CF(2),MODULE#
     4740                            *
     4741                                     ELSE
     4742                            *
     4743                                     DO       MODULE#<511
     4744                            *
     4745                                     GEN,8,8,4,12 MODLIST2(MODULE#-255),MODULE:,CF(2),MODULE#
     4746                            *
     4747                                     ELSE
     4748                            *
     4749                                     DO       MODULE#<766
     4750                            *
     4751                                     GEN,8,8,4,12 MODLIST3(MODULE#-510),MODULE:,CF(2),MODULE#
     4752                            *
     4753                                     ELSE
     4754                            *
     4755                                     DO       MODULE#<1021
     4756                            *
     4757                                     GEN,8,8,4,12 MODLIST4(MODULE#-765),MODULE:,CF(2),MODULE#
     4758                            *
     4759                                     ELSE
     4760                            *
     4761                                     GEN,8,8,4,12 MODLIST5(MODULE#-1020),MODULE:,CF(2),MODULE#
     4762                            *
     4763                                     FIN                        <1021
     4764                            *
     4765                                     FIN                        <766
     4766                            *
     4767                                     FIN                        <511
     4768                            *
     4769                                     FIN                        <256
     4770                            *
     4771                                     FIN                        PASS SWITCH
     4772                            *
     4773                            *
     4774                            DONE     PEND
     4775                            *
     4776                            ** NUMBER ALREADY NORMALIZED
     4777   01 02246    06010001 A   SF001    MODULE   X'24'
     4778   01 02247    24C0000F A            SF,12    15
     4779   01 02248    F730118D              K        15,7,3,LOC
     4780   01 02249    A730118F              K        10,7,3,LOC+2
     4781   01 0224A    0F100000 A            DATA     X'F100000',X'F100000'
            01 0224B    0F100000 A
     4782                            ** NORMALIZED WHEN COUNT EQUALS ZERO
     4783   01 0224C    0A020002 A   SF002    MODULE
     4784   01 0224D    24C00104 A            SF,12    X'104'
     4785   01 0224E    0730118D              K        0,7,3,LOC
     4786   01 0224F    A730118F              K        10,7,3,LOC+2
     4787   01 02250    0F00002F A            DATA     X'F00002F',X'B2FFFFF',0,0,-1,X'FFFF0000'
            01 02251    0B2FFFFF A
            01 02252    00000000 A
            01 02253    00000000 A
            01 02254    FFFFFFFF A
            01 02255    FFFF0000 A
     4788                            ** NORMALIZED BEFORE COUNT EQUALS ZERO
     4789   01 02256    06030003 A   SF003    MODULE
     4790   01 02257    24C00104 A            SF,12    X'104'
     4791   01 02258    7000118D              K        7,0,0,LOC
     4792   01 02259    A000118F              K        10,0,0,LOC+2
     4793   01 0225A    0F004FFF A            DATA     X'0F004FFF',X'D4FFF00'
            01 0225B    0D4FFF00 A
     4794                            ** UNDERFLOW. NOT NORMALIZED COUNT NOT EQUAL ZERO
     4795   01 0225C    0A040004 A   SF004    MODULE
     4796   01 0225D    24C0013F A            SF,12    X'13F'
     4797   01 0225E    9730118D              K        9,7,3,LOC
     4798   01 0225F    6730118F              K        6,7,3,LOC+2
     4799   01 02260    04000000 A            DATA     X'4000000',X'7F0F0000',0,0,X'F0000000',0
            01 02261    7F0F0000 A
            01 02262    00000000 A
            01 02263    00000000 A
            01 02264    F0000000 A
            01 02265    00000000 A
     4800                            ** UNDERFLOW. NORMALIZED. COUNT EQUAL ZERO
     4801   01 02266    06050005 A   SF005    MODULE
     4802   01 02267    24C00005 A            SF,12    5
     4803   01 02268    1730118D              K        1,7,3,LOC
     4804   01 02269    E730118F              K        14,7,3,LOC+2
     4805   01 0226A    04000008 A            DATA     X'04000008',X'7F800000'
            01 0226B    7F800000 A
     4806                            ** COUNT EQUALS ZERO. NOT NORMALIZED
     4807   01 0226C    06060006 A   SF006    MODULE
     4808   01 0226D    24C00004 A            SF,12    4
     4809   01 0226E    D730118D              K        13,7,3,LOC
     4810   01 0226F    2730118F              K        2,7,3,LOC+2
     4811   01 02270    0F000001 A            DATA     X'F000001',X'0B010000'
            01 02271    0B010000 A
     4812                            ** TRUE ZERO
     4813   01 02272    0A070007 A   SF007    MODULE
     4814   01 02273    24C00004 A            SF,12    4
     4815   01 02274    7030118D              K        7,0,3,LOC
     4816   01 02275    8030118F              K        8,0,3,LOC+2
     4817   01 02276    03000000 A            DATA     X'3000000',0,0,0,-1,-1
            01 02277    00000000 A
            01 02278    00000000 A
            01 02279    00000000 A
            01 0227A    FFFFFFFF A
            01 0227B    FFFFFFFF A
     4818                            ** NEGATIVE CHARACTERISTIC
     4819   01 0227C    0A080008 A   SF008    MODULE
     4820   01 0227D    24C00004 A            SF,12    4
     4821   01 0227E    E700118D              K        14,7,0,LOC
     4822   01 0227F    1700118F              K        1,7,0,LOC+2
     4823   01 02280    F0FFFFF1 A            DATA     X'F0FFFFF1',X'F4F10000',0,0,-1,-1
            01 02281    F4F10000 A
            01 02282    00000000 A
            01 02283    00000000 A
            01 02284    FFFFFFFF A
            01 02285    FFFFFFFF A
     4824                            ** NEG CHAR.  UNDERFLOW   ODD REG  NORMALIZED
     4825   01 02286    06090009 A   SF009    MODULE
     4826   01 02287    24C00004 A            SF,12    4
     4827   01 02288    2730118D              K        2,7,3,LOC
     4828   01 02289    D730118F              K        13,7,3,LOC+2
     4829   01 0228A    FEFFEFFF A            DATA     X'FEFFEFFF',X'80EFFF00'
            01 0228B    80EFFF00 A
     4830                            ** NEG CHAR
     4831   01 0228C    0A0A000A A   SF010    MODULE
     4832   01 0228D    24C00102 A            SF,12    X'102'
     4833   01 0228E    0000118D              K        0,0,0,LOC
     4834   01 0228F    9000118F              K        9,0,0,LOC+2
     4835   01 02290    F0FF4321 A            DATA     X'F0FF4321',X'F24321FF',0,0,-1,X'FFFFFF00'
            01 02291    F24321FF A
            01 02292    00000000 A
            01 02293    00000000 A
            01 02294    FFFFFFFF A
            01 02295    FFFFFF00 A
     4836                            ** NEG CHAR
     4837   01 02296    060B000B A   SF011    MODULE
     4838   01 02297    24C00102 A            SF,12    X'102'
     4839   01 02298    6310118D              K        6,3,1,LOC
     4840   01 02299    9310118F              K        9,3,1,LOC+2
     4841   01 0229A    F0FF4320 A            DATA     X'F0FF4320',X'F2432000'
            01 0229B    F2432000 A
     4842                            ** TEST THAT MAX COUNT W/O NORMALIZING IS OK
     4843   01 0229C    0A0C000C A   SF012    MODULE
     4844   01 0229D    24C0010C A            SF,12    X'10C'
     4845   01 0229E    5510118D              K        5,5,1,LOC
     4846   01 0229F    2510118F              K        2,5,1,LOC+2
     4847   01 022A0    7F000000 A            DATA     X'7F000000',X'73010000',0,0,1,0
            01 022A1    73010000 A
            01 022A2    00000000 A
            01 022A3    00000000 A
            01 022A4    00000001 A
            01 022A5    00000000 A
     4848                            ** RIGHT SHIFT. TRUE ZERO BEFORE COUNT DONE
     4849   01 022A6    0A0D000D A   SF013    MODULE
     4850   01 022A7    24D0007B A            SF,13    X'7B'
     4851   01 022A8    F730118D              K        15,7,3,LOC
     4852   01 022A9    0730118F              K        0,7,3,LOC+2
     4853   01 022AA    04800000 A            DATA     X'04800000',X'04800000',0,0,X'20000100',0
            01 022AB    04800000 A
            01 022AC    00000000 A
            01 022AD    00000000 A
            01 022AE    20000100 A
            01 022AF    00000000 A
     4854                            ** RIGHT SHIFT OVERFLOW AT COUNT DONE.
     4855   01 022B0    0A0E000E A   SF014    MODULE
     4856   01 022B1    24C0017F A            SF,12    X'17F'
     4857   01 022B2    0730118D              K        0,7,3,LOC
     4858   01 022B3    6730118F              K        6,7,3,LOC+2
     4859   01 022B4    7F453210 A            DATA     X'7F453210',X'00045321',0,0,-1,X'FFFFFFF'
            01 022B5    00045321 A
            01 022B6    00000000 A
            01 022B7    00000000 A
            01 022B8    FFFFFFFF A
            01 022B9    0FFFFFFF A
     4860                            ** RIGHT SHIFT. OVERFLOW BEFORE COUNT DONE.
     4861   01 022BA    0A0F000F A   SF015    MODULE
     4862   01 022BB    24C00170 A            SF,12    X'170'
     4863   01 022BC    F000118D              K        15,0,0,LOC
     4864   01 022BD    5000118F              K        5,0,0,LOC+2
     4865   01 022BE    81FFFFFF A            DATA     X'81FFFFFF',-1,0,0,X'FFFFF222',X'FFFFFFF3'
            01 022BF    FFFFFFFF A
            01 022C0    00000000 A
            01 022C1    00000000 A
            01 022C2    FFFFF222 A
            01 022C3    FFFFFFF3 A
     4866                            ** RIGHT SHIFT.  OVERFLOW AND TRUE ZERO. AT COUNT DONE.
     4867   01 022C4    0A100010 A   SF016    MODULE
     4868   01 022C5    24C0017F A            SF,12    X'17F'
     4869   01 022C6    0000118D              DATA     LOC,LOC+2,X'7F000000',0,0,0,1,0
            01 022C7    0000118F
            01 022C8    7F000000 A
            01 022C9    00000000 A
            01 022CA    00000000 A
            01 022CB    00000000 A
            01 022CC    00000001 A
            01 022CD    00000000 A
     4870                            ** RIGHT SHIFT COUNT DONE. MAX COUNT W/O OVERFLOW OR TRUE ZERO
     4871   01 022CE    0A110011 A   SF017    MODULE
     4872   01 022CF    24C00173 A            SF,12    X'173'
     4873   01 022D0    0000118D              DATA     LOC
     4874   01 022D1    2000118F              K        2,0,0,LOC+2
     4875   01 022D2    0125AC31 A            DATA     X'0125AC31',X'0E000000',0,0,X'95A3C195',2
            01 022D3    0E000000 A
            01 022D4    00000000 A
            01 022D5    00000000 A
            01 022D6    95A3C195 A
            01 022D7    00000002 A
     4876                            ** THE NEXT 16 TESTS ARE LEFT SHIFTS WITH THE COUNT GOING TO ZERO
     4877                            ** EACH TEST LEAVES A SINGLE BIT IN REG B TO VERIFY EACH BIT POSITION
     4878                            ** WILL CAUSE B0031Z TO BE FALSE. CHARACTERISTICS ARE CHOSEN TO VERIFY
     4879                            ** THAT THE A DOWN COUNT LOGIC IS FUNCTIONING
     4880   01 022D8    0A120012 A   SF018    MODULE                     B00
     4881   01 022D9    A4C030F0              SF,12    *MEMORY
     4882   01 022DA    0000118D              DATA     LOC
     4883   01 022DB    2000118F              K        2,0,0,LOC+2
     4884   01 022DC    73000000 A            DATA     X'73000000',X'71000000',X'102',X'102',X'800000'
            01 022DD    71000000 A
            01 022DE    00000102 A
            01 022DF    00000102 A
            01 022E0    00800000 A
     4885   01 022E1    80000000 A            DATA     X'80000000'
     4886   01 022E2    0A130013 A   SF019    MODULE                     B01
     4887   01 022E3    24CE0100 A            SF,12    X'100',7          IX ADD 1 TO COUNT
     4888   01 022E4    0000118D              DATA     LOC
     4889   01 022E5    2000118F              K        2,0,0,LOC+2
     4890   01 022E6    70000000 A            DATA     X'70000000',X'6F000000',0,0,X'4000000',X'40000000'
            01 022E7    6F000000 A
            01 022E8    00000000 A
            01 022E9    00000000 A
            01 022EA    04000000 A
            01 022EB    40000000 A
     4891   01 022EC    0A140014 A   SF020    MODULE                     B02
     4892   01 022ED    A4CE30F0              SF,12    *MEMORY,7
     4893   01 022EE    0000118D              DATA     LOC
     4894   01 022EF    2000118F              K        2,0,0,LOC+2
     4895   01 022F0    60000000 A            DATA     X'60000000',X'5F000000',X'100',X'100',X'2000000'
            01 022F1    5F000000 A
            01 022F2    00000100 A
            01 022F3    00000100 A
            01 022F4    02000000 A
     4896   01 022F5    20000000 A            DATA     X'20000000'
     4897   01 022F6    0A150015 A   SF021    MODULE                     B03
     4898   01 022F7    24C00101 A            SF,12    X'101'
     4899   01 022F8    0000118D              DATA     LOC
     4900   01 022F9    2000118F              K        2,0,0,LOC+2
     4901   01 022FA    50000000 A            DATA     X'50000000',X'4F000000',0,0,X'1000000',X'10000000'
            01 022FB    4F000000 A
            01 022FC    00000000 A
            01 022FD    00000000 A
            01 022FE    01000000 A
            01 022FF    10000000 A
     4902   01 02300    0A160016 A   SF022    MODULE                     B04
     4903   01 02301    24C00101 A            SF,12    X'101'
     4904   01 02302    0000118D              DATA     LOC
     4905   01 02303    2000118F              K        2,0,0,LOC+2
     4906   01 02304    40000000 A            DATA     X'40000000',X'3F000000',0,0,X'800000',X'8000000'
            01 02305    3F000000 A
            01 02306    00000000 A
            01 02307    00000000 A
            01 02308    00800000 A
            01 02309    08000000 A
     4907   01 0230A    0A170017 A   SF023    MODULE                     B05
     4908   01 0230B    24C00101 A            SF,12    X'101'
     4909   01 0230C    0000118D              DATA     LOC
     4910   01 0230D    2000118F              K        2,0,0,LOC+2
     4911   01 0230E    30000000 A            DATA     X'30000000',X'2F000000',0,0,X'400000',X'4000000'
            01 0230F    2F000000 A
            01 02310    00000000 A
            01 02311    00000000 A
            01 02312    00400000 A
            01 02313    04000000 A
     4912   01 02314    0A180018 A   SF024    MODULE                     B06
     4913   01 02315    24C00101 A            SF,12    X'101'
     4914   01 02316    0000118D              DATA     LOC
     4915   01 02317    2000118F              K        2,0,0,LOC+2
     4916   01 02318    20000000 A            DATA     X'20000000',X'1F000000',0,0,X'200000',X'2000000'
            01 02319    1F000000 A
            01 0231A    00000000 A
            01 0231B    00000000 A
            01 0231C    00200000 A
            01 0231D    02000000 A
     4917   01 0231E    0A190019 A   SF025    MODULE                     B07
     4918   01 0231F    24C00101 A            SF,12    X'101'
     4919   01 02320    0000118D              DATA     LOC
     4920   01 02321    2000118F              K        2,0,0,LOC+2
     4921   01 02322    10000000 A            DATA     X'10000000',X'0F000000',0,0,X'100000',X'1000000'
            01 02323    0F000000 A
            01 02324    00000000 A
            01 02325    00000000 A
            01 02326    00100000 A
            01 02327    01000000 A
     4922   01 02328    0A1A001A A   SF026    MODULE                     B08
     4923   01 02329    24C00101 A            SF,12    X'101'
     4924   01 0232A    0000118D              DATA     LOC
     4925   01 0232B    2000118F              K        2,0,0,LOC+2
     4926   01 0232C    71000000 A            DATA     X'71000000',X'70000000',0,0,X'80000',X'800000'
            01 0232D    70000000 A
            01 0232E    00000000 A
            01 0232F    00000000 A
            01 02330    00080000 A
            01 02331    00800000 A
     4927   01 02332    0A1B001B A   SF027    MODULE                     B09
     4928   01 02333    24C00101 A            SF,12    X'101'
     4929   01 02334    0000118D              DATA     LOC
     4930   01 02335    2000118F              K        2,0,0,LOC+2
     4931   01 02336    61000000 A            DATA     X'61000000',X'60000000',0,0,X'40000',X'400000'
            01 02337    60000000 A
            01 02338    00000000 A
            01 02339    00000000 A
            01 0233A    00040000 A
            01 0233B    00400000 A
     4932   01 0233C    0A1C001C A   SF028    MODULE                     B10
     4933   01 0233D    24C00101 A            SF,12    X'101'
     4934   01 0233E    0000118D              DATA     LOC
     4935   01 0233F    2000118F              K        2,0,0,LOC+2
     4936   01 02340    51000000 A            DATA     X'51000000',X'50000000',0,0,X'20000',X'200000'
            01 02341    50000000 A
            01 02342    00000000 A
            01 02343    00000000 A
            01 02344    00020000 A
            01 02345    00200000 A
     4937   01 02346    0A1D001D A   SF029    MODULE                     B11
     4938   01 02347    24C00101 A            SF,12    X'101'
     4939   01 02348    0000118D              DATA     LOC
     4940   01 02349    2000118F              K        2,0,0,LOC+2
     4941   01 0234A    41000000 A            DATA     X'41000000',X'40000000',0,0,X'10000',X'100000'
            01 0234B    40000000 A
            01 0234C    00000000 A
            01 0234D    00000000 A
            01 0234E    00010000 A
            01 0234F    00100000 A
     4942   01 02350    0A1E001E A   SF030    MODULE                     B12
     4943   01 02351    24C00101 A            SF,12    X'101'
     4944   01 02352    0000118D              DATA     LOC
     4945   01 02353    2000118F              K        2,0,0,LOC+2
     4946   01 02354    31000000 A            DATA     X'31000000',X'30000000',0,0,X'8000',X'80000'
            01 02355    30000000 A
            01 02356    00000000 A
            01 02357    00000000 A
            01 02358    00008000 A
            01 02359    00080000 A
     4947   01 0235A    0A1F001F A   SF031    MODULE                     B13
     4948   01 0235B    24C00101 A            SF,12    X'101'
     4949   01 0235C    0000118D              DATA     LOC
     4950   01 0235D    2000118F              K        2,0,0,LOC+2
     4951   01 0235E    21000000 A            DATA     X'21000000',X'20000000',0,0,X'4000',X'40000'
            01 0235F    20000000 A
            01 02360    00000000 A
            01 02361    00000000 A
            01 02362    00004000 A
            01 02363    00040000 A
     4952   01 02364    0A200020 A   SF032    MODULE                     B14
     4953   01 02365    24C00101 A            SF,12    X'101'
     4954   01 02366    0000118D              DATA     LOC
     4955   01 02367    2000118F              K        2,0,0,LOC+2
     4956   01 02368    11000000 A            DATA     X'11000000',X'10000000',0,0,X'2000',X'20000'
            01 02369    10000000 A
            01 0236A    00000000 A
            01 0236B    00000000 A
            01 0236C    00002000 A
            01 0236D    00020000 A
     4957   01 0236E    0A210021 A   SF033    MODULE                     B15
     4958   01 0236F    24C00101 A            SF,12    X'101'
     4959   01 02370    0000118D              DATA     LOC
     4960   01 02371    2000118F              K        2,0,0,LOC+2
     4961   01 02372    01000000 A            DATA     X'01000000',0,0,0,X'1000',X'10000'
            01 02373    00000000 A
            01 02374    00000000 A
            01 02375    00000000 A
            01 02376    00001000 A
            01 02377    00010000 A
     4962                            ** THE NEXT 16 TESTS COMPLETE THE TEST OF B0031Z AND CHECK THE A UP
     4963                            ** COUNT LOGIC.
     4964   01 02378    0A220022 A   SF034    MODULE                     B31
     4965   01 02379    24C0017F A            SF,12    X'17F'
     4966   01 0237A    0000118D              DATA     LOC
     4967   01 0237B    2000118F              K        2,0,0,LOC+2
     4968   01 0237C    0F000000 A            DATA     X'0F000000',X'10000000',0,0,16,1
            01 0237D    10000000 A
            01 0237E    00000000 A
            01 0237F    00000000 A
            01 02380    00000010 A
            01 02381    00000001 A
     4969   01 02382    0A230023 A   SF035    MODULE                     B30
     4970   01 02383    24C0017F A            SF,12    X'17F'
     4971   01 02384    0000118D              DATA     LOC
     4972   01 02385    2000118F              K        2,0,0,LOC+2
     4973   01 02386    1F000000 A            DATA     X'1F000000',X'20000000',0,0,32,2
            01 02387    20000000 A
            01 02388    00000000 A
            01 02389    00000000 A
            01 0238A    00000020 A
            01 0238B    00000002 A
     4974   01 0238C    0A240024 A   SF036    MODULE                     B29
     4975   01 0238D    24C0017F A            SF,12    X'17F'
     4976   01 0238E    0000118D              DATA     LOC
     4977   01 0238F    2000118F              K        2,0,0,LOC+2
     4978   01 02390    2F000000 A            DATA     X'2F000000',X'30000000',0,0,64,4
            01 02391    30000000 A
            01 02392    00000000 A
            01 02393    00000000 A
            01 02394    00000040 A
            01 02395    00000004 A
     4979   01 02396    0A250025 A   SF037    MODULE                     B28
     4980   01 02397    24C0017F A            SF,12    X'17F'
     4981   01 02398    0000118D              DATA     LOC
     4982   01 02399    2000118F              K        2,0,0,LOC+2
     4983   01 0239A    3F000000 A            DATA     X'3F000000',X'40000000',0,0,128,8
            01 0239B    40000000 A
            01 0239C    00000000 A
            01 0239D    00000000 A
            01 0239E    00000080 A
            01 0239F    00000008 A
     4984   01 023A0    0A260026 A   SF038    MODULE                     B27
     4985   01 023A1    24C0017F A            SF,12    X'17F'
     4986   01 023A2    0000118D              DATA     LOC
     4987   01 023A3    2000118F              K        2,0,0,LOC+2
     4988   01 023A4    4F000000 A            DATA     X'4F000000',X'50000000',0,0,256,16
            01 023A5    50000000 A
            01 023A6    00000000 A
            01 023A7    00000000 A
            01 023A8    00000100 A
            01 023A9    00000010 A
     4989   01 023AA    0A270027 A   SF039    MODULE                     B26
     4990   01 023AB    24C0017F A            SF,12    X'17F'
     4991   01 023AC    0000118D              DATA     LOC
     4992   01 023AD    2000118F              K        2,0,0,LOC+2
     4993   01 023AE    5F000000 A            DATA     X'5F000000',X'60000000',0,0,512,32
            01 023AF    60000000 A
            01 023B0    00000000 A
            01 023B1    00000000 A
            01 023B2    00000200 A
            01 023B3    00000020 A
     4994   01 023B4    0A280028 A   SF040    MODULE                     B25
     4995   01 023B5    24C0017F A            SF,12    X'17F'
     4996   01 023B6    0000118D              DATA     LOC
     4997   01 023B7    2000118F              K        2,0,0,LOC+2
     4998   01 023B8    6F000000 A            DATA     X'6F000000',X'70000000',0,0,1024,64
            01 023B9    70000000 A
            01 023BA    00000000 A
            01 023BB    00000000 A
            01 023BC    00000400 A
            01 023BD    00000040 A
     4999   01 023BE    0A290029 A   SF041    MODULE                     B24
     5000   01 023BF    24C0017F A            SF,12    X'17F'
     5001   01 023C0    0000118D              DATA     LOC
     5002   01 023C1    2000118F              K        2,0,0,LOC+2
     5003   01 023C2    06000000 A            DATA     X'6000000',X'7000000',0,0,2048,128
            01 023C3    07000000 A
            01 023C4    00000000 A
            01 023C5    00000000 A
            01 023C6    00000800 A
            01 023C7    00000080 A
     5004   01 023C8    0A2A002A A   SF042    MODULE                     B23
     5005   01 023C9    24C0017F A            SF,12    X'17F'
     5006   01 023CA    0000118D              DATA     LOC
     5007   01 023CB    2000118F              K        2,0,0,LOC+2
     5008   01 023CC    70000000 A            DATA     X'70000000',X'71000000',0,0,4096,256
            01 023CD    71000000 A
            01 023CE    00000000 A
            01 023CF    00000000 A
            01 023D0    00001000 A
            01 023D1    00000100 A
     5009   01 023D2    0A2B002B A   SF043    MODULE                     B22
     5010   01 023D3    24C0017F A            SF,12    X'17F'
     5011   01 023D4    0000118D              DATA     LOC
     5012   01 023D5    2000118F              K        2,0,0,LOC+2
     5013   01 023D6    60000000 A            DATA     X'60000000',X'61000000',0,0,8192,512
            01 023D7    61000000 A
            01 023D8    00000000 A
            01 023D9    00000000 A
            01 023DA    00002000 A
            01 023DB    00000200 A
     5014   01 023DC    0A2C002C A   SF044    MODULE                     B21
     5015   01 023DD    24C0017F A            SF,12    X'17F'
     5016   01 023DE    0000118D              DATA     LOC
     5017   01 023DF    2000118F              K        2,0,0,LOC+2
     5018   01 023E0    50000000 A            DATA     X'50000000',X'51000000',0,0,16384,1024
            01 023E1    51000000 A
            01 023E2    00000000 A
            01 023E3    00000000 A
            01 023E4    00004000 A
            01 023E5    00000400 A
     5019   01 023E6    0A2D002D A   SF045    MODULE                     B20
     5020   01 023E7    24C0017F A            SF,12    X'17F'
     5021   01 023E8    0000118D              DATA     LOC
     5022   01 023E9    2000118F              K        2,0,0,LOC+2
     5023   01 023EA    40000000 A            DATA     X'40000000',X'41000000',0,0,32768,2048
            01 023EB    41000000 A
            01 023EC    00000000 A
            01 023ED    00000000 A
            01 023EE    00008000 A
            01 023EF    00000800 A
     5024   01 023F0    0A2E002E A   SF046    MODULE                     B19
     5025   01 023F1    24C0017F A            SF,12    X'17F'
     5026   01 023F2    0000118D              DATA     LOC
     5027   01 023F3    2000118F              K        2,0,0,LOC+2
     5028   01 023F4    30000000 A            DATA     X'30000000',X'31000000',0,0,65536,4096
            01 023F5    31000000 A
            01 023F6    00000000 A
            01 023F7    00000000 A
            01 023F8    00010000 A
            01 023F9    00001000 A
     5029   01 023FA    0A2F002F A   SF047    MODULE                     B18
     5030   01 023FB    24C0017F A            SF,12    X'17F'
     5031   01 023FC    0000118D              DATA     LOC
     5032   01 023FD    2000118F              K        2,0,0,LOC+2
     5033   01 023FE    20000000 A            DATA     X'20000000',X'21000000',0,0,131072,8192
            01 023FF    21000000 A
            01 02400    00000000 A
            01 02401    00000000 A
            01 02402    00020000 A
            01 02403    00002000 A
     5034   01 02404    0A300030 A   SF048    MODULE                     B17
     5035   01 02405    24C0017F A            SF,12    X'17F'
     5036   01 02406    0000118D              DATA     LOC
     5037   01 02407    2000118F              K        2,0,0,LOC+2
     5038   01 02408    10000000 A            DATA     X'10000000',X'11000000',0,0,262144,16384
            01 02409    11000000 A
            01 0240A    00000000 A
            01 0240B    00000000 A
            01 0240C    00040000 A
            01 0240D    00004000 A
     5039   01 0240E    0A310031 A   SF049    MODULE                     B16
     5040   01 0240F    24C0017F A            SF,12    X'17F'
     5041   01 02410    0000118D              DATA     LOC
     5042   01 02411    2000118F              K        2,0,0,LOC+2
     5043   01 02412    00000000 A            DATA     0,X'1000000',0,0,524288,32768
            01 02413    01000000 A
            01 02414    00000000 A
            01 02415    00000000 A
            01 02416    00080000 A
            01 02417    00008000 A
     5044                            ** CHECK THAT UNUSED BITS IN ADDRESS FIELD HAVE NO EFFECT
     5045                            ** ALSO THAT INDEXING WILL CHANGE A - COUNT TO A + COUNT
     5046   01 02418    0C320032 A   SF050    MODULE
     5047   01 02419    A4C230F0              SF,12    *MEMORY,1
     5048   01 0241A    0000118D              K        0,0,0,LOC
     5049   01 0241B    2000118F              K        2,0,0,LOC+2
     5050   01 0241C    04000011 A            DATA     X'04000011',X'03000110',X'FFFFFEF0',X'FFFFFEF0',-9,-9
            01 0241D    03000110 A
            01 0241E    FFFFFEF0 A
            01 0241F    FFFFFEF0 A
            01 02420    FFFFFFF7 A
            01 02421    FFFFFFF7 A
     5051   01 02422    00000008 A            DATA     8,8
            01 02423    00000008 A
     5052   01 02424    0C330033 A   SF01     MODULE                     SF
     5053   01 02425    24C00101 A            SF,12    X'101'
     5054   01 02426    0730118D              K        0,7,3,LOC
     5055   01 02427    A730118F              K        10,7,3,LOC+2
     5056   01 02428    010F0F0F A            DATA     X'010F0F0F'
     5057   01 02429    00F0F0F0 A            DATA     X'00F0F0F0'
     5058   01 0242A    00000000 A            DATA     X'0'
     5059   01 0242B    00000000 A            DATA     X'0'
     5060   01 0242C    0F0F0F0F A            DATA     X'0F0F0F0F'
     5061   01 0242D    F0F0F0F0 A            DATA     X'F0F0F0F0'
     5062   01 0242E    00000000 A            DATA     X'0'
     5063   01 0242F    00000000 A            DATA     X'0'
     5064   01 02430    0C340034 A   SF02     MODULE                     SF
     5065   01 02431    24C00101 A            SF,12    X'101'
     5066   01 02432    0730118D              K        0,7,3,LOC
     5067   01 02433    2730118F              K        2,7,3,LOC+2
     5068   01 02434    0300F0F0 A            DATA     X'0300F0F0'
     5069   01 02435    020F0F0F A            DATA     X'020F0F0F'
     5070   01 02436    00000000 A            DATA     X'0'
     5071   01 02437    00000000 A            DATA     X'0'
     5072   01 02438    F0F0F0F0 A            DATA     X'F0F0F0F0'
     5073   01 02439    0F0F0F00 A            DATA     X'0F0F0F00'
     5074   01 0243A    00000000 A            DATA     X'0'
     5075   01 0243B    00000000 A            DATA     X'0'
     5076   01 0243C    0C350035 A   SF03     MODULE                     SF
     5077   01 0243D    24C0017F A            SF,12    X'17F'
     5078   01 0243E    0730118D              K        0,7,3,LOC
     5079   01 0243F    2730118F              K        2,7,3,LOC+2
     5080   01 02440    010F0F0F A            DATA     X'010F0F0F'
     5081   01 02441    0200F0F0 A            DATA     X'0200F0F0'
     5082   01 02442    00000000 A            DATA     X'0'
     5083   01 02443    00000000 A            DATA     X'0'
     5084   01 02444    0F0F0F0F A            DATA     X'0F0F0F0F'
     5085   01 02445    F0F0F0F0 A            DATA     X'F0F0F0F0'
     5086   01 02446    00000000 A            DATA     X'0'
     5087   01 02447    00000000 A            DATA     X'0'
     5088   01 02448    0C360036 A   SF04     MODULE                     SF
     5089   01 02449    24C0017F A            SF,12    X'17F'
     5090   01 0244A    0730118D              K        0,7,3,LOC
     5091   01 0244B    2730118F              K        2,7,3,LOC+2
     5092   01 0244C    03F0F0F0 A            DATA     X'03F0F0F0'
     5093   01 0244D    040F0F0F A            DATA     X'040F0F0F'
     5094   01 0244E    00000000 A            DATA     X'0'
     5095   01 0244F    00000000 A            DATA     X'0'
     5096   01 02450    F0F0F0F0 A            DATA     X'F0F0F0F0'
     5097   01 02451    0F0F0F0F A            DATA     X'0F0F0F0F'
     5098   01 02452    00000000 A            DATA     X'0'
     5099   01 02453    00000000 A            DATA     X'0'
     5100   01 02454    0C370037 A   SF05     MODULE                     SF
     5101   01 02455    24C00101 A            SF,12    X'101'
     5102   01 02456    0730118D              K        0,7,3,LOC
     5103   01 02457    8730118F              K        8,7,3,LOC+2
     5104   01 02458    7F000000 A            DATA     X'7F000000'
     5105   01 02459    00000000 A            DATA     X'0'
     5106   01 0245A    00000000 A            DATA     X'0'
     5107   01 0245B    00000000 A            DATA     X'0'
     5108   01 0245C    00000000 A            DATA     X'0'
     5109   01 0245D    00000000 A            DATA     X'0'
     5110   01 0245E    00000000 A            DATA     X'0'
     5111   01 0245F    00000000 A            DATA     X'0'
     5112   01 02460    0C380038 A   SF06     MODULE                     SF
     5113   01 02461    24C00041 A            SF,12    X'041'
     5114   01 02462    0730118D              K        0,7,3,LOC
     5115   01 02463    0730118F              K        0,7,3,LOC+2
     5116   01 02464    7F000000 A            DATA     X'7F000000'
     5117   01 02465    00000000 A            DATA     X'0'
     5118   01 02466    00000000 A            DATA     X'0'
     5119   01 02467    00000000 A            DATA     X'0'
     5120   01 02468    00000000 A            DATA     X'0'
     5121   01 02469    00000000 A            DATA     X'0'
     5122   01 0246A    00000000 A            DATA     X'0'
     5123   01 0246B    00000000 A            DATA     X'0'
     5124   01 0246C    0C390039 A   SF07     MODULE                     SF
     5125   01 0246D    24C00101 A            SF,12    X'101'
     5126   01 0246E    0730118D              K        0,7,3,LOC
     5127   01 0246F    5730118F              K        5,7,3,LOC+2
     5128   01 02470    FFFFFFFF A            DATA     X'FFFFFFFF'
     5129   01 02471    80FFFFF0 A            DATA     X'80FFFFF0'
     5130   01 02472    00000000 A            DATA     X'0'
     5131   01 02473    00000000 A            DATA     X'0'
     5132   01 02474    00000000 A            DATA     X'0'
     5133   01 02475    00000000 A            DATA     X'0'
     5134   01 02476    00000000 A            DATA     X'0'
     5135   01 02477    00000000 A            DATA     X'0'
     5136   01 02478    0C3A003A A   SF08     MODULE                     SF
     5137   01 02479    24C00141 A            SF,12    X'141'
     5138   01 0247A    0730118D              K        0,7,3,LOC
     5139   01 0247B    0730118F              K        0,7,3,LOC+2
     5140   01 0247C    00FFFFFF A            DATA     X'00FFFFFF'
     5141   01 0247D    00000000 A            DATA     X'0'
     5142   01 0247E    00000000 A            DATA     X'0'
     5143   01 0247F    00000000 A            DATA     X'0'
     5144   01 02480    FFFFFFFF A            DATA     X'FFFFFFFF'
     5145   01 02481    00000000 A            DATA     X'0'
     5146   01 02482    00000000 A            DATA     X'0'
     5147   01 02483    00000000 A            DATA     X'0'
     5148   01 02484    0C3B003B A   SF09     MODULE                     SF
     5149   01 02485    24C00173 A            SF,12    X'173'
     5150   01 02486    0730118D              K        0,7,3,LOC
     5151   01 02487    2730118F              K        2,7,3,LOC+2
     5152   01 02488    72F00000 A            DATA     X'72F00000'
     5153   01 02489    7F000000 A            DATA     X'7F000000'
     5154   01 0248A    00000000 A            DATA     X'0'
     5155   01 0248B    00000000 A            DATA     X'0'
     5156   01 0248C    00000000 A            DATA     X'0'
     5157   01 0248D    0000000F A            DATA     X'0000000F'
     5158   01 0248E    00000000 A            DATA     X'0'
     5159   01 0248F    00000000 A            DATA     X'0'
     5160   01 02490    0C3C003C A   SF10     MODULE                     SF
     5161   01 02491    24C0013F A            SF,12    X'13F'
     5162   01 02492    0730118D              K        0,7,3,LOC
     5163   01 02493    A730118F              K        10,7,3,LOC+2
     5164   01 02494    07080000 A            DATA     X'07080000'
     5165   01 02495    06800000 A            DATA     X'06800000'
     5166   01 02496    00000000 A            DATA     X'0'
     5167   01 02497    00000000 A            DATA     X'0'
     5168   01 02498    00000000 A            DATA     X'0'
     5169   01 02499    00000000 A            DATA     X'0'
     5170   01 0249A    00000000 A            DATA     X'0'
     5171   01 0249B    00000000 A            DATA     X'0'
     5172   01 0249C    0C3D003D A   SF11     MODULE                     SF
     5173   01 0249D    24C00172 A            SF,12    X'172'
     5174   01 0249E    0730118D              K        0,7,3,LOC
     5175   01 0249F    0730118F              K        0,7,3,LOC+2
     5176   01 024A0    72FFFFFF A            DATA     X'72FFFFFF'
     5177   01 024A1    00000000 A            DATA     X'0'
     5178   01 024A2    00000000 A            DATA     X'0'
     5179   01 024A3    00000000 A            DATA     X'0'
     5180   01 024A4    FFFFFFFF A            DATA     X'FFFFFFFF'
     5181   01 024A5    00000000 A            DATA     X'0'
     5182   01 024A6    00000000 A            DATA     X'0'
     5183   01 024A7    00000000 A            DATA     X'0'
     5184   01 024A8    0C3E003E A   SF12     MODULE                     SF
     5185   01 024A9    24C0010D A            SF,12    X'10D'
     5186   01 024AA    0730118D              K        0,7,3,LOC
     5187   01 024AB    A730118F              K        10,7,3,LOC+2
     5188   01 024AC    73000000 A            DATA     X'73000000'
     5189   01 024AD    66100000 A            DATA     X'66100000'
     5190   01 024AE    00000000 A            DATA     X'0'
     5191   01 024AF    00000000 A            DATA     X'0'
     5192   01 024B0    00000001 A            DATA     X'00000001'
     5193   01 024B1    00000000 A            DATA     X'0'
     5194   01 024B2    00000000 A            DATA     X'0'
     5195   01 024B3    00000000 A            DATA     X'0'
     5196   01 024B4    0C3F003F A   SF13     MODULE                     SF
     5197   01 024B5    24C0017E A            SF,12    X'17E'
     5198   01 024B6    0730118D              K        0,7,3,LOC
     5199   01 024B7    6730118F              K        6,7,3,LOC+2
     5200   01 024B8    7FF00000 A            DATA     X'7FF00000'
     5201   01 024B9    000F0000 A            DATA     X'000F0000'
     5202   01 024BA    00000000 A            DATA     X'0'
     5203   01 024BB    00000000 A            DATA     X'0'
     5204   01 024BC    0000000F A            DATA     X'0000000F'
     5205   01 024BD    00000000 A            DATA     X'0'
     5206   01 024BE    00000000 A            DATA     X'0'
     5207   01 024BF    00000000 A            DATA     X'0'
     5208   01 024C0    0C400040 A   SF14     MODULE                     SF
     5209   01 024C1    24C00000 A            SF,12    X'000'
     5210   01 024C2    0730118D              K        0,7,3,LOC
     5211   01 024C3    A730118F              K        10,7,3,LOC+2
     5212   01 024C4    7F555555 A            DATA     X'7F555555'
     5213   01 024C5    7F555555 A            DATA     X'7F555555'
     5214   01 024C6    00000000 A            DATA     X'0'
     5215   01 024C7    00000000 A            DATA     X'0'
     5216   01 024C8    00000000 A            DATA     X'0'
     5217   01 024C9    00000000 A            DATA     X'0'
     5218   01 024CA    00000000 A            DATA     X'0'
     5219   01 024CB    00000000 A            DATA     X'0'
     5220   01 024CC    0C410041 A   SF15     MODULE                     SF
     5221   01 024CD    24C00101 A            SF,12    X'101'
     5222   01 024CE    0730118D              K        0,7,3,LOC
     5223   01 024CF    9730118F              K        9,7,3,LOC+2
     5224   01 024D0    FE000000 A            DATA     X'FE000000'
     5225   01 024D1    FE000000 A            DATA     X'FE000000'
     5226   01 024D2    00000000 A            DATA     X'0'
     5227   01 024D3    00000000 A            DATA     X'0'
     5228   01 024D4    FFFFFFFF A            DATA     X'FFFFFFFF'
     5229   01 024D5    FFFFFFFF A            DATA     X'FFFFFFFF'
     5230   01 024D6    00000000 A            DATA     X'0'
     5231   01 024D7    00000000 A            DATA     X'0'
     5232   01 024D8    0C420042 A   SF16     MODULE                     SF
     5233   01 024D9    24D0017E A            SF,13    X'17E'
     5234   01 024DA    0730118D              K        0,7,3,LOC
     5235   01 024DB    2730118F              K        2,7,3,LOC+2
     5236   01 024DC    7FAAAAAA A            DATA     X'7FAAAAAA'
     5237   01 024DD    7FAAAAAA A            DATA     X'7FAAAAAA'
     5238   01 024DE    00000000 A            DATA     X'0'
     5239   01 024DF    00000000 A            DATA     X'0'
     5240   01 024E0    40555555 A            DATA     X'40555555'
     5241   01 024E1    42005555 A            DATA     X'42005555'
     5242   01 024E2    00000000 A            DATA     X'0'
     5243   01 024E3    00000000 A            DATA     X'0'
     5244   01 024E4    0C430043 A   SF17     MODULE                     SF
     5245   01 024E5    24D00104 A            SF,13    X'104'
     5246   01 024E6    0730118D              K        0,7,3,LOC
     5247   01 024E7    A730118F              K        10,7,3,LOC+2
     5248   01 024E8    00000001 A            DATA     X'00000001'
     5249   01 024E9    00000001 A            DATA     X'1'
     5250   01 024EA    00000000 A            DATA     X'0'
     5251   01 024EB    00000000 A            DATA     X'0'
     5252   01 024EC    40000FFF A            DATA     X'40000FFF'
     5253   01 024ED    3DFFF400 A            DATA     X'3DFFF400'
     5254   01 024EE    00000000 A            DATA     X'0'
     5255   01 024EF    00000000 A            DATA     X'0'
     5256   01 024F0    0C440044 A   SF18     MODULE                     SF
     5257   01 024F1    24C0007D A            SF,12    X'07D'
     5258   01 024F2    0730118D              K        0,7,3,LOC
     5259   01 024F3    0730118F              K        0,7,3,LOC+2
     5260   01 024F4    FF000000 A            DATA     X'FF000000'
     5261   01 024F5    00000000 A            DATA     X'0'
     5262   01 024F6    00000000 A            DATA     X'0'
     5263   01 024F7    00000000 A            DATA     X'0'
     5264   01 024F8    00000000 A            DATA     X'0'
     5265   01 024F9    00000000 A            DATA     X'0'
     5266   01 024FA    00000000 A            DATA     X'0'
     5267   01 024FB    00000000 A            DATA     X'0'
     5268   01 024FC    0C450045 A   SF19     MODULE                     SF
     5269   01 024FD    24D00001 A            SF,13    X'001'
     5270   01 024FE    0730118D              K        0,7,3,LOC
     5271   01 024FF    A730118F              K        10,7,3,LOC+2
     5272   01 02500    00000000 A            DATA     X'0'
     5273   01 02501    00000000 A            DATA     X'0'
     5274   01 02502    00000000 A            DATA     X'0'
     5275   01 02503    00000000 A            DATA     X'0'
     5276   01 02504    080F0F0F A            DATA     X'080F0F0F'
     5277   01 02505    07F0F0F0 A            DATA     X'07F0F0F0'
     5278   01 02506    00000000 A            DATA     X'0'
     5279   01 02507    00000000 A            DATA     X'0'
     5280   01 02508    0C460046 A   SF20     MODULE                     SF
     5281   01 02509    24D0007F A            SF,13    X'07F'
     5282   01 0250A    0730118D              K        0,7,3,LOC
     5283   01 0250B    2730118F              K        2,7,3,LOC+2
     5284   01 0250C    00000000 A            DATA     X'0'
     5285   01 0250D    00000000 A            DATA     X'0'
     5286   01 0250E    00000000 A            DATA     X'0'
     5287   01 0250F    00000000 A            DATA     X'0'
     5288   01 02510    07F0F0F0 A            DATA     X'07F0F0F0'
     5289   01 02511    080F0F0F A            DATA     X'080F0F0F'
     5290   01 02512    00000000 A            DATA     X'0'
     5291   01 02513    00000000 A            DATA     X'0'
     5292   01 02514    0C470047 A   SF21     MODULE                     SF
     5293   01 02515    A4C030F0              SF,12    *MEMORY
     5294   01 02516    0730118D              K        0,7,3,LOC
     5295   01 02517    A730118F              K        10,7,3,LOC+2
     5296   01 02518    010F0F0F A            DATA     X'010F0F0F'
     5297   01 02519    00F0F0F0 A            DATA     X'00F0F0F0'
     5298   01 0251A    00000101 A            DATA     X'101'
     5299   01 0251B    00000101 A            DATA     X'101'
     5300   01 0251C    0F0F0F0F A            DATA     X'0F0F0F0F'
     5301   01 0251D    F0F0F0F0 A            DATA     X'F0F0F0F0'
     5302   01 0251E    00000000 A            DATA     X'0'
     5303   01 0251F    00000000 A            DATA     X'0'
     5304   01 02520    0C480048 A   SF22     MODULE                     SF
     5305   01 02521    24CE0101 A            SF,12    X'101',7
     5306   01 02522    0730118D              K        0,7,3,LOC
     5307   01 02523    A730118F              K        10,7,3,LOC+2
     5308   01 02524    010F0F0F A            DATA     X'010F0F0F'
     5309   01 02525    00F0F0F0 A            DATA     X'00F0F0F0'
     5310   01 02526    00000000 A            DATA     X'0'
     5311   01 02527    00000000 A            DATA     X'0'
     5312   01 02528    0F0F0F0F A            DATA     X'0F0F0F0F'
     5313   01 02529    F0F0F0F0 A            DATA     X'F0F0F0F0'
     5314   01 0252A    00000000 A            DATA     X'0'
     5315   01 0252B    00000000 A            DATA     X'0'
     5316   01 0252C    0C490049 A   SF23     MODULE                     SF
     5317   01 0252D    A4CE30F0              SF,12    *MEMORY,7
     5318   01 0252E    0730118D              K        0,7,3,LOC
     5319   01 0252F    A730118F              K        10,7,3,LOC+2
     5320   01 02530    010F0F0F A            DATA     X'010F0F0F'
     5321   01 02531    00F0F0F0 A            DATA     X'00F0F0F0'
     5322   01 02532    00000100 A            DATA     X'100'
     5323   01 02533    00000100 A            DATA     X'100'
     5324   01 02534    0F0F0F0F A            DATA     X'0F0F0F0F'
     5325   01 02535    F0F0F0F0 A            DATA     X'F0F0F0F0'
     5326   01 02536    00000000 A            DATA     X'0'
     5327   01 02537    00000000 A            DATA     0
     5328                            ** CHECK THAT INDX= C5.C13
     5329   01 02538    0A4A004A A   IX03     MODULE
     5330   01 02539    24C40002 A            SF,12    2,2               IX2 CONTAINS A 1. CAUSING LS OF 3.
     5331   01 0253A    0000118D              K        0,0,0,LOC
     5332   01 0253B    A000118F              K        10,0,0,LOC+2
     5333   01 0253C    14000100 A            DATA     X'14000100'
     5334   01 0253D    11100000 A            DATA     X'11100000'
     5335   01 0253E    00000000 A            DATA     0
     5336   01 0253F    00000000 A            DATA     0
     5337   01 02540    FFFFFFFF A            DATA     -1
     5338   01 02541    FFFFFFFF A            DATA     -1
     5339   01 02542    0401004B A   FAS01    MODULE   X'3D'             FAS
     5340   01 02543    3DC030F0              FAS,12   MEMORY
     5341   01 02544    0030118D              K        0,0,3,LOC
     5342   01 02545    8030118F              K        8,0,3,LOC+2
     5343   01 02546    0602004C A   FAS02    MODULE                     FAS
     5344   01 02547    3DC030F0              FAS,12   MEMORY
     5345   01 02548    0030118D              K        0,0,3,LOC
     5346   01 02549    2030118F              K        2,0,3,LOC+2
     5347   01 0254A    00FFFFFF A            DATA     X'00FFFFFF'
     5348   01 0254B    00FFFFFF A            DATA     X'00FFFFFF'
     5349   01 0254C    0803004D A   FAS03    MODULE                     FAS
     5350   01 0254D    3DC030F0              FAS,12   MEMORY
     5351   01 0254E    0030118D              K        0,0,3,LOC
     5352   01 0254F    2030118F              K        2,0,3,LOC+2
     5353   01 02550    00000000 A            DATA     X'0'
     5354   01 02551    00FFFFFF A            DATA     X'00FFFFFF'
     5355   01 02552    00FFFFFF A            DATA     X'00FFFFFF'
     5356   01 02553    00FFFFFF A            DATA     X'00FFFFFF'
     5357   01 02554    0804004E A   FAS04    MODULE                     FAS
     5358   01 02555    3DC030F0              FAS,12   MEMORY
     5359   01 02556    0030118D              K        0,0,3,LOC
     5360   01 02557    2030118F              K        2,0,3,LOC+2
     5361   01 02558    40555555 A            DATA     X'40555555'
     5362   01 02559    40AAAAAA A            DATA     X'40AAAAAA'
     5363   01 0255A    40555555 A            DATA     X'40555555'
     5364   01 0255B    40555555 A            DATA     X'40555555'
     5365   01 0255C    0805004F A   FAS05    MODULE                     FAS
     5366   01 0255D    3DC030F0              FAS,12   MEMORY
     5367   01 0255E    0030118D              K        0,0,3,LOC
     5368   01 0255F    2030118F              K        2,0,3,LOC+2
     5369   01 02560    40AAAAAA A            DATA     X'40AAAAAA'
     5370   01 02561    41155555 A            DATA     X'41155555'
     5371   01 02562    40AAAAAA A            DATA     X'40AAAAAA'
     5372   01 02563    40AAAAAA A            DATA     X'40AAAAAA'
     5373   01 02564    08060050 A   FAS06    MODULE                     FAS
     5374   01 02565    3DC030F0              FAS,12   MEMORY
     5375   01 02566    0030118D              K        0,0,3,LOC
     5376   01 02567    2030118F              K        2,0,3,LOC+2
     5377   01 02568    00FFFFFF A            DATA     X'00FFFFFF'
     5378   01 02569    01100000 A            DATA     X'01100000'
     5379   01 0256A    00000001 A            DATA     X'1'
     5380   01 0256B    00000001 A            DATA     X'1'
     5381   01 0256C    08070051 A   FAS07    MODULE
     5382   01 0256D    3DCE30EF              FAS,12   MEMORY-1,7
     5383   01 0256E    0030118D              K        0,0,3,LOC
     5384   01 0256F    2030118F              K        2,0,3,LOC+2
     5385   01 02570    00000001 A            DATA     X'1'
     5386   01 02571    01100000 A            DATA     X'01100000'
     5387   01 02572    00FFFFFF A            DATA     X'00FFFFFF'
     5388   01 02573    00FFFFFF A            DATA     X'00FFFFFF'
     5389   01 02574    08080052 A   FAS08    MODULE                     FAS
     5390   01 02575    3DC030F0              FAS,12   MEMORY
     5391   01 02576    0030118D              K        0,0,3,LOC
     5392   01 02577    2030118F              K        2,0,3,LOC+2
     5393   01 02578    40FFFFFF A            DATA     X'40FFFFFF'
     5394   01 02579    411FFFFF A            DATA     X'411FFFFF'
     5395   01 0257A    40FFFFFF A            DATA     X'40FFFFFF'
     5396   01 0257B    40FFFFFF A            DATA     X'40FFFFFF'
     5397   01 0257C    08090053 A   FAS09    MODULE                     FAS
     5398   01 0257D    3DC030F0              FAS,12   MEMORY
     5399   01 0257E    0030118D              K        0,0,3,LOC
     5400   01 0257F    2030118F              K        2,0,3,LOC+2
     5401   01 02580    40AAAAAA A            DATA     X'40AAAAAA'
     5402   01 02581    40FFFFFF A            DATA     X'40FFFFFF'
     5403   01 02582    40555555 A            DATA     X'40555555'
     5404   01 02583    40555555 A            DATA     X'40555555'
     5405   01 02584    080A0054 A   FAS10    MODULE                     FAS
     5406   01 02585    3DC030F0              FAS,12   MEMORY
     5407   01 02586    0030118D              K        0,0,3,LOC
     5408   01 02587    2030118F              K        2,0,3,LOC+2
     5409   01 02588    40222222 A            DATA     X'40222222'
     5410   01 02589    40444444 A            DATA     X'40444444'
     5411   01 0258A    40222222 A            DATA     X'40222222'
     5412   01 0258B    40222222 A            DATA     X'40222222'
     5413   01 0258C    080B0055 A   FAS11    MODULE                     FAS
     5414   01 0258D    3DC030F0              FAS,12   MEMORY
     5415   01 0258E    0030118D              K        0,0,3,LOC
     5416   01 0258F    2030118F              K        2,0,3,LOC+2
     5417   01 02590    40BBBBBB A            DATA     X'40BBBBBB'
     5418   01 02591    41144444 A            DATA     X'41144444'
     5419   01 02592    40888888 A            DATA     X'40888888'
     5420   01 02593    40888888 A            DATA     X'40888888'
     5421   01 02594    080C0056 A   FAS12    MODULE                     FAS
     5422   01 02595    3DC030F0              FAS,12   MEMORY
     5423   01 02596    0030118D              K        0,0,3,LOC
     5424   01 02597    2030118F              K        2,0,3,LOC+2
     5425   01 02598    40DDDDDD A            DATA     X'40DDDDDD'
     5426   01 02599    41166666 A            DATA     X'41166666'
     5427   01 0259A    40888888 A            DATA     X'40888888'
     5428   01 0259B    40888888 A            DATA     X'40888888'
     5429   01 0259C    080D0057 A   FAS13    MODULE                     FAS
     5430   01 0259D    3DC030F0              FAS,12   MEMORY
     5431   01 0259E    0030118D              K        0,0,3,LOC
     5432   01 0259F    2030118F              K        2,0,3,LOC+2
     5433   01 025A0    40CCCCCC A            DATA     X'40CCCCCC'
     5434   01 025A1    41177777 A            DATA     X'41177777'
     5435   01 025A2    40AAAAAA A            DATA     X'40AAAAAA'
     5436   01 025A3    40AAAAAA A            DATA     X'40AAAAAA'
     5437   01 025A4    080E0058 A   FAS14    MODULE                     FAS
     5438   01 025A5    3DC030F0              FAS,12   MEMORY
     5439   01 025A6    0030118D              K        0,0,3,LOC
     5440   01 025A7    2030118F              K        2,0,3,LOC+2
     5441   01 025A8    40222222 A            DATA     X'40222222'
     5442   01 025A9    40777777 A            DATA     X'40777777'
     5443   01 025AA    40555555 A            DATA     X'40555555'
     5444   01 025AB    40555555 A            DATA     X'40555555'
     5445   01 025AC    080F0059 A   FAS15    MODULE                     FAS
     5446   01 025AD    3DC030F0              FAS,12   MEMORY
     5447   01 025AE    0030118D              K        0,0,3,LOC
     5448   01 025AF    2030118F              K        2,0,3,LOC+2
     5449   01 025B0    40333333 A            DATA     X'40333333'
     5450   01 025B1    40444444 A            DATA     X'40444444'
     5451   01 025B2    40111111 A            DATA     X'40111111'
     5452   01 025B3    40111111 A            DATA     X'40111111'
     5453   01 025B4    0810005A A   FAS15B   MODULE                                                     *A03
     5454   01 025B5    3DC030F0              FAS,12   MEMORY                                            *A03
     5455   01 025B6    0030118D              K        0,0,3,LOC                                         *A03
     5456   01 025B7    2030118F              K        2,0,3,LOC+2                                       *A03
     5457   01 025B8    40333333 A            DATA     X'40333333'                                       *A03
     5458   01 025B9    40444444 A            DATA     X'40444444'                                       *A03
     5459   01 025BA    40111111 A            DATA     X'40111111'                                       *A03
     5460   01 025BB    40111111 A            DATA     X'40111111'                                       *A03
     5461   01 025BC    0811005B A   FAS15A   MODULE
     5462   01 025BD    3DC030F0              FAS,12   MEMORY                                            *A03
     5463   01 025BE    0030118D              K        0,0,3,LOC                                         *A03
     5464   01 025BF    2030118F              K        2,0,3,LOC+2                                       *A03
     5465   01 025C0    40111111 A            DATA     X'40111111'                                       *A03
     5466   01 025C1    40222222 A            DATA     X'40222222'                                       *A03
     5467   01 025C2    40111111 A            DATA     X'40111111'                                       *A03
     5468   01 025C3    40111111 A            DATA     X'40111111'                                       *A03
     5469   01 025C4    0812005C A   FAS16    MODULE                     FAS
     5470   01 025C5    3DC030F0              FAS,12   MEMORY
     5471   01 025C6    0030118D              K        0,0,3,LOC
     5472   01 025C7    2030118F              K        2,0,3,LOC+2
     5473   01 025C8    40111111 A            DATA     X'40111111'
     5474   01 025C9    40666666 A            DATA     X'40666666'
     5475   01 025CA    40555555 A            DATA     X'40555555'
     5476   01 025CB    40555555 A            DATA     X'40555555'
     5477   01 025CC    0813005D A   FAS17    MODULE                     FAS
     5478   01 025CD    3DC030F0              FAS,12   MEMORY
     5479   01 025CE    0030118D              K        0,0,3,LOC
     5480   01 025CF    2030118F              K        2,0,3,LOC+2
     5481   01 025D0    40DDDDDD A            DATA     X'40DDDDDD'
     5482   01 025D1    41188888 A            DATA     X'41188888'
     5483   01 025D2    40AAAAAA A            DATA     X'40AAAAAA'
     5484   01 025D3    40AAAAAA A            DATA     X'40AAAAAA'
     5485   01 025D4    0814005E A   FAS18    MODULE                     FAS
     5486   01 025D5    3DC030F0              FAS,12   MEMORY
     5487   01 025D6    0030118D              K        0,0,3,LOC
     5488   01 025D7    2030118F              K        2,0,3,LOC+2
     5489   01 025D8    40555555 A            DATA     X'40555555'
     5490   01 025D9    40888888 A            DATA     X'40888888'
     5491   01 025DA    40333333 A            DATA     X'40333333'
     5492   01 025DB    40333333 A            DATA     X'40333333'
     5493   01 025DC    0815005F A   FAS19    MODULE                     FAS
     5494   01 025DD    3DC030F0              FAS,12   MEMORY
     5495   01 025DE    0030118D              K        0,0,3,LOC
     5496   01 025DF    2030118F              K        2,0,3,LOC+2
     5497   01 025E0    40666666 A            DATA     X'40666666'
     5498   01 025E1    40888888 A            DATA     X'40888888'
     5499   01 025E2    40222222 A            DATA     X'40222222'
     5500   01 025E3    40222222 A            DATA     X'40222222'
     5501   01 025E4    08160060 A   FAS20    MODULE                     FAS
     5502   01 025E5    3DC030F0              FAS,12   MEMORY
     5503   01 025E6    0030118D              K        0,0,3,LOC
     5504   01 025E7    2030118F              K        2,0,3,LOC+2
     5505   01 025E8    40444444 A            DATA     X'40444444'
     5506   01 025E9    40888888 A            DATA     X'40888888'
     5507   01 025EA    40444444 A            DATA     X'40444444'
     5508   01 025EB    40444444 A            DATA     X'40444444'
     5509   01 025EC    08170061 A   FAS21    MODULE                     FAS
     5510   01 025ED    3DC030F0              FAS,12   MEMORY
     5511   01 025EE    0030118D              K        0,0,3,LOC
     5512   01 025EF    2030118F              K        2,0,3,LOC+2
     5513   01 025F0    40BBBBBB A            DATA     X'40BBBBBB'
     5514   01 025F1    40CCCCCC A            DATA     X'40CCCCCC'
     5515   01 025F2    40111111 A            DATA     X'40111111'
     5516   01 025F3    40111111 A            DATA     X'40111111'
     5517   01 025F4    08180062 A   FAS22    MODULE                     FAS
     5518   01 025F5    3DC030F0              FAS,12   MEMORY
     5519   01 025F6    0030118D              K        0,0,3,LOC
     5520   01 025F7    2030118F              K        2,0,3,LOC+2
     5521   01 025F8    40DDDDDD A            DATA     X'40DDDDDD'
     5522   01 025F9    40EEEEEE A            DATA     X'40EEEEEE'
     5523   01 025FA    40111111 A            DATA     X'40111111'
     5524   01 025FB    40111111 A            DATA     X'40111111'
     5525   01 025FC    08190063 A   FAS23    MODULE                     FAS
     5526   01 025FD    3DC030F0              FAS,12   MEMORY
     5527   01 025FE    0030118D              K        0,0,3,LOC
     5528   01 025FF    2030118F              K        2,0,3,LOC+2
     5529   01 02600    40888888 A            DATA     X'40888888'
     5530   01 02601    40EEEEEE A            DATA     X'40EEEEEE'
     5531   01 02602    40666666 A            DATA     X'40666666'
     5532   01 02603    40666666 A            DATA     X'40666666'
     5533   01 02604    081A0064 A   FAS24    MODULE                     FAS
     5534   01 02605    3DC030F0              FAS,12   MEMORY
     5535   01 02606    0030118D              K        0,0,3,LOC
     5536   01 02607    2030118F              K        2,0,3,LOC+2
     5537   01 02608    40AAAAAA A            DATA     X'40AAAAAA'
     5538   01 02609    40CCCCCC A            DATA     X'40CCCCCC'
     5539   01 0260A    40222222 A            DATA     X'40222222'
     5540   01 0260B    40222222 A            DATA     X'40222222'
     5541   01 0260C    081B0065 A   FAS25    MODULE                     FAS
     5542   01 0260D    3DC030F0              FAS,12   MEMORY
     5543   01 0260E    0030118D              K        0,0,3,LOC
     5544   01 0260F    2030118F              K        2,0,3,LOC+2
     5545   01 02610    40888888 A            DATA     X'40888888'
     5546   01 02611    40CCCCCC A            DATA     X'40CCCCCC'
     5547   01 02612    40444444 A            DATA     X'40444444'
     5548   01 02613    40444444 A            DATA     X'40444444'
     5549   01 02614    081C0066 A   FAS26    MODULE                     FAS
     5550   01 02615    3DC030F0              FAS,12   MEMORY
     5551   01 02616    0030118D              K        0,0,3,LOC
     5552   01 02617    2030118F              K        2,0,3,LOC+2
     5553   01 02618    40FEFFFE A            DATA     X'40FEFFFE'
     5554   01 02619    41101000 A            DATA     X'41101000'
     5555   01 0261A    40020002 A            DATA     X'40020002'
     5556   01 0261B    40020002 A            DATA     X'40020002'
     5557   01 0261C    081D0067 A   FAS27    MODULE                     FAS
     5558   01 0261D    3DC030F0              FAS,12   MEMORY
     5559   01 0261E    0030118D              K        0,0,3,LOC
     5560   01 0261F    2030118F              K        2,0,3,LOC+2
     5561   01 02620    40FDFFFC A            DATA     X'40FDFFFC'
     5562   01 02621    41102000 A            DATA     X'41102000'
     5563   01 02622    40040004 A            DATA     X'40040004'
     5564   01 02623    40040004 A            DATA     X'40040004'
     5565   01 02624    081E0068 A   FAS28    MODULE                     FAS
     5566   01 02625    3DC030F0              FAS,12   MEMORY
     5567   01 02626    0030118D              K        0,0,3,LOC
     5568   01 02627    2030118F              K        2,0,3,LOC+2
     5569   01 02628    40FBFFF8 A            DATA     X'40FBFFF8'
     5570   01 02629    41104000 A            DATA     X'41104000'
     5571   01 0262A    40080008 A            DATA     X'40080008'
     5572   01 0262B    40080008 A            DATA     X'40080008'
     5573   01 0262C    081F0069 A   FAS29    MODULE                     FAS
     5574   01 0262D    3DC030F0              FAS,12   MEMORY
     5575   01 0262E    0030118D              K        0,0,3,LOC
     5576   01 0262F    2030118F              K        2,0,3,LOC+2
     5577   01 02630    40F7FFF0 A            DATA     X'40F7FFF0'
     5578   01 02631    41108000 A            DATA     X'41108000'
     5579   01 02632    40100010 A            DATA     X'40100010'
     5580   01 02633    40100010 A            DATA     X'40100010'
     5581   01 02634    0820006A A   FAS30    MODULE                     FAS
     5582   01 02635    3DC030F0              FAS,12   MEMORY
     5583   01 02636    0030118D              K        0,0,3,LOC
     5584   01 02637    2030118F              K        2,0,3,LOC+2
     5585   01 02638    40EFFFE0 A            DATA     X'40EFFFE0'
     5586   01 02639    41110000 A            DATA     X'41110000'
     5587   01 0263A    40200020 A            DATA     X'40200020'
     5588   01 0263B    40200020 A            DATA     X'40200020'
     5589   01 0263C    0821006B A   FAS31    MODULE                     FAS
     5590   01 0263D    3DC030F0              FAS,12   MEMORY
     5591   01 0263E    0030118D              K        0,0,3,LOC
     5592   01 0263F    2030118F              K        2,0,3,LOC+2
     5593   01 02640    40DFFFC0 A            DATA     X'40DFFFC0'
     5594   01 02641    41120000 A            DATA     X'41120000'
     5595   01 02642    40400040 A            DATA     X'40400040'
     5596   01 02643    40400040 A            DATA     X'40400040'
     5597   01 02644    0822006C A   FAS32    MODULE                     FAS
     5598   01 02645    3DC030F0              FAS,12   MEMORY
     5599   01 02646    0030118D              K        0,0,3,LOC
     5600   01 02647    2030118F              K        2,0,3,LOC+2
     5601   01 02648    40BFFF80 A            DATA     X'40BFFF80'
     5602   01 02649    41140000 A            DATA     X'41140000'
     5603   01 0264A    40800080 A            DATA     X'40800080'
     5604   01 0264B    40800080 A            DATA     X'40800080'
     5605   01 0264C    0823006D A   FAS33    MODULE                     FAS
     5606   01 0264D    3DC030F0              FAS,12   MEMORY
     5607   01 0264E    0030118D              K        0,0,3,LOC
     5608   01 0264F    2030118F              K        2,0,3,LOC+2
     5609   01 02650    407FFF00 A            DATA     X'407FFF00'
     5610   01 02651    40800000 A            DATA     X'40800000'
     5611   01 02652    40000100 A            DATA     X'40000100'
     5612   01 02653    40000100 A            DATA     X'40000100'
     5613   01 02654    0824006E A   FAS34    MODULE                     FAS
     5614   01 02655    3DC030F0              FAS,12   MEMORY
     5615   01 02656    0030118D              K        0,0,3,LOC
     5616   01 02657    2030118F              K        2,0,3,LOC+2
     5617   01 02658    40FFFE00 A            DATA     X'40FFFE00'
     5618   01 02659    41100000 A            DATA     X'41100000'
     5619   01 0265A    40000200 A            DATA     X'40000200'
     5620   01 0265B    40000200 A            DATA     X'40000200'
     5621   01 0265C    0825006F A   FAS35    MODULE                     FAS
     5622   01 0265D    3DC030F0              FAS,12   MEMORY
     5623   01 0265E    0030118D              K        0,0,3,LOC
     5624   01 0265F    2030118F              K        2,0,3,LOC+2
     5625   01 02660    40FFFC00 A            DATA     X'40FFFC00'
     5626   01 02661    41100000 A            DATA     X'41100000'
     5627   01 02662    40000400 A            DATA     X'40000400'
     5628   01 02663    40000400 A            DATA     X'40000400'
     5629   01 02664    08260070 A   FAS36    MODULE                     FAS
     5630   01 02665    3DC030F0              FAS,12   MEMORY
     5631   01 02666    0030118D              K        0,0,3,LOC
     5632   01 02667    2030118F              K        2,0,3,LOC+2
     5633   01 02668    40FFF800 A            DATA     X'40FFF800'
     5634   01 02669    41100000 A            DATA     X'41100000'
     5635   01 0266A    40000800 A            DATA     X'40000800'
     5636   01 0266B    40000800 A            DATA     X'40000800'
     5637   01 0266C    08270071 A   FAS37    MODULE                     FAS
     5638   01 0266D    3DC030F0              FAS,12   MEMORY
     5639   01 0266E    0030118D              K        0,0,3,LOC
     5640   01 0266F    2030118F              K        2,0,3,LOC+2
     5641   01 02670    4000F000 A            DATA     X'4000F000'
     5642   01 02671    3F100000 A            DATA     X'3F100000'
     5643   01 02672    40001000 A            DATA     X'40001000'
     5644   01 02673    40001000 A            DATA     X'40001000'
     5645   01 02674    08280072 A   FAS38    MODULE                     FAS
     5646   01 02675    3DC030F0              FAS,12   MEMORY
     5647   01 02676    0030118D              K        0,0,3,LOC
     5648   01 02677    2030118F              K        2,0,3,LOC+2
     5649   01 02678    4000E000 A            DATA     X'4000E000'
     5650   01 02679    3F100000 A            DATA     X'3F100000'
     5651   01 0267A    40002000 A            DATA     X'40002000'
     5652   01 0267B    40002000 A            DATA     X'40002000'
     5653   01 0267C    08290073 A   FAS39    MODULE                     FAS
     5654   01 0267D    3DC030F0              FAS,12   MEMORY
     5655   01 0267E    0030118D              K        0,0,3,LOC
     5656   01 0267F    2030118F              K        2,0,3,LOC+2
     5657   01 02680    4000C000 A            DATA     X'4000C000'
     5658   01 02681    3F100000 A            DATA     X'3F100000'
     5659   01 02682    40004000 A            DATA     X'40004000'
     5660   01 02683    40004000 A            DATA     X'40004000'
     5661   01 02684    082A0074 A   FAS40    MODULE                     FAS
     5662   01 02685    3DC030F0              FAS,12   MEMORY
     5663   01 02686    0030118D              K        0,0,3,LOC
     5664   01 02687    2030118F              K        2,0,3,LOC+2
     5665   01 02688    40FF0000 A            DATA     X'40FF0000'
     5666   01 02689    41100000 A            DATA     X'41100000'
     5667   01 0268A    40010000 A            DATA     X'40010000'
     5668   01 0268B    40010000 A            DATA     X'40010000'
     5669   01 0268C    082B0075 A   FAS41    MODULE                     FAS
     5670   01 0268D    3DC030F0              FAS,12   MEMORY            CHECKS   D TO F  FUNCTION
     5671   01 0268E    0030118D              K        0,0,3,LOC
     5672   01 0268F    2030118F              K        2,0,3,LOC+2
     5673   01 02690    00000000 A            DATA     X'00000000'
     5674   01 02691    3F123456 A            DATA     X'3F123456'      BITS D0207 TO F0207  TRANSFER
     5675   01 02692    3F123456 A            DATA     X'3F123456'      B
     5676   01 02693    3F123456 A            DATA     X'3F123456'      B
     5677   01 02694    082C0076 A   FAS42    MODULE                     FAS
     5678   01 02695    3DC030F0              FAS,12   MEMORY
     5679   01 02696    0030118D              K        0,0,3,LOC
     5680   01 02697    1030118F              K        1,0,3,LOC+2       BITS  D0005 TO  F0005 TRANSFER
     5681   01 02698    00000000 A            DATA     0
     5682   01 02699    FCEFFFFF A            DATA     X'FCEFFFFF'
     5683   01 0269A    FCEFFFFF A            DATA     X'FCEFFFFF'
     5684   01 0269B    FCEFFFFF A            DATA     X'FCEFFFFF'
     5685   01 0269C    082D0077 A   FAS43    MODULE                     FAS
     5686   01 0269D    3DC030F0              FAS,12   MEMORY
     5687   01 0269E    0030118D              K        0,0,3,LOC
     5688   01 0269F    2030118F              K        2,0,3,LOC+2
     5689   01 026A0    00000000 A            DATA     0                 CHECKS FOR 0 TRANSFER FROM
     5690   01 026A1    01888888 A            DATA     X'01888888'
     5691   01 026A2    01888888 A            DATA     X'01888888'       D0006 TO  F0006
     5692   01 026A3    01888888 A            DATA     X'01888888'
     5693                            * FAS CASE
     5694                            * GUARD DIGIT.    USE  RU1 AND MEMORY
     5695   01 026A4    0C2E0078 A   FAS44    MODULE
     5696   01 026A5    3DD030F0              FAS,13   MEMORY
     5697   01 026A6    0000118D              DATA     LOC
     5698   01 026A7    2000118F              K        2,0,0,LOC+2
     5699   01 026A8    FFFFFFFF A            DATA     -1,-1,X'C2D00053',X'C2D00053'
            01 026A9    FFFFFFFF A
            01 026AA    C2D00053 A
            01 026AB    C2D00053 A
     5700   01 026AC    3F00F234 A            DATA     X'3F00F234',X'3DC23460',0,0
            01 026AD    3DC23460 A
            01 026AE    00000000 A
            01 026AF    00000000 A
     5701                            * FAS CASE
     5702                            * GUARD DIGIT     USE R AND MEMORY +1
     5703   01 026B0    0C2F0079 A   FAS45    MODULE
     5704   01 026B1    3DC030F1              FAS,12   MEMORY+1
     5705   01 026B2    0000118D              DATA     LOC
     5706   01 026B3    2000118F              K        2,0,0,LOC+2
     5707   01 026B4    DDFFF321 A            DATA     X'DDFFF321',X'20357880',-1,-1,500,500
            01 026B5    20357880 A
            01 026B6    FFFFFFFF A
            01 026B7    FFFFFFFF A
            01 026B8    000001F4 A
            01 026B9    000001F4 A
     5708   01 026BA    20425784 A            DATA     X'20425784',X'20425784'
            01 026BB    20425784 A
     5709                            * FAS CASE
     5710                            * GUARD DIGIT- TWO POST NORMALIZE SHIFTS. LARGEST EXPONENT IN R
     5711   01 026BC    0830007A A   FAS46    MODULE
     5712   01 026BD    3DC030F0              FAS,12   MEMORY
     5713   01 026BE    0000118D              DATA     LOC
     5714   01 026BF    2000118F              K        2,0,0,LOC+2
     5715   01 026C0    30004567 A            DATA     X'30004567',X'2E69CFA0',X'2E2468AB',X'2E2468AB'
            01 026C1    2E69CFA0 A
            01 026C2    2E2468AB A
            01 026C3    2E2468AB A
     5716                            * FAS CASE
     5717                            * GUARD DITIT  TWO POST NORMALIZE SHIFTS. LARGEST EXPONENT IN MEMORY
     5718   01 026C4    0831007B A   FAS47    MODULE
     5719   01 026C5    3DC030F0              FAS,12   MEMORY
     5720   01 026C6    0000118D              DATA     LOC
     5721   01 026C7    2000118F              K        2,0,0,LOC+2
     5722   01 026C8    15042279 A            DATA     X'15042279',X'14743B90',X'16003214',X'16003214'
            01 026C9    14743B90 A
            01 026CA    16003214 A
            01 026CB    16003214 A
     5723                            * FAS CASE
     5724                            * >2 POSTNORMALIZE SHIFTS. POSITIVE ANSWER
     5725   01 026CC    0832007C A   FAS48    MODULE
     5726   01 026CD    3DC030F0              FAS,12   MEMORY
     5727   01 026CE    0000118D              DATA     LOC
     5728   01 026CF    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     5729   01 026D0    0F6789AB A            DATA     X'0F6789AB',X'102AC800'
            01 026D1    102AC800 A
     5730   01 026D2    13000245 A            DATA     X'13000245',X'13000245'
            01 026D3    13000245 A
     5731                            * FAS CASE
     5732                            * >2 POSTNORMALIZE SHIFTS  NEGATIVE ANSWER
     5733   01 026D4    0833007D A   FAS49    MODULE
     5734   01 026D5    3DC030F0              FAS,12   MEMORY
     5735   01 026D6    0000118D              DATA     LOC
     5736   01 026D7    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     5737   01 026D8    A0FFF632 A            DATA     X'A0FFF632'
     5738   01 026D9    A3054200 A            DATA     X'A3054200'
     5739   01 026DA    A3A22111 A            DATA     X'A3A22111'
     5740   01 026DB    A3A22111 A            DATA     X'A3A22111'
     5741                            * FAS CASE
     5742                            * INHIBIT NORMALIZATION
     5743   01 026DC    0834007E A   FAS50    MODULE
     5744   01 026DD    3DC030F0              FAS,12   MEMORY
     5745   01 026DE    F100118D              K        15,1,0,LOC
     5746   01 026DF    2100118F              K        2,1,0,LOC+2
     5747   01 026E0    13000245 A            DATA     X'13000245',X'130002AC'
            01 026E1    130002AC A
     5748   01 026E2    0F6789AB A            DATA     X'0F6789AB',X'0F6789AB'
            01 026E3    0F6789AB A
     5749                            * FAS CASE
     5750                            * INHIBIT NORMALIZATION
     5751   01 026E4    0835007F A   FAS51    MODULE
     5752   01 026E5    3DC030F0              FAS,12   MEMORY
     5753   01 026E6    F100118D              K        15,1,0,LOC
     5754   01 026E7    1100118F              K        1,1,0,LOC+2
     5755   01 026E8    A4E22111 A            DATA     X'A4E22111'
     5756   01 026E9    A0FFFF15 A            DATA     X'A0FFFF15'
     5757   01 026EA    A0FFFF32 A            DATA     X'A0FFFF32',X'A0FFFF32'
            01 026EB    A0FFFF32 A
     5758                            * FAS CASE
     5759                            *  EXPONENT OVERFLOW
     5760   01 026EC    08360080 A   FAS52    MODULE
     5761   01 026ED    3DC030F0              FAS,12   MEMORY
     5762   01 026EE    00001191              DATA     LOC+4
     5763   01 026EF    60001016              K        6,0,0,EXP:TRAP
     5764   01 026F0    7F811111 A            DATA     X'7F811111'
     5765   01 026F1    7F811111 A            DATA     X'7F811111'
     5766   01 026F2    7F811111 A            DATA     X'7F811111'
     5767   01 026F3    7F811111 A            DATA     X'7F811111'
     5768                            * FAS CASE
     5769                            *  EXPONENT OVERFLOW
     5770   01 026F4    08370081 A   FAS53    MODULE
     5771   01 026F5    3DC030F0              FAS,12   MEMORY
     5772   01 026F6    00001191              DATA     LOC+4
     5773   01 026F7    50001016              K        5,0,0,EXP:TRAP
     5774   01 026F8    80111111 A            DATA     X'80111111'
     5775   01 026F9    80111111 A            DATA     X'80111111'
     5776   01 026FA    80111111 A            DATA     X'80111111'
     5777   01 026FB    80111111 A            DATA     X'80111111'
     5778                            * FAS CASE
     5779                            * EW EXPONENT > R EXPONENT. R POS S EW NEG
     5780   01 026FC    08380082 A   FAS54    MODULE
     5781   01 026FD    3DC030F0              FAS,12   MEMORY
     5782   01 026FE    0000118D              DATA     LOC
     5783   01 026FF    2000118F              K        2,0,0,LOC+2
     5784   01 02700    0F016288 A            DATA     X'0F016288',X'0DE91AE0'
            01 02701    0DE91AE0 A
     5785   01 02702    F28692DE A            DATA     X'F28692DE',X'F28692DE'
            01 02703    F28692DE A
     5786                            * FAS CASE
     5787                            * EW EXPONENT > R EXPONENT  R POS S EW NEG
     5788   01 02704    08390083 A   FAS55    MODULE
     5789   01 02705    3DC030F0              FAS,12   MEMORY
     5790   01 02706    0000118D              DATA     LOC
     5791   01 02707    1000118F              K        1,0,0,LOC+2
     5792   01 02708    59864267 A            DATA     X'59864267',X'A401ECA9'
            01 02709    A401ECA9 A
     5793   01 0270A    A4016666 A            DATA     X'A4016666',X'A4016666'
            01 0270B    A4016666 A
     5794                            * FAS CASE
     5795                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     5796                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     5797                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     5798   01 0270C    0A3A0084 A   FAS56    MODULE
     5799   01 0270D    3DC030F0              FAS,12   MEMORY
     5800   01 0270E    0000118D              DATA     LOC
     5801   01 0270F    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     5802   01 02710    46100000 A            DATA     X'46100000',X'46100000',X'4B000000',X'4B000000'
            01 02711    46100000 A
            01 02712    4B000000 A
            01 02713    4B000000 A
     5803   01 02714    FFFFFFFF A            DATA     -1,-1
            01 02715    FFFFFFFF A
     5804                            * FAS CASE
     5805                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     5806                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     5807                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     5808   01 02716    0C3B0085 A   FAS57    MODULE
     5809   01 02717    3DC030F0              FAS,12   MEMORY
     5810   01 02718    0000118D              DATA     LOC
     5811   01 02719    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     5812   01 0271A    46000001 A            DATA     X'46000001',X'41200000',X'41100000',X'41100000'
            01 0271B    41200000 A
            01 0271C    41100000 A
            01 0271D    41100000 A
     5813   01 0271E    00000000 A            DATA     0,0,-1,-1
            01 0271F    00000000 A
            01 02720    FFFFFFFF A
            01 02721    FFFFFFFF A
     5814                            * FAS CASE
     5815                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     5816                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     5817                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     5818   01 02722    083C0086 A   FAS58    MODULE
     5819   01 02723    3DC030F0              FAS,12   MEMORY
     5820   01 02724    0000118D              DATA     LOC
     5821   01 02725    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     5822   01 02726    41000002 A            DATA     X'41000002',X'3C400000',X'3C200000',X'3C200000'
            01 02727    3C400000 A
            01 02728    3C200000 A
            01 02729    3C200000 A
     5823                            * FAS CASE
     5824                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     5825                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     5826                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     5827   01 0272A    083D0087 A   FAS59    MODULE
     5828   01 0272B    3DC030F0              FAS,12   MEMORY
     5829   01 0272C    0000118D              DATA     LOC
     5830   01 0272D    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     5831   01 0272E    37500000 A            DATA     X'37500000',X'37800000',X'3C000003',X'3C000003'
            01 0272F    37800000 A
            01 02730    3C000003 A
            01 02731    3C000003 A
     5832   01 02732    083E0088 A   FAS60    MODULE                     FAS
     5833   01 02733    3DC0000C A            FAS,12   12
     5834   01 02734    0030118D              K        0,0,3,LOC
     5835   01 02735    2030118F              K        2,0,3,LOC+2
     5836   01 02736    40AAAAAA A            DATA     X'40AAAAAA'
     5837   01 02737    41155555 A            DATA     X'41155555'
     5838   01 02738    40AAAAAA A            DATA     X'40AAAAAA'
     5839   01 02739    40AAAAAA A            DATA     X'40AAAAAA'
     5840   01 0273A    0C010089 A   FAL01    MODULE   X'1D'             FAL
     5841   01 0273B    1DC030F0              FAL,12   MEMORY
     5842   01 0273C    0030118D              K        0,0,3,LOC
     5843   01 0273D    1030118F              K        1,0,3,LOC+2
     5844   01 0273E    BFAAAAAA A            DATA     X'BFAAAAAA'
     5845   01 0273F    BF555555 A            DATA     X'BF555555'
     5846   01 02740    BFAAAAAA A            DATA     X'BFAAAAAA'
     5847   01 02741    BFAAAAAA A            DATA     X'BFAAAAAA'
     5848   01 02742    AAAAAAAA A            DATA     X'AAAAAAAA'
     5849   01 02743    55555554 A            DATA     X'55555554'
     5850   01 02744    AAAAAAAA A            DATA     X'AAAAAAAA'
     5851   01 02745    AAAAAAAA A            DATA     X'AAAAAAAA'
     5852   01 02746    0C02008A A   FAL02    MODULE                     FAL
     5853   01 02747    1DC030F0              FAL,12   MEMORY
     5854   01 02748    0030118D              K        0,0,3,LOC
     5855   01 02749    1030118F              K        1,0,3,LOC+2
     5856   01 0274A    C0555555 A            DATA     X'C0555555'
     5857   01 0274B    BFEAAAAA A            DATA     X'BFEAAAAA'
     5858   01 0274C    C0555555 A            DATA     X'C0555555'
     5859   01 0274D    C0555555 A            DATA     X'C0555555'
     5860   01 0274E    55555555 A            DATA     X'55555555'
     5861   01 0274F    AAAAAAAB A            DATA     X'AAAAAAAB'
     5862   01 02750    55555555 A            DATA     X'55555555'
     5863   01 02751    55555555 A            DATA     X'55555555'
     5864   01 02752    0C03008B A   FAL03    MODULE                     FAL            CARRY INTO PRIME ADDE
     5865   01 02753    1DC030F0              FAL,12   MEMORY
     5866   01 02754    0030118D              K        0,0,3,LOC
     5867   01 02755    2030118F              K        2,0,3,LOC+2
     5868   01 02756    407FFFFF A            DATA     X'407FFFFF'
     5869   01 02757    40800000 A            DATA     X'40800000'
     5870   01 02758    40000000 A            DATA     X'40000000'
     5871   01 02759    40000000 A            DATA     X'40000000'
     5872   01 0275A    FFFFFFFF A            DATA     X'FFFFFFFF'
     5873   01 0275B    00000000 A            DATA     X'0'
     5874   01 0275C    00000001 A            DATA     X'1'
     5875   01 0275D    00000001 A            DATA     X'1'
     5876   01 0275E    0C04008C A   FAL04    MODULE                     FAL            CARRY INTO PRIME ADDE
     5877   01 0275F    1DC030F0              FAL,12   MEMORY
     5878   01 02760    0030118D              K        0,0,3,LOC
     5879   01 02761    2030118F              K        2,0,3,LOC+2
     5880   01 02762    40000000 A            DATA     X'40000000'
     5881   01 02763    41100000 A            DATA     X'41100000'
     5882   01 02764    40FFFFFF A            DATA     X'40FFFFFF'
     5883   01 02765    40FFFFFF A            DATA     X'40FFFFFF'
     5884   01 02766    00000001 A            DATA     X'1'
     5885   01 02767    00000000 A            DATA     X'0'
     5886   01 02768    FFFFFFFF A            DATA     X'FFFFFFFF'
     5887   01 02769    FFFFFFFF A            DATA     X'FFFFFFFF'
     5888   01 0276A    0405008D A   FAL05    MODULE                     FAL       FN=1  ZERO RESULT UNNORM
     5889   01 0276B    1DC030F0              FAL,12   MEMORY
     5890   01 0276C    0730118D              K        0,7,3,LOC
     5891   01 0276D    0730118F              K        0,7,3,LOC+2
     5892   01 0276E    0C06008E A   FAL06    MODULE                     FN=1  POS RESULT UNNORM
     5893   01 0276F    9DCE10B8              FAL,12   *IAP,7
     5894   01 02770    0730118D              K        0,7,3,LOC
     5895   01 02771    2730118F              K        2,7,3,LOC+2
     5896   01 02772    4000003F A            DATA     X'4000003F'
     5897   01 02773    4000007F A            DATA     X'4000007F'
     5898   01 02774    4000003F A            DATA     X'4000003F'
     5899   01 02775    4000003F A            DATA     X'4000003F'
     5900   01 02776    FFFFFFFF A            DATA     X'FFFFFFFF'
     5901   01 02777    FFFFFFFE A            DATA     X'FFFFFFFE'
     5902   01 02778    FFFFFFFF A            DATA     X'FFFFFFFF'
     5903   01 02779    FFFFFFFF A            DATA     X'FFFFFFFF'
     5904   01 0277A    0C07008F A   FAL07    MODULE                     FN=1  NEG RESULT UNNORM
     5905   01 0277B    9DC01B7A              FAL,12   *IA
     5906   01 0277C    0730118D              K        0,7,3,LOC
     5907   01 0277D    1730118F              K        1,7,3,LOC+2
     5908   01 0277E    4000003F A            DATA     X'4000003F'
     5909   01 0277F    BFFFFFD0 A            DATA     X'BFFFFFD0'
     5910   01 02780    BFFFFF90 A            DATA     X'BFFFFF90'
     5911   01 02781    BFFFFF90 A            DATA     X'BFFFFF90'
     5912   01 02782    FFFFFFFF A            DATA     X'FFFFFFFF'
     5913   01 02783    00000000 A            DATA     X'0'
     5914   01 02784    00000001 A            DATA     X'1'
     5915   01 02785    00000001 A            DATA     X'1'
     5916   01 02786    0C080090 A   FAL08    MODULE                     FN=0,FZ=0,UNDERFLOW
     5917   01 02787    1DC030F0              FAL,12   MEMORY
     5918   01 02788    0430118D              K        0,4,3,LOC
     5919   01 02789    C430118F              K        12,4,3,LOC+2
     5920   01 0278A    00010000 A            DATA     X'00010000'
     5921   01 0278B    00000000 A            DATA     X'0'
     5922   01 0278C    00010000 A            DATA     X'00010000'
     5923   01 0278D    00010000 A            DATA     X'00010000'
     5924   01 0278E    FFFFFFFF A            DATA     X'FFFFFFFF'
     5925   01 0278F    00000000 A            DATA     X'0'
     5926   01 02790    00000001 A            DATA     X'1'
     5927   01 02791    00000001 A            DATA     X'1'
     5928   01 02792    08090091 A   FAL09    MODULE                     FAL       FN=0,FZ=1,UFLO,+ RES,TRAP
     5929   01 02793    1DC030F0              FAL,12   MEMORY
     5930   01 02794    02301191              K        0,2,3,LOC+4
     5931   01 02795    E2301016              K        14,2,3,EXP:TRAP
     5932   01 02796    00010000 A            DATA     X'00010000'
     5933   01 02797    00010000 A            DATA     X'00010000'
     5934   01 02798    00010000 A            DATA     X'00010000'
     5935   01 02799    00010000 A            DATA     X'00010000'
     5936   01 0279A    080A0092 A   FAL10    MODULE                     FAL       FN=0,FZ=1,UFLO,-RES,TRAP
     5937   01 0279B    1DC030F0              FAL,12   MEMORY
     5938   01 0279C    06301191              K        0,6,3,LOC+4
     5939   01 0279D    86301016              K        8,6,3,EXP:TRAP
     5940   01 0279E    FFFF0000 A            DATA     X'FFFF0000'
     5941   01 0279F    FFFF0000 A            DATA     X'FFFF0000'
     5942   01 027A0    00010000 A            DATA     X'00010000'
     5943   01 027A1    00010000 A            DATA     X'00010000'
     5944   01 027A2    040B0093 A   FAL11    MODULE                     FAL       FN=0,FS=0,RES=0
     5945   01 027A3    1DC030F0              FAL,12   MEMORY
     5946   01 027A4    0030118D              K        0,0,3,LOC
     5947   01 027A5    8030118F              K        8,0,3,LOC+2
     5948   01 027A6    040C0094 A   FAL12    MODULE                     FAL       FN=0,FS=1,RES=0,TRAP
     5949   01 027A7    1DC030F0              FAL,12   MEMORY
     5950   01 027A8    04301191              K        0,4,3,LOC+4
     5951   01 027A9    84301016              K        8,4,3,EXP:TRAP
     5952   01 027AA    080D0095 A   FAL13    MODULE                     FAL       FN=0,FS=0,+RES,>2 SHIFTS
     5953   01 027AB    1DC030F0              FAL,12   MEMORY
     5954   01 027AC    0230118D              K        0,2,3,LOC
     5955   01 027AD    A230118F              K        10,2,3,LOC+2
     5956   01 027AE    40000100 A            DATA     X'40000100'
     5957   01 027AF    3D200000 A            DATA     X'3D200000'
     5958   01 027B0    40000100 A            DATA     X'40000100'
     5959   01 027B1    40000100 A            DATA     X'40000100'
     5960   01 027B2    080E0096 A   FAL14    MODULE                     FAL       FN=0,FS=0,-RES,>2 SHIFTS
     5961   01 027B3    1DC030F0              FAL,12   MEMORY
     5962   01 027B4    0230118D              K        0,2,3,LOC
     5963   01 027B5    9230118F              K        9,2,3,LOC+2
     5964   01 027B6    40000100 A            DATA     X'40000100'
     5965   01 027B7    C2F00000 A            DATA     X'C2F00000'
     5966   01 027B8    BFFFFE00 A            DATA     X'BFFFFE00'
     5967   01 027B9    BFFFFE00 A            DATA     X'BFFFFE00'
     5968   01 027BA    080F0097 A   FAL15    MODULE                     FAL       FN=0,FS=0,UFLO,FZ=0,>2 SH
     5969   01 027BB    1DC030F0              FAL,12   MEMORY
     5970   01 027BC    0030118D              K        0,0,3,LOC
     5971   01 027BD    C030118F              K        12,0,3,LOC+2
     5972   01 027BE    00001000 A            DATA     X'00001000'
     5973   01 027BF    00000000 A            DATA     X'0'
     5974   01 027C0    00001000 A            DATA     X'00001000'
     5975   01 027C1    00001000 A            DATA     X'00001000'
     5976   01 027C2    08100098 A   FAL16    MODULE                     FAL       FN=0,FS=0,UFLO,FZ=1,+RES,
     5977   01 027C3    1DC030F0              FAL,12   MEMORY            >2 SHIFTS,TRAP
     5978   01 027C4    02301191              K        0,2,3,LOC+4
     5979   01 027C5    E2301016              K        14,2,3,EXP:TRAP
     5980   01 027C6    00001000 A            DATA     X'00001000'
     5981   01 027C7    00001000 A            DATA     X'1000'
     5982   01 027C8    00001000 A            DATA     X'00001000'
     5983   01 027C9    00001000 A            DATA     X'1000'
     5984   01 027CA    08110099 A   FAL17    MODULE                     FAL       FN=0,FS=0,UFLO,FZ=1,-RES,
     5985   01 027CB    1DC030F0              FAL,12   MEMORY            >2 DHIFTS, TRAP
     5986   01 027CC    02301191              K        0,2,3,LOC+4
     5987   01 027CD    D2301016              K        13,2,3,EXP:TRAP
     5988   01 027CE    00000100 A            DATA     X'00000100'
     5989   01 027CF    00000100 A            DATA     X'100'
     5990   01 027D0    FFFFFE00 A            DATA     X'FFFFFE00'
     5991   01 027D1    FFFFFE00 A            DATA     X'FFFFFE00'
     5992   01 027D2    0812009A A   FAL18    MODULE                     FAL       FN=0,FS=1,+RES,>2 SHIFTS,
     5993   01 027D3    1DC030F0              FAL,12   MEMORY
     5994   01 027D4    06301191              K        0,6,3,LOC+4
     5995   01 027D5    A6301016              K        10,6,3,EXP:TRAP
     5996   01 027D6    40000100 A            DATA     X'40000100'
     5997   01 027D7    40000100 A            DATA     X'40000100'
     5998   01 027D8    40000100 A            DATA     X'40000100'
     5999   01 027D9    40000100 A            DATA     X'40000100'
     6000   01 027DA    0813009B A   FAL19    MODULE                     FAL       FN=0,FS=1,-RES,>2 SHIFTS,
     6001   01 027DB    1DC030F0              FAL,12   MEMORY            TRAP
     6002   01 027DC    04301191              K        0,4,3,LOC+4
     6003   01 027DD    94301016              K        9,4,3,EXP:TRAP
     6004   01 027DE    40000100 A            DATA     X'40000100'
     6005   01 027DF    40000100 A            DATA     X'40000100'
     6006   01 027E0    BFFFFE00 A            DATA     X'BFFFFE00'
     6007   01 027E1    BFFFFE00 A            DATA     X'BFFFFE00'
     6008                            * FAL CASE
     6009                            *  TEST : G1215= G14.PR12.PR13, G2831= G30.PR28.PR29, G6871=G70.PR68PR69
     6010                            *         K71=PR00-11.G1215, K03=PR04-11.G1215, K07=PR0811.G1215
     6011                            *         K12=PR13.G14,K16=PR17.PR18.PR19.K19, K17=PR18.PR19.K19
     6012                            *         K28=PR29.G30,  G5255= G54.PR52.PR53, K68=PR69.G70
     6013                            *         K47=PR4851.G5255, K52=PR53.G54,K56=PR57.PR58.PR59.K59
     6014                            *  OVERFLOW
     6015   01 027E2    0C14009C A   FAL20    MODULE
     6016   01 027E3    1DC030F0              FAL,12   MEMORY
     6017   01 027E4    0000118D              DATA     LOC
     6018   01 027E5    2000118F              K        2,0,0,LOC+2
     6019   01 027E6    22FEFFFE A            DATA     X'22FEFFFE',X'23101000',X'22020002',X'22020002'
            01 027E7    23101000 A
            01 027E8    22020002 A
            01 027E9    22020002 A
     6020   01 027EA    FFFEFFFE A            DATA     X'FFFEFFFE',X'10001000',X'20002',X'20002'
            01 027EB    10001000 A
            01 027EC    00020002 A
            01 027ED    00020002 A
     6021                            * FAL CASE
     6022                            *  TEST : G1215= G13.PR12 , G2831= G29.PR28
     6023                            *         G5255= G53.PR52 , G6871= G69.PR68
     6024   01 027EE    0C15009D A   FAL21    MODULE
     6025   01 027EF    1DC030F0              FAL,12   MEMORY
     6026   01 027F0    0000118D              DATA     LOC
     6027   01 027F1    2000118F              K        2,0,0,LOC+2
     6028   01 027F2    337DFFFD A            DATA     X'337DFFFD',X'33820002',X'33040004',X'33040004'
            01 027F3    33820002 A
            01 027F4    33040004 A
            01 027F5    33040004 A
     6029   01 027F6    FFFDFFFC A            DATA     X'FFFDFFFC',X'20000',X'40004',X'40004'
            01 027F7    00020000 A
            01 027F8    00040004 A
            01 027F9    00040004 A
     6030                            * FAL CASE
     6031                            *  TEST : G0811= G11.PR08.PR09.PR10, G2427= G27.PR24.PR25.PR26
     6032                            *         G4851= G51.PR48.PR49.PR50, G6467= G67.PR64.PR65.PR66
     6033                            *         K11= PR00-07.G0811, K03= PR0407.G0811,K15=PR1623.G2427
     6034                            *         K08= PR09.PR10.G11, K19=PR2023.G2427, K55=PR5663.G6467
     6035                            *         K48= PR49.PR50.G51, K49=PR6063.G6467, K09=PR10.G11
     6036                            *         K24= PR25.PR26.G27, K25= PR26.G27     K49=PR50.G51
     6037                            *         K64= PR65.PR66.G67, K65= PR66.G67,
     6038                            *  OVERFLOW
     6039   01 027FA    0C16009E A   FAL22    MODULE
     6040   01 027FB    1DC030F0              FAL,12   MEMORY
     6041   01 027FC    0000118D              DATA     LOC
     6042   01 027FD    2000118F              K        2,0,0,LOC+2
     6043   01 027FE    44F7FFF0 A            DATA     X'44F7FFF0',X'45108000',X'44100010',X'44100010'
            01 027FF    45108000 A
            01 02800    44100010 A
            01 02801    44100010 A
     6044   01 02802    FFF7FFF0 A            DATA     X'FFF7FFF0',X'10008000',X'100010',X'100010'
            01 02803    10008000 A
            01 02804    00100010 A
            01 02805    00100010 A
     6045                            * FAL CASE
     6046                            *  TEST : G0811= G10.PR08.PR09, G2427= G26,PR24.PR25, K24= PR25.G26
     6047                            *         G4851= G50.PR48.PR49, G6467= G66.PR24.PR25, K64= PR65.G66
     6048                            *  OVERFLOW
     6049   01 02806    0C17009F A   FAL23    MODULE
     6050   01 02807    1DC030F0              FAL,12   MEMORY
     6051   01 02808    0000118D              DATA     LOC
     6052   01 02809    2000118F              K        2,0,0,LOC+2
     6053   01 0280A    55EFFFE0 A            DATA     X'55EFFFE0',X'56110000',X'55200020',X'55200020'
            01 0280B    56110000 A
            01 0280C    55200020 A
            01 0280D    55200020 A
     6054   01 0280E    FFEFFFE0 A            DATA     X'FFEFFFE0',X'10010000',X'200020',X'200020'
            01 0280F    10010000 A
            01 02810    00200020 A
            01 02811    00200020 A
     6055                            * FAL CASE
     6056                            *  TEST : G0811= G09.PR08, G2427=G25.PR24
     6057                            *         G4851= G49.PR48, G6467=G65.PR64
     6058                            *  OVERFLOW
     6059   01 02812    0C1800A0 A   FAL24    MODULE
     6060   01 02813    1DC030F0              FAL,12   MEMORY
     6061   01 02814    0000118D              DATA     LOC
     6062   01 02815    2000118F              K        2,0,0,LOC+2
     6063   01 02816    66DFFFC0 A            DATA     X'66DFFFC0',X'67120000',X'66400040',X'66400040'
            01 02817    67120000 A
            01 02818    66400040 A
            01 02819    66400040 A
     6064   01 0281A    00DFFFC0 A            DATA     X'00DFFFC0',X'00120000',X'400040',X'400040'
            01 0281B    00120000 A
            01 0281C    00400040 A
            01 0281D    00400040 A
     6065                            * FAL CASE
     6066                            *  TEST :G0407= G07.PR04.PR05.PR06, G2023= G23.PR20.PR21.PR22
     6067                            *        K71=PR0003.G0407, K15= PR1619.G2023, K4=PR05.PR06.G07
     6068                            *        K5= PR06.G07, K20 = PR21.PR22.G23, K21=PR22.G23
     6069                            *        K55=PR5659.G6063, K60=PR61.PR62.G63, K61= PR62.G63
     6070                            *        G6063= G63.PR60.PR61.PR62
     6071   01 0281E    0C1900A1 A   FAL25    MODULE
     6072   01 0281F    1DC030F0              FAL,12   MEMORY
     6073   01 02820    0000118D              DATA     LOC
     6074   01 02821    2000118F              K        2,0,0,LOC+2
     6075   01 02822    777FFF00 A            DATA     X'777FFF00',X'77800001',X'77000100',X'77000100'
            01 02823    77800001 A
            01 02824    77000100 A
            01 02825    77000100 A
     6076   01 02826    FF7FFF00 A            DATA     X'FF7FFF00',X'800000',X'1000100',X'1000100'
            01 02827    00800000 A
            01 02828    01000100 A
            01 02829    01000100 A
     6077                            * FAL CASE
     6078                            *  TEST :G0407= G06.PR04.PR05, G2023=G22.PR20.PR21, K04= PR05.G06
     6079                            *        K20= G22.PR21, K60=G62.PR61, G6063= G62.PR60.PR61
     6080   01 0282A    0C1A00A2 A   FAL26    MODULE
     6081   01 0282B    1DC030F0              FAL,12   MEMORY
     6082   01 0282C    0000118D              DATA     LOC
     6083   01 0282D    1000118F              K        1,0,0,LOC+2
     6084   01 0282E    8800FE00 A            DATA     X'8800FE00',X'87E01000',X'88000200',X'88000200'
            01 0282F    87E01000 A
            01 02830    88000200 A
            01 02831    88000200 A
     6085   01 02832    FEFFFE00 A            DATA     X'FEFFFE00',X'10100000',X'02000200',X'02000200'
            01 02833    10100000 A
            01 02834    02000200 A
            01 02835    02000200 A
     6086                            * FAL CASE
     6087                            *  TESTS: G0407= G05.PR04, G2023=PR20.G21, G6063= PR60.G61
     6088                            *  OVERFLOW
     6089   01 02836    0C1B00A3 A   FAL27    MODULE
     6090   01 02837    1DC030F0              FAL,12   MEMORY
     6091   01 02838    0000118D              DATA     LOC
     6092   01 02839    1000118F              K        1,0,0,LOC+2
     6093   01 0283A    99000C00 A            DATA     X'99000C00',X'98E00100',X'99000400',X'99000400'
            01 0283B    98E00100 A
            01 0283C    99000400 A
            01 0283D    99000400 A
     6094   01 0283E    FDFFFC00 A            DATA     X'FDFFFC00',X'10200000',X'4000400',X'4000400'
            01 0283F    10200000 A
            01 02840    04000400 A
            01 02841    04000400 A
     6095                            * FAL CASE
     6096                            *  TESTS: G1619= G19.PR16.PR17.PR18, K16= PR17.PR18.G19, K17=PR18.G19
     6097                            *         G5659= G59.PR56.PR57.PR58, K56= PR57.PR58.G59, K57=PR58.G59
     6098                            *  OVERFLOW
     6099   01 02842    0C1C00A4 A   FAL28    MODULE
     6100   01 02843    1DC030F0              FAL,12   MEMORY
     6101   01 02844    0000118D              DATA     LOC
     6102   01 02845    1000118F              K        1,0,0,LOC+2
     6103   01 02846    AA10F000 A            DATA     X'AA10F000',X'A9E11000',X'AA001000',X'AA001000'
            01 02847    A9E11000 A
            01 02848    AA001000 A
            01 02849    AA001000 A
     6104   01 0284A    0000F000 A            DATA     X'F000',X'01000',X'1000',X'1000'
            01 0284B    00001000 A
            01 0284C    00001000 A
            01 0284D    00001000 A
     6105                            * FAL CASE
     6106                            *  TEST : G1619= G18.PR16.PR17, K16= PR17.G18
     6107                            *         G5659= G58.PR56.PR57, K56= PR57.G58
     6108                            *  OVERFLOW
     6109   01 0284E    0C1D00A5 A   FAL29    MODULE
     6110   01 0284F    1DC030F0              FAL,12   MEMORY
     6111   01 02850    0000118D              DATA     LOC
     6112   01 02851    1000118F              K        1,0,0,LOC+2
     6113   01 02852    BB20E000 A            DATA     X'BB20E000',X'BAE21000',X'BB002000',X'BB002000'
            01 02853    BAE21000 A
            01 02854    BB002000 A
            01 02855    BB002000 A
     6114   01 02856    0000E000 A            DATA     X'E000',X'01000',X'2000',X'2000'
            01 02857    00001000 A
            01 02858    00002000 A
            01 02859    00002000 A
     6115                            * FAL CASE
     6116                            *  TEST : G1619= PR16.G17, G5659 =G57.PR56
     6117                            *  OVERFLOW
     6118   01 0285A    0C1E00A6 A   FAL30    MODULE
     6119   01 0285B    1DC030F0              FAL,12   MEMORY
     6120   01 0285C    0000118D              DATA     LOC
     6121   01 0285D    1000118F              K        1,0,0,LOC+2
     6122   01 0285E    CC30C000 A            DATA     X'CC30C000',X'CBE31000',X'CC004000',X'CC004000'
            01 0285F    CBE31000 A
            01 02860    CC004000 A
            01 02861    CC004000 A
     6123   01 02862    0000C000 A            DATA     X'C000',X'01000',X'4000',X'4000'
            01 02863    00001000 A
            01 02864    00004000 A
            01 02865    00004000 A
     6124                            * FAL CASE
     6125                            *  TEST : G1215= G15.PR12.PR13.PR14, K12 = G15.PR13.PR14, K13=G15.PR14
     6126                            *         G5255= G55.PR52.PR53.PR54, K52=  G55.PR53.PR54, K53=G55.PR54
     6127                            *  OVERFLOW
     6128   01 02866    0C1F00A7 A   FAL31    MODULE
     6129   01 02867    1DC030F0              FAL,12   MEMORY
     6130   01 02868    0000118D              DATA     LOC
     6131   01 02869    1000118F              K        1,0,0,LOC+2
     6132   01 0286A    DD0F0000 A            DATA     X'DD0F0000',X'DCE10000',X'DD010000',X'DD010000'
            01 0286B    DCE10000 A
            01 0286C    DD010000 A
            01 0286D    DD010000 A
     6133   01 0286E    0FFF0000 A            DATA     X'FFF0000',X'01000000',X'10000',X'10000'
            01 0286F    01000000 A
            01 02870    00010000 A
            01 02871    00010000 A
     6134                            * FAL CASE
     6135                            *  TEST : G0003= G03.PR00.PR01.PR02, K0=PR01.PR02.G3, K1=PR02.G03
     6136                            *  OVERFLOW
     6137   01 02872    0C2000A8 A   FAL32    MODULE
     6138   01 02873    1DC030F0              FAL,12   MEMORY
     6139   01 02874    0000118D              DATA     LOC
     6140   01 02875    1000118F              K        1,0,0,LOC+2
     6141   01 02876    EE000000 A            DATA     X'EE000000',X'EDE40000',X'EE400000',X'EE400000'
            01 02877    EDE40000 A
            01 02878    EE400000 A
            01 02879    EE400000 A
     6142   01 0287A    F0000000 A            DATA     X'F0000000',X'10000000',X'10000000',X'10000000'
            01 0287B    10000000 A
            01 0287C    10000000 A
            01 0287D    10000000 A
     6143                            * FAL CASE
     6144                            *  TEST : G0003= G02.PR00.PR01, K0= PR01.G02
     6145                            *  OVERFLOW
     6146   01 0287E    0C2100A9 A   FAL33    MODULE
     6147   01 0287F    1DC030F0              FAL,12   MEMORY
     6148   01 02880    0000118D              DATA     LOC
     6149   01 02881    1000118F              K        1,0,0,LOC+2
     6150   01 02882    FF000000 A            DATA     X'FF000000',X'FEE80000',X'FF800000',X'FF800000'
            01 02883    FEE80000 A
            01 02884    FF800000 A
            01 02885    FF800000 A
     6151   01 02886    E0000000 A            DATA     X'E0000000',X'10000000',X'20000000',X'20000000'
            01 02887    10000000 A
            01 02888    20000000 A
            01 02889    20000000 A
     6152                            * FAL CASE
     6153                            *  TEST : G0003= G01.PR00
     6154   01 0288A    0C2200AA A   FAL34    MODULE
     6155   01 0288B    1DC030F0              FAL,12   MEMORY
     6156   01 0288C    0000118D              DATA     LOC
     6157   01 0288D    2000118F              K        2,0,0,LOC+2
     6158   01 0288E    11000000 A            DATA     X'11000000',X'11200001',X'11200000',X'11200000'
            01 0288F    11200001 A
            01 02890    11200000 A
            01 02891    11200000 A
     6159   01 02892    C0000000 A            DATA     X'C0000000',0,X'40000000',X'40000000'
            01 02893    00000000 A
            01 02894    40000000 A
            01 02895    40000000 A
     6160                            * FAL CASE
     6161                            * A EXPONENT - D EXPONENT = 0  LENGTHY NORMALIZE  ADD +3& -2
     6162   01 02896    0C2300AB A   FAL35    MODULE
     6163   01 02897    1DC030F0              FAL,12   MEMORY
     6164   01 02898    0000118D              DATA     LOC
     6165   01 02899    A000118F              K        10,0,0,LOC+2
     6166   01 0289A    55000000 A            DATA     X'55000000',X'48100000'
            01 0289B    48100000 A
     6167   01 0289C    AAFFFFFF A            DATA     X'AAFFFFFF',X'AAFFFFFF'
            01 0289D    AAFFFFFF A
     6168   01 0289E    00000003 A            DATA     3,0,-2,-2
            01 0289F    00000000 A
            01 028A0    FFFFFFFE A
            01 028A1    FFFFFFFE A
     6169                            * FAL CASE
     6170                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     6171                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6172                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6173   01 028A2    082400AC A   FAL36    MODULE
     6174   01 028A3    1DC030F0              FAL,12   MEMORY
     6175   01 028A4    0000118D              DATA     LOC
     6176   01 028A5    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     6177   01 028A6    7F000000 A            DATA     X'7F000000',X'72100000',X'72100000',X'72100000'
            01 028A7    72100000 A
            01 028A8    72100000 A
            01 028A9    72100000 A
     6178                            * FAL CASE
     6179                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     6180                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6181                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6182   01 028AA    0A2500AD A   FAL37    MODULE
     6183   01 028AB    1DC030F0              FAL,12   MEMORY
     6184   01 028AC    0000118D              DATA     LOC
     6185   01 028AD    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     6186   01 028AE    72000000 A            DATA     X'72000000',X'65200000',X'65100000',X'65100000'
            01 028AF    65200000 A
            01 028B0    65100000 A
            01 028B1    65100000 A
     6187   01 028B2    00000001 A            DATA     1,0
            01 028B3    00000000 A
     6188                            * FAL CASE
     6189                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     6190                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6191                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6192   01 028B4    0C2600AE A   FAL38    MODULE
     6193   01 028B5    1DC030F0              FAL,12   MEMORY
     6194   01 028B6    0000118D              DATA     LOC
     6195   01 028B7    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     6196   01 028B8    58300000 A            DATA     X'58300000',X'58400000',X'65000000',X'65000000'
            01 028B9    58400000 A
            01 028BA    65000000 A
            01 028BB    65000000 A
     6197   01 028BC    00000000 A            DATA     0,0,1,1
            01 028BD    00000000 A
            01 028BE    00000001 A
            01 028BF    00000001 A
     6198                            * FAL CASE
     6199                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     6200                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6201                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6202   01 028C0    0C2700AF A   FAL39    MODULE
     6203   01 028C1    1DC030F0              FAL,12   MEMORY
     6204   01 028C2    0000118D              DATA     LOC
     6205   01 028C3    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     6206   01 028C4    4B200000 A            DATA     X'4B200000',X'4B800000',X'58000000',X'58000000'
            01 028C5    4B800000 A
            01 028C6    58000000 A
            01 028C7    58000000 A
     6207   01 028C8    00000000 A            DATA     0,0,6,6
            01 028C9    00000000 A
            01 028CA    00000006 A
            01 028CB    00000006 A
     6208                            * FAL CASE
     6209                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6210                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6211   01 028CC    0A2800B0 A   FAL40    MODULE
     6212   01 028CD    1DC030F0              FAL,12   MEMORY
     6213   01 028CE    0000118D              DATA     LOC
     6214   01 028CF    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     6215   01 028D0    37000000 A            DATA     X'37000000',X'2A800000',X'2A400000',X'2A400000'
            01 028D1    2A800000 A
            01 028D2    2A400000 A
            01 028D3    2A400000 A
     6216   01 028D4    00000004 A            DATA     4,0
            01 028D5    00000000 A
     6217                            * FAL CASE
     6218                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6219                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6220   01 028D6    0A2900B1 A   FAL41    MODULE
     6221   01 028D7    1DC030F0              FAL,12   MEMORY
     6222   01 028D8    0000118D              DATA     LOC
     6223   01 028D9    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     6224   01 028DA    2A000000 A            DATA     X'2A000000',X'1D200000',X'1D100000',X'1D100000'
            01 028DB    1D200000 A
            01 028DC    1D100000 A
            01 028DD    1D100000 A
     6225   01 028DE    00000001 A            DATA     1,0
            01 028DF    00000000 A
     6226                            * FAL CASE
     6227                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6228                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6229   01 028E0    0A2A00B2 A   FAL42    MODULE
     6230   01 028E1    1DC030F0              FAL,12   MEMORY
     6231   01 028E2    0000118D              DATA     LOC
     6232   01 028E3    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     6233   01 028E4    1D000000 A            DATA     X'1D000000',X'10400000',X'10200000',X'10200000'
            01 028E5    10400000 A
            01 028E6    10200000 A
            01 028E7    10200000 A
     6234   01 028E8    00000002 A            DATA     2,0
            01 028E9    00000000 A
     6235                            * FAL CASE
     6236                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6237                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6238   01 028EA    0A2B00B3 A   FAL43    MODULE
     6239   01 028EB    1DC030F0              FAL,12   MEMORY
     6240   01 028EC    0000118D              DATA     LOC
     6241   01 028ED    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     6242   01 028EE    10000000 A            DATA     X'10000000',X'03A00000',X'03800000',X'03800000'
            01 028EF    03A00000 A
            01 028F0    03800000 A
            01 028F1    03800000 A
     6243   01 028F2    00000002 A            DATA     2,0
            01 028F3    00000000 A
     6244                            * FAL CASE
     6245                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6246                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6247   01 028F4    0A2C00B4 A   FAL44    MODULE
     6248   01 028F5    1DC030F0              FAL,12   MEMORY
     6249   01 028F6    0000118D              DATA     LOC
     6250   01 028F7    A000118F              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     6251   01 028F8    0D000000 A            DATA     X'0D000000',X'00500000',X'00100000',X'00100000'
            01 028F9    00500000 A
            01 028FA    00100000 A
            01 028FB    00100000 A
     6252   01 028FC    00000004 A            DATA     4,0
            01 028FD    00000000 A
     6253                            * FAL CASE
     6254                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6255                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6256   01 028FE    0C2D00B5 A   FAL45    MODULE
     6257   01 028FF    1DC030F0              FAL,12   MEMORY
     6258   01 02900    0000118D              DATA     LOC
     6259   01 02901    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6260   01 02902    FF2FFFFF A            DATA     X'FF2FFFFF',X'FF200000'
            01 02903    FF200000 A
     6261   01 02904    F2FFFFFF A            DATA     X'F2FFFFFF',X'F2FFFFFF'
            01 02905    F2FFFFFF A
     6262   01 02906    FFFFFFFF A            DATA     -1,0,-1,-1
            01 02907    00000000 A
            01 02908    FFFFFFFF A
            01 02909    FFFFFFFF A
     6263                            * FAL CASE
     6264                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6265                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6266   01 0290A    0C2E00B6 A   FAL46    MODULE
     6267   01 0290B    1DC030F0              FAL,12   MEMORY
     6268   01 0290C    0000118D              DATA     LOC
     6269   01 0290D    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6270   01 0290E    F23FFFFF A            DATA     X'F23FFFFF',X'F2200000',X'E5FFFFFF',X'E5FFFFFF'
            01 0290F    F2200000 A
            01 02910    E5FFFFFF A
            01 02911    E5FFFFFF A
     6271   01 02912    00000000 A            DATA     0,0,-2,-2
            01 02913    00000000 A
            01 02914    FFFFFFFE A
            01 02915    FFFFFFFE A
     6272                            * FAL CASE
     6273                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6274                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6275   01 02916    0C2F00B7 A   FAL47    MODULE
     6276   01 02917    1DC030F0              FAL,12   MEMORY
     6277   01 02918    0000118D              DATA     LOC
     6278   01 02919    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6279   01 0291A    E54FFFFF A            DATA     X'E54FFFFF',X'E5300000',X'D8FFFFFF',X'D8FFFFFF'
            01 0291B    E5300000 A
            01 0291C    D8FFFFFF A
            01 0291D    D8FFFFFF A
     6280   01 0291E    FFFFFFFF A            DATA     -1,0,-2,-2
            01 0291F    00000000 A
            01 02920    FFFFFFFE A
            01 02921    FFFFFFFE A
     6281                            * FAL CASE
     6282                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6283                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6284   01 02922    0C3000B8 A   FAL48    MODULE
     6285   01 02923    1DC030F0              FAL,12   MEMORY
     6286   01 02924    0000118D              DATA     LOC
     6287   01 02925    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6288   01 02926    D85FFFFF A            DATA     X'D85FFFFF',X'D8400000',X'CBFFFFFF',X'CBFFFFFF'
            01 02927    D8400000 A
            01 02928    CBFFFFFF A
            01 02929    CBFFFFFF A
     6289   01 0292A    FFFFFFFF A            DATA     -1,0,-2,-2
            01 0292B    00000000 A
            01 0292C    FFFFFFFE A
            01 0292D    FFFFFFFE A
     6290                            * FAL CASE
     6291                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6292                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6293   01 0292E    0C3100B9 A   FAL49    MODULE
     6294   01 0292F    1DC030F0              FAL,12   MEMORY
     6295   01 02930    0000118D              DATA     LOC
     6296   01 02931    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6297   01 02932    CB6FFFFF A            DATA     X'CB6FFFFF',X'CB500000',X'BEFFFFFF',X'BEFFFFFF'
            01 02933    CB500000 A
            01 02934    BEFFFFFF A
            01 02935    BEFFFFFF A
     6298   01 02936    FFFFFFFF A            DATA     -1,0,-2,-2
            01 02937    00000000 A
            01 02938    FFFFFFFE A
            01 02939    FFFFFFFE A
     6299                            * FAL CASE
     6300                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6301                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6302   01 0293A    0C3200BA A   FAL50    MODULE
     6303   01 0293B    1DC030F0              FAL,12   MEMORY
     6304   01 0293C    0000118D              DATA     LOC
     6305   01 0293D    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6306   01 0293E    BE7FFFFF A            DATA     X'BE7FFFFF',X'BE600000'
            01 0293F    BE600000 A
     6307   01 02940    B1FFFFFF A            DATA     X'B1FFFFFF'
     6308   01 02941    B1FFFFFF A            DATA     X'B1FFFFFF'
     6309   01 02942    FFFFFFFF A            DATA     -1,0,-2,-2
            01 02943    00000000 A
            01 02944    FFFFFFFE A
            01 02945    FFFFFFFE A
     6310                            * FAL CASE
     6311                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6312                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6313   01 02946    0C3300BB A   FAL51    MODULE
     6314   01 02947    1DC030F0              FAL,12   MEMORY
     6315   01 02948    0000118D              DATA     LOC
     6316   01 02949    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6317   01 0294A    B18FFFFF A            DATA     X'B18FFFFF',X'B1700000'
            01 0294B    B1700000 A
     6318   01 0294C    A4FFFFFF A            DATA     X'A4FFFFFF'
     6319   01 0294D    A4FFFFFF A            DATA     X'A4FFFFFF'
     6320   01 0294E    FFFFFFFF A            DATA     -1,0,-2,-2
            01 0294F    00000000 A
            01 02950    FFFFFFFE A
            01 02951    FFFFFFFE A
     6321                            * FAL CASE
     6322                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     6323                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     6324   01 02952    0C3400BC A   FAL52    MODULE
     6325   01 02953    1DC030F0              FAL,12   MEMORY
     6326   01 02954    0000118D              DATA     LOC
     6327   01 02955    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6328   01 02956    A49FFFFF A            DATA     X'A49FFFFF',X'A4800000'
            01 02957    A4800000 A
     6329   01 02958    97FFFFFF A            DATA     X'97FFFFFF'
     6330   01 02959    97FFFFFF A            DATA     X'97FFFFFF'
     6331   01 0295A    FFFFFFFF A            DATA     -1,0,-2,-2
            01 0295B    00000000 A
            01 0295C    FFFFFFFE A
            01 0295D    FFFFFFFE A
     6332                            * FAL CASE
     6333   01 0295E    0C3500BD A   FAL53    MODULE
     6334   01 0295F    1DC030F0              FAL,12   MEMORY
     6335   01 02960    0000118D              DATA     LOC
     6336   01 02961    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6337   01 02962    97AFFFFF A            DATA     X'97AFFFFF',X'97900000'
            01 02963    97900000 A
     6338   01 02964    8AFFFFFF A            DATA     X'8AFFFFFF'
     6339   01 02965    8AFFFFFF A            DATA     X'8AFFFFFF'
     6340   01 02966    FFFFFFFF A            DATA     -1,0,-2,-2
            01 02967    00000000 A
            01 02968    FFFFFFFE A
            01 02969    FFFFFFFE A
     6341                            * FAL CASE
     6342   01 0296A    0C3600BE A   FAL54    MODULE
     6343   01 0296B    1DC030F0              FAL,12   MEMORY
     6344   01 0296C    0000118D              DATA     LOC
     6345   01 0296D    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6346   01 0296E    8DBFFFFF A            DATA     X'8DBFFFFF',X'8DA00000'
            01 0296F    8DA00000 A
     6347   01 02970    80FFFFFF A            DATA     X'80FFFFFF'
     6348   01 02971    80FFFFFF A            DATA     X'80FFFFFF'
     6349   01 02972    FFFFFFFF A            DATA     -1,0,-2,-2
            01 02973    00000000 A
            01 02974    FFFFFFFE A
            01 02975    FFFFFFFE A
     6350   01 02976    0C0100BF A   FAL55    MODULE   X'1D'             FAL
     6351   01 02977    1DC0000C A            FAL,12   12
     6352   01 02978    0030118D              K        0,0,3,LOC
     6353   01 02979    1030118F              K        1,0,3,LOC+2
     6354   01 0297A    BFAAAAAA A            DATA     X'BFAAAAAA'
     6355   01 0297B    BF555555 A            DATA     X'BF555555'
     6356   01 0297C    BFAAAAAA A            DATA     X'BFAAAAAA'
     6357   01 0297D    BFAAAAAA A            DATA     X'BFAAAAAA'
     6358   01 0297E    AAAAAAAA A            DATA     X'AAAAAAAA'
     6359   01 0297F    55555554 A            DATA     X'55555554'
     6360   01 02980    AAAAAAAA A            DATA     X'AAAAAAAA'
     6361   01 02981    AAAAAAAA A            DATA     X'AAAAAAAA'
     6362   01 02982    080100C0 A   FSS01    MODULE   X'3C'             FSS
     6363   01 02983    3CC030F0              FSS,12   MEMORY
     6364   01 02984    0030118D              K        0,0,3,LOC
     6365   01 02985    2030118F              K        2,0,3,LOC+2
     6366   01 02986    4000FFFF A            DATA     X'4000FFFF'
     6367   01 02987    3F100000 A            DATA     X'3F100000'
     6368   01 02988    BFFFFFFF A            DATA     X'BFFFFFFF'
     6369   01 02989    BFFFFFFF A            DATA     X'BFFFFFFF'
     6370                            * FSS CASE
     6371                            * GUARD DIGIT TEST.  ALSO INSURE  RU1 AND MEMORY+U ARE NOT AFFECTED
     6372   01 0298A    0C0200C1 A   FSS02    MODULE
     6373   01 0298B    3CC030F0              FSS,12   MEMORY
     6374   01 0298C    0000118D              DATA     LOC
     6375   01 0298D    A000118F              K        10,0,0,LOC+2
     6376   01 0298E    40100002 A            DATA     X'40100002',X'3B210000',X'3FFFFFFF',X'3FFFFFFF'
            01 0298F    3B210000 A
            01 02990    3FFFFFFF A
            01 02991    3FFFFFFF A
     6377   01 02992    44444444 A            DATA     X'44444444',X'44444444',X'22222222',X'22222222'
            01 02993    44444444 A
            01 02994    22222222 A
            01 02995    22222222 A
     6378                            * FSS CASE
     6379                            * GUARD DIGIT TEST
     6380   01 02996    080300C2 A   FSS03    MODULE
     6381   01 02997    3CC030F0              FSS,12   MEMORY
     6382   01 02998    0000118D              DATA     LOC
     6383   01 02999    2000118F              K        2,0,0,LOC+2
     6384   01 0299A    20100002 A            DATA     X'20100002',X'1FF0002E',X'1EFFFF2F',X'1EFFFF2F'
            01 0299B    1FF0002E A
            01 0299C    1EFFFF2F A
            01 0299D    1EFFFF2F A
     6385                            * FSS CASE
     6386                            * GUARD DIGIT TEST.  USE RU1 AND MEMORY+1.  SIGMA 5 - MOVE
     6387   01 0299E    0C0400C3 A   FSS04    MODULE
     6388   01 0299F    3CD030F1              FSS,13   MEMORY+1
     6389   01 029A0    0000118D              DATA     LOC
     6390   01 029A1    2000118F              K        2,0,0,LOC+2
     6391   01 029A2    00000000 A            DATA     0,0,0,0           R AND MEMORY
            01 029A3    00000000 A
            01 029A4    00000000 A
            01 029A5    00000000 A
     6392   01 029A6    5F234567 A            DATA     X'5F234567',X'5F134567',X'60010000',X'60010000'
            01 029A7    5F134567 A
            01 029A8    60010000 A
            01 029A9    60010000 A
     6393                            * FSS CASE
     6394                            * EW EXPONENT > R EXPONENT  BOTH NEGATIVE
     6395   01 029AA    080500C4 A   FSS05    MODULE
     6396   01 029AB    3CC030F0              FSS,12   MEMORY
     6397   01 029AC    0000118D              DATA     LOC
     6398   01 029AD    2000118F              K        2,0,0,LOC+2
     6399   01 029AE    DF231860 A            DATA     X'DF231860',X'21F01926'
            01 029AF    21F01926 A
     6400   01 029B0    DE021860 A            DATA     X'DE021860',X'DE021860'
            01 029B1    DE021860 A
     6401                            * FSS CASE
     6402                            * EW EXPONENT < R EXPONENT   EW POS S R NEG
     6403   01 029B2    080600C5 A   FSS06    MODULE
     6404   01 029B3    3CC030F0              FSS,12   MEMORY
     6405   01 029B4    0000118D              DATA     LOC
     6406   01 029B5    1000118F              K        1,0,0,LOC+2
     6407   01 029B6    B2604222 A            DATA     X'B2604222',X'B25A3E00'
            01 029B7    B25A3E00 A
     6408   01 029B8    4C604222 A            DATA     X'4C604222',X'4C604222'
            01 029B9    4C604222 A
     6409                            * FSS CASE
     6410                            * EW EXPONENT > R EXPONENT   EW POS S R NEG
     6411   01 029BA    080700C6 A   FSS07    MODULE
     6412   01 029BB    3CC030F0              FSS,12   MEMORY
     6413   01 029BC    0000118D              DATA     LOC
     6414   01 029BD    1000118F              K        1,0,0,LOC+2
     6415   01 029BE    CBAABBCC A            DATA     X'CBAABBCC',X'C9AA6689'
            01 029BF    C9AA6689 A
     6416   01 029C0    36554433 A            DATA     X'36554433',X'36554433'
            01 029C1    36554433 A
     6417                            * FSS CASE
     6418                            *  -A + A WITH FN=1  TO CAUSE CC=0
     6419   01 029C2    080800C7 A   FSS08    MODULE
     6420   01 029C3    3CC030F0              FSS,12   MEMORY
     6421   01 029C4    F700118D              K        15,7,0,LOC
     6422   01 029C5    0700118F              K        0,7,0,LOC+2
     6423   01 029C6    04234567 A            DATA     X'04234567',0,X'04234567',X'04234567'
            01 029C7    00000000 A
            01 029C8    04234567 A
            01 029C9    04234567 A
     6424   01 029CA    080900C8 A   FSS09    MODULE
     6425   01 029CB    3CC030F0              FSS,12   MEMORY
     6426   01 029CC    0100118D              K        0,1,0,LOC
     6427   01 029CD    0100118F              K        0,1,0,LOC+2                                       *A05
     6428   01 029CE    41000001 A            DATA     X'41000001'
     6429   01 029CF    00000000 A            DATA     X'0'                                              *A05
     6430   01 029D0    40000001 A            DATA     X'40000001'
     6431   01 029D1    40000001 A            DATA     X'40000001'
     6432   01 029D2    080A00C9 A   FSS10    MODULE
     6433   01 029D3    3CC030F0              FSS,12   MEMORY
     6434   01 029D4    04001191              K        0,4,0,LOC+4
     6435   01 029D5    A4001016              K        10,4,0,EXP:TRAP
     6436   01 029D6    00000003 A            DATA     3
     6437   01 029D7    00000003 A            DATA     3
     6438   01 029D8    00000001 A            DATA     1
     6439   01 029D9    00000001 A            DATA     1
     6440   01 029DA    080B00CA A   FSS11    MODULE
     6441   01 029DB    3CC030F0              FSS,12   MEMORY
     6442   01 029DC    0000118D              K        0,0,0,LOC
     6443   01 029DD    C000118F              K        12,0,0,LOC+2
     6444   01 029DE    00000003 A            DATA     3
     6445   01 029DF    00000000 A            DATA     0
     6446   01 029E0    00000001 A            DATA     1
     6447   01 029E1    00000001 A            DATA     1
     6448   01 029E2    0C0100CB A   FSL01    MODULE   X'1C'             FSL
     6449   01 029E3    1CC030F0              FSL,12   MEMORY
     6450   01 029E4    0030118D              K        0,0,3,LOC
     6451   01 029E5    2030118F              K        2,0,3,LOC+2
     6452   01 029E6    40FFFFFF A            DATA     X'40FFFFFF'
     6453   01 029E7    40FFFFFF A            DATA     X'40FFFFFF'
     6454   01 029E8    40000000 A            DATA     X'40000000'
     6455   01 029E9    40000000 A            DATA     X'40000000'
     6456   01 029EA    FFFFFFFF A            DATA     X'FFFFFFFF'
     6457   01 029EB    FFFFFFFE A            DATA     X'FFFFFFFE'
     6458   01 029EC    00000001 A            DATA     X'1'
     6459   01 029ED    00000001 A            DATA     X'1'
     6460   01 029EE    0C0200CC A   FSL02    MODULE                     FSL
     6461   01 029EF    1CC030F0              FSL,12   MEMORY
     6462   01 029F0    0030118D              K        0,0,3,LOC
     6463   01 029F1    A030118F              K        10,0,3,LOC+2
     6464   01 029F2    40000000 A            DATA     X'40000000'
     6465   01 029F3    33200000 A            DATA     X'33200000'
     6466   01 029F4    BFFFFFFF A            DATA     X'BFFFFFFF'
     6467   01 029F5    BFFFFFFF A            DATA     X'BFFFFFFF'
     6468   01 029F6    00000001 A            DATA     X'1'
     6469   01 029F7    00000000 A            DATA     X'0'
     6470   01 029F8    FFFFFFFF A            DATA     X'FFFFFFFF'
     6471   01 029F9    FFFFFFFF A            DATA     X'FFFFFFFF'
     6472                            * FSL CASE
     6473                            * TEST: SIGMA 5   ODD PR'S (.NA.ND), EVEN GENERATES (A.ND)
     6474   01 029FA    0A0300CD A   FSL03    MODULE
     6475   01 029FB    1CC030F0              FSL,12   MEMORY
     6476   01 029FC    0000118D              DATA     LOC
     6477   01 029FD    2000118F              K        2,0,0,LOC+2
     6478   01 029FE    01AAAAAA A            DATA     X'01AAAAAA',X'01AAAAAA',X'01000000',X'01000000'
            01 029FF    01AAAAAA A
            01 02A00    01000000 A
            01 02A01    01000000 A
     6479   01 02A02    AAAAAAAA A            DATA     X'AAAAAAAA',X'AAAAAAAA'
            01 02A03    AAAAAAAA A
     6480                            * FSL CASE
     6481                            * TEST: SIGMA 5   EVEN PR'S (.NA.ND), ODD GENERATES (A.ND)
     6482   01 02A04    0A0400CE A   FSL04    MODULE
     6483   01 02A05    1CC030F0              FSL,12   MEMORY
     6484   01 02A06    0000118D              DATA     LOC
     6485   01 02A07    2000118F              K        2,0,0,LOC+2
     6486   01 02A08    02555555 A            DATA     X'02555555',X'02555555',X'02000000',X'02000000'
            01 02A09    02555555 A
            01 02A0A    02000000 A
            01 02A0B    02000000 A
     6487   01 02A0C    55555555 A            DATA     X'55555555',X'55555555'
            01 02A0D    55555555 A
     6488                            * FSL CASE
     6489                            * TEST  SIGMA 5   ODD PR'S (A.D)
     6490   01 02A0E    0C0500CF A   FSL05    MODULE
     6491   01 02A0F    1CC030F0              FSL,12   MEMORY
     6492   01 02A10    F100118D              K        15,1,0,LOC
     6493   01 02A11    0100118F              K        0,1,0,LOC+2
     6494   01 02A12    04555555 A            DATA     X'04555555',0,X'04555555',X'04555555'
            01 02A13    00000000 A
            01 02A14    04555555 A
            01 02A15    04555555 A
     6495   01 02A16    55555555 A            DATA     X'55555555',0,X'55555555',X'55555555'
            01 02A17    00000000 A
            01 02A18    55555555 A
            01 02A19    55555555 A
     6496                            * FSL CASE
     6497                            * TEST  SIGMA 5   EVEN PR'S (A.D)
     6498   01 02A1A    0C0600D0 A   FSL06    MODULE
     6499   01 02A1B    1CC030F0              FSL,12   MEMORY
     6500   01 02A1C    F100118D              K        15,1,0,LOC
     6501   01 02A1D    0100118F              K        0,1,0,LOC+2
     6502   01 02A1E    08AAAAAA A            DATA     X'08AAAAAA',0,X'08AAAAAA',X'08AAAAAA'
            01 02A1F    00000000 A
            01 02A20    08AAAAAA A
            01 02A21    08AAAAAA A
     6503   01 02A22    AAAAAAAA A            DATA     X'AAAAAAAA',0,X'AAAAAAAA',X'AAAAAAAA'
            01 02A23    00000000 A
            01 02A24    AAAAAAAA A
            01 02A25    AAAAAAAA A
     6504                            * FSL CASE
     6505                            * TEST  SIGMA 5   K15 = K31.PR1631
     6506   01 02A26    080700D1 A   FSL07    MODULE
     6507   01 02A27    1CC030F0              FSL,12   MEMORY
     6508   01 02A28    0000118D              DATA     LOC
     6509   01 02A29    2000118F              K        2,0,0,LOC+2
     6510   01 02A2A    10242424 A            DATA     X'10242424',X'10121212',X'10121212',X'10121212'
            01 02A2B    10121212 A
            01 02A2C    10121212 A
            01 02A2D    10121212 A
     6511                            * FSL CASE
     6512                            * A EXPONENT - D EXPONENT = 0
     6513   01 02A2E    0C0800D2 A   FSL08    MODULE
     6514   01 02A2F    1CC030F0              FSL,12   MEMORY
     6515   01 02A30    0000118D              DATA     LOC
     6516   01 02A31    1000118F              K        1,0,0,LOC+2
     6517   01 02A32    D7000000 A            DATA     X'D7000000',X'D6E00000',X'28FFFFFF',X'28FFFFFF'
            01 02A33    D6E00000 A
            01 02A34    28FFFFFF A
            01 02A35    28FFFFFF A
     6518   01 02A36    00000003 A            DATA     3,1,-2,-2
            01 02A37    00000001 A
            01 02A38    FFFFFFFE A
            01 02A39    FFFFFFFE A
     6519                            * FSL CASE
     6520                            * EW EXPONENT > R EXPONENT  BOTH POSITIVE
     6521   01 02A3A    0C0900D3 A   FSL09    MODULE
     6522   01 02A3B    1CC030F0              FSL,12   MEMORY
     6523   01 02A3C    0000118D              DATA     LOC
     6524   01 02A3D    9000118F              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     6525   01 02A3E    7A123456 A            DATA     X'7A123456',X'91F00000'
            01 02A3F    91F00000 A
     6526   01 02A40    7B012345 A            DATA     X'7B012345',X'7B012345'
            01 02A41    7B012345 A
     6527   01 02A42    22244444 A            DATA     X'22244444',0
            01 02A43    00000000 A
     6528   01 02A44    62224445 A            DATA     X'62224445',X'62224445'
            01 02A45    62224445 A
     6529   01 02A46    080100D4 A   FMS01    MODULE   X'3F'             FMS R EVEN
     6530   01 02A47    3FC030F0              FMS,12   MEMORY
     6531   01 02A48    0530118D              K        0,5,3,LOC
     6532   01 02A49    1530118F              K        1,5,3,LOC+2
     6533   01 02A4A    46555555 A            DATA     X'46555555'
     6534   01 02A4B    F5C71C72 A            DATA     X'F5C71C72'
     6535   01 02A4C    FB555555 A            DATA     X'FB555555'
     6536   01 02A4D    FB555555 A            DATA     X'FB555555'
     6537   01 02A4E    080200D5 A   FMS02    MODULE                     FMS
     6538   01 02A4F    3FC030F0              FMS,12   MEMORY
     6539   01 02A50    0530118D              K        0,5,3,LOC
     6540   01 02A51    1530118F              K        1,5,3,LOC+2
     6541   01 02A52    08AAAAAA A            DATA     X'08AAAAAA'
     6542   01 02A53    F2C71C72 A            DATA     X'F2C71C72'
     6543   01 02A54    BAAAAAAA A            DATA     X'BAAAAAAA'
     6544   01 02A55    BAAAAAAA A            DATA     X'BAAAAAAA'
     6545   01 02A56    080300D6 A   FMS03    MODULE                     FMS
     6546   01 02A57    3FC030F0              FMS,12   MEMORY
     6547   01 02A58    0530118D              K        0,5,3,LOC
     6548   01 02A59    0530118F              K        0,5,3,LOC+2
     6549   01 02A5A    80000000 A            DATA     X'80000000'
     6550   01 02A5B    00000000 A            DATA     X'0'
     6551   01 02A5C    7F000000 A            DATA     X'7F000000'
     6552   01 02A5D    7F000000 A            DATA     X'7F000000'
     6553   01 02A5E    080400D7 A   FMS04    MODULE                     FMS       FEUF,FZ=0
     6554   01 02A5F    3FC030F0              FMS,12   MEMORY
     6555   01 02A60    0530118D              K        0,5,3,LOC
     6556   01 02A61    C530118F              K        12,5,3,LOC+2
     6557   01 02A62    01100000 A            DATA     X'01100000'
     6558   01 02A63    00000000 A            DATA     X'0'
     6559   01 02A64    3F100000 A            DATA     X'3F100000'
     6560   01 02A65    3F100000 A            DATA     X'3F100000'
     6561   01 02A66    080500D8 A   FMS05    MODULE                     FMS
     6562   01 02A67    3FC030F0              FMS,12   MEMORY
     6563   01 02A68    0530118D              K        0,5,3,LOC
     6564   01 02A69    2530118F              K        2,5,3,LOC+2
     6565   01 02A6A    CFF00000 A            DATA     X'CFF00000'
     6566   01 02A6B    1F100000 A            DATA     X'1F100000'
     6567   01 02A6C    CFF00000 A            DATA     X'CFF00000'
     6568   01 02A6D    CFF00000 A            DATA     X'CFF00000'
     6569   01 02A6E    080600D9 A   FMS06    MODULE                     FMS       FEUF,FZ=1
     6570   01 02A6F    3FC030F0              FMS,12   MEMORY
     6571   01 02A70    07301191              K        0,7,3,LOC+4
     6572   01 02A71    E7301016              K        14,7,3,EXP:TRAP
     6573   01 02A72    3F100000 A            DATA     X'3F100000'
     6574   01 02A73    3F100000 A            DATA     X'3F100000'
     6575   01 02A74    01100000 A            DATA     X'01100000'
     6576   01 02A75    01100000 A            DATA     X'01100000'
     6577   01 02A76    080700DA A   FMS07    MODULE                     FMS       FEOF
     6578   01 02A77    3FC030F0              FMS,12   MEMORY
     6579   01 02A78    05301191              K        0,5,3,LOC+4
     6580   01 02A79    65301016              K        6,5,3,EXP:TRAP
     6581   01 02A7A    61369AD0 A            DATA     X'61369AD0'
     6582   01 02A7B    61369AD0 A            DATA     X'61369AD0'
     6583   01 02A7C    60159027 A            DATA     X'60159027'
     6584   01 02A7D    60159027 A            DATA     X'60159027'
     6585   01 02A7E    080800DB A   FMS08    MODULE                     FMS
     6586   01 02A7F    3FC030F0              FMS,12   MEMORY
     6587   01 02A80    0530118D              K        0,5,3,LOC
     6588   01 02A81    2530118F              K        2,5,3,LOC+2
     6589   01 02A82    61659CC1 A            DATA     X'61659CC1'
     6590   01 02A83    2D144963 A            DATA     X'2D144963'
     6591   01 02A84    0C331C1F A            DATA     X'0C331C1F'
     6592   01 02A85    0C331C1F A            DATA     X'0C331C1F'
     6593   01 02A86    080900DC A   FMS09    MODULE                     FMS
     6594   01 02A87    3FC030F0              FMS,12   MEMORY
     6595   01 02A88    0530118D              K        0,5,3,LOC
     6596   01 02A89    2530118F              K        2,5,3,LOC+2
     6597   01 02A8A    C624A394 A            DATA     X'C624A394'
     6598   01 02A8B    352360E1 A            DATA     X'352360E1'
     6599   01 02A8C    C3D6B663 A            DATA     X'C3D6B663'
     6600   01 02A8D    C3D6B663 A            DATA     X'C3D6B663'
     6601   01 02A8E    0A0A00DD A   FMS10    MODULE                     FMS
     6602   01 02A8F    3FC030F0              FMS,12   MEMORY
     6603   01 02A90    0530118D              K        0,5,3,LOC
     6604   01 02A91    1530118F              K        1,5,3,LOC+2
     6605   01 02A92    BCA5A5F3 A            DATA     X'BCA5A5F3'
     6606   01 02A93    F9A698DA A            DATA     X'F9A698DA'
     6607   01 02A94    03FD4FC7 A            DATA     X'03FD4FC7'
     6608   01 02A95    03FD4FC7 A            DATA     X'03FD4FC7'
     6609   01 02A96    C1C2C5D9 A            DATA     X'C1C2C5D9'   CHK IF NON ZERO DATA UNALTRD IN RU1
     6610   01 02A97    C1C2C5D9 A            DATA     X'C1C2C5D9'   CHK IF NON ZERO DATA UNALTRD IN RU1
     6611   01 02A98    080B00DE A   FMS11    MODULE                     FMS
     6612   01 02A99    3FC030F0              FMS,12   MEMORY
     6613   01 02A9A    0530118D              K        0,5,3,LOC
     6614   01 02A9B    2530118F              K        2,5,3,LOC+2
     6615   01 02A9C    2C6E4866 A            DATA     X'2C6E4866'
     6616   01 02A9D    2D160489 A            DATA     X'2D160489'
     6617   01 02A9E    41331C1F A            DATA     X'41331C1F'
     6618   01 02A9F    41331C1F A            DATA     X'41331C1F'
     6619   01 02AA0    080C00DF A   FMS12    MODULE                     FMS
     6620   01 02AA1    3FC030F0              FMS,12   MEMORY
     6621   01 02AA2    0530118D              K        0,5,3,LOC
     6622   01 02AA3    2530118F              K        2,5,3,LOC+2
     6623   01 02AA4    57A63427 A            DATA     X'57A63427'
     6624   01 02AA5    1A3C496D A            DATA     X'1A3C496D'
     6625   01 02AA6    035CDBC7 A            DATA     X'035CDBC7'
     6626   01 02AA7    035CDBC7 A            DATA     X'035CDBC7'
     6627   01 02AA8    080D00E0 A   FMS13    MODULE                     FMS
     6628   01 02AA9    3FC030F0              FMS,12   MEMORY
     6629   01 02AAA    0530118D              K        0,5,3,LOC
     6630   01 02AAB    2530118F              K        2,5,3,LOC+2
     6631   01 02AAC    2878C1F3 A            DATA     X'2878C1F3'
     6632   01 02AAD    04296BD1 A            DATA     X'04296BD1'
     6633   01 02AAE    1C57CF8E A            DATA     X'1C57CF8E'
     6634   01 02AAF    1C57CF8E A            DATA     X'1C57CF8E'
     6635   01 02AB0    080E00E1 A   FMS14    MODULE                     FMS
     6636   01 02AB1    3FC030F0              FMS,12   MEMORY
     6637   01 02AB2    0530118D              K        0,5,3,LOC
     6638   01 02AB3    1530118F              K        1,5,3,LOC+2
     6639   01 02AB4    3F1301C0 A            DATA     X'3F1301C0'
     6640   01 02AB5    D26EC41C A            DATA     X'D26EC41C'
     6641   01 02AB6    D085BDE1 A            DATA     X'D085BDE1'
     6642   01 02AB7    D085BDE1 A            DATA     X'D085BDE1'
     6643   01 02AB8    080F00E2 A   FMS15    MODULE                     FMS
     6644   01 02AB9    3FC030F0              FMS,12   MEMORY
     6645   01 02ABA    0530118D              K        0,5,3,LOC
     6646   01 02ABB    1530118F              K        1,5,3,LOC+2
     6647   01 02ABC    1C3F1C73 A            DATA     X'1C3F1C73'
     6648   01 02ABD    F5E55810 A            DATA     X'F5E55810'
     6649   01 02ABE    D193DFCF A            DATA     X'D193DFCF'
     6650   01 02ABF    D193DFCF A            DATA     X'D193DFCF'
     6651   01 02AC0    081000E3 A   FMS16    MODULE                     FMS
     6652   01 02AC1    3FC030F0              FMS,12   MEMORY
     6653   01 02AC2    0530118D              K        0,5,3,LOC
     6654   01 02AC3    2530118F              K        2,5,3,LOC+2
     6655   01 02AC4    41659CC1 A            DATA     X'41659CC1'
     6656   01 02AC5    0C294393 A            DATA     X'0C294393'
     6657   01 02AC6    0B67F5A8 A            DATA     X'0B67F5A8'
     6658   01 02AC7    0B67F5A8 A            DATA     X'0B67F5A8'
     6659   01 02AC8    081100E4 A   FMS17    MODULE                     FMS
     6660   01 02AC9    3FC030F0              FMS,12   MEMORY
     6661   01 02ACA    0530118D              K        0,5,3,LOC
     6662   01 02ACB    1530118F              K        1,5,3,LOC+2
     6663   01 02ACC    CFCF7C1C A            DATA     X'CFCF7C1C'
     6664   01 02ACD    CEE0275E A            DATA     X'CEE0275E'
     6665   01 02ACE    41A80AFD A            DATA     X'41A80AFD'
     6666   01 02ACF    41A80AFD A            DATA     X'41A80AFD'
     6667   01 02AD0    081200E5 A   FMS18    MODULE                     FMS
     6668   01 02AD1    3FC030F0              FMS,12   MEMORY
     6669   01 02AD2    0530118D              K        0,5,3,LOC
     6670   01 02AD3    2530118F              K        2,5,3,LOC+2
     6671   01 02AD4    D256BCA9 A            DATA     X'D256BCA9'
     6672   01 02AD5    3B917C3F A            DATA     X'3B917C3F'
     6673   01 02AD6    B123F65A A            DATA     X'B123F65A'
     6674   01 02AD7    B123F65A A            DATA     X'B123F65A'
     6675   01 02AD8    081300E6 A   FMS19    MODULE                     FMS
     6676   01 02AD9    3FC030F0              FMS,12   MEMORY
     6677   01 02ADA    0530118D              K        0,5,3,LOC
     6678   01 02ADB    2530118F              K        2,5,3,LOC+2
     6679   01 02ADC    34284031 A            DATA     X'34284031'
     6680   01 02ADD    2BF04045 A            DATA     X'2BF04045'
     6681   01 02ADE    385F8073 A            DATA     X'385F8073'
     6682   01 02ADF    385F8073 A            DATA     X'385F8073'
     6683   01 02AE0    081400E7 A   FMS20    MODULE                     FMS
     6684   01 02AE1    3FC030F0              FMS,12   MEMORY
     6685   01 02AE2    0530118D              K        0,5,3,LOC
     6686   01 02AE3    1530118F              K        1,5,3,LOC+2
     6687   01 02AE4    AFA041E6 A            DATA     X'AFA041E6'
     6688   01 02AE5    C2CAD2AB A            DATA     X'C2CAD2AB'
     6689   01 02AE6    2D8E2FD4 A            DATA     X'2D8E2FD4'
     6690   01 02AE7    2D8E2FD4 A            DATA     X'2D8E2FD4'
     6691   01 02AE8    0A1500E8 A   FMS21    MODULE                     FMS       R ODD
     6692   01 02AE9    3FD030F0              FMS,13   MEMORY            FMS ODD R
     6693   01 02AEA    0530118D              K        0,5,3,LOC
     6694   01 02AEB    1530118F              K        1,5,3,LOC+2
     6695   01 02AEC    00000000 A            DATA     X'0'
     6696   01 02AED    00000000 A            DATA     X'0'
     6697   01 02AEE    AD6950C1 A            DATA     X'AD6950C1'
     6698   01 02AEF    AD6950C1 A            DATA     X'AD6950C1'
     6699   01 02AF0    1A963D9E A            DATA     X'1A963D9E'
     6700   01 02AF1    D3A7910D A            DATA     X'D3A7910D'
     6701   01 02AF2    0A1600E9 A   FMS22    MODULE                     FMS
     6702   01 02AF3    3FD030F0              FMS,13   MEMORY
     6703   01 02AF4    0530118D              K        0,5,3,LOC
     6704   01 02AF5    2530118F              K        2,5,3,LOC+2
     6705   01 02AF6    00000000 A            DATA     X'0'
     6706   01 02AF7    00000000 A            DATA     X'0'
     6707   01 02AF8    47630A6B A            DATA     X'47630A6B'
     6708   01 02AF9    47630A6B A            DATA     X'47630A6B'
     6709   01 02AFA    28741B96 A            DATA     X'28741B96'
     6710   01 02AFB    2F2CEB64 A            DATA     X'2F2CEB64'
     6711   01 02AFC    0A1700EA A   FMS23    MODULE                     FMS
     6712   01 02AFD    3FD030F0              FMS,13   MEMORY
     6713   01 02AFE    0530118D              K        0,5,3,LOC
     6714   01 02AFF    2530118F              K        2,5,3,LOC+2
     6715   01 02B00    00000000 A            DATA     X'0'
     6716   01 02B01    00000000 A            DATA     X'0'
     6717   01 02B02    69A52CBD A            DATA     X'69A52CBD'
     6718   01 02B03    69A52CBD A            DATA     X'69A52CBD'
     6719   01 02B04    035216FB A            DATA     X'035216FB'
     6720   01 02B05    2C34F728 A            DATA     X'2C34F728'
     6721   01 02B06    0A1800EB A   FMS24    MODULE                     FMS
     6722   01 02B07    3FD030F0              FMS,13   MEMORY
     6723   01 02B08    0530118D              K        0,5,3,LOC
     6724   01 02B09    2530118F              K        2,5,3,LOC+2
     6725   01 02B0A    00000000 A            DATA     X'0'
     6726   01 02B0B    00000000 A            DATA     X'0'
     6727   01 02B0C    43043218 A            DATA     X'43043218'
     6728   01 02B0D    43043218 A            DATA     X'43043218'
     6729   01 02B0E    2508753F A            DATA     X'2508753F'
     6730   01 02B0F    26237CAD A            DATA     X'26237CAD'
     6731   01 02B10    0A1900EC A   FMS25    MODULE                     FMS
     6732   01 02B11    3FD030F0              FMS,13   MEMORY
     6733   01 02B12    0530118D              K        0,5,3,LOC
     6734   01 02B13    2530118F              K        2,5,3,LOC+2
     6735   01 02B14    00000000 A            DATA     X'0'
     6736   01 02B15    00000000 A            DATA     X'0'
     6737   01 02B16    4A1FEA60 A            DATA     X'4A1FEA60'
     6738   01 02B17    4A1FEA60 A            DATA     X'4A1FEA60'
     6739   01 02B18    2182FDD8 A            DATA     X'2182FDD8'
     6740   01 02B19    2B1054AA A            DATA     X'2B1054AA'
     6741   01 02B1A    0A1A00ED A   FMS26    MODULE                     FMS
     6742   01 02B1B    3FD030F0              FMS,13   MEMORY
     6743   01 02B1C    0530118D              K        0,5,3,LOC
     6744   01 02B1D    2530118F              K        2,5,3,LOC+2
     6745   01 02B1E    00000000 A            DATA     X'0'
     6746   01 02B1F    00000000 A            DATA     X'0'
     6747   01 02B20    5A0DC619 A            DATA     X'5A0DC619'
     6748   01 02B21    5A0DC619 A            DATA     X'5A0DC619'
     6749   01 02B22    17DA99E6 A            DATA     X'17DA99E6'
     6750   01 02B23    30BC2F90 A            DATA     X'30BC2F90'
     6751   01 02B24    0A1B00EE A   FMS27    MODULE                     FMS
     6752   01 02B25    3FD030F0              FMS,13   MEMORY
     6753   01 02B26    0530118D              K        0,5,3,LOC
     6754   01 02B27    2530118F              K        2,5,3,LOC+2
     6755   01 02B28    00000000 A            DATA     X'0'
     6756   01 02B29    00000000 A            DATA     X'0'
     6757   01 02B2A    41A766B3 A            DATA     X'41A766B3'
     6758   01 02B2B    41A766B3 A            DATA     X'41A766B3'
     6759   01 02B2C    15B897C4 A            DATA     X'15B897C4'
     6760   01 02B2D    1678B50E A            DATA     X'1678B50E'
     6761   01 02B2E    0A1C00EF A   FMS28    MODULE                     FMS
     6762   01 02B2F    3FD030F0              FMS,13   MEMORY
     6763   01 02B30    0530118D              K        0,5,3,LOC
     6764   01 02B31    C530118F              K        12,5,3,LOC+2
     6765   01 02B32    00000000 A            DATA     X'0'
     6766   01 02B33    00000000 A            DATA     X'0'
     6767   01 02B34    26C9BAD5 A            DATA     X'26C9BAD5'
     6768   01 02B35    26C9BAD5 A            DATA     X'26C9BAD5'
     6769   01 02B36    136AF5B2 A            DATA     X'136AF5B2'
     6770   01 02B37    00000000 A            DATA     X'0'
     6771   01 02B38    0A1D00F0 A   FMS29    MODULE                     FMS
     6772   01 02B39    3FD030F0              FMS,13   MEMORY
     6773   01 02B3A    0530118D              K        0,5,3,LOC
     6774   01 02B3B    1530118F              K        1,5,3,LOC+2
     6775   01 02B3C    00000000 A            DATA     X'0'
     6776   01 02B3D    00000000 A            DATA     X'0'
     6777   01 02B3E    51234034 A            DATA     X'51234034'
     6778   01 02B3F    51234034 A            DATA     X'51234034'
     6779   01 02B40    F3578058 A            DATA     X'F3578058'
     6780   01 02B41    E2E8CC4A A            DATA     X'E2E8CC4A'
     6781   01 02B42    0A1E00F1 A   FMS30    MODULE                     FMS
     6782   01 02B43    3FD030F0              FMS,13   MEMORY
     6783   01 02B44    0530118D              K        0,5,3,LOC
     6784   01 02B45    1530118F              K        1,5,3,LOC+2
     6785   01 02B46    00000000 A            DATA     X'0'
     6786   01 02B47    00000000 A            DATA     X'0'
     6787   01 02B48    06AEF1A4 A            DATA     X'06AEF1A4'
     6788   01 02B49    06AEF1A4 A            DATA     X'06AEF1A4'
     6789   01 02B4A    C08DDF82 A            DATA     X'C08DDF82'
     6790   01 02B4B    FAB20231 A            DATA     X'FAB20231'
     6791   01 02B4C    0A1F00F2 A   FMS31    MODULE                     FMS
     6792   01 02B4D    3FD030F0              FMS,13   MEMORY
     6793   01 02B4E    0530118D              K        0,5,3,LOC
     6794   01 02B4F    1530118F              K        1,5,3,LOC+2
     6795   01 02B50    00000000 A            DATA     X'0'
     6796   01 02B51    00000000 A            DATA     X'0'
     6797   01 02B52    3D60D0A5 A            DATA     X'3D60D0A5'
     6798   01 02B53    3D60D0A5 A            DATA     X'3D60D0A5'
     6799   01 02B54    E699AD73 A            DATA     X'E699AD73'
     6800   01 02B55    E9D94DA7 A            DATA     X'E9D94DA7'
     6801   01 02B56    0A2000F3 A   FMS32    MODULE                     FMS
     6802   01 02B57    3FD030F0              FMS,13   MEMORY
     6803   01 02B58    0530118D              K        0,5,3,LOC
     6804   01 02B59    2530118F              K        2,5,3,LOC+2
     6805   01 02B5A    00000000 A            DATA     X'0'
     6806   01 02B5B    00000000 A            DATA     X'0'
     6807   01 02B5C    3B667A40 A            DATA     X'3B667A40'
     6808   01 02B5D    3B667A40 A            DATA     X'3B667A40'
     6809   01 02B5E    2C798B51 A            DATA     X'2C798B51'
     6810   01 02B5F    2730A78D A            DATA     X'2730A78D'
     6811   01 02B60    0A2100F4 A   FMS33    MODULE                     FMS
     6812   01 02B61    3FD030F0              FMS,13   MEMORY
     6813   01 02B62    0530118D              K        0,5,3,LOC
     6814   01 02B63    2530118F              K        2,5,3,LOC+2
     6815   01 02B64    00000000 A            DATA     X'0'
     6816   01 02B65    00000000 A            DATA     X'0'
     6817   01 02B66    5DAA9C62 A            DATA     X'5DAA9C62'
     6818   01 02B67    5DAA9C62 A            DATA     X'5DAA9C62'
     6819   01 02B68    2B5FA631 A            DATA     X'2B5FA631'
     6820   01 02B69    483FBECA A            DATA     X'483FBECA'
     6821   01 02B6A    0A2200F5 A   FMS34    MODULE                     FMS
     6822   01 02B6B    3FD030F0              FMS,13   MEMORY
     6823   01 02B6C    0530118D              K        0,5,3,LOC
     6824   01 02B6D    1530118F              K        1,5,3,LOC+2
     6825   01 02B6E    00000000 A            DATA     X'0'
     6826   01 02B6F    00000000 A            DATA     X'0'
     6827   01 02B70    67F4A1EA A            DATA     X'67F4A1EA'
     6828   01 02B71    67F4A1EA A            DATA     X'67F4A1EA'
     6829   01 02B72    EDD28F48 A            DATA     X'EDD28F48'
     6830   01 02B73    C6D493D4 A            DATA     X'C6D493D4'
     6831   01 02B74    0A2300F6 A   FMS35    MODULE                     FMS
     6832   01 02B75    3FD030F0              FMS,13   MEMORY
     6833   01 02B76    0530118D              K        0,5,3,LOC
     6834   01 02B77    1530118F              K        1,5,3,LOC+2
     6835   01 02B78    00000000 A            DATA     X'0'
     6836   01 02B79    00000000 A            DATA     X'0'
     6837   01 02B7A    9CD5A061 A            DATA     X'9CD5A061'
     6838   01 02B7B    9CD5A061 A            DATA     X'9CD5A061'
     6839   01 02B7C    09A37D9E A            DATA     X'09A37D9E'
     6840   01 02B7D    D3E4F053 A            DATA     X'D3E4F053'
     6841   01 02B7E    0A2400F7 A   FMS36    MODULE                     FMS
     6842   01 02B7F    3FD030F0              FMS,13   MEMORY
     6843   01 02B80    0530118D              K        0,5,3,LOC
     6844   01 02B81    2530118F              K        2,5,3,LOC+2
     6845   01 02B82    00000000 A            DATA     X'0'
     6846   01 02B83    00000000 A            DATA     X'0'
     6847   01 02B84    36704AB6 A            DATA     X'36704AB6'
     6848   01 02B85    36704AB6 A            DATA     X'36704AB6'
     6849   01 02B86    29815B7C A            DATA     X'29815B7C'
     6850   01 02B87    1F38BDC6 A            DATA     X'1F38BDC6'
     6851   01 02B88    0A2500F8 A   FMS37    MODULE                     FMS
     6852   01 02B89    3FD030F0              FMS,13   MEMORY
     6853   01 02B8A    0530118D              K        0,5,3,LOC
     6854   01 02B8B    2530118F              K        2,5,3,LOC+2
     6855   01 02B8C    00000000 A            DATA     X'0'
     6856   01 02B8D    00000000 A            DATA     X'0'
     6857   01 02B8E    5A962CAD A            DATA     X'5A962CAD'
     6858   01 02B8F    5A962CAD A            DATA     X'5A962CAD'
     6859   01 02B90    1FA1365B A            DATA     X'1FA1365B'
     6860   01 02B91    395E91FB A            DATA     X'395E91FB'
     6861   01 02B92    0A2600F9 A   FMS38    MODULE                     FMS
     6862   01 02B93    3FD030F0              FMS,13   MEMORY
     6863   01 02B94    0530118D              K        0,5,3,LOC
     6864   01 02B95    1530118F              K        1,5,3,LOC+2
     6865   01 02B96    00000000 A            DATA     X'0'
     6866   01 02B97    00000000 A            DATA     X'0'
     6867   01 02B98    5A5ACF3B A            DATA     X'5A5ACF3B'
     6868   01 02B99    5A5ACF3B A            DATA     X'5A5ACF3B'
     6869   01 02B9A    FC7CF1CC A            DATA     X'FC7CF1CC'
     6870   01 02B9B    E2D182EC A            DATA     X'E2D182EC'
     6871   01 02B9C    0A2700FA A   FMS39    MODULE                     FMS
     6872   01 02B9D    3FD030F0              FMS,13   MEMORY
     6873   01 02B9E    0530118D              K        0,5,3,LOC
     6874   01 02B9F    1530118F              K        1,5,3,LOC+2
     6875   01 02BA0    00000000 A            DATA     X'0'
     6876   01 02BA1    00000000 A            DATA     X'0'
     6877   01 02BA2    283DB547 A            DATA     X'283DB547'
     6878   01 02BA3    283DB547 A            DATA     X'283DB547'
     6879   01 02BA4    E486C662 A            DATA     X'E486C662'
     6880   01 02BA5    FCE2C76E A            DATA     X'FCE2C76E'
     6881   01 02BA6    0A2800FB A   FMS40    MODULE                     FMS
     6882   01 02BA7    3FD030F0              FMS,13   MEMORY
     6883   01 02BA8    0530118D              K        0,5,3,LOC
     6884   01 02BA9    2530118F              K        2,5,3,LOC+2
     6885   01 02BAA    00000000 A            DATA     X'0'
     6886   01 02BAB    00000000 A            DATA     X'0'
     6887   01 02BAC    2F9D60D8 A            DATA     X'2F9D60D8'
     6888   01 02BAD    2F9D60D8 A            DATA     X'2F9D60D8'
     6889   01 02BAE    340982D9 A            DATA     X'340982D9'
     6890   01 02BAF    225D8D82 A            DATA     X'225D8D82'
     6891                            * FMS CASE CHECK S/G0003/1 IN SIGMA 7
     6892                            * IF THE ANSWER IS X'C0AAAAA4' THEN  AN E.O. FOR FRAME TWO OF THE
     6893                            *  SIGMA 7 CPU MAY NOT BE INSTALLED.  THERE SHOULD BE CONTIMUITY
     6894                            *  BETWEEN  10Q08 AND 16S09
     6895   01 02BB0    0A2900FC A   FMS41    MODULE
     6896   01 02BB1    3FD030F0              FMS,13   MEMORY
     6897   01 02BB2    0000118D              DATA     LOC
     6898   01 02BB3    1000118F              K        1,0,0,LOC+2
     6899   01 02BB4    00000000 A            DATA     0,0
            01 02BB5    00000000 A
     6900   01 02BB6    40100001 A            DATA     X'40100001',X'40100001'
            01 02BB7    40100001 A
     6901   01 02BB8    BFAAAAAA A            DATA     X'BFAAAAAA',X'C0AAAAA5'
            01 02BB9    C0AAAAA5 A
     6902                            * A X 0   CAUSING  CC=0
     6903   01 02BBA    0C2A00FD A   FMS42    MODULE
     6904   01 02BBB    3FC030F0              FMS,12   MEMORY
     6905   01 02BBC    F700118D              K        15,7,0,LOC
     6906   01 02BBD    0700118F              K        0,7,0,LOC+2
     6907   01 02BBE    60216400 A            DATA     X'60216400',0,X'77000000',X'77000000'
            01 02BBF    00000000 A
            01 02BC0    77000000 A
            01 02BC1    77000000 A
     6908   01 02BC2    FFFFFFFF A            DATA     -1,-1,-1,-1
            01 02BC3    FFFFFFFF A
            01 02BC4    FFFFFFFF A
            01 02BC5    FFFFFFFF A
     6909   01 02BC6    0C0100FE A   FML01    MODULE   X'1F'             FML
     6910   01 02BC7    1FC030F0              FML,12   MEMORY
     6911   01 02BC8    0530118D              K        0,5,3,LOC
     6912   01 02BC9    2530118F              K        2,5,3,LOC+2
     6913   01 02BCA    30555555 A            DATA     X'30555555'
     6914   01 02BCB    201C71C7 A            DATA     X'201C71C7'
     6915   01 02BCC    30555555 A            DATA     X'30555555'
     6916   01 02BCD    30555555 A            DATA     X'30555555'
     6917   01 02BCE    55555555 A            DATA     X'55555555'
     6918   01 02BCF    1C71C71C A            DATA     X'1C71C71C'
     6919   01 02BD0    55555555 A            DATA     X'55555555'
     6920   01 02BD1    55555555 A            DATA     X'55555555'
     6921   01 02BD2    0C0200FF A   FML02    MODULE                     FML
     6922   01 02BD3    1FC030F0              FML,12   MEMORY
     6923   01 02BD4    0530118D              K        0,5,3,LOC
     6924   01 02BD5    2530118F              K        2,5,3,LOC+2
     6925   01 02BD6    40AAAAAA A            DATA     X'40AAAAAA'
     6926   01 02BD7    4071C71C A            DATA     X'4071C71C'
     6927   01 02BD8    40AAAAAA A            DATA     X'40AAAAAA'
     6928   01 02BD9    40AAAAAA A            DATA     X'40AAAAAA'
     6929   01 02BDA    AAAAAAAA A            DATA     X'AAAAAAAA'
     6930   01 02BDB    71C71C70 A            DATA     X'71C71C70'
     6931   01 02BDC    AAAAAAAA A            DATA     X'AAAAAAAA'
     6932   01 02BDD    AAAAAAAA A            DATA     X'AAAAAAAA'
     6933   01 02BDE    0C030100 A   FML03    MODULE                     FML
     6934   01 02BDF    1FC030F0              FML,12   MEMORY
     6935   01 02BE0    0530118D              K        0,5,3,LOC
     6936   01 02BE1    1530118F              K        1,5,3,LOC+2
     6937   01 02BE2    80FFFDAB A            DATA     X'80FFFDAB'
     6938   01 02BE3    C4D2A542 A            DATA     X'C4D2A542'
     6939   01 02BE4    00137B2A A            DATA     X'00137B2A'
     6940   01 02BE5    00137B2A A            DATA     X'00137B2A'
     6941   01 02BE6    FFFFFFFF A            DATA     X'FFFFFFFF'
     6942   01 02BE7    2AEE8FC1 A            DATA     X'2AEE8FC1'
     6943   01 02BE8    059CEF26 A            DATA     X'059CEF26'
     6944   01 02BE9    059CEF26 A            DATA     X'059CEF26'
     6945   01 02BEA    0C040101 A   FML04    MODULE                     FML
     6946   01 02BEB    1FC030F0              FML,12   MEMORY
     6947   01 02BEC    0530118D              K        0,5,3,LOC
     6948   01 02BED    1530118F              K        1,5,3,LOC+2
     6949   01 02BEE    7FFFFFD8 A            DATA     X'7FFFFFD8'
     6950   01 02BEF    C0CF37C5 A            DATA     X'C0CF37C5'
     6951   01 02BF0    FFCF37BE A            DATA     X'FFCF37BE'
     6952   01 02BF1    FFCF37BE A            DATA     X'FFCF37BE'
     6953   01 02BF2    00000000 A            DATA     X'00000000'
     6954   01 02BF3    C5F88F7E A            DATA     X'C5F88F7E'
     6955   01 02BF4    26AE4589 A            DATA     X'26AE4589'
     6956   01 02BF5    26AE4589 A            DATA     X'26AE4589'
     6957   01 02BF6    0C050102 A   FML05    MODULE                     FML
     6958   01 02BF7    1FC030F0              FML,12   MEMORY
     6959   01 02BF8    0530118D              K        0,5,3,LOC
     6960   01 02BF9    2530118F              K        2,5,3,LOC+2
     6961   01 02BFA    250007BE A            DATA     X'250007BE'
     6962   01 02BFB    08128785 A            DATA     X'08128785'
     6963   01 02BFC    26264A8E A            DATA     X'26264A8E'
     6964   01 02BFD    26264A8E A            DATA     X'26264A8E'
     6965   01 02BFE    148F26A0 A            DATA     X'148F26A0'
     6966   01 02BFF    07E34362 A            DATA     X'07E34362'
     6967   01 02C00    C1F4286C A            DATA     X'C1F4286C'
     6968   01 02C01    C1F4286C A            DATA     X'C1F4286C'
     6969   01 02C02    0C060103 A   FML06    MODULE                     FML
     6970   01 02C03    1FC030F0              FML,12   MEMORY
     6971   01 02C04    0530118D              K        0,5,3,LOC
     6972   01 02C05    0530118F              K        0,5,3,LOC+2
     6973   01 02C06    7F000000 A            DATA     X'7F000000'
     6974   01 02C07    00000000 A            DATA     X'0'
     6975   01 02C08    7FFFFFFF A            DATA     X'7FFFFFFF'
     6976   01 02C09    7FFFFFFF A            DATA     X'7FFFFFFF'
     6977   01 02C0A    00000000 A            DATA     X'00000000'
     6978   01 02C0B    00000000 A            DATA     X'0'
     6979   01 02C0C    FFFFFFFF A            DATA     X'FFFFFFFF'
     6980   01 02C0D    FFFFFFFF A            DATA     X'FFFFFFFF'
     6981   01 02C0E    0C070104 A   FML07    MODULE                     FML
     6982   01 02C0F    1FC030F0              FML,12   MEMORY
     6983   01 02C10    0530118D              K        0,5,3,LOC
     6984   01 02C11    1530118F              K        1,5,3,LOC+2
     6985   01 02C12    35027BF3 A            DATA     X'35027BF3'
     6986   01 02C13    CC782A03 A            DATA     X'CC782A03'
     6987   01 02C14    BFC951DA A            DATA     X'BFC951DA'
     6988   01 02C15    BFC951DA A            DATA     X'BFC951DA'
     6989   01 02C16    8C16DE45 A            DATA     X'8C16DE45'
     6990   01 02C17    798B132F A            DATA     X'798B132F'
     6991   01 02C18    62EB840A A            DATA     X'62EB840A'
     6992   01 02C19    62EB840A A            DATA     X'62EB840A'
     6993   01 02C1A    0C080105 A   FML08    MODULE                     FML
     6994   01 02C1B    1FC030F0              FML,12   MEMORY
     6995   01 02C1C    0530118D              K        0,5,3,LOC
     6996   01 02C1D    2530118F              K        2,5,3,LOC+2
     6997   01 02C1E    BFFFFFFF A            DATA     X'BFFFFFFF'
     6998   01 02C1F    25100000 A            DATA     X'25100000'
     6999   01 02C20    BFFFFFFF A            DATA     X'BFFFFFFF'
     7000   01 02C21    BFFFFFFF A            DATA     X'BFFFFFFF'
     7001   01 02C22    FFFFFFFF A            DATA     X'FFFFFFFF'
     7002   01 02C23    00000000 A            DATA     X'0'
     7003   01 02C24    FFFFFFFF A            DATA     X'FFFFFFFF'
     7004   01 02C25    FFFFFFFF A            DATA     X'FFFFFFFF'
     7005   01 02C26    0C090106 A   FML09    MODULE                     FML
     7006   01 02C27    1FC030F0              FML,12   MEMORY
     7007   01 02C28    0530118D              K        0,5,3,LOC
     7008   01 02C29    2530118F              K        2,5,3,LOC+2
     7009   01 02C2A    40000000 A            DATA     X'40000000'
     7010   01 02C2B    25100000 A            DATA     X'25100000'
     7011   01 02C2C    40000000 A            DATA     X'40000000'
     7012   01 02C2D    40000000 A            DATA     X'40000000'
     7013   01 02C2E    00000001 A            DATA     X'00000001'
     7014   01 02C2F    00000000 A            DATA     X'0'
     7015   01 02C30    00000001 A            DATA     X'00000001'
     7016   01 02C31    00000001 A            DATA     X'1'
     7017   01 02C32    0C0A0107 A   FML10    MODULE                     FML
     7018   01 02C33    1FC030F0              FML,12   MEMORY
     7019   01 02C34    0530118D              K        0,5,3,LOC
     7020   01 02C35    1530118F              K        1,5,3,LOC+2
     7021   01 02C36    FC7CF1CC A            DATA     X'FC7CF1CC'
     7022   01 02C37    C5D399C0 A            DATA     X'C5D399C0'
     7023   01 02C38    7756BA80 A            DATA     X'7756BA80'
     7024   01 02C39    7756BA80 A            DATA     X'7756BA80'
     7025   01 02C3A    80AA9FD4 A            DATA     X'80AA9FD4'
     7026   01 02C3B    ACBFB2BA A            DATA     X'ACBFB2BA'
     7027   01 02C3C    59C61C18 A            DATA     X'59C61C18'
     7028   01 02C3D    59C61C18 A            DATA     X'59C61C18'
     7029   01 02C3E    0C0B0108 A   FML11    MODULE                     FML
     7030   01 02C3F    1FC030F0              FML,12   MEMORY
     7031   01 02C40    0530118D              K        0,5,3,LOC
     7032   01 02C41    1530118F              K        1,5,3,LOC+2
     7033   01 02C42    F1C3C731 A            DATA     X'F1C3C731'
     7034   01 02C43    F4887E77 A            DATA     X'F4887E77'
     7035   01 02C44    3F01FC03 A            DATA     X'3F01FC03'
     7036   01 02C45    3F01FC03 A            DATA     X'3F01FC03'
     7037   01 02C46    7F56BA80 A            DATA     X'7F56BA80'
     7038   01 02C47    356A3FD1 A            DATA     X'356A3FD1'
     7039   01 02C48    70000000 A            DATA     X'70000000'
     7040   01 02C49    70000000 A            DATA     X'70000000'
     7041   01 02C4A    0C0C0109 A   FML12    MODULE                     FML
     7042   01 02C4B    1FC030F0              FML,12   MEMORY
     7043   01 02C4C    0530118D              K        0,5,3,LOC
     7044   01 02C4D    1530118F              K        1,5,3,LOC+2
     7045   01 02C4E    CDB53C70 A            DATA     X'CDB53C70'
     7046   01 02C4F    DCC6D465 A            DATA     X'DCC6D465'
     7047   01 02C50    31C3C1F0 A            DATA     X'31C3C1F0'
     7048   01 02C51    31C3C1F0 A            DATA     X'31C3C1F0'
     7049   01 02C52    3DF91CF8 A            DATA     X'3DF91CF8'
     7050   01 02C53    B74535C0 A            DATA     X'B74535C0'
     7051   01 02C54    DF4F3C70 A            DATA     X'DF4F3C70'
     7052   01 02C55    DF4F3C70 A            DATA     X'DF4F3C70'
     7053   01 02C56    0C0D010A A   FML13    MODULE                     FML
     7054   01 02C57    1FC030F0              FML,12   MEMORY
     7055   01 02C58    0530118D              K        0,5,3,LOC
     7056   01 02C59    2530118F              K        2,5,3,LOC+2
     7057   01 02C5A    6DB6DB6D A            DATA     X'6DB6DB6D'
     7058   01 02C5B    3E8D81C7 A            DATA     X'3E8D81C7'
     7059   01 02C5C    11C61C18 A            DATA     X'11C61C18'
     7060   01 02C5D    11C61C18 A            DATA     X'11C61C18'
     7061   01 02C5E    5BD80E1D A            DATA     X'5BD80E1D'
     7062   01 02C5F    BB1093F1 A            DATA     X'BB1093F1'
     7063   01 02C60    021871E7 A            DATA     X'021871E7'
     7064   01 02C61    021871E7 A            DATA     X'021871E7'
     7065   01 02C62    0C0E010B A   FML14    MODULE                     FML
     7066   01 02C63    1FC030F0              FML,12   MEMORY
     7067   01 02C64    0530118D              K        0,5,3,LOC
     7068   01 02C65    2530118F              K        2,5,3,LOC+2
     7069   01 02C66    CD5B3C70 A            DATA     X'CD5B3C70'
     7070   01 02C67    10261D9E A            DATA     X'10261D9E'
     7071   01 02C68    E1C4C737 A            DATA     X'E1C4C737'
     7072   01 02C69    E1C4C737 A            DATA     X'E1C4C737'
     7073   01 02C6A    7CF5C8E1 A            DATA     X'7CF5C8E1'
     7074   01 02C6B    0D7BE104 A            DATA     X'0D7BE104'
     7075   01 02C6C    42468ACE A            DATA     X'42468ACE'
     7076   01 02C6D    42468ACE A            DATA     X'42468ACE'
     7077   01 02C6E    0C0F010C A   FML15    MODULE                     FML
     7078   01 02C6F    1FC030F0              FML,12   MEMORY
     7079   01 02C70    0530118D              K        0,5,3,LOC
     7080   01 02C71    2530118F              K        2,5,3,LOC+2
     7081   01 02C72    50012345 A            DATA     X'50012345'
     7082   01 02C73    1389389C A            DATA     X'1389389C'
     7083   01 02C74    060789AB A            DATA     X'060789AB'
     7084   01 02C75    060789AB A            DATA     X'060789AB'
     7085   01 02C76    8C178F32 A            DATA     X'8C178F32'
     7086   01 02C77    6CA380D7 A            DATA     X'6CA380D7'
     7087   01 02C78    258BCDEF A            DATA     X'258BCDEF'
     7088   01 02C79    258BCDEF A            DATA     X'258BCDEF'
     7089   01 02C7A    0C10010D A   FML16    MODULE                     FML
     7090   01 02C7B    1FC030F0              FML,12   MEMORY
     7091   01 02C7C    0530118D              K        0,5,3,LOC
     7092   01 02C7D    1530118F              K        1,5,3,LOC+2
     7093   01 02C7E    89ABCDEF A            DATA     X'89ABCDEF'
     7094   01 02C7F    C9E37DE2 A            DATA     X'C9E37DE2'
     7095   01 02C80    0056AE37 A            DATA     X'0056AE37'
     7096   01 02C81    0056AE37 A            DATA     X'0056AE37'
     7097   01 02C82    634AC271 A            DATA     X'634AC271'
     7098   01 02C83    0E7154D5 A            DATA     X'0E7154D5'
     7099   01 02C84    BF258BE1 A            DATA     X'BF258BE1'
     7100   01 02C85    BF258BE1 A            DATA     X'BF258BE1'
     7101   01 02C86    0C11010E A   FML17    MODULE                     FML
     7102   01 02C87    1FC030F0              FML,12   MEMORY
     7103   01 02C88    0530118D              K        0,5,3,LOC
     7104   01 02C89    2530118F              K        2,5,3,LOC+2
     7105   01 02C8A    BF1357BD A            DATA     X'BF1357BD'
     7106   01 02C8B    02E98078 A            DATA     X'02E98078'
     7107   01 02C8C    FD0369CF A            DATA     X'FD0369CF'
     7108   01 02C8D    FD0369CF A            DATA     X'FD0369CF'
     7109   01 02C8E    E486C662 A            DATA     X'E486C662'
     7110   01 02C8F    16EF6C2A A            DATA     X'16EF6C2A'
     7111   01 02C90    F147AD03 A            DATA     X'F147AD03'
     7112   01 02C91    F147AD03 A            DATA     X'F147AD03'
     7113   01 02C92    0C12010F A   FML18    MODULE                     FML
     7114   01 02C93    1FC030F0              FML,12   MEMORY
     7115   01 02C94    0530118D              K        0,5,3,LOC
     7116   01 02C95    1530118F              K        1,5,3,LOC+2
     7117   01 02C96    E2006AE3 A            DATA     X'E2006AE3'
     7118   01 02C97    C37446F3 A            DATA     X'C37446F3'
     7119   01 02C98    61008BF3 A            DATA     X'61008BF3'
     7120   01 02C99    61008BF3 A            DATA     X'61008BF3'
     7121   01 02C9A    5A5ACF3B A            DATA     X'5A5ACF3B'
     7122   01 02C9B    F3887D87 A            DATA     X'F3887D87'
     7123   01 02C9C    7B27C16B A            DATA     X'7B27C16B'
     7124   01 02C9D    7B27C16B A            DATA     X'7B27C16B'
     7125   01 02C9E    0C130110 A   FML19    MODULE                     FML
     7126   01 02C9F    1FC030F0              FML,12   MEMORY
     7127   01 02CA0    0530118D              K        0,5,3,LOC
     7128   01 02CA1    2530118F              K        2,5,3,LOC+2
     7129   01 02CA2    AF00049E A            DATA     X'AF00049E'
     7130   01 02CA3    2DFFF6C1 A            DATA     X'2DFFF6C1'
     7131   01 02CA4    E200049F A            DATA     X'E200049F'
     7132   01 02CA5    E200049F A            DATA     X'E200049F'
     7133   01 02CA6    F0259E49 A            DATA     X'F0259E49'
     7134   01 02CA7    351390DA A            DATA     X'351390DA'
     7135   01 02CA8    F0259E49 A            DATA     X'F0259E49'
     7136   01 02CA9    F0259E49 A            DATA     X'F0259E49'
     7137   01 02CAA    0C140111 A   FML20    MODULE                     FML
     7138   01 02CAB    1FC030F0              FML,12   MEMORY
     7139   01 02CAC    0530118D              K        0,5,3,LOC
     7140   01 02CAD    1530118F              K        1,5,3,LOC+2
     7141   01 02CAE    670000B2 A            DATA     X'670000B2'
     7142   01 02CAF    C84D293B A            DATA     X'C84D293B'
     7143   01 02CB0    EB0000AB A            DATA     X'EB0000AB'
     7144   01 02CB1    EB0000AB A            DATA     X'EB0000AB'
     7145   01 02CB2    D73C2826 A            DATA     X'D73C2826'
     7146   01 02CB3    EB0D2F6D A            DATA     X'EB0D2F6D'
     7147   01 02CB4    E159F059 A            DATA     X'E159F059'
     7148   01 02CB5    E159F059 A            DATA     X'E159F059'
     7149   01 02CB6    0C150112 A   FML21    MODULE                     FML
     7150   01 02CB7    1FC030F0              FML,12   MEMORY
     7151   01 02CB8    0530118D              K        0,5,3,LOC
     7152   01 02CB9    2530118F              K        2,5,3,LOC+2
     7153   01 02CBA    10000006 A            DATA     X'10000006'
     7154   01 02CBB    1D1A6590 A            DATA     X'1D1A6590'
     7155   01 02CBC    57000003 A            DATA     X'57000003'
     7156   01 02CBD    57000003 A            DATA     X'57000003'
     7157   01 02CBE    F1A3C842 A            DATA     X'F1A3C842'
     7158   01 02CBF    C8B4C10E A            DATA     X'C8B4C10E'
     7159   01 02CC0    CD2A3C71 A            DATA     X'CD2A3C71'
     7160   01 02CC1    CD2A3C71 A            DATA     X'CD2A3C71'
     7161   01 02CC2    0C160113 A   FML22    MODULE                     FML
     7162   01 02CC3    1FC030F0              FML,12   MEMORY
     7163   01 02CC4    0530118D              K        0,5,3,LOC
     7164   01 02CC5    2530118F              K        2,5,3,LOC+2
     7165   01 02CC6    42000000 A            DATA     X'42000000'
     7166   01 02CC7    3A10AF2B A            DATA     X'3A10AF2B'
     7167   01 02CC8    3E3AF92C A            DATA     X'3E3AF92C'
     7168   01 02CC9    3E3AF92C A            DATA     X'3E3AF92C'
     7169   01 02CCA    486CEA47 A            DATA     X'486CEA47'
     7170   01 02CCB    9841B130 A            DATA     X'9841B130'
     7171   01 02CCC    76B15038 A            DATA     X'76B15038'
     7172   01 02CCD    76B15038 A            DATA     X'76B15038'
     7173   01 02CCE    0C170114 A   FML23    MODULE                     FML
     7174   01 02CCF    1FC030F0              FML,12   MEMORY
     7175   01 02CD0    0530118D              K        0,5,3,LOC
     7176   01 02CD1    1530118F              K        1,5,3,LOC+2
     7177   01 02CD2    D2000000 A            DATA     X'D2000000'
     7178   01 02CD3    E2A247F9 A            DATA     X'E2A247F9'
     7179   01 02CD4    37000000 A            DATA     X'37000000'
     7180   01 02CD5    37000000 A            DATA     X'37000000'
     7181   01 02CD6    07C16D1F A            DATA     X'07C16D1F'
     7182   01 02CD7    92D6D7DD A            DATA     X'92D6D7DD'
     7183   01 02CD8    05DB8067 A            DATA     X'05DB8067'
     7184   01 02CD9    05DB8067 A            DATA     X'05DB8067'
     7185   01 02CDA    0C180115 A   FML24    MODULE                     FML
     7186   01 02CDB    1FC030F0              FML,12   MEMORY
     7187   01 02CDC    0530118D              K        0,5,3,LOC
     7188   01 02CDD    2530118F              K        2,5,3,LOC+2
     7189   01 02CDE    CB000000 A            DATA     X'CB000000'
     7190   01 02CDF    53FFFFFF A            DATA     X'53FFFFFF'
     7191   01 02CE0    A0000000 A            DATA     X'A0000000'
     7192   01 02CE1    A0000000 A            DATA     X'A0000000'
     7193   01 02CE2    009191BB A            DATA     X'009191BB'
     7194   01 02CE3    FE89075C A            DATA     X'FE89075C'
     7195   01 02CE4    00E566E9 A            DATA     X'00E566E9'
     7196   01 02CE5    00E566E9 A            DATA     X'00E566E9'
     7197   01 02CE6    0C190116 A   FML25    MODULE                     FML
     7198   01 02CE7    1FC030F0              FML,12   MEMORY
     7199   01 02CE8    0530118D              K        0,5,3,LOC
     7200   01 02CE9    1530118F              K        1,5,3,LOC+2
     7201   01 02CEA    1F000000 A            DATA     X'1F000000'
     7202   01 02CEB    CCD1B200 A            DATA     X'CCD1B200'
     7203   01 02CEC    A2000000 A            DATA     X'A2000000'
     7204   01 02CED    A2000000 A            DATA     X'A2000000'
     7205   01 02CEE    0002E4E0 A            DATA     X'0002E4E0'
     7206   01 02CEF    00025BB4 A            DATA     X'00025BB4'
     7207   01 02CF0    000D099D A            DATA     X'000D099D'
     7208   01 02CF1    000D099D A            DATA     X'000D099D'
     7209   01 02CF2    0C1A0117 A   FML26    MODULE                     FML
     7210   01 02CF3    1FC030F0              FML,12   MEMORY
     7211   01 02CF4    0530118D              K        0,5,3,LOC
     7212   01 02CF5    1530118F              K        1,5,3,LOC+2
     7213   01 02CF6    89000000 A            DATA     X'89000000'
     7214   01 02CF7    BFC73000 A            DATA     X'BFC73000'
     7215   01 02CF8    14000000 A            DATA     X'14000000'
     7216   01 02CF9    14000000 A            DATA     X'14000000'
     7217   01 02CFA    0000438D A            DATA     X'0000438D'
     7218   01 02CFB    00000EFE A            DATA     X'00000EFE'
     7219   01 02CFC    000038D0 A            DATA     X'000038D0'
     7220   01 02CFD    000038D0 A            DATA     X'000038D0'
     7221   01 02CFE    0C1B0118 A   FML27    MODULE                     FML
     7222   01 02CFF    1FC030F0              FML,12   MEMORY
     7223   01 02D00    0530118D              K        0,5,3,LOC
     7224   01 02D01    2530118F              K        2,5,3,LOC+2
     7225   01 02D02    6D000000 A            DATA     X'6D000000'
     7226   01 02D03    2D435D2C A            DATA     X'2D435D2C'
     7227   01 02D04    16000000 A            DATA     X'16000000'
     7228   01 02D05    16000000 A            DATA     X'16000000'
     7229   01 02D06    000009F2 A            DATA     X'000009F2'
     7230   01 02D07    00000000 A            DATA     X'0'
     7231   01 02D08    000006C6 A            DATA     X'000006C6'
     7232   01 02D09    000006C6 A            DATA     X'000006C6'
     7233   01 02D0A    0C1C0119 A   FML28    MODULE                     FML
     7234   01 02D0B    1FC030F0              FML,12   MEMORY
     7235   01 02D0C    0530118D              K        0,5,3,LOC
     7236   01 02D0D    2530118F              K        2,5,3,LOC+2
     7237   01 02D0E    C6000000 A            DATA     X'C6000000'
     7238   01 02D0F    11FFFFFF A            DATA     X'11FFFFFF'
     7239   01 02D10    E7000000 A            DATA     X'E7000000'
     7240   01 02D11    E7000000 A            DATA     X'E7000000'
     7241   01 02D12    00000084 A            DATA     X'00000084'
     7242   01 02D13    FFFFFF37 A            DATA     X'FFFFFF37'
     7243   01 02D14    00000045 A            DATA     X'00000045'
     7244   01 02D15    00000045 A            DATA     X'00000045'
     7245   01 02D16    0C1D011A A   FML29    MODULE                     FML
     7246   01 02D17    1FC030F0              FML,12   MEMORY
     7247   01 02D18    0530118D              K        0,5,3,LOC
     7248   01 02D19    2530118F              K        2,5,3,LOC+2
     7249   01 02D1A    CC1FC7CF A            DATA     X'CC1FC7CF'
     7250   01 02D1B    2E2EFCB9 A            DATA     X'2E2EFCB9'
     7251   01 02D1C    C3FCA5A5 A            DATA     X'C3FCA5A5'
     7252   01 02D1D    C3FCA5A5 A            DATA     X'C3FCA5A5'
     7253   01 02D1E    B5631AF2 A            DATA     X'B5631AF2'
     7254   01 02D1F    5B724390 A            DATA     X'5B724390'
     7255   01 02D20    7FFFFFFF A            DATA     X'7FFFFFFF'
     7256   01 02D21    7FFFFFFF A            DATA     X'7FFFFFFF'
     7257   01 02D22    0C1E011B A   FML30    MODULE                     FML
     7258   01 02D23    1FC030F0              FML,12   MEMORY
     7259   01 02D24    0530118D              K        0,5,3,LOC
     7260   01 02D25    2530118F              K        2,5,3,LOC+2
     7261   01 02D26    DAC269A5 A            DATA     X'DAC269A5'
     7262   01 02D27    1D120522 A            DATA     X'1D120522'
     7263   01 02D28    C7B51894 A            DATA     X'C7B51894'
     7264   01 02D29    C7B51894 A            DATA     X'C7B51894'
     7265   01 02D2A    E9D73A96 A            DATA     X'E9D73A96'
     7266   01 02D2B    973A7B74 A            DATA     X'973A7B74'
     7267   01 02D2C    6BA40763 A            DATA     X'6BA40763'
     7268   01 02D2D    6BA40763 A            DATA     X'6BA40763'
     7269   01 02D2E    0C1F011C A   FML31    MODULE                     FML
     7270   01 02D2F    1FC030F0              FML,12   MEMORY
     7271   01 02D30    0530118D              K        0,5,3,LOC
     7272   01 02D31    2530118F              K        2,5,3,LOC+2
     7273   01 02D32    160A59C9 A            DATA     X'160A59C9'
     7274   01 02D33    19A08D59 A            DATA     X'19A08D59'
     7275   01 02D34    44F82DDE A            DATA     X'44F82DDE'
     7276   01 02D35    44F82DDE A            DATA     X'44F82DDE'
     7277   01 02D36    136AF5B2 A            DATA     X'136AF5B2'
     7278   01 02D37    40E7DACC A            DATA     X'40E7DACC'
     7279   01 02D38    AE1A4FE0 A            DATA     X'AE1A4FE0'
     7280   01 02D39    AE1A4FE0 A            DATA     X'AE1A4FE0'
     7281   01 02D3A    0C20011D A   FML32    MODULE                     FML
     7282   01 02D3B    1FC030F0              FML,12   MEMORY
     7283   01 02D3C    0530118D              K        0,5,3,LOC
     7284   01 02D3D    2530118F              K        2,5,3,LOC+2
     7285   01 02D3E    26C9AAD5 A            DATA     X'26C9AAD5'
     7286   01 02D3F    1C916A57 A            DATA     X'1C916A57'
     7287   01 02D40    36B897C4 A            DATA     X'36B897C4'
     7288   01 02D41    36B897C4 A            DATA     X'36B897C4'
     7289   01 02D42    37DA99E6 A            DATA     X'37DA99E6'
     7290   01 02D43    6E5ED9FE A            DATA     X'6E5ED9FE'
     7291   01 02D44    04A766B3 A            DATA     X'04A766B3'
     7292   01 02D45    04A766B3 A            DATA     X'04A766B3'
     7293   01 02D46    0C21011E A   FML33    MODULE                     FML
     7294   01 02D47    1FC030F0              FML,12   MEMORY
     7295   01 02D48    0530118D              K        0,5,3,LOC
     7296   01 02D49    2530118F              K        2,5,3,LOC+2
     7297   01 02D4A    5A0DC619 A            DATA     X'5A0DC619'
     7298   01 02D4B    3995A829 A            DATA     X'3995A829'
     7299   01 02D4C    20ADD84E A            DATA     X'20ADD84E'
     7300   01 02D4D    20ADD84E A            DATA     X'20ADD84E'
     7301   01 02D4E    8508753F A            DATA     X'8508753F'
     7302   01 02D4F    AC7B7E0D A            DATA     X'AC7B7E0D'
     7303   01 02D50    4A1FEA60 A            DATA     X'4A1FEA60'
     7304   01 02D51    4A1FEA60 A            DATA     X'4A1FEA60'
     7305   01 02D52    0C22011F A   FML34    MODULE                     FML
     7306   01 02D53    1FC030F0              FML,12   MEMORY
     7307   01 02D54    0530118D              K        0,5,3,LOC
     7308   01 02D55    2530118F              K        2,5,3,LOC+2
     7309   01 02D56    43043218 A            DATA     X'43043218'
     7310   01 02D57    2D191504 A            DATA     X'2D191504'
     7311   01 02D58    2B5FA631 A            DATA     X'2B5FA631'
     7312   01 02D59    2B5FA631 A            DATA     X'2B5FA631'
     7313   01 02D5A    4C798B51 A            DATA     X'4C798B51'
     7314   01 02D5B    F425B00C A            DATA     X'F425B00C'
     7315   01 02D5C    5DAB9C62 A            DATA     X'5DAB9C62'
     7316   01 02D5D    5DAB9C62 A            DATA     X'5DAB9C62'
     7317   01 02D5E    0C230120 A   FML35    MODULE                     FML
     7318   01 02D5F    1FC030F0              FML,12   MEMORY
     7319   01 02D60    0530118D              K        0,5,3,LOC
     7320   01 02D61    1530118F              K        1,5,3,LOC+2
     7321   01 02D62    3B667A40 A            DATA     X'3B667A40'
     7322   01 02D63    EBD70A3E A            DATA     X'EBD70A3E'
     7323   01 02D64    E699AD73 A            DATA     X'E699AD73'
     7324   01 02D65    E699AD73 A            DATA     X'E699AD73'
     7325   01 02D66    E48DDF82 A            DATA     X'E48DDF82'
     7326   01 02D67    C5075379 A            DATA     X'C5075379'
     7327   01 02D68    916CD0A5 A            DATA     X'916CD0A5'
     7328   01 02D69    916CD0A5 A            DATA     X'916CD0A5'
     7329   01 02D6A    0C240121 A   FML36    MODULE                     FML
     7330   01 02D6B    1FC030F0              FML,12   MEMORY
     7331   01 02D6C    0530118D              K        0,5,3,LOC
     7332   01 02D6D    1530118F              K        1,5,3,LOC+2
     7333   01 02D6E    53AEF1A4 A            DATA     X'53AEF1A4'
     7334   01 02D6F    E08CDA2F A            DATA     X'E08CDA2F'
     7335   01 02D70    F3578058 A            DATA     X'F3578058'
     7336   01 02D71    F3578058 A            DATA     X'F3578058'
     7337   01 02D72    BF6125A3 A            DATA     X'BF6125A3'
     7338   01 02D73    8B590B72 A            DATA     X'8B590B72'
     7339   01 02D74    81234034 A            DATA     X'81234034'
     7340   01 02D75    81234034 A            DATA     X'81234034'
     7341   01 02D76    0C250122 A   FML37    MODULE                     FML
     7342   01 02D77    1FC030F0              FML,12   MEMORY
     7343   01 02D78    0530118D              K        0,5,3,LOC
     7344   01 02D79    2530118F              K        2,5,3,LOC+2
     7345   01 02D7A    DBC25A96 A            DATA     X'DBC25A96'
     7346   01 02D7B    1A12F4D2 A            DATA     X'1A12F4D2'
     7347   01 02D7C    C9B14785 A            DATA     X'C9B14785'
     7348   01 02D7D    C9B14785 A            DATA     X'C9B14785'
     7349   01 02D7E    E9D369A7 A            DATA     X'E9D369A7'
     7350   01 02D7F    5AC8D64E A            DATA     X'5AC8D64E'
     7351   01 02D80    B6A03674 A            DATA     X'B6A03674'
     7352   01 02D81    B6A03674 A            DATA     X'B6A03674'
     7353   01 02D82    0C260123 A   FML38    MODULE                     FML
     7354   01 02D83    1FC030F0              FML,12   MEMORY
     7355   01 02D84    0530118D              K        0,5,3,LOC
     7356   01 02D85    2530118F              K        2,5,3,LOC+2
     7357   01 02D86    1C0596DA A            DATA     X'1C0596DA'
     7358   01 02D87    2854DAFB A            DATA     X'2854DAFB'
     7359   01 02D88    4DF2E8D8 A            DATA     X'4DF2E8D8'
     7360   01 02D89    4DF2E8D8 A            DATA     X'4DF2E8D8'
     7361   01 02D8A    3708F585 A            DATA     X'3708F585'
     7362   01 02D8B    777B86FD A            DATA     X'777B86FD'
     7363   01 02D8C    6E140AFA A            DATA     X'6E140AFA'
     7364   01 02D8D    6E140AFA A            DATA     X'6E140AFA'
     7365   01 02D8E    0C270124 A   FML39    MODULE                     FML
     7366   01 02D8F    1FC030F0              FML,12   MEMORY
     7367   01 02D90    0530118D              K        0,5,3,LOC
     7368   01 02D91    1530118F              K        1,5,3,LOC+2
     7369   01 02D92    13048243 A            DATA     X'13048243'
     7370   01 02D93    D3D73197 A            DATA     X'D3D73197'
     7371   01 02D94    A56F321B A            DATA     X'A56F321B'
     7372   01 02D95    A56F321B A            DATA     X'A56F321B'
     7373   01 02D96    DFA08A94 A            DATA     X'DFA08A94'
     7374   01 02D97    C0ED95BC A            DATA     X'C0ED95BC'
     7375   01 02D98    9ACB652D A            DATA     X'9ACB652D'
     7376   01 02D99    9ACB652D A            DATA     X'9ACB652D'
     7377   01 02D9A    0C280125 A   FML40    MODULE                     FML
     7378   01 02D9B    1FC030F0              FML,12   MEMORY
     7379   01 02D9C    0530118D              K        0,5,3,LOC
     7380   01 02D9D    2530118F              K        2,5,3,LOC+2
     7381   01 02D9E    1CC7FCFC A            DATA     X'1CC7FCFC'
     7382   01 02D9F    364A9399 A            DATA     X'364A9399'
     7383   01 02DA0    5A5F76B0 A            DATA     X'5A5F76B0'
     7384   01 02DA1    5A5F76B0 A            DATA     X'5A5F76B0'
     7385   01 02DA2    37C1F3C1 A            DATA     X'37C1F3C1'
     7386   01 02DA3    C95D07AA A            DATA     X'C95D07AA'
     7387   01 02DA4    1CC95618 A            DATA     X'1CC95618'
     7388   01 02DA5    1CC95618 A            DATA     X'1CC95618'
     7389                            **  FML 41 THROUGH 49 ARE SHOWN FIRST BECAUSE THEY ARE
     7390                            **  BASIC NUMBER PATTERNS THAT SHOULD BE EASILY TRACED
     7391                            **  VIA THE FLOATING POINT T-CHARTS
     7392   01 02DA6    0A290126 A   FML41    MODULE
     7393   01 02DA7    1FC030F0              FML,12   MEMORY
     7394   01 02DA8    0000118D              DATA     LOC
     7395   01 02DA9    2000118F              GEN,4,28 2,LOC+2
     7396   01 02DAA    40100000 A            DATA     X'40100000',X'40100000'
            01 02DAB    40100000 A
     7397   01 02DAC    41100000 A            DATA     X'41100000',X'41100000'
            01 02DAD    41100000 A
     7398   01 02DAE    00000001 A            DATA     1,1
            01 02DAF    00000001 A
     7399   01 02DB0    0A2A0127 A   FML42    MODULE
     7400   01 02DB1    1FC030F0              FML,12   MEMORY
     7401   01 02DB2    0000118D              DATA     LOC
     7402   01 02DB3    2000118F              GEN,4,28 2,LOC+2
     7403   01 02DB4    40100000 A            DATA     X'40100000',X'40100000'
            01 02DB5    40100000 A
     7404   01 02DB6    41100000 A            DATA     X'41100000',X'41100000'
            01 02DB7    41100000 A
     7405   01 02DB8    00000002 A            DATA     2,2
            01 02DB9    00000002 A
     7406   01 02DBA    0A2B0128 A   FML43    MODULE
     7407   01 02DBB    1FC030F0              FML,12   MEMORY
     7408   01 02DBC    0000118D              DATA     LOC
     7409   01 02DBD    2000118F              GEN,4,28 2,LOC+2
     7410   01 02DBE    40100000 A            DATA     X'40100000',X'40100000'
            01 02DBF    40100000 A
     7411   01 02DC0    41100000 A            DATA     X'41100000',X'41100000'
            01 02DC1    41100000 A
     7412   01 02DC2    00000003 A            DATA     3,3
            01 02DC3    00000003 A
     7413   01 02DC4    0A2C0129 A   FML44    MODULE
     7414   01 02DC5    1FC030F0              FML,12   MEMORY
     7415   01 02DC6    0000118D              DATA     LOC
     7416   01 02DC7    2000118F              GEN,4,28 2,LOC+2
     7417   01 02DC8    40100000 A            DATA     X'40100000',X'40100000'
            01 02DC9    40100000 A
     7418   01 02DCA    41100000 A            DATA     X'41100000',X'41100000'
            01 02DCB    41100000 A
     7419   01 02DCC    00000006 A            DATA     6,6
            01 02DCD    00000006 A
     7420   01 02DCE    0C2D012A A   FML45    MODULE
     7421   01 02DCF    1FC030F0              FML,12   MEMORY
     7422   01 02DD0    0000118D              DATA     LOC
     7423   01 02DD1    2000118F              GEN,4,28 2,LOC+2
     7424   01 02DD2    40100000 A            DATA     X'40100000',X'40F00000'
            01 02DD3    40F00000 A
     7425   01 02DD4    41EFFFFF A            DATA     X'41EFFFFF',X'41EFFFFF'
            01 02DD5    41EFFFFF A
     7426   01 02DD6    00000001 A            DATA     1,13,-1,-1
            01 02DD7    0000000D A
            01 02DD8    FFFFFFFF A
            01 02DD9    FFFFFFFF A
     7427   01 02DDA    0C2E012B A   FML46    MODULE
     7428   01 02DDB    1FC030F0              FML,12   MEMORY
     7429   01 02DDC    0000118D              DATA     LOC
     7430   01 02DDD    2000118F              GEN,4,28 2,LOC+2
     7431   01 02DDE    40100000 A            DATA     X'40100000',X'40F00000'
            01 02DDF    40F00000 A
     7432   01 02DE0    41EFFFFF A            DATA     X'41EFFFFF',X'41EFFFFF'
            01 02DE1    41EFFFFF A
     7433   01 02DE2    00000002 A            DATA     2,28,-1,-1
            01 02DE3    0000001C A
            01 02DE4    FFFFFFFF A
            01 02DE5    FFFFFFFF A
     7434   01 02DE6    0C2F012C A   FML47    MODULE
     7435   01 02DE7    1FC030F0              FML,12   MEMORY
     7436   01 02DE8    0000118D              DATA     LOC
     7437   01 02DE9    2000118F              GEN,4,28 2,LOC+2
     7438   01 02DEA    40100000 A            DATA     X'40100000',X'40F00000'
            01 02DEB    40F00000 A
     7439   01 02DEC    41EFFFFF A            DATA     X'41EFFFFF',X'41EFFFFF'
            01 02DED    41EFFFFF A
     7440   01 02DEE    00000003 A            DATA     3,43,-1,-1
            01 02DEF    0000002B A
            01 02DF0    FFFFFFFF A
            01 02DF1    FFFFFFFF A
     7441   01 02DF2    0C30012D A   FML48    MODULE
     7442   01 02DF3    1FC030F0              FML,12   MEMORY
     7443   01 02DF4    0000118D              DATA     LOC
     7444   01 02DF5    2000118F              GEN,4,28 2,LOC+2
     7445   01 02DF6    40100000 A            DATA     X'40100000',X'40F00000'
            01 02DF7    40F00000 A
     7446   01 02DF8    41EFFFFF A            DATA     X'41EFFFFF',X'41EFFFFF'
            01 02DF9    41EFFFFF A
     7447   01 02DFA    00000006 A            DATA     6,88,-1,-1
            01 02DFB    00000058 A
            01 02DFC    FFFFFFFF A
            01 02DFD    FFFFFFFF A
     7448   01 02DFE    0831012E A   FML49    MODULE
     7449   01 02DFF    1FC030F0              FML,12   MEMORY
     7450   01 02E00    0000118D              DATA     LOC
     7451   01 02E01    2000118F              GEN,4,28 2,LOC+2
     7452   01 02E02    BFF00000 A            DATA     X'BFF00000',X'3F100000'
            01 02E03    3F100000 A
     7453   01 02E04    BFF00000 A            DATA     X'BFF00000',X'BFF00000'
            01 02E05    BFF00000 A
     7454   01 02E06    0C32012F A   FML50    MODULE                     FML
     7455   01 02E07    1FC0000C A            FML,12   12
     7456   01 02E08    0530118D              K        0,5,3,LOC
     7457   01 02E09    2530118F              K        2,5,3,LOC+2
     7458   01 02E0A    40AAAAAA A            DATA     X'40AAAAAA'
     7459   01 02E0B    4071C71C A            DATA     X'4071C71C'
     7460   01 02E0C    40AAAAAA A            DATA     X'40AAAAAA'
     7461   01 02E0D    40AAAAAA A            DATA     X'40AAAAAA'
     7462   01 02E0E    AAAAAAAA A            DATA     X'AAAAAAAA'
     7463   01 02E0F    71C71C70 A            DATA     X'71C71C70'
     7464   01 02E10    AAAAAAAA A            DATA     X'AAAAAAAA'
     7465   01 02E11    AAAAAAAA A            DATA     X'AAAAAAAA'
     7466   01 02E12    0C330130 A   FML51    MODULE                                                     *A03
     7467   01 02E13    1FC030F0              FML,12   MEMORY                                            *A03
     7468   01 02E14    0530118D              K        0,5,3,LOC                                         *A03
     7469   01 02E15    2530118F              K        2,5,3,LOC+2                                       *A03
     7470   01 02E16    5441D408 A            DATA     X'5441D408'                                       *A03
     7471   01 02E17    67CD4EFF A            DATA     X'67CD4EFF'                                       *A03
     7472   01 02E18    5431E6D1 A            DATA     X'5431E6D1'                                       *A03
     7473   01 02E19    5431E6D1 A            DATA     X'5431E6D1'                                       *A03
     7474   01 02E1A    09E13AD9 A            DATA     X'09E13AD9'                                       *A03
     7475   01 02E1B    6ADE3F47 A            DATA     X'6ADE3F47'                                       *A03
     7476   01 02E1C    B8938EE1 A            DATA     X'B8938EE1'                                       *A03
     7477   01 02E1D    B8938EE1 A            DATA     X'B8938EE1'                                       *A03
     7478   01 02E1E    08010131 A   FDS01    MODULE   X'3E'             FDS R EVEN
     7479   01 02E1F    3EC030F0              FDS,12   MEMORY
     7480   01 02E20    0530118D              K        0,5,3,LOC
     7481   01 02E21    2530118F              K        2,5,3,LOC+2
     7482   01 02E22    2B5FA631 A            DATA     X'2B5FA631'
     7483   01 02E23    4E8F854C A            DATA     X'4E8F854C'
     7484   01 02E24    1DAA9C62 A            DATA     X'1DAA9C62'
     7485   01 02E25    1DAA9C62 A            DATA     X'1DAA9C62'
     7486   01 02E26    08020132 A   FDS02    MODULE                     FDS
     7487   01 02E27    3EC030F0              FDS,12   MEMORY
     7488   01 02E28    0530118D              K        0,5,3,LOC
     7489   01 02E29    2530118F              K        2,5,3,LOC+2
     7490   01 02E2A    4C008B51 A            DATA     X'4C008B51'
     7491   01 02E2B    52123BCF A            DATA     X'52123BCF'
     7492   01 02E2C    3B007A40 A            DATA     X'3B007A40'
     7493   01 02E2D    3B007A40 A            DATA     X'3B007A40'
     7494   01 02E2E    08030133 A   FDS03    MODULE                     FDS
     7495   01 02E2F    3EC030F0              FDS,12   MEMORY
     7496   01 02E30    0530118D              K        0,5,3,LOC
     7497   01 02E31    1530118F              K        1,5,3,LOC+2
     7498   01 02E32    6E0000D7 A            DATA     X'6E0000D7'
     7499   01 02E33    B6E8C1BB A            DATA     X'B6E8C1BB'
     7500   01 02E34    99FFFF6C A            DATA     X'99FFFF6C'
     7501   01 02E35    99FFFF6C A            DATA     X'99FFFF6C'
     7502   01 02E36    08040134 A   FDS04    MODULE                     FDS
     7503   01 02E37    3EC030F0              FDS,12   MEMORY
     7504   01 02E38    0530118D              K        0,5,3,LOC
     7505   01 02E39    2530118F              K        2,5,3,LOC+2
     7506   01 02E3A    F1324034 A            DATA     X'F1324034'
     7507   01 02E3B    341CD84F A            DATA     X'341CD84F'
     7508   01 02E3C    E48DDF82 A            DATA     X'E48DDF82'
     7509   01 02E3D    E48DDF82 A            DATA     X'E48DDF82'
     7510   01 02E3E    08050135 A   FDS05    MODULE                     FDS
     7511   01 02E3F    3EC030F0              FDS,12   MEMORY
     7512   01 02E40    0530118D              K        0,5,3,LOC
     7513   01 02E41    1530118F              K        1,5,3,LOC+2
     7514   01 02E42    136AF5B2 A            DATA     X'136AF5B2'
     7515   01 02E43    B891CFBF A            DATA     X'B891CFBF'
     7516   01 02E44    F3078058 A            DATA     X'F3078058'
     7517   01 02E45    F3078058 A            DATA     X'F3078058'
     7518   01 02E46    08060136 A   FDS06    MODULE                     FDS
     7519   01 02E47    3EC030F0              FDS,12   MEMORY
     7520   01 02E48    0530118D              K        0,5,3,LOC
     7521   01 02E49    2530118F              K        2,5,3,LOC+2
     7522   01 02E4A    15B897C4 A            DATA     X'15B897C4'
     7523   01 02E4B    5211A4A6 A            DATA     X'5211A4A6'
     7524   01 02E4C    04A766B3 A            DATA     X'04A766B3'
     7525   01 02E4D    04A766B3 A            DATA     X'04A766B3'
     7526   01 02E4E    08070137 A   FDS07    MODULE                     FDS
     7527   01 02E4F    3EC030F0              FDS,12   MEMORY
     7528   01 02E50    0530118D              K        0,5,3,LOC
     7529   01 02E51    2530118F              K        2,5,3,LOC+2
     7530   01 02E52    37DA99E6 A            DATA     X'37DA99E6'
     7531   01 02E53    1EFDEEB0 A            DATA     X'1EFDEEB0'
     7532   01 02E54    5A0DC619 A            DATA     X'5A0DC619'
     7533   01 02E55    5A0DC619 A            DATA     X'5A0DC619'
     7534   01 02E56    08080138 A   FDS08    MODULE                     FDS
     7535   01 02E57    3EC030F0              FDS,12   MEMORY
     7536   01 02E58    0530118D              K        0,5,3,LOC
     7537   01 02E59    2530118F              K        2,5,3,LOC+2
     7538   01 02E5A    28FDD84E A            DATA     X'28FDD84E'
     7539   01 02E5B    4F7F4226 A            DATA     X'4F7F4226'
     7540   01 02E5C    1A1FEA60 A            DATA     X'1A1FEA60'
     7541   01 02E5D    1A1FEA60 A            DATA     X'1A1FEA60'
     7542   01 02E5E    08090139 A   FDS09    MODULE                     FDS
     7543   01 02E5F    3EC030F0              FDS,12   MEMORY
     7544   01 02E60    0530118D              K        0,5,3,LOC
     7545   01 02E61    1530118F              K        1,5,3,LOC+2
     7546   01 02E62    8508753F A            DATA     X'8508753F'
     7547   01 02E63    86E514A4 A            DATA     X'86E514A4'
     7548   01 02E64    43093218 A            DATA     X'43093218'
     7549   01 02E65    43093218 A            DATA     X'43093218'
     7550   01 02E66    080A013A A   FDS10    MODULE                     FDS
     7551   01 02E67    3EC030F0              FDS,12   MEMORY
     7552   01 02E68    0530118D              K        0,5,3,LOC
     7553   01 02E69    2530118F              K        2,5,3,LOC+2
     7554   01 02E6A    585F8073 A            DATA     X'585F8073'
     7555   01 02E6B    6525F675 A            DATA     X'6525F675'
     7556   01 02E6C    34284031 A            DATA     X'34284031'
     7557   01 02E6D    34284031 A            DATA     X'34284031'
     7558   01 02E6E    0C0B013B A   FDS11    MODULE                     FDS R ODD
     7559   01 02E6F    3ED030F1              FDS,13   MEMORY+1
     7560   01 02E70    0530118D              K        0,5,3,LOC
     7561   01 02E71    1530118F              K        1,5,3,LOC+2
     7562   01 02E72    00000000 A            DATA     X'0'
     7563   01 02E73    00000000 A            DATA     X'0'
     7564   01 02E74    00000000 A            DATA     X'0'
     7565   01 02E75    00000000 A            DATA     X'0'
     7566   01 02E76    4906BCA8 A            DATA     X'4906BCA8'
     7567   01 02E77    C470BA88 A            DATA     X'C470BA88'
     7568   01 02E78    B1F3F65A A            DATA     X'B1F3F65A'
     7569   01 02E79    B1F3F65A A            DATA     X'B1F3F65A'
     7570   01 02E7A    0C0C013C A   FDS12    MODULE                     FDS
     7571   01 02E7B    3ED030F1              FDS,13   MEMORY+1
     7572   01 02E7C    0530118D              K        0,5,3,LOC
     7573   01 02E7D    1530118F              K        1,5,3,LOC+2
     7574   01 02E7E    00000000 A            DATA     X'0'
     7575   01 02E7F    00000000 A            DATA     X'0'
     7576   01 02E80    00000000 A            DATA     X'0'
     7577   01 02E81    00000000 A            DATA     X'0'
     7578   01 02E82    9CFFF53F A            DATA     X'9CFFF53F'
     7579   01 02E83    A50575DB A            DATA     X'A50575DB'
     7580   01 02E84    49000AFD A            DATA     X'49000AFD'
     7581   01 02E85    49000AFD A            DATA     X'49000AFD'
     7582   01 02E86    0C0D013D A   FDS13    MODULE                     FDS
     7583   01 02E87    3ED030F1              FDS,13   MEMORY+1
     7584   01 02E88    0530118D              K        0,5,3,LOC
     7585   01 02E89    2530118F              K        2,5,3,LOC+2
     7586   01 02E8A    00000000 A            DATA     X'0'
     7587   01 02E8B    00000000 A            DATA     X'0'
     7588   01 02E8C    00000000 A            DATA     X'0'
     7589   01 02E8D    00000000 A            DATA     X'0'
     7590   01 02E8E    80FFFFF5 A            DATA     X'80FFFFF5'
     7591   01 02E8F    54160000 A            DATA     X'54160000'
     7592   01 02E90    93FFFFF8 A            DATA     X'93FFFFF8'
     7593   01 02E91    93FFFFF8 A            DATA     X'93FFFFF8'
     7594   01 02E92    0C0E013E A   FDS14    MODULE                     FDS
     7595   01 02E93    3ED030F1              FDS,13   MEMORY+1
     7596   01 02E94    0530118D              K        0,5,3,LOC
     7597   01 02E95    1530118F              K        1,5,3,LOC+2
     7598   01 02E96    00000000 A            DATA     X'0'
     7599   01 02E97    00000000 A            DATA     X'0'
     7600   01 02E98    00000000 A            DATA     X'0'
     7601   01 02E99    00000000 A            DATA     X'0'
     7602   01 02E9A    AC67F6A8 A            DATA     X'AC67F6A8'
     7603   01 02E9B    83DCFE0F A            DATA     X'83DCFE0F'
     7604   01 02E9C    18457CC1 A            DATA     X'18457CC1'
     7605   01 02E9D    18457CC1 A            DATA     X'18457CC1'
     7606   01 02E9E    0C0F013F A   FDS15    MODULE                     FDS
     7607   01 02E9F    3ED030F1              FDS,13   MEMORY+1
     7608   01 02EA0    0530118D              K        0,5,3,LOC
     7609   01 02EA1    2530118F              K        2,5,3,LOC+2
     7610   01 02EA2    00000000 A            DATA     X'0'
     7611   01 02EA3    00000000 A            DATA     X'0'
     7612   01 02EA4    00000000 A            DATA     X'0'
     7613   01 02EA5    00000000 A            DATA     X'0'
     7614   01 02EA6    72963D9E A            DATA     X'72963D9E'
     7615   01 02EA7    522C3ED1 A            DATA     X'522C3ED1'
     7616   01 02EA8    6136547A A            DATA     X'6136547A'
     7617   01 02EA9    6136547A A            DATA     X'6136547A'
     7618   01 02EAA    0C100140 A   FDS16    MODULE                     FDS
     7619   01 02EAB    3ED030F1              FDS,13   MEMORY+1
     7620   01 02EAC    0530118D              K        0,5,3,LOC
     7621   01 02EAD    2530118F              K        2,5,3,LOC+2
     7622   01 02EAE    00000000 A            DATA     X'0'
     7623   01 02EAF    00000000 A            DATA     X'0'
     7624   01 02EB0    00000000 A            DATA     X'0'
     7625   01 02EB1    00000000 A            DATA     X'0'
     7626   01 02EB2    8D8E2FD4 A            DATA     X'8D8E2FD4'
     7627   01 02EB3    63130515 A            DATA     X'63130515'
     7628   01 02EB4    AFA041E6 A            DATA     X'AFA041E6'
     7629   01 02EB5    AFA041E6 A            DATA     X'AFA041E6'
     7630   01 02EB6    0C110141 A   FDS17    MODULE                     FDS
     7631   01 02EB7    3ED030F1              FDS,13   MEMORY+1
     7632   01 02EB8    0530118D              K        0,5,3,LOC
     7633   01 02EB9    2530118F              K        2,5,3,LOC+2
     7634   01 02EBA    00000000 A            DATA     X'0'
     7635   01 02EBB    00000000 A            DATA     X'0'
     7636   01 02EBC    00000000 A            DATA     X'0'
     7637   01 02EBD    00000000 A            DATA     X'0'
     7638   01 02EBE    67284031 A            DATA     X'67284031'
     7639   01 02EBF    4F29F8D2 A            DATA     X'4F29F8D2'
     7640   01 02EC0    58F58073 A            DATA     X'58F58073'
     7641   01 02EC1    58F58073 A            DATA     X'58F58073'
     7642   01 02EC2    0C120142 A   FDS18    MODULE                     FDS
     7643   01 02EC3    3ED030F1              FDS,13   MEMORY+1
     7644   01 02EC4    0530118D              K        0,5,3,LOC
     7645   01 02EC5    2530118F              K        2,5,3,LOC+2
     7646   01 02EC6    00000000 A            DATA     X'0'
     7647   01 02EC7    00000000 A            DATA     X'0'
     7648   01 02EC8    00000000 A            DATA     X'0'
     7649   01 02EC9    00000000 A            DATA     X'0'
     7650   01 02ECA    B132F65A A            DATA     X'B132F65A'
     7651   01 02ECB    6215442B A            DATA     X'6215442B'
     7652   01 02ECC    D265BCA9 A            DATA     X'D265BCA9'
     7653   01 02ECD    D265BCA9 A            DATA     X'D265BCA9'
     7654   01 02ECE    0C130143 A   FDS19    MODULE                     FDS
     7655   01 02ECF    3ED030F1              FDS,13   MEMORY+1
     7656   01 02ED0    0530118D              K        0,5,3,LOC
     7657   01 02ED1    1530118F              K        1,5,3,LOC+2
     7658   01 02ED2    00000000 A            DATA     X'0'
     7659   01 02ED3    00000000 A            DATA     X'0'
     7660   01 02ED4    00000000 A            DATA     X'0'
     7661   01 02ED5    00000000 A            DATA     X'0'
     7662   01 02ED6    49A80AFD A            DATA     X'49A80AFD'
     7663   01 02ED7    A5C8949E A            DATA     X'A5C8949E'
     7664   01 02ED8    CFCF7C1C A            DATA     X'CFCF7C1C'
     7665   01 02ED9    CFCF7C1C A            DATA     X'CFCF7C1C'
     7666   01 02EDA    0C140144 A   FDS20    MODULE                     FDS
     7667   01 02EDB    3ED030F1              FDS,13   MEMORY+1
     7668   01 02EDC    0530118D              K        0,5,3,LOC
     7669   01 02EDD    1530118F              K        1,5,3,LOC+2
     7670   01 02EDE    00000000 A            DATA     X'0'
     7671   01 02EDF    00000000 A            DATA     X'0'
     7672   01 02EE0    00000000 A            DATA     X'0'
     7673   01 02EE1    00000000 A            DATA     X'0'
     7674   01 02EE2    81659CC1 A            DATA     X'81659CC1'
     7675   01 02EE3    8BE83D24 A            DATA     X'8BE83D24'
     7676   01 02EE4    4B67F5A8 A            DATA     X'4B67F5A8'
     7677   01 02EE5    4B67F5A8 A            DATA     X'4B67F5A8'
     7678   01 02EE6    08150145 A   FDS21    MODULE
     7679   01 02EE7    3EC030F0              FDS,12   MEMORY
     7680   01 02EE8    F700118D              K        15,7,0,LOC
     7681   01 02EE9    0700118F              K        0,7,0,LOC+2
     7682   01 02EEA    17000000 A            DATA     X'17000000',0,X'35642100',X'35642100'
            01 02EEB    00000000 A
            01 02EEC    35642100 A
            01 02EED    35642100 A
     7683   01 02EEE    08160146 A   FDS22    MODULE
     7684   01 02EEF    3EC030F0              FDS,12   MEMORY
     7685   01 02EF0    02001191              K        0,2,0,LOC+4
     7686   01 02EF1    E2001016              K        14,2,0,EXP:TRAP
     7687   01 02EF2    00000001 A            DATA     1
     7688   01 02EF3    00000001 A            DATA     1
     7689   01 02EF4    7F100000 A            DATA     X'7F100000'
     7690   01 02EF5    7F100000 A            DATA     X'7F100000'
     7691   01 02EF6    0C010147 A   FDL01    MODULE   X'1E'
     7692   01 02EF7    1EC030F0              FDL,12   MEMORY
     7693   01 02EF8    0530118D              K        0,5,3,LOC
     7694   01 02EF9    2530118F              K        2,5,3,LOC+2
     7695   01 02EFA    BBAAAAAA A            DATA     X'BBAAAAAA'
     7696   01 02EFB    62800000 A            DATA     X'62800000'
     7697   01 02EFC    DD555555 A            DATA     X'DD555555'
     7698   01 02EFD    DD555555 A            DATA     X'DD555555'
     7699   01 02EFE    AAAAAAAA A            DATA     X'AAAAAAAA'
     7700   01 02EFF    00000000 A            DATA     X'0'
     7701   01 02F00    55555555 A            DATA     X'55555555'
     7702   01 02F01    55555555 A            DATA     X'55555555'
     7703   01 02F02    0C020148 A   FDL02    MODULE                     FDL
     7704   01 02F03    1EC030F0              FDL,12   MEMORY
     7705   01 02F04    0530118D              K        0,5,3,LOC
     7706   01 02F05    2530118F              K        2,5,3,LOC+2
     7707   01 02F06    10555555 A            DATA     X'10555555'
     7708   01 02F07    4D800000 A            DATA     X'4D800000'
     7709   01 02F08    03AAAAAA A            DATA     X'03AAAAAA'
     7710   01 02F09    03AAAAAA A            DATA     X'03AAAAAA'
     7711   01 02F0A    55555555 A            DATA     X'55555555'
     7712   01 02F0B    00000000 A            DATA     X'0'
     7713   01 02F0C    AAAAAAAA A            DATA     X'AAAAAAAA'
     7714   01 02F0D    AAAAAAAA A            DATA     X'AAAAAAAA'
     7715   01 02F0E    0C030149 A   FDL03    MODULE                     FDL
     7716   01 02F0F    1EC030F0              FDL,12   MEMORY
     7717   01 02F10    0530118D              K        0,5,3,LOC
     7718   01 02F11    2530118F              K        2,5,3,LOC+2
     7719   01 02F12    66AAAAAA A            DATA     X'66AAAAAA'
     7720   01 02F13    74200000 A            DATA     X'74200000'
     7721   01 02F14    33555555 A            DATA     X'33555555'
     7722   01 02F15    33555555 A            DATA     X'33555555'
     7723   01 02F16    AAAAAAAA A            DATA     X'AAAAAAAA'
     7724   01 02F17    00000000 A            DATA     X'0'
     7725   01 02F18    55555555 A            DATA     X'55555555'
     7726   01 02F19    55555555 A            DATA     X'55555555'
     7727   01 02F1A    0C04014A A   FDL04    MODULE                     FDL
     7728   01 02F1B    1EC030F0              FDL,12   MEMORY
     7729   01 02F1C    0530118D              K        0,5,3,LOC
     7730   01 02F1D    2530118F              K        2,5,3,LOC+2
     7731   01 02F1E    EE555555 A            DATA     X'EE555555'
     7732   01 02F1F    2E1FFFFF A            DATA     X'2E1FFFFF'
     7733   01 02F20    DBAAAAAA A            DATA     X'DBAAAAAA'
     7734   01 02F21    DBAAAAAA A            DATA     X'DBAAAAAA'
     7735   01 02F22    55555555 A            DATA     X'55555555'
     7736   01 02F23    FFFFFFFF A            DATA     X'FFFFFFFF'
     7737   01 02F24    AAAAAAAA A            DATA     X'AAAAAAAA'
     7738   01 02F25    AAAAAAAA A            DATA     X'AAAAAAAA'
     7739   01 02F26    0C05014B A   FDL05    MODULE                     FDL
     7740   01 02F27    1EC030F0              FDL,12   MEMORY
     7741   01 02F28    0530118D              K        0,5,3,LOC
     7742   01 02F29    0530118F              K        0,5,3,LOC+2
     7743   01 02F2A    20000000 A            DATA     X'20000000'
     7744   01 02F2B    00000000 A            DATA     X'0'
     7745   01 02F2C    436BD23B A            DATA     X'436BD23B'
     7746   01 02F2D    436BD23B A            DATA     X'436BD23B'
     7747   01 02F2E    00000000 A            DATA     X'00000000'
     7748   01 02F2F    00000000 A            DATA     X'0'
     7749   01 02F30    6869210F A            DATA     X'6869210F'
     7750   01 02F31    6869210F A            DATA     X'6869210F'
     7751   01 02F32    0A06014C A   FDL06    MODULE                     FDL      DIVISOR IS 0, TRAP
     7752   01 02F33    1EC030F0              FDL,12   MEMORY
     7753   01 02F34    05301191              K        0,5,3,LOC+4
     7754   01 02F35    45301016              K        4,5,3,EXP:TRAP
     7755   01 02F36    1F501355 A            DATA     X'1F501355'
     7756   01 02F37    1F501355 A            DATA     X'1F501355'
     7757   01 02F38    10000000 A            DATA     X'10000000'
     7758   01 02F39    10000000 A            DATA     X'10000000'
     7759   01 02F3A    9960101A A            DATA     X'9960101A'
     7760   01 02F3B    9960101A A            DATA     X'9960101A'
     7761   01 02F3C    0C07014D A   FDL07    MODULE                     FDL
     7762   01 02F3D    1EC030F0              FDL,12   MEMORY
     7763   01 02F3E    0530118D              K        0,5,3,LOC
     7764   01 02F3F    1530118F              K        1,5,3,LOC+2
     7765   01 02F40    30100000 A            DATA     X'30100000'
     7766   01 02F41    AFB50001 A            DATA     X'AFB50001'
     7767   01 02F42    DFC962FB A            DATA     X'DFC962FB'
     7768   01 02F43    DFC962FB A            DATA     X'DFC962FB'
     7769   01 02F44    00000000 A            DATA     X'00000000'
     7770   01 02F45    8A99A95E A            DATA     X'8A99A95E'
     7771   01 02F46    76D8F280 A            DATA     X'76D8F280'
     7772   01 02F47    76D8F280 A            DATA     X'76D8F280'
     7773   01 02F48    0A08014E A   FDL08    MODULE                     FDL
     7774   01 02F49    1EC030F0              FDL,12   MEMORY
     7775   01 02F4A    0530118D              K        0,5,3,LOC
     7776   01 02F4B    2530118F              K        2,5,3,LOC+2
     7777   01 02F4C    36361BA7 A            DATA     X'36361BA7'
     7778   01 02F4D    6F361BA7 A            DATA     X'6F361BA7'
     7779   01 02F4E    08100000 A            DATA     X'08100000'
     7780   01 02F4F    08100000 A            DATA     X'08100000'
     7781   01 02F50    6568A665 A            DATA     X'6568A665'
     7782   01 02F51    6568A665 A            DATA     X'6568A665'
     7783   01 02F52    0C09014F A   FDL09    MODULE                     FDL - FEUF - FZ=0
     7784   01 02F53    1EC030F0              FDL,12   MEMORY
     7785   01 02F54    0530118D              K        0,5,3,LOC
     7786   01 02F55    C530118F              K        12,5,3,LOC+2
     7787   01 02F56    1059AE26 A            DATA     X'1059AE26'
     7788   01 02F57    00000000 A            DATA     X'0'
     7789   01 02F58    5527C16B A            DATA     X'5527C16B'
     7790   01 02F59    5527C16B A            DATA     X'5527C16B'
     7791   01 02F5A    C16B05AF A            DATA     X'C16B05AF'
     7792   01 02F5B    00000000 A            DATA     X'0'
     7793   01 02F5C    05B16C28 A            DATA     X'05B16C28'
     7794   01 02F5D    05B16C28 A            DATA     X'05B16C28'
     7795   01 02F5E    0C0A0150 A   FDL10    MODULE                     FDL - FEUF - FZ=1
     7796   01 02F5F    1EC030F0              FDL,12   MEMORY
     7797   01 02F60    07301191              K        0,7,3,LOC+4
     7798   01 02F61    E7301016              K        14,7,3,EXP:TRAP
     7799   01 02F62    1059AE26 A            DATA     X'1059AE26'
     7800   01 02F63    1059AE26 A            DATA     X'1059AE26'
     7801   01 02F64    5527C16B A            DATA     X'5527C16B'
     7802   01 02F65    5527C16B A            DATA     X'5527C16B'
     7803   01 02F66    C16B05AF A            DATA     X'C16B05AF'
     7804   01 02F67    C16B05AF A            DATA     X'C16B05AF'
     7805   01 02F68    05B16C28 A            DATA     X'05B16C28'
     7806   01 02F69    05B16C28 A            DATA     X'05B16C28'
     7807   01 02F6A    0C0B0151 A   FDL11    MODULE                     FDL - FEOF
     7808   01 02F6B    1EC030F0              FDL,12   MEMORY
     7809   01 02F6C    05301191              K        0,5,3,LOC+4
     7810   01 02F6D    65301016              K        6,5,3,EXP:TRAP
     7811   01 02F6E    7FA22676 A            DATA     X'7FA22676'
     7812   01 02F6F    7FA22676 A            DATA     X'7FA22676'
     7813   01 02F70    3F212707 A            DATA     X'3F212707'
     7814   01 02F71    3F212707 A            DATA     X'3F212707'
     7815   01 02F72    C6C5116B A            DATA     X'C6C5116B'
     7816   01 02F73    C6C5116B A            DATA     X'C6C5116B'
     7817   01 02F74    92B682F0 A            DATA     X'92B682F0'
     7818   01 02F75    92B682F0 A            DATA     X'92B682F0'
     7819   01 02F76    080C0152 A   FDL12    MODULE                     FDL
     7820   01 02F77    1EC030F0              FDL,12   MEMORY
     7821   01 02F78    0530118D              K        0,5,3,LOC
     7822   01 02F79    2530118F              K        2,5,3,LOC+2
     7823   01 02F7A    BFF00000 A            DATA     X'BFF00000'
     7824   01 02F7B    61100000 A            DATA     X'61100000'
     7825   01 02F7C    DFF00000 A            DATA     X'DFF00000'
     7826   01 02F7D    DFF00000 A            DATA     X'DFF00000'
     7827   01 02F7E    0C0D0153 A   FDL13    MODULE                     FDL
     7828   01 02F7F    1EC030F0              FDL,12   MEMORY
     7829   01 02F80    0530118D              K        0,5,3,LOC
     7830   01 02F81    1530118F              K        1,5,3,LOC+2
     7831   01 02F82    258BE147 A            DATA     X'258BE147'
     7832   01 02F83    AC723AD0 A            DATA     X'AC723AD0'
     7833   01 02F84    ED0369CF A            DATA     X'ED0369CF'
     7834   01 02F85    ED0369CF A            DATA     X'ED0369CF'
     7835   01 02F86    56AE37BF A            DATA     X'56AE37BF'
     7836   01 02F87    1B02AF4F A            DATA     X'1B02AF4F'
     7837   01 02F88    DF1357BD A            DATA     X'DF1357BD'
     7838   01 02F89    DF1357BD A            DATA     X'DF1357BD'
     7839   01 02F8A    0C0E0154 A   FDL14    MODULE                     FDL
     7840   01 02F8B    1EC030F0              FDL,12   MEMORY
     7841   01 02F8C    0530118D              K        0,5,3,LOC
     7842   01 02F8D    2530118F              K        2,5,3,LOC+2
     7843   01 02F8E    E13579BD A            DATA     X'E13579BD'
     7844   01 02F8F    521178EE A            DATA     X'521178EE'
     7845   01 02F90    F2468ACE A            DATA     X'F2468ACE'
     7846   01 02F91    F2468ACE A            DATA     X'F2468ACE'
     7847   01 02F92    8147AD03 A            DATA     X'8147AD03'
     7848   01 02F93    BFD83D40 A            DATA     X'BFD83D40'
     7849   01 02F94    E26AE38D A            DATA     X'E26AE38D'
     7850   01 02F95    E26AE38D A            DATA     X'E26AE38D'
     7851   01 02F96    0C0F0155 A   FDL15    MODULE                     FDL
     7852   01 02F97    1EC030F0              FDL,12   MEMORY
     7853   01 02F98    0530118D              K        0,5,3,LOC
     7854   01 02F99    2530118F              K        2,5,3,LOC+2
     7855   01 02F9A    27C16B05 A            DATA     X'27C16B05'
     7856   01 02F9B    54161CD6 A            DATA     X'54161CD6'
     7857   01 02F9C    148BF37B A            DATA     X'148BF37B'
     7858   01 02F9D    148BF37B A            DATA     X'148BF37B'
     7859   01 02F9E    F37BF49E A            DATA     X'F37BF49E'
     7860   01 02F9F    30CA4568 A            DATA     X'30CA4568'
     7861   01 02FA0    E26AF49F A            DATA     X'E26AF49F'
     7862   01 02FA1    E26AF49F A            DATA     X'E26AF49F'
     7863   01 02FA2    0C100156 A   FDL16    MODULE                     FDL
     7864   01 02FA3    1EC030F0              FDL,12   MEMORY
     7865   01 02FA4    0530118D              K        0,5,3,LOC
     7866   01 02FA5    2530118F              K        2,5,3,LOC+2
     7867   01 02FA6    F0259E49 A            DATA     X'F0259E49'
     7868   01 02FA7    4C720151 A            DATA     X'4C720151'
     7869   01 02FA8    FBE159F0 A            DATA     X'FBE159F0'
     7870   01 02FA9    FBE159F0 A            DATA     X'FBE159F0'
     7871   01 02FAA    45AE739F A            DATA     X'45AE739F'
     7872   01 02FAB    2B87B0D3 A            DATA     X'2B87B0D3'
     7873   01 02FAC    28CE5BDF A            DATA     X'28CE5BDF'
     7874   01 02FAD    28CE5BDF A            DATA     X'28CE5BDF'
     7875   01 02FAE    0C110157 A   FDL17    MODULE                     FDL
     7876   01 02FAF    1EC030F0              FDL,12   MEMORY
     7877   01 02FB0    0530118D              K        0,5,3,LOC
     7878   01 02FB1    1530118F              K        1,5,3,LOC+2
     7879   01 02FB2    8ACE9FBD A            DATA     X'8ACE9FBD'
     7880   01 02FB3    A43588CC A            DATA     X'A43588CC'
     7881   01 02FB4    5A3E6E7F A            DATA     X'5A3E6E7F'
     7882   01 02FB5    5A3E6E7F A            DATA     X'5A3E6E7F'
     7883   01 02FB6    A13BF37D A            DATA     X'A13BF37D'
     7884   01 02FB7    0C867B1A A            DATA     X'0C867B1A'
     7885   01 02FB8    28E45B17 A            DATA     X'28E45B17'
     7886   01 02FB9    28E45B17 A            DATA     X'28E45B17'
     7887   01 02FBA    0C120158 A   FDL18    MODULE                     FDL
     7888   01 02FBB    1EC030F0              FDL,12   MEMORY
     7889   01 02FBC    0530118D              K        0,5,3,LOC
     7890   01 02FBD    2530118F              K        2,5,3,LOC+2
     7891   01 02FBE    A09CD39F A            DATA     X'A09CD39F'
     7892   01 02FBF    6EDB268E A            DATA     X'6EDB268E'
     7893   01 02FC0    CE8C26A8 A            DATA     X'CE8C26A8'
     7894   01 02FC1    CE8C26A8 A            DATA     X'CE8C26A8'
     7895   01 02FC2    F4A017D3 A            DATA     X'F4A017D3'
     7896   01 02FC3    2506D884 A            DATA     X'2506D884'
     7897   01 02FC4    F67B159D A            DATA     X'F67B159D'
     7898   01 02FC5    F67B159D A            DATA     X'F67B159D'
     7899   01 02FC6    0C130159 A   FDL19    MODULE                     FDL
     7900   01 02FC7    1EC030F0              FDL,12   MEMORY
     7901   01 02FC8    0530118D              K        0,5,3,LOC
     7902   01 02FC9    1530118F              K        1,5,3,LOC+2
     7903   01 02FCA    E6E28A3D A            DATA     X'E6E28A3D'
     7904   01 02FCB    AEE180BA A            DATA     X'AEE180BA'
     7905   01 02FCC    08F74B3B A            DATA     X'08F74B3B'
     7906   01 02FCD    08F74B3B A            DATA     X'08F74B3B'
     7907   01 02FCE    F7F93B4E A            DATA     X'F7F93B4E'
     7908   01 02FCF    DFB55D0A A            DATA     X'DFB55D0A'
     7909   01 02FD0    2C6071B5 A            DATA     X'2C6071B5'
     7910   01 02FD1    2C6071B5 A            DATA     X'2C6071B5'
     7911   01 02FD2    0C14015A A   FDL20    MODULE                     FDL
     7912   01 02FD3    1EC030F0              FDL,12   MEMORY
     7913   01 02FD4    0530118D              K        0,5,3,LOC
     7914   01 02FD5    1530118F              K        1,5,3,LOC+2
     7915   01 02FD6    47E95A3F A            DATA     X'47E95A3F'
     7916   01 02FD7    8FEF2201 A            DATA     X'8FEF2201'
     7917   01 02FD8    E6F22A4F A            DATA     X'E6F22A4F'
     7918   01 02FD9    E6F22A4F A            DATA     X'E6F22A4F'
     7919   01 02FDA    690B7C52 A            DATA     X'690B7C52'
     7920   01 02FDB    29E60A24 A            DATA     X'29E60A24'
     7921   01 02FDC    F29405E9 A            DATA     X'F29405E9'
     7922   01 02FDD    F29405E9 A            DATA     X'F29405E9'
     7923   01 02FDE    0C15015B A   FDL21    MODULE                     FDL
     7924   01 02FDF    1EC030F0              FDL,12   MEMORY
     7925   01 02FE0    0530118D              K        0,5,3,LOC
     7926   01 02FE1    1530118F              K        1,5,3,LOC+2
     7927   01 02FE2    AE58B190 A            DATA     X'AE58B190'
     7928   01 02FE3    9ACB16E1 A            DATA     X'9ACB16E1'
     7929   01 02FE4    2D3297C8 A            DATA     X'2D3297C8'
     7930   01 02FE5    2D3297C8 A            DATA     X'2D3297C8'
     7931   01 02FE6    C237DAC1 A            DATA     X'C237DAC1'
     7932   01 02FE7    33AC21AA A            DATA     X'33AC21AA'
     7933   01 02FE8    77532167 A            DATA     X'77532167'
     7934   01 02FE9    77532167 A            DATA     X'77532167'
     7935   01 02FEA    0C16015C A   FDL22    MODULE                     FDL
     7936   01 02FEB    1EC030F0              FDL,12   MEMORY
     7937   01 02FEC    0530118D              K        0,5,3,LOC
     7938   01 02FED    2530118F              K        2,5,3,LOC+2
     7939   01 02FEE    E0FC7F1C A            DATA     X'E0FC7F1C'
     7940   01 02FEF    59EF798F A            DATA     X'59EF798F'
     7941   01 02FF0    FAC41382 A            DATA     X'FAC41382'
     7942   01 02FF1    FAC41382 A            DATA     X'FAC41382'
     7943   01 02FF2    253F7EA9 A            DATA     X'253F7EA9'
     7944   01 02FF3    281A009F A            DATA     X'281A009F'
     7945   01 02FF4    446E28CA A            DATA     X'446E28CA'
     7946   01 02FF5    446E28CA A            DATA     X'446E28CA'
     7947   01 02FF6    0C17015D A   FDL23    MODULE                     FDL
     7948   01 02FF7    1EC030F0              FDL,12   MEMORY
     7949   01 02FF8    0530118D              K        0,5,3,LOC
     7950   01 02FF9    2530118F              K        2,5,3,LOC+2
     7951   01 02FFA    67B5C610 A            DATA     X'67B5C610'
     7952   01 02FFB    6B199F3D A            DATA     X'6B199F3D'
     7953   01 02FFC    3D7182C6 A            DATA     X'3D7182C6'
     7954   01 02FFD    3D7182C6 A            DATA     X'3D7182C6'
     7955   01 02FFE    67B980C1 A            DATA     X'67B980C1'
     7956   01 02FFF    EDB9AF2A A            DATA     X'EDB9AF2A'
     7957   01 03000    135BDF7D A            DATA     X'135BDF7D'
     7958   01 03001    135BDF7D A            DATA     X'135BDF7D'
     7959   01 03002    0C18015E A   FDL24    MODULE                     FDL
     7960   01 03003    1EC030F0              FDL,12   MEMORY
     7961   01 03004    0530118D              K        0,5,3,LOC
     7962   01 03005    1530118F              K        1,5,3,LOC+2
     7963   01 03006    9BAE1B05 A            DATA     X'9BAE1B05'
     7964   01 03007    80B015BC A            DATA     X'80B015BC'
     7965   01 03008    26106573 A            DATA     X'26106573'
     7966   01 03009    26106573 A            DATA     X'26106573'
     7967   01 0300A    F1A3C842 A            DATA     X'F1A3C842'
     7968   01 0300B    DDE7A4DB A            DATA     X'DDE7A4DB'
     7969   01 0300C    59D73C28 A            DATA     X'59D73C28'
     7970   01 0300D    59D73C28 A            DATA     X'59D73C28'
     7971   01 0300E    0C19015F A   FDL25    MODULE                     FDL
     7972   01 0300F    1EC030F0              FDL,12   MEMORY
     7973   01 03010    0530118D              K        0,5,3,LOC
     7974   01 03011    1530118F              K        1,5,3,LOC+2
     7975   01 03012    42486CEA A            DATA     X'42486CEA'
     7976   01 03013    AFA943B7 A            DATA     X'AFA943B7'
     7977   01 03014    CD2A3C71 A            DATA     X'CD2A3C71'
     7978   01 03015    CD2A3C71 A            DATA     X'CD2A3C71'
     7979   01 03016    2C76B150 A            DATA     X'2C76B150'
     7980   01 03017    1EDCF1EC A            DATA     X'1EDCF1EC'
     7981   01 03018    FC7CF1CC A            DATA     X'FC7CF1CC'
     7982   01 03019    FC7CF1CC A            DATA     X'FC7CF1CC'
     7983   01 0301A    0C1A0160 A   FDL26    MODULE                     FDL
     7984   01 0301B    1EC030F0              FDL,12   MEMORY
     7985   01 0301C    0530118D              K        0,5,3,LOC
     7986   01 0301D    1530118F              K        1,5,3,LOC+2
     7987   01 0301E    475E3AF9 A            DATA     X'475E3AF9'
     7988   01 0301F    A587C421 A            DATA     X'A587C421'
     7989   01 03020    D1F375DB A            DATA     X'D1F375DB'
     7990   01 03021    D1F375DB A            DATA     X'D1F375DB'
     7991   01 03022    FEDCBA98 A            DATA     X'FEDCBA98'
     7992   01 03023    F09C1D54 A            DATA     X'F09C1D54'
     7993   01 03024    ECA86424 A            DATA     X'ECA86424'
     7994   01 03025    ECA86424 A            DATA     X'ECA86424'
     7995   01 03026    0C1B0161 A   FDL27    MODULE                     FDL
     7996   01 03027    1EC030F0              FDL,12   MEMORY
     7997   01 03028    0530118D              K        0,5,3,LOC
     7998   01 03029    2530118F              K        2,5,3,LOC+2
     7999   01 0302A    741EB852 A            DATA     X'741EB852'
     8000   01 0302B    5943D862 A            DATA     X'5943D862'
     8001   01 0302C    5B73EA65 A            DATA     X'5B73EA65'
     8002   01 0302D    5B73EA65 A            DATA     X'5B73EA65'
     8003   01 0302E    DB7531FD A            DATA     X'DB7531FD'
     8004   01 0302F    0A1757C5 A            DATA     X'0A1757C5'
     8005   01 03030    FC9630DA A            DATA     X'FC9630DA'
     8006   01 03031    FC9630DA A            DATA     X'FC9630DA'
     8007   01 03032    0C1C0162 A   FDL28    MODULE                     FDL
     8008   01 03033    1EC030F0              FDL,12   MEMORY
     8009   01 03034    0530118D              K        0,5,3,LOC
     8010   01 03035    2530118F              K        2,5,3,LOC+2
     8011   01 03036    DB97531E A            DATA     X'DB97531E'
     8012   01 03037    52131DEC A            DATA     X'52131DEC'
     8013   01 03038    ECA8642F A            DATA     X'ECA8642F'
     8014   01 03039    ECA8642F A            DATA     X'ECA8642F'
     8015   01 0303A    50B61C72 A            DATA     X'50B61C72'
     8016   01 0303B    B48A4230 A            DATA     X'B48A4230'
     8017   01 0303C    D83EA62E A            DATA     X'D83EA62E'
     8018   01 0303D    D83EA62E A            DATA     X'D83EA62E'
     8019   01 0303E    0C1D0163 A   FDL29    MODULE                     FDL
     8020   01 0303F    1EC030F0              FDL,12   MEMORY
     8021   01 03040    0530118D              K        0,5,3,LOC
     8022   01 03041    2530118F              K        2,5,3,LOC+2
     8023   01 03042    B73FB841 A            DATA     X'B73FB841'
     8024   01 03043    261171FB A            DATA     X'261171FB'
     8025   01 03044    9C4FA62E A            DATA     X'9C4FA62E'
     8026   01 03045    9C4FA62E A            DATA     X'9C4FA62E'
     8027   01 03046    F93EA754 A            DATA     X'F93EA754'
     8028   01 03047    9B0C7B5B A            DATA     X'9B0C7B5B'
     8029   01 03048    94E9520F A            DATA     X'94E9520F'
     8030   01 03049    94E9520F A            DATA     X'94E9520F'
     8031   01 0304A    0C1E0164 A   FDL30    MODULE                     FDL
     8032   01 0304B    1EC030F0              FDL,12   MEMORY
     8033   01 0304C    0530118D              K        0,5,3,LOC
     8034   01 0304D    1530118F              K        1,5,3,LOC+2
     8035   01 0304E    FDB5EC82 A            DATA     X'FDB5EC82'
     8036   01 0304F    CC80D4A9 A            DATA     X'CC80D4A9'
     8037   01 03050    0F951EBA A            DATA     X'0F951EBA'
     8038   01 03051    0F951EBA A            DATA     X'0F951EBA'
     8039   01 03052    F7E6E3A5 A            DATA     X'F7E6E3A5'
     8040   01 03053    DEEFCAAB A            DATA     X'DEEFCAAB'
     8041   01 03054    DBF9ECA8 A            DATA     X'DBF9ECA8'
     8042   01 03055    DBF9ECA8 A            DATA     X'DBF9ECA8'
     8043   01 03056    0C1F0165 A   FDL31    MODULE                     FDL
     8044   01 03057    1EC030F0              FDL,12   MEMORY
     8045   01 03058    0530118D              K        0,5,3,LOC
     8046   01 03059    1530118F              K        1,5,3,LOC+2
     8047   01 0305A    61B54E82 A            DATA     X'61B54E82'
     8048   01 0305B    860EA2A6 A            DATA     X'860EA2A6'
     8049   01 0305C    D73FB31A A            DATA     X'D73FB31A'
     8050   01 0305D    D73FB31A A            DATA     X'D73FB31A'
     8051   01 0305E    EA62C8EF A            DATA     X'EA62C8EF'
     8052   01 0305F    4ED320B9 A            DATA     X'4ED320B9'
     8053   01 03060    F93DC90A A            DATA     X'F93DC90A'
     8054   01 03061    F93DC90A A            DATA     X'F93DC90A'
     8055   01 03062    0C200166 A   FDL32    MODULE                     FDL
     8056   01 03063    1EC030F0              FDL,12   MEMORY
     8057   01 03064    0530118D              K        0,5,3,LOC
     8058   01 03065    1530118F              K        1,5,3,LOC+2
     8059   01 03066    3D710AF4 A            DATA     X'3D710AF4'
     8060   01 03067    A859F464 A            DATA     X'A859F464'
     8061   01 03068    D951B76F A            DATA     X'D951B76F'
     8062   01 03069    D951B76F A            DATA     X'D951B76F'
     8063   01 0306A    B3B47F87 A            DATA     X'B3B47F87'
     8064   01 0306B    285BD4C3 A            DATA     X'285BD4C3'
     8065   01 0306C    D3A28E6E A            DATA     X'D3A28E6E'
     8066   01 0306D    D3A28E6E A            DATA     X'D3A28E6E'
     8067   01 0306E    0C210167 A   FDL33    MODULE                     FDL
     8068   01 0306F    1EC030F0              FDL,12   MEMORY
     8069   01 03070    0530118D              K        0,5,3,LOC
     8070   01 03071    1530118F              K        1,5,3,LOC+2
     8071   01 03072    511706C2 A            DATA     X'511706C2'
     8072   01 03073    89B2D1F5 A            DATA     X'89B2D1F5'
     8073   01 03074    E4B39F7F A            DATA     X'E4B39F7F'
     8074   01 03075    E4B39F7F A            DATA     X'E4B39F7F'
     8075   01 03076    F3A59E74 A            DATA     X'F3A59E74'
     8076   01 03077    9D499C22 A            DATA     X'9D499C22'
     8077   01 03078    F4A22F6E A            DATA     X'F4A22F6E'
     8078   01 03079    F4A22F6E A            DATA     X'F4A22F6E'
     8079   01 0307A    0C220168 A   FDL34    MODULE                     FDL
     8080   01 0307B    1EC030F0              FDL,12   MEMORY
     8081   01 0307C    0530118D              K        0,5,3,LOC
     8082   01 0307D    1530118F              K        1,5,3,LOC+2
     8083   01 0307E    9E50492F A            DATA     X'9E50492F'
     8084   01 0307F    831EBC8D A            DATA     X'831EBC8D'
     8085   01 03080    25C7B096 A            DATA     X'25C7B096'
     8086   01 03081    25C7B096 A            DATA     X'25C7B096'
     8087   01 03082    8C7923D2 A            DATA     X'8C7923D2'
     8088   01 03083    6E577A38 A            DATA     X'6E577A38'
     8089   01 03084    091B85EA A            DATA     X'091B85EA'
     8090   01 03085    091B85EA A            DATA     X'091B85EA'
     8091   01 03086    0C230169 A   FDL35    MODULE                     FDL
     8092   01 03087    1EC030F0              FDL,12   MEMORY
     8093   01 03088    0530118D              K        0,5,3,LOC
     8094   01 03089    2530118F              K        2,5,3,LOC+2
     8095   01 0308A    43123577 A            DATA     X'43123577'
     8096   01 0308B    671AE000 A            DATA     X'671AE000'
     8097   01 0308C    1CAD732C A            DATA     X'1CAD732C'
     8098   01 0308D    1CAD732C A            DATA     X'1CAD732C'
     8099   01 0308E    C1F7CF0E A            DATA     X'C1F7CF0E'
     8100   01 0308F    BBCF5F8F A            DATA     X'BBCF5F8F'
     8101   01 03090    28314CAF A            DATA     X'28314CAF'
     8102   01 03091    28314CAF A            DATA     X'28314CAF'
     8103   01 03092    0C24016A A   FDL36    MODULE                     FDL
     8104   01 03093    1EC030F0              FDL,12   MEMORY
     8105   01 03094    0530118D              K        0,5,3,LOC
     8106   01 03095    2530118F              K        2,5,3,LOC+2
     8107   01 03096    AC82E644 A            DATA     X'AC82E644'
     8108   01 03097    6F533A84 A            DATA     X'6F533A84'
     8109   01 03098    DAE7F352 A            DATA     X'DAE7F352'
     8110   01 03099    DAE7F352 A            DATA     X'DAE7F352'
     8111   01 0309A    6C2817D3 A            DATA     X'6C2817D3'
     8112   01 0309B    67B7912D A            DATA     X'67B7912D'
     8113   01 0309C    016CB576 A            DATA     X'016CB576'
     8114   01 0309D    016CB576 A            DATA     X'016CB576'
     8115   01 0309E    0C25016B A   FDL37    MODULE                     FDL
     8116   01 0309F    1EC030F0              FDL,12   MEMORY
     8117   01 030A0    0530118D              K        0,5,3,LOC
     8118   01 030A1    1530118F              K        1,5,3,LOC+2
     8119   01 030A2    D7FDB531 A            DATA     X'D7FDB531'
     8120   01 030A3    B3BBD2FF A            DATA     X'B3BBD2FF'
     8121   01 030A4    1C089B76 A            DATA     X'1C089B76'
     8122   01 030A5    1C089B76 A            DATA     X'1C089B76'
     8123   01 030A6    37560162 A            DATA     X'37560162'
     8124   01 030A7    22F5CAFD A            DATA     X'22F5CAFD'
     8125   01 030A8    50B1EAB9 A            DATA     X'50B1EAB9'
     8126   01 030A9    50B1EAB9 A            DATA     X'50B1EAB9'
     8127   01 030AA    0C26016C A   FDL38    MODULE                     FDL
     8128   01 030AB    1EC030F0              FDL,12   MEMORY
     8129   01 030AC    0530118D              K        0,5,3,LOC
     8130   01 030AD    1530118F              K        1,5,3,LOC+2
     8131   01 030AE    B2C379D5 A            DATA     X'B2C379D5'
     8132   01 030AF    969181AF A            DATA     X'969181AF'
     8133   01 030B0    248C3A1F A            DATA     X'248C3A1F'
     8134   01 030B1    248C3A1F A            DATA     X'248C3A1F'
     8135   01 030B2    AEC68424 A            DATA     X'AEC68424'
     8136   01 030B3    0820E9D3 A            DATA     X'0820E9D3'
     8137   01 030B4    173CA2DC A            DATA     X'173CA2DC'
     8138   01 030B5    173CA2DC A            DATA     X'173CA2DC'
     8139   01 030B6    0C27016D A   FDL39    MODULE                     FDL
     8140   01 030B7    1EC030F0              FDL,12   MEMORY
     8141   01 030B8    0530118D              K        0,5,3,LOC
     8142   01 030B9    1530118F              K        1,5,3,LOC+2
     8143   01 030BA    9FA3E574 A            DATA     X'9FA3E574'
     8144   01 030BB    B9CA3A2D A            DATA     X'B9CA3A2D'
     8145   01 030BC    5B1B67C2 A            DATA     X'5B1B67C2'
     8146   01 030BD    5B1B67C2 A            DATA     X'5B1B67C2'
     8147   01 030BE    239CD278 A            DATA     X'239CD278'
     8148   01 030BF    1A33BA89 A            DATA     X'1A33BA89'
     8149   01 030C0    BD573F1D A            DATA     X'BD573F1D'
     8150   01 030C1    BD573F1D A            DATA     X'BD573F1D'
     8151   01 030C2    0C28016E A   FDL40    MODULE                     FDL
     8152   01 030C3    1EC030F0              FDL,12   MEMORY
     8153   01 030C4    0530118D              K        0,5,3,LOC
     8154   01 030C5    2530118F              K        2,5,3,LOC+2
     8155   01 030C6    C3DC27A1 A            DATA     X'C3DC27A1'
     8156   01 030C7    7927A9B8 A            DATA     X'7927A9B8'
     8157   01 030C8    FC18A432 A            DATA     X'FC18A432'
     8158   01 030C9    FC18A432 A            DATA     X'FC18A432'
     8159   01 030CA    462C4E8A A            DATA     X'462C4E8A'
     8160   01 030CB    A821951D A            DATA     X'A821951D'
     8161   01 030CC    EF710CFC A            DATA     X'EF710CFC'
     8162   01 030CD    EF710CFC A            DATA     X'EF710CFC'
     8163         0000016E           LAST:MOD SET      MODULE#
     8164   01 030CE    0129016F A            MODULE
     8165         0000016F           CON:WORD SET      MODULE#
     8166         01 030CF           LASTMODULE EQU    %
     8167   01 030CF    002A0170 A            MODULE
     8168                            *
     8169   01 030D0    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
     8170   01 030D1    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
     8171   01 030D2    EA6003C8              BAL,X6   *#GUIDE%
     8172   01 030D3    02207078              GEN,8,3,21 2,1,BA(PROGTEXT)
     8173   01 030D4    2720C380              GEN,8,3,21  39,1,BA(ENDE)                                  *A05
     8174                            *
     8175                            *
     8176   01 030D5    00000000 A            DATA     0
     8177   01 030D6    00000000 A   SN:OBS   DATA     0
     8178                            *
     8179                                     BOUND    64
     8180                            *
     8181         01 030E0           ENDE     EQU      %
     8182                            *
     8183         01 030E0           RES:SAV  EQU      ENDE
     8184         01 030F0           MEMORY   EQU      ENDE+16
     8185         01 030F4           SBUF:END EQU      ENDE+20
     8186         01 030F4           SN:CHECK EQU      ENDE+20
     8187         01 030F9           BIT:MSK  EQU      ENDE+25
     8188         01 031F9           SN:EXP   EQU      ENDE+281
     8189         01 030E0                    TEXTCS   'REVISION A05'                                    *A05
     8190                                     TEXTCS   ;                                                 *A05
     8191         01 030E4                    'SENSE SWITHCH DESCRIPTION WAS MODIFIED'                   *A05
     8192                                     TEXTCS   ;                                                 *A05
     8193         01 030EE                    'SOFTWARE SWITCHES CAN BE DISPLAYED AND MODIFIED.'         *A05
     8194                                     TEXTCS   ;                                                 *A05
     8195         01 030FB                    'AND ALLOWED THEM TO DISPLAY AND ALTER THE'                *A05
     8196                                     TEXTCS   ;                                                 *A05
     8197         01 03106                    'STATE OF HARDWARE SWITHCHES'                              *A05
     8198                                     TEXTCS   ;                                                 *A05
     8199         01 0310D                    'CORRECTED PROBLEM CAUSED BY DCR#105084'                   *A05
     8200         01 03117                    TEXTCS   'REVISION A04'                                    *A04
     8201                                     TEXTCS   ;                                                 *A04
     8202         01 0311B                    'CORRECTED PROBLEM OF HANGING IN STATUS RESPOND LOOP'      *A04
     8203                                     TEXTCS   ;                                                 *A04
     8204         01 03128                    ' AFTER TYPING IN THE & SYMBOL.  TAR # 10944'              *A04
     8205         01 03133                    TEXTCS   'REVISION A03'                                    *A03
     8206                                     TEXTCS   ;                                                 *A03
     8207         01 03137                   'PROGRAM MODIFICATIONS'                                     *A03
     8208                                     TEXTCS   ;                                                 *A03
     8209         01 0313D                   '1. ADDED ORG AT HEX 1010 FOR REMOTE GUIDE'                 *A03
     8210                                     TEXTCS   ;                                                 *A03
     8211         01 03148                   '2. CORRECTED SNAP OUTPUT TO TTY'                           *A03
     8212                                     TEXTCS   ;                                                 *A03
     8213         01 03150                   '3. CORRECTED SNAP VERIFY PROBLEMS'                         *A03
     8214                                     TEXTCS   ;                                                 *A03
     8215         01 03159                   '4. CORRECTED TAR #4835. ADDED TEST FAS15B'                 *A03
     8216                                     TEXTCS   ;                                                 *A03
     8217         01 03164                   '5. CORRECTED TAR #10723. ADDED TEST FML51'                 *A03
     8218         01 0316F                    TEXTCS   'REVISION *A02- SNAP TO CPU REV. H'
     8219                                     TEXTCS   ;
     8220         01 03178                   'PROGRAM MODIFICATIONS'
     8221                                     TEXTCS   ;
     8222         01 0317E                   '----------------------------'
     8223                                     TEXTCS   ;
     8224         01 03186                   '1.  RESTORE CI:SAV ON YES RECOVERY.'
     8225                                     TEXTCS   ;
     8226         01 0318F                   '2.  CLOCK MARGINS CAN BE FIXED WITHOUT RECOVERY.'
     8227                                     TEXTCS   ;
     8228         01 0319C                   '3. NOW CARD LOAD WONT MOVE MAGTAPE.'
     8229                                     TEXTCS   ;
     8230         01 031A5                   '4. BEGIN INTERRUPTABILITY ON 56TH PASS.'
     8231                                     TEXTCS   ;
     8232         01 031AF                   '5. ADDED "DEV-NOT-AVAILABLE" MESSAGE TO J-LINE.'
     8233                                     TEXTCS   ;
     8234         01 031BB                   '6. FUNCTIONALLY TEST UNSNAPPABLE MODULES.'
     8235                                     TEXTCS   ;
     8236         01 031C6                   '7. DELETED CNT PULSE & CNT 4 ZERO FROM PROG.'
     8237                                     TEXTCS   ;
     8238         01 031D2                   '8. MODIFIED TAPE HANDLER TO REW CORRECT # MODS.'
     8239                                     TEXTCS   ;
     8240         01 031DE                   '9.  MOVED SHIFT FLOATING MODULES TO FLOAT.'
     8241                                     TEXTCS   ;
     8242         01 031E9                    '10. CORRECTED CB AND CE CONTROL IN K-LINE.'
     8243         01 031F4                    TEXTCS   'REVISION *A01'
     8244                                     TEXTCS   ;
     8245         01 031F8                   '1.  FIX SO=3 TO NOT CAUSE SNAPPING.'
     8246                                     TEXTCS   ;
     8247         01 03201                   '2.  RESET COUNTER INTERRUPTS ON ANY RECOVERY.'
     8248                                     TEXTCS   ;
     8249         01 0320D                   '3. FIX AMPERSAND LOOPING PROBLEM.'
     8250                                     TEXTCS   ;
     8251         01 03216                   '4. FIX CLOCK MARGIN SO THAT IT IS PROPERLY'
     8252                                     TEXTCS   ;
     8253         01 03221                      'CONTROLLED BY SELECTED PARAMETER.'
     8254                                     TEXTCS   ;
     8255         01 0322A                   '5. FIX ERROR REPORT SO THAT IT DISPLAYS THE'
     8256                                     TEXTCS   ;
     8257         01 03235                      'CORRECT FAILING ITEM.'
     8258                                     TEXTCS   ;
     8259         01 0323B                   '6. FIX SENSE SWITCH EXPLANATIONS.'
     8260                                     TEXTCS   ;
     8261         01 03244                   '7. FIX REGISTER POINTER MODULES.'
     8262                            *
     8263         01 030D1           ENDADDR  END      GUIDE             GO TO GUIDE

  CONTROL SECTION SUMMARY: 01 0324D   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   00:01 JUN 21,'83    SIGMA 8/9 CPU DIAG FLOAT 706135-11/51A05  6-20-73                     PAGE   12
A  A                904-COM
   ADR:MSK         1215/AND     1231/AND     1248/AND     1273/AND     2179/AND     2535/AND     3952-DATA
   ADV:PTR         1151/BAL     1787-EQU
   ALPHATXT         832/GEN     3782-TEXT
   AMP:BUF         3628/STW     3630/STW     3633/STW     3635/STW     3637/STW     3639/STW     3641/STW
      3643/STW     3645/STW     3648/STW     3650/STW     3652/STW     3655/STW     3657/STW     3659/STW
      3660/STW     3664/STW     3666/STW     3668/STB     3669/#PRINT  3682-EQU
   AMP:HDR         3624/CI      3626/#PRINT  3670/LI      3689-TEXTCS
   AMPER%EXPL      3621/LW      4440-Z
   ASTR:MSK        2125/AW      2131-DATA
   ASTRSK          2652/LW      3791-DATA
   AUTO:DL         1140/LI      1155/LI      1316/LI      1700-DATA
   AUTO:DLE        1155/LI      1157/LW      1714-DATA
   AUTOTEST        1138-EQU     1152/B       1904/B       1936/B       3293/J       3294/I       4533/B
      4548/B
   AVL:MEM         2777/STW     2800/LW      3004-DATA
   BACKUP          2874/BCS     2877-EOR
   BACK12          2495/BCS     2734/BCR     2739-LW
   BAD:PAR1        3559/BCR     3561/BG      3696-LW
   BAD:PAR2        3565/BCR     3568/BG      3698-LW
   BALNORM         2056/BCR     2062-BAL
   BIT:MSK         2632/LW      2726/LW      2808/STW     3014/J       3017/J       3089/STW     8187-EQU
   BM:FILL         2807/LW      2813-DATA
   BRANCH           970-XPSD    1242/LW      1347/LW
   BYPASS           989/BCS     1110-RD
   CA               680/SET      737-EQU
   CARD:BUF        3048/LB      3053/LW      3061/#ETHCON 3082/LW      3085/#ETHCON 3088/#ETHCON 3932-EQU
      3936/J
   CARD:CON        1661/BCS     3020-EQU
   CARD:SW         1064/STW     1502/STW     3029/LW      3032/STW     3939-DATA
   CARDADR         3041/SIO*    3042/TIO*    3923-DATA    4517/STW
   CARDIOCD        3040/LI      3936-J
   CB               680/SET      738-EQU
   CB:C            3357/D       3496-EQU
   CC               680/SET      739-EQU
   CD               680/SET      740-EQU
   CE               680/SET      741-EQU
   CE:C            3358/D       3524-EQU
   CE:PTR          1102/STW     1491/CW      1527/CW      1529/LW      2441/CW      2443/LW      3526/STW
      3531/STW     3928-DATA
   CHECK5          2181/BE      2183/BE      2198-LW
   CI:C            3151/D       3243-EQU
   CI:CNT          1061/STW     1112/STW     1192/STW     1352/LW      1415-DATA    1867/STW     3251/STW
   CI:PROC         1364/STW     1952/XPSD    1980-DATA    1984/LPSD    2143/LW      2147/#HTECON
   CI:SAV          1083/STW     1387/LW      1851/LW      1866/LW      3255/STW     3260-DATA    3460/STW
      3480/STW
   CICOUNT         1362/STW     1953/MTW     1954-DATA
   CIMTW           1862/LW      1953-MTW
   CIXPSD          1855/LW      1952-XPSD
   CK:ADV          2455/BAL     2489/BAL     2513/BAL     2668-EQU     2710/BAL     2745/BAL
   CK:BIAS         1063/STW     1577/LW      2451/LW      3500/STW     3513/STW     3913-DATA
   CK:CTR          2450/STW     2509/CW      2614/LW      2631/LW      2669/LW      2671/STW     2681/STW
      2706/CW      2725/LW      2739/LW      3787-DATA
   CK:LIMIT        1101/LW      2786/STW     3005-DATA    3525/LW
   CK:PTR          1440/STW     1453/LW      1490/LW      1494/STW     1515/LW      2444/STW     2508/LW
      2705/LW      2825/LW      3914-DATA
   CK:SAV          1107/STW     1108/STW     1109/STW     2434/STW     2741/CW      2750/STW     3918-EQU
   CLK:MSK         2689/AND     2691/AND     2722-DATA
   CLR:AUTO        1139/BAL     1154-EQU     1159/BIR
   CLR:DCB         2604/BAL     2657-EQU
   CLR:SNP         1798/BAL     2800-LW      3033/BAL
   CM:C            3149/D       3191-EQU
   CM:LO           1328/LW      2010/STW     2038-DATA
   CM:OFF          1094/STW     1391/LW      2006/STW     2037-DATA
   CM:ON           1093/STW     1333/LW      1390/STW     1876/STW     2036-DATA    2111/LW      3206/STW
   CM:SAV          1875/LW      2013/STW     2039-DATA    3205/STW
   CM:TSTA         2117/CW      2128-DATA
   CM:TSTB         2119/CW      2133-DATA
   CM:VALU         3203/LW      3211-EQU
   CMP:AUTO        1148/BAL     1592-EQU     1662/B*
   CMP:ERR         2439/STW     2685/STW     2732/STW     3792-DATA
   CMP:OE          1535/BAL     2462/BAL     2682-EQU
   CMPOE:EX        2683/STW     2721-DATA    2737/B*
   CNT:P3          2224-DATA
   COM:C           3147/D       3170-EQU
   COM:TRAP        1183-EQU
   COMADR          3924-DATA
   CON:WORD        8165-SET
   CONT:FTE        1739/BCR     1750-LC      3024/BCS
   CONVERT         3075-EQU
   CON7            3483/AND     3904-DATA
   CON7F           1600/AND     2095/AND     3740/AND     3762/AND     3905-DATA
   C0               705/GEN      727-EQU
   C1               680/SET      728-EQU     2897/#PRINT
   C2               680/SET      729-EQU     2341/#PRINT
   C3               680/SET      730-EQU
   C4               680/SET      731-EQU
   C5               680/SET      732-EQU
   C6               680/SET      733-EQU
   C7               680/SET      734-EQU
   C8               680/SET      735-EQU
   C9               680/SET      736-EQU
   D                905-COM
   DAT:OUT         2475/BAL     2503/BAL     2540-EQU     2563/B*
   DATA:SAV        3079/STW     3104/LW      3944-DATA
   DBL:WRD         2560/STW     2576/LW      2599-DATA
   DC:BUF          3816-EQU
   DC:DWT1         2401/DATA    2403-J
   DC:DWT1E        2418-I
   DC:OUT          2561/BAL     2566-EQU     2588/STW     2591/BNE*    2596/B*
   DCA              837-ORG
   DCB:DW0         2474/LI      2502/LI      2559/LI      3799-D
   DCB:LST         2610/LW      2637/LW      3879-EQU
   DEAD            1700/DATA    1714/DATA    1716-DATA
   DHEX:CON        1561/BAL     1565/BAL     1580/BAL     2058/BAL     2329/BAL     2371/BAL     2382/BAL
      2609/BAL     2623/BAL     2755-EQU
   DIS:FLG         2473/BAL     2501/BAL     2629-EQU
   DIS:X7          2639-BIR     2645/BCS     2648/BCR     2651/BCR     2653/B
   DISP#1          2607-LW      2613/BIR
   DISP#2          2633-LW      2639/BIR
   DISRGD          2633/LW      3790-DATA
   DL%EXPL         4214-TEXTCS  4465/Z
   DLTA            3555-EQU     4463/E
   DM%EXPL         4185-TEXTCS  4450/Z
   DO:SN           3466/BCR     3476-LI
   DONE            4652/GOTO    4774-PEND
   DR:ERET         3713/BCS     3729-#TYPE   3745/BCR
   DRTA            3711-EQU     3721/B       4458/E
   DUMMY           1204/BAL     2815-EQU
   DWA:DWT1        2401-DATA
   E                906-COM
   EL:MSK1         2089/AND     2247-DATA
   EM              1059/STW     1191/STW     1236/AW      1263/AW      1594/LW      1902/STW     1911/LW
      1918/STW     1951-DATA    3233/STW
   EM:ADV          1897/BCR     1899/BCR     1906-LW
   EM:C            3150/D       3216-EQU
   EM:CNT          1908/LW      1934/STW     1949-DATA
   EM:FLG          1074/STW     1906/LW      1950-DATA    3229/STW
   EM:LIST         1917/LW      1947-DATA
   EM:VALU         3232/LW      3241-DATA
   END:FLG         1065/STW     3034/LW      3057/STW     3940-DATA
   END:SW          3580/STCF    3582/LC      3590/STW     3599/LW      3695-DATA
   ENDADDR         8263-END
   ENDE            8173/GEN     8181-EQU     8183/EQU     8184/EQU     8185/EQU     8186/EQU     8187/EQU
      8188/EQU
   ENDT            3054/CW      3938-TEXT
   EOF             2984-D       4569/LI
   EOT             2852/CW      2996-DATA
   ERMG4           2853/BCS     2973-#TYPE
   ERMSG4          2973/#TYPE   2977-TEXTCS
   ERMSG5          2694/#TYPE   2979-TEXTCS
   ERMSG6          2982-TEXTCS  3051/#TYPE
   ERMSG8          3279/#TYPE   3299-TEXTCS
   ERR:CNT         1054/STW     1729/LW      1731/STW     1895/STW     2099/LW      3444/STW     3908-DATA
   ERR:FLG         1070/STW     1722/STW     1791/STW     3023/LW      3909-DATA
   ERR:MSKT        2930/CW      2960/CW      2970-DATA
   ERR:PASS        1843/BCS     1873/BCR     1877-LI
   ERR:RET         3334/B       3370/BCR     3372/BG      3394/BG      3396/BL      3431-LW      3468/BCS
      3471/BCR     3473/BCR     3475/BCR     3541/BG
   ERR:RETJ        3162/B       3174/B       3197/B       3200/B       3223/B       3226/B       3249/B
      3266/B       3302-LW
   ERR:TAPE        2936/#TYPE   2966/#TYPE   2971-TEXTC
   ESM:CI          2143-LW      2171/DATA    3651/BAL
   ESM:CM          2111-LW      2168/DATA    3644/BAL
   ESM:EL          2081-EQU     2157/DATA    2322/BAL     3629/BAL
   ESM:EM          2140-LW      2162/DATA
   ESM:ERRS        2099-LW      2160/DATA    3636/BAL
   ESM:FAIL        2164/DATA    2174-LB
   ESM:FAIL1       2165/DATA    2178-LB
   ESM:HEDR        1752/LI      1755/#PRINT  1767/LI      2072-TEXTCS
   ESM:MNEM        2092-LI      2163/DATA    2324/BAL     3642/BAL
   ESM:MOD         2075-LW      2156/DATA    2320/BAL     3627/BAL
   ESM:NULL        2220-LW      3294/I
   ESM:PASS        2105-LW      2161/DATA    3638/BAL
   ETM2:ADR        1270/EOR     1293-DATA
   ETP4:ADR        1267/EOR     1292-DATA
   EX:TRP0         1249/CW      1283-DATA
   EX:TRP5         1253/CW      1284-DATA
   EXIT:DL         3605-LW
   EXIT:EM         1907/BCS     1910/BCS     1931-LI
   EXIT:EXU        1298/STW     1398/B*      1400-DATA
   EXIT:MAR        2012-EOR
   EXP:TRAP         946/LC       948-DATA    1222/LI      1225/LI      1268/STW     1271/STW     1283/DATA
      1284/DATA    1285/XPSD    1286/XPSD    1287/XPSD    1292/DATA    1293/DATA    5763/K       5773/K
      5931/K       5939/K       5951/K       5979/K       5987/K       5995/K       6003/K       6435/K
      6572/K       6580/K       7686/K       7754/K       7798/K       7810/K
   EXT:ERR         1639/BCR     1642/BCS     1645/BCS     1648/BCR     1656-BAL
   EXTRAP00        1255/LW      1285-XPSD
   EXTRAP40        1257/LW      1286-XPSD
   EXTRAP46        1251/LW      1287-XPSD
   EXU:AUTO        1146/BAL     1297-EQU
   F                915-COM
   FAIL:ID         2175/LW      2206-DATA
   FAL01           5840-MODULE
   FAL02           5852-MODULE
   FAL03           5864-MODULE
   FAL04           5876-MODULE
   FAL05           5888-MODULE
   FAL06           5892-MODULE
   FAL07           5904-MODULE
   FAL08           5916-MODULE
   FAL09           5928-MODULE
   FAL10           5936-MODULE
   FAL11           5944-MODULE
   FAL12           5948-MODULE
   FAL13           5952-MODULE
   FAL14           5960-MODULE
   FAL15           5968-MODULE
   FAL16           5976-MODULE
   FAL17           5984-MODULE
   FAL18           5992-MODULE
   FAL19           6000-MODULE
   FAL20           6015-MODULE
   FAL21           6024-MODULE
   FAL22           6039-MODULE
   FAL23           6049-MODULE
   FAL24           6059-MODULE
   FAL25           6071-MODULE
   FAL26           6080-MODULE
   FAL27           6089-MODULE
   FAL28           6099-MODULE
   FAL29           6109-MODULE
   FAL30           6118-MODULE
   FAL31           6128-MODULE
   FAL32           6137-MODULE
   FAL33           6146-MODULE
   FAL34           6154-MODULE
   FAL35           6162-MODULE
   FAL36           6173-MODULE
   FAL37           6182-MODULE
   FAL38           6192-MODULE
   FAL39           6202-MODULE
   FAL40           6211-MODULE
   FAL41           6220-MODULE
   FAL42           6229-MODULE
   FAL43           6238-MODULE
   FAL44           6247-MODULE
   FAL45           6256-MODULE
   FAL46           6266-MODULE
   FAL47           6275-MODULE
   FAL48           6284-MODULE
   FAL49           6293-MODULE
   FAL50           6302-MODULE
   FAL51           6313-MODULE
   FAL52           6324-MODULE
   FAL53           6333-MODULE
   FAL54           6342-MODULE
   FAL55           6350-MODULE
   FAS01           5339-MODULE
   FAS02           5343-MODULE
   FAS03           5349-MODULE
   FAS04           5357-MODULE
   FAS05           5365-MODULE
   FAS06           5373-MODULE
   FAS07           5381-MODULE
   FAS08           5389-MODULE
   FAS09           5397-MODULE
   FAS10           5405-MODULE
   FAS11           5413-MODULE
   FAS12           5421-MODULE
   FAS13           5429-MODULE
   FAS14           5437-MODULE
   FAS15           5445-MODULE
   FAS15A          5461-MODULE
   FAS15B          5453-MODULE
   FAS16           5469-MODULE
   FAS17           5477-MODULE
   FAS18           5485-MODULE
   FAS19           5493-MODULE
   FAS20           5501-MODULE
   FAS21           5509-MODULE
   FAS22           5517-MODULE
   FAS23           5525-MODULE
   FAS24           5533-MODULE
   FAS25           5541-MODULE
   FAS26           5549-MODULE
   FAS27           5557-MODULE
   FAS28           5565-MODULE
   FAS29           5573-MODULE
   FAS30           5581-MODULE
   FAS31           5589-MODULE
   FAS32           5597-MODULE
   FAS33           5605-MODULE
   FAS34           5613-MODULE
   FAS35           5621-MODULE
   FAS36           5629-MODULE
   FAS37           5637-MODULE
   FAS38           5645-MODULE
   FAS39           5653-MODULE
   FAS40           5661-MODULE
   FAS41           5669-MODULE
   FAS42           5677-MODULE
   FAS43           5685-MODULE
   FAS44           5695-MODULE
   FAS45           5703-MODULE
   FAS46           5711-MODULE
   FAS47           5718-MODULE
   FAS48           5725-MODULE
   FAS49           5733-MODULE
   FAS50           5743-MODULE
   FAS51           5751-MODULE
   FAS52           5760-MODULE
   FAS53           5770-MODULE
   FAS54           5780-MODULE
   FAS55           5788-MODULE
   FAS56           5798-MODULE
   FAS57           5808-MODULE
   FAS58           5818-MODULE
   FAS59           5827-MODULE
   FAS60           5832-MODULE
   FDL01           7691-MODULE
   FDL02           7703-MODULE
   FDL03           7715-MODULE
   FDL04           7727-MODULE
   FDL05           7739-MODULE
   FDL06           7751-MODULE
   FDL07           7761-MODULE
   FDL08           7773-MODULE
   FDL09           7783-MODULE
   FDL10           7795-MODULE
   FDL11           7807-MODULE
   FDL12           7819-MODULE
   FDL13           7827-MODULE
   FDL14           7839-MODULE
   FDL15           7851-MODULE
   FDL16           7863-MODULE
   FDL17           7875-MODULE
   FDL18           7887-MODULE
   FDL19           7899-MODULE
   FDL20           7911-MODULE
   FDL21           7923-MODULE
   FDL22           7935-MODULE
   FDL23           7947-MODULE
   FDL24           7959-MODULE
   FDL25           7971-MODULE
   FDL26           7983-MODULE
   FDL27           7995-MODULE
   FDL28           8007-MODULE
   FDL29           8019-MODULE
   FDL30           8031-MODULE
   FDL31           8043-MODULE
   FDL32           8055-MODULE
   FDL33           8067-MODULE
   FDL34           8079-MODULE
   FDL35           8091-MODULE
   FDL36           8103-MODULE
   FDL37           8115-MODULE
   FDL38           8127-MODULE
   FDL39           8139-MODULE
   FDL40           8151-MODULE
   FDS01           7478-MODULE
   FDS02           7486-MODULE
   FDS03           7494-MODULE
   FDS04           7502-MODULE
   FDS05           7510-MODULE
   FDS06           7518-MODULE
   FDS07           7526-MODULE
   FDS08           7534-MODULE
   FDS09           7542-MODULE
   FDS10           7550-MODULE
   FDS11           7558-MODULE
   FDS12           7570-MODULE
   FDS13           7582-MODULE
   FDS14           7594-MODULE
   FDS15           7606-MODULE
   FDS16           7618-MODULE
   FDS17           7630-MODULE
   FDS18           7642-MODULE
   FDS19           7654-MODULE
   FDS20           7666-MODULE
   FDS21           7678-MODULE
   FDS22           7683-MODULE
   FIFTEEN         3900-DATA
   FILL:MSK        1208/AND     1281-DATA
   FILLER          1209/EOR     1282-DATA
   FLAG:MSK        1261/AND     2243-DATA
   FLAG7           3794-DATA
   FLG126          1534/STW     1544/STW     2733/LW      2736/STW     3793-DATA
   FML01           6909-MODULE
   FML02           6921-MODULE
   FML03           6933-MODULE
   FML04           6945-MODULE
   FML05           6957-MODULE
   FML06           6969-MODULE
   FML07           6981-MODULE
   FML08           6993-MODULE
   FML09           7005-MODULE
   FML10           7017-MODULE
   FML11           7029-MODULE
   FML12           7041-MODULE
   FML13           7053-MODULE
   FML14           7065-MODULE
   FML15           7077-MODULE
   FML16           7089-MODULE
   FML17           7101-MODULE
   FML18           7113-MODULE
   FML19           7125-MODULE
   FML20           7137-MODULE
   FML21           7149-MODULE
   FML22           7161-MODULE
   FML23           7173-MODULE
   FML24           7185-MODULE
   FML25           7197-MODULE
   FML26           7209-MODULE
   FML27           7221-MODULE
   FML28           7233-MODULE
   FML29           7245-MODULE
   FML30           7257-MODULE
   FML31           7269-MODULE
   FML32           7281-MODULE
   FML33           7293-MODULE
   FML34           7305-MODULE
   FML35           7317-MODULE
   FML36           7329-MODULE
   FML37           7341-MODULE
   FML38           7353-MODULE
   FML39           7365-MODULE
   FML40           7377-MODULE
   FML41           7392-MODULE
   FML42           7399-MODULE
   FML43           7406-MODULE
   FML44           7413-MODULE
   FML45           7420-MODULE
   FML46           7427-MODULE
   FML47           7434-MODULE
   FML48           7441-MODULE
   FML49           7448-MODULE
   FML50           7454-MODULE
   FML51           7466-MODULE
   FMS01           6529-MODULE
   FMS02           6537-MODULE
   FMS03           6545-MODULE
   FMS04           6553-MODULE
   FMS05           6561-MODULE
   FMS06           6569-MODULE
   FMS07           6577-MODULE
   FMS08           6585-MODULE
   FMS09           6593-MODULE
   FMS10           6601-MODULE
   FMS11           6611-MODULE
   FMS12           6619-MODULE
   FMS13           6627-MODULE
   FMS14           6635-MODULE
   FMS15           6643-MODULE
   FMS16           6651-MODULE
   FMS17           6659-MODULE
   FMS18           6667-MODULE
   FMS19           6675-MODULE
   FMS20           6683-MODULE
   FMS21           6691-MODULE
   FMS22           6701-MODULE
   FMS23           6711-MODULE
   FMS24           6721-MODULE
   FMS25           6731-MODULE
   FMS26           6741-MODULE
   FMS27           6751-MODULE
   FMS28           6761-MODULE
   FMS29           6771-MODULE
   FMS30           6781-MODULE
   FMS31           6791-MODULE
   FMS32           6801-MODULE
   FMS33           6811-MODULE
   FMS34           6821-MODULE
   FMS35           6831-MODULE
   FMS36           6841-MODULE
   FMS37           6851-MODULE
   FMS38           6861-MODULE
   FMS39           6871-MODULE
   FMS40           6881-MODULE
   FMS41           6895-MODULE
   FMS42           6903-MODULE
   FNC:RET         1532/LI      1540-LW
   FORM:ESM        1763/BAL     2052-EQU     2067/B       2070/B*
   FOUR            3899-DATA
   FSL01           6448-MODULE
   FSL02           6460-MODULE
   FSL03           6474-MODULE
   FSL04           6482-MODULE
   FSL05           6490-MODULE
   FSL06           6498-MODULE
   FSL07           6506-MODULE
   FSL08           6513-MODULE
   FSL09           6521-MODULE
   FSS01           6362-MODULE
   FSS02           6372-MODULE
   FSS03           6380-MODULE
   FSS04           6387-MODULE
   FSS05           6395-MODULE
   FSS06           6403-MODULE
   FSS07           6411-MODULE
   FSS08           6419-MODULE
   FSS09           6424-MODULE
   FSS10           6432-MODULE
   FSS11           6440-MODULE
   FT:CMP1         1633-LW      1657/BIR
   FT:ERR          1627/BAL     1656/BAL     1719-EQU     1773/BCS*    1782/B*
   FTE:SS3         1751/BCS     1772-LC
   FTERRMSG        1784/Z       4338-TEXTCS
   FTERSTAT        1769/LW      1784-Z
   FTFL            1053/STW     1418/LW      1426/STW     1501/STW     3109/LW      3340/STW     3456/STW
      3498/STW     3910-DATA
   F0               680/SET      743-EQU
   F1               680/SET      744-EQU     3570/#PRINT
   G                907-COM
   GEN:FLG         1069/STW     1202/LW      1323/LW      1338/LW      1503/LW      1660/LW      1732/LW
      1777/LW      1796/AW      1820/LW      2244-DATA    4502/STW     4564/STW
   GIDLE           3344-LCF
   GO              1117/DATA    1119-DATA
   GO:SNAP         3030/BCS     3035/BCS     3058/B       3072/B       3107-EQU
   GUIDE           8170-STW     8263/END
   H                908-COM
   HALT            1774/#TYPE   1785-TEXTCS
   HDR:ADR         2463/LW      2542/LW      3896-EQU
   HDR:OUT         2464/BAL     2524-EQU     2537/B*      2545/BAL
   HFF             3437/AND     3449-DATA    3462/AND
   HFFFF           2816/AND     2901-DATA
   H17             2040-DATA
   I                909-COM
   IA              1351/STW     1691/DATA    3953-DATA    5905/FAL*
   IAM32           1125-DATA
   IAP             1126-DATA    5893/FAL*
   IC:MSG          3933-TEXTCS  4499/#TYPE
   ID:EL           2203/LW      2216-TEXT
   ID:EXT          1633/LW      1694-EQU
   ID:WRT          2818/LI      3000-D       4522/LI
   IDX:EQ          2227-DATA
   IDX:MSK         2226-DATA
   IDX:SAV         3077/STW     3102/LW      3943-DATA
   IDX:TAPE        2836-EQU     2864/BAL
   IISET:UP        1301/B       1320-LI
   IN:0X34         2264-EQU     2355/LI
   IN:1X78         2269-EQU     2357/LI
   INC:RET         1217/BE      1234-AI
   INI:EXIT         987/STW     1116/BAL*    1122-DATA
   INIFLG           993/LW      1008/LW      1100/STW     1127-DATA
   INITIAL          853/DATA     986-EQU
   IO:PTR          2287-EQU     2366/LW
   IO34IDX         2236-DATA    2356/STW     2369/LW*     2391/STW
   IO78IDX         2237-DATA    2358/STW     2380/LW*     2393/STW
   IX03            5329-MODULE
   J                922-CNAME
   J%EXPL          4220-TEXTCS  4470/Z
   JH              3117-TEXTCS  3121/DATA
   JINIT           1041/STW     1045/STW     1047/LB      1048/LB      1087/LW      1188/LW
      3119-TEXTCS  3270/STW
   JL:EXIT         3124/STW     3143-DATA    3304/B*
   JOUT            1049/STB     1088/STW     1189/STW     1930/STW     1993/LW      2007/STB     2116/LW
      2140/LW      2150/LW      3118-TEXTCS  3120/DATA    3129/LW      3165/STW     3177/STW     3186/STW
      3208/STW     3235/STW     3257/STW     3269/STW     3289/STW     3640/LW
   JP:LST          3132/LW*     3155-DATA    3302/LW*
   JRTA            3123-EQU     4468/E
   K                910-COM
   K%EXPL          4264-TEXTCS  4475/Z
   KH              3308-TEXTCS  3313/DATA
   KINIT           1024/STW     1032/STW     1034/LB      1035/LB      3310-TEXTCS
   KL:EXIT         3315/STW     3433/B*      3550-DATA
   KL:FLG          1966/LW      1990-DATA    3336/STW     3339/STW     3576/STW     3589/STW
   KOUT            1036/STB     1813/STW     1835/LW      1838/STW     2332/LW      3309-TEXTCS  3312/DATA
      3321/LW      3377/STW     3379/STW     3399/STW     3400/LW      3402/STW     3420/STW     3422/LW
      3424/STW     3446/STW     3493/STW     3517/STW     3535/STW     3547/STW     3646/LW      3649/LW
   KP:LST          3324/LW      3361-DATA    3431/LW*
   KRTA            3314-EQU     4473/E
   L                911-COM
   LAST:MOD         840/DATA    1018/LI      3393/CI      8163-SET
   LASTMODULE      3744/CI      4630/DO      8166-EQU
   LC:C            3355/D       3435-EQU
   LC:EXIT         1434/STW     1482/LW      1487/STW     3919-DATA
   LC:FLG          1433/STW     1466/STW     1484/LW      3912-DATA
   LCNT            1062/STW     1880/LW      1884/AW      3440/STW     3450-DATA
   LFT:PTR         2254-EQU     2364/LW
   LINEADR         2606/LW      3884-EQU
   LINE0ADR        3881-DATA
   LINE1ADR        3882-DATA
   LINE2ADR        3883-DATA
   LIST             842/DATA    1089/LI      1958/LI      3737/LI      4539/LI      4586-RES
   LISTEXT         1322/STW     1349/STW     1636/LW      1682-EQU
   LISTPTR          842-DATA    1090/STW     1167/LB*     1170/LW*     1195/LW*     1214/LW*     1230/LW*
      1247/LW*     1321/LW*     1516/LW*     1618/LB*     1623/LW*     1814/LB*     1815/AW      1816/STW
      1959/STW     2075/LW*     2083/LB*     2093/LW*     2328/LW*     2359/LB*     2370/LW*     2381/LW*
      2826/LW*     3571/LW      3600/LB*     3601/AW      3602/STW     3606/STW     4540/STW
   LISTSAV         3572/STW     3605/LW      3692-DATA
   LO:MSK          2009/AW      2035-DATA
   LOADPNT         2909/AND     2995-DATA
   LOC              974/DATA    1029/LI      1216/CI      1218/CI      1232/CI      1274/AI      1304/GEN
      1329/LB      1348/STW     1374/B       1375/EXU     1376/B       1378-DATA    1599/LB      1606/LB
      1612/ANLZ    1643/LB      1666/D       1667/D       1692/DATA    1701/DATA    2158/GEN
      3631/#HTECON 3929/GEN     3930/GEN     3951/DATA    4779/K       4780/K       4785/K       4786/K
      4791/K       4792/K       4797/K       4798/K       4803/K       4804/K       4809/K       4810/K
      4815/K       4816/K       4821/K       4822/K       4827/K       4828/K       4833/K       4834/K
      4839/K       4840/K       4845/K       4846/K       4851/K       4852/K       4857/K       4858/K
      4863/K       4864/K       4869/DATA    4869/DATA    4873/DATA    4874/K       4882/DATA    4883/K
      4888/DATA    4889/K       4893/DATA    4894/K       4899/DATA    4900/K       4904/DATA    4905/K
      4909/DATA    4910/K       4914/DATA    4915/K       4919/DATA    4920/K       4924/DATA    4925/K
      4929/DATA    4930/K       4934/DATA    4935/K       4939/DATA    4940/K       4944/DATA    4945/K
      4949/DATA    4950/K       4954/DATA    4955/K       4959/DATA    4960/K       4966/DATA    4967/K
      4971/DATA    4972/K       4976/DATA    4977/K       4981/DATA    4982/K       4986/DATA    4987/K
      4991/DATA    4992/K       4996/DATA    4997/K       5001/DATA    5002/K       5006/DATA    5007/K
      5011/DATA    5012/K       5016/DATA    5017/K       5021/DATA    5022/K       5026/DATA    5027/K
      5031/DATA    5032/K       5036/DATA    5037/K       5041/DATA    5042/K       5048/K       5049/K
      5054/K       5055/K       5066/K       5067/K       5078/K       5079/K       5090/K       5091/K
      5102/K       5103/K       5114/K       5115/K       5126/K       5127/K       5138/K       5139/K
      5150/K       5151/K       5162/K       5163/K       5174/K       5175/K       5186/K       5187/K
      5198/K       5199/K       5210/K       5211/K       5222/K       5223/K       5234/K       5235/K
      5246/K       5247/K       5258/K       5259/K       5270/K       5271/K       5282/K       5283/K
      5294/K       5295/K       5306/K       5307/K       5318/K       5319/K       5331/K       5332/K
      5341/K       5342/K       5345/K       5346/K       5351/K       5352/K       5359/K       5360/K
      5367/K       5368/K       5375/K       5376/K       5383/K       5384/K       5391/K       5392/K
      5399/K       5400/K       5407/K       5408/K       5415/K       5416/K       5423/K       5424/K
      5431/K       5432/K       5439/K       5440/K       5447/K       5448/K       5455/K       5456/K
      5463/K       5464/K       5471/K       5472/K       5479/K       5480/K       5487/K       5488/K
      5495/K       5496/K       5503/K       5504/K       5511/K       5512/K       5519/K       5520/K
      5527/K       5528/K       5535/K       5536/K       5543/K       5544/K       5551/K       5552/K
      5559/K       5560/K       5567/K       5568/K       5575/K       5576/K       5583/K       5584/K
      5591/K       5592/K       5599/K       5600/K       5607/K       5608/K       5615/K       5616/K
      5623/K       5624/K       5631/K       5632/K       5639/K       5640/K       5647/K       5648/K
      5655/K       5656/K       5663/K       5664/K       5671/K       5672/K       5679/K       5680/K
      5687/K       5688/K       5697/DATA    5698/K       5705/DATA    5706/K       5713/DATA    5714/K
      5720/DATA    5721/K       5727/DATA    5728/K       5735/DATA    5736/K       5745/K       5746/K
      5753/K       5754/K       5762/DATA    5772/DATA    5782/DATA    5783/K       5790/DATA    5791/K
      5800/DATA    5801/K       5810/DATA    5811/K       5820/DATA    5821/K       5829/DATA    5830/K
      5834/K       5835/K       5842/K       5843/K       5854/K       5855/K       5866/K       5867/K
      5878/K       5879/K       5890/K       5891/K       5894/K       5895/K       5906/K       5907/K
      5918/K       5919/K       5930/K       5938/K       5946/K       5947/K       5950/K       5954/K
      5955/K       5962/K       5963/K       5970/K       5971/K       5978/K       5986/K       5994/K
      6002/K       6017/DATA    6018/K       6026/DATA    6027/K       6041/DATA    6042/K       6051/DATA
      6052/K       6061/DATA    6062/K       6073/DATA    6074/K       6082/DATA    6083/K       6091/DATA
      6092/K       6101/DATA    6102/K       6111/DATA    6112/K       6120/DATA    6121/K       6130/DATA
      6131/K       6139/DATA    6140/K       6148/DATA    6149/K       6156/DATA    6157/K       6164/DATA
      6165/K       6175/DATA    6176/K       6184/DATA    6185/K       6194/DATA    6195/K       6204/DATA
      6205/K       6213/DATA    6214/K       6222/DATA    6223/K       6231/DATA    6232/K       6240/DATA
      6241/K       6249/DATA    6250/K       6258/DATA    6259/K       6268/DATA    6269/K       6277/DATA
      6278/K       6286/DATA    6287/K       6295/DATA    6296/K       6304/DATA    6305/K       6315/DATA
      6316/K       6326/DATA    6327/K       6335/DATA    6336/K       6344/DATA    6345/K       6352/K
      6353/K       6364/K       6365/K       6374/DATA    6375/K       6382/DATA    6383/K       6389/DATA
      6390/K       6397/DATA    6398/K       6405/DATA    6406/K       6413/DATA    6414/K       6421/K
      6422/K       6426/K       6427/K       6434/K       6442/K       6443/K       6450/K       6451/K
      6462/K       6463/K       6476/DATA    6477/K       6484/DATA    6485/K       6492/K       6493/K
      6500/K       6501/K       6508/DATA    6509/K       6515/DATA    6516/K       6523/DATA    6524/K
      6531/K       6532/K       6539/K       6540/K       6547/K       6548/K       6555/K       6556/K
      6563/K       6564/K       6571/K       6579/K       6587/K       6588/K       6595/K       6596/K
      6603/K       6604/K       6613/K       6614/K       6621/K       6622/K       6629/K       6630/K
      6637/K       6638/K       6645/K       6646/K       6653/K       6654/K       6661/K       6662/K
      6669/K       6670/K       6677/K       6678/K       6685/K       6686/K       6693/K       6694/K
      6703/K       6704/K       6713/K       6714/K       6723/K       6724/K       6733/K       6734/K
      6743/K       6744/K       6753/K       6754/K       6763/K       6764/K       6773/K       6774/K
      6783/K       6784/K       6793/K       6794/K       6803/K       6804/K       6813/K       6814/K
      6823/K       6824/K       6833/K       6834/K       6843/K       6844/K       6853/K       6854/K
      6863/K       6864/K       6873/K       6874/K       6883/K       6884/K       6897/DATA    6898/K
      6905/K       6906/K       6911/K       6912/K       6923/K       6924/K       6935/K       6936/K
      6947/K       6948/K       6959/K       6960/K       6971/K       6972/K       6983/K       6984/K
      6995/K       6996/K       7007/K       7008/K       7019/K       7020/K       7031/K       7032/K
      7043/K       7044/K       7055/K       7056/K       7067/K       7068/K       7079/K       7080/K
      7091/K       7092/K       7103/K       7104/K       7115/K       7116/K       7127/K       7128/K
      7139/K       7140/K       7151/K       7152/K       7163/K       7164/K       7175/K       7176/K
      7187/K       7188/K       7199/K       7200/K       7211/K       7212/K       7223/K       7224/K
      7235/K       7236/K       7247/K       7248/K       7259/K       7260/K       7271/K       7272/K
      7283/K       7284/K       7295/K       7296/K       7307/K       7308/K       7319/K       7320/K
      7331/K       7332/K       7343/K       7344/K       7355/K       7356/K       7367/K       7368/K
      7379/K       7380/K       7394/DATA    7395/GEN     7401/DATA    7402/GEN     7408/DATA    7409/GEN
      7415/DATA    7416/GEN     7422/DATA    7423/GEN     7429/DATA    7430/GEN     7436/DATA    7437/GEN
      7443/DATA    7444/GEN     7450/DATA    7451/GEN     7456/K       7457/K       7468/K       7469/K
      7480/K       7481/K       7488/K       7489/K       7496/K       7497/K       7504/K       7505/K
      7512/K       7513/K       7520/K       7521/K       7528/K       7529/K       7536/K       7537/K
      7544/K       7545/K       7552/K       7553/K       7560/K       7561/K       7572/K       7573/K
      7584/K       7585/K       7596/K       7597/K       7608/K       7609/K       7620/K       7621/K
      7632/K       7633/K       7644/K       7645/K       7656/K       7657/K       7668/K       7669/K
      7680/K       7681/K       7685/K       7693/K       7694/K       7705/K       7706/K       7717/K
      7718/K       7729/K       7730/K       7741/K       7742/K       7753/K       7763/K       7764/K
      7775/K       7776/K       7785/K       7786/K       7797/K       7809/K       7821/K       7822/K
      7829/K       7830/K       7841/K       7842/K       7853/K       7854/K       7865/K       7866/K
      7877/K       7878/K       7889/K       7890/K       7901/K       7902/K       7913/K       7914/K
      7925/K       7926/K       7937/K       7938/K       7949/K       7950/K       7961/K       7962/K
      7973/K       7974/K       7985/K       7986/K       7997/K       7998/K       8009/K       8010/K
      8021/K       8022/K       8033/K       8034/K       8045/K       8046/K       8057/K       8058/K
      8069/K       8070/K       8081/K       8082/K       8093/K       8094/K       8105/K       8106/K
      8117/K       8118/K       8129/K       8130/K       8141/K       8142/K       8153/K       8154/K
   LOCADR          1262/EOR     3951-DATA
   LOC1:SW         1213/STW     1220/STW     1243/LW      1294-DATA
   LONG:SNP        3506/LW      3521-B
   LONGPTR         1458/B*      1659/BCS*    1748/B*      2239-DATA
   LOOKFWD         2838/BCR     2843-LI      2856/BCS     4538/BAL
   LS:MSK          1023/AND     1812/AND     2078/AND     2102/AND     2108/AND     2895/AND     3772/AND
      3906-DATA
   LS:MSK2         3907-DATA
   LST:NUM         1019/STW     3371/CW      3382-DATA    3560/CW      3567/CW
   LSTSERVO        1839/BAL     1956-EQU     1965/B       3337/BAL     3587/BAL
   M                913-COM
   MA:PTR          1432/STW     1449/LW      1460/LW      1473/LW      1477/STW     1481/STW     3911-DATA
   MAR:FLG         2016/STW     2029-DATA
   MAR:SET         1060/STW     2002/LB      2003/LW      2021/STB     2025-M
   MAR:TAPE        1006/BAL     1522/BAL     1900/BAL     2861-EQU     2873/BCR     2886/B       2913/B
   MAX:CLR         2772/STW     2776/STW     3003-DATA    4496/LW
   MCR:C           3354/D       3408-EQU     3421/B*      3427/B*
   MCR:NUM          841-DATA    1027/STW     1799/LW      1803/STW     1834/STW     1960/CW      2869/CW
      2872/AW      2890/LW      3062/LW      3374/STW     3404/STW     3418/STW     3426/STW     3573/LW
      3578/STW     3608/STW     4542/STW
   MCR:SAV         3574/STW     3607/LW      3693-DATA
   MEMORY          1125/DATA    1126/DATA    1177/LW      1179/LW      1350/LI      1367/STW     1368/STW
      1646/LW      1650/LW      1672/D       1673/D       1676/D       1685/DATA    1706/DATA    1710/DATA
      3953/DATA    4881/SF*     4892/SF*     5047/SF*     5293/SF*     5317/SF*     5340/FAS     5344/FAS
      5350/FAS     5358/FAS     5366/FAS     5374/FAS     5382/FAS     5390/FAS     5398/FAS     5406/FAS
      5414/FAS     5422/FAS     5430/FAS     5438/FAS     5446/FAS     5454/FAS     5462/FAS     5470/FAS
      5478/FAS     5486/FAS     5494/FAS     5502/FAS     5510/FAS     5518/FAS     5526/FAS     5534/FAS
      5542/FAS     5550/FAS     5558/FAS     5566/FAS     5574/FAS     5582/FAS     5590/FAS     5598/FAS
      5606/FAS     5614/FAS     5622/FAS     5630/FAS     5638/FAS     5646/FAS     5654/FAS     5662/FAS
      5670/FAS     5678/FAS     5686/FAS     5696/FAS     5704/FAS     5712/FAS     5719/FAS     5726/FAS
      5734/FAS     5744/FAS     5752/FAS     5761/FAS     5771/FAS     5781/FAS     5789/FAS     5799/FAS
      5809/FAS     5819/FAS     5828/FAS     5841/FAL     5853/FAL     5865/FAL     5877/FAL     5889/FAL
      5917/FAL     5929/FAL     5937/FAL     5945/FAL     5949/FAL     5953/FAL     5961/FAL     5969/FAL
      5977/FAL     5985/FAL     5993/FAL     6001/FAL     6016/FAL     6025/FAL     6040/FAL     6050/FAL
      6060/FAL     6072/FAL     6081/FAL     6090/FAL     6100/FAL     6110/FAL     6119/FAL     6129/FAL
      6138/FAL     6147/FAL     6155/FAL     6163/FAL     6174/FAL     6183/FAL     6193/FAL     6203/FAL
      6212/FAL     6221/FAL     6230/FAL     6239/FAL     6248/FAL     6257/FAL     6267/FAL     6276/FAL
      6285/FAL     6294/FAL     6303/FAL     6314/FAL     6325/FAL     6334/FAL     6343/FAL     6363/FSS
      6373/FSS     6381/FSS     6388/FSS     6396/FSS     6404/FSS     6412/FSS     6420/FSS     6425/FSS
      6433/FSS     6441/FSS     6449/FSL     6461/FSL     6475/FSL     6483/FSL     6491/FSL     6499/FSL
      6507/FSL     6514/FSL     6522/FSL     6530/FMS     6538/FMS     6546/FMS     6554/FMS     6562/FMS
      6570/FMS     6578/FMS     6586/FMS     6594/FMS     6602/FMS     6612/FMS     6620/FMS     6628/FMS
      6636/FMS     6644/FMS     6652/FMS     6660/FMS     6668/FMS     6676/FMS     6684/FMS     6692/FMS
      6702/FMS     6712/FMS     6722/FMS     6732/FMS     6742/FMS     6752/FMS     6762/FMS     6772/FMS
      6782/FMS     6792/FMS     6802/FMS     6812/FMS     6822/FMS     6832/FMS     6842/FMS     6852/FMS
      6862/FMS     6872/FMS     6882/FMS     6896/FMS     6904/FMS     6910/FML     6922/FML     6934/FML
      6946/FML     6958/FML     6970/FML     6982/FML     6994/FML     7006/FML     7018/FML     7030/FML
      7042/FML     7054/FML     7066/FML     7078/FML     7090/FML     7102/FML     7114/FML     7126/FML
      7138/FML     7150/FML     7162/FML     7174/FML     7186/FML     7198/FML     7210/FML     7222/FML
      7234/FML     7246/FML     7258/FML     7270/FML     7282/FML     7294/FML     7306/FML     7318/FML
      7330/FML     7342/FML     7354/FML     7366/FML     7378/FML     7393/FML     7400/FML     7407/FML
      7414/FML     7421/FML     7428/FML     7435/FML     7442/FML     7449/FML     7467/FML     7479/FDS
      7487/FDS     7495/FDS     7503/FDS     7511/FDS     7519/FDS     7527/FDS     7535/FDS     7543/FDS
      7551/FDS     7559/FDS     7571/FDS     7583/FDS     7595/FDS     7607/FDS     7619/FDS     7631/FDS
      7643/FDS     7655/FDS     7667/FDS     7679/FDS     7684/FDS     7692/FDL     7704/FDL     7716/FDL
      7728/FDL     7740/FDL     7752/FDL     7762/FDL     7774/FDL     7784/FDL     7796/FDL     7808/FDL
      7820/FDL     7828/FDL     7840/FDL     7852/FDL     7864/FDL     7876/FDL     7888/FDL     7900/FDL
      7912/FDL     7924/FDL     7936/FDL     7948/FDL     7960/FDL     7972/FDL     7984/FDL     7996/FDL
      8008/FDL     8020/FDL     8032/FDL     8044/FDL     8056/FDL     8068/FDL     8080/FDL     8092/FDL
      8104/FDL     8116/FDL     8128/FDL     8140/FDL     8152/FDL     8184-EQU
   MI:ADR          1086/HIO*    3275/HIO*    3283/STW     3298-DATA
   MI:C            3154/D       3273-EQU
   MINUS2          1168/AND     1619/AND     2223-DATA
   MNEM:MSG        3729/#TYPE   3732-TEXTC
   MNEM:X2         3726/BCR     3734-LI      3746/B
   MNEMEND         4128-EQU
   MNEMLIST        2096/LW      3725/CW      3998-EQU
   MOD%END         4632-EQU
   MOD:DATA        1537/BAL     2349-EQU     2361/BCS*    2395/BIR     2398/B*      3598/BAL
   MOD:HDR         1536/BAL     2314-EQU     2344/B*      3597/BAL
   MOD:MSG         3065/#TYPE   3114-TEXTCS
   MOD:MSK         2868/AND     3369/AND     3391/AND     3413/AND     3942-DATA
   MOD#CHK         3037/BCS     3060-NOP
   MODLIST1        4591-SET     4605-SET     4605/SET     4686-SET     4739/GEN
   MODLIST2        4593-SET     4607-SET     4607/SET     4692-SET     4745/GEN
   MODLIST3        4595-SET     4609-SET     4609/SET     4698-SET     4751/GEN
   MODLIST4        4597-SET     4611-SET     4611/SET     4704-SET     4757/GEN
   MODLIST5        4599-SET     4613-SET     4613/SET     4708-SET     4761/GEN
   MODT            2249-TEXT    2318/LW
   MODULE          4625-CNAME
   MODULE%         4621-SET     4686/SET     4692/SET     4698/SET     4704/SET     4708/SET     4722-SET
   MODULE:         4623-SET     4657-SET     4659-SET     4659/SET     4739/GEN     4745/GEN     4751/GEN
      4757/GEN     4761/GEN
   MODULE#         4619-SET     4682/DO      4684/DO      4686-SET     4690/DO      4692-SET     4696/DO
      4698-SET     4702/DO      4704-SET     4708-SET     4720-SET     4720/SET     4731-SET     4731/SET
      4737/DO      4739/GEN     4739/GEN     4743/DO      4745/GEN     4745/GEN     4749/DO      4751/GEN
      4751/GEN     4755/DO      4757/GEN     4757/GEN     4761/GEN     4761/GEN     8163/SET     8165/SET
   MODULE@         4601-SET     4615-SET     4615/SET     4636/RES     4640/DO      4642/SET     4644/SET
      4669/DO      4671-SET     4675-SET     4675/SET
   MOV:TAPE        2884/BAL     2885/BDR     2905-EQU     2934/BAL     2964/BAL     4554/BAL
   MOVB            2879/LI      2933/LI      2963/LI      3008-D
   MOVER           1141/BAL     1166-EQU     1173/BDR     1317/BAL
   MOVF            1200/LI      2875/LI      3011-D
   MR%EXPL         4330-TEXTCS  4460/Z
   MS:RTN          2521/B       2704-BIR     2728/BCS
   MSAV            1178/STW     1365/LW      1707/DATA    2273-DATA
   MSAV1           1180/STW     1366/LW      1711/DATA    2274-DATA
   MSB21           3378/AW      3401/AW      3423/AW      3429-DATA    3647/AW
   MSG:C           3145/D       3157-EQU
   MSG:CNT         1760/STB     2068/LB      2155-DATA
   MSG:LST         1758/LI      2156-DATA
   MSG:OK          3160/BCR     3163-STW
   MSGADR          3925-DATA
   MSK:BTM         2549/CW      2727/CW      3985-EQU
   MSK:CM          2008/AND     2033-DATA
   MSK:DATA        3078/LW      3088-#ETHCON 3093/LW      3095/STW     3105/STW
   MSK:IDX         3076/LW      3085-#ETHCON 3090/LW      3092/STW     3097/BIR     3103/STW
   MSK:LST         2584/CW      2592/#TYPE   2635/CW      3570/#PRINT  3961-EQU
   MSK:TST         2703/BCS     2724-EQU
   MSP:C           3353/D       3386-EQU     3405/B*
   MSP:NUM          840-DATA    1020/STW     1793/CW      1801/CW      3330/LW      3397/STW     3416/CW
   MST:C           3352/D       3364-EQU     3380/B*
   MST:INIT        1802/BCS     1819-EQU
   MST:NUM          839-DATA    1026/STW     1792/LW      1833/LW      3331/CW      3375/STW     3395/CW
      3403/LW      3414/CW      3425/LW
   MT:C            3152/D       3262-EQU
   M2LOOP          2366-LW      2394/BIR
   N                914-COM
   NC:FLG          2636/BCR     2643-EQU
   NEG2MSK         2230-DATA
   NEW:CM          1092/AND     2005/AND     2011/AND     2031-DATA    3202/AND
   NEW:HDR         2445-LI      2496/B       2718/BIR
   NEW:MSK         2032-DATA
   NEW:MST         3320/STB     3344/LCF     3367/STW     3383-DATA    3389/STW     3411/STW     3458/STW
   NEXT:MOD        3590-STW     3603/BIR
   NO:CON          2552/B       2559-LI
   NO:GEN          1185/BCR     1197/BCR     1207-LW
   NO:SN           2888-LW      2926/BCR
   NO:SNAP         1463/BAL     1573-EQU     1585/LCF     1586/B*
   NOCI            1850/B       1852/BCR     1854/BCS     1869-LW
   NODEV           3161/#TYPE   3168-TEXTCS
   NORM:SNP        1096/LW      3502/LW      3520-BCR
   NOT:EM2         1596/BCS     1598/BCS     1604/BCS     1615/BCS     1618-LB      1630/B
   NOTAPE           992/BCR      994/BCS     1001/B       1003/BCR     1005/BCR     1008-LW
   NS:MSG          2896/STW     2897/#PRINT  2903-TEXTCS
   NSM             1581/STW     1582/STW     1583/#TYPE   1588-TEXTCS
   NXT:CLK         2700-LI      2711/B
   OB:CNT          3902-DATA
   OB:OUT          2470/BE      2481/BCR     2486/B       2498-EQU
   OB:SW           3795-DATA
   OBS:IDLA        1621/LW      1664-EQU
   OBS:IDLS        1665-EQU
   OBSEXT          1634/LW      1688-EQU
   OE:ADV          2520/BAL     2672-LW      2699/BAL     2730/BAL
   ONE             2199/AND     3898-DATA
   ONES            1923/EOR     2871/EOR     2877/EOR     3182/EOR     3230/EOR     3438/EOR     3581/EOR
      3766/EOR     3926-DATA
   OUT:IDX         2225-DATA
   OUT:MOD         2377/BCS     2387-#PRINT
   OUT:0X34        2278-EQU     2360/CW      2390/LI
   OUT:1X78        2283-EQU     2376/CW      2392/LI
   OUTBUF          1764/#PRINT  2059/STW     2063/STW     2069/STB     2319/STW     2321/STW     2323/STW
      2325/STW     2327/STW     2330/STW     2331/STW     2335/STW     2337/STW     2339/STB
      2341/#PRINT  2352/STW     2363/STW     2365/STW     2367/STW     2368/STW     2372/STW     2373/STW
      2375/STB     2379/STW     2383/STW     2384/STW     2386/STB     2387/#PRINT  3736/STW     3755/STW
      3757/STW     3773/STW     3775/STB     3776/#TYPE   3901-RES
   PAR:ERR         3699/STW     3700/#PRINT  3706-TEXTCS
   PARA:SET        1012-LW
   PAR1:LJ         3715/BCS     3723-LI      3728/BIR
   PASS:CNT        1028/STW     1826/LW      1845/LW      1882/LW      1891/LW      1893/STW     1988-DATA
      2105/LW      3442/STW
   PASS:ERR        1723/STW     1842/LW      1878/STW     2242-DATA
   PASS:LIM        1872/CW      1989-DATA
   PASS:OK         1055/STW     1869/LW      1871/STW     1987-DATA    2015/STW
   PASSES          3903-DATA
   PLINEIN          855/DATA    3130/CW      3158/#ETHCON 3164/LW      3171/#ETHCON 3176/LW
      3181/#ETHCON 3185/LW      3192/#ETHCON 3207/LW      3217/#ETHCON 3234/LW      3244/#ETHCON 3256/LW
      3263/#ETHCON 3268/LW      3274/#ETHCON 3288/LW      3322/CW      3368/#ETHCON 3376/LW
      3390/#ETHCON 3398/LW      3412/#ETHCON 3419/LW      3436/#ETHCON 3445/LW      3461/#ETHCON 3492/LW
      3501/#ETHCON 3516/LW      3527/#ETHCON 3534/LW      3539/#ETHCON 3546/LW      4488-RES
   PRE:LOC         1347-LW
   PRIV:MSK        1266/AND     1269/AND     1291-DATA
   PRNT:MOD        2341-#PRINT
   PRNTR           2571/BNE     2573/BCR     2576-LW
   PROGTEXT        4131-TEXTCS  8172/GEN
   PSW1            1235/LW      1237/STW     1259/LW      1264/STW     1373/LPSD    1702/DATA    3947-PZE
   PSW1SAV         1703/DATA    3949-DATA
   PSW2            1207/LW      1210/STW     1712/DATA    3948-PZE
   PSW2SAV         1713/DATA    3950-DATA
   PTR:ADJ         2506/BE      2518-EQU
   PTR:ADV         1150-EQU     1205/B       1541/BCS     1549/B       2834/B       2889/BCS     2898/B
      2968/B
   RD:SW           1066/STW     3036/LW      3039/STW     3074/STW     3941-DATA
   READ            1201/BAL     2865/BAL     2915-EQU     2935/BIR     2938/B
   READ:SN         2847/LI      2990-D
   READSTAT        4438/E       4580-EQU
   REG:MSK         2228-DATA
   REG:SP          2229-DATA
   REGN            2233-EQU
   REPORT          1470/BAL     1559-EQU
   RES:SAV         1384/STW     1393/STW     1403/STW     1405/STW     1608/AI      1611/LW      1647/CW
      1651/LW      1670/D       1671/D       1674/D       1680/D       1689/DATA    1690/DATA    2186/AI
      8183-EQU
   RESTART         3346/DATA    3349-DATA
   RESTORE         3084/BCR     3102-LW
   RETURN           947/XPSD     952/XPSD     953/XPSD     954/XPSD     955/XPSD     956/XPSD     957/XPSD
       958/XPSD     959/XPSD     960/XPSD     961/XPSD     962/XPSD     963/XPSD     964/XPSD     965/XPSD
       966/XPSD     967/XPSD     968/XPSD     970/XPSD     972-DATA    1377/BCS     1379/XPSD    1610/LI
      1614/CI      1668/D       1669/D       1678/D
   REWT            2986-D
   RHT:PTR         2259-EQU     2378/LW
   RM%EXPL         4188-TEXTCS  4455/Z
   RSAV            1175/STW     1369/LW      1705/DATA    2271-DATA
   RSAV1           1176/STW     1370/LW      1709/DATA    2272-DATA
   S%EXPL          4194-EQU     4445/Z
   S:INT            565/ERROR    612/SET      621/SET      630/ERROR    633/ERROR    637/SET      639/SET
       647/DO
   S:RAD            630/ERROR    637/SET      675/ERROR
   S:UFV            630/ERROR    675/ERROR   4588/SET     4605/SET     4607/SET     4609/SET     4611/SET
      4613/SET     4615/SET
   SAMPLE          1308-EQU     1341/BAL
   SAV:RES         1147/BAL     1402-EQU
   SAVCC           2570/STCF    2580/LCF     2598-DATA
   SAVE            3786-DATA
   SBUF:END        8185-EQU
   SDAT            1305-DATA    1309/MTW     1313/STW
   SEQ:EM          3220/BL      3229-STW
   SEQ:MAR         3194/BL      3201-RD
   SET:CM          1327/BCR     1332/BCR     1334-WD
   SET:IDX         1245/BNE     1252/B       1259-LW
   SET:MAR         1995/BG      1997-EQU
   SET:MCR         3415/BCS     3417/BCS     3422-LW
   SET:MEM         1010/BAL     2761-EQU
   SET:SNAP        1450-AW      1478/B       1498/B
   SET:VER         4552/BCR     4562-EQU
   SETSIZE         2767/B       2771/BGE     2776-STW
   SF001           4777-MODULE
   SF002           4783-MODULE
   SF003           4789-MODULE
   SF004           4795-MODULE
   SF005           4801-MODULE
   SF006           4807-MODULE
   SF007           4813-MODULE
   SF008           4819-MODULE
   SF009           4825-MODULE
   SF01            5052-MODULE
   SF010           4831-MODULE
   SF011           4837-MODULE
   SF012           4843-MODULE
   SF013           4849-MODULE
   SF014           4855-MODULE
   SF015           4861-MODULE
   SF016           4867-MODULE
   SF017           4871-MODULE
   SF018           4880-MODULE
   SF019           4886-MODULE
   SF02            5064-MODULE
   SF020           4891-MODULE
   SF021           4897-MODULE
   SF022           4902-MODULE
   SF023           4907-MODULE
   SF024           4912-MODULE
   SF025           4917-MODULE
   SF026           4922-MODULE
   SF027           4927-MODULE
   SF028           4932-MODULE
   SF029           4937-MODULE
   SF03            5076-MODULE
   SF030           4942-MODULE
   SF031           4947-MODULE
   SF032           4952-MODULE
   SF033           4957-MODULE
   SF034           4964-MODULE
   SF035           4969-MODULE
   SF036           4974-MODULE
   SF037           4979-MODULE
   SF038           4984-MODULE
   SF039           4989-MODULE
   SF04            5088-MODULE
   SF040           4994-MODULE
   SF041           4999-MODULE
   SF042           5004-MODULE
   SF043           5009-MODULE
   SF044           5014-MODULE
   SF045           5019-MODULE
   SF046           5024-MODULE
   SF047           5029-MODULE
   SF048           5034-MODULE
   SF049           5039-MODULE
   SF05            5100-MODULE
   SF050           5046-MODULE
   SF06            5112-MODULE
   SF07            5124-MODULE
   SF08            5136-MODULE
   SF09            5148-MODULE
   SF10            5160-MODULE
   SF11            5172-MODULE
   SF12            5184-MODULE
   SF13            5196-MODULE
   SF14            5208-MODULE
   SF15            5220-MODULE
   SF16            5232-MODULE
   SF17            5244-MODULE
   SF18            5256-MODULE
   SF19            5268-MODULE
   SF20            5280-MODULE
   SF21            5292-MODULE
   SF22            5304-MODULE
   SF23            5316-MODULE
   SHORTA          1316-LI      2239/DATA    4527/LI
   SHORTL          1135/LI      1354-LW
   SHORTPTR        1136/STW     1383/BCS*    2238-DATA    4528/STW
   SI              1099/STW     1824/LW      1827/AW      3184/STW     3189-DATA
   SI:C            3148/D       3180-EQU
   SKIPEM          1187/BCR     1195-LW
   SKP:NC          2628/STW     2640/STW     2644/LW      2655-DATA
   SN:CHECK        2817/STW     2854/LW      2990/D       3000/D       4521/STW     8186-EQU
   SN:COL0         2624/STW     2660/STW     3799/D       3817-DATA    3871/DATA
   SN:COL1         2403/J       2547/#ETHCON 2555/STW     2557/STB     3801/J       3819-DATA    3872/DATA
   SN:COL2         2405/J       3803/J       3822-DATA    3873/DATA
   SN:COL3         2407/J       3805/J       3825-DATA    3874/DATA
   SN:COL4         2409/J       3807/J       3828-DATA    3875/DATA
   SN:COL5         2411/J       3809/J       3831-DATA    3876/DATA
   SN:COL6         2413/J       3811/J       3834-DATA    3877/DATA
   SN:COL7         2415/J       3813/J       3837-DATA    3878/DATA
   SN:COL8         2417/J       3840-DATA
   SN:EXP          1513/LI      1526/LB      2445/LI      2690/LW      2766/AI      2769/AI      2797/AI
      2803/STW     2828/STW     2866/LW      2917/STW     2925/LW      3111/LI      4544/STW     8188-EQU
   SN:EXPTR        1514/STW     2446/STW     2471/LW      2650/CW*     2672/LW      2674/STW     2702/CW*
      3789-DATA
   SN:HDR0         3886-TEXTCS  3893/DATA
   SN:HDR1         3888-TEXTCS  3894/DATA
   SN:HDR2         3890-TEXTCS  3895/DATA
   SN:OBPTR        1512/STW     2448/STW     2499/LW      2649/LW*     2675/LW      2677/STW     2701/LW*
      3788-DATA
   SN:OBS          1420/LW      1511/LW      1518/STW     1530/STB     2440/LB      2447/LW      2688/LW
      2798/STW     8177-DATA
   SN:OEPTR        1421/STW     1444/LW      1448/STW     1467/STW*    1495/LW      1497/STW     2235-DATA
   SNAP:CON        1145/BAL     1395/BCS     1397/BCS     1417-EQU     3112/B
   SNAP:FLG        1056/STW     1134/STW     1143/LW      1326/LW      1394/LW      1430/STW     1543/STW
      1741/STW     1795/LW      2240-DATA    3454/STW     3477/STW
   SNAP:INI        1084/LW      3930-GEN
   SNAP:OUT        1533/STW     1538/BAL     2429-EQU     2719/B*      2753/B*
   SNAP:PRNT       1521/BCR     1531/B       1536-BAL
   SNAP:RUN        1419/BCS     1460-LW      3110/BCS
   SNAP:SET        1085/STW     1452/STB     1455/STB     1456/LW      1564/LW      3545/STW     3929-GEN
   SNAP:SW         1097/STW     1464-BCR     3507/STW     3520/BCR     3521/B
   SNAP:UNC        1068/STW     1396/LW      1427/LW      1540/LW      2241-DATA    3455/STW     3478/STW
      4568/STW
   SNAP:WRT        2796/STW     2946/STW     2952/LI      3017-J
   SNAPEXIT        1424/BCR     1483/BCS     1492/BCR     1500-LI      1579/B
   SNAPINI         1304-GEN     1860/LW
   SNAPINT         1072/STW     1303-DATA    1354/LW      1849/STW     1861/STW     1903/STW     3252/STW
   SNPADR:C        3360/D       3538-EQU
   SO              1002/LW      1057/STW     1184/LW      1357/LW      1422/LW      1519/LW      1523/LW
      1545/LW      1738/LW      1846/LW      1896/LW      1914/LW      2457/LW      2465/LW      2478/LW
      2493/LW      2504/LW      2646/LW      2715/LW      3484/STW     3796-DATA    4504/STW     4572/STW
   SO:C            3356/D       3452-EQU
   SO:CEX          3463/BCR     3465/BCS     3470/BCS     3484-STW
   SO:EXIT         2516/B       2753-B
   SO:LINE0        3851-EQU     3881/DATA
   SO:LINE1        3860-EQU     3882/DATA
   SO:LINE2        3869-EQU     3883/DATA
   SO:MSG          2336/LW      2346-TEXT
   SOE:MOVR        2472/BAL     2500/BAL     2602-EQU     2625/B*
   SO12A           2477-EQU
   SO12B           2480/BCR     2504-LW
   SO126           2465-LW      2490/B       2514/B       2751/B
   SO2             2507/BL      2516-B
   SO67B           2492-EQU     2515/BIR
   SPACES          1836/LW      1926/LW      2192/LW      2220/LW      2326/LW      2333/LW      2351/LW
      2659/LW      3083/CW      3658/LW      3735/LW      3797-DATA
   SPEC:R1         1649/LW      1680-D
   SPF:BAK         2839/LI      2988-D
   SPF:FWD         2843/LI      2992-D       4553/LI
   START           1119/DATA    1132-EQU     3349/DATA
   STAT%EXPL       4136-TEXTCS  4440/Z
   STATEXIT        3614/STW     3678/B*      3680-DATA
   STATMSGS        1831/BAL     3613-EQU     3615/STW     3616/STW     3676/LW      3677/LW      4581/BAL
   STGEN           4506/LI      4514-EQU
   STVER           4524/LI      4535-EQU
   SYNTAX%EXPL     4150-TEXTCS  4435/Z
   TABLE3           854/DATA    4430-EQU
   TABLE3END       4482-DATA
   TAPE            2795/STW     2919/LI      3014-J
   TAPE:AT         2837/LW      2858/STW     2862/LW      2900-DATA    2912/STW
   TAPE:ID         2855/CW      2997-TEXT    4520/LW
   TAPE:PTR        3927-DATA
   TAPEMOV         2876/B       2884-BAL
   TAPE0ADR         996/STW     2840/SIO*    2841/TIO*    2844/SIO*    2845/TIO*    2848/SIO*    2849/TIO*
      2851/TDV*    2906/SIO*    2907/TIO*    2920/SIO*    2921/TIO*    3267/STW     3920-DATA    4536/MTW
      4537/TIO*
   TAPE1ADR         998/STW     2819/SIO*    2820/TIO*    2947/TIO*    2953/SIO*    2954/TIO*    3921-DATA
      4518/TIO*    4523/SIO*    4570/SIO*
   TAPE2ADR        1000/STW     3922-DATA
   TEXTCS           747-CNAME
   THREE           1330/AND     2115/AND     2136-DATA
   THRU:TXT        3756/LW      3780-TEXT
   TIC             3281/LI      3293-J       3295/D
   TITLE            536/OPEN     537-CNAME
   TOO:FAR         3759/STB     3765/LB      3779-DATA
   TOT:ERRS        1067/STW     1123-DATA    1725/LW      1727/STW     3653/#HTECON
   TRAP:FLG        1174/STW     1246/STW     1288-DATA    1597/LW
   TRAP:IDX        1277/STW     1290-DATA    1410/LW
   TRAP:SAV        1013/STW     1276/STW     1289-DATA    1411/LW
   TRAP:SW         1142/BAL     1240-EQU     1318/BAL
   TRY:WRT         2952-LI      2965/BDR
   TST:EXIT        1482-LW
   TXT:PTR         2214-TEXT    2362/LW
   TXTP1           3696/LW      3703-TEXT
   TXTP2           3698/LW      3704-TEXT
   TYPE:CR         2316/BAL     2431/BAL     2534/BAL     2588-STW
   UPDTA           4478/E       4493-EQU
   VALBIT           823-DATA
   VALDEX           827-EQU
   VALTYPE          831-EQU
   VER:END         1339/AW      1775/LW      1822/LW      2246-DATA    2888/LW      4567/STW
   VER:FLG         1073/STW     1198/LW      1324/AW      2245-DATA    3457/STW     3490/STW     4551/LW
      4566/STW
   VG:END          1821/BCS     1823/BCS     4550-EQU     4577/B
   VM:CM           1874/BAL     1992-EQU
   VM:MSK          1999/AND     2034-DATA
   VMF             2005-AND
   WDT:MSG         1562/STW     1563/STW     1566/STW     1567/STW     1568/#PRINT  1589-TEXTCS
   WDT:SNAP        1071/STW     1468/LW      3499/STW     3515/STW     3522-DATA
   WRD:CNT         1762/STW     2065/CW      2154-DATA
   WRT:MTL         1504/BCS     2824-EQU
   WRT:SNAP        2833/BAL     2940-EQU
   X40C3           1994/CW      2030-DATA
   Z                916-COM
   ZERO            1986-DATA
   #BRKOUT          787-EQU
   #BTE%            798-EQU
   #DIAG@           856-GEN
   #DISUSER%        799-EQU
   #DM%END          789-EQU
   #DM%START        788-EQU
   #DMENTRY%        813-EQU
   #ENUSER%         800-EQU
   #ERRTEXT%        808-EQU     1770/STW*    3622/STW*
   #ERR1PTR%        811-EQU
   #ETH%            646/BAL*     796-EQU
   #ETHCON          609-CNAME
   #FIDLE%          803-EQU     3066/B*      3126/BCR*    3141/B*      3317/BCR*    3345/BAL*    3609/B*
      3701/B*      3730/B*      3777/B*
   #GUIDE%          802-EQU     8171/BAL*
   #HDRFLG          766-EQU     1058/STW     1753/CW      1768/STW     2526/CW      2536/STW     2543/CW
      2562/STW     3623/LW      3671/STW
   #HTE%            572/BAL*     797-EQU
   #HTECON          562-CNAME
   #INDEX           774-EQU
   #INITIAL@        853-DATA
   #LOADER@         857-DATA    8170/STW
   #LOADFLAG        767-EQU      988/LC
   #MAXMEM          785-EQU     2762/LW      3540/CW
   #MTLFLAG         768-EQU      991/LW      1779/LW      4505/LW      4515/LW      4525/LW      4559/LW
   #OUTPTR          772-EQU
   #P%MODE%         814-EQU
   #PAKDEX          773-EQU
   #PARAM%H1        775-EQU     3558/LW      3577/LW
   #PARAM%H2        776-EQU     3564/LW
   #PARAM%H3        777-EQU
   #PARAM%H4        778-EQU
   #PARAM1          781-EQU     3712/LW      3714/LW      3720/STW
   #PARAM2          782-EQU
   #PARAM3          783-EQU
   #PARAM4          784-EQU
   #PASS           4588-SET     4588/SET     4589/DO      4634/DO      4661/DO
   #PLINEIN@        855-DATA
   #PRINT           659-CNAME
   #PRINTER%        659/CNAME    807-EQU
   #PRTADDR         770-EQU     1039/#HTECON 2569/CW      2577/SIO*    2578/TIO*    2590/CW      3163/STW
   #RETURN%         805-EQU     4582/B*
   #RUNADDR%        804-EQU     1548/XPSD*   1584/XPSD*   1757/XPSD*   1766/XPSD*   1781/XPSD*   1888/XPSD*
      2343/XPSD*   2389/XPSD*   2533/XPSD*   2586/XPSD*   2695/XPSD*   2937/XPSD*   2967/XPSD*   2974/XPSD*
      3052/XPSD*   3661/LW*     4500/XPSD*
   #SAMPLE%         786-EQU     1311/XPSD*
   #SENSE           765-EQU     1382/LC      1658/LC      1750/LC      1772/LC
   #STATUS          780-EQU
   #TABLE1A         764-ORG
   #TABLE1B         795-ORG
   #TABLE2@         852-ORG
   #TABLE3@         854-DATA
   #TESTINIT        779-EQU     1115/LC
   #TOADDR          769-EQU     1043/#HTECON 2568/LW      2572/TIO*    2574/HIO*    2583/SIO*    2589/LW
      3175/STW
   #TYPE            660-CNAME
   #TYPER%          660/CNAME    806-EQU
   #VALTAB%         812-EQU
